貨物進(jìn)出庫管理系統(tǒng)—計算機(jī)畢業(yè)設(shè)計-資料下載頁

【導(dǎo)讀】隨著現(xiàn)代工業(yè)的發(fā)展，計算機(jī)信息管理系統(tǒng)越來越受到企業(yè)重視。達(dá)到了數(shù)據(jù)的一致性和安全性，且應(yīng)用程序功能完備，符合了貨物。進(jìn)出庫管理系統(tǒng)作為典型的信息管理系統(tǒng)的要求。同時簡單介紹了Visual. 企業(yè)物流管理中不可或缺的一部分。

　　

【正文】 ame 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 密碼已經(jīng)修改！ , vbOKOnly + vbExclamation, 修改結(jié)果 Unload Me End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = End Sub 對于貨物信息的瀏覽，主要采用了 MSFlexGrid 控件，它是一種 Active 控件，該控件提供了表格式界面，處理數(shù)據(jù)相當(dāng)靈活，具有只讀數(shù)據(jù)綁定、對 表格數(shù)據(jù)進(jìn)行顯示和操作、數(shù)據(jù)分組排序、 Data 控件賦值、文本自動換行等功能。但它無法對數(shù)據(jù)進(jìn)行動態(tài)輸入，只能提供瀏覽功能。 具體代碼如下： 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。設(shè)置表頭 (0, 0) = 貨物編碼 (0, 1) = 貨物名稱 (0, 2) = 類別 (0, 3) = 型號 (0, 4) = 單位 (0, 5) = 倉庫編碼 (0, 6) = 存放倉庫 (0, 7) = 入庫計劃單價 (0, 8) = 出庫計劃單價 (0, 9) = 原始倉庫 (0, 10) = 默認(rèn)貨位 (0, 11) = 警戒底線倉庫 (0, 12) = 警戒高線倉庫 For i = 0 To 12 39。設(shè)置所有表格對齊方式 (i) = 4 Next i For i = 0 To 11 39。設(shè)置每列寬度 (i) = 1400 Next i (12) = 2021 Set rs = transactSQL(sql) If = False Then 39。顯示信息內(nèi)容 = 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 ●貨物入庫登記模塊的實(shí)現(xiàn) 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 顯示當(dāng)前記錄位置 = Record: amp。 CStr() End Sub 圖 5－ 3 入庫登記窗口 Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。驗(yàn)證代碼置于此處 39。下列動作發(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 .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox End Sub Private Sub cmdRefresh_Click() 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。錯誤處理程序代碼置于此處 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 顯示當(dāng)前記錄位置 = Record: amp。 CStr() End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。驗(yàn)證代碼置于 此處 39。下列動作發(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