超市零售管理系統(tǒng)總體設(shè)計(jì)

1、HYPERLINK N:整理后http：shu.nN:整理后http：shu.nHYPERLINK N:整理后ttp:wwwcN:整理后ttp:wwwc摘 要21世紀(jì)，超市的競(jìng)爭(zhēng)也進(jìn)入到了一個(gè)全新的領(lǐng)域,競(jìng)爭(zhēng)已不再是規(guī)模的競(jìng)爭(zhēng)，而是技術(shù)的競(jìng)爭(zhēng)、治理的競(jìng)爭(zhēng)、人才的競(jìng)爭(zhēng)。技術(shù)的提升和治理的升級(jí)是超市業(yè)的競(jìng)爭(zhēng)核心。零售領(lǐng)域目前呈多元進(jìn)展趨勢(shì),多種業(yè)態(tài):超市、倉(cāng)儲(chǔ)店、便利店、特許加盟店、專賣店、貨倉(cāng)等相互并存。如何在激烈的競(jìng)爭(zhēng)中擴(kuò)大銷售額、降低經(jīng)營(yíng)成本、擴(kuò)大經(jīng)營(yíng)規(guī)模，成為超市營(yíng)業(yè)者努力追求的目標(biāo)。此次我使用Vsual FoxPro .編程,實(shí)現(xiàn)了一個(gè)簡(jiǎn)易的超市零售治理系統(tǒng)。本系統(tǒng)通過(guò)對(duì)超市零售治理系統(tǒng)

2、進(jìn)行需求分析和設(shè)計(jì)逐步將該系統(tǒng)的實(shí)現(xiàn)過(guò)程呈現(xiàn)出來(lái)。該系統(tǒng)能夠?qū)Τ猩唐返娜霂?kù)和出庫(kù)進(jìn)行登記，同時(shí)還能對(duì)商品信息和價(jià)格進(jìn)行查詢。關(guān)鍵詞:數(shù)據(jù)庫(kù);Visua oPro 6.;零售；查詢目 錄 TOC 13 z u HYPERLINK N:整理后l1 前言PAGEEF _Toc29578h1 HYPRINK l _oc29857802 1. 作業(yè)背景 AGRF Toc29801HYPERLINK N:整理后1. 選題講明 PGEREF _To2985703hYERLIK l _Toc2857884 1.2.1 差不多思路 PAGRFoc9888 h 1HYPERLINK N:整理后l1.2. 作業(yè)目

3、標(biāo)AERE _Toc295885 h 1 YELIN l_298578 .3 工作業(yè)績(jī) PAGEF _T98578086 h HPRIN l _Toc2985708713.1要緊收獲 AGERF _To298578 h 2 RLI l oc29578088.3.2 自我評(píng)定 PEREF _Toc29857808 2HYPERLINK N:整理后2 系統(tǒng)總體設(shè)計(jì) AGER Toc857889 3 HPERLINKl _To2957090 1系統(tǒng)結(jié)構(gòu)圖 PAGF _Tc8090 h HYPRLN l _To298789.2 數(shù)據(jù)庫(kù)總體設(shè)計(jì) PAGEREF _o287891 h 3 PERINK l

4、 Toc987802 .3 需求分析 GRF _oc29857892h 3HYPERLINK N:整理后24 所需的數(shù)據(jù)表 PGERF _Toc85793 h HYERLIN l _Toc29580942.4.1 所需的數(shù)據(jù)表結(jié)構(gòu) PERE Tc29857094hHYPERLINK N:整理后.5 建立項(xiàng)目 PAGEREF _c2985785 h 5 HYRLINl _oc2985096 建立數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)表 PGREF_Tc29578096 7HYPRLINKl _To29578097 3. 建立數(shù)據(jù)庫(kù) PAGERE To2987897 h 7HYPERLINK N:整理后l3.2 建立數(shù)據(jù)

5、表 PGERE _To2857098 7HYPERLINK N:整理后l4 表單的設(shè)計(jì) AEREF_o2985099h HYERLINK l_Tc98578100 . 登錄表單設(shè)計(jì) PGREF _oc9881 h8 HYPERLIN l _c9857811 4.2 商品入庫(kù)出庫(kù)輸入表單設(shè)計(jì)AGEEF_Toc9851 8ERLIN l _Toc985810 42.1商品入庫(kù)表單設(shè)計(jì) PAGREF Toc298578102 h 8 HYPLINK l _Toc29857103 4.22商品出庫(kù)輸入表單設(shè)計(jì) PAEREF_o2988103 h 0 HYPLINK l _Toc2878104 43 商

6、品價(jià)格查詢表單設(shè)計(jì) PAGREF To2578104 h 12HYPERLINK N:整理后l4.查詢表單設(shè)計(jì) PAGEREF _Tc28578105 h 2HYPERLINK N:整理后l4.3.2信息修改表單AEEF_To858106 1HYPERLINK N:整理后l.4 銷售表單設(shè)計(jì)AGEREF Toc2985707 h YPERLNK l _To29857108 4.4.1銷售價(jià)格信息表單設(shè)計(jì) AEREF _c28108 hHYPEINK l_Toc8578109 .2表單銷售匯總表設(shè)計(jì) PAGEEF _oc985789 27HYPERLINK N:整理后l5 主程序和系統(tǒng)連編 PA

7、GEEF _Tc9878110 h30HYPERLINK N:整理后 l _Toc29581115.1 主程序設(shè)計(jì) PAGERE c29571 h3 HYPERLINK l_Toc287112 5.系統(tǒng)連編 PAEE Toc957812 h 31HYPERLINK N:整理后結(jié)束語(yǔ) PGER _c878113 32HYPERLIN l _Toc2957114 參考文獻(xiàn) AGERF Toc28581 h 31 前言1.1 作業(yè)背景本文依照數(shù)據(jù)庫(kù)應(yīng)用與開發(fā)課程要求而做。課程作業(yè)要求如下:用數(shù)據(jù)庫(kù)治理系統(tǒng)開發(fā)工具(sual Foxro）開發(fā)一個(gè)有用的小型治理信息系統(tǒng)。依照課程設(shè)計(jì)時(shí)刻選擇適當(dāng)規(guī)模大小

8、的設(shè)計(jì)題目，按照系統(tǒng)開發(fā)的流程及方法,踏實(shí)地開展課程設(shè)計(jì)活動(dòng)。課程設(shè)計(jì)活動(dòng)中，撰寫相關(guān)技術(shù)文檔。最后提交詳細(xì)的課程設(shè)計(jì)報(bào)告。開發(fā)出可上機(jī)運(yùn)行的治理信息系統(tǒng),通過(guò)上機(jī)檢查。1.2 選題講明要在有限的兩周時(shí)刻設(shè)計(jì)出一個(gè)小型的超市零售治理系統(tǒng),考慮到我們知識(shí)面和視野以及信息系統(tǒng)的價(jià)值性,我決定設(shè)計(jì)一個(gè)日常生活中比較常見的超市零售治理系統(tǒng)。那個(gè)系統(tǒng)能夠?qū)Υ髮W(xué)生成績(jī)進(jìn)行查詢和治理,比較貼近我們大學(xué)生的實(shí)際,具有較強(qiáng)的可行性、實(shí)踐性和價(jià)值性。1.2 差不多思路設(shè)計(jì)該系統(tǒng)時(shí),采納自底向上的設(shè)計(jì)方法。首先設(shè)計(jì)數(shù)據(jù)結(jié)構(gòu),然后設(shè)計(jì)表單、菜單、報(bào)表，最后設(shè)計(jì)主程序。12.2 作業(yè)目標(biāo)要實(shí)現(xiàn)對(duì)超市商品信息和銷售價(jià)格的

9、治理,應(yīng)該有庫(kù)存治理和價(jià)格查詢功能。要退出系統(tǒng)，需要有退出功能。假如想打印價(jià)格表,應(yīng)該提供打印功能。因此超市使用本系統(tǒng)，能夠迅速提升超市的治理水平，降低經(jīng)營(yíng)成本,提高效益，增強(qiáng)超市擴(kuò)張力,提供有效的技術(shù)保障。13 工作業(yè)績(jī) 31要緊收獲通過(guò)這學(xué)期對(duì)數(shù)據(jù)庫(kù)這門課的學(xué)習(xí)，我對(duì)數(shù)據(jù)庫(kù)有了差不多的了解。學(xué)會(huì)了如何樣制作表單,菜單等內(nèi)容,這對(duì)以后的學(xué)習(xí)工作有了專門重大的關(guān)心。我通過(guò)這兩周的課程設(shè)計(jì):課程設(shè)計(jì)的選題，構(gòu)思，討論,分配任務(wù)，設(shè)計(jì)程序等工作，其中遇到了專門多的困難,然而沒(méi)有放棄,解決問(wèn)題，排除困難，這才一步步完成每個(gè)任務(wù)，還使我掌握了使用各種關(guān)系數(shù)據(jù)庫(kù)為后臺(tái)數(shù)據(jù)庫(kù)設(shè)計(jì)一個(gè)信息治理系統(tǒng)。總之,這

10、次課程設(shè)計(jì)受益匪淺，不僅鍛煉了我做事堅(jiān)持不懈的心態(tài)，也慢慢地培養(yǎng)了我不明白就查書的好適應(yīng)，我的自學(xué)能力也有了一定的提高，我更明白了搞計(jì)算機(jī)程序設(shè)計(jì),要學(xué)到真正的技術(shù)完全要靠自己，在課堂上只能學(xué)到最差不多的東西，但這最差不多的東西也一定要學(xué)好。1.3. 自我評(píng)定 優(yōu) 良 中及格 不及格2 系統(tǒng)總體設(shè)計(jì)2.1系統(tǒng)結(jié)構(gòu)圖開發(fā)該系統(tǒng)前,先要有一個(gè)清晰的系統(tǒng)總體功能圖。在超市零售治理系統(tǒng)中,由項(xiàng)目治理器統(tǒng)一治理系統(tǒng)中的表單、數(shù)據(jù)表、程序、報(bào)表以及主菜單。系統(tǒng)的整體結(jié)構(gòu)是先運(yùn)行主程序。表單和報(bào)表中的數(shù)據(jù)來(lái)自數(shù)據(jù)表中的數(shù)據(jù)。如圖2.圖21該系統(tǒng)應(yīng)包括如下幾個(gè)功能模塊，功能模塊結(jié)構(gòu)如下圖所示（1）輸入單據(jù):出

11、庫(kù)、入庫(kù)、產(chǎn)成品清單(）查詢:出庫(kù)查詢、入庫(kù)查詢、產(chǎn)成品查詢()銷售：銷售費(fèi)用、銷售退款、進(jìn)/退貨(4)打印報(bào)表:入庫(kù)報(bào)表、出庫(kù)報(bào)表。2 數(shù)據(jù)庫(kù)總體設(shè)計(jì)進(jìn)行數(shù)據(jù)庫(kù)總體設(shè)計(jì)首先要進(jìn)行需求分析,由需求確定系統(tǒng)所需要的數(shù)據(jù)表，然后確定表所需的字段,最后確定各個(gè)表之間的關(guān)聯(lián)。23 需求分析超市銷售治理系統(tǒng)要緊包括商品入庫(kù)出庫(kù)情況登記、商品信息及價(jià)格查詢和銷售業(yè)績(jī)匯總等功能。每個(gè)功能都要通過(guò)表單和報(bào)表來(lái)操作數(shù)據(jù)表中的數(shù)據(jù)，每個(gè)數(shù)據(jù)表存儲(chǔ)了本系統(tǒng)所需要的數(shù)據(jù)信息。因此在進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)之前,要分析出系統(tǒng)所需要的數(shù)據(jù)表。.4 所需的數(shù)據(jù)表分析超市零售治理系統(tǒng)的情況,首先需要了解商品的差不多信息，即需要差不多狀

12、況表。用戶需要查詢商品的生產(chǎn)廠商和價(jià)格等信息,因此需要的數(shù)據(jù)表有商品入庫(kù)表、商品廠商信息表和銷售表等。2.4.1 所需的數(shù)據(jù)表結(jié)構(gòu) 表1：入庫(kù)單 字段名 數(shù)據(jù)類型 長(zhǎng)度（字節(jié))備注 入庫(kù)編號(hào)文本 20主鍵 商品型號(hào) 文本 2 計(jì)量單位 文本 單價(jià) 貨幣 16 數(shù)量 數(shù)字 金額 貨幣 6 生產(chǎn)廠商 文本 0外鍵 出廠日期日期16 倉(cāng)管員 文本 20 外鍵表2：廠商信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度(字節(jié))備注 廠商編號(hào) 文本 20 主鍵 廠商名稱 文本 50 廠商地址 文本 5 聯(lián)系電話 數(shù)字 法人地表 文本 20 表：銷售單 字段名 數(shù)據(jù)類型 長(zhǎng)度(字節(jié)） 備注 單據(jù)編號(hào)文本 20 主鍵 商品型號(hào)

13、 文本 2 計(jì)量單位文本 8 單價(jià) 貨幣 數(shù)量 數(shù)字 金額 貨幣6 生產(chǎn)廠商 文本50外鍵 銷售日期 日期 6 營(yíng)業(yè)員 文本 20 外鍵 表：進(jìn)貨單 字段名 數(shù)據(jù)類型 長(zhǎng)度（字節(jié)）備注 單據(jù)編號(hào) 文本 20主鍵 廠商編號(hào) 文本 外鍵 進(jìn)貨廠商 文本50 商品型號(hào) 文本 計(jì)量單位 文本 8 單價(jià)貨幣 16 數(shù)量數(shù)字 1 金額貨幣 16 進(jìn)貨日期 日期 采購(gòu)員 文本 20外鍵 備注 備注 20 2.5 建立項(xiàng)目項(xiàng)目治理器是val foxro 提供的強(qiáng)大的治理工具，它負(fù)責(zé)治理和組織本系統(tǒng)所需要的數(shù)據(jù)庫(kù)、菜單、報(bào)表、表單、程序以及一些其他的文件，它是系統(tǒng)中文件、數(shù)據(jù)、文檔和對(duì)象的集合。項(xiàng)目治理器共有個(gè)

14、選項(xiàng)卡,分不是【全部】選項(xiàng)卡、【數(shù)據(jù)】選項(xiàng)卡、【文檔】選項(xiàng)卡、【類】選項(xiàng)卡、【代碼】選項(xiàng)卡和【其他】選項(xiàng)卡。每個(gè)選項(xiàng)卡按一定的順序和邏輯關(guān)系治理著項(xiàng)目中的文件。項(xiàng)目文件以擴(kuò)展名.pjx和pjt進(jìn)行保存。通過(guò)項(xiàng)目治理器,用戶能夠快速、方便地存取存放在項(xiàng)目文件中的任何對(duì)象。建立項(xiàng)目治理器的步驟如下所示。（1)啟動(dòng)visual fopo,進(jìn)入程序主界面。單擊菜單欄的【文件】 【新建】命令，在彈出的【新建】對(duì)話框中選擇【項(xiàng)目】單選按鈕,如圖2.2。圖2.2單擊【新建文件】按鈕。在彈出的【創(chuàng)建】對(duì)話框中設(shè)置一個(gè)文件名,文件名設(shè)為大學(xué)生成績(jī)查詢系統(tǒng)，單擊【保存】按鈕后即可彈出【項(xiàng)目治理器】對(duì)話框，那個(gè)新項(xiàng)

15、目就在項(xiàng)目治理器中建立起來(lái)了,如圖23。圖33 建立數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)表3. 建立數(shù)據(jù)庫(kù)首先創(chuàng)建數(shù)據(jù)庫(kù),在項(xiàng)目治理器中創(chuàng)建數(shù)據(jù)庫(kù)，保存數(shù)據(jù)庫(kù)名為【銷售治理.c】。3.2 建立數(shù)據(jù)表我們要在數(shù)據(jù)庫(kù)中建立表。在數(shù)據(jù)庫(kù)設(shè)計(jì)器中建立商品入庫(kù)出庫(kù)輸入表、商品信息表、商品價(jià)格表為了保持表中數(shù)據(jù)的一致性,需要在各數(shù)據(jù)表之間建立參照完整性。當(dāng)插入、刪除或者修改表中記錄時(shí),就會(huì)參照引用相關(guān)聯(lián)的另外一個(gè)表中的數(shù)據(jù)。關(guān)系數(shù)據(jù)庫(kù)治理系統(tǒng)一個(gè)重要的功能確實(shí)是參照完整性。必須先建立表之間的關(guān)系的,才能使用參照完整性。4 表單的設(shè)計(jì)4.1 登錄表單設(shè)計(jì)圖.1登錄表單提供銷售者登錄接口。銷售者只有輸入了正確的用戶編號(hào)和密碼,才能

16、登錄進(jìn)入系統(tǒng)。該表單使用差不多情況表,其界面如圖4.所示。4.2 商品入庫(kù)出庫(kù)輸入表單設(shè)計(jì)42.1商品入庫(kù)表單設(shè)計(jì) 、表單（輸入入庫(kù)單據(jù))實(shí)現(xiàn)功能：可通過(guò)那個(gè)表單將商品的相關(guān)信息輸入，例如編號(hào)、單價(jià)、數(shù)量等, 起到一個(gè)存儲(chǔ)信息的作用，方便以后查詢、總結(jié)等工作需要。實(shí)現(xiàn)過(guò)程：實(shí)現(xiàn)過(guò)程:單擊“文件”下拉菜單,再點(diǎn)擊“新建”,選擇“表單”，再單擊“新建文件”后開始表單輸入入庫(kù)單據(jù)的設(shè)計(jì)。如圖.2圖4.2設(shè)計(jì)界面如下:入入庫(kù)單據(jù)的設(shè)計(jì)的差不多結(jié)構(gòu)如圖.：圖43“輸入”按鈕代碼=ntm(vl(atri(iform.tex5.aue)=allrim（thisfr.Tt6.alue)g=altrim(hsf

17、orm.tex7.vue)h=vl(trim(thfrm.tt8.valu)i=ctd(allim(thisform.Text9.vau)）if mpty（a).o.epy(）orempty().or.epy(d）.or.epty(e)rempty(）or.empty().orempt(h)o.py（i)messgebx(請(qǐng)輸入完整信息) rturnndifinrt ino表入庫(kù)單；(入庫(kù)編號(hào),商品型號(hào),計(jì)量單位，單價(jià)，金額，生產(chǎn)廠商,倉(cāng)管員,數(shù)量，出廠日期) valu(a，b,c,，f,g，h，i）z0can for 商品庫(kù)存表.商品型號(hào)=b =nscnsef z1updat 商品庫(kù)存表 s

18、 數(shù)量=數(shù)量+ whee商品型號(hào)=mesagebo(輸入入庫(kù)單據(jù)成功！,64,系統(tǒng)提示) eturnseine ito 表商品庫(kù)存表; (商品型號(hào),數(shù)量) vale (b,h） iser into 表商品資料單;(商品型號(hào)) value () messgeox(你所輸入的是新商品,請(qǐng)輸入商品名稱) use form 表單輸入新商品名retrnedif“取消”按鈕代碼Thiorm.reese.2.2商品出庫(kù)輸入表單設(shè)計(jì)實(shí)現(xiàn)功能:可通過(guò)那個(gè)表單將出庫(kù)的商品相關(guān)信息輸入，例如編號(hào)、單價(jià)、數(shù)量等， 起到一個(gè)存儲(chǔ)信息的作用，方便以后查詢,總結(jié)等工作需要。實(shí)現(xiàn)過(guò)程:單擊“文件”下拉菜單，再點(diǎn)擊“新建”，選

19、擇“表單”,再單擊“新建文件”后開始表單輸入入庫(kù)單據(jù)的設(shè)計(jì)。設(shè)計(jì)界面如下：輸入入庫(kù)單據(jù)的設(shè)計(jì)表單如圖4.4圖4.“輸入”按鈕代碼aatrim(thisrm.tx1.vu)b=altrim(thisorm.Tet2.valu）c=lltrim（thisfr.tet3vlue)=nto（val(llti(thisrm.xt4.valu)entom(va（alltrim（thsform.tet5.alue)f=ltrim(thsorm.Txtva)g=alltrim(tsfom.tex7valu)h=val(alltim(thormtext8value)）ito(alrm(thiso.ext9val

20、u)if empty(a).or.empt(）.or.epty（).py（d）epy(e).or.empty(f).or.emty（g）.or.mpty(h）epty(i) messagox(請(qǐng)輸入完整信息) reurnend0 x0use 表商品庫(kù)存表sca fo 商品庫(kù)存表商品型號(hào)bz=1x=數(shù)量endscaif z=0essabox(庫(kù)存不足,無(wú)法出庫(kù)！)leif x mesebo(庫(kù)存不足,無(wú)法出庫(kù)?。?else pate 表商品庫(kù)存表set 數(shù)量=數(shù)量-h hre商品型號(hào)= insert into出庫(kù)單; (出庫(kù)編號(hào)，商品型號(hào),計(jì)量單位，單價(jià),金額,生產(chǎn)廠商，倉(cāng)管員，數(shù)量,出庫(kù)日期)

21、vlue(a，b,c,d,e，f,g,h,i) esgeo(輸入出庫(kù)單據(jù)成功！，4,系統(tǒng)提示)ifendif取消按鈕代碼iform.rase.3 商品價(jià)格查詢表單設(shè)計(jì)4.3.1查詢表單設(shè)計(jì)1、項(xiàng)目詳細(xì)設(shè)計(jì)查詢模塊：出庫(kù)查詢、入庫(kù)查詢、庫(kù)存查詢、商品資料查詢例：入庫(kù)查詢表單如圖5圖4.2、界面操作講明：按鈕操縱策略:組合框內(nèi)有9個(gè)選項(xiàng)，編輯框?yàn)榭?，查詢按鈕及取消按鈕一直為亮。查詢處理過(guò)程:此查詢?yōu)槟：樵儯聪陆M合框內(nèi)的選項(xiàng)，在編輯框內(nèi)輸入內(nèi)容,點(diǎn)擊查詢,屏幕上將顯示一系列與輸入內(nèi)容相關(guān)的記錄。取消后將返回原界面。注意:出廠時(shí)刻的輸入需要符合格式才能正確查詢，否則將出現(xiàn)運(yùn)行錯(cuò)誤的提醒。3、項(xiàng)目具

22、體實(shí)現(xiàn)例:入庫(kù)查詢表單本表單用于查詢?nèi)霂?kù)商品情況。在組合框中選擇要查詢的條件，如入庫(kù)編號(hào)、商品型號(hào)等,在文本框中輸入信息,按查詢按鈕,即可顯示出相關(guān)信息。如若輸入信息有誤則會(huì)有信息“數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄”提示。而按取消鍵則返回到主菜單。在表單上設(shè)計(jì)如下事件過(guò)程:、新建表單form1，并將其aption屬性值設(shè)為“入庫(kù)查詢”,width屬性值設(shè)置為290,heigt屬性值設(shè)置為175,AuoCeter屬性值設(shè)置為.，并將其保存為“入庫(kù)查詢.sc”。2、向表單添加一個(gè)gi控件，并將其dth屬性值設(shè)置為290,heigh屬性值設(shè)置為1。、在grd控件的下方添加一個(gè)組合框控件Comb1和一個(gè)

23、文本框控件, 并將組合框控件的RowSourcp屬性值設(shè)置為“8-結(jié)構(gòu)”,RowSu屬性值設(shè)置為“入庫(kù)單”。4、在文本框的右側(cè)再添加兩個(gè)命令按鈕commad1和commn，并將commnd1和comad2的caption屬性值分不設(shè)置為“查找”和“取消”。5、對(duì)表單上各控件的位置進(jìn)行適當(dāng)?shù)恼{(diào)整,調(diào)整后的表單設(shè)計(jì)器如圖4.6圖重點(diǎn):（1)“查找”按鈕(command1） 的ic事件如下 :i emty(tisorm.Tet.vu)=.gotophiorm.omb1value=alltrim（thifom.Tet1vale）locee if =入庫(kù)編號(hào) Slec*fro 入庫(kù)單 whee 入庫(kù)編號(hào)

24、 lkeb +% inoso bas sele bs c=rccut（) if 1 (圖“查詢”按鈕（comd）的click事件如下: use msgebox（數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,系統(tǒng)提示) thisrmcomand2clik() eturn endif edif if a商品型號(hào) lt * frm 入庫(kù)單 hre 商品型號(hào) ke b+% into cusor bas le bas c=ccount（） i 1 ue messgebox(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16，系統(tǒng)提示) d2.lck（) rtun eni nf if a計(jì)量單位 Slec * m 入庫(kù)單 here

25、計(jì)量單位 ik b+% no cursor ba selebs =recn() i cue mesagebx（數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,1，系統(tǒng)提示） thmand2click() reurn endifend f a=生產(chǎn)廠商 ect* fro 入庫(kù)單 whr 生產(chǎn)廠商 like +% itocrsor bs selebs ceccout() c us messgebx(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示) thsformcomnd.cli() rtrn endif edi fa=倉(cāng)管員 Selct * fom入庫(kù)單whr 倉(cāng)管員 lkeb+into curor b sel

26、e bas c=rccout（) f1 us messgebox（數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示) thifmand2lick() tur endif ndi if a=單價(jià) b=nm(al(alltm(thisform.text1.alue）)） Select from入庫(kù)單whre 單價(jià) =b ito crsor bas sl bas c=ccoun() f c1 e essagebx(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示） mand2ick() etun endf enifif a=金額 b=ntom(val(alltrim(thifor.tet1.vaue)

27、Select * from 入庫(kù)單 where金額 b no csr ba s c=reccoun（) if c1 use messagex（數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示） hsfrmcommand2.clck() reurn edi endif =數(shù)量 val(alltrim(thisfomtex1.vle) Select * from 入庫(kù)單wher數(shù)量 =b nto curso as selebas crnt() i 1 se messageox(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示) thisformommand2click() ren endif edf

28、if a=出廠日期 b=ct(allti(tsfo.text1.valu) Seec * frm 入庫(kù)單 whee 出廠日期 =binocr bs selebas c=reccunt（) if c1 ue ssabox(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄，16,系統(tǒng)提示) hisformcomm2.lick() reurn endif endif ih hisform.gd入庫(kù)單 .idt=58 .heght=200 .left=10 .recrdsourcebas .deetmrk=.f. .visible=.t. .eadnl=t.ColumnCut .olumn1.HaerCaptin=入庫(kù)

29、編號(hào) .olun1Heaer1BackCoor=RB(55,25，19) .Colun2.Heade.BcCoo=RG（25,25,190) .Coumn2.Header1.aption=商品型號(hào) .Coumn3Her1.BackClor=GB(255,25，10) Colmn.Hader1.aton=計(jì)量單位 .Colmn.eade.BackCl=RGB(5,25，190） .Colum4.Header.Caption=單價(jià) .Column5.eader.Bckolor=GB(25，25,90） .Column.Hader1.Capin=數(shù)量 .Column6.eader.cCor=RB（2

30、55,255，10) .Colmn6.er1.Capton=金額 .Clmn7.Hade.Bakolr=GB(2,255，10) .Colun7.eade1.Cption=生產(chǎn)廠商 .Clumn8.Header1.Bckoor=RB(25，5,19) .Coumn8.HeaderCapton出廠日期 .Colun9.Hader1akColor=G(25,55,10) .Coum.Headerati=倉(cāng)管員 .Colun1with=0 Colum2.widh=8 Coumn3width=0 .Cln4.width=8 .Cou.wdth .Column6.width=80 .Colun7wid=

31、0 omn8.idth=0 .Column9width80endwithto.gr入庫(kù)單.Seall(ynicaCoor,RGB(24,225，25),Col） tisform.gd入庫(kù)單.stfocuselse mesaebo(請(qǐng)輸入要查找的內(nèi)容！，1,系統(tǒng)提示) sfrmText1.vle= thisfrm.Text.Setfcusnf取消”按鈕（cmmnd2)的cick事件如下：Thiom.rlease下圖為查詢模塊其余的出庫(kù)查詢、庫(kù)存查詢和商品資料查詢的界面設(shè)計(jì)，其制作過(guò)程與入庫(kù)查詢相似。如圖47和48圖7圖4.8.2信息修改表單1、項(xiàng)目詳細(xì)設(shè)計(jì)修改模塊:出庫(kù)修改、入庫(kù)修改、商品資料修

32、改例：入庫(kù)修改 如圖49圖42、界面操作講明：按鈕操縱策略:查找方式組合框共有個(gè)選項(xiàng),查找內(nèi)容為空，查找、修改、取消按鈕一直為亮。修改處理過(guò)程:需要修改時(shí),在組合框中選擇要查找的條件,在文本框中輸入相應(yīng)信息(輸入信息要正確,否則系統(tǒng)會(huì)出現(xiàn)錯(cuò)誤提示），按按鈕查找，即下面的文本框中會(huì)出現(xiàn)所要查找的記錄的詳細(xì)信息(其中入庫(kù)編號(hào)是固定的)。對(duì)相應(yīng)信息進(jìn)行修改后,按按鈕修改，即可保存修改好的信息。、項(xiàng)目具體實(shí)現(xiàn)例：入庫(kù)修改本表單用于對(duì)入庫(kù)商品的相關(guān)信息進(jìn)行修改。在組合框中選擇要查找的條件,在文本框中輸入相應(yīng)信息（輸入信息要正確,否則系統(tǒng)會(huì)出現(xiàn)錯(cuò)誤提示），按按鈕查找,即下面的文本框中會(huì)出現(xiàn)所要查找的記錄的

33、詳細(xì)信息（其中入庫(kù)編號(hào)是固定的)。對(duì)相應(yīng)信息進(jìn)行修改后，按按鈕修改，即可保存修改好的信息。按取消按鈕則返回主菜單。本表單使用的數(shù)據(jù)環(huán)境為入庫(kù)單和廠商信息表。在表單上設(shè)計(jì)如下事件過(guò)程:1、新建表單fom1,并將其cpto屬性設(shè)置為“入庫(kù)修改”，wdth屬性值設(shè)為20,eigt屬性值設(shè)為2，AutoCnter屬性值設(shè)為.t.,并將其保存為“入庫(kù)修改.scx”。2、向表單添加一個(gè)grid控件，將其readonl屬性設(shè)置為.t，其RecdoucType值采納默認(rèn)的“1-不名”,在表單設(shè)計(jì)器中將其寬和高粗略調(diào)小一些即可,具體屬性值我們將在表單的int事件代碼中對(duì)其進(jìn)行設(shè)置。3、在i控件下方添加兩個(gè)Lab

34、e控件,使其排成一行,并將其caption屬性依次設(shè)為“請(qǐng)選擇查找方式”和“請(qǐng)輸入要查找的內(nèi)容”。4、在abel控件下方添加一個(gè)組合框控件Com1及一個(gè)文本框控件Text1,文本框控件的屬性值采納默認(rèn)即可,組合框控件ombo1的owSorceType屬性值設(shè)置為“值”,RwSoure屬性值設(shè)置為“入庫(kù)編號(hào)、商品型號(hào)、計(jì)量單位、單價(jià)、數(shù)量、金額、生產(chǎn)廠商、生產(chǎn)日期和倉(cāng)管員”,如此在運(yùn)行時(shí)我們能夠在該組合框中選擇要查詢的字段。5、在表單上添加3個(gè)命令按鈕oman1omand2和commad,將其cpton屬性依次設(shè)為“查找”、“修改”和“取消“。6、在命令按鈕下方添加9個(gè)l控件，將這9個(gè)ae控件排

35、成兩行，并將其cption屬性依次設(shè)置為“入庫(kù)編號(hào)”、“商品型號(hào)”和“計(jì)量單位”等等。7、在這兩行l(wèi)abel控件下方添加9個(gè)文本框控件,屬性值采納默認(rèn),并把這9個(gè)文本框排成兩行。8、調(diào)整表單上各個(gè)控件的位置,調(diào)整后的表單設(shè)計(jì)器如圖40重點(diǎn)：圖4.0“查找”按鈕(cmmand）的i事件如下：if mty(thior.ext1value）.f. go topatisform.mbo1valueb=alltim(hisfm.Text1.ale）c=.f if =入庫(kù)編號(hào) loatfr 入庫(kù)編號(hào)=b feo()messaebo(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示) gotop rturn

36、ele (圖） c=.t ndif enif if a=商品型號(hào) locate or商品型號(hào)=b if eof() egbx(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示) go to rturn es =. ndf endif ifa=計(jì)量單位 ocate fo 計(jì)量單位=b （) msagebox(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示) go tp reurn es =. ndif endif f a=單價(jià) b=ntom（val(lltim(thsformtext1.value) oae for 單價(jià)= if (） ssaebox(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,1,系統(tǒng)提示）

37、 o top reun ele .t enif eniff a=數(shù)量 b=vl(altrim(thisform.text1alue）) lcate or 數(shù)量= i eof（) mesgebo(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,，系統(tǒng)提示) g op reurn se c=.t. endf ndif if a金額 =ntom(v（lltm（thsfomtext1.au) oct for 金額 if (） messgeb(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示) go top retur ls c= endif enff a=生產(chǎn)廠商 ocat or生產(chǎn)廠商=b ieof() messae

38、box(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16，系統(tǒng)提示) go top reurn ele . nif endif if=出廠日期 b=cto（va(alltri(thiform.text1value) oct or出廠日期=b f o（) messaebox（數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,16,系統(tǒng)提示） goop return se t. edif ndi i=倉(cāng)管員 lateor倉(cāng)管員=b f eo(） essgebx(數(shù)據(jù)庫(kù)中不存在您所要查詢的記錄,1,系統(tǒng)提示) top rtun ee c=.t endif edif fc tior.ext1.eale=.f. grecno() t

39、hfom.xt2visible=.t. thiform.ext2.nabld=.f. tisform.ext3.visibl.t. thisfrm.ext4.visible. tisfrm.Text5.iile=.t. thiorm.Text6.visibe=. thisfrm.Txt7.visile=.t. hisorm.Text8.sbl=.t hisfor.Text9.visble=.t. thsform.Tet0.visl.t. hifor.Label.visible.t. tiformlabel4.viib=t thisform.Labelisilet thirmael6.vibe.

40、t. thisfrm.ael7.vsib=.t. thisform.Label8.visible=. thiformLabel9.vsile=. thsfoLabe1.visible=.t. thisobe1.ible.t. tsforTex2.alue=入庫(kù)單.入庫(kù)編號(hào) thifom.t.lue=入庫(kù)單商品型號(hào) tsfor.et4.vale=入庫(kù)單.計(jì)量單位 thsformex5.value=入庫(kù)單.單價(jià) thisform.ext6value=入庫(kù)單.數(shù)量 hsfomText7.valu=入庫(kù)單.金額 thisformText8.ale=入庫(kù)單生產(chǎn)廠商 hisforTet.value=入庫(kù)單

41、.出廠日期 thsorm.Tet1.alu=入庫(kù)單.倉(cāng)管員 thiorm.r入庫(kù)單.setfocus thisnab=.f isfomand2.ealed=.t. endiesemessagebox（請(qǐng)輸入要查找的內(nèi)容!，16,系統(tǒng)提示) thisom.Te1.alue= thisform.Txt1Setfcusedfhisfrmrfreh“修改”按鈕的lick的事件如下:tisfo.tet3readonly.thiform.textreadony.f.thisortext5eaonly.f.thsform.txt6radnly=f.tiform.tet7.readol.f.thisr.tt8

42、.readoly=.thsfom.tex9.readony=.f.thirmtext0.reanly=.“取消”按鈕的cck的事件如下:thisorm.elase下圖4.11為修改模塊的其余的出庫(kù)修改和商品資料修改的界面設(shè)計(jì),其制作過(guò)程與入庫(kù)修改的制作過(guò)程相似。圖4.114.4銷售表單設(shè)計(jì)4.1銷售價(jià)格信息表單設(shè)計(jì)表 銷售單 如圖.1、43、4.字段名數(shù)據(jù)類型長(zhǎng)度(字節(jié)）備注單據(jù)編號(hào)文本20主鍵商品型號(hào)文本0計(jì)量單位文本8單價(jià)貨幣16數(shù)量數(shù)字16金額貨幣16生產(chǎn)廠商文本50外鍵銷售日期日期16營(yíng)業(yè)員文本20外鍵圖.12圖4.3圖41表 退貨單 如圖4.5字段名數(shù)據(jù)類型長(zhǎng)度(字節(jié)）備注單據(jù)編號(hào)文

43、本0主鍵商品型號(hào)文本0計(jì)量單位文本單價(jià)貨幣8數(shù)量數(shù)字16金額貨幣16退貨日期日期1圖4.154.4.表單銷售匯總表設(shè)計(jì)實(shí)現(xiàn)功能:商品正常銷售治理。銷售情況的明細(xì)記錄、各地收銀員收銀記錄以及交結(jié)帳情況等，實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)添加銷售記錄 。實(shí)現(xiàn)過(guò)程：?jiǎn)螕簟拔募毕吕藛?再點(diǎn)擊“新建”，選擇“表單”,再單擊“新建文件”后開始表單輸入入庫(kù)單據(jù)的設(shè)計(jì)。如圖4.圖4.16設(shè)計(jì)界面如下:表單銷售情況記錄表的設(shè)計(jì)的差不多結(jié)構(gòu)如圖4.17：圖4.17數(shù)據(jù)環(huán)境(如圖4.1)圖418“輸入”按鈕代碼:對(duì)象：con 過(guò)程：clicka=altri（hiform.tt1.vue)balrim（thisformet2.ve）c=alrm（thiformtx3.vau）=ntm(vl(allti(thsfor.Text4.vle)e=nto（l(altrim(tifomtet5value)faltri（ifrm.Txt6.vaue）gllri(thisformte7.value)h=al(allt