【正文】 下列動作發(fā)生時該事件被調(diào)用 Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With
。 CStr() End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。想要忽略錯誤，注釋掉下一行 39。只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr Exit Sub RefreshErr: MsgBox End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr adAffectAll Exit Sub UpdateErr: MsgBox End Sub Private Sub cmdClose_Click() Unload Me End Sub ●出庫登記模塊的實(shí)現(xiàn) Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub 圖 5－ 4 出庫登記窗口 Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。驗(yàn)證代碼置于此處 39。為這個 recordset 顯示當(dāng)前記錄位置 = Record: amp。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。錯誤處理程序代碼置于此處 39。設(shè)置每列寬度 (i) = 1400 Next i (12) = 2021 Set rs = transactSQL(sql) If = False Then 39。設(shè)置表頭 (0, 0) = 貨物編碼 (0, 1) = 貨物名稱 (0, 2) = 類別 (0, 3) = 型號 (0, 4) = 單位 (0, 5) = 倉庫編碼 (0, 6) = 存放倉庫 (0, 7) = 入庫計(jì)劃單價 (0, 8) = 出庫計(jì)劃單價 (0, 9) = 原始倉庫 (0, 10) = 默認(rèn)貨位 (0, 11) = 警戒底線倉庫 (0, 12) = 警戒高線倉庫 For i = 0 To 12 39。但它無法對數(shù)據(jù)進(jìn)行動態(tài)輸入，只能提供瀏覽功能。 39。 sql = sql amp。 39。 amp。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！ , vbOKOnly + vbExclamation, 警告 = = Else 39。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。) transactSQL (sql) MsgBox 添加成功！ , vbOKOnly + vbExclamation, 添加結(jié)果 39。 PassWord amp。,39。 UserName sql = sql amp。添加用戶 sql = insert into 用戶 (UserID,UserPWD) values(39。判斷兩次密碼是否相同 MsgBox 兩 次輸入的密碼不一致，請重新輸入密碼！ , vbOKOnly + vbExclamation, 警告 = = Exit Sub ElseIf Trim() = Then 39。 Set rs = transactSQL(sql) If = False Then 39。 UserName amp。判斷用戶名稱是否為空 MsgBox 請輸入用戶名稱 !, vbOKOnly + vbExclamation, 警告 Exit Sub Else sql = select * from 用戶 where UserID=39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 MsgBox 身份正確 , , 登陸信息 Unload Me 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。, my, adOpenKeyset, adLockOptimistic If = True And = True Then MsgBox 查無此人 , , 登陸信息 Else If myrs(userPWD) = denlu_pass Then 39。 SELECT * FROM [用戶 ] where userID=39。調(diào)入數(shù)據(jù)備份 a5_Click End Select End Sub Private Sub x_Click() End End Sub ● 登陸模塊的實(shí)現(xiàn) Private Sub cmdLogin_Click() denlu_name = denlu_pass = Dim my As New Dim myrs As New Set myrs = New Provider=。調(diào)入倉庫匯總 f1_Click Case Is = zhcx 39。調(diào)入 入庫登記 c1_Click Case Is = ck 39。 / amp。 / amp。 / amp。 / amp。調(diào)入數(shù)據(jù)備份 Load main_sjbf = False End Sub Private Sub a6_Click() 39。執(zhí)行命令 iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error: MsgBox 查詢錯誤： amp。打開連接 If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), con, adOpenKeyset, adLockOptimistic Set transactSQL = rs 39。創(chuàng)建記錄集 On Error GoTo TransactSQL_Error strConnection = Provider=。添加執(zhí)行 SQL語句的函數(shù) Public Function transactSQL(ByVal sql As String) As Dim con As Dim rs As Dim strConnection As String Dim strArray() As String 表 11 出庫登記 _h 表 12 出庫登記 _d Set con = New 39。 程序源代碼 程序?qū)崿F(xiàn)的部分代碼如下： ●公共模塊 Public date1 As String Public date2 As String Public gUserName As String 39。 通過運(yùn)行程序首先進(jìn)入歡迎界面和登陸窗體，通過輸入密碼，驗(yàn)證身份后進(jìn)入主窗體，在主窗體上有 10 個菜單項(xiàng)，分別對應(yīng)各自的功能模塊窗體，包括系統(tǒng)，倉庫管理，入庫管理，出庫管理，盤存管理，綜合管理，附項(xiàng)管理，歷史數(shù)據(jù)管理，打印和查詢。 ● 入庫登記統(tǒng)計(jì)表 入庫登記 _合計(jì) ● 貨物入庫年度統(tǒng)計(jì)表 入庫登記 _n ● 供貨單位年度供貨金額統(tǒng)計(jì)表 入庫登記 _w ● 倉庫匯總表 倉庫 ● 出庫登記統(tǒng)計(jì)表 出庫登記 _合計(jì) ● 貨物出庫年度統(tǒng)計(jì)表 出庫登記 _h ● 收貨單位年度收貨金額統(tǒng)計(jì)表 出庫登記 _d 入庫登記 _合計(jì)表與出庫登記 _合計(jì)分別是以入庫登記表和出庫登記表為基礎(chǔ)的，所以此處不再描述；倉庫匯總表主要由出庫表和入庫表建立關(guān)系獲得。 幫助：本系統(tǒng)的幫助信息，包括應(yīng)用程序的版本信息； 貨物信息管理：對倉庫里的貨物進(jìn)行登記； 貨物倉庫管理：管理倉庫的倉庫情況； 短線貨物管理：對倉庫里短線的貨物進(jìn)行登記，以便及時采購補(bǔ)貨； 超儲貨物管理：對倉庫里超儲的貨物進(jìn)行登記，控制倉庫量，減少進(jìn)貨； 入庫登記管理：能對貨物的入庫登記，刪除，更改等； 入庫期間統(tǒng)計(jì)：貨物入庫期間年度的統(tǒng)計(jì)； 供貨單位期間供貨金額統(tǒng)計(jì)：對貨物供應(yīng)的金額進(jìn)行統(tǒng)計(jì)； 對貨物出庫期間的年度統(tǒng)計(jì)，出庫登記，及收獲單位金額統(tǒng)計(jì)等； 對盤存 貨物 信息的盤存錄入； 可根據(jù)同一 貨物 的出入庫情況，對倉庫情況的匯總； 對供貨單位情況，經(jīng)辦人員，收貨單位情況，倉庫信息進(jìn)行登記管理，可進(jìn)行添加，刪除等操作； 對歷史倉庫，歷史出庫，歷史出庫情況進(jìn)行管理； 可根據(jù)輸入的條件，對 貨物 的入庫信息，倉庫信息等進(jìn)行簡單查詢和組合查詢。系統(tǒng)集輸入、維護(hù)、查詢、統(tǒng)計(jì)和各種處理為一體，信息導(dǎo)入導(dǎo)出方便共享。操作快捷、方便。 ， 選用具有大型數(shù)據(jù)庫安全機(jī)制的 數(shù)據(jù)庫系統(tǒng) ，提供各種級別的數(shù)據(jù)保護(hù)和權(quán)限控制方式，