【文章內(nèi)容簡介】 End If Else MsgBox 對不起 沒有此用戶的信息, , 倉儲信息管理系統(tǒng) = = End If End IfEnd Sub 貨品管理模塊 在貨品管理模塊中，貨品入庫，貨品出庫和貨品盤點三個模塊是相似的模塊，有著相似的操作過程。以貨品入庫做為說明，實現(xiàn)代碼： Private Sub Cmd_Add_Click() For i = 0 To 5 39。單擊“添加”按鈕之后，清空文本框中的內(nèi)容 Text1(i).Text = Next i = select * from tb_in order by ID If 0 Then 39。將數(shù)據(jù)庫記錄移向最后一條 StrNum = Val((ID)) + 1 39。將入庫編號加1 Select Case Len(Trim(StrNum)) 39。位數(shù)不足則補0 Case 1 StrTemp = 00000 Case 2 StrTemp = 0000 Case 3 StrTemp = 000 Case 4 StrTemp = 00 Case 5 StrTemp = 0 Case 6 StrTemp = End Select Text1(0).Text = J amp。 Trim(StrTemp) amp。 Trim(Str(StrNum)) Else Text1(0).Text = J000001 39。Join的縮寫 加入的意思，給入庫編號賦一個初值 StrNum = 1 End If = True = FalseEnd Sub進入貨品入庫（），然后點擊添加按鈕，自動生成入庫編號，輸入貨品名稱、貨品規(guī)格、數(shù)量單價及備注，選擇計量單位，入庫日期，點擊保存，出現(xiàn)Msgbox 提醒“您確認(rèn)要保存該信息嗎？”（），點擊確定，出現(xiàn)Msgbox 提醒“信息保存成功”，點擊取消，則放棄入庫。圖 進入貨品入庫 貨品入庫界面 在貨品入庫的信息錄入中，如果信息輸入不完整，則無法完成入庫，會出現(xiàn)Msgbox提醒“貨品數(shù)量、單價或名稱不能為空值！”（）圖 貨品入庫輸入信息不完整 在貨品查詢模塊中，包括入庫查詢，出庫查詢和庫存查詢?nèi)齻€模塊。這三個模塊也是相似的，以出庫查詢作為說明，實現(xiàn)代碼： Private Sub Form_Load() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。運用API函數(shù)SetWindowPos，來實現(xiàn)使窗體置前的功能39。利用代碼連接數(shù)據(jù)庫 = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False = select * from tb_out 39。連接出庫信息數(shù)據(jù)表 = ( ) / 2 39。使窗體居中 = ( ) / 2End Sub 在貨品查詢下點擊出庫查詢進入出庫查詢（），在最下方“請輸入要查詢的貨品名稱”的Text中輸入要查詢的貨品的名稱，自動顯示出要查詢貨品的出庫記錄（）。圖 進入出庫查詢圖 出庫信息查詢界面 數(shù)據(jù)報表模塊 數(shù)據(jù)報表中包括出庫報表，庫存報表。為倉庫管理提供報表的打印和導(dǎo)出。方便對倉庫的情況進行了解。以庫存報表為例，實現(xiàn)代碼: Private Sub DataReport_Initialize() rtn = SetWindowPos(, 1, 0, 0, 0, 0, 3) 39。使窗體置前End SubPrivate Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer) = True導(dǎo)出End Sub打印 庫存信息明細(xì)表 在庫存信息明細(xì)表預(yù)覽里有個打印按鈕和導(dǎo)出按鈕（），點擊這兩個按鈕，分別能實現(xiàn)打印和導(dǎo)出功能。打印報表的功能必須在安裝打印機的情況下才能實現(xiàn)；點擊導(dǎo)出，出現(xiàn)對話框（）選擇保存到的文件夾，對文件命名，然后點擊保存按鈕。圖 “導(dǎo)出”對話框 操作員管理包括注冊新用戶和刪除現(xiàn)有用戶。（1）注冊新用戶（），在用戶管理對話框中選擇注冊新用戶，填寫完用戶名稱，職務(wù)，用戶密碼，確認(rèn)密碼，點擊確定，出現(xiàn),Msgbox提醒“注冊成功”。圖 注冊新用戶界面實現(xiàn)代碼： Private Sub Command1_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。運用API函數(shù)SetWindowPos，來實現(xiàn)取消窗體置前的功能 If = Or = Or = Then MsgBox 輸入的用戶注冊信息不完全!!, , 提示信息 Else = select * from tb_enter where M_Name=39。 + Text1 + 39。 39。判斷注冊的用戶名是否存在 If 0 Then MsgBox 該用戶名已經(jīng)存在,請您更換其它用戶名!, 48, 提示信息 = 39。如果該用戶名存在則重新輸入 = = = Else If = Then 39。判斷兩次輸入的密碼是否一致 = select * from tb_enter order by M_ID If 0 Then = Val((M_ID)) + 1 Else = 1 End If Call main 39。保存注冊信息 Set adoRs = (insert into tb_enter values( amp。 Text5 amp。 ,39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。,39。039。)) MsgBox 注冊成功!!, 48, 用戶注冊信息提示 = = = = Unload Me Else MsgBox 兩次輸入的密碼不一致,請您確認(rèn)后重新輸入, 48, 用戶注冊信息提示 = = End If End If End IfEnd Sub刪除現(xiàn)有的用戶（），在用戶管理中選擇刪除現(xiàn)有用戶，然后選擇要刪除的用戶名，點擊確定按鈕，Msgbox提醒“您確認(rèn)刪除該用戶嗎？”，點擊確認(rèn)則刪除，點擊取消，則取消刪除。圖 刪除現(xiàn)有的用戶的界面實現(xiàn)代碼： Private Sub Command2_Click() rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。運用API函數(shù)SetWindowPos，來實現(xiàn)取消窗體置前的功能 If = Name1 Then 39。如果是當(dāng)前登錄的用戶名，則不允許刪除 MsgBox 不能刪除當(dāng)前用戶名!!, 48, 提示信息 Else a = MsgBox(您確認(rèn)要刪除該用戶嗎?, 17, 刪除用戶信息提示) If a = vbOK Then = select * from tb_enter where M_Name=39。 + + 39。 If 0 Then 39。如果數(shù)據(jù)庫中存在該用戶信息，則將其刪除 MsgBox 用戶信息刪除成功, 64, 刪除用戶信息提示 Unload Me Else MsgBox 當(dāng)前數(shù)據(jù)庫中沒有可刪除的用戶信息, , 信息提示 End If End If End IfEnd Sub 密碼修改 為了安全起見，用戶可以對自己密碼進行修改。用戶進入密碼修改界面（）,輸入用戶名，舊密碼，新密碼以及確認(rèn)新密碼，點擊確認(rèn)按鈕，Msgbox提醒“密碼修改成功！”。 密碼修改界面實現(xiàn)代碼： Private Sub Command1_Click()rtn = SetWindowPos(, 2, 0, 0, 0, 0, 3) 39。運用API函數(shù)SetWindowPos，來實現(xiàn)取消窗體置前的功能Call main If = Or = Or = Or = Then MsgBox 輸入不能為空!!, 48, 提示信息 Else 39。判斷輸入的用戶名在數(shù)據(jù)庫中是否存在 = select * from tb_enter where M_Password =39。 amp。 amp。 39。 and M_name=39。 + + 39。 If 0 Then If Then 39。判斷數(shù)據(jù)的密碼是否正確 MsgB