机房收费系统——注册窗体

这是机房收费系统的第一个窗体，所以也很基础，虽然很基础，但是这些代码我们仍然没有能力去独立完成，那么这个时候我们就会借助很多工具，比如师哥师姐的博客，百度等等。从他们的博客里面我们也就能找到自己的思路了，请看一下我的思路！

以下是代码展示：

Option Explicit
Private Sub cmdCancel_Click()
Me.Hide
End Sub
Private Sub cmdCheck_Click()
    InquiryBalance.Show
End Sub在这里插入代码片

Private Sub cmdDelete_Click()
    txtCardNo.Text = ""
    txtCash.Text = ""
    txtSID.Text = ""
    txtName.Text = ""
    txtGrade.Text = ""
    txtClass.Text = ""
    txtDept.Text = ""
    txtMark.Text = ""
    comboSex.Text = ""
    ComboState.Text = ""
    CombType.Text = ""
    
End Sub

Private Sub cmdSave_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 "请输入卡号！", 0 + 48, "警告"
    Else
        If Not IsNumeric(txtCardNo.Text) Then
            MsgBox "请输入数字", 0 + 48, "警告"
            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 "此卡号已经存在，您可查询余额！", 0 + 48, "警告"
            txtCardNo.SetFocus
            txtCardNo.Text = ""
        Else
        '若卡号不存在，则输入基本信息
        If Not testtxt(txtCash.Text) Then
            MsgBox "请输入充值金额！", 0 + 48, "警告"
            Exit Sub
        End If
        txtsql = "select * from basicdata_info "
        Set mrc1 = ExecuteSQL(txtsql, msgtext)
            If txtCash.Text < Trim(mrc1.Fields(5)) Then
                MsgBox "金额小于最低余额充值！", 0 + 48, "警告"
                Exit Sub
            End If
        If Not testtxt(txtSID.Text) Then
            MsgBox "请输入学号！", 0 + 48, "警告"
            Exit Sub
        End If
        
        If Not testtxt(txtName.Text) Then
            MsgBox "请输入姓名！", 0 + 48, "警告"
            Exit Sub
        End If
        
        If Not testtxt(txtGrade.Text) Then
            MsgBox "请输入年级！", 0 + 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(txtDept.Text) Then
                MsgBox "请输入系别！", 48, "警告"
                Exit Sub
            End If
            
            If Not testtxt(ComboState.Text) Then
                MsgBox "请选择状态！", 48, "警告"
                Exit Sub
            End If
            
            If Not testtxt(CombType.Text) Then
                MsgBox "请选择类型！", 48, "警告"
                Exit Sub
            End If
            If Not testtxt(txtMark.Text) Then
                txtMark.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(txtSID.Text)
                mrc.Fields(2) = Trim(txtName.Text)
                mrc.Fields(3) = Trim(comboSex.Text)
                mrc.Fields(4) = Trim(txtDept.Text)
                mrc.Fields(5) = Trim(txtGrade.Text)
                mrc.Fields(6) = Trim(txtClass.Text)
                mrc.Fields(7) = Trim(txtCash.Text)
                mrc.Fields(8) = Trim(txtMark.Text)
                mrc.Fields(9) = mrc2.Fields(0)
                mrc.Fields(10) = Trim(ComboState.Text)
                mrc.Fields(11) = "未结账"
                mrc.Fields(12) = Date
                mrc.Fields(13) = Time
                mrc.Fields(14) = Trim(CombType.Text)
                
                mrc.Update
                mrc.Close
                MsgBox "注册成功！", vbOKOnly, "恭喜！"
            End If
        End If
    End If
    
    
End Sub

Private Sub Form_Load()
    comboSex.AddItem "男"
    comboSex.AddItem "女"
    
    
    ComboState.AddItem "使用"
    
    CombType.AddItem "临时用户"
    CombType.AddItem "固定用户"
    
End Sub