本文共 2669 字，大约阅读时间需要 8 分钟。

������������������������������

������

���������������������������������������������������������������������������&������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������

������������������

1. ������������������������������

(1) ���������������������������������

'worklog ������������ txtSQL1 = "select * from worklog_Info"
Mrc1 = ExecuteSQL(txtSQL1, msgText1)
Mrc1.AddNewMrc1.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.UpdateMrc1.Close

(2) ������������������������������������

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. ���������������������������������������

• ������ Do While���������������������������
• If mrc.EOF = False ������������������������
• ������������ mrc.EOF ������������������

3. UI������������������

• ������������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

4. ���������������������ning

• ���������cmdOK
• ���������cmdCancel
• ���������cmdInquiry
• ���������Excel���cmdExportExcel
• ���������cmdSave
• ���������cmdClear
• ���������cmdModify
• ���������cmdAccount
• ���������cmdAdd
• ���������cmdDelete
• ���������cmdUpdate
• ������/���������������������cmdFresh
• ���������cmdPrint
• ���������������cmdPrePrint

������

���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������