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