CS仓库设计报告

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