数据库课程方案

1、数据库系统课程设计货存控制系统组长： 杜 康40809010113数据库分析员：郭仙草 40809010130用户界面设计员： 王 彤 40809010132 程 序员： 包曙光 40809010118 胡 萍 40809010133测试员：李元芳 40809010131课程设计题目:货存管理系统一个公司希望为控制它的货存建立一个数据库，货存中的产品被分为几类，如服装、食品和文具。当产品 需要从供应商那里重新订购时，工作人员需要提出一个购买订单。跟踪记录要提供买进、卖出的货物以及其 他的费用。实验课程任务与要求目的与任务：1. 掌握数据库设计和实现的基本过程2. 掌握数据库模式设计、分析和实现

2、的方法3. 了解数据库应用系统软件开发的一般过程。 实验基本要求：（1）学习相关的预备知识(2) 按照数据库设计与实现过程完成数据库的设计，应用程序的开发，上机调试、运行(3) 写出课程设计报告开发环境说明:处理器：In tel Pen tium 4 3.06 以上 内存：256M以上硬盘空间 操作系统 开发软件 数据库：40G以上wi ndows 2000 /XP/w in7C+Builder 6.0Microsoft SQL Service 2000、功能需求分析:根据系统要求分析，本系统功能如下：用户管理：添加用户，修改用户密码。客户管理：添加客户，查询客户信息。 供应商管理：添加供应商

3、，查询供应商信息。仓库管理：添加仓库，查询仓库信息。货物管理：添加物品信息，物品类型信息。入库管理：货物的入库信息的添加和修改。出库管理：货物的出库信息的添加和修改。库存信息：对货物的现有信息存量查询。三、数据库概念设计：E-R图描述如下:本实例根据根据上面的设计规划出的实体有仓库实体、客户实体、供应商实体、管理员实体、货物实体、货物类型实体、入库实体、出库实体、库存实体。各个实体的仓库实体E-R图供应商实体E-R图客户客户实体E-R图管理员实体E-R图货物实体E-R图货物类型实体E-R图出库出库实体E-R图库存实体E-R图 整体E-R图如下所示：訓员網;char (5) 冒理髓名；chai

4、120) 管扈员密社chai (fi)仓障鵜：char(5)mI： char (20) :char (40),1 int j号:char (5)能&-*沏品龍；charffl | 物講舸char (10) |趨舖：chfli(20) 仓繭岂char (5) 物鋼1; inisis和品编号；char (5)/1期品名鄒：char (20)类型網；char(5)REBSh： chart?)char (20) KMM： charts) 由牖：char (6) feSfiiS： char(11) 會岛员網:char 5)物品编号:char(5|char(lO) 翹舖:char (20) 购入軌：rea

5、l AOi： iirt 秫錢:real 僦商網：char(5j 入乍日期:char(20)詐鵜：char (5)ftStH： char(5)OS： char(10) 翅鋼：char (20) 岀售翱:real ttm： irt :;軽!8； rill 朗矗 char (20)客户编号：char (5) im： char (20)地扯:char (40)OfiS： diarlll)服艄：char (5)奠型歸号；char(5) 物品塢号:char(5) 翹翻:char (20) 翹駝:char (50)四、数据库逻辑设计：ER图向关系模型的转换实际上就是关系数据库的数据模型 即关系模型)由一组关

6、系模式组成，因而将实体包括实体的属性)和联系转换为关系模式，一般遵循以下基本原则：1. 一个实体型转换为一个关系模式。实体的属性就是关系的属性，实体的码就是关系的码。2. 一个1： XX为1或n)联系通常与某一端的关系模式合并，其中1： n的联系需要与n端对应的关系模式合并。需要在合并的关系模式的属性中加入另一个关系模式的码和联系本身的属性。3. 一个m： n联系转换为一个关系模式。与该关系相连的各实体的码以及联系本身的属性均转换为关系 的属性，而关系的码为各实体码的组合。4. 三个或三个以上实体间的一个多元联系可以转换为一个关系模式。与该多元联系相连的各实体的码 以及联系本身的属性均转换为关

7、系的属性，而关系的码为各实体的码的组合。5. 具有相同码的关系模式可合并。使用SQL server 2000企业管理器建立数据库和表 也可使用SQL语句建立数据库)。数据库包括：1. 仓库的数据项描述：Storage数据项名对应英文名数据项含义类型长度说明仓库编号Sno仓库的编号char5主键仓库名称Sn ame仓库的名称char20仓库地址Saddr仓库的地址char40管理员编号Mno管理员的编号char5外键仓库面积Ssize仓库的大小int2. 供应商的数据项描述：Provider数据项名对应英文名数据项含义类型长度说明供应商编号Pno供应商的识别号码char5主键供应商名称Pn am

8、e供应商公司的名称char20供应商地址Paddr供应商公司的地址char40邮编Postcode公司的邮编char6电话Ptel公司的电话char113.客户的数据项描述：Client数据项名对应英文名数据项含义类型长度说明客户编号Cno客户的编号char5主键客户名称Cn ame客户公司的名称char20地址Caddr客户公司的地址char40联系电话Ctel客户联系电话char114.货物的数据项描述：Goods7.库存的数据项描述：Stock数据项名对应英文名数据项含义类型长度说明物口口编号Gno货物表中物品编号Char5外键、主键仓库编号Sno仓库的编号Char5外键物品名称Gn a

9、me货物的名称Char10类型名称Tn ame货物的分类Char20物品数量Gnum货物的存储量Int入库合计）-出库合计）8.入库的数据项描述：Stock_ln数据项名对应英文名数据项含义类型长度说明物口口编号Gno货物表中物品编号Char5外键、主键供应商编号Pno供应商的编号Char5外键、主键物品名称Gn ame货物的名称Char10类型名称Tn ame货物的分类Char20购入单价Gin price货物购入的价格Real入库数量Innum入库的数量Int采购金额Inprice本次采购的金额Real购入单价*入库数量入库日期In date入库的时间Char209.出库的数据项描述:St

10、ock_Out数据项名对应英文名数据项含义类型长度说明物口口编号Gno货物表中物品编号Char5外键、主键客户编号Cno客户的编号Char5外键、主键物品名称Gn ame货物的名称Char10类型名称Tn ame货物的分类Char4出售单价Goutprice货物出售的价格Real出库数量Out num出库的数量Int出库金额Outprice本次出库的金额Real出库数量*出售单价出库日期Outdate出库的时间Char20五、系统开发1.数据库建立Create database storage_ma nage供应商Providercreate table Provided Pno char(5

11、 primary key, Pn ame char(20, Padddr char(40, Postcode char(6,Ptel char(11。表属性一Provider窜规曹名称四:Provider权限日|所有者：dbo创建日期：2011-1-919:4?: 07立件爼；PRIMARY行：0列:名称数据类型犬小空默认值IDPnamePadddrPostcoderIM aBIBA* 日a日 _n Th h h h c- c c c cSrsrwrSBPtel| 确定 | 取消问用| 帮肋 |客户Clie ntcreate table Clie nt( Cno char(5 primary

12、key, Cn ame char(20,Caddr char(40,Ctel char(11 SQL査询井析罟文件的 编错tn 査询豳 工具 宙口血 帮助占“色（HE 聯皂酉無| t I Ji St瞬圃J OHT-6C6PO&2131B OHY-6C6J0E JJ Jud J B-5-由：旺-;日.naster皿弘Horlhwind pabwSt4ragA-_muiB.Ee_l用户衣+I圉dba. Cli ent 口 ILv. dtprop rli*u *1 I dhl. Froi der9 门書询一OKT-5C6F062i3 IB, si orape_anaee,0HT-6C6F06213L

13、B2dBirListrat 匚|冈create table ClientACruo char15 : primary key,Cname char 20Caddr char 40 .Ctfil char 111丿命令己成功完成“:1陶格fp消息.1JHS： 1表属性一CJ i entID窜规CnameCaddr口曲5254011FSrwr取消冊用| 帮肋 货物类型Typecreate table Type( Tno char(5 primary key, Tn ame char(20, Tdescription char(50匸叵冈f b 同* AA3 N *V卜 |3 EtQ心邮匸乏車曹a窗

14、剧jONY-662l3lB(OHY6C6rO 文件釣離叩查询IM窗匚帮助QO耄SQL查洵芬折器盘询一OEY-6C6FOS2L31B, s-tQrase_hanage.OBY-6CF062131BAxlAiiListratDUUpuls用户表dba.C2.Lentdbo. dlprpertiis dbo. Providerdbo. Toe-JUS! A驗I曹名称四:Ctent权限日|所有者：dbo创建日期：2011-1-919:53:33立件爼；PRIMARY行：0列:名称数据类型犬小空默认值货物Goodscreate table Goods(Gno char(5 primary key,Gn

15、ame char(20,Tno char(5,foreig n key(T no referen ces Type(T no 。表展性一 Goods錚名称胆：Goods权限曰所有蒼dbo创逹日期：2011-1-9 20:07:22文件址PRIMARY行：0列：寓规键ID名称数据类型大小.空默认值Gnochr5iGnamechar20STInachar5|确定 1 取消 1 应用I _帮助 I管理员Man ager create table Man ager( Mno char(5 primary key, Mn ame char(20,PW char(6 SQL曹询井折書kfnlx丈伴迪礙谢查

16、询旺I工具窗口 OQP&)昌日日 曲对翰览器吵dbo. RaMJET * | Ci曲昨叫勺1苦直曲兄Apijbs用尸鳶不二I血口伽I二dbo dipt1 即肝匕” 皂J Ad. GoodsT昌* 二| dbo. Prflvidtr ! dho. Type=J0HI-&C6P06flilB(OHI-K6F0f *表屈性一 lanager常规JI 名称迥:Manager权限曰所有者：dbo创逹日期：2011-1-9 20:19:41文件蛆：PRIMARY行0列；龍 ID名称|数据类型大小空默认值:Mnochar5!Mnamechar20SfFWchar63f| 确定 _ 取消 _| 应用 | _

17、帮助 |仓库 Storagecreate table Storage(Sno char(5 primary key,Sn ame char(20,Saddr char(40,Mno char(5,Ssize int,foreig n key( Mno referen ces Man ager( Mno。D. Hver J dbo. Piiderdbo. Type皆權TTtw.| 査询 一OHT-fiClfiFOCJISlB- stojrafe_Maji3Ee.OHT-fiC6Flifi2131BAdinisrll:ra+-| | X |create table Storage(ASno cha

18、r(5)primary heyfSname char(20)S抑血 char(40)Inc char(5)3Ssize int, farEign keyOlno) rEferences Manager (Ino)J计爾令已廉功完成Q仝U 吸心血也第答以會圍Av2表属性一Storage富规uffl名称阻上Storage权限曰所脣若:创愛日期:文件遮行:dbo2011 -1 -9 20:30:13PRIMARY0列:键ID名称数据类型丈小空 默认值char 5SnamecharSaddrchrMnocharSizeiri20405 4is tssrvr,Sno char(5,Gn ame char

19、(10,Tn ame char(20,Gnum int,primary key(G no,foreign key(G no references Goods(G no, foreign key(S no references Storage(S noo. Stock OHT-ficerbti2i3iB.H,Pno char(5,Gn ame char(10,Tn ame char(20,Gin price real,Innum int,In price real,In data char(20,primary key(G no,Pno,foreign key(G no references G

20、oods(G no, foreign key(P no references Provider(P no 。表島性一Stock_In磨名称固：Skck_l n所有若dtw创建日期20111-S2Q5&39文件袒：F=RIMAF|Y行：0列；权限曰.JGnochar 5Pno Gname Triiafne Ginprice Innum Inprisechar char char real int real51r2r4liur-FBDBEIap o- & E j廊db品起品dll哉心应心dbJ* bl皑二二二二二二二口口二竽Storklji：crcate table StockjOut(*Gm c

21、hari 5),Cno char f 阴Gnane char l0.-!f Thaw char( 20 GoutjsricE rejal.OjtnuH intj CXjtifricB rtsil,Ojtdata char (20) triMTV key (Gno. Cno) P foreiin key1 Ghd references Goods Gno . foreign ke1 Cno) fifereriees Client Cns J ；,Cno char(5,Gn ame char(10,Tn ame char(20,Goutprice real,Out num int,Outprice

22、 real,Outdata char(20, primary key(G no,Cno, foreig n key(G no references Goods(G no, foreig n key(C no referen ces Clie nt(C no冢鏈L童说曲林爲匚回輕玄件SI能畜谊啦工具IB口帥刑肋即b 二 口 “卜 日苦民 向 OB，再商 一QBT 6C6FQ421rt deart_BSjnnK；?i. QETn6GF(i621 SlBXAdiiijkiiFt rvt.乘属性一St ock_Outfl!名帶迪；S(ack_Out权限日.所有着dbo创逮日期2011-VS ?1： 0

23、7： 00文件组：PRIMAflYin0键 ID常规數毎类型犬小空GnameTnameGoutprice OutnumOulprice 商srsrsrwr5 - 5 w 4- 4 4 harhafhar创 t 別Ghichchchre.lnre确定职綃帮肋2、界面设计步用户登录Forml/#in elude #pragma hdrstop#i nclude U ni tl.h#i nclude Un it2.h/#pragma package(smart_i nit#pragma resource *.dfmTForm1 *Form1。/_fastcall TForm1:TForm1(TCom

24、p onent* Owner:TForm(Ow ner/void _fastcall TForm1:Butto n1Click(TObject *Se nder _ADOQuery1-SQL-Clear( 。AD0Query1-SQL-Add(select * from Ma nager 。ADOQuery1-SQL-Add(where Mn ame=”+Edit1-Text+ and PW=”+Edit2-Text+” if(ADOQuery1-ExecSQL(ShowMessage(”登陆成功。Form2-Show( 。elseShowMessage(用户名或密码错误!。/void _fa

25、stcall TForm1:Butto n2Click(TObject *Se nderClose(。/Form2/#in clude #pragma hdrstop#i nclude Un it2.h#i nclude U ni t1.h#i nclude un it3.h#i nclude un it4.h#i nclude Un it5.h#i nclude Un it6.h#i nclude Un it7.h#i nclude Un it8.h#i nclude Un it9.h#i nclude Un it1O.h#i nclude U ni t11.h#i nclude Un it

26、12.h#i nclude Un it13.h#i nclude Un it14.h#i nclude Un it15.h#in clude Un it16.h/#pragma package(smart_i nit#pragma resource *.dfmTForm2 *Form2。/_fastcall TForm2:TForm2(TComp onent* Owner:TForm(Ow ner/void _fastcall TForm2:N5Click(TObject *Se nderForm3-Show( 。Form2-Close(。/void _fastcall TForm2:N6Cl

27、ick(TObject *Se nderForm4-Show( 。Form2-Close(。/void _fastcall TForm2:N18Click(TObject *Se nderForm1-Show( 。Form2-Close(。/void _fastcall TForm2:N8Click(TObject *Se nderForm6-Show( 。Form2-Close(。/void _fastcall TForm2:N7Click(TObject *Se nderForm5-Show( 。Form2-Close(。/void _fastcall TForm2:N12Click(TO

28、bject *Se nderForm10-Show( 。Form2-Close(。/void _fastcall TForm2:N9Click(TObject *Se nderForm7-Show( 。Form2-Close(。/void _fastcall TForm2:N10Click(TObject *Se nderForm8-Show( 。Form2-Close(。/void _fastcall TForm2:N16Click(TObject *Se nderForm9-Show( 。Form2-Close( 。/void _fastcall TForm2:N13Click(TObje

29、ct *Se nderForm12-Show(。Form2-Close(。/void _fastcall TForm2:N14Click(TObject *Se nderForm11-Show(。Form2-Close(。/void _fastcall TForm2:N15Click(TObject *Se nder Form14-Show( 。Form2-Close(。/void _fastcall TForm2:N11Click(TObject *Se nderForm9-Show( 。Form2-Close(。/void _fastcall TForm2:N17Click(TObject

30、 *Se nderForm15-Show( 。Form2-Close(。/void _fastcall TForm2:N19Click(TObject *Se nder Form16-Show(。Form2-Close(。/Form3/#in clude #pragma hdrstop#i nclude Un it3.h#in clude Un it2.h/#pragma package(smart_i nit#pragma resource *.dfmTForm3 *Form3。/_fastcall TForm3:TForm3(TCompo nent* Own er:TForm(Ow ner

31、/void _fastcall TForm3:Butto n1Click(TObject *Se nder Form3-ADOTable1-Active=true 。Form3-ADOTable1-Append( 。Form3-ADOTable1-FieldByName(C no-AsStri ng=Edit1-Text 。 Form3-ADOTable1-FieldByName(C name-AsStri ng=Edit2-Text。Form3-ADOTable1-FieldByName(Caddr-AsStri ng=Edit3-Text。Form3-ADOTable1-FieldByNa

32、me(Ctel-AsStri ng=Edit4-Text 。 Form3-ADOTable1-Post( 。ShowMessage(”录入成功!。/void _fastcall TForm3:Butto n2Click(TObject *Se nderEdit1-Text=。Edit2-Text=。Edit3-Text=。Edit4-Text=。/void _fastcall TForm3:Butto n3Click(TObject *Se nderForm2-Show( 。Form3-Close(。/Form4/#in clude #pragma hdrstop#i nclude Un it

33、4.h#i nclude Un it2.h/#pragma package(smart_i nit#pragma resource *.dfm TForm4 *Form4 。/_fastcall TForm4:TForm4(TComp onent* Owner:TForm(Ow ner/void _fastcall TForm4:Butto n1Click(TObject *Se nder ADOQuery1-Active=false。ADOQuery1-SQL-Clear(。ADOQuery1-SQL-Add(Select * From Clie nt 。 ADOQuery1-SQL-Add(Where Cno like +Edit1-Text+% ADOQuery1-Active=true 。/void _fastcall TForm4:Butto n2Click(TObject *Se nder ADOQuery1-Active=false 。ADOQuery1-SQL-Clear(。ADOQuery1-SQL-Add(Select