【机房收费系统】注册

 在敲注册长窗体之前，我先点的exe程序，把逻辑搞清楚以后，就容易上手了

流程图：（好丑，将就看）

窗体显示：

判断金额：

充值金额不能低于余额。连接basic_info

txtsql = "select * from basicdata_info"
Set mrcba = executeSQL(txtsql, msgtext)
     If Val(txtcash.Text) < Val(txtbalance.Text) Then
            MsgBox "充值金额不能低于余额!", vbOKOnly + vbExclamation, "警告"
            txtcash.Text = ""
            txtcash.SetFocus
            Exit Sub
      End If

判断基本信息：存盘

            '判断卡号
    If Not testtxt(txtcardno.Text) Then
        MsgBox "卡号为空，请输入卡号！", vbOKOnly + vbExclamation, "警告"
        txtcardno.SetFocus
        Exit Sub
    End If
    If Not IsNumeric(txtcardno.Text) Then
        MsgBox "卡号请输入数字！", vbOKOnly + vbExclamation, "警告"
        txtcardno.Text = ""
        txtcardno.SetFocus
        Exit Sub
    End If
     txtsql = "select * from student_info where cardno='" & Trim(txtcardno.Text) & "' and status='使用'"
     Set mrcst = executeSQL(txtsql, msgtext)
     If mrcst.EOF = False Then
        MsgBox "此卡已被注册，您可查询余额！", vbOKOnly + vbExclamation, "警告"
        txtcardno.Text = ""
        txtcardno.SetFocus
        Exit Sub
     Else
        If Not testtxt(txtcash.Text) Then
          MsgBox "请输入充值金额！", vbOKOnly + vbExclamation, "警告"           '判断充值金额
            Exit Sub
        End If
        If Not IsNumeric(txtcash.Text) Then
           MsgBox "充值金额请输入数字！", vbOKOnly + vbExclamation, "警告"
            txtcash.Text = ""
            txtcash.SetFocus
            Exit Sub
        End If
        txtsql = "select * from basicdata_info"
        Set mrcba = executeSQL(txtsql, msgtext)
        If Val(txtcash.Text) < Val(txtbalance.Text) Then
           MsgBox "充值金额不能低于余额!", vbOKOnly + vbExclamation, "警告"
            txtcash.Text = ""
            txtcash.SetFocus
            Exit Sub
        End If
        
        If Trim(txtstudentno.Text) = "" Then
            MsgBox "学号不能为空!", vbOKOnly + vbExclamation, "警告"        '判断学生信息
            txtstudentno.Text = ""
            txtstudentno.SetFocus
            Exit Sub
        Else
            txtsql = "select * from student_info where studentno='" & Trim(txtstudentno.Text) & "'"
            Set mrcst = executeSQL(txtsql, msgtext)
            If mrcst.EOF = False Then
               MsgBox "学号已存在，请重新输入！", vbOKOnly + vbExclamation, "警告"
                txtstudentno.Text = ""
                txtstudentno.SetFocus
                Exit Sub
            End If
        End If
        If Not IsNumeric(txtstudentno.Text) Then
           MsgBox "学号请输入数字！", vbOKOnly + vbExclamation, "警告"
           txtstudentno.Text = ""
            txtstudentno.SetFocus
            Exit Sub
        End If
        If Trim(txtname.Text) = "" Then
           MsgBox "姓名不能为空！", vbOKOnly + vbExclamation, "警告"
            txtname.Text = ""
            txtname.SetFocus
            Exit Sub
        End If

        If Trim(Combosex.Text) = "" Then
         MsgBox "性别不能为空！", vbOKOnly + vbExclamation, "警告"
            Combosex.SetFocus
            Exit Sub
        End If
        If Trim(txtdept.Text) = "" Then
            MsgBox "系别不能为空！", vbOKOnly + vbExclamation, ""
            txtdept.Text = ""
            txtdept.SetFocus
            Exit Sub
        End If
        If Trim(txtgrade.Text) = "" Then
          MsgBox "年级不能为空！", vbOKOnly + vbExclamation, "警告"
            txtgrade.Text = ""
            txtgrade.SetFocus
            Exit Sub
        End If
        If Trim(txtclass.Text) = "" Then
            MsgBox "班级不能为空！", vbOKOnly + vbExclamation, "警告"
            txtclass.Text = ""
            txtclass.SetFocus
            Exit Sub
        End If
        If Trim(Combostate.Text) = "" Then
            MsgBox "状态不能为空！", vbOKOnly + vbExclamation, "警告"
            Combostate.SetFocus
            Exit Sub
        End If
        If Trim(combotype.Text) = "" Then
            MsgBox "类型不能为空！", vbOKOnly + vbExclamation, "警告"
           combotype.SetFocus
            Exit Sub
        End If
        If Trim(txtexplain.Text = "") Then Trim (txtexplain.Text = "无")
        
         txtsql = "select * from Student_info"
        Set mrcst = executeSQL(txtsql, msgstring)
        '添加新记录
        mrcst.AddNew
        mrcst.Fields(0) = Trim(txtcardno.Text)
        mrcst.Fields(1) = Trim(txtstudentno.Text)
        mrcst.Fields(2) = Trim(txtname.Text)
        mrcst.Fields(3) = Trim(Combosex.Text)
        mrcst.Fields(4) = Trim(txtdept.Text)
        mrcst.Fields(5) = Trim(txtgrade.Text)
        mrcst.Fields(6) = Trim(txtclass.Text)
        mrcst.Fields(7) = Trim(txtcash.Text)
        mrcst.Fields(8) = Trim(txtexplain.Text)
        mrcst.Fields(9) = username
        mrcst.Fields(10) = Trim(Combostate.Text)
        mrcst.Fields(14) = Trim(combotype.Text)
        mrcst.Fields(12) = Date
        mrcst.Fields(13) = Time
        mrcst.Fields(11) = "未结账"
       mrcst.Update
       mrcst.Close
       txtsql = "select * from recharge_info"
       Set mrcre = executeSQL(txtsql, msgtext)
       mrcre.AddNew
    mrcre.Fields(1) = Trim(txtstudentno.Text) '学号
    mrcre.Fields(2) = Trim(txtcardno.Text) '卡号
    mrcre.Fields(3) = Trim(txtcash.Text) '金额
    mrcre.Fields(4) = Trim(Date)   '日期
    mrcre.Fields(5) = Trim(Time) '时间
    mrcre.Fields(6) = Trim(username) 'UserID
    mrcre.Fields(7) = "未结账" '结账状态
    mrcre.Update
    mrcre.Close
    MsgBox "注册成功！", vbOKOnly + vbExclamation, "警告"
    
 End If
End Sub

把text文本框和combo加上限制就可以了

注册就结束了，如果大咖有更好的建议，欢迎评论在下方！