机房收费系统之总结（一）

前言

机房收费系统让我学习到了很多很多的东西，真的很有成就感，要踏踏实实的走下去，给自己打下坚实的基础，让自己走的更远。

主要内容

1.机房和数据库

(1) 机房 如何增加记录写入数据库

'worklog 增加记录
txtSQL1 = "select * from worklog_Info "
Set Mrc1 = ExecuteSQL(txtSQL1, msgText1)
Mrc1.AddNew
Mrc1.Fields(1) = Trim(txtUserName.Text)
Mrc1.Fields(2) = UserType
Mrc1.Fields(3) = Date
Mrc1.Fields(4) = Time
Mrc1.Fields(7) = Winsock1.LocalHostName
Mrc1.Fields(8) = "True"
Mrc1.Update
Mrc1.Close

（2）
如何让数据库数据显示到TEXT

    txtSID.Text = mrc.Fields(1)
    txtName.Text = mrc.Fields(2)
    txtSex.Text = mrc.Fields(3)
    txtDept.Text = mrc.Fields(4)
    txtGrade.Text = mrc.Fields(5)
    txtClass.Text = mrc.Fields(6)
    txtStatus.Text = mrc.Fields(7)
    txtBalance.Text = mrc.Fields(8)
    txtExplain.Text = mrc.Fields(9)
    txtBalance.Text = mrc.Fields(10)

2.EOF的问题

If mrc.EOF Then等同于If mrc.EOF=True Then， '表示在记录集里没有任何记录
If mrc.EOF= False Then                     '表示在记录集里有记录

3.控件命名的问题

用户名：txtUserName
密码：txtPassWord
卡号：txtCardNo
学号：txtStudentNO
姓名：txtName
性别：ComboSex
系别：txtDept
年级：txtGrade
班级：txtClass
状态：ComboStatus
备注/注释：txtExplain
余额：txtBalance
充值金额：txtRecharge
临时收费金额txtTemRecharge
退卡金额txtBackCardMoney
应收金额txtCollectMoney
起始日期：DTPickerStart
终止日期：DTPickerEnd
操作员用户名comboOpUserID
操作员真实姓名comboOpRealName
售卡张数：txtSellCardSum
退卡张数txtBackCardSum
总售卡数txtSellCardActual
用户级别：comboUserLevel
固定用户每小时费用：txtRate
临时用户每小时费用：txttmpRate
递增单位时间：txtunitTime
至少上机时间：txtleastTime
准备时间：txtPrepareTime
最少金额：txtlimitCash
上期余额：txtBeforeCash

按钮名：
确定：cmdOK
取消：cmdCancel
查询：cmdInquiry
导出为Excel：cmdExportExcel
存盘：cmdSave
清空：cmdClear
修改：cmdModify
结账：cmdAccount
添加：cmdAdd
删除：cmdDelete
更新: cmdUpdate
日结/周结账单刷新：cmdFresh
打印：cmdPrint
打印预览：cmdPrePrint
4.循环语句的问题
Do While mrc.EOF = False ‘循环直到找到数据跳出循环

小结

机房还有很多收获，未完待续。