【正文】 單getid= set order to 采購單號seek getidif found()a=messagebox(39。) if a=6 then if =39。 else Zdph=39。endifendif⑻創(chuàng)建入庫單新建一個表單，單擊數(shù)據(jù)環(huán)境添加入庫單，驗(yàn)收單、庫存單表、倉庫信息表、商品資料表。已入庫記錄不能重復(fù)入庫！39。其設(shè)計界面如圖 所示：圖 庫存盤點(diǎn)單在庫存盤點(diǎn)單中，有些常用控件的編碼在此前已有介紹，這里將不再贅述。完成39。其設(shè)計界面如圖 所示：47 / 56圖 庫存單報表⑾采購統(tǒng)計分析表單新建一個表單，在數(shù)據(jù)環(huán)境中添加商品采購單。臨時商品采購單39。過程如圖 所示：圖 采購審核單⑶編輯商品采購單：對采購單的負(fù)責(zé)人、采購狀態(tài)等進(jìn)行編輯以后就可以下單了。在用戶份權(quán)限登錄后，就可以相應(yīng)的操作，提高工作效率。在這里整個的采購過程就已經(jīng)結(jié)束。臨時商品采購單39。請?zhí)钊肫鹗既掌?9。不能重復(fù)盤點(diǎn)!39。 臨時單表39。系統(tǒng)提示 39。確定要入庫嗎？39。+padl(alltrim(str(Nzdph+1)),6,39。 messagebox(39。,48,39。 where amp。+alltrim() otherwiseCXTJ=alltrim()+39。39。 +39。其中表單添加各個控件的屬性如表 所示：表 各控件重要屬性及值對象 屬性 值Command1 Caption 查詢Command2 Caption 退出Grid1 Recordsource 商品采購單Combo1 Rowsource 商品采購單Combo1 Rowsourcetype 8結(jié)構(gòu)Combo2 Rowsource ,=,=,=Combo2 Rowsourcetype 1值設(shè)計界面如圖 所示：圖 采購查詢●在控件 mand1 的 click 事件中添加如下代碼：private CXTJif empty() or empty()。039。不能重復(fù)下單！39。其中表單添加各個控件的屬性如表 所示：表 重要屬性及值對象 屬性 值Command1 Caption 第一個… … …Command7 Caption 刪除Command8 Caption 退出Command9 Caption 查詢采購審核單界面如圖 所示39 / 56圖 采購審核單由于控件 mand1（第一個） 、 mand2（上一個） 、mand3 （下一個） 、mand4（最后一個） 、mand5 （編輯） 、 mand7（刪除） 、 mand8（退出） 、mand9（查詢）的代碼設(shè)計與前面創(chuàng)建的表單有類似之處，在此不在贅述。 values(zdph, ,date(), 商品編號.displayvalue, ,。系統(tǒng)提示39。確定要審核嗎？39。不能刪除此條記錄！39。 金額 with val( ),。 日期 with ,。修改39。) if a=6 sele 采購計劃單 insert into 采購計劃單。 =39。 =39。 =date() =39。 =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. select 采購計劃單 calculate max(計劃單號)to Czdph Nzdph=val(right(Czdph,6)) if Nzdph=0 then Zdph=39。) endif ●在控件 mand3（下一個）的 click 事件中添加以下代碼：33 / 56skipif eof()messagebox(39。設(shè)置控件的屬性，如表 所示表 重要屬性及值對象 屬性 值Combo1 Rowsource 用戶表Combo1 Rowsourcetype 2別名Command1 Caption 確定Command2 Caption 取消用戶登錄表單窗體的總體設(shè)計如圖 所示：圖 登錄界面●在 mand1 的 click 事件中添加如下代碼：if (n2) messagebox(密碼三次輸入錯誤,不能使用本系統(tǒng),48,信息提示) else select 用戶表 locate for alltrim(用戶名 )==alltrim() and 。如圖 所示：圖 新建項目創(chuàng)建一個命名為“進(jìn)銷存”的數(shù)據(jù)庫，然后通過數(shù)據(jù)庫結(jié)構(gòu)新建各個數(shù)據(jù)表。⑸統(tǒng)計分析管理：該模塊主要負(fù)責(zé)統(tǒng)計企業(yè)的采購情況和銷售情況。③驗(yàn)收退貨單：負(fù)責(zé)對驗(yàn)收未合格的貨位進(jìn)行退貨管理。②銷售計劃審核單：主要負(fù)責(zé)對銷售計劃單的審核。①商品采購計劃單：主要是負(fù)責(zé)錄入采購計劃單。? 針對系統(tǒng)的安全問題，系統(tǒng)設(shè)置了用戶登錄的權(quán)限，可以對使用者進(jìn)行一定得管理。? 對與輸入的數(shù)據(jù)能夠快速做出反應(yīng)，同時能夠快速的對數(shù)據(jù)庫內(nèi)容進(jìn)行更新。 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計根據(jù)上面的設(shè)計規(guī)劃出的實(shí)體有：采購計劃單，采購審核單，商品采購單，采購追蹤單，庫存單，送貨通知單，庫存盤點(diǎn)單，入庫單，出庫單，驗(yàn)收退貨單，驗(yàn)收單，缺貨單，銷售計劃單，銷售審核單，預(yù)售單，商品銷售單，領(lǐng)貨單，商品信息表，供應(yīng)商資料表，員工資料表，客戶資料表，倉庫信息表，用戶表?！耦A(yù)售單，包括的數(shù)據(jù)項有：預(yù)售單號，銷售日期，客戶編號，商品編號，出版社，商品名稱，單位，商品數(shù)量，單價，金額，負(fù)責(zé)人，備注?！袼拓浲ㄖ獑?，包括的數(shù)據(jù)項有：送貨單號，日期，采購單號，商品編號，商品名稱，出版社，商品數(shù)量，是否確認(rèn)，備注。以上為書店基本業(yè)務(wù)需求，在系統(tǒng)開發(fā)過程中通過對業(yè)務(wù)的分析，能夠?qū)λ械臉I(yè)務(wù)信息進(jìn)行合理配置，優(yōu)化信息資源，提高效率。完成采購訂單的下單后，對采購商品進(jìn)行時時跟蹤直到商品到貨后就完成了整個采購業(yè)務(wù)。管理信息系統(tǒng)的建立會提高工作效率從而提高企業(yè)的管理水平；節(jié)省了人力、減輕了有關(guān)業(yè)務(wù)人員的手工處理的工作負(fù)擔(dān)；能夠給公司領(lǐng)導(dǎo)者提供決策信息；與此同時系統(tǒng)的建立還促進(jìn)了業(yè)務(wù)的規(guī)范化、程序化；進(jìn)一步還可促進(jìn)有關(guān)管理方式的與體制的合理改革。因此，公司需要引進(jìn)進(jìn)銷存管理系統(tǒng)來對經(jīng)營的各個方面進(jìn)行管理和對系統(tǒng)資源配置進(jìn)行優(yōu)化，提高業(yè)務(wù)效率，增強(qiáng)競爭力。3 / 56第 2 章 系統(tǒng)規(guī)劃 系統(tǒng)開發(fā)的背景及基本需求求知書店是是一家中小型圖書零售批發(fā)的書店，主要經(jīng)營的書籍類型有計算機(jī)類、外語類、經(jīng)濟(jì)與管理類、教育考試類、母嬰少兒類、人文社科類、生活時尚類、科技類與文學(xué)類。隨著社會進(jìn)步,社會對人才素質(zhì)要求越來越高,相應(yīng)的,需要書店的工作也越來越全面、周到、先進(jìn)、高效。對庫存的實(shí)時管理可以大大降低庫存和減少資金占用，避免貨品積壓或短缺，保證日常經(jīng)營的正常進(jìn)行。進(jìn)、銷、存的管理是企業(yè)自身管理信息系統(tǒng)的重要組成部分。這些功能模塊的開發(fā)將大大提高日常工作的效率，不僅將原來由手工操作的采購、銷售及庫存這一整套流程用計算機(jī)進(jìn)行全程管理，而且消除了由于手工操作中而存在的不確定因素，使得進(jìn)銷存管理流程變得清晰，從而改善經(jīng)營者的管理模式。該系統(tǒng)主要功能模塊包括：采購管理、銷售管理、庫存管理、基礎(chǔ)信息管理及統(tǒng)計分析管理。 管理信息系統(tǒng)(MIS, Management Information System)是一個由人和計算機(jī)等組成的能夠提供信息以支持一個組織機(jī)構(gòu)內(nèi)部的作業(yè)，管理、分析和決策職能的系統(tǒng)。該系統(tǒng)可以幫助企業(yè)工作人員對庫存商品進(jìn)行詳盡、全面地控制和管理，提供的采購分析和銷售分析可以為管理者的決策提供依據(jù)。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的數(shù)據(jù)庫，而對于后者則要求應(yīng)用程序的功能完備、易使用等特點(diǎn)。課題完成后，將為開發(fā)面向書店或圖書銷售企業(yè)的進(jìn)銷存系統(tǒng)提出一套行之有效的模式與方法；給出的成功開發(fā)案例在印證開發(fā)模式正確的同時也可以為以后相關(guān)的開發(fā)提供參照；在解決開發(fā)中遇到的某些具體問題時所采用的某些方法，實(shí)現(xiàn)了某些開發(fā)方式上的創(chuàng)新。由于企業(yè)在日常經(jīng)營過程中處理業(yè)務(wù)非常頻繁，單靠手工操作效率底下，成本高昂。 管理上的可行性現(xiàn)代化的企業(yè)管理依賴現(xiàn)代化的管理，而現(xiàn)代化的管理離不開成功的管理信息系統(tǒng)。⑴在采購業(yè)務(wù)中，要求采購員先編制采購計劃單，完成后通過管理員對采購計劃單進(jìn)行審核，再成生成采購審核單，然后對供應(yīng)商下達(dá)采購訂單。⑸基礎(chǔ)信息管理，要求能夠?qū)ι唐沸畔ⅲ蛻粜畔?，供?yīng)商基本信息，倉庫信息及員工資料進(jìn)行信息資源的整合。 ● 庫存單，包括的數(shù)據(jù)項有：商品編號，商品名稱，倉庫編號，當(dāng)前庫存，最高庫存，安全庫存，備注?！皲N售審核單，包括的數(shù)據(jù)項有：審核編號，商品編號，日期，客戶編號，商品名稱，出版社，單位，商品數(shù)量，單價，金額，負(fù)責(zé)人，銷售審核，備注。 ●倉庫信息表，包括的數(shù)據(jù)項有：倉庫編號，商品編號，貨架區(qū)編號，貨架編號，貨位編號，備注 ●用戶表，包括的數(shù)據(jù)項有：用戶名，密碼，級別，備注。具體實(shí)現(xiàn)：? 系統(tǒng)對與操作命令做出準(zhǔn)確快速的反應(yīng),響應(yīng)時間最好在 5 秒中之內(nèi)，否則用戶將會感覺的系統(tǒng)運(yùn)行速度低效。? 真正達(dá)到進(jìn)銷存一體化管理。⑤倉庫信息資料：主要負(fù)責(zé)倉庫的基本信息管理 ⑵采購信息管理：該模塊主要負(fù)責(zé)進(jìn)行采購管理，包括采購計劃單、采購計劃審核單、商品采購單、采購追蹤單、采購查詢、采購報表。①商品銷售計劃單：主要是負(fù)責(zé)編制商品銷售計劃單。②入庫驗(yàn)收單：主要負(fù)責(zé)貨物入庫前的驗(yàn)收。⑩庫存報表：生成庫存報表。 創(chuàng)建數(shù)據(jù)庫 首先，新建一個項目。點(diǎn)擊數(shù)據(jù)環(huán)境，添加用戶表。系統(tǒng)提示39。保存39。39。39。否39。系統(tǒng)提示39。 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.f.35 / 56 =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. =.f. endif●在控件 mand6（修改）事件中添加以下代碼：if =39。) if a=6 repl 計劃單號 with alltrim( ),。 單價 with val( ),。 messagebox(39。) if a=6 then if eof()=.f.37 / 56 delete pack endif endifendif在控件 mand8（審核）的 click 事件中添加以下代碼：a=messagebox(39。,64,39。) endif 審核號=zdph 日期=date() insert into 采購審核單( 審核號,供應(yīng)商編號,日期,商品編號,出版社,商品名稱,單位,商品數(shù)量,單價,金額)。) go top endif ⑶創(chuàng)建采購審核單 新建一個表單，單擊數(shù)據(jù)環(huán)境添加采購審核單、商品資料表、商品采購單。 messagebox(39。+padl(alltrim(str(Nzdph+1)),6,39?！裨诳丶?mand8（打印）的 click 事件中添加以下代碼：select 商品采購單txt 采購單號=reo()report form rep1 for reo()=txt 采購單號 preview41 / 56⑸采購單查詢新建一個表單，單擊數(shù)據(jù)環(huán)境添加商品采購單。+alltrim()。 +39。39。 endcase select*from 商品采購單。不能輸入同一采購物品,請更改采購單號!39。已驗(yàn)收39。RK39。其中表單的設(shè)計界面如圖 所示：45 / 56圖 入庫單●在控件 mand6（入庫）的 click 事件中添加如下代碼：a=messagebox(39。,64,39?！裨诳丶?mand1（查詢）的 click 事件中添加以下代碼：select*from 庫存盤點(diǎn)單 where 操作日期= into cursor 臨時單表 =39。messagebox(39。其中一些重要控件的設(shè)計屬性如表 所示：表 重要控件屬性對象 屬性 值Text1 Value ｛｝Text2 Value ｛｝Grid1 Recordsource 商品采購單其設(shè)計界面如圖 所示：圖 采購統(tǒng)計分析單●在控件 mand1（查詢）的 click 事件中添加以下代碼：if empty() wait windows39。 endif endif●在控件 mand3（查詢）的 click 事件中添加以下代碼：select 商品編號,商品名稱,出版社,sum(商品數(shù)量) as 數(shù)量總和,sum(金額) as 金額總和 from 商品采購單 into cursor 臨時商品采購單=39。如圖 所示：圖 商品采購單⑷編輯采購追蹤單：通過添加采購單，就可以對特定的采購單進(jìn)行追蹤，通過修改采購狀態(tài)進(jìn)行采購的時時監(jiān)控，直到貨物的順利到貨。因程序設(shè)計水