化妝品進(jìn)銷存管理系統(tǒng)

第一章系統(tǒng)設(shè)計(jì)1系統(tǒng)功能分析系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成的?；瘖y品進(jìn)銷存系統(tǒng)（后面簡稱為系統(tǒng)）需要完成功能主要有：基本信息的管理：包括商品設(shè)置、商品類別設(shè)置、供應(yīng)商設(shè)置、業(yè)務(wù)員類別設(shè)置、業(yè)務(wù)員設(shè)置、倉庫設(shè)置等。會員信息設(shè)置的管理：包括會員信息設(shè)置、優(yōu)惠信息的設(shè)置等。進(jìn)貨信息的管理：包括訂貨單的管理、入庫單的管理以及進(jìn)貨信息的查詢等銷售信息的管理：包括銷售單的管理以及銷售信息的查詢等。庫存信息的管理：包括商品盤點(diǎn)財(cái)務(wù)信息管理：包括應(yīng)收信息的管理、應(yīng)付信息的管理等。2系統(tǒng)功能模塊設(shè)計(jì)對上述各項(xiàng)功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化程序設(shè)計(jì)的要求，得到如圖所示的系統(tǒng)功能模塊圖?；瘖y品

避存倘系統(tǒng)A應(yīng)置錄入利修改t應(yīng)收E錄金修哉A應(yīng)置錄入利修改t應(yīng)收E錄金修哉t堵育詢里聯(lián)品學(xué)圖1—1系統(tǒng)功能模塊圖第二章數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞將直接對應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)效果產(chǎn)生的影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。設(shè)計(jì)數(shù)據(jù)庫系統(tǒng)時(shí)應(yīng)該首先充分了解用戶各個(gè)方面的需求，包括現(xiàn)有的以及將來可能增加的需求。數(shù)據(jù)庫設(shè)計(jì)一般包括如下幾個(gè)步驟：數(shù)據(jù)庫需求分析。數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)。MicrosoftSQLServer2000就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。MicrosoftSQLServer2000的優(yōu)點(diǎn)在于它非常的可靠、質(zhì)量好、易用、可伸縮性、簡單的管理和調(diào)整（能自動(dòng)運(yùn)行管理和性能監(jiān)測，提供了集中的數(shù)據(jù)庫管理。）、靈活的和可擴(kuò)展的數(shù)據(jù)轉(zhuǎn)換（能夠構(gòu)建更加堅(jiān)固的數(shù)據(jù)轉(zhuǎn)換服務(wù)（DTS）軟件包）、集成了可擴(kuò)展的分析服務(wù)（提供了數(shù)據(jù)采集、為生成報(bào)表而設(shè)計(jì)了靈活的向上流動(dòng)特性，實(shí)現(xiàn)單元級和成員安全的功能，還有寫回原始大小的能力）。自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然，還提供了排序功能。MicrosoftSQLServer2000也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。如上所述，MicrosoftSQLServer2000作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。1實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級的連

接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。2數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸入和輸出要求。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ)。針對化妝品企業(yè)業(yè)務(wù)的需求，通過對化妝品企業(yè)管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：??在仔細(xì)分析調(diào)查有關(guān)系統(tǒng)需求的基礎(chǔ)上，將得到如圖針對化妝品企業(yè)業(yè)務(wù)的需求，通過對化妝品企業(yè)管理工作過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：??化妝品類別信息，包括的數(shù)據(jù)項(xiàng)有：類別編號、類別名稱等?；瘖y品信息，包括的數(shù)據(jù)項(xiàng)有：商品編號、商品名稱，計(jì)量單位、類另叭入庫價(jià)格、分銷價(jià)格、零售價(jià)格、生產(chǎn)廠家、更新日期、備注信息等會員信息，包括的數(shù)據(jù)項(xiàng)有：會員編號、會員姓名、地址、郵編、電話等供應(yīng)商信息，包括的數(shù)據(jù)有：供應(yīng)商編號、名稱、地址、郵編、聯(lián)系人等業(yè)務(wù)員類別信息，包括的數(shù)據(jù)項(xiàng)有：類別編號、類別名稱等。業(yè)務(wù)員信息，包括的數(shù)據(jù)項(xiàng)有：業(yè)務(wù)員編號、姓名、類別、電話號碼等倉庫信息，包括的數(shù)據(jù)項(xiàng)有：倉庫編號和名稱。進(jìn)貨訂單信息，包括的數(shù)據(jù)項(xiàng)有：訂貨日期、編號、業(yè)務(wù)員、供應(yīng)商編號、商品編號、數(shù)量、單價(jià)等。入庫單信息，包括的數(shù)據(jù)項(xiàng)有：入庫日期、編號、業(yè)務(wù)員、供應(yīng)商編號、商品編號、數(shù)量、單價(jià)等。銷售出貨單信息，包括的數(shù)據(jù)項(xiàng)有：銷售日期、編號、會員編號、商品編庫存信息，包括的數(shù)據(jù)項(xiàng)有：更新日期、編號、商品編號、數(shù)量、單價(jià)等。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫設(shè)計(jì)。

圖2—1化妝品進(jìn)銷存系統(tǒng)2.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)現(xiàn)在需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQLServer2000數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。根據(jù)數(shù)據(jù)庫的需求分析和概念結(jié)構(gòu)設(shè)計(jì)，設(shè)計(jì)了名稱為my_restaurant的數(shù)據(jù)庫。數(shù)據(jù)庫由下面多個(gè)表格組成：列名數(shù)據(jù)類型可否為空說明IbcodecharNotNull化妝品父類編號IbcharNull化妝品父類名稱IbcodelcharNotNull化妝品子類編號IblcharNull化妝品子類名稱BzcharNull備注信息表2—1dm_wzlb商品類別表列名數(shù)據(jù)類型可否為空說明DmcharNotNull化妝品編號MccharNull化妝品名稱JldwcharNull計(jì)量單位bar_codecharNull化妝品型號IbdmcharNull化妝品類別編號RkjnumericNull入庫價(jià)格

FxjnumericNull分銷價(jià)格LsjnumericNull零售價(jià)格CjcharNull生產(chǎn)廠家YxrqdatetimeNull更新日期bzcharNull備注信息表2—2dm_wz商品信息表列名數(shù)據(jù)類型可否為空說明dmcharNotNull會員編號mccharNull會員姓名addrcharNull地址telcharNull聯(lián)系電話IbcodecharNull會員類別編號total_jenumericNull累計(jì)消費(fèi)金額bzcharNull備注信息表2—3dm_khs個(gè)人會員信息表列名數(shù)據(jù)類型可否為空說明dmcharNotNull供應(yīng)商編號mccharNull供應(yīng)商名稱addrcharNull地址yzbmcharNull郵政編碼telcharNull聯(lián)系電話itladdcharNull公司主頁emailcharNull聯(lián)系人電子郵件地址sui_nocharNull稅號bank_nocharNull銀行帳號bankcharNull開戶銀行ywmancharNull聯(lián)系人bzcharNull備注信息表2—4dm_gf供應(yīng)商信息表列名數(shù)據(jù)類型可否為空說明in_datadatetimeNotNull訂貨日期ywmancharNull業(yè)務(wù)員dh_nocharNull訂貨單編號gfdmcharNull供應(yīng)商編號wzdmcharNull化妝品編號cxenddatetimeNull有效期限slnumericNull數(shù)量in_danjnumericNull訂貨單價(jià)I_zknumericNull折扣I_zkenumericNull總金額bzcharNull備注信息表2—5dh進(jìn)貨訂單表列名數(shù)據(jù)類型可否為空說明in_datedatetimeNotNull入庫日期ywmancharNull業(yè)務(wù)員

inh_nocharNull入庫單編號gfdmcharNull供應(yīng)商編碼ckdmcharNull倉庫編號wzdmcharNull化妝品編號cxenddatetimeNull有效期限slnumericNull數(shù)量in_danjnumericNull單價(jià)I_zknumericNull折扣I_zkenumericNull總金額jsfkcharNull是否即時(shí)付帳jzcharNull是否記帳yfnumericNull預(yù)付比例bzcharNull備注信息表2—6inh入庫單表列名數(shù)據(jù)類型可否為空說明out_datedatetimeNotNull銷售日期ywmancharNull業(yè)務(wù)員outh_nocharNull銷售單編號khdmcharNull會員編號ckdmcharNull倉庫編號wzdmcharNull商品編號cxenddatetimeNull有效期限slnumeriecNull數(shù)量out_danjnumeriecNull單價(jià)o_zknumeriecNull折扣o_zkenumeriecNull總金額jsfkcharNull是否即時(shí)付帳jzcharNull是否記帳yfnumeriecNull預(yù)付比例bzcharNull備注信息表2—7out銷售單表列名數(shù)據(jù)類型可否為空說明update_datedatetimeNotNull更新日期kucun_nocharNull庫存編號ckdmcharNull倉庫編號wzdmcharNull化妝品編號cxenddatetimeNull有效期限slnumericNull數(shù)量total_jenumericNull總金額表2—8kucun庫存表列名數(shù)據(jù)類型可否為空說明user_idCHAR(10)NotNULL用戶名稱（主鍵）user_pwdCHAR(10)NULL用戶密碼user_desCHAR(10)NULL用戶描述表2—9user_Info系統(tǒng)用戶表

2.4各模塊數(shù)據(jù)的具體分析2.4.1用戶管理模塊：用于管理系統(tǒng)的用戶及賦予權(quán)限對本系統(tǒng)的操作。2.4.2貨品信息管理：主要用于化妝品的基本信息管理（如編號、名稱、分類、生產(chǎn)日期、庫房編號、生產(chǎn)廠家等）。實(shí)體E-R圖如下：2.4.3庫房信息管理：主要以庫房為單位對于企業(yè)庫房信息管理。2.4.4價(jià)格信息管理：主要用于貨品進(jìn)銷的價(jià)格進(jìn)行管理（如統(tǒng)計(jì)價(jià)格分類等）2.4.5系統(tǒng)維護(hù)模塊：主要是對化妝品信息管理系統(tǒng)進(jìn)行日常維護(hù)，該模塊又包括：修改用戶密碼、增加與刪除用戶、數(shù)據(jù)備份、數(shù)據(jù)整理等功能。2.5各模塊數(shù)據(jù)庫功能實(shí)現(xiàn)的算法圖:2.5.1實(shí)體間的E-R圖2.5.2查詢模塊流程圖2.5.3基本數(shù)據(jù)維護(hù)模塊流程圖2.5.4系統(tǒng)維護(hù)模塊流程圖2.6數(shù)據(jù)庫結(jié)構(gòu)和程序的實(shí)現(xiàn)2.6.1與VisualBasic6.0的連接VisualBasic6.0提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。VisualBasic6.0支持不同的關(guān)系數(shù)據(jù)庫管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫的特長。生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的服務(wù)以上的應(yīng)用，VisualBasic6.0連接數(shù)據(jù)庫的方式有兩種：?通過使用VisualBasic的DATA控件。?通過使用由VisualBasic提供的專用的直接與數(shù)據(jù)庫相連的接口。2.6.2SQLServer2000的設(shè)置正確安裝SQLServer2000,打開SQLServer2000的企業(yè)管理器，選擇“SQLServer”組中的服務(wù)器，然后選擇單擊右鍵并選擇“屬性”選擇“安全項(xiàng)”屬性頁，并設(shè)置成“SQLServer和Windows”身份驗(yàn)證。程序通過sa用戶訪問數(shù)據(jù)庫，密碼設(shè)置為空。在企業(yè)管理器中選擇“安全性”中的“登陸”頁面，選擇sa用戶。2.6.3VisualBasic6.0的設(shè)置由于程序利用ADO完成對數(shù)據(jù)的訪問和操作，需要添加ADO庫。選擇VisualBasic中的“project”菜單中的“refernces”，并在其對話框中選擇“MicrosoftActiveXDataObject2.6Library”。2.6.4創(chuàng)建數(shù)據(jù)庫用查詢分析器打開源代碼，選中全部代碼并執(zhí)行將生產(chǎn)程序運(yùn)行需要的數(shù)據(jù)庫和存儲過程。下面是用來創(chuàng)建數(shù)據(jù)庫的主要SQL語句。'創(chuàng)建系統(tǒng)用戶表格user_InfoCREATTABLE[dbo].[user_Info]([user_ID][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,[user_PWD][char](10)COLLATEChinese_PRC_CI_ASNULL,[user_Des][char](10)COllATEChinese_PRC_CI_ASNULL,)ON[PRIMARY]'創(chuàng)建商品類別表格dm_wzlbCREATETABLE[dbo].[dm_wzlb]([lbcode][char](30)NULLDefault”,[lb][char](30)NullDefault”,)'創(chuàng)建商品表格dm_wzCREATTABLE[dbo][dm_wz]([dm][char](30)NOTNULLPrimaryKey,/**/[mc][char](40)NULLDefault”,[jldw][char](8)NULLDefault”,[color_code][char](10)NULLDefault”,[lb][char](30)NULLDefault”,[rkj][numeric](12,2)NULLDefault0.00,/*入庫價(jià)*/[fxj][numeric](12,2)NULLDefault0.00,/*分銷價(jià)*/[lsj][numeric](12,2)NULLDefault0.00,/*零售價(jià)*/[cj][char](20)NULLDefault”,[yxrq][datatime]NULLDefaultGetDate(),[bz][char]*(255)NULLDefault”,)'創(chuàng)建供應(yīng)商表dm_gfCREATTABLE[dbo].[dm_gf]([dm][char](8)NOTNULLPrimaryKey,[mc][char](40)NULLDefault”,[addr][char](40)NULLDefault”,[yzbm][char](6)NULLDefault”,[tel][char](40)NULLDefault”,[itladd][char](50)NULLDefault”,[emal][char](50)NULLDefault”,[sui_no][char](20)NULLDefault”,[bank_no][char](20)NULLDefault”,[bank][char](30)NULLDefault”,

[ywman][char](8)NULLDefault”,[bz][char](255)NULLDefault”，)、創(chuàng)建客戶表dm_khCREATTABLE[dbo].[dm_kh]([dm][char](8)NOTNULLPrimaryKey,[mc][char](40)NULLDefault”,[addr][char](40)NULLDefault”,[tel][char](40)NULLDefault”,[itladd][char](50)NULLDefault”,[emal][char](50)NULLDefault”,[sui_no][char](20)NULLDefault”,[bank_no][char](20)NULLDefault”,[bank][char](30)NULLDefault”,[ywman][char](8)NULLDefault”,[yzbm][char](6)NULLDefault”,[bz][char](255)NULLDefault”,[CardNo_][char](13)NULLDefault”,[mb_reb][numeric](12,2)NULLDefault”,)、創(chuàng)建倉庫表dm_ckCREATTABLE[dbo].[dm_ck]([dm][char](6)NOTNULLDefault”PrimaryKey,[mc][char](40)NULLDefault”，)、創(chuàng)建進(jìn)貨訂單表dhCREATTABLE[dbo].[dh([in_date][datetime][ywman][char](8)[dh_no][char](8)[gfdm][char](8)[in_date][datetime][ywman][char](8)[dh_no][char](8)[gfdm][char](8)[wzdm][char](30)[color][char](10)[sl][numeric](10)NULLDefault”,NOTNULLDefault”,NULLDefault”,NOTNULL,NULLDefault”,NOTNULL,[in_danj][numeric](12,2)NULLDefault0.00,[i_zk][numeric](5,0)NULLDefault0,[i_zke][numeric](12,2)NULLDefault0.00,[ba][char](100)NULLDefault”，)CREATTABLE[dbo].[inh](

[in_date][datetime]

[ywman][char](8)

[inh_no][char](8)、創(chuàng)建入庫單表inhNULLdefaultCREATTABLE[dbo].[inh](

[in_date][datetime]

[ywman][char](8)

[inh_no][char](8)NOTNULLDefault”,[gfdm][char](8)[ckdm][char](6)[wzdm][char](30)[COLOR][char](10)[sl][numeric](10)NULLDefault”，NULLDefault”，NOTNULL,NULLDefault”，NOTNULL,[in_danj][numeric](12,2)NULLDefault0.00,[i_zk][numeric](5,0)NULLDefault0,[i_zke][numeric](12,2)NULLDefault0.00,[jsfk][char](2)[jz][char](2)[yf][numeric](5,0)[bz][char](100))、創(chuàng)建銷售訂貨表xsdhNULL,NULL,NULL,NULLDefault”，CREATTABLE[dbo].[xsdh]([out_date][datetime][ywman][char](8)[xsdh_no][char](8)[khdm][char](8)[wzdm][char](30)[color][char](10)[sl][numeric](10)NULLdefaultGetDate(),NULLDefault”，NOTNULLDefault”,NULLDefault”，NOTNULL,NULLDefault”，

NOTNULL,[out_danj][numeric](12,2)NULLDefault0.00,[o_zk][numeric](5,0)NULLDefault0,[o_zke][numeric](12,2)NULLDefault0.00,[bz][char](100)NULLDefault”，)、創(chuàng)建銷售單表outhCREATTABLE[dbo].[outh]([out_date][datetime][ywman][char](8)[outh_no][char](8)[khdm][char](8)[ckdm][char](6)[wzdm][char](30)[color][char](10)[sl][numeric](10)NULLdefaultGetDate(),NULLDefault”，NOTNULLDefaultNULLDefault”，NULLDefault”，NOTNULL,NULLDefault”，NOTNULL,[out_danj][numeric](12,2)NULLDefault0.00,[o_zk][numeric](5,0)NULL[o_zke][numeric](12,2)NULL[jsfk][char](2)[jz][char](2)[yf][numeric](5,0)[bz][char](100)Default0,Default0.00,NULL,NULL,NULL,NULLDefault”，)、創(chuàng)建庫存表kucnNOTNULLDefault”，NULLDefault”，NOTNULL,NULLDefault”，

NOTNULLDefault”，NULLDefault”，NOTNULL,NULLDefault”，

NOTNULL,NULLdefaultGetDate(),NOTNULLNULLNULLNOTNULLNOTNULLDefault”,Default”，Default”，Default”，NULL,Default”，NULL,[aver_danj][numeric](12,2)NULLDefault0.00,[total_je][numeric](12,2)NULLdefaultGetDate(),NOTNULLNULLNULLNOTNULLNOTNULLDefault”,Default”，Default”，Default”，NULL,Default”，NULL,[total_je][numeric](12,2)NULLDefault0.00,[bz][char](100)NULLDefault”，)對于常用、使用頻率高的操作需要在數(shù)據(jù)庫后臺進(jìn)行優(yōu)化。SQLServer提供存儲過程來完成對有關(guān)操作的優(yōu)化。存儲過程是保存在數(shù)據(jù)庫中經(jīng)過編譯的SQL程序，比一般SQL語句查詢速度快10倍以上。存儲過程編寫成功后，編譯后保存在數(shù)據(jù)庫中。通過如下的SQL語句調(diào)用指定的指定的存儲過程：execute存儲過程名稱下面是為化妝品設(shè)置創(chuàng)建的存儲過程：CREATPROCEDUREwz_setup/*輸入?yún)?shù)*/(@dmchar(30),@mcchar(40),@jldwchar(8),@color_codechar(10),@lbchar(30),@rkjnumeric(12,2),@fxjnumeric(12,2),@lsjnumeric(12,2),@cjchar(20),@yxrqdatetime,@bzchar(255))ASinsertdm_wz(dm,mc,jldw,color_code,lb,rkj,fxj,lsj,cj,yxrq,bz)values(@dm,@mc,@color_code,@lb,@rkj,@fxj,@lsj,@cj,@yxrq,@bz)GO注：其他存儲過程略。2.6.5創(chuàng)建ODBC程序?qū)?shù)據(jù)庫的訪問需要通過ODBC來實(shí)現(xiàn)。打開“控制面板”中“管理工具”的“ODBC”創(chuàng)建文件DNS,登陸方式選擇“使用用戶輸入登陸ID和密碼的SQLServer驗(yàn)證”，登陸ID為sa，密碼為空。2.6.6運(yùn)行程序完成以上各部的操作并將程序代碼拷貝到計(jì)算機(jī)后，就可以運(yùn)行程序。登陸用戶名為缺省，密碼為空。第三章系統(tǒng)用戶管理模塊的創(chuàng)建1用戶登錄窗體的創(chuàng)建系統(tǒng)啟動(dòng)后，將首先出現(xiàn)如圖3-1所示的用戶登錄窗體，用戶先輸入用戶名，然后輸入密碼。(如果用戶3次輸入密碼不正確，將退出程序。)用戶登錄窗體中放置了兩個(gè)文本框(TextBox)，用來輸入用戶名和用戶密碼;兩個(gè)按鈕(CommandButton)用來確定或者取消登錄；四個(gè)標(biāo)簽(label)用來標(biāo)示窗體的信息。為窗體定義全局變量OK，用來判斷登錄是否成功；定義miCount，用來記載輸入密碼的次數(shù)。并且在載入窗體時(shí)初始化這兩個(gè)全局變量。圖3-1用戶登錄窗體OptionExplicit是用來規(guī)定所有變量使用前必須定義。這樣可以避免由于輸入錯(cuò)誤而產(chǎn)生的新變量。當(dāng)用戶輸入完用戶名和密碼，單擊cmdOK按鈕將對用戶信息進(jìn)行判斷。用戶單擊該按鈕，將觸發(fā)按鈕cmdOK的Click事件。用戶如果沒有輸入用戶名和用戶密碼，將出現(xiàn)消息框提示。如果輸入的用戶名在用戶表格中沒有找到，將提示重新輸入用戶名，文本框txtUserName將重新獲得輸入焦點(diǎn)。如果用戶輸入的密碼不正確，文本框txtPassword將重新獲得輸入焦點(diǎn)。用戶登錄成功，全局變量OK將被賦值為True；一旦3次輸入密碼不正確，全局變量OK將被賦值為False。公用模塊中的main過程將根據(jù)OK的值決定是退出，或者進(jìn)入系統(tǒng)。如果用戶取消登錄，單擊cmdCancel按鈕，將觸發(fā)按鈕的Click事件。Me是vb中一個(gè)常用的對象，用來指代當(dāng)前對象本身。

第四章基本信息設(shè)置模塊的創(chuàng)建基本信息設(shè)置模塊主要實(shí)現(xiàn)如下功能:★添加和修改商品信息★添加和修改商品類別信息★添加和修改供應(yīng)商信息★添加和修改業(yè)務(wù)員類別信息★添加和修改業(yè)務(wù)員信息★添加和修改倉庫信息1商品設(shè)置窗體的創(chuàng)建選擇“基本信息設(shè)置|商品設(shè)置”，將出現(xiàn)圖4-1所示窗體這個(gè)窗體用來顯示商品設(shè)置信息，并且可以對各條記錄進(jìn)行操作。在載入窗體時(shí)，程序?qū)⒆詣?dòng)載入所有記錄。窗體的show方法后面加上0或者1,可以得到不同的窗體顯示方式。參數(shù)為0時(shí)，顯示的窗體為無模式形式，窗體切換時(shí)不需要進(jìn)行其他操作；參數(shù)為1時(shí)，顯示的窗體為有模式形式，窗體切換時(shí)必須進(jìn)行相關(guān)操作。圖4-1商品設(shè)置窗體載入窗體時(shí)將自動(dòng)顯示各條記錄。函數(shù)ShowTitle用來顯示表頭。函數(shù)ShowSata把各條記錄加到表格中，并顯示出來。在窗體顯示時(shí)，可以控制窗體中各個(gè)控件按照要求的位置顯示。可以在窗體的Resize事件中加入代碼。在商品設(shè)置窗體中單擊“添加”按鈕，將出現(xiàn)如圖4-2所示窗體圖4-2添加商品信息窗體圖4-2添加商品信息窗體載入窗體時(shí)，首先根據(jù)標(biāo)志變量判斷狀態(tài)，然后決定是添加還是修改。輸入內(nèi)容完畢，單擊“保存”按鈕，將首先判斷輸入內(nèi)容是否滿足要求，然后添加到數(shù)據(jù)庫中。在商品設(shè)置信息列表中選擇需要修改的記錄，然后單擊“修改”按鈕，將出現(xiàn)如圖4-2所示的窗體。選擇記錄的內(nèi)容將顯示在窗體中，可以進(jìn)行修改，最后保存修改后的記錄。在商品設(shè)置信息列表中選擇需要?jiǎng)h除的記錄，然后單擊“刪除”按鈕，將刪除當(dāng)前記錄。4.2商品類別設(shè)置窗體的創(chuàng)建商品類別的選擇在如圖4-2所示的窗體中雙擊“類別”文本框，出現(xiàn)如圖5—3所小的對話框。在如圖4—3所示的對話框中不僅可以選擇已有的類別，還可以添加和修改商品類別。主要功能通過一個(gè)TreeView控件完成。商品類別包括兩個(gè)層次：第一層為父類，第二層為子類，商品類別需要的是子類的類別編號。4—3商品類別選擇對話框窗體載入時(shí)，將顯示已有的商品類別層次關(guān)系。在樹狀結(jié)構(gòu)中選擇相應(yīng)的類別，程序?qū)@得當(dāng)前選擇節(jié)點(diǎn)的信息。按“確定”按鈕將返回并獲得相應(yīng)的類別。商品類別的設(shè)置分為兩步：首先設(shè)置父類，然后設(shè)置子類。在如圖4-3所示的窗體中單擊“添加父類”按鈕，將在樹狀結(jié)構(gòu)中添加一個(gè)根節(jié)點(diǎn)。根節(jié)點(diǎn)的鍵值自動(dòng)產(chǎn)生，名稱需要重新設(shè)置。當(dāng)節(jié)點(diǎn)名稱指定后，數(shù)據(jù)才保存到數(shù)據(jù)庫中。子類添加過程類似。4.3其他信息設(shè)置窗體的創(chuàng)建其他信息設(shè)置窗體的創(chuàng)建方法大同小異，請參考源代碼的基本信息設(shè)置模塊。第五章會員信息管理模塊的創(chuàng)建1個(gè)體會員信息窗體的創(chuàng)建選擇“會員管理I會員信息I個(gè)人會員”菜單，將出現(xiàn)如圖5-1所示的窗

體圖5-1個(gè)人會員信息列表窗體體選擇“添加”按鈕，然后在如圖5-2所示的窗體中添加會員信息。在如圖5-1所示的個(gè)人會員列表中選擇記錄并選擇“修改”按鈕，然后在如圖5-2所示的窗體中修改會員信息。圖5-2添加、修改個(gè)人會員窗體5.2團(tuán)體會員信息窗體的創(chuàng)建團(tuán)體會員信息窗體的創(chuàng)建和個(gè)人會員信息窗體類似。第六章進(jìn)貨信息管理模塊的創(chuàng)建進(jìn)貨信息管理模塊主要實(shí)現(xiàn)如下功能：★訂貨單管理★入庫單管理★進(jìn)貨信息查詢6.1訂貨單管理窗體的創(chuàng)建一般進(jìn)貨分兩步：第一步到供應(yīng)商簽訂訂貨單，達(dá)成進(jìn)貨意向；第二商品到貨入庫，完成商品入庫、庫存更新。選擇“進(jìn)貨信息管理I訂貨單錄入修改”菜單，將出現(xiàn)如圖6-1所示窗體。

圖6—1訂貨單窗體記錄添加、修改和刪除實(shí)現(xiàn)的方法和4.1節(jié)中商品設(shè)置的方法類似，在如圖6—2所示的窗體中添加和修改訂貨單信息。既進(jìn)黃訂單信息既進(jìn)黃訂單信息.其.其2入庫單管理窗體的創(chuàng)建在實(shí)現(xiàn)這個(gè)模塊功能的過程中?庫單信息時(shí)，首先需要?jiǎng)h除入丁入庫記錄，并更新庫存信息。2:商品入庫需要實(shí)現(xiàn)入庫單和庫存信息的更新。要特別注意多個(gè)數(shù)據(jù)表的數(shù)據(jù)的關(guān)聯(lián)：如修改入庫記錄，恢復(fù)庫存信息到原始狀態(tài)，然后添加新的整個(gè)入庫單管理的流程如圖6—3所示：：：：：：：：：：：

圖6—3入庫單管理流程圖選擇“進(jìn)貨信息管理I單錄入修改”菜單，所有入庫單將出現(xiàn)如圖6—4所示的窗體圖6—4入庫單信息列表窗體入庫單信息列表中選擇需要修改的記錄，單擊“修改”按鈕。選中的記錄出現(xiàn)在如圖6—5所示的窗體中，可以進(jìn)行修改。

6—5入庫單信息修改窗體3進(jìn)貨信息查詢?nèi)霂焐唐沸畔⒖梢园凑展?yīng)商、保存?zhèn)}庫和業(yè)務(wù)員進(jìn)行查詢。這里介紹按照供應(yīng)商方式查詢。選擇“進(jìn)貨信息管理I信息查詢I查供方進(jìn)貨”菜單，將出現(xiàn)如圖6—6所示的窗體。圖6—6入庫商品信息查詢窗體這個(gè)模塊可以查詢指定供應(yīng)商所有的進(jìn)貨信息，還可以查詢指定供應(yīng)商在規(guī)定時(shí)間內(nèi)的進(jìn)貨信息。第七章銷售信息管理模塊的創(chuàng)建銷售信息管理模塊主要實(shí)現(xiàn)如下功能：★銷售單的錄入和修改★有關(guān)銷售信息的查詢，可以采取多種方式。

圖7-1銷售單信息列表圖7-2添加銷售單信息窗體7.1銷售單信息窗體的創(chuàng)建選擇“銷售信息管理I銷售單錄入修改”菜單，將出現(xiàn)如圖7-1所示的窗體。所有銷售單信息都將顯示出來。單擊“添加”按鈕，出現(xiàn)如圖7-2所示的窗體。選擇不同種類的會員，“會員名稱”列表框中自動(dòng)加入該種類所有會員。功能通過單選鈕的click事件完成。輸入完畢，單擊“保存”按鈕更新銷售信息和庫存信息。2銷售信息查詢銷售信息可以按照團(tuán)體會員、個(gè)人會員、倉庫和業(yè)務(wù)員進(jìn)行分類查詢。選擇“銷售信息管理I信息查詢I查物資、倉庫銷售”菜單，出現(xiàn)如圖7-3所示的查詢窗體

圖7—3銷售信息查詢窗體SubcmdOK_Click()dBeginDateAsStringdEndDateAsStringsQSqlAsString完成查詢條件的設(shè)置，單擊“確定”按鈕開始查詢。代碼如下：PrivateDimDimDimsQSql="selectouth.out_date,outh.outh_no,dm_ck.dm,dm_ck.mc,dm_wz.dm,dm_wz.mc,outh.cxend,outh.sl,outh.out_danj,outh.o_zk,outh.o_zke,outh.ywman,dm_kh.dm,dm_kh.mc,outh.jsfk,outh.jz,outh.yf,outh.bzfromouthinnerjoindm_khonouth.khdm=dm_kh.dminnerjoindm_ckonouth.ckdm=dm_ck.dminnerjoindm_wzonouth.wzdm=dm_wz.dmwheredm_ck.mcSubcmdOK_Click()dBeginDateAsStringdEndDateAsStringsQSqlAsStringdBeginDate=Format(CDate(cboYear(0)&〃-〃&cboMonth(O)&〃-〃&cboDay(O)),〃yyyy-mm-dd〃)dEndDate=Format(CDate(cboYear(1)&〃-〃&cboMonth(l)&〃-〃&cboDay(l)),〃yyyy-mm-dd〃)sQSql=sQSql&〃andouth.out_date>='〃&dBeginDate&〃'〃sQSql=sQSql&〃andouth.out_date<='〃&dEndDate&〃’〃EndIfIfTrim(sQSql)=〃〃ThenMsgBox〃請?jiān)O(shè)置查詢條件！",vbOKOnly+vbExclamation,〃警告〃ExitSubElsefrmInquireOCK.txtSQL=sQSqlMe.HidefrmInquireOCK.Show0EndIfEndSub第八章庫存信息管理模塊的創(chuàng)建庫存信息管理模塊主要實(shí)現(xiàn)如下功能：★轉(zhuǎn)倉單的錄入和修改★轉(zhuǎn)倉信息查詢★商品盤點(diǎn)

1轉(zhuǎn)倉單窗體的創(chuàng)建根據(jù)經(jīng)驗(yàn)活動(dòng)的需要，商品在各個(gè)倉庫種調(diào)配，這個(gè)功能由轉(zhuǎn)倉操作完成。選擇“庫存信息管理I轉(zhuǎn)倉單錄入修改”菜單，將出現(xiàn)如圖8-1所示的窗體。所有轉(zhuǎn)倉信息都將顯示出來。圖8-1商品轉(zhuǎn)倉信息列表在商品轉(zhuǎn)倉信息列表中單擊“添加”按鈕，將出現(xiàn)如圖8-2所示的窗體，用來添加商品轉(zhuǎn)倉信息。8.2轉(zhuǎn)倉信息查詢轉(zhuǎn)倉信息可以按照轉(zhuǎn)出倉庫、轉(zhuǎn)入倉庫和轉(zhuǎn)出轉(zhuǎn)入方式查詢。選擇“庫存信息管理I信息查詢I查轉(zhuǎn)入轉(zhuǎn)出”菜單，出現(xiàn)如圖8-3所示的窗體圖8-3轉(zhuǎn)倉庫信息圖8-2添加轉(zhuǎn)倉信息窗體

設(shè)置完查詢條件，單擊“確定”按鈕開始查詢，代碼如下:Sub設(shè)置完查詢條件，單擊“確定”按鈕開始查詢，代碼如下:SubcmdOK_Click()dBeginDateAsStringdEndDateAsStringsQSqlAsStringDimDimDimsQSql="selectzc.zc_no,zc.zc_date,zc.o_ckdm,ck1.mc,zc.i_ckdm,ck2.mc,zc.wzdm,dm_wz.mc,zc.cxend,zc.sl,zc.total_je,zc.ywman,zc.bzfromzcinnerjoindm_ckck1onzc.o_ckdm=ck1.dminnerjoindm_ckck2onzc.i_ckdm=ck2.dminnerjoindm_wzonzc.wzdm=dm_wz.dmwhereck1.mc='〃&Trim(Combo1(0))&〃’andck2.mc='〃&Trim(Combo1(1))&〃’〃IfchkDate.Value=vbCheckedThendBeginDate=Format(CDate(cboYear(0)&〃-〃&cboMonth(0)&〃-〃&cboDay(0)),〃yyyy-mm-dd〃)dEndDate=Format(CDate(cboYear(1)&〃-〃&cboMonth(1)&〃-〃&cboDay(1)),〃yyyy-mm-dd〃)sQSql=sQSql&sQSql=sQSql&EndIfThenIfTrim(sQSql)=〃〃MsgBox〃請?jiān)O(shè)置查詢條件！",vbOKOnly+vbExclamation,〃警告〃ExitSubThenElsefrmInquireOZC.txtSQL=sQSql"andzc.zc_date>='〃"andzc.zc_date>='〃&dBeginDate&"'〃"andzc.zcdate<='〃&dEndDate&〃'〃EndI