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

前言

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

主要内容

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 ‘循环直到找到数据跳出循环

小结

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