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

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

阅读量：699 次

发布时间：2019-03-21

本文共 2251 字，大约阅读时间需要 7 分钟。

机房收费系统注册窗体开发详解

作为机房收费系统的核心模块之一，注册窗体的开发至关重要。以下是该窗体的代码逻辑和开发思路，供参考。

一、注册窗体代码逻辑及开发思路

在开发注册窗体时，需要注意以下几点：

数据库字段设置

注录窗体涉及多个数据库表单字段，主要有以下几个字段：ischeck、date、time、type等，这些字段的设置均为“不允许NULL值”。确保在程序中赋正确值以避免问题。

用户输入验证

在用户输入内容时，需要对输入数据进行验证，避免非法字符或空值的出现。

数据保存

将用户输入的数据与数据库进行对接，确保数据准确无误地保存到数据库中。

开发思路上，我们主要通过组合控件、文本框等控件收集用户信息，并对数据进行实名认证、电话验证等处理后，再进行入库。

二、错误集

在实际开发中，可能会遇到以下错误：

空值问题

注：不允许存在NULL值。

建议：在应用程序中进行有效性检查，确保所有必填字段填写完整。

输入格式验证

弹出提示："此字段不允许为空。"

建议：在前端进行数据类型和格式检查，避免用户输入非法字符或格式错误。

三、查询集

在开发过程中，需要处理以下查询问题：

获取当前时间

使用Format(Now(), "HH:mm:ss")获取当前时间，并按指定格式存入数据库。

获取当前日期

使用Format(Now(), "yyyy-MM-dd")获取当前日期，确保日期格式统一。

四、代码片段

组合控件内容输入代码段

Private Sub Form_Load()
    combosex.AddItem "男"
    combosex.AddItem "女"
    combostatus.AddItem "使用"
    combotype.AddItem "固定用户"
    combotype.AddItem "临时用户"
End Sub

文本框插入数据更新至数据库代码段

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"  ' 这里为userID，暂时填充        
        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
End Sub

清空代码段

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

注

注1：mrc.Fields(9)为 userID，因为还没做登录窗体，暂时填充了一个数据。

注2：以上代码尚未完全开发，仅为实现最基本功能，文本框未做有效性验证，后续工作中需逐步完善。

以上为注册窗体的大体开发思路，后续文章将逐步完善系统架构和功能。如需了解更多详细细节，请关注后续内容。

转载地址：http://xtxez.baihongyu.com/

你可能感兴趣的文章

no connection could be made because the target machine actively refused it.问题解决