進(jìn)銷存管理系統(tǒng)的設(shè)計與實現(xiàn)

1、進(jìn)銷存管理系統(tǒng)的設(shè)計與實現(xiàn)目 錄0 引言 11 系統(tǒng)設(shè)計開發(fā)11.1系統(tǒng)設(shè)計目的11.2 系統(tǒng)設(shè)計需求11.3系統(tǒng)設(shè)計軟件31.4系統(tǒng)設(shè)計總覽32 系統(tǒng)數(shù)據(jù)表設(shè)計42.1數(shù)據(jù)庫總列表42.2數(shù)據(jù)庫表字段及說明52.3數(shù)據(jù)庫表關(guān)系圖53 系統(tǒng)界面與功能63.1 登入界面 63.2 操作界面 73.2.1 操作界面 ？4 系統(tǒng)設(shè)計總結(jié) 275 結(jié)束語 27摘要： 本文從需求分析、可行性分析等方面進(jìn)行了系統(tǒng)分析；在此基礎(chǔ)上對系統(tǒng)進(jìn)行了系統(tǒng)設(shè)計和系統(tǒng)實施。在系統(tǒng)設(shè)計階段，利用e-r圖描述數(shù)據(jù)庫的概念結(jié)構(gòu)，形成了access支持的數(shù)據(jù)庫邏輯結(jié)構(gòu)；同時對系統(tǒng)功能進(jìn)行了詳細(xì)的分析，總結(jié)、歸納出商品庫存管理系

2、統(tǒng)各個功能模塊。本系統(tǒng)采用面向?qū)ο蟪绦蛟O(shè)計的思想，利用vb編程語言、使用access 2003作為后臺數(shù)據(jù)庫管理系統(tǒng)進(jìn)行了系統(tǒng)開發(fā)、設(shè)計。本系統(tǒng)完成了對交易方信息管理、合同信息管理、員工信息管理、商品信息管理、倉庫庫存管理、采購銷售單據(jù)管理等方面。系統(tǒng)具備對各類信息進(jìn)行查詢、添加、刪除、修改等功能。本系統(tǒng)中設(shè)計了一系列的類，用于實現(xiàn)對各個數(shù)據(jù)庫表的操作。關(guān)鍵詞：數(shù)據(jù)庫 access 信息管理 進(jìn)銷存0 引言隨著世界經(jīng)濟(jì)的發(fā)展，各企業(yè)及組織在交易頻繁化、品種多樣化、區(qū)域廣泛化、手續(xù)明細(xì)化上不斷提升。使得每次交易過程中總要面對大量的商品數(shù)據(jù)（供應(yīng)商、收購商、收購量、銷售量、等）統(tǒng)計、查詢和處理。手

3、工記賬對于不斷增加的商品形成數(shù)據(jù)量大、復(fù)雜和多樣從而造成了數(shù)據(jù)的歸檔慢、統(tǒng)計工作繁雜、匯總分析不及時，又容易會出現(xiàn)遺漏及登記錯誤，往往在月底結(jié)賬時就應(yīng)一個小數(shù)點而要進(jìn)行整月的賬目盤查，對一點錯誤就要全部重新記賬等。而且在日后數(shù)據(jù)資料的查看和管理相當(dāng)不便。就各界企業(yè)和組織的后臺管理需求的不斷提高，很多管理者開始使用計算機(jī)電子表格處理大量數(shù)據(jù)管理，此時也逐步進(jìn)入了商品信息化的時代。在商場激烈競爭的推動下，管理者為了提高工作效率及市場競爭力對于信息源的準(zhǔn)確性、可靠性、及時性，信息處理的速度、完整度，以及數(shù)據(jù)分析整合能力等要求也有了很大的提高，進(jìn)而出現(xiàn)了erp系統(tǒng)，【erp（enterprise re

4、source planning）：是由美國gartner group咨詢公司在1993年首先提出的，作為當(dāng)今國際上一個最先進(jìn)的企業(yè)管理模式,它在體現(xiàn)當(dāng)今世界最先進(jìn)的企業(yè)管理理論的同時，也提供了企業(yè)信息化集成的最佳解決方案。其主要宗旨是對企業(yè)所擁有的人、財、物、信息、時間和空間等綜合資源進(jìn)行綜合平衡和優(yōu)化管理，協(xié)調(diào)企業(yè)各管理部門，圍繞市場導(dǎo)向開展業(yè)務(wù)活動，提高企業(yè)的核心競爭力，從而取得最好的經(jīng)濟(jì)效益?！侩S著erp的推出，各企業(yè)也為本身需求定制了有針對性的管理軟件。進(jìn)銷存管理系統(tǒng)是為了更好滿足企業(yè)的切實需要和方便企業(yè)管理商品貿(mào)易數(shù)據(jù)而開發(fā)的數(shù)據(jù)庫管理軟件。根據(jù)企業(yè)的實際要求，即實現(xiàn)各項信息的添加、

5、刪除、查詢、修改等幾方面功能。進(jìn)銷存管理系統(tǒng)可以幫助企業(yè)方便快捷地管理繁瑣的貿(mào)易數(shù)據(jù)。提高企業(yè)的管理水平和綜合分析能力。1 系統(tǒng)分析1.1系統(tǒng)設(shè)計目的企業(yè)的商品物資管理往往都是復(fù)雜繁瑣的，由于商品物資種類品項繁多，進(jìn)銷渠道各有相異，各企業(yè)之間甚至同一集團(tuán)內(nèi)部的管理體制也盡有差異，因此必須根據(jù)企業(yè)具體情況制定相適的系統(tǒng)以便更好地提高工作效率。1.2系統(tǒng)設(shè)計需求根據(jù)貿(mào)易企業(yè)基本的商品物資管理程序，一般制定為簽署采購合同，執(zhí)行合同發(fā)出訂貨單，根據(jù)訂購單驗收、審核入庫，簽署銷售合同，根據(jù)對方訂貨單開具銷售單，銷售單審核出庫等，概括分為基本信息、采購、銷售、倉庫及財務(wù)審核。為提高操作人員工作效率，系統(tǒng)設(shè)

6、計需：1.簡潔明了的人機(jī)界面。2.根據(jù)操作員特性的權(quán)限分類。3.客戶及商品信息的添加、修改、刪除、查詢功能。4.倉庫庫存的查詢功能。5.商品的采購及銷售功能。1.3系統(tǒng)設(shè)計軟件microsoft access是微軟公司推出的基于windows的桌面關(guān)系數(shù)據(jù)庫管理系統(tǒng)（rdbms），是office系列應(yīng)用軟件之一。它提供了表、查詢、窗體、報表、頁、宏、模塊7種用來建立數(shù)據(jù)庫系統(tǒng)的對象；提供了多種向?qū)?、生成器、模板，把?shù)據(jù)存儲、數(shù)據(jù)查詢、界面設(shè)計、報表生成等操作規(guī)范化；為建立功能完善的數(shù)據(jù)庫管理系統(tǒng)提供了方便，也使得普通用戶不必編寫代碼，就可以完成大部分?jǐn)?shù)據(jù)管理的任務(wù)。access是一種關(guān)系型數(shù)據(jù)

7、庫管理系統(tǒng)，其主要特點如下： （1）存儲方式單一 access管理的對象有表、查詢、窗體、報表、頁、宏和模塊，以上對象都存放在后綴為（.mdb）的數(shù)據(jù)庫文件種，便于用戶的操作和管理。 （2）面向?qū)ο?access是一個面向?qū)ο蟮拈_發(fā)工具，利用面向?qū)ο蟮姆绞綄?shù)據(jù)庫系統(tǒng)中的各種功能對象化，將數(shù)據(jù)庫管理的各種功能封裝在各類對象中。它將一個應(yīng)用系統(tǒng)當(dāng)作是由一系列對象組成的，對每個對象它都定義一組方法和屬性，以定義該對象的行為和外國，用戶還可以按需要給對象擴(kuò)展方法和屬性。通過對象的方法、屬性完成數(shù)據(jù)庫的操作和管理，極大地簡化了用戶的開發(fā)工作。同時，這種基于面向?qū)ο蟮拈_發(fā)方式，使得開發(fā)應(yīng)用程序更為簡便。

8、 （3）界面友好、易操作 access是一個可視化工具，是風(fēng)格與windows完全一樣，用戶想要生成對象并應(yīng)用，只要使用鼠標(biāo)進(jìn)行拖放即可，非常直觀方便。系統(tǒng)還提供了表生成器、查詢生成器、報表設(shè)計器以及數(shù)據(jù)庫向?qū)?、表向?qū)А⒉樵兿驅(qū)?、窗體向?qū)?、報表向?qū)У裙ぞ?，使得操作簡便，容易使用和掌握?（4）集成環(huán)境、處理多種數(shù)據(jù)信息 access基于windows操作系統(tǒng)下的集成開發(fā)環(huán)境，該環(huán)境集成了各種向?qū)Ш蜕善鞴ぞ?，極大地提高了開發(fā)人員的工作效率，使得建立數(shù)據(jù)庫、創(chuàng)建表、設(shè)計用戶界面、設(shè)計數(shù)據(jù)查詢、報表打印等可以方便有序地進(jìn)行。 （5）access支持odbc（開發(fā)數(shù)據(jù)庫互連，open data ba

9、se connectivity），利用access強(qiáng)大的dde（動態(tài)數(shù)據(jù)交換）和ole（對象的聯(lián)接和嵌入）特性，可以在一個數(shù)據(jù)表中嵌入位圖、聲音、excel表格、word文檔，還可以建立動態(tài)的數(shù)據(jù)庫報表和窗體等。access還可以將程序應(yīng)用于網(wǎng)絡(luò)，并與網(wǎng)絡(luò)上的動態(tài)數(shù)據(jù)相聯(lián)接。利用數(shù)據(jù)庫訪問頁對象生成html文件，輕松構(gòu)建internet/intranet的應(yīng)用。visual basic（vb）是由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。它源自于basic編程語言。vb擁有圖形用戶界面（gui）和快速應(yīng)用程式開發(fā)（rad）系統(tǒng)，可以輕易的使用dao、rdo、ado連接數(shù)據(jù)庫，或者輕松的

10、創(chuàng)建activex控件。程序員可以輕松的使用vb提供的組件快速建立一個應(yīng)用程序。visual basic的特點 1. 具有面向?qū)ο蟮目梢暬O(shè)計工具 2. 事件驅(qū)動的編程機(jī)制 3. 結(jié)構(gòu)化的程序設(shè)計語言 4. 提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境 5. 支持多種數(shù)據(jù)庫系統(tǒng)的訪問 6. 高度可移植化的代碼 7. vb6.0在開發(fā)環(huán)境上,網(wǎng)絡(luò)功能等的大大增強(qiáng) 1.4系統(tǒng)功能模塊登入界面操作界面信息管理業(yè)務(wù)管理財務(wù)管理倉庫管理系統(tǒng)管理商品信息交易方信息合同信息倉庫信息員工信息單據(jù)填開查詢?nèi)繂螕?jù)查詢未復(fù)核單據(jù)查詢已復(fù)核單據(jù)查詢已處理單據(jù)單據(jù)復(fù)核查詢?nèi)繂螕?jù)查詢未復(fù)核單據(jù)查詢已復(fù)核單據(jù)查詢已處理單據(jù)單據(jù)

11、處理查詢?nèi)繂螕?jù)查詢未復(fù)核單據(jù)查詢已復(fù)核單據(jù)查詢已處理單據(jù)修改密碼添加賬號賬號修改圖1 系統(tǒng)設(shè)計圖2數(shù)據(jù)庫設(shè)計2.1數(shù)據(jù)庫總列表序號表名稱（按拼音排列）說明1倉庫信息倉庫名稱及所在地2單據(jù)管理單據(jù)序號及開具資料3單據(jù)明細(xì)對應(yīng)單據(jù)號的商品明細(xì)4合同信息合同號及簽署明細(xì)5交易方信息交易往來的公司明細(xì)信息6庫存管理倉庫庫存狀況7權(quán)限管理權(quán)限名稱及概述8商品信息商品名稱單位等9員工信息員工資料10賬號管理登入操作的賬號資料2.2 數(shù)據(jù)庫表字段及說明1.倉庫信息序號字段名字段類型長度屬性說明1倉庫名文本（50）主鍵倉庫名稱無重復(fù)2所在地址文本（50）默認(rèn)對應(yīng)倉庫詳細(xì)地址2.單據(jù)管理序號字段名字段類型長度

12、屬性說明1單據(jù)號自動編號（長整型）主鍵遞增無重復(fù)2對方公司文本（50）默認(rèn)對應(yīng)所選合同的對方公司3制單日期文本（50）默認(rèn)對應(yīng)制單日期4合同號文本（50）默認(rèn)對應(yīng)制單所選合同5辦理人文本（50）默認(rèn)對應(yīng)登入人員6單據(jù)類型文本（50）默認(rèn)銷售或采購7狀態(tài)文本（50）默認(rèn)未復(fù)核、已復(fù)核、已處理3.單據(jù)明細(xì)序號字段名字段類型長度屬性說明1自動編號自動編號（長整型）主鍵遞增無重復(fù)2單據(jù)號文本（50）默認(rèn)所屬單據(jù)號3貨品名文本（50）默認(rèn)商品名4數(shù)量數(shù)字（長整型）默認(rèn)商品數(shù)量5單價貨幣（貨幣）默認(rèn)商品單價6單位文本（50）默認(rèn)計量單位7倉庫文本（50）默認(rèn)所操作的倉庫8狀態(tài)文本（50）默認(rèn)未復(fù)核、已復(fù)核

13、、已處理4.合同信息序號字段名字段類型長度屬性說明1合同號文本（50）主鍵無重復(fù)2客戶名稱文本（50）默認(rèn)對方公司抬頭3啟用日期文本（50）默認(rèn)合同執(zhí)行起始日期4結(jié)束日期文本（50）默認(rèn)合同執(zhí)行結(jié)束日期5貨品名文本（50）默認(rèn)商品名稱6合同數(shù)量數(shù)字（長整型）默認(rèn)預(yù)計數(shù)量7實際數(shù)量數(shù)字（長整型）默認(rèn)實際已產(chǎn)生數(shù)量8計量單位文本（50）默認(rèn)商品計量單位9經(jīng)辦人文本（50）默認(rèn)辦理人10執(zhí)行狀態(tài)是/否默認(rèn)合同完成狀態(tài)11交易類型文本（50）默認(rèn)銷售或采購5.交易方信息序號字段名字段類型長度屬性說明1公司全名文本（50）默認(rèn)公司名稱2公司稅號文本（50）主鍵公司稅號3開戶行文本（50）默認(rèn)銀行名稱4銀

14、行賬號文本（50）默認(rèn)銀行賬號5公司地址文本（50）默認(rèn)公司地址6聯(lián)系電話文本（50）默認(rèn)聯(lián)系電話7交易類型文本（50）默認(rèn)銷售或采購6.庫存管理序號字段名字段類型長度屬性說明1編號自動編號（長整型）主鍵遞增無重復(fù)2貨品編號文本（50）默認(rèn)貨品編號3貨品名文本（50）默認(rèn)貨品名稱4庫存數(shù)量文本（50）默認(rèn)庫存數(shù)量5單位文本（50）默認(rèn)計量單位6所在倉庫文本（50）默認(rèn)所在倉庫7.權(quán)限信息序號字段名字段類型長度屬性說明1權(quán)限文本（50）默認(rèn)權(quán)限2說明文本（50）默認(rèn)性質(zhì)說明8.商品信息序號字段名字段類型長度屬性說明1編號自動編號（長整型）主鍵遞增無重復(fù)2貨品編號文本（50）默認(rèn)貨品編號3貨品名文

15、本（50）默認(rèn)貨品名稱4產(chǎn)地文本（50）默認(rèn)生產(chǎn)地5規(guī)格單位文本（50）默認(rèn)計量單位9.員工信息序號字段名字段類型長度屬性說明1編號自動編號（長整型）默認(rèn)遞增無重復(fù)2員工編號文本（50）主鍵無重復(fù)3姓名文本（50）默認(rèn)姓名4性別文本（50）.默認(rèn)性別5年齡文本（50）默認(rèn)年齡6家庭地址文本（50）默認(rèn)家庭地址7出生日期文本（50）默認(rèn)出生日期8部門文本（50）默認(rèn)部門9職位文本（50）默認(rèn)職位10學(xué)歷文本（50）默認(rèn)學(xué)歷10.賬號管理序號字段名字段類型長度屬性說明1賬號文本（50）主鍵無重復(fù)2密碼文本（50）掩碼*密碼3權(quán)限文本（50）默認(rèn)權(quán)限4員工編號文本（50）默認(rèn)員工編號5注冊日期文本（

16、50）默認(rèn)注冊日期6登入狀態(tài)文本（50）默認(rèn)是/否2.3 數(shù)據(jù)庫表關(guān)系圖如圖2 單據(jù)關(guān)系說明：交易方信息-公司名稱連接合同信息-客戶名稱，合同信息-合同號連接單據(jù)管理-合同號，單據(jù)管理-單據(jù)號連接單據(jù)明細(xì)-單據(jù)號，單據(jù)明細(xì)-貨品名連接庫存管理-貨品名，庫存管理-貨品編號連接商品信息-貨品編號，商品信息-貨品名連接合同信息貨品名，合同信息-經(jīng)辦人連接員工信息姓名，員工信息-員工編號連接賬號管理-員工編號，賬號管理權(quán)限連接權(quán)限管理-權(quán)限。圖2 數(shù)據(jù)庫表關(guān)系圖3 系統(tǒng)實施3.1登入界面登入操作界面如圖3：該界面操作在賬號密碼對應(yīng)的輸入框內(nèi)輸入正確的賬號密碼，點擊登入按鈕可進(jìn)入操作界面。如賬號與對應(yīng)的

17、密碼有誤則彈出"賬號或密碼錯誤!"對話框。如賬號為空則彈出"用戶名不能為空! "對話框。圖3 登入界面圖（1）使用控件控件類型名稱屬性控件功能窗體登入界面插入背景002.jpg默認(rèn)標(biāo)簽label更改字體默認(rèn)文本框text1默認(rèn)輸入登入賬號文本框text2設(shè)置掩碼輸入登入密碼命令按鈕command2默認(rèn)當(dāng)?shù)侨胭~號與登入密碼匹配時，點擊進(jìn)入操作頁面，不匹配則有錯誤提示命令按鈕command10默認(rèn)點擊關(guān)閉（2）使用表表名稱表類型字段名稱賬號管理表賬號、密碼、權(quán)限、員工編號、注冊日期、登入狀態(tài)（3）窗體命令代碼初始建立變量conn/rsoption compa

18、re databaseoption explicitdim conn as adodb.connectiondim rs as adodb.recordset命令按鈕command2單擊登入private sub command2_click()if isnull(me.text1) or me.text1 = "" thenmsgbox "用戶名不能為空!", vbquestionexit subend ifset conn = currentproject.connectionset rs = new adodb.recordsetrs.open &

19、quot;賬號管理", conn, adopendynamic, adlockbatchoptimisticrs.movefirstdo while not rs.eofif rs!賬號 = me.text1 and rs!密碼 = me.text2 thenmsgbox "登入成功!", vbquestionzhanghao = me.text1rs.updatedocmd.close acform, me.namedocmd.openform "操作界面"exit subexit doend ifrs.movenextlooprs.upda

20、ters.closemsgbox "賬號或密碼錯誤!", vbquestionend sub命令按鈕command3單擊退出程序private sub command10_click()on error goto err_command10_click docmd.quitexit_command10_click: exit suberr_command10_click: msgbox err.description resume exit_command10_clickend sub3.2操作界面完成登入后進(jìn)入操作界面如圖4：操作界面是進(jìn)行各項功能進(jìn)行操作的界面，主要由選

21、項卡進(jìn)行頁切換，點擊選項卡上的頁標(biāo)簽可以進(jìn)入對應(yīng)的操作頁。同時對于登入賬號的權(quán)限，可進(jìn)行操作的選項卡頁標(biāo)簽也有所不同。圖4 操作界面圖（1）使用控件控件類型名稱屬性控件功能窗體操作界面插入背景001.jpg默認(rèn)標(biāo)簽welcome默認(rèn)登入賬號+歡迎使用選項卡選項卡控件20默認(rèn)根據(jù)登入賬號權(quán)限顯示對應(yīng)可執(zhí)行的標(biāo)簽，點擊選項卡標(biāo)簽，切換選項卡頁。命令按鈕exit2默認(rèn)單擊關(guān)閉（2）使用表表名稱表類型字段名稱賬號管理表賬號、密碼、權(quán)限、員工編號、注冊日期、登入狀態(tài)（3）窗體命令代碼建立初始變量option compare databasedim conn as adodb.connectiondim

22、rs as adodb.recordset退出按鈕 exit2private sub exit2_click()on error goto err_exit2_click docmd.quitexit_exit2_click: exit suberr_exit2_click: msgbox err.description resume exit_exit2_clickend sub登入賬號權(quán)限private sub form_load()welcome = zhanghao + "歡迎使用!"text = zhanghaoset conncl_qx = currentpro

23、ject.connectionset cl_qx = new adodb.recordsetcl_qx!.open "賬號管理", conncl_qx, adopendynamic, adlockoptimisticcl_qx!.movefirstdo while not cl_qx.eof if cl_qx!賬號 = text.text then if cl_qx!權(quán)限 = "管理" then me.倉庫管理.visible = true me.財務(wù)管理.visible = true me.系統(tǒng)管理.visible = true me.業(yè)務(wù)管理.vis

24、ible = true me.信息管理.visible = true end if else if cl_qx!權(quán)限 = "財務(wù)" then me.倉庫管理.visible = false me.財務(wù)管理.visible = true me.系統(tǒng)管理.visible = false me.業(yè)務(wù)管理.visible = false me.信息管理.visible = true end if else if cl_qx!權(quán)限 = "倉庫" then me.倉庫管理.visible = true me.財務(wù)管理.visible = false me.系統(tǒng)管理.

25、visible = false me.業(yè)務(wù)管理.visible = false me.信息管理.visible = true end if else if cl_qx!權(quán)限 = "業(yè)務(wù)" then me.倉庫管理.visible = false me.財務(wù)管理.visible = false me.系統(tǒng)管理.visible = false me.業(yè)務(wù)管理.visible = true me.信息管理.visible = true end if exit do end if cl_qx!.movenextloopcl_qx!.closeend sub3.2.1信息管理頁3.2

26、.1.1商品信息管理點擊信息管理頁標(biāo)簽進(jìn)入商品信息管理，如圖5：在商品編號、貨品名、計量單位、產(chǎn)地對應(yīng)的文本輸入框中填入相應(yīng)信息，單擊添加按鈕可在數(shù)據(jù)庫內(nèi)添加該信息，同時在左面列表框中顯示現(xiàn)有信息，如編號有重復(fù)則提示"此編號已使用 請更改"，如有未填項則顯示"請完整填寫信息"。點擊左面列表框中信息，會在商品編號、貨品名、計量單位、產(chǎn)地對應(yīng)的文本框中顯示其資料，可對貨品名、計量單位、產(chǎn)地的信息通過修改按鈕或刪除按鈕進(jìn)行修改刪除，同時更新列表框。修改刪除按鈕是通過貨品編號確認(rèn)，如有不符則提示"無此編號 請確認(rèn)"。圖5 商品信息管理頁圖（1

27、）使用控件控件類型名稱屬性控件功能窗體信息管理界面默認(rèn)默認(rèn)標(biāo)簽lable32字體修改默認(rèn)標(biāo)簽lable16默認(rèn)默認(rèn)標(biāo)簽lable18默認(rèn)默認(rèn)標(biāo)簽lable20默認(rèn)默認(rèn)標(biāo)簽lable22默認(rèn)默認(rèn)文本框text01默認(rèn)輸入商品編號文本框text02默認(rèn)輸入商品名稱文本框text03默認(rèn)輸入計量單位文本框text04默認(rèn)輸入商品產(chǎn)地列表框list01商品信息點擊列表項，將在text對應(yīng)控件中顯示該項詳細(xì)。命令按鈕command01默認(rèn)將控件text的內(nèi)容相對應(yīng)的添加到商品信息表。如商品編號有重復(fù)將彈出提示。更新list01內(nèi)容。命令按鈕command02默認(rèn)將控件text的內(nèi)容在商品信息表中相對應(yīng)的

28、項目進(jìn)行修改。如有商品編號不符將彈出信息。更新list01內(nèi)容。命令按鈕command03默認(rèn)對與控件text的內(nèi)容在商品信息表中相同的項目進(jìn)行刪除。如有商品編號不符將彈出信息。更新list01內(nèi)容。（2）使用表表名稱表類型字段名稱商品信息表編號、貨品編號、貨品名、產(chǎn)地、規(guī)格單位（3）窗體命令代碼添加按鈕 添加新商品private sub command01_click()set conn00 = currentproject.connectionset rs00 = new adodb.recordsetrs00.open "商品信息", conn00, adopendy

29、namic, adlockoptimisticif isnull(me.text01) or isnull(me.text02) or isnull(me.text03) or isnull(me.text04) thenmsgbox ("請完整填寫信息"), vbokonly, "提示"exit subend ifif rs00.bof or rs00.eof thenrs00.addnewrs00!貨品編號 = me.text01rs00!貨品名 = me.text02rs00!規(guī)格單位 = me.text03rs00!產(chǎn)地 = me.text04r

30、s00.updaters00.closemsgbox ("成功添加新商品"), vbokonly, "提示"list01.requeryelsers00.movefirstdo while not rs00.eofif rs00!貨品編號 = me.text01 thenmsgbox ("此編號已使用 請更改"), vbokonly, "提示"me.text01.setfocustext01.value = ""exit subexit doend ifrs00.movenextlooprs00

31、.addnewrs00!貨品編號 = me.text01rs00!貨品名 = me.text02rs00!規(guī)格單位 = me.text03rs00!產(chǎn)地 = me.text04rs00.updaters00.closemsgbox ("成功添加新商品"), vbokonly, "提示"list01.requeryend ifend sub修改按鈕 修改商品信息private sub command02_click()set conn00 = currentproject.connectionset rs00 = new adodb.recordsetdi

32、m i02 as integeri02 = 0rs00.open "商品信息", conn00, adopendynamic, adlockoptimisticif isnull(me.text01) thenmsgbox ("請?zhí)钊胴浧肪幪?quot;), vbokonly, "提示"exit subend ifrs00.movefirstdo while not rs00.eof if rs00!貨品編號 = me.text01 then rs00!貨品名 = me.text02 rs00!規(guī)格單位 = me.text03 rs00!產(chǎn)地

33、= me.text04 rs00.update msgbox ("成功修改此商品"), vbokonly, "提示" i02 = 1 list01.requery exit do end ifrs00.movenextloopif i02 = 0 then msgbox ("無此編號 請確認(rèn)"), vbokonly, "提示" me.text01.setfocus text01.value = "" end ifend sub刪除按鈕 刪除商品private sub command03_clic

34、k()set conn00 = currentproject.connectionset rs00 = new adodb.recordsetdim i03 as integeri03 = 0rs00.open "商品信息", conn00, adopendynamic, adlockoptimisticif isnull(me.text01) thenmsgbox ("請?zhí)钊胴浧肪幪?quot;), vbokonly, "提示"exit subend ifrs00.movefirstdo while not rs00.eof if rs00!

35、貨品編號 = me.text01 then rs00.delete rs00.update msgbox ("成功刪除此商品"), vbokonly, "提示" i03 = 1 list01.requery exit do end ifrs00.movenextloopif i03 = 0 then msgbox ("無此編號 請確認(rèn)"), vbokonly, "提示" me.text01.setfocus text01.value = "" end ifend sub交易方信息管

36、理點擊交易方信息按鈕進(jìn)入交易方信息管理頁，如圖6：此頁操作功能一基本相同。圖6 交易方信息管理頁圖（1）使用控件控件類型名稱屬性控件功能窗體信息管理界面默認(rèn)默認(rèn)標(biāo)簽lable48字體修改交易方信息管理標(biāo)簽lable35默認(rèn)公司全名：標(biāo)簽lable37默認(rèn)公司稅號：標(biāo)簽lable39默認(rèn)銀行名稱：標(biāo)簽lable41默認(rèn)銀行賬號：標(biāo)簽lable98默認(rèn)公司地址：標(biāo)簽lable100默認(rèn)聯(lián)系電話：標(biāo)簽lable155默認(rèn)交易類型：文本框text11默認(rèn)輸入公司全名文本框text12默認(rèn)輸入公司稅號文本框text13默認(rèn)輸入銀行名稱文本框text14默認(rèn)輸入銀行賬號文本框text15默認(rèn)

37、輸入公司地址文本框text16默認(rèn)輸入聯(lián)系電話組合框text17默認(rèn)選擇交易類型列表框list11交易方信息點擊列表項，將在text對應(yīng)控件中顯示該項詳細(xì)。命令按鈕command11默認(rèn)將控件text的內(nèi)容相對應(yīng)的添加到交易方信息表。如公司稅號有重復(fù)將彈出提示。更新list11內(nèi)容。命令按鈕command12默認(rèn)將控件text的內(nèi)容在交易方信息表中相對應(yīng)的項目進(jìn)行修改。如有公司稅號不符將彈出信息。更新list11內(nèi)容。命令按鈕command13默認(rèn)對與控件text的內(nèi)容在交易方信息表中相同的項目進(jìn)行刪除。如有公司稅號不符將彈出信息。更新list11內(nèi)容。（2）使用表表名稱表類型字段名稱交易方信

38、息表公司全名、公司稅號、開戶行、銀行賬號、公司地址、聯(lián)系電話、交易類型（3）窗體命令代碼添加刪除指令代碼與類似。合同信息管理點擊合同信息按鈕進(jìn)入合同信息管理頁，如圖6：此頁操作功能一基本相同。圖7 合同信息管理頁圖（1）使用控件 控件類型名稱屬性控件功能窗體信息管理界面默認(rèn)默認(rèn)標(biāo)簽lable64字體修改合同信息管理標(biāo)簽lable51默認(rèn)合同號：標(biāo)簽lable53默認(rèn)對方名稱：標(biāo)簽lable55默認(rèn)啟用日期：標(biāo)簽lable57默認(rèn)結(jié)束日期：標(biāo)簽lable174默認(rèn)貨品名：標(biāo)簽lable111默認(rèn)交易數(shù)量：標(biāo)簽lable113默認(rèn)計量單位：標(biāo)簽lable1

39、15默認(rèn)簽辦人：標(biāo)簽lable157默認(rèn)合同類型：標(biāo)簽lable191默認(rèn)單價：文本框text21默認(rèn)輸入合同號文本框text22默認(rèn)輸入對方名稱文本框text23默認(rèn)輸入啟用日期文本框text24默認(rèn)輸入結(jié)束日期文本框text25默認(rèn)輸入貨品名文本框text26默認(rèn)輸入交易數(shù)量文本框text27默認(rèn)輸入計量單位文本框text28默認(rèn)輸入簽辦人文本框text2a默認(rèn)輸入單價組合框text29默認(rèn)銷售;采購列表框list21默認(rèn) 合同信息表，點擊列表項，將在text對應(yīng)控件中顯示該項詳細(xì)。命令按鈕command21默認(rèn)將控件text的內(nèi)容相對應(yīng)的添加到合同信息表。如合同號有重復(fù)將彈出提示。更新l

40、ist21內(nèi)容。命令按鈕command22默認(rèn)對與控件text的內(nèi)容在合同信息表中相同的項目進(jìn)行刪除。如有合同號不符將彈出信息。更新list21內(nèi)容。（2）使用表表名稱表類型字段名稱合同信息表合同號、客戶名稱、啟用日期、結(jié)束日期、貨品名、合同數(shù)量、實際數(shù)量、計量單位、經(jīng)辦人、執(zhí)行狀態(tài)、交易類型、單價（3）窗體命令代碼添加刪除指令代碼與類似。倉庫信息管理點擊倉庫信息按鈕進(jìn)入倉庫信息管理頁，如圖6：此頁添加刪除操作功能一基本相同，添加倉庫庫存查詢按鈕，點擊后打開庫存查詢窗體。圖8 倉庫信息管理頁圖（1）使用控件 控件類型名稱屬性控件功能窗體信息管理界面默認(rèn)

41、默認(rèn)標(biāo)簽lable80字體修改倉庫信息管理標(biāo)簽lable67默認(rèn)倉庫名稱：標(biāo)簽lable69默認(rèn)所在地：文本框text31默認(rèn)輸入倉庫名文本框text32默認(rèn)輸入倉庫所在地列表框list31默認(rèn) 倉庫信息表，點擊列表項，將在text對應(yīng)控件中顯示該項詳細(xì)。命令按鈕command31默認(rèn)將控件text的內(nèi)容相對應(yīng)的添加到倉庫信息表。如有重復(fù)將彈出提示。更新list31內(nèi)容。命令按鈕command32默認(rèn)對與控件text的內(nèi)容在倉庫信息表中相同的項目進(jìn)行刪除。如有不符將彈出信息。更新list31內(nèi)容。命令按鈕command33默認(rèn)倉庫庫存查詢（2）使用表表名稱表類型字段名稱倉庫信息表倉庫名、所在地

42、址（3）窗體命令代碼添加刪除指令代碼與類似。倉庫查詢按鈕private sub command33_click()docmd.openform "庫存查詢"end sub 員工信息管理點擊員工信息按鈕進(jìn)入員工信息管理頁，如圖6：此頁操作功能一基本相同。圖9 員工信息管理頁圖（1）使用控件 控件類型名稱屬性控件功能窗體信息管理界面默認(rèn)默認(rèn)標(biāo)簽lable96字體修改員工信息管理標(biāo)簽lable83默認(rèn)員工編號：標(biāo)簽lable85默認(rèn)姓名：標(biāo)簽lable87默認(rèn)性別：標(biāo)簽lable89默認(rèn)年齡：標(biāo)簽lable141默認(rèn)職位：標(biāo)簽lable1

43、43默認(rèn)學(xué)歷：標(biāo)簽lable133默認(rèn)住址：標(biāo)簽lable135默認(rèn)聯(lián)系電話：標(biāo)簽lable137默認(rèn)出生日期：標(biāo)簽lable139默認(rèn)部門：文本框text41默認(rèn)輸入員工編號文本框text42默認(rèn)輸入姓名組合框text43默認(rèn)輸入性別文本框text44默認(rèn)輸入年齡文本框text45默認(rèn)輸入職位文本框text46默認(rèn)輸入學(xué)歷文本框text47默認(rèn)輸入住址文本框text48默認(rèn)輸入聯(lián)系電話文本框text49默認(rèn)輸入日期文本框text4a默認(rèn)部門列表框list41默認(rèn)員工信息表，點擊列表項，將在text對應(yīng)控件中顯示該項詳細(xì)。命令按鈕command41默認(rèn)將控件text的內(nèi)容相對應(yīng)的添加到員工信息

44、表。如員工編號有重復(fù)將彈出提示。更新list41內(nèi)容。命令按鈕command42默認(rèn)將控件text的內(nèi)容在員工信息表中相對應(yīng)的項目進(jìn)行修改。如有稅號不符將彈出信息。更新list41內(nèi)容。命令按鈕command43默認(rèn)對與控件text的內(nèi)容在員工信息表中相同的項目進(jìn)行刪除。如有員工編號不符將彈出信息。更新list41內(nèi)容。（2）使用表表名稱表類型字段名稱員工信息表編號、員工編號、姓名、性別、年齡、家庭地址、電話、出生日期、部門、職位、學(xué)歷（3）窗體命令代碼添加刪除指令代碼與類似。3.2.2 業(yè)務(wù)管理頁在操作界面中點擊業(yè)務(wù)管理打開業(yè)務(wù)管理頁，如圖10：單擊單據(jù)填開按鈕進(jìn)入單據(jù)界面，右

45、邊列表框中顯示內(nèi)容根據(jù)查詢?nèi)繂螕?jù)按鈕、查詢未復(fù)核單據(jù)按鈕、查詢已復(fù)核單據(jù)按鈕、查詢已處理單據(jù)按鈕更變。圖10 業(yè)務(wù)管理頁圖（1）使用控件 控件類型名稱屬性控件功能窗體信息管理界面默認(rèn)默認(rèn)列表框list11默認(rèn)單據(jù)狀態(tài)查詢表 列表框list12默認(rèn)未復(fù)核單據(jù)查詢表列表框list13默認(rèn)已復(fù)核單據(jù)查詢表列表框list14默認(rèn)已倉庫處理查詢表命令按鈕command11默認(rèn)打開單據(jù)界面命令按鈕command12默認(rèn)切換顯示list11。屏蔽list12 list13 list14。命令按鈕command13默認(rèn)切換顯示list12。屏蔽list11 list13 list14。命令按鈕command

46、14默認(rèn)切換顯示list13。屏蔽list11 list12 list14。命令按鈕command15默認(rèn)切換顯示list14。屏蔽list11 list12 list13。（2）使用表表名稱表類型字段名稱單據(jù)狀態(tài)查詢查詢單據(jù)號、對方公司、制單日期、合同號、單據(jù)類型、狀態(tài)未復(fù)核單據(jù)查詢查詢單據(jù)號、對方公司、制單日期、合同號、單據(jù)類型、狀態(tài)已復(fù)核單據(jù)查詢查詢單據(jù)號、對方公司、制單日期、合同號、單據(jù)類型、狀態(tài)已倉庫處理查詢查詢單據(jù)號、對方公司、制單日期、合同號、單據(jù)類型、狀態(tài)（3）窗體命令代碼命令按鈕單據(jù)填開打開單據(jù)指令private sub command11_click()docmd.open

47、form "單據(jù)界面"end sub命令按鈕查詢*顯示切換指令private sub command12_click()me.list11.visible = trueme.list12.visible = falseme.list13.visible = falseme.list14.visible = falseend subprivate sub command13_click()me.list11.visible = falseme.list12.visible = trueme.list13.visible = falseme.list14.visible = f

48、alseend subprivate sub command14_click()me.list11.visible = falseme.list12.visible = falseme.list13.visible = trueme.list14.visible = falseend subprivate sub command15_click()me.list11.visible = falseme.list12.visible = falseme.list13.visible = falseme.list14.visible = trueend sub3.2.2 財務(wù)管理頁在操作界面中點擊

49、財務(wù)管理打開財務(wù)管理頁，如圖11：單擊單據(jù)復(fù)核按鈕進(jìn)入復(fù)核界面，右邊列表框中顯示內(nèi)容根據(jù)查詢?nèi)繂螕?jù)按鈕、查詢未復(fù)核單據(jù)按鈕、查詢已復(fù)核單據(jù)按鈕、查詢已處理單據(jù)按鈕更變。圖11 財務(wù)管理頁圖（1）使用控件 控件類型名稱屬性控件功能窗體信息管理界面默認(rèn)默認(rèn)列表框list21默認(rèn)單據(jù)狀態(tài)查詢表 列表框list22默認(rèn)未復(fù)核單據(jù)查詢表列表框list23默認(rèn)已復(fù)核單據(jù)查詢表列表框list24默認(rèn)已倉庫處理查詢表命令按鈕command21默認(rèn)打開復(fù)核窗體命令按鈕command22默認(rèn)切換顯示list21。屏蔽list22 list23 list24。命令按鈕command23默認(rèn)切換顯示list22。屏蔽list21 list23 list24。命令按鈕command24默認(rèn)切換顯示list23。屏蔽list21 list22 list24。命令按鈕command25默認(rèn)切換顯示list24。屏蔽list21 list22 list23。（2）使用表表名稱表類型字段名稱單據(jù)狀態(tài)查詢查詢單據(jù)號、對方公司、制單日期、合同號、單據(jù)類型、狀態(tài)未復(fù)核單據(jù)查詢