机房收费系统之注册窗体（INSERT失败，时间格式化）

机房收费系统开启的第一步是敲打注册窗体^_^

一、梳理的注册窗体代码逻辑及代码思路如下：

 

 

二、错误集：

注册窗体输入内容后弹出此错误提示：

 

以上原因是不允许有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

以上便是注册窗体的大体思路，因为是第一个窗体所以在此罗列的会有些细，后面的文章会根据情况来进行梳理，分享逻辑图与关键点，下一个窗体走起^_^