老規矩先放圖：

注冊窗體其實也比較簡單的，先說一下查找，這里的查找其實可以之前一般用戶的查看余額功能差不多，所以我們直接把查看余額窗體放在這里就可以了：

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)) ThenMsgBox "金額小于最低余額充值！", 48, "警告"Exit SubEnd If

最后就是把文本框的數據存盤了：

mrc.Addnewmrc.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) = Datemrc.Fields(13) = Time'更新數據庫mrc.Updatemrc.CloseMsgBox "添加用戶成功", 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 = ""

?

總結

以上是生活随笔為你收集整理的机房收费--操作员注册的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。