第一次机房收费之注册

这是我敲注册时的大体思路，敲之前先理清注册设计的表。此处简单，查询是否存在此用户，只涉及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) = "" ThenMsgBox "请重新输入卡号！", vbOKCancel + vbExclamation, "提示"Exit Subtxtcardno.SetFocusEnd If'验证卡号是否位数字If Not IsNumeric(Trim(txtcardno.Text)) ThenMsgBox "请输入数字！", 0 + 48, "提示"Exit Subtxtcardno.SetFocustxtcardno.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 ThenMsgBox "卡号不存在，请重新输入卡号", vbOKOnly + vbExclamation, "提示"txtcardno.Text = ""Exit Subtxtcardno.SetFocusElsetxtstuno.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 Ifmrc.CloseEnd Sub存盘Private Sub cmdsave_Click()Dim txtSQL As StringDim txtSQL2 As StringDim txtSQL3 As StringDim msgText As StringDim msgText2 As StringDim msgText3 As StringDim mrc As ADODB.RecordsetDim mrc2 As ADODB.RecordsetDim mrc3 As ADODB.Recordset'定义最小金额Dim limitcash As SingletxtSQL3 = "select * from BasicData_Info "Set mrc3 = executeSQL(txtSQL3, msgText3)limitcash = mrc3.Fields(5)If Not Testtxt(txtcardno.Text) ThenMsgBox "请输入卡号！", 0 + 48, "提示"txtcardno.SetFocusExit SubEnd IfIf Not Testtxt(txtstuno.Text) ThenMsgBox "请输入学号！", 0 + 48, "提示"txtstuno.SetFocusExit SubEnd IfIf Not Testtxt(txtname.Text) ThenMsgBox "请输入姓名！", 0 + 48, "提示"txtname.SetFocusExit SubEnd IfIf Not Testtxt(txtdepart.Text) ThenMsgBox "请输入系别", 0 + 48, "提示"txtdepart.SetFocusExit SubEnd IfIf Not Testtxt(txtgrade.Text) ThenMsgBox "请输入年纪", 0 + 48, "提示"txtgrade.SetFocusExit SubEnd IfIf Not Testtxt(txtclass.Text) ThenMsgBox "请输入班级！", 0 + 48, "提示"txtclass.SetFocusExit SubEnd IfIf Not Testtxt(txtcash.Text) ThenMsgBox "请输入金额！", 0 + 48, "提示"txtcash.SetFocusExit SubElse'输入金额不能小于最小金额If Trim(txtrecharge.Text) < limitcash ThenMsgBox "充值金额小于设置的最小金额5元！", 48, "提示"txtrecharge.Text = ""txtrecharge.SetFocusExit SubEnd IfEnd IftxtSQL = "select * from student_Info where cardno= '" & Trim(txtcardno) & "'"Set mrc = executeSQL(txtSQL, msgText)If mrc.EOF = False Then '查到记录MsgBox "卡号已存在，请重新选择卡号！", 0 + 48, "提示"txtcardno.Text = ""txtcardno.SetFocusExit SubEnd If'更新学生表mrc.AddNewmrc.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) = UserNamemrc.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.Updatemrc.CloseMsgBox "注册成功！", 0 + 48, "提示"'更新recharge表txtSQL2 = "select * from ReCharge_Info where cardno= '" & Trim(txtcardno) & "'"Set mrc2 = executeSQL(txtSQL2, msgText2)mrc2.AddNewmrc2.Fields(1) = Trim(txtstuno.Text)mrc2.Fields(2) = Trim(txtcardno.Text)mrc2.Fields(3) = Trim(Val(txtrecharge.Text))mrc2.Fields(4) = Datemrc2.Fields(5) = Timemrc2.Fields(6) = UserNamemrc2.Fields(7) = "未结账"mrc2.Updatemrc2.CloseEnd Sub装载窗体时出现的内容Private Sub Form_Load()comsex.AddItem "男"comsex.AddItem "女"comsex.ListIndex = 0comstatus.AddItem "使用"comstatus.ListIndex = 0comtype.AddItem "临时用户"comtype.AddItem "固定用户"comtype.ListIndex = 0End Sub

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