机房收费系统开启的第一步是敲打注册窗体^_^
一、梳理的注册窗体代码逻辑及代码思路如下:
二、错误集:
注册窗体输入内容后弹出此错误提示:
以上原因是不允许有null值
我们来看一下数据库中Student表都有哪些数据
ischeck,date,time,type的字段设置的都是不允许有NULL值,把数据吧表中的每个字段赋值就不会有问题了。
三、查询集
如何把电脑当前的时间按照一定的格式存入数据库内?
时间格式化:
Format(Now(),"HH:mm:ss")
日期格式:
Format(Now(),"yyyy/MM/dd")
代码如下:
mrc.Fields(12) = Format(Now(), "yyyy-MM-dd")
mrc.Fields(13) = Format(Now(), "HH:mm:ss")
四、代码片段
1、组合控件内容输入代码段:
Private Sub Form_Load()
combosex.AddItem "男"
combosex.AddItem "女"
combostatus.AddItem "使用"
combotype.AddItem "固定用户"
combotype.AddItem "临时用户"
End Sub
2、文本框插入数据更新至数据库代码段:
Private Sub cmdsave_Click(Index As Integer)
Dim txtSQL As String
Dim MsgString As String
Dim mrc As ADODB.Recordset
txtSQL = "select * from student_Info"
Set mrc = ExecuteSQL(txtSQL, MsgString)
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) = "1"
mrc.Fields(10) = Trim(combostatus.Text)
mrc.Fields(11) = "未结账"
mrc.Fields(12) = Format(Now(), "yyyy-MM-dd") '获取当前日期,固定日期格式
mrc.Fields(13) = Format(Now(), "HH:mm:ss") '获取当前时间,固定时间格式
mrc.Fields(14) = Trim(combotype.Text)
MsgBox "注册成功!", vbOKOnly, "温馨提示:"
mrc.Update
mrc.Close
注1:mrc.Fields(9)为userID因为还没做登录窗体,就先临时输入了一个数据^_^
注2:以上代码还未全部完成,现阶段只是为了先让程序运行,还没有对文本框进行限制
3、清空代码段:
Private Sub cmdclear_Click(Index As Integer)
txtcardno.Text = ""
txtstudentNo.Text = ""
txtstudentname.Text = ""
txtdepartment.Text = ""
txtgrade.Text = ""
txtclass.Text = ""
txtcash.Text = ""
txtexplain.Text = ""
txtrechargecash.Text = ""
End Sub