CS倉庫設(shè)計報告

1、福 建 工 程 學(xué) 院課程設(shè)計課 程： 數(shù)據(jù)庫應(yīng)用課程設(shè)計 題 目： 倉庫管理系統(tǒng) 專 業(yè)： 信息管理與信息系統(tǒng) 班 級： 座 號： 姓 名： 2012年 6 月 24 日 目錄一系統(tǒng)定義二需求分許 （1）功能需求 （2）用戶需求三數(shù)據(jù)流圖四、系統(tǒng)設(shè)計 1、概念結(jié)構(gòu)設(shè)計 2、邏輯結(jié)構(gòu)設(shè)計 3、系統(tǒng)功能模塊圖 4、其它設(shè)計圖形工具五、詳細(xì)設(shè)計六、系統(tǒng)實(shí)現(xiàn)與測試1、開發(fā)平臺和工具選擇2、系統(tǒng)測試七、課程設(shè)計總結(jié)一、系統(tǒng)定義 具有一定規(guī)模的公司或商店都需要為自己公司或商店里的貨物進(jìn)行管理,倉庫管理系統(tǒng)就是為了管理貨物而開發(fā)的數(shù)據(jù)庫軟件。倉庫管理系統(tǒng)是企業(yè)日常經(jīng)營管理中十分重要的一個組成部分，它包括日

2、常的銷售出庫、產(chǎn)品入庫、盤點(diǎn)等業(yè)務(wù)。倉庫管理系統(tǒng)幫助企業(yè)的倉庫管理員對倉庫物品的入庫、出庫、盤點(diǎn)等操作進(jìn)行全面的控制和管理，達(dá)到提高倉庫控制精度、降低倉庫量，提高客戶服務(wù)水平，保證生產(chǎn)經(jīng)營活動順利進(jìn)行的目的。二、需求分析（1）功能需求 該系統(tǒng)主要分為四大功能:、一般用戶功能、管理員功能、信息安全功能還有報表功能。1）. 一般用戶功能：查詢庫存信息、查詢出庫信息、查詢?nèi)霂煨畔?、修改本用戶密碼。2）. 信息安全功能：人員權(quán)限區(qū)分、事件記錄、數(shù)據(jù)警告、計劃備份、即時備份、數(shù)據(jù)恢復(fù)；3）. 管理員功能：確認(rèn)添加及修改產(chǎn)品入庫信息、產(chǎn)品出庫信息、庫存信息，查詢庫存信息、盤點(diǎn)等功能。（2）用戶需求根據(jù)用戶

3、需求，該系統(tǒng)應(yīng)該實(shí)現(xiàn)以下功能：1）. 進(jìn)、出庫管理。對進(jìn)、出庫信息進(jìn)行記錄。2）.查詢功能。倉庫管理對查詢要求高，通過主菜單記錄當(dāng)前操作用戶的用戶編號，保證了對進(jìn)、出庫信息錄入負(fù)責(zé)人的確認(rèn)。 3）. 由于計算機(jī)能存貯大量的數(shù)據(jù)，而且數(shù)據(jù)只要一次存入，便可多次重復(fù)使用，所以管理數(shù)據(jù)達(dá)到完整，統(tǒng)一，原始記錄能保證及時，準(zhǔn)確。4）. 許多重復(fù)性的工作，都可由計算機(jī)去執(zhí)行，從而使管理人員從事務(wù)性工作解脫出來，真正變?yōu)閺氖乱恍┬畔⒌姆治?，判斷，決策等創(chuàng)造性的工作。5）.還包括根據(jù)月份對出入庫報表的打印。以及授權(quán)功能。三數(shù)據(jù)流圖1.數(shù)據(jù)流圖1）頂層數(shù)據(jù)流圖：出/入庫信息處理出庫信息處理訂貨單庫存信息處理入

4、庫信息處理倉庫管理員成品庫倉庫管理系統(tǒng)倉庫管理員商家2）第一層數(shù)據(jù)流圖:訂貨單產(chǎn)品入庫、出庫、庫存信息產(chǎn)品庫存信息表產(chǎn)品出庫信息表產(chǎn)品入庫信息表入庫信息出庫信息倉庫管理員1.產(chǎn)品入庫信息管理2.產(chǎn)品出庫信息管理3.產(chǎn)品庫存信息管理倉庫管理員商家入庫信息出庫信息3)第二層數(shù)據(jù)流圖：產(chǎn)品入庫信息管理細(xì)化： 入庫單不合格單據(jù)合格的入庫單1.2入庫產(chǎn)品入庫信息表1.3調(diào)整單據(jù)1.1檢驗(yàn)倉庫管理員產(chǎn)品出庫信息管理細(xì)化：四、系統(tǒng)設(shè)計1、概念結(jié)構(gòu)設(shè)計畫出系統(tǒng)E-R圖1nmn倉庫管理管理員庫存 產(chǎn)品購買商家1m2、邏輯結(jié)構(gòu)設(shè)計將E-R圖（或其他概念設(shè)計圖）轉(zhuǎn)換為具體的DBMS對應(yīng)的關(guān)系模式。人員（人員編號，人

5、員名稱，住址，電話）產(chǎn)品（產(chǎn)品編號，產(chǎn)品名稱，產(chǎn)品數(shù)量，產(chǎn)品規(guī)格）入庫（入庫編號，入庫時間，入庫數(shù)量）出庫(出庫編號，出庫時間，出庫數(shù)量)3、系統(tǒng)功能模塊圖畫出系統(tǒng)功能模塊圖，并對子模塊功能進(jìn)行詳細(xì)說明。倉庫管理管理員職工人員管理物料管理進(jìn)倉管理出倉管理物料報表出入庫報表出入庫查詢報表查詢4、其它設(shè)計圖形工具特別提示：允許用其他分析、設(shè)計工具。在此補(bǔ)充在設(shè)計過程中采用的其它設(shè)計工具圖形。五、詳細(xì)設(shè)計 主要的表。一 物料信息表create database studbon primary( name='studata', filename='d:dbstudat.mdf&

6、#39;, size=3mb,filegrowth=3mb) log on(name='stulog', filename='d:dbstulog.ldf', size=1mb, maxsize=10mb, filegrowth=10%)use studb gocreate table xg0301worker(pno char(5) primary key, pname char(10), birth datetime, sex char(5), id char(20), home char(10), dizhi char(50), tele char(20)

7、, secret char(5), zhiwei char(10), quanxian char(25), beizhu char(20) )二 員工信息表use studbgocreate table xg0301wuliao(wno char(10) , rkbh char(6) primary key, wname char(15), guige char(20), danwei char(10), kucun int, beizhu char(20)三 入庫信息表use studbgocreate table xg0301ruku( rkdh int , rkrq datetime,

8、wno char(10), wname char(10), people char(10), shuliang int, beizhu char(20), primary key(wno)四 出庫信息表 use studbgocreate table xg0301chuku( ckdh int , ckrq datetime, wno char(10), wname char(10), people char(10), shuliang int, beizhu char(20), primary key(wno)六、界面設(shè)計一：登錄界面：分別設(shè)置了兩個職位，管理員和職工。登入后界面不一樣。登錄

9、代碼如下：var auth_desc:string;begin with adoquery1 do begin close; sql.Clear; sql.Add('select quanxian from xg0301worker'); sql.Add('where pno='''+edit1.Text+''' and secret='''+edit2.Text+''''); open; auth_desc:=adoquery1.fieldbyname('q

10、uanxian').AsString; if adoquery1.RecordCount<=0 then begin showmessage('輸入的密碼錯誤或者用戶名不存在！請重新輸入！'); end else begin if strpos(pchar(auth_desc),'1')<>nil then xg0301_jiemian.N1.Enabled:=true else xg0301_jiemian.N1.Enabled:=false; if strpos(pchar(auth_desc),'2')<&g

11、t;nil then xg0301_jiemian.N2.Enabled:=true else xg0301_jiemian.N2.Enabled:=false; if strpos(pchar(auth_desc),'3')<>nil then xg0301_jiemian.N3.Enabled:=true else xg0301_jiemian.N3.Enabled:=false; if strpos(pchar(auth_desc),'4')<>nil then xg0301_jiemian.N4.Enabled:=true els

12、e xg0301_jiemian.N4.Enabled:=false; if strpos(pchar(auth_desc),'5')<>nil then xg0301_jiemian.N5.Enabled:=true else xg0301_jiemian.N5.Enabled:=false; if strpos(pchar(auth_desc),'6')<>nil then xg0301_jiemian.N6.Enabled:=true else xg0301_jiemian.N6.Enabled:=false; if strpos(

13、pchar(auth_desc),'7')<>nil then xg0301_jiemian.N7.Enabled:=true else xg0301_jiemian.N7.Enabled:=false; if strpos(pchar(auth_desc),'8')<>nil then xg0301_jiemian.N17.Enabled:=true else xg0301_jiemian.N17.Enabled:=false; if strpos(pchar(auth_desc),'a')<>nil the

14、n xg0301_jiemian.N11.Enabled:=true else xg0301_jiemian.N11.Enabled:=false; if strpos(pchar(auth_desc),'b')<>nil then xg0301_jiemian.N16.Enabled:=true else xg0301_jiemian.N16.Enabled:=false; if strpos(pchar(auth_desc),'c')<>nil then xg0301_jiemian.N9.Enabled:=true else xg0

15、301_jiemian.N9.Enabled:=false; if strpos(pchar(auth_desc),'d')<>nil then xg0301_jiemian.N10.Enabled:=true else xg0301_jiemian.N10.Enabled:=false; if strpos(pchar(auth_desc),'e')<>nil then xg0301_jiemian.N14.Enabled:=true else xg0301_jiemian.N14.Enabled:=false; if strpos(p

16、char(auth_desc),'f')<>nil then xg0301_jiemian.N15.Enabled:=true else xg0301_jiemian.N15.Enabled:=false; xg0301_root.Hide; xg0301_jiemian.Show; end; end;二：主界面當(dāng)?shù)卿浾邽楣芾韱T時，主界面如下：當(dāng)?shù)顷懻邽槁毠r，主界面如下：三：人員管理界面刷新人員代碼;adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('select * from xg0301wo

17、rker'); adoquery1.open;增加人員代碼：if (combobox1.Text='')and (edit1.Text ='') and (edit2.Text='')and (edit4.Text='')and (edit5.Text='')and (edit6.Text='')and (edit7.Text='')then begin showmessage('請把信息添加完整！'); exit; end; adoquery1.close;

18、 adoquery1.sql.clear; adoquery1.sql.add('insert into xg0301worker(pno,pname,birth,sex,id,home,dizhi,tele,beizhu) values('''+edit1.Text +''','''+edit2.Text+ ''','''+datetimetostr(date()+''','''+combobox1.Text +

19、9;'','''+edit4.Text+ ''','''+edit5.Text+ ''','''+edit6.Text+ ''','''+edit7.Text+ ''','''+edit8.Text+ ''') '); adoquery1.execsql;showmessage('信息添加成功');刪除人員代碼：ado

20、query1.close; adoquery1.sql.clear; adoquery1.sql.add('delete xg0301worker where pno='''+edit1.Text +''''); adoquery1.execsql; showmessage('刪除成功！'); 根據(jù)編號姓名查詢?nèi)藛T代碼：with ADOQuery1 dobegin if radiogroup1.ItemIndex=0 then begin close; sql.Clear; sql.add('select

21、* from xg0301worker where pno='''+edit3.Text+''''); open; end else begin close; sql.Clear; sql.add('select * from xg0301worker where pname like '''+'%'+edit3.Text+'%'+''''); open; end; edit1.Text:=fieldbyname('pno').

22、AsString; edit2.Text:=fieldbyname('pname').AsString; combobox1.Text:=fieldbyname('sex').AsString; datetimepicker1.DateTime:=fieldbyname('birth').AsDateTime; edit4.Text:=fieldbyname('id').AsString; edit5.Text:=fieldbyname('home').AsString; edit6.Text:=fieldbyna

23、me('dizhi').AsString; edit7.Text:=fieldbyname('tele').AsString;四：物料管理界面刷新物料代碼：adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('select * from xg0301wuliao'); adoquery1.open;增加物料代碼：if (combobox1.Text='')and (edit3.Text ='') and (edit2.Text='')and

24、 (edit4.Text='')and (edit5.Text='')and (edit6.Text='')and(edit1.Text='')then begin showmessage('請把信息添加完整！'); exit; end; adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('insert into xg0301wuliao(wno,rkbh,wname,guige,danwei,kucun,beizhu) values('

25、''+combobox1.Text +''','''+edit1.Text +''','''+edit2.Text+ ''','''+edit3.Text +''','''+edit4.Text+ ''','''+edit5.Text+ ''','''+edit6.Text+ ''

26、;') '); adoquery1.execsql; showmessage('信息添加成功');end;刪除物料代碼：adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('delete xg0301wuliao where rkbh='''+edit1.Text +''''); adoquery1.execsql; showmessage('刪除成功！');五：入庫界面 添加新單號代碼：vari:integer;begin

27、 with ADOQuery1 do begin close; sql.clear; sql.add('select max(rkdh) dh from xg0301ruku'); open; end; i:=ADOQuery1.fieldbyname('dh').asinteger; edit1.Text:=inttostr(i+1);添加新記錄代碼：beginif (edit1.Text ='') and (edit2.Text='')and (edit3.Text='')and (edit5.Text=

28、9;')then begin showmessage('請把信息添加完整！'); exit; end; adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('insert into xg0301ruku(rkdh,wno,rkrq,wname,people,shuliang,beizhu) values('''+edit1.Text +''','''+combobox2.Text+ ''',''

29、;'+datetimetostr(date()+''','''+edit5.Text +''','''+combobox1.Text+ ''','''+edit2.Text+ ''','''+edit3.Text+ ''') '); adoquery1.execsql; showmessage('入庫成功');end;六：出庫界面添加新單號代碼：va

30、ri:integer;begin with ADOQuery1 do begin close; sql.clear; sql.add('select max(ckdh) dh from xg0301chuku'); open; end; i:=ADOQuery1.fieldbyname('dh').asinteger; edit1.Text:=inttostr(i+1);添加新記錄代碼：vari,j:integer;beginwith adoquery1 do begin close; sql.Clear; sql.Add('select kucun f

31、rom xg0301wuliao'); sql.Add('select shuliang from xg0301chuku') ; open; end; i:=ADOQuery1.fieldbyname('kucun').asinteger; j:=strtoint(edit2.Text); if(j>i) then showmessage('出庫數(shù)量超過庫存數(shù)量，請重新確認(rèn)！') else begin with adoquery1 do begin active:=true; close; SQL.Clear; sql.add(&

32、#39;insert into xg0301chuku(ckdh,wno,ckrq,wname,people,shuliang,beizhu) values('''+edit1.Text +''','''+combobox2.Text+ ''','''+datetimetostr(date()+''','''+edit5.Text +''','''+combobox1.Text+

33、''','''+edit2.Text+ ''','''+edit3.Text+ ''') '); execsql; showmessage('出庫成功'); end;end;end;procedure Txg0301_chuku.Button5Click(Sender: TObject); vari:integer;begin with ADOQuery1 do begin close; sql.clear; sql.add('select m

34、ax(ckdh) dh from xg0301chuku'); open; end; i:=ADOQuery1.fieldbyname('dh').asinteger; edit1.Text:=inttostr(i+1);七：出入庫查詢界面入庫查詢代碼with ADOQuery1 dobegin if radiogroup1.ItemIndex=0 then begin close; sql.Clear; sql.add('select * from xg0301ruku where wno='''+combobox1.Text+'

35、;'''); open; end else if radiogroup1.ItemIndex=1 then begin close; sql.Clear; sql.add('select * from xg0301ruku,xg0301wuliao where xg0301ruku.wname='''+combobox2.Text+''' and xg0301wuliao.wno=xg0301ruku.wno'); open; end else if radiogroup1.ItemIndex=2 then

36、 begin close; sql.Clear; sql.add('select * from xg0301ruku where rkrq>='''+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+''' and rkrq<='''+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+''''); open; end else

37、 begin close; sql.Clear; sql.add('select * from xg0301ruku'); open; end;出庫查詢代碼：with ADOQuery1 dobegin if radiogroup1.ItemIndex=0 then begin close; sql.Clear; sql.add('select * from xg0301chuku where wno='''+combobox1.Text+''''); open; end else if radiogroup1.I

38、temIndex=1 then begin close; sql.Clear; sql.add('select * from xg0301chuku,xg0301wuliao where xg0301chuku.wname='''+combobox2.Text+''' and xg0301wuliao.wno=xg0301chuku.wno'); open; end else if radiogroup1.ItemIndex=2 then begin close; sql.Clear; sql.add('select *

39、from xg0301chuku where ckrq>='''+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+''' and ckrq<='''+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+''''); open;八：物料統(tǒng)計界面物料進(jìn)出倉統(tǒng)計代碼：with ADOQuery1 dobeginclose;sql.Clear

40、;sql.add('select wname,wno,sum(shuliang) count1');sql.Add('from xg0301ruku');/sql.Add('where xg0301wuliao.wno=xg0301ruku.wno' );sql.add('where rkrq>='''+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+''' and rkrq<=''

41、9;+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'''');sql.add('group by wname,wno');open;with ADOQuery2 dobeginclose;sql.Clear;sql.add('select wname,wno,sum(shuliang) count1');sql.Add('from xg0301chuku');/sql.Add('where xg0301chuku.wno=xg0

42、301wuliao.wno');sql.add('where ckrq>='''+formatdatetime('yyyy-mm-dd',datetimepicker1.DateTime)+''' and ckrq<='''+formatdatetime('yyyy-mm-dd',datetimepicker2.DateTime)+'''');sql.add('group by wname,wno');open;九：

43、根據(jù)月份打印入庫表界面打印代碼： with ADOQuery1 dobegin close; sql.Clear; sql.Add('select * from xg0301ruku where rkrq like '''+'%'+edit1.Text+'%'+''''); open;十：根據(jù)月份打印出庫表界面打印代碼：with ADOQuery1 dobegin close; sql.Clear; sql.Add('select * from xg0301chuku where ckrq

44、like '''+'%'+edit1.Text+'%'+''''); open;十一：授權(quán)進(jìn)入界面授權(quán)代碼：var auth_desc:string;begin with adoquery1 do begin close; sql.Clear; sql.Add('select * from xg0301worker'); sql.Add('where pno='''+combobox1.Text+''' and pname='&

45、#39;'+edit1.Text+''''); open; end; if adoquery1.RecordCount-1>=0 then begin xg0301quanxian.Label1.Caption:='員工'+adoquery1.Fields0.AsString+'權(quán)限設(shè)置' auth_desc:=adoquery1.Fields10.AsString; if strpos(pchar(auth_desc),'1')<>nil then xg0301_qxxz.CheckBo

46、x1.Checked:=true else begin xg0301_qxxz.CheckBox1.Checked:=false end; if strpos(pchar(auth_desc),'2')<>nil then xg0301_qxxz.CheckBox2.Checked:=true else begin xg0301_qxxz.CheckBox2.Checked:=false end; if strpos(pchar(auth_desc),'3')<>nil then xg0301_qxxz.CheckBox3.Checked

47、:=true else begin xg0301_qxxz.CheckBox3.Checked:=false end; if strpos(pchar(auth_desc),'4')<>nil then xg0301_qxxz.CheckBox5.Checked:=true else begin xg0301_qxxz.CheckBox5.Checked:=false end; if strpos(pchar(auth_desc),'6')<>nil then xg0301_qxxz.CheckBox11.Checked:=true el

48、se begin xg0301_qxxz.CheckBox4.Checked:=false; xg0301_qxxz.CheckBox6.Checked:=false; end; if strpos(pchar(auth_desc),'7')<>nil then xg0301_qxxz.CheckBox6.Checked:=true else begin xg0301_qxxz.CheckBox8.Checked:=false; xg0301_qxxz.checkbox10.Enabled:=false; xg0301_qxxz.checkbox9.Enabled:

49、=false; xg0301_qxxz.checkbox7.Enabled:=false; xg0301_qxxz.checkbox12.Enabled:=false; end; if strpos(pchar(auth_desc),'8')<>nil then xg0301_qxxz.CheckBox13.Checked:=true else xg0301_qxxz.CheckBox13.Checked:=false; if strpos(pchar(auth_desc),'1')<>nil then xg0301_qxxz.Check

50、Box1.Checked:=true else xg0301_qxxz.CheckBox1.Checked:=false; if strpos(pchar(auth_desc),'2')<>nil then xg0301_qxxz.CheckBox2.Checked:=true else xg0301_qxxz.CheckBox2.Checked:=false; if strpos(pchar(auth_desc),'3')<>nil then xg0301_qxxz.CheckBox3.Checked:=true else xg0301

51、_qxxz.CheckBox3.Checked:=false; if strpos(pchar(auth_desc),'4')<>nil then xg0301_qxxz.CheckBox5.Checked:=true else xg0301_qxxz.CheckBox5.Checked:=false; if strpos(pchar(auth_desc),'a')<>nil then xg0301_qxxz.CheckBox4.Checked:=true else xg0301_qxxz.CheckBox4.Checked:=false

52、; if strpos(pchar(auth_desc),'b')<>nil then xg0301_qxxz.CheckBox6.Checked:=true else xg0301_qxxz.CheckBox6.Checked:=false; if strpos(pchar(auth_desc),'c')<>nil then xg0301_qxxz.CheckBox7.Checked:=true else xg0301_qxxz.CheckBox7.Checked:=false; if strpos(pchar(auth_desc),&

53、#39;d')<>nil then xg0301_qxxz.CheckBox12.Checked:=true else xg0301_qxxz.CheckBox12.Checked:=false; if strpos(pchar(auth_desc),'e')<>nil then xg0301_qxxz.CheckBox9.Checked:=true else xg0301_qxxz.CheckBox9.Checked:=false; if strpos(pchar(auth_desc),'f')<>nil then

54、xg0301_qxxz.CheckBox10.Checked:=true else xg0301_qxxz.CheckBox10.Checked:=false; xg0301_qxxz.show; xg0301quanxian.Close; end else begin showmessage('該員工編號不存在!請輸入正確的員工代碼!');end;十二：授權(quán)選擇界面授權(quán)確定代碼:var auth:string;begin if (checkbox1.Checked=true) then auth:=auth+'1' if checkbox2.Checked=t

55、rue then auth:=auth+'2' if checkbox3.Checked=true then auth:=auth+'3' if checkbox5.Checked=true then auth:=auth+'4' if checkbox11.Checked=true then auth:=auth+'6' if checkbox4.Checked=true then auth:=auth+'a' if checkbox6.Checked=true then auth:=auth+'b' if checkbox8.Checked=tr