物流信息系統(tǒng)實(shí)驗(yàn)報(bào)告(doc33)-資料下載頁
2025-01-09 22:00本頁面
【正文】 的地方 39。如果想忽略錯(cuò)誤，注釋掉下一行代碼 39。如果想捕捉錯(cuò)誤，在這里添加錯(cuò)誤處理代碼 MsgBox 數(shù)據(jù)錯(cuò)誤事件命中錯(cuò)誤： amp。 Error$(DataErr) Response = 0 39。忽略錯(cuò)誤End SubPrivate Sub Data1_Reposition() = vbDefault On Error Resume Next 39。這將顯示當(dāng)前記錄位置 39。為動(dòng)態(tài)集和快照 = 記錄： amp。 ( + 1) 39。對(duì)于 Table 對(duì)象，當(dāng)記錄集創(chuàng)建后并使用下面的行時(shí)， 39。必須設(shè)置 Index 屬性 39。 = 記錄： amp。 ( * ( * )) + 1End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) 39。這是放置驗(yàn)證代碼的地方 39。當(dāng)下面的動(dòng)作發(fā)生時(shí)，調(diào)用這個(gè)事件 Select Case Action Case vbDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Case vbDataActionFind Case vbDataActionBookmark Case vbDataActionClose End Select = vbHourglassEnd Sub（2）實(shí)現(xiàn)用戶注冊的單擊事件Private Sub Command1_Click()If And And And = Then = Provider=。 amp。 Data Source= amp。 amp。 \ amp。 。 amp。 Persist Security Info=False = 30 = adUseClientstrSQL = select * from user strSQL, pubConn, adOpenDynamic, adLockOptimistic rs!用戶名 = rs!密碼 = MsgBox 注冊成功！, vbExclamation + vbOKOnly, 警告 Else m = MsgBox(錯(cuò)誤,請重新登錄, vbExclamation) = = = End IfEnd Sub（3）實(shí)現(xiàn)貨物出庫管理的代碼Private Sub cmdAdd_Click() End SubPrivate Sub cmdDelete_Click() 39。如果刪除記錄集的最后一條記錄 39。記錄或記錄集中唯一的記錄 End SubPrivate Sub cmdRefresh_Click() 39。這僅對(duì)多用戶應(yīng)用程序才是需要的 End SubPrivate Sub cmdUpdate_Click() = End SubPrivate Sub cmdClose_Click() Unload Me End SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer) 39。這就是放置錯(cuò)誤處理代碼的地方 39。如果想忽略錯(cuò)誤，注釋掉下一行代碼 39。如果想捕捉錯(cuò)誤，在這里添加錯(cuò)誤處理代碼 MsgBox 數(shù)據(jù)錯(cuò)誤事件命中錯(cuò)誤： amp。 Error$(DataErr) Response = 0 39。忽略錯(cuò)誤End SubPrivate Sub Data1_Reposition() = vbDefault On Error Resume Next 39。這將顯示當(dāng)前記錄位置 39。為動(dòng)態(tài)集和快照 = 記錄： amp。 ( + 1) 39。對(duì)于 Table 對(duì)象，當(dāng)記錄集創(chuàng)建后并使用下面的行時(shí)， 39。必須設(shè)置 Index 屬性 39。 = 記錄： amp。 ( * ( * )) + 1End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer) 39。這是放置驗(yàn)證代碼的地方 39。當(dāng)下面的動(dòng)作發(fā)生時(shí)，調(diào)用這個(gè)事件 Select Case Action Case vbDataActionMoveFirst Case vbDataActionMovePrevious Case vbDataActionMoveNext Case vbDataActionMoveLast Case vbDataActionAddNew Case vbDataActionUpdate Case vbDataActionDelete Case vbDataActionFind Case vbDataActionBookmark Case vbDataActionClose End Select = vbHourglassEnd Sub第 8 頁 共 35 頁
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1