机房收费--操作员注册-蒲公英云

机房收费--操作员注册

老规矩先放图：

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 = ""