1、CS倉庫設計報告課程設計課程：數據庫應用課程設計題目：倉庫管理系統專業：信息管理與信息系統班級：座號： 姓名:2012 年 624日目錄.系統定義二.需求分許1）功能需求2）用戶需求三.數據流圖四、系統設計1、概念結構設計2、邏輯結構設計3、系統功能模塊圖4、其它設計圖形工具五、詳細設計六、系統實現與測試1、開發平臺和工具選擇 2、系統測試七、課程設計總結、系統乂具有一定規模的公司或商店都需要為自己公司或商店里的貨物進行管理，倉庫管理系統就是為了管理貨物而開發的數據庫軟件。倉庫管理系統是企業日常經營管理中十分重要的一個組成部分，它包括 日常的銷售出庫、產品入庫、盤點等業務。倉庫管理系統幫助企業

2、的倉 庫管理員對倉庫物品的入庫、出庫、盤點等操作進行全面的控制和管 理，達到提高倉庫控制精度、降低倉庫量，提高客戶服務水平，保證生 產經營活動順利進行的目的。二、需求分析(1)功能需求該系統主要分為四大功能：、一般用戶功能、管理員功能、信息安 全功能還有報表功能。1) .一般用戶功能：查詢庫存信息、查詢出庫信息、查詢入庫信息、修改本用戶密碼。2) .信息安全功能：人員權限區分、事件記錄、數據警告、計劃備份、即時備份、數據恢復;3) .管理員功能：確認添加及修改產品入庫信息、產品出庫信息、庫存信息，查詢庫存信息、盤點等功能。(2)用戶需求根據用戶需求，該系統應該實現以下功能:1) .進、出庫管理

3、。對進、出庫信息進行記錄。2) .查詢功能。倉庫管理對查詢要求高，通過主菜單記錄當前操作用戶的用戶編號，保證了對進、出庫信息錄入負責人的確認。3) .由于計算機能存貯大量的數據，而且數據只要一次存入，便可多 次重復使用，所以管理數據達到完整，統一，原始記錄能保證及時，準 確。4) .許多重復性的工作，都可由計算機去執行，從而使管理人員從事 務性工作解脫出來，真正變為從事一些信息的分析，判斷，決策等創造 性的工作。5) .還包括根據月份對出入庫報表的打印。以及授權功能。三.數據流圖1.數據流圖1)頂層數據流圖：倉庫嚴庫信壬HR、”出庫場庫倉庫存信2)第一層數據流圖:3）第二層數據流圖：產品入庫信

4、息管理細化:產品出庫信息管理細化:四、系統設計1、概念結構設計畫出系統ER圖2、邏輯結構設計將ER圖（或其他概念設計圖）轉換為具體的DBM對應的 關系模式。人員（人員編號，人員名稱,住址，電話）產品（產品編號，產品名稱，產品數量，產品規格）入庫（入庫編號，入庫時間，入庫數量）出庫（出庫編號，出庫時間，出庫數量）3、系統功能模塊圖畫出系統功能模塊圖，并對子模塊功能進行詳細說明。出入1r報表4、其它設計圖形工具特別提示：允許用其他分析、設計工具。在此補充在設計過程中采用的其它設計工具圖形。五、詳細設計主要的表。物料信息表create database studb on p rimary(n ame

5、 studata*file name =，d:dbstudat.mdfsize =3mb.filegrowth =3mb)log on(name ="stulog, ,file name =,d:dbstulog.ldf, size =1mb, maxsize =10mb ,filegrowth =10 %use studb gocreate table xg0301 worker(pno char ( 5) primary key , pname char ( 10), birthsexchar ( 5),idhomechar (10),dizhichar ( 50),telech

6、ar (20),secretchar ( 5),zhiweichar ( 10),qua nxiachar ( 25),beizhuchar ( 20)WCJrkbhvwnafneguigedanweikuojibeizhuwIF IS疳103OOS紅蓋202004004IP IS05COS果汁 ins1箱-LO斗CMlaLS1箱122007縱茶20209*AUifltJLLNLMALti員工信息表use studbgocreatetable xg0301wuliao(wnochar ( 10),rkbhchar ( 6) primarywn amechar ( 15),guigechar (

7、 20),danweichar ( 10),kucunintbeizhuL pnopnamebirihsexhoneteleDDI張三1995/9/7 0； 00； W胃430981992(H2副 Hnj4陽DD2李四159 的 g QQ； 00 130981199HH2木曷卅福州卜fbS宜123456003王a1992/7/70:00:001309811992042.,福卅12J457。訊1M2/S/7 0:00:00胃濯J偉晉昊 34舟DOS楊七IM2/5/70:QQ： iW女翩隔晉安4MOD?ee3012/a/140;0D;(W鬼450*6 UWKHI荷州1214KA«

8、3;NUU.ah IMUchar ( 20)N - ULKU£|UA>VJ.IUEUrA- ULHJJiyUa>ULL4aiKU . A - UU<J.HjyUWJJWLft1U9UjuAwui .irr E SOCm .入庫信息表use studbg。createtablexgO3O1 ruku(rkdhint ,rkrqdatetime,wno char ( 10 ),wnamepeople shuliang beizhuprimary)use studbg。create(ckdhckrqchar ( 10),char ( 10 ),int,char ( 20

9、), key ( wno)四.table xgO3O1chukuint ,datetime ,出庫信息表wno char ( 10 ),wname char ( 10),peoplechar ( 10 ),shuliangint ,beizhuchar ( 20 ),primary ( wno)六、)界面設計一：登錄界面:分別設置了兩個職位，管理員和職工。登入后界面不一樣。登錄代碼如下：varauth_desc:string;beginwith adoqueryl dobeginclose;sqLClear;sql.Add(,select quanxian from xgOSOIworker1

10、);sqlAdd('where pno='"+edit1 .Text+,M and secret=,"+edit2.Text+,M,); open;auth_desc:=adoquery1.fieldbyname('quanxian').AsString;!請重新輸入！）；if adoqueryl .RecordCount<=0 then beginshowmessage輸入的密碼錯誤或者用戶名不存在！ endelsebeginifstrpos(pchar(auth_desc),'1')< >nilthenx

11、gO3O1_jiemian.N1.Enabled:=true else xgO3O1_jiemian.N1.Enabled:=false;ifstrpos(pchar(auth_desc),'2')<>nilthenxgO3O1_Jiemian.N2.Enabled:=true else xgO3O1_jiemian.N2.Enabled: =false; ifstrpos(pchar(auth_desc),'3')< >nilthenxgO3O1_jiemian.N3.Enabled:=true else xgO3O1_jiemian.

12、N3.Enabled:=false; ifstrpos(pchar(auth_desc),'4')< >nilthenxg0301_jiemian.N4.Enabled:=true else xg0301_jiemian.N4.Enabled:=false; ifstrpos(pchar(auth_desc),'5')<>nilthenxgO3O1_Jiemian.N5.Enabled:=true else xgO3O1_jiemian.N5.Enabled:=false; ifstrpos(pchar(auth_desc)/6'

13、)< >nilthenxgO3O1_jiemian.N6.Enabled:=true else xgO3O1_jiemian.N6.Enabled:=false; ifstrpos(pchar(auth_desc)/7')< >nilthenxgO3O1_jiemian.N7.Enabled:=true else xgO3O1_jiemian.N7.Enabled:=false; ifstrpos(pchar(auth_desc),'8')<>nilthenxgO3O1_jiemian.N17.Enabled:=true else x

14、gO3O1_jiemian.N17.Enabled: =false; ifstrpos(pchar(auth_desc)/a')< >nilthenxgO3O1_jiemian.N11.Enabled:=true else xgO3O1_Jiemian.N11.Enabled:=false; ifstrpos(pchar(auth_desc),'b')<>nilthenxgO3O1_jiemian.N16.Enabled:=true else xgO3O1_jiemian.N16.Enabled: =false; ifstrpos(pchar(a

15、uth_desc),'c')< >nilthenxgO3O1_jiemian.N9.Enabled: =true else xgO3O1_jiemian.N9.Enabled: =false; ifstrpos(pchar(auth_desc),'d')<>nilthenxgO3O1_jiemian.N1O.Enabled:=true else xgO3O1_jiemian.N 10.Enabled: =false; ifstrpos(pchar(auth_desc),'e,)< >nilthenxg0301_Jiem

16、ian.N14.Enabled:=true else xg0301_jiemian.N14.Enabled:=false; ifstrpos(pchar(auth_desc),'f)<>nilthenxgO3O1_Jiemian.N15.Enabled:=true else xg0301_jiemian.N15.Enabled: =false;xg0301_root.Hide; xg0301_jiemian.Show;end;end;二：主界面當登錄者為管理員時，主界面如下:；心舊題料常理2 汪倉前斗耳出侖飆超搟改5(5進團它查阿6(,可幺已計與按夬7m遇出罔霞正1出 母當

17、登陸者為職工時，主界面如下：*進人界面"S理辨4言理2 (2)左住理Sf®迫兮同聞覲脩諛節迸出直舄6疣計與漏萌)退出牧嗣敏幽三：人員管理界面刷新人員代碼；adoqueryl.close;adoqueryl.sql.clear;fromadoqueryl .sql.add(select xg0301 worker');adoqueryl. open;jBshjmcissfM M flamei 19321P21960 料卅iSB5119KtM2155n%Hi5?怖勘刷 IffisawlzL 即區臆12M5G詒增加人員代碼：if (comboboxl Text="

18、;)and (editl.Text =") and (edit2 Text=")and(edit4 Text=")and(edit5 Text=")and(edit6 Text=")and(edit? Text=")thenbegin showmessage請把信息添加完整！ )； exit;end;adoqueryl .close;adoqueryl .sql.clear;adoqueryl .sql.add('insertintoxg0301worker(pno,pn ame,birth,sex,id,home,diz h

19、i,tele,beizhu)values("'+edit1 .Text+","+edit2.Text+ ,+datetimetostr(date()+",+combobox1.Te xt +",+edit4.Text+,","<+edit5.Text+mi,"+edit6.Text+,","<+edit7.Text+,",+edit8.Text+adoqueryl.execsql;showmessage信息添加成功');人員代51006身忖證434A5633

20、八 11出生日同恢二 1 Pfojectl|2D1?/ a/15底磊電ii1備注刪除人員代碼:adoqueryl.close;adoqueryl.sql.clear;adoqueryl .sql.addCdelete xg0301 workerwhere pno=lll+edit1 Textadoqueryi.execsql;showmessage 冊U除成功！);身 f，上證* j 3435365&3312323曙果lii出生日同性另rProjertli起丸|2D1?/ 3/15家庭地i I d聆年電G、I名建根據編號姓名查詢人員代碼:with ADOQueryl dobeginif

21、 radiogroup 1 .ltemlndex=O thenbeginclose;sql.Clear;sqleadd(select * from xg0301 worker where pno='"+edit3.Text+'");open; end elsebeginclose;sql.Clear;sqleadd(select * from xg0301 worker where pname like "'+'%'+edit3.Text+'%'+"");open;end;edit 1 .

22、Text: =fieldbyname('pno').AsString;editZ.TextfieldbynameCpname'J.AsString;comboboxl Text: =fieldbyname(,sexl) AsString;datetime picker 1 DateTime: =fieldbyname(,birthl ).AsDateTime;edit4.Text:二fieldbyname('id').AsString; edit5 TextfieldbynameChome1) AsString; edit6 Textfieldbynam

23、eCdizhi1) AsString; edit7 Text: =fieldbyname(ltelel) AsString;I InBn芳丐行昶護-3FEQ4 土miMlpf» Irnn . rtlIXfcIhivnv4 H上iqLUM的K曲回的30421弓豳4133453 «n倉岸IH跟12SdM四：物料管理界面刷新物料代碼：adoqueryl.close;adoqueryl.sql.clear;adoqueryl .sql.add(selectfromxgOSOIwuliao1);adoqueryl. op en;v/noJiikibh | v/iameJ1 danv/

24、eiI kucur>IbeizhiJ|,113-181030032祗000413f4S05005諧陽 10OOC1220072F20s增加物料代碼:if (comboboxl Text=")and (edit3 Text =") and (edit2 Text=")and(edit4 Text=")and(edit5 Text=")and (edit6 Text=")and(edit1 Text=")thenbegin showmessage請把信息添加完整！)； exit;end;adoqueryl.close;ad

25、oqueryl .sql.clear;adoqueryl .sql.addCinsertintoxg0301wuliao(wno,rkbh,wname,guige,danwei,k ucun,beizhu)values('"+combobox1 Text+,",+edit1.Text+,"+edit2.Text+,",+edit3.Text+,",+edit4.Text+",+edit5.Text+ ,",+edit6.Text+ “')')；adoqueryl .execsql;showmessag

26、e信息添加成功')；物料編4物料名*單位ow備注刪除物料代碼：adoqueryl.close;adoqueryl.sql.clear;adoquery 1 .sql.addCdelete xg0301wuliaowhere rkbh="'+edit1 .Textadoqueryi.execsql;showmessage 刪除成功！）；物料編4物料名*規格單付I3S入庫嗝 不備連五：入庫界面添加新單號代碼：vari:integer;beginwith ADOQueryl dobeginclose;sql.clear;sql add(selectmax(rkdh) dh

27、from xg0301ruku');op en; end;iADOQueryl.fieldbynameCdh'J.asinteger;單足進倉日？editl Text:=inttostr(i+1);3擁斜代入12012/ 3/221 EditsI Edir2添加新記錄代碼：beginif (editl.Text =") and (edit2.Text=")and (edit3 Text=")and (edit5 Text=")thenbegin showmessage請把信息添加完整！ ,); exit;end;adoqueryl.clo

28、se;adoquery 1 .sqledear;adoqueryl .sql.addCinsertintoxg0301 ruku(rkdh,wno,rkrq,wname ,peop le.shuli ang.beizhu)values'+editl .Text+lll,lll+combobox2.Text+,+datetimetostr(date()+,",+edit5.Text +,",+combobox1 .Text+ ,","+edit2.Text+ ,",+edit3.Text+adoqueryi.execsql; showme

29、ssage 入庫成功'); end;物料代f15遙倉日 a操作人£12012/ 沁Projoctl六：出庫界面添加新單號代碼：var i:integer;beginwith ADOQueryl do beginclose;sql.clear;sql add(selectmax(ckdh) dh fromxgOSOIchuku1);open; end;iADOQueryl.fieldbynameCdh'l.asinteger; editl Text:=inttostr(i+1);添加新記錄代碼：var ij:integer;beginwith adoqueryl do

30、beginclose; sql.Clear;sql.Add(selectxgOSOIwuliao1);kucunfromsql.Add(selectxgO3O1chuku') ;shuliangfromopen; end;iADOQueryl.fieldbynameCkucun'J.asinteger;j: =strtoint(edit2.T ext);if(j>i) thenshowmessage出庫數量超過庫存數量，請新確認！)elsebeginwith adoqueryl dobeginactive: =true;close;SQL.Clear;sql.addCin

31、sertintoxg0301chuku(ckdh,wno,ckrq,wname,people,shut iang.beizhu) valuesC'+editl .Text +lll/ll+combobox2.Text+,/,+datetimetostr(date()+,/,+edit5.Text +,"+combobox1 .Text+ ,","+edit2.Text+ ,",+edit3.Text+ '")');execsql;showmessage 出庫成功')； end;end;end;procedure

32、Txg0301_chuku.Button5Click(Sender: TObject);var kinteger;beginwith ADOQueryl dobeginclose;sql.clear;sql.add(selectmax(ckdh) dh from xgOSOIchuku1);open; end;iADOQueryl.fieldbynameCdh'l.asinteger; editl Text:=inttostr(i+1);f出倉屬惟入庫查詢代碼with ADOQueryl dobeginif radiogro up 1.ltemlndex=0 thenbeginclos

33、e;sql.Clear;sql add(select * from xg0301ruku wherewno=lll+combobox1 .Text+""); open;endelse if radiogroup 1 .ltemlndex=1 thenbeginclose;sql.Clear;sql.add(selectxg0301ruku,xg0301wuliaofromwherexg0301ruku.wname=lll+combobox2.Text+111 and xg0301wuliao.wno=xg0301ruku.wnol);open;endelse if radi

34、ogroupl .ltemlndex=2 thenbeginclose;sql.Clear;sqleadd(select * from xg0301ruku where rkrq>=lll+formatdatetime(lyyyy-mm-ddl,dateti mepickerl .DateTime)+111 and rkrq<=lll+formatdatetime(lyyyy-mm-ddl,dateti mepicker2.DateTime)+1111);open; endelsebeginclose;sql.Clear;sql add('select * from xg0

35、301ruku');op en; end;二 TO Jg出IRddoGioupI按日I®查洞2012/ G7I2J 至I2Q12Z GZ12 二 JHkdhIrkrq1 WHO | 奧 namu1 peoplelAhiJiang fbeizhu33出庫查詢代碼：with ADOQueryl dobeginif radiogro up 1 ltemlndex=O thenbeginclose;sql.Clear;sql.add(select* from xg0301chuku where wno=lll+combobox1 .Text+"");open;en

36、delse if radiogroup 1 .ltemlndex=1 then begin close; sql.Clear; sql.add('selectxg0301chuku,xg0301wuliaoxg0301chuku.wname=lll+combobox2.Text+111 and xg0301wuliao.wno=xg0301chuku.wnof); from open;whereendelse if radiogroupl .ltemlndex=2 thenbeginclose;sql.Clear;sql.add(select* from xg0301chuku whe

37、re ckrq>=lll+formatdatetime(lyyyy-mm-ddl,dateti mepickerl .DateTime)+111 and ckrq<=lll+formatdatetime(lyyyy-mm-ddl,dateti mepicker2.DateTime)+1111);open;roupl1lr按物鞅代礙查詢h匚二驥二(t攤物斜窯稱查詢I紅茶三1"r按時間魚詢(2O12/G/12J到阿7E礦m遇出ckdh pkrqI 2D12/6/2Dwno Miane |p eople phiiang bcizhu3 紅茶李某12wiro 13003八：物料統

38、計界面物料進出倉統計代碼：with ADOQueryl do begin close; sql.Clear;sqleadd(select countf);sql.Add('from xg0301ruku');/sql.AddCwherewname,wno,sum(shuliang) xg0301wuliao.wno=xg0301ruku.wnol);sql.add(where rkrq>=,ll+formatdatetime(lyyyy-mm-dddateti mep ickerl DateTime)+l" and rkrqv=,l+formatdatetime

39、(lyyyy-mm-dddateti mepicker2.DateTime)+1111); sql.add(group by wname,wno1); open;with ADOQuery2 do begin close; sql.Clear; sqleadd(select count 11);sql.Add('from xg0301chuku'); /sql.Add('where xg0301chuku.wno=xg0301wuliao.wnof);sql.add('where wname,wno,sum(shuliang) ckrq>=lll+form

40、atdatetime(lyyyy-mm-ddl,dateti mepickerl .DateTime)+111 and ckrq<=lll+formatdatetime(lyyyy-mm-ddl,dateti mepicker2.DateTime)+1111); sql.add(group by wname,wno1); open;進出倉統2012/ 6/202012/ 5/172011-Q5-17 5*0如茶案汁九：根據月份打印入庫表界面打印代碼：with ADOQueryl dobeginclose;sql.Clear;sql Add('select * from xg030

41、1ruku where rkrq like ”'+'%'+edit1.Text+'%'+”)；open;請輸入月份查看入庫確定退出l-I I17ID 11 LL IIM IS爵 兇吉古gzz庫編建；防料代科?庫數鷲典庫時間；入庫報表入庫褊皆物料代碼物料名稱入庫數量入庫時間11酸奶132012/6/2013紅茶122012/6/2025果汁122012/6/20十：根據月份打印出庫表界面打印代碼：with ADOQueryl do beginclose;sql.Clear;sql Add('select * from xg0301chuku whe

42、re ckrq like ”'+'%'+edit1.Text+'%'+”)；open;諳輸入月悅逼詢出總確定 IHk:出庫單號捌料代理出庫數重出庫日賊一柚： 灑日噸AhulianA-Dctji出庫報表出癢單號物料程瑪物科店稱出庫垃量出庫B期13紅茶122012/6/2016果汁122012八6/20:授權進入界面 授權代碼：varauth_desc:string;beginwith adoqueryl dobeginclose;sql.Clear;sql Add(select * from xg0301 worker1);sql Add (where p

43、n o=lll+combobox1 Text+'" and p name='yedit1 .Text+,)5op en;end;if adoqueryl RecordCount-1 >=0 then beginxg0301quanxian Label 1 Caption:='員,+adoqueiy1 FieldsO AsString+權限設置'； auth_desc: =adoquery1 .Fields10.AsString;if strpos(pchar (auth_desc)/11) < >nil then xg0301_qxx

44、z.CheckBox1.Checked: =trueelse beginxg0301_qxxz.CheckBox1.Checked: =falseend;if strpos(pchar(auth_desc)/2l)< >nil then xg0301_qxxz.CheckBox2.Checked: =true elsebeginxg0301_qxxz.CheckBox2.Checked: =falseend;if strpos(pchar(auth_desc)/3l)< >nil thenxg0301_qxxz.CheckBox3.Checked: =true else

45、 beginxg0301_qxxz.CheckBox3.Checked: =falseend;if strpos(pchar(auth_desc)/4l)< >nilthen xg0301_qxxz.CheckBox5.Checked: =true else beginxg0301_qxxz.CheckBox5.Checked: =false end;if strpos(pchar(auth_desc)/6l)< >nilthen xg0301_qxxz.CheckBox11.Checked: =true else beginxg0301_qxxz.CheckBox4.

46、Checked:=false;xg0301_qxxz.CheckBox6.Checked: =false; end;if strpos(pchar(auth_desc)/7l)< >nilthen xg0301_qxxz.CheckBox6.Checked: =true else beginxg0301_qxxz.CheckBox8.Checked: =false;xg0301_qxxz.checkbox10. Enabled: =false;xg0301_qxxz.checkbox9. Enabled: =false;xgO3O1 _qxxz.checkbox?. Enabled

47、: =false;xg0301_qxxz.checkbox12. Enabled: =false;end;if strpos(pchar(auth_desc)/8l)<>nil then xg0301_qxxz.CheckBox13.Checked: =true else xg0301_qxxz.CheckBox13.Checked: =false;if strpos(pchar(auth_desc)/r)<>nil then xg0301_qxxz.CheckBox1.Checked: =trueelsexg0301_qxxz.CheckBox1.Checked: =

48、false;if strpos(pchar(auth_desc)/2l)<>nil then xg0301_qxxz.CheckBox2.Checked: =trueelsexg0301_qxxz.CheckBox2.Checked: =false;if strpos(pchar(auth_desc)/3l)<>nil then xg0301_qxxz.CheckBox3.Checked: =trueelsexg0301_qxxz.CheckBox3.Checked: =false;if strpos(pchar(auth_desc)/4l)<>nil th

49、en xg0301_qxxz.CheckBox5.Checked: =trueelsexg0301_qxxz.CheckBox5.Checked: =false;if strpos(pchar(auth_desc)/al)<>nil then xg0301_qxxz.CheckBox4.Checked:=true else xg0301_qxxz.CheckBox4.Checked:=false;if strpos(pchar(auth_desc)/bl)<>nil thenxg0301_qxxz.CheckBox6.Checked: =trueelsexg0301_q

50、xxz.CheckBox6.Checked: =false;if strpos(pchar(auth_desc)/cl)<>nil then xg0301_qxxz.CheckBox7.Checked:=true else xg0301_qxxz.CheckBox7.Checked:=false;if strpos(pchar(auth_desc),'d')<>nil then xg0301_qxxz.CheckBox12.Checked: =true else xg0301_qxxz.CheckBox12.Checked: =false;if strp

51、os(pchar(auth_desc),'e')v>nil then xg0301_qxxz.CheckBox9.Checked: =true else xg0301_qxxz.CheckBox9.Checked: =false;if strpos(pchar(auth_desc)/f)<>nil then xg0301_qxxz.CheckBox10.Checked: =true else xg0301_qxxz.CheckBox10.Checked: =false;xgO3O1 _qxxz .show;xg0301 quanxian.Close;endel

52、se beginshowmessage該員工編號不存在！請輸入正確 的員工代碼!,）；end;I ComboBoKI 人員何 人員名乍確定返回I十二：授權選擇界面授權確定代碼：varauth:string;beginif (checkboxl Checked =true) then auth:=auth+T;if checkbox2 Checked =true then auth:=auth+'2'；if checkbox3 Checked =true then auth:=auth+'3'if checkbox5 Checked =true then auth:=auth+'4'if checkboxl 1 Checked=true then auth:=auth+l6,;if checkbox4 Checked =true then authauth+a1;if checkbox6.Checked=true thenauth:=auth+b;if checkbox8.Checked=true then auth:=auth+l7,;if checkboxl 2.C