貨物進出庫管理系統—免費畢業設計-資料下載頁

【導讀】隨著現代工業的發展，計算機信息管理系統越來越受到企業重視。達到了數據的一致性和安全性，且應用程序功能完備，符合了貨物。進出庫管理系統作為典型的信息管理系統的要求。同時簡單介紹了Visual. 企業物流管理中不可或缺的一部分。

　　

【正文】 me As String Private Sub Command1_Click() Dim sql As String Dim rs As If Trim() = Then 39。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。判斷是否輸入新密碼 MsgBox 請輸入新密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf Trim() Trim() Then 39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！ , vbOKOnly + vbExclamation, 警告 = = Else 39。修改密碼 sql = update 用戶 set UserPWD = 39。 amp。 NewPWD amp。 39。where UserID=39。 sql = sql amp。 gUserName amp。 39。 transactSQL (sql) MsgBox 密碼已經修改！ , vbOKOnly + vbExclamation, 修改結果 Unload Me End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = End Sub 對于貨物信息的瀏覽，主要采用了 MSFlexGrid 控件，它是一種 Active 控件，該控件提供了表格式界面，處理數據相當靈活，具有只讀數據綁定、對 表格數據進行顯示和操作、數據分組排序、 Data 控件賦值、文本自動換行等功能。但它無法對數據進行動態輸入，只能提供瀏覽功能。 具體代碼如下： Option Explicit Private Sub Command1_Click() End Sub Private Sub Form_Load() Dim sql As String sql = select * from 貨物信息 order by 貨物編碼 createList (sql) End Sub Public Sub createList(sql As String) Dim rs As New 圖 5－ 2 貨物信息界面 Dim i As Integer Dim rsGird As MSFlexGrid 39。設置表頭 (0, 0) = 貨物編碼 (0, 1) = 貨物名稱 (0, 2) = 類別 (0, 3) = 型號 (0, 4) = 單位 (0, 5) = 倉庫編碼 (0, 6) = 存放倉庫 (0, 7) = 入庫計劃單價 (0, 8) = 出庫計劃單價 (0, 9) = 原始倉庫 (0, 10) = 默認貨位 (0, 11) = 警戒底線倉庫 (0, 12) = 警戒高線倉庫 For i = 0 To 12 39。設置所有表格對齊方式 (i) = 4 Next i For i = 0 To 11 39。設置每列寬度 (i) = 1400 Next i (12) = 2021 Set rs = transactSQL(sql) If = False Then 39。顯示信息內容 = 1 While Not = + 1 ( 1, 0) = rs(0) ( 1, 1) = rs(1) ( 1, 2) = rs(2) ( 1, 3) = rs(3) ( 1, 4) = rs(4) ( 1, 5) = rs(5) ( 1, 6) = rs(6) ( 1, 7) = rs(7) ( 1, 8) = rs(8) ( 1, 9) = rs(9) ( 1, 10) = rs(10) ( 1, 11) = rs(11) ( 1, 12) = rs(12) Wend End If End Sub ●貨物入庫登記模塊的實現 Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub 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。錯誤處理程序代碼置于此處 39。想要忽略錯誤，注釋掉下一行 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。為這個 recordset 顯示當前記錄位置 = Record: amp。 CStr() End Sub 圖 5－ 3 入庫登記窗口 Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。驗證代碼置于此處 39。下列動作發生時該事件被調用 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 .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox End Sub Private Sub cmdRefresh_Click() 39。只有多用戶應用程序需要 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 ●出庫登記模塊的實現 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。錯誤處理程序代碼置于此處 39。想要忽略錯誤，注釋掉下一行 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。為這個 recordset 顯 示當前記錄位置 = Record: amp。 CStr() End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。驗證代碼置于此處 39。下列動作發生時該事件被調用 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