机房收费--操作员注册

浅浅的花香味﹌ 2022-01-22 14:35 195阅读 0赞

老规矩先放图：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70][]

注册窗体其实也比较简单的，先说一下查找，这里的查找其实可以之前一般用户的查看余额功能差不多，所以我们直接把查看余额窗体放在这里就可以了：

Private Sub Command1_Click()
        InquiryBalance.Show
    End Sub

其次说一下combox，它要写在form\_load里，因为在逻辑上看，它应该是在窗体加载时就显现出来的，所以：

Private Sub Form_Load()
        Combosex.AddItem "男"
        Combosex.AddItem "女"
    
        Combostatus.AddItem "使用"
    
        Combotype.AddItem "固定用户"
        Combotype.AddItem "一般用户"
    End Sub

然后就是注意一下金额的限制，充值的金额不能低于最低限制，一般像网吧都会有这种限制，当然他们还会有一些优惠活动，比如冲多少送多少的，但是咱们这里就先不说那些啦：

txtsql1 = "select * from Basicdata_info"
        Set mrc1 = ExecuteSQL(txtsql1, MsgText1)
         
        If txtcash.Text < Trim(mrc1.Fields(5)) Then
            MsgBox "金额小于最低余额充值！", 48, "警告"
            Exit Sub
        End If

最后就是把文本框的数据存盘了：

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(14) = Trim(Combotype.Text)
        mrc.Fields(7) = Trim(txtcash.Text)
        mrc.Fields(8) = Trim(txtexplain.Text)
        mrc.Fields(9) = Trim(txtcardno.Text)
        mrc.Fields(10) = Trim(Combostatus.Text)
        mrc.Fields(11) = "未结账"
        mrc.Fields(12) = Date
        mrc.Fields(13) = Time
         
        '更新数据库
        mrc.Update
        mrc.Close
           MsgBox "添加用户成功", vbOKOnly + vbExclamation, "添加成功"
        End If

当然不要忘记注册成功后要把文本框清空，以方便下次添加数据：

txtcardno.Text = ""
        txtstudentno.Text = ""
        txtstudentname.Text = ""
        Combosex.Text = ""
        txtdepartment.Text = ""
        txtgrade.Text = ""
        txtclass.Text = ""
        Combotype.Text = ""
        txtcash.Text = ""
        txtexplain.Text = ""
        Combostatus.Text = ""

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzM5MDcxNTk5_size_16_color_FFFFFF_t_70]: /images/20220122/49e4de0d25344ffb9c031bdfab5a216a.png