初版流程图,有所不周,还请担待。
一:流程图
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
一点一滴~~