第一次机房收费之注册

这是我敲注册时的大体思路，敲之前先理清注册设计的表。

此处简单，查询是否存在此用户，只涉及student表；

为防止充值金额小于basicedata表中最小金额，所以要先定义一个变量，等于充值金额

注意，涉及到充钱是要更新recharge 表的

清除Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdClean_Click()txtcardno.Text = ""txtrecharge.Text = "0.0"txtstuno.Text = ""txtname.Text = ""txtdepart.Text = ""txtgrade.Text = ""txtclass.Text = ""txtcash.Text = "0.0"txtdes.Text = ""comsex.Text = ""comstatus.Text = ""comtype.Text = ""End Sub查询Private Sub cmdinquire_Click()    Dim txtSQL As String '定义语句类型    Dim mrc As ADODB.Recordset '存放数据集    Dim msgText As String '存放查询后的信息    '验证用户信息        If Trim(txtcardno.Text) = "" Then        MsgBox "请重新输入卡号！", vbOKCancel + vbExclamation, "提示"        Exit Sub        txtcardno.SetFocus    End If                '验证卡号是否位数字                If Not IsNumeric(Trim(txtcardno.Text)) Then            MsgBox "请输入数字！", 0 + 48, "提示"            Exit Sub            txtcardno.SetFocus            txtcardno.Text = ""        End If              '验证卡号是否存在                txtSQL = "select * from student_Info where cardno= '" & txtcardno.Text & "'"  '查询用户名是否存在        Set mrc = executeSQL(txtSQL, msgText) '执行SQL语句                If mrc.EOF And mrc.BOF = True Then                           MsgBox "卡号不存在，请重新输入卡号", vbOKOnly + vbExclamation, "提示"                txtcardno.Text = ""                Exit Sub                txtcardno.SetFocus       Else            txtstuno.Text = mrc.Fields(1)            txtname.Text = mrc.Fields(2)            comsex.Text = mrc.Fields(3)            txtdepart.Text = mrc.Fields(4)            txtgrade.Text = mrc.Fields(5)            txtclass.Text = mrc.Fields(6)            comstatus.Text = mrc.Fields(10)            txtcash.Text = mrc.Fields(7)            txtdes.Text = mrc.Fields(8)            comtype.Text = mrc.Fields(14)        End If        mrc.Close    End Sub存盘Private Sub cmdsave_Click()    Dim txtSQL As String    Dim txtSQL2 As String    Dim txtSQL3 As String    Dim msgText As String    Dim msgText2 As String    Dim msgText3 As String    Dim mrc As ADODB.Recordset    Dim mrc2 As ADODB.Recordset    Dim mrc3 As ADODB.Recordset        '定义最小金额    Dim limitcash As Single    txtSQL3 = "select * from BasicData_Info "    Set mrc3 = executeSQL(txtSQL3, msgText3)    limitcash = mrc3.Fields(5)            If Not Testtxt(txtcardno.Text) Then        MsgBox "请输入卡号！", 0 + 48, "提示"        txtcardno.SetFocus        Exit Sub    End If        If Not Testtxt(txtstuno.Text) Then        MsgBox "请输入学号！", 0 + 48, "提示"        txtstuno.SetFocus        Exit Sub    End If        If Not Testtxt(txtname.Text) Then        MsgBox "请输入姓名！", 0 + 48, "提示"        txtname.SetFocus        Exit Sub    End If        If Not Testtxt(txtdepart.Text) Then        MsgBox "请输入系别", 0 + 48, "提示"        txtdepart.SetFocus        Exit Sub    End If        If Not Testtxt(txtgrade.Text) Then        MsgBox "请输入年纪", 0 + 48, "提示"        txtgrade.SetFocus        Exit Sub    End If        If Not Testtxt(txtclass.Text) Then        MsgBox "请输入班级！", 0 + 48, "提示"        txtclass.SetFocus        Exit Sub    End If        If Not Testtxt(txtcash.Text) Then        MsgBox "请输入金额！", 0 + 48, "提示"        txtcash.SetFocus        Exit Sub    Else        '输入金额不能小于最小金额            If Trim(txtrecharge.Text) < limitcash Then                MsgBox "充值金额小于设置的最小金额5元！", 48, "提示"                txtrecharge.Text = ""                txtrecharge.SetFocus                Exit Sub            End If    End If                txtSQL = "select * from student_Info where cardno= '" & Trim(txtcardno) & "'"    Set mrc = executeSQL(txtSQL, msgText)           If mrc.EOF = False Then '查到记录                    MsgBox "卡号已存在，请重新选择卡号！", 0 + 48, "提示"            txtcardno.Text = ""            txtcardno.SetFocus            Exit Sub                End If                       '更新学生表    mrc.AddNew    mrc.Fields(0) = Trim(txtcardno.Text)    mrc.Fields(1) = Trim(txtstuno.Text)    mrc.Fields(2) = Trim(txtname.Text)    mrc.Fields(3) = Trim(comsex.Text)    mrc.Fields(4) = Trim(txtdepart.Text)    mrc.Fields(5) = Trim(txtgrade.Text)    mrc.Fields(6) = Trim(txtclass.Text)    mrc.Fields(7) = Trim(txtrecharge.Text)    mrc.Fields(9) = UserName    mrc.Fields(8) = Trim(txtdes.Text) & ""    mrc.Fields(10) = Trim(comstatus.Text)    mrc.Fields(11) = "未结账"    mrc.Fields(12) = Date            '获取当前计算机日期    mrc.Fields(13) = Time             '获取当前计算机时间    mrc.Fields(14) = Trim(comtype.Text)    mrc.Update    mrc.Close    MsgBox "注册成功！", 0 + 48, "提示"           '更新recharge表    txtSQL2 = "select * from ReCharge_Info where cardno= '" & Trim(txtcardno) & "'"    Set mrc2 = executeSQL(txtSQL2, msgText2)        mrc2.AddNew    mrc2.Fields(1) = Trim(txtstuno.Text)    mrc2.Fields(2) = Trim(txtcardno.Text)    mrc2.Fields(3) = Trim(Val(txtrecharge.Text))    mrc2.Fields(4) = Date    mrc2.Fields(5) = Time    mrc2.Fields(6) = UserName    mrc2.Fields(7) = "未结账"            mrc2.Update    mrc2.Close   End Sub装载窗体时出现的内容Private Sub Form_Load()comsex.AddItem "男"comsex.AddItem "女"comsex.ListIndex = 0comstatus.AddItem "使用"comstatus.ListIndex = 0comtype.AddItem "临时用户"comtype.AddItem "固定用户"comtype.ListIndex = 0End Sub

理清思路，注册真的很简单