【正文】 rl+F9….—….查看日志 Ctrl+F11….數(shù)據(jù)清除 Ctrl+F12….系統(tǒng)初始化 Shift+F1….—….備份數(shù)據(jù)庫(kù) Shift+F2….還原數(shù)據(jù)庫(kù) Shift+ F3….—….修改密碼 Shift+F5….用戶管理 Shift+F6幫助(amp。初始化各種權(quán)限類別 InitMenu 39。點(diǎn)擊“用戶管理”會(huì)彈出用戶管理窗口。點(diǎn)擊“工具欄”主窗體會(huì)隱藏工具欄。Private Sub M查看日志_Click() vbModal End Sub “打印報(bào)表”菜單下的“打印報(bào)損單”子菜單的Click事件的程序代碼如下。Private Sub M打印借出單_Click() Dim f As New 借出單 = = = False = False = False vbModal Unload fEnd Sub“打印報(bào)表”菜單下的“打印借入單”子菜單的Click事件的程序代碼如下。Private Sub M還原到昨天數(shù)據(jù)庫(kù)_Click() On Error GoTo failure If MsgBox(還原數(shù)據(jù)庫(kù)將導(dǎo)致現(xiàn)在數(shù)據(jù)庫(kù)數(shù)據(jù)丟失,您確信要還原數(shù)據(jù)庫(kù)嗎?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub If ResumeData(DataPath, + \) = 1 Then InitAfterResume 39。Private Sub M出庫(kù)單_Click() vbModalEnd Sub “查詢統(tǒng)計(jì)”菜單下的“單據(jù)查詢”子菜單的Click事件的程序代碼如下。Private Sub M供應(yīng)商_Click() vbModalEnd Sub “維護(hù)設(shè)置”菜單下的“換用戶登錄”子菜單的Click事件的程序代碼如下。點(diǎn)擊“借出單管理”會(huì)彈出借出單管理窗口Private Sub M借出單_Click() vbModalEnd Sub“單據(jù)中心”菜單下的“借入單管理”子菜單的Click事件的程序代碼如下。Private Sub M入庫(kù)單_Click() vbModalEnd Sub“維護(hù)設(shè)置”菜單下的“數(shù)據(jù)清除”子菜單的Click事件的程序代碼如下。刪除出庫(kù)單 = select * from 出庫(kù)單 DeleteRecordData 39。刪除供應(yīng)商 = select * from 供應(yīng)商 DeleteRecordData 39。增加一個(gè)管理員admin = select * from 用戶管理 (用戶名) = admin (用戶密碼) = (用戶權(quán)限) = 131071 39。點(diǎn)擊“新增借出單”會(huì)彈出新增借出單窗口。點(diǎn)擊“職員操作統(tǒng)計(jì)”會(huì)彈出職員操作統(tǒng)計(jì)窗口。該屬性被設(shè)置后，可以向工具欄按鈕中添加圖形。 設(shè)置工具欄屬性 向窗體添加工具欄控件后，然后按下列步驟操作：（1）設(shè)置Align屬性值為1，即工具攔放在窗體的頂部。單擊，單擊“插入”按鈕后，“索引”文本框中出現(xiàn)數(shù)字1，其它輸入框也變?yōu)榭捎?。圖56主窗體的狀態(tài)欄在主窗體中為狀態(tài)欄添加的代碼如下：Private Sub Timer1_Timer() If Len((1).Text) (1).width / 80 Then (1).Text = + (1).Text Else (1).Text = LTrim((1).Text) End If End Sub6 系統(tǒng)模塊設(shè)計(jì) 基本信息模塊設(shè)計(jì)基本信息模塊主要包括：●貨物信息●倉(cāng)庫(kù)信息●供應(yīng)商信息●往來(lái)客戶信息●庫(kù)存狀況信息 創(chuàng)建貨物信息窗體貨物信息窗體可以進(jìn)行貨物管理，如：增加貨物類別、貨物種類，對(duì)貨物基本信息可以進(jìn)行編輯。圖63庫(kù)存狀況信息窗體由于篇幅有限，供應(yīng)商信息窗體和窗客戶信息窗體這里叢略。圖64 新增入庫(kù)單窗體 創(chuàng)建入庫(kù)單管理窗體入庫(kù)單的管理對(duì)于企業(yè)倉(cāng)庫(kù)管理尤為重要，它的界面設(shè)計(jì)如圖65所示。圖66月盤(pán)點(diǎn)窗體 查詢統(tǒng)計(jì)模塊設(shè)計(jì)查詢統(tǒng)計(jì)模塊主要完成的功能有：●單據(jù)查詢●庫(kù)存查詢●貨物出入統(tǒng)計(jì)●職員操作統(tǒng)計(jì) 創(chuàng)建單據(jù)查詢窗體單據(jù)的查詢，支持模糊查詢。界面設(shè)計(jì)如圖610所示。對(duì)于系統(tǒng)產(chǎn)生的無(wú)用數(shù)據(jù)可以刪除。 還原數(shù)據(jù)庫(kù)和還原到昨天數(shù)據(jù)庫(kù)同時(shí)也可以換用戶登錄，但此時(shí)會(huì)重新啟動(dòng)數(shù)據(jù)庫(kù)。同學(xué)們之間的交流也十分重要，交流就是進(jìn)步，有時(shí)進(jìn)會(huì)帶你走入一種柳暗花明的欣喜境界。由此我就想到了在做這個(gè)系統(tǒng)時(shí)，有的同學(xué)用了ACCESS ，有的同學(xué)用了SQL 等來(lái)建不同的數(shù)據(jù)庫(kù)，這樣就導(dǎo)致有的是系統(tǒng)自帶的代碼，而有的則是我們寫(xiě)進(jìn)去的純代碼，當(dāng)然也就出現(xiàn)了各種各樣的問(wèn)題。 用戶管理對(duì)登陸用戶的管理，可以修改用戶名，操作權(quán)限，新增，刪除用戶等。 備份數(shù)據(jù)庫(kù)至文件(加密)。它的界面設(shè)計(jì)如圖613。 圖612 打印月盤(pán)點(diǎn)窗體 維護(hù)設(shè)置模塊設(shè)計(jì) 維護(hù)設(shè)置模塊是為了倉(cāng)庫(kù)管理系統(tǒng)的穩(wěn)定性和安全性而設(shè)計(jì)的，它完成的主要功能有： ●公司和職員信息 ●查看日志 ●數(shù)據(jù)清除 ●系統(tǒng)初始化 ●備份數(shù)據(jù)庫(kù) ●還原數(shù)據(jù)庫(kù)（包括還原到昨天數(shù)據(jù)庫(kù)） ●用戶管理 公司和職員信息它的界面設(shè)計(jì)如圖69所示。它對(duì)于企業(yè)的管理者和決策者非常重要。保存完后可以打印，當(dāng)然也可以以后再打印，入庫(kù)貨物數(shù)量要按庫(kù)存最高限量確定。圖62 倉(cāng)庫(kù)信息窗體 創(chuàng)建庫(kù)存狀況信息窗體通過(guò)限定倉(cāng)庫(kù)查看倉(cāng)庫(kù)庫(kù)存狀況，可以清楚地知道企業(yè)各個(gè)倉(cāng)庫(kù)的庫(kù)存情況。狀態(tài)欄的添加比較簡(jiǎn)單，這里不再詳細(xì)說(shuō)明。另外選定了圖形列表控件后，ButtonHeight和ButtonWidth屬性值，由圖形的大小決定，用戶不要改變其設(shè)置。2 工具欄控件常用事件 工具欄控件常用事件主要有ButtonClick和Click兩個(gè)。 Align：讀出或設(shè)置對(duì)象在窗體中的顯示位置，它有5個(gè)值可供選擇，用來(lái)設(shè)置工具欄放置在窗體的上部、下部、左邊或右邊等。點(diǎn)擊“進(jìn)行月盤(pán)點(diǎn)”會(huì)彈出月盤(pán)點(diǎn)窗口。點(diǎn)擊“新增調(diào)撥單”會(huì)彈出新增調(diào)撥單窗口。刪除系統(tǒng)日志 = select * from 系統(tǒng)日志 DeleteRecordData 39。刪除盤(pán)點(diǎn)單 = select * from 盤(pán)點(diǎn)單 DeleteRecordData 39。Private Sub M系統(tǒng)初始化_Click() If MsgBox(這將刪除您所有的數(shù)據(jù)信息,整個(gè)數(shù)據(jù)庫(kù)將全部清空,您確信要系統(tǒng)初始化嗎?, vbYesNo Or vbExclamation) = vbNo Then Exit Sub On Error Resume Next 39。Private Sub M庫(kù)存狀況_Click() vbModalEnd Sub “單據(jù)中心”菜單下的“入庫(kù)單管理”子菜單的Click事件的程序代碼如下。點(diǎn)擊“貨物出入統(tǒng)計(jì)”會(huì)彈貨物出入統(tǒng)計(jì)窗口Private Sub M貨物出入統(tǒng)計(jì)_Click() vbModalEnd Sub “基本信息”菜單下的“貨物信息”子菜單的Click事件的程序代碼如下。Private Sub M公司信息_Click() vbModalEnd Sub “基本信息”菜單下的“供應(yīng)商信息”子菜單的Click事件的程序代碼如下。Private Sub M倉(cāng)庫(kù)信息_Click() vbModalEnd Sub “單據(jù)中心”菜單下的“出庫(kù)單管理”子菜單的Click事件的程序代碼如下。Private Sub M打印月盤(pán)點(diǎn)_Click() vbModalEnd Sub “維護(hù)設(shè)置”菜單下的“還原到昨天數(shù)據(jù)庫(kù)”子菜單的Click事件的程序代碼如下。Private Sub M打印調(diào)拔單_Click() Dim f As New 調(diào)拔單 = = = False = False vbModal Unload fEnd Sub “打印報(bào)表”菜單下的“打印借出單”子菜單的Click事件的程序代碼如下。寫(xiě)入系統(tǒng)日志 Elsefailure: MsgBox 備份失敗! End If End With End Sub “維護(hù)設(shè)置”菜單下的“查看日志”子菜單的Click事件的程序代碼如下。點(diǎn)擊“狀態(tài)欄”主窗體會(huì)隱藏狀態(tài)欄。點(diǎn)擊“修改密碼”會(huì)彈出修改當(dāng)前用戶密碼窗口。如果今天從未有人登陸,備份數(shù)據(jù)庫(kù) If InStr(1, t, Str(Date)) 1 Then BackupData DataPath, + \ End If Else BackupData DataPath, + \ End If (登陸系統(tǒng)) 39。C)….單據(jù)查詢 Ctrl+T….庫(kù)存查詢 Ctrl+U….—….貨物出入統(tǒng)計(jì) Ctrl+V….職員操作統(tǒng)計(jì) Ctrl+W打印報(bào)表….打印入庫(kù)單 Ctrl+X….打印出庫(kù)單 Ctrl+Y….打印借入單 Ctrl+Z….打印借出單 Ctrl+F1….打印調(diào)撥單 Ctrl+F2….打印報(bào)損單 Ctrl+F3….—….打印月盤(pán)點(diǎn) Ctrl+F4….—….頁(yè)面設(shè)置 Ctrl+F5視圖(amp。 訪問(wèn)鍵，要在菜單編輯器中給菜單控件賦值訪問(wèn)鍵，先選取要賦值訪問(wèn)鍵的菜單項(xiàng)，在該菜單項(xiàng)“Caption”框中，要在作為訪問(wèn)鍵字符的前面鍵入一個(gè)（amp。創(chuàng)建的菜單標(biāo)題將顯示在窗體上。訪問(wèn)字符通常是菜單標(biāo)題的第一個(gè)字母；每個(gè)菜單標(biāo)題不能用同一個(gè)字符。（2） 從菜單欄的“Tools”菜單中，選取“Menu Editor”并單擊（或在“工具欄”上單擊“Menu Editor”按鈕）。 要打開(kāi)菜單編輯器，在“Tools”菜單中選擇“Menu Editor”選項(xiàng)。當(dāng)單擊一個(gè)菜單標(biāo)題，包含菜單項(xiàng)目的列表就被拉下來(lái)。窗體的屬性設(shè)置見(jiàn)表5－1。表41為貨物基本信息表。出庫(kù)信息實(shí)體編號(hào)經(jīng)辦人編號(hào)入庫(kù)時(shí)間、單價(jià)、數(shù)量客戶編號(hào)圖44 出庫(kù)信息實(shí)體ER圖借入信息實(shí)體ER圖如圖45所示?！裼脩艄芾硇畔ⅲǖ臄?shù)據(jù)項(xiàng)有用戶名、用戶密碼、用戶權(quán)限等。仔細(xì)分析調(diào)查有關(guān)倉(cāng)庫(kù)管理信息需求的基礎(chǔ)上，得到如圖4－1所示的本系統(tǒng)所處理的數(shù)據(jù)流程。●打印報(bào)表的生成。●刪除不必要的管理冗余，實(shí)現(xiàn)管理規(guī)范化、科學(xué)化。進(jìn)貨時(shí)經(jīng)檢查合同確認(rèn)為有效托收后，進(jìn)行驗(yàn)收入庫(kù)，填寫(xiě)入庫(kù)單，進(jìn)行入庫(kù)登記。效益方面：為企業(yè)開(kāi)發(fā)一個(gè)完整、合理的倉(cāng)庫(kù)管理系統(tǒng)，可大大節(jié)余人力，以前需要多人干的工作，使用本系統(tǒng)只需一個(gè)人或幾個(gè)人就能完成，且工作量和勞動(dòng)強(qiáng)度大大降低。21世紀(jì)是計(jì)算機(jī)的時(shí)代，它必然取代一部分人的工作，高科技的監(jiān)控系統(tǒng)進(jìn)入社會(huì)生活的方方面面是發(fā)展的趨勢(shì)。必須記住，可行性研究的目的不是解決問(wèn)題，而是確定問(wèn)題是否值得去解。VB簡(jiǎn)單易學(xué)，界面友好，容易使用。VB為用戶提供了大量“控件”，這些“控件”對(duì)于熟悉“Windows應(yīng)