【導(dǎo)讀】畢業(yè)設(shè)計(jì)（論文）--企業(yè)倉(cāng)庫(kù)管理系統(tǒng)設(shè)計(jì)。隨著企業(yè)管理信息化的發(fā)展網(wǎng)絡(luò)及計(jì)算機(jī)的引入使管理躍上了一個(gè)新的發(fā)。展平臺(tái)企業(yè)的各項(xiàng)管理都將向信息化方向擴(kuò)展倉(cāng)庫(kù)的管理對(duì)于企業(yè)來(lái)說(shuō)尤為重。倉(cāng)庫(kù)管理系統(tǒng)是一個(gè)不可缺少的部分它的內(nèi)容對(duì)于的決策者和管理者來(lái)說(shuō)。一直以來(lái)人們使用傳統(tǒng)人工的方式管理這種管理方式存在著許多缺點(diǎn)如效率低。保密性差另外時(shí)間長(zhǎng)將產(chǎn)生大量的文件和數(shù)據(jù)這對(duì)于查找更新和維護(hù)都帶來(lái)了。不少的困難作為計(jì)算機(jī)應(yīng)用的一部分使用計(jì)算機(jī)對(duì)信息進(jìn)行管理有著手工管理。所無(wú)法比擬的優(yōu)點(diǎn)例如檢索迅速查找方便可靠性高存儲(chǔ)量大保密性好壽命長(zhǎng)成。倉(cāng)庫(kù)管理系統(tǒng)是為了實(shí)現(xiàn)企業(yè)產(chǎn)品管理的系統(tǒng)化規(guī)范化和自動(dòng)化從而提高。于管理人員的工作疏忽以及管理質(zhì)量問(wèn)題所造成的各種錯(cuò)誤為及時(shí)準(zhǔn)確高效的。完成倉(cāng)庫(kù)管理提供了強(qiáng)有力的工具和管理手段倉(cāng)庫(kù)管理系統(tǒng)是一個(gè)中小型數(shù)據(jù)。由基本信息單據(jù)中心查詢統(tǒng)計(jì)報(bào)表打印維護(hù)設(shè)置幫助等模塊組成。創(chuàng)建貨物出入統(tǒng)計(jì)窗體65

　　

【正文】 fMainesh DeleteRecordData fMainrdset 刪除庫(kù)存狀況 fMainrdSource select from 庫(kù) 存狀況 fMainesh DeleteRecordData fMainrdset 刪除盤(pán)點(diǎn)單 fMainrdSource select from 盤(pán)點(diǎn)單 fMainesh DeleteRecordData fMainrdset 刪除客戶 fMainrdSource select from 客戶 fMainesh DeleteRecordData fMainrdset 刪除供應(yīng)商 fMainrdSource select from 供應(yīng)商 fMainesh DeleteRecordData fMainrdset 刪除貨物信息 fMainrdSource select from 貨物信息 fMainesh DeleteRecordData fMainrdset 刪除貨物類(lèi)別 fMainrdSource select from 貨物類(lèi)別 fMainesh DeleteRecordData fMainrdset 刪除倉(cāng)庫(kù) fMainrdSource select from 倉(cāng)庫(kù) fMainesh DeleteRecordData fMainrdset 刪除職員信息 fMainrdSource select from 職員信息 fMainesh DeleteRecordData fMainrdset 刪除公司信息 fMainrdSource select from 公司信息 fMainesh DeleteRecordData fMainrdset 刪除系統(tǒng)日志 fMainrdSource select from 系統(tǒng)日志 fMainesh DeleteRecordData fMainrdset 刪除用戶管理 fMainrdSource select from 用戶管理 fMainesh DeleteRecordData fMainrdset 增加一個(gè)管理員 admin fMainrdSource select from 用戶管理 fMainrdsetAddNew fMainrdsetFields 用戶名 admin fMainrdsetFields 用戶密碼 fMainrdsetFields 用戶權(quán)限 131071 fMainrdsetupdate fMainesh 更改當(dāng)前登陸用戶信息 UserName admin UserPas Purview 131071 Dim i As Integer For i 0 To 16 權(quán)限類(lèi)別 i 1 Next MsgBox 系統(tǒng)初始化成功 End Sub 單據(jù)中心菜單下的新增報(bào)損單子菜單的 Click 事件的程 序代碼如下點(diǎn)擊新增報(bào)損單會(huì)彈出新增報(bào)損單窗口 Private Sub M 新增報(bào)損單 _Click 新增報(bào)損單 Show vbModal End Sub 單據(jù)中心菜單下的新增出庫(kù)單單子菜單的 Click 事件的程序代碼如下點(diǎn)擊新增出庫(kù)單會(huì)彈出新增報(bào)損單窗口 Private Sub M 新增出庫(kù)單 _Click 新增出庫(kù)單 Show vbModal End Sub 單據(jù)中心菜單下的新增調(diào)撥單子菜單的 Click 事件的程序代碼如下點(diǎn)擊新增調(diào)撥單會(huì)彈出新增調(diào)撥單窗口 Private Sub M 新增調(diào)拔單 _Click 新增調(diào)拔單 Show vbModal End Sub 單據(jù)中心菜單下的新增借出單子菜單的 Click 事件的程序代碼如下點(diǎn)擊新增借出單會(huì)彈出新增借出單窗口 Private Sub M 新增借出單 _Click 新增借出單 Show vbModal End Sub 單據(jù)中心菜單下的新增借入單子菜單的 Click 事件的程序代碼如下點(diǎn)擊新增借入單會(huì)彈出新增借入單窗口 Private Sub M 新增借入單 _Click 新增借入單 Show vbModal End Sub 單據(jù)中心菜單下 的新增入庫(kù)單子菜單的 Click 事件的程序代碼如下點(diǎn)擊新增入庫(kù)單會(huì)彈出新增入庫(kù)單窗口 Private Sub M 新增入庫(kù)單 _Click 新增入庫(kù)單 Show vbModal End Sub 單據(jù)中心菜單下的進(jìn)行月盤(pán)點(diǎn)子菜單的 Click 事件的程序代碼如下點(diǎn)擊進(jìn)行月盤(pán)點(diǎn)會(huì)彈出月盤(pán)點(diǎn)窗口 Private Sub M 月盤(pán)點(diǎn) _Click 月盤(pán)點(diǎn) Show vbModal End Sub 查詢統(tǒng)計(jì)菜單下的職員操作統(tǒng)計(jì)子菜單的 Click 事件的程序代碼如下點(diǎn)擊職員操作統(tǒng)計(jì)會(huì)彈出職員操作統(tǒng)計(jì)窗口 Private Sub M 職員操作統(tǒng)計(jì) _Click 職員操作統(tǒng)計(jì) Show vbModal End Sub 維護(hù)設(shè)置菜單下職員信息子菜單的 Click 事件程序代碼點(diǎn)擊會(huì)進(jìn)入職員信息窗口 Private Sub M 職員信息 _Click 職員信息 Show vbModal End Sub 54 創(chuàng)建主窗體工具欄 同樣熟悉 Windows 下應(yīng)用程序的用戶對(duì)工具欄也一定有比較深的印象在本系統(tǒng)中它是用工具欄控件產(chǎn)生的工具欄控件在主窗體上產(chǎn)生了很多按鈕對(duì)象按鈕上顯示了文字圖形下面首先簡(jiǎn)要介紹工具欄控件的常 用屬性和事件 工具欄控件常用屬性和事件 1 工具欄控件的常用屬性 工具欄控件常用的屬性有如下幾個(gè)同時(shí)也是本系統(tǒng)中用到的幾個(gè)屬性主要有 AlignImageListIndexToolTipTextShowTipsWrappable Image 等 Align 讀出或設(shè)置對(duì)象在窗體中的顯示位置它有 5 個(gè)值可供選擇用來(lái)設(shè)置工具欄放置在窗體的上部下部左邊或右邊等 ImageList讀出和設(shè)置與本控件相關(guān)聯(lián)的 ImageList控件該屬性被設(shè)置后可以向工具欄按鈕中添加圖形 Index 控件名相同時(shí)用 來(lái)產(chǎn)生一個(gè)數(shù)組標(biāo)識(shí)號(hào) ToolTipText 設(shè)置鼠標(biāo)指針在工具欄某一按鈕暫停時(shí)所顯示的提示文本 ShowTips 設(shè)置是否顯示工具欄按鈕上的提示文本 Wrappable 設(shè)置如果窗口尺寸發(fā)生變化是否自動(dòng)包括本控件按鈕 Image用來(lái)設(shè)置按鈕中顯示的圖形以 012等來(lái)標(biāo)識(shí) ImageList控件中的圖形將按順序賦給不同的按鈕 2 工具欄控件常用事件 工具欄控件常用事件主要有 ButtonClick 和 Click 兩個(gè)對(duì)于ButtonClick 事件當(dāng)單擊本控件之上的一個(gè)按鈕時(shí)該事件過(guò)程被執(zhí)行對(duì)于 Click當(dāng)單擊本控件 時(shí)進(jìn)行檢測(cè) 設(shè)置工具欄屬性 向窗體添加工具欄控件后然后按下列步驟操作 1 設(shè)置 Align 屬性值為 1 即工具攔放在窗體的頂部 2 用鼠標(biāo)右鍵單擊工具欄對(duì)象從彈出的菜單中選擇屬性菜單項(xiàng)彈出如圖 54所示的屬性頁(yè)對(duì)話框 圖 54 工具欄屬性對(duì)話框 3單擊如圖 54所示的圖象列表列表框右邊的下拉箭頭從下拉的列表中選擇ImageList 這樣 ImageList 控件就和工具欄控件發(fā)生了聯(lián)系 注意工具欄控件按鈕使用圖形所以要求必須已引入了 ImageList 控件否則圖 54 中的圖像列表框?qū)⒉荒茉O(shè)置成 ImageList 另外選定了圖形列表控件后ButtonHeight 和 ButtonWidth 屬性值由圖形的大小決定用戶不要改變其設(shè)置 4單擊圖 54中按鈕選項(xiàng)卡屬性頁(yè)對(duì)話框如圖 55所示單擊單擊插入按鈕后索引文本框中出現(xiàn)數(shù)字 1 其它輸入框也變?yōu)榭捎眠@樣就可以設(shè)置其上的屬性若圖像輸入框設(shè)為 1即 ImageList控件的第一個(gè)圖形作為按鈕 1的圖形重復(fù)上述步驟添加其它按鈕到工具欄上并設(shè)置相應(yīng)屬性 圖 54 工具欄屬性對(duì)話框 通過(guò)以上步驟創(chuàng)建的主窗體工具欄如圖 55 所示 圖 55 主窗體工具欄 在主窗體中為工具欄所加的代碼如下 Private Sub tbToolBar_ButtonClick ByVal Button As MSComctlLibButton Select Case Buttonindex Case 1 M 庫(kù)存狀況 _Click Case 4 M 月盤(pán)點(diǎn) _Click Case 9 M 打印月盤(pán)點(diǎn) _Click Case 11 M 查看日志 _Click Case 13 mnuHelpAbout_Click End Select End Sub Private Sub tbToolBar_ButtonMenuClick ByVal ButtonMenu As MSComctlLibButtonMenu Select Case ButtonMenuKey Case 入庫(kù)單 M 新增入庫(kù)單 _Click Case 出庫(kù)單 M 新增出庫(kù)單 _Click Case 借入單 M 新增借入單 _Click Case 借出單 M 新增借出單 _Click Case 調(diào)拔單 M 新增調(diào)拔單 _Click Case 報(bào)損單 M 新增報(bào)損單 _Click Case 單據(jù) M 單據(jù)查詢 _Click Case 庫(kù)存 M 庫(kù)存查詢 _Click Case 貨物出入 M 貨物出入統(tǒng)計(jì) _Click Case 職員操作 M 職員操作統(tǒng)計(jì) _Click Case 月盤(pán)點(diǎn) M 打印月盤(pán)點(diǎn) _Click End Select End Sub 55 設(shè)置主窗體狀態(tài)欄 狀態(tài)欄一般位于窗體的底部用于向用戶顯示系統(tǒng)的一些狀態(tài)比如系統(tǒng)信息當(dāng)前用戶時(shí)間日期等 狀態(tài)欄的添加比較簡(jiǎn)單這里不再詳細(xì)說(shuō)明但 本窗體的狀態(tài)欄如圖 56 所示 圖 56 主窗體的狀態(tài)欄 在主窗體中為狀態(tài)欄添加的代碼如下 Private Sub Timer1_Timer If Len sbStatusBarPanels 1 Text sbStatusBarPanels 1 width 80 Then sbStatusBarPanels 1 Text sbStatusBarPanels 1 Text Else sbStatusBarPanels 1 Text LTrim sbStatusBarPanels 1 Text End If End Sub 6 系統(tǒng)模塊設(shè)計(jì) 61 基本信息模塊設(shè)計(jì) 基本信息模塊主要包括 ●貨物信息 ●倉(cāng)庫(kù)信息 ●供應(yīng)商信息 ●往來(lái)客戶信息 ●庫(kù)存狀況信息 創(chuàng)建貨物信息窗體 貨物信息窗體可以進(jìn)行貨物管理增加貨物類(lèi)別貨物種類(lèi)對(duì)貨物基本信息可以進(jìn)行編輯除了 貨物編號(hào) 外對(duì)貨物刪除會(huì)進(jìn)行智能判斷如果其它表單用了該貨物信息將不能被刪除新增倉(cāng)庫(kù)不能同名通過(guò) 更換保管員 按鈕來(lái)更換保管員不能直接進(jìn)行編輯倉(cāng)庫(kù)名稱地點(diǎn)備注可以直接 編限定倉(cāng)庫(kù)查看倉(cāng)庫(kù)庫(kù)存狀況 62 單據(jù)中心模塊設(shè)計(jì) 單據(jù)中心模塊主要完成的功能有 ●新增單據(jù)包括入庫(kù)單出庫(kù)單借入單借出單調(diào)撥單報(bào)損單 ●單據(jù)管理包括入庫(kù)單出庫(kù)單借入單借出單調(diào)撥單報(bào)損單 ●進(jìn)行月盤(pán)點(diǎn) 創(chuàng)建新增入庫(kù)單窗體 入庫(kù)單是采購(gòu)人員購(gòu)買(mǎi)貨物時(shí)所填寫(xiě)的單子是為了完成貨物的正確入庫(kù)才用到的在新增入庫(kù)單窗體中貨物編號(hào)供應(yīng)商倉(cāng)庫(kù)經(jīng)辦人均可通過(guò)單擊相關(guān)的數(shù)據(jù)框來(lái)選擇數(shù)據(jù)選擇框會(huì)進(jìn)行動(dòng)態(tài)智能化統(tǒng)計(jì)信息使選擇更方便 金額 在單擊該數(shù)據(jù)框時(shí)會(huì)自動(dòng)計(jì)算 其它金額 和 備注 由用戶選擇單擊 保存 按鈕即可 保存該入庫(kù)