机房收费系统之注册窗体

初版流程图，有所不周，还请担待。

一：流程图

1这里有个学习知识点，就是对combo的设置

combo里面的选项是在form窗体里进行设置的，具体代码如下：

Private Sub Form_Load()
    combosex.AddItem "男"
    combosex.AddItem "女"
    
    Combostatus.AddItem "使用"
    Combostatus.AddItem "不使用"
    
    Combotype.AddItem "临时用户"
    Combotype.AddItem "固定用户"
    
End Sub

2还有需要注意的一点就是金额的设置，充值金额需要高于最低限制，这就要与basic表的列进行比较。代码如下：

 	txtSQL = "select * from basicdata_info"
        Set mrc1 = ExecuteSQL(txtSQL, MsgText)
                If txtcash.Text < Trim(mrc1.Fields(5)) Then
                    MsgBox "金额小于最低余额充值！", 48, "警告"
                    Exit Sub
            End If

3最后将注册好的信息添加到student表中。代码如下：

 mrc.AddNew
                mrc.Fields(0) = Trim(txtcardno.Text)
                mrc.Fields(1) = Trim(txtstudentno.Text)
                mrc.Fields(2) = Trim(txtstudentname.Text)
                mrc.Fields(3) = Trim(combosex.Text)
                mrc.Fields(4) = Trim(txtdepartment.Text)
                mrc.Fields(5) = Trim(txtgrade.Text)
                mrc.Fields(6) = Trim(txtclass.Text)
                mrc.Fields(7) = Trim(txtcash.Text)
                mrc.Fields(8) = Trim(txtexplain.Text)
                mrc.Fields(9) = mrc2.Fields(0)
                mrc.Fields(10) = Trim(Combostatus.Text)
                mrc.Fields(11) = "结账"
                mrc.Fields(12) = Date
                mrc.Fields(13) = Time
                mrc.Fields(14) = Trim(Combotype.Text)
                
                
                mrc.Update
                mrc.Close
                MsgBox "注册成功！", vbOKOnly, "恭喜！"

这里的mrc2是指user里的user ID

5最后不要忘记更新，不然记录不会存到表里。

6如果想要与人方便，可以设置在最后注册完清空text。这样显得既干净还能方便下一次使用。

7容易出错的小地方：testtxt

曾经在敲学生的时候，这个地方就容易出错。本身sx挨得近，并且自我感觉它俩在代码里真的是不好认出来谁对谁错。所以建议大家以后敲代码的时候一定要注意一下，以免自己因为这个小地方而迟迟找不到出错原因。

texttxt <>testtxt

二：注册窗体里不仅有个存盘的功能，还有一个查询余额的功能，在一般用户里面，我们已经研究过了查询余额，两个显示的是同一个窗体，所以这里只需要将查询余额窗体调用出来即可。

frmcxye.show

三：整个窗体代码展示：

欢迎小伙伴们能给我指出不足之处，互勉之。

Option Explicit
Private Sub cmdadd_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    Dim mrc1 As ADODB.Recordset
    Dim mrc2 As ADODB.Recordset

    If txtcardno.Text = "" Then
        MsgBox "请输入卡号！", 48, "警告"
        
    Else
    
        If Not IsNumeric(txtcardno.Text) Then
            MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
            txtcardno.SetFocus
        Else
    
         '判断卡号是否存在---若存在则建议查询余额
        
            txtSQL = "select * from student_info where cardno = '" & txtcardno.Text & "'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
               
            If mrc.EOF = False Then
                MsgBox "此卡号已经存在，您可查询余额！", vbOKOnly + vbExclamation, "警告"
                txtcardno.SetFocus
                txtcardno.Text = ""
            Else
            
            '若卡号不存在，则输入基本信息
            If Not Testtxt(txtcash.Text) Then
                MsgBox "请输入充值金额！", 48, "警告"
                Exit Sub
            End If
            txtSQL = "select * from basicdata_info"
            Set mrc1 = ExecuteSQL(txtSQL, MsgText)
                If txtcash.Text < Trim(mrc1.Fields(5)) Then
                    MsgBox "金额小于最低余额充值！", 48, "警告"
                    Exit Sub
            End If
            
            
            If Not Testtxt(txtstudentno.Text) Then
                MsgBox "请输入学号！", 48, "警告"
                Exit Sub
            End If
            
            If Not Testtxt(txtstudentname.Text) Then
                MsgBox "请输入姓名！", 48, "警告"
                Exit Sub
            End If
            
            If Not Testtxt(txtgrade.Text) Then
                MsgBox "请输入年级！", 48, "警告"
                Exit Sub
            End If
            
            If Not Testtxt(txtclass.Text) Then
                MsgBox "请输入班级！", 48, "警告"
                Exit Sub
            End If
            
            If Not Testtxt(combosex.Text) Then
                MsgBox "请选择性别！", 48, "警告"
                Exit Sub
            End If
            
            If Not Testtxt(txtdepartment.Text) Then
                MsgBox "请输入系别！", 48, "警告"
                Exit Sub
            End If
            
            If Not Testtxt(Combostatus.Text) Then
                MsgBox "请选择状态！", 48, "警告"
                Exit Sub
            End If
            
            If Not Testtxt(Combotype.Text) Then
                MsgBox "请选择类型！", 48, "警告"
                Exit Sub
            End If
            
            If Not Testtxt(txtexplain.Text) Then
                txtexplain.Text = "无"
            End If
            
            '添加信息
            
            txtSQL = "select * from user_info"
            Set mrc2 = ExecuteSQL(txtSQL, MsgText)
            
                mrc.AddNew
                mrc.Fields(0) = Trim(txtcardno.Text)
                mrc.Fields(1) = Trim(txtstudentno.Text)
                mrc.Fields(2) = Trim(txtstudentname.Text)
                mrc.Fields(3) = Trim(combosex.Text)
                mrc.Fields(4) = Trim(txtdepartment.Text)
                mrc.Fields(5) = Trim(txtgrade.Text)
                mrc.Fields(6) = Trim(txtclass.Text)
                mrc.Fields(7) = Trim(txtcash.Text)
                mrc.Fields(8) = Trim(txtexplain.Text)
                mrc.Fields(9) = mrc2.Fields(0)
                mrc.Fields(10) = Trim(Combostatus.Text)
                mrc.Fields(11) = "结账"
                mrc.Fields(12) = Date
                mrc.Fields(13) = Time
                mrc.Fields(14) = Trim(Combotype.Text)
                
                
                mrc.Update
                mrc.Close
                MsgBox "注册成功！", vbOKOnly, "恭喜！"
                
            
            End If
        End If
    End If
End Sub


Private Sub cmdclear_Click()
    txtcardno.Text = ""
    txtcash.Text = ""
    txtstudentno.Text = ""
    txtstudentname.Text = ""
    txtgrade.Text = ""
    txtclass.Text = ""
    txtdepartment.Text = ""
    txtexplain.Text = ""
    combosex.Text = ""
    Combostatus.Text = ""
    Combotype.Text = ""
    
End Sub

Private Sub cmdinquire_Click()
    frmcxye.Show
    
End Sub

Private Sub Form_Load()
    combosex.AddItem "男"
    combosex.AddItem "女"
    
    Combostatus.AddItem "使用"
    Combostatus.AddItem "不使用"
    
    Combotype.AddItem "临时用户"
    Combotype.AddItem "固定用户"
    
End Sub

一点一滴~~