VB查询数据库之写入数据库——机房收费系统总结(三)

     在机房收费系统中,新注册的用户,更改的密码,上机下级记录,上机收费记录等等都要写入数据库,这样,后面的查询才能生效。像数据库中写入数据,首先,找到你要写入数据的数据库中的表,在表中建立新的行,让后再把相对应的数据写书数据库,保存,更新。我认为大概就是这样,以机房收费系统注册用户为例,看看写入数据库的代码吧!

添加用户窗体如下所示(以它为例):

  

 

代码如下(仅供参考):

在写如之前,首先要确定输入数据库中的各个数据不能为空。

Option Explicit
'————————————————————————
'窗体:添加用户窗体
'说明:查询每个文本框不为空,两次密码相同,最后把添加信息写入USER—info 表 中
'————————————————————————



Private Sub cmdOk_Click()
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    Dim txtSQL As String
    Dim time1 As String
    Dim date1 As String
    
    
    
    '各个文本框不能空着,且密码和确认密码值要想同
    If Not Testtxt(Text1.Text) Then
        MsgBox "请输入用户名!", vbOKOnly + vbExclamation, "警告"
        Text1.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text2.Text) Then
        MsgBox "请返回上一个界面选择用户级别!", vbOKOnly + vbExclamation, "警告"
        frmadduser.Show
        Unload Me
        Exit Sub
    End If
    
    If Not Testtxt(Text3.Text) Then
        MsgBox "请输入用户名!", vbOKOnly + vbExclamation, "警告"
        Text3.SetFocus
        Exit Sub
    End If
    
    If Not Testtxt(Text4.Text) Then
        MsgBox "密码不能为空!", vbOKOnly + vbExclamation, "警告"
        Text3.SetFocus
       
        Exit Sub
    End If
    
    If Not Testtxt(Text5.Text) Then
        MsgBox "请确认密码!", vbOKOnly + vbExclamation, "警告"
        Text5.SetFocus
        
        Exit Sub
    End If
    
    If Text4.Text <> Text5.Text Then
        MsgBox "两次输入密码不一致,请重新输入!", vbOKOnly + vbExclamation, "警告"
    End If
    
    Set mrc = ExecuteSQL(txtSQL, MsgText)
   
                txtSQL = "select * from User_Info"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
              
                mrc.AddNew '在表中建立新的列,写入添加数据
                mrc.Fields(0) = Trim(Text1.Text)
                mrc.Fields(1) = Trim(Text4.Text)
                mrc.Fields(2) = Trim(Text2.Text)
                mrc.Fields(3) = Trim(Text3.Text)
                mrc.Fields(4) = UserName
                
    mrc.Update
                MsgBox "添加用户成功成功!", vbOKOnly + vbExclamation, "警告"
                mrc.Close
                Me.Hide
        
        
End Sub

Private Sub Form_Load()
    Text2.Text = level '在上一个窗体中设置用户级别

End Sub


 

 

 

 

 

评论 9
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值