数据库课程设计商品进销存管理系统

1、课程设计设计题目： 超市销售管理系统 学生姓名： 潘 小 涛 学 号： 20052408 专业班级：计算机科学与技术05-2班2008年 9月23日一设计要求1信息要求本系统至少应该包含超市所有货物管理相关的根本信息，包括进货信息和销售信息等。它们都应该包括商品货物的根本信息如员商品编号、商品名称、规格、产地、单位、进价、批发价、零售价等和客户的根本信息如客户编号、客户名称、联系人、联系 、地址、客户信箱、银行帐号等。2功能要求本系统的根本功能要求如下：进货商品的信息维护包括简单查询、修改、删除和添加等功能；销售商品的信息维护包括简单查询、修改、删除和添加等功能；客户的信息维护包括简单查询、修

2、改、删除和添加等功能；系统用户的信息维护包括简单查询、修改、删除、添加和权限分配等功能；系统信息备份、复原；二软件环境及开发工具1个人电脑及Win XP Pro23SQL Server 2000三需求分析对该超市销售管理系统进行深入的业务流程分析后画出数据流图。由数据流图图可以看出来，每个操作员查看信息前必须先登录这个管理系统，每个操作员的信息保存在操作员信息表中。用户登录系统后可以查看商品进销管理信息和客户信息，也可以通过查询选择自己希望得到的信息。四数据库设计1概念设计根据需求分析的结果，得到的用ER图表示的概念设计结果如下列图所示销售调整进货调整商品信息查询删除用户修改用户信息添加新用户

3、删除客户修改客户信息添加新客户添加新商品修改商品信息删除商品超市销售信息管理系统商品信息管理客户信息管理用户信息管理销售管理查询销售信息管理库存量调整2逻辑设计根据分析，整个销售系统系统需要的数据表如下：商品信息：商品编号、商品名称、规格、产地、单位、进价、批发价、零售价等；客户信息：客户编号、客户名称、联系人、联系 、地址、客户信箱、银行帐号等；操作员信息：操作员编号、操作员姓名、操作员密码、操作员级别等；销售信息：销售号、客户编号、客户名、商品编号、商品名称、单价、数量、金额、销售时间等。五系统设计由于这个超市销售信息管理系统是一个比拟小型的数据库系统，只需要储存文本信息，都是小字段的问题

4、，作为一个小型的数据库系统，数据量最多在百至千条左右，故采用微软的SQL Server作为后台数据库，使用SQL语言进行操作。操作员信息表，包括了操作员编号、操作员姓名、操作员密码和操作员级别，其中操作员编号是主码：商品信息表，商品编号、商品名称、规格、产地、单位、进价、批发价、零售价等，其中商品编号是主码：客户信息表，包括客户编号、客户名称、联系人、联系 、地址、客户信箱、银行帐号等。其中客户编号是主码：销售信息表，包括销售号、客户编号、客户名、商品编号、商品名称、单价、数量、金额、销售时间等，其中销售号是主码：库存信息表，包括商品编号、商品名称、库存数量、库存金额等，其中商品编号是主码：六

5、系统操作说明和运行结果翻开Project.exe，出现登陆界面：输入正确用户名和密码后进入系统，否那么出现错误提示：系统主界面：商品信息管理界面：客户信息管理界面：操作员信息管理界面：销售查询界面：销售管理界面：库存量调整界面：七程序清单由于系统是图形化的信息管理系统，故使用Delphi实现。程序清单过于冗长，在此仅列出其中关键局部。1. 用户登录局部：procedure TForm1.BitBtn1Click(Sender: TObject);var username,userpass,sqlstr:string;begin username:=trim(edit1.Text); userp

6、ass:=trim(edit2.Text); sqlstr:=select *from 操作员信息表 where (操作员姓名=+username+)and(操作员密码=+userpass+) ; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(sqlstr); adoquery1.Open; if adoquery1.RecordCount0 then begin self.Visible:=false; b:=true; application.CreateForm(Tmainn,mainn);owModal; mainn.F

7、ree; close;end else begin if i 3 then begin Application.MessageBox(用户名称或密码不正确，请重新输入。,提示,0+64); Edit1.Clear; Edit2.Clear; Edit1.SetFocus; Inc(i); end else begin Application.MessageBox(对不起，您无权使用本系统。,提示,0+64); Application.Terminate ; end; end;end;procedure TForm1.BitBtn2Click(Sender: TObject);begin clo

8、se;end;procedure TForm1.FormClose(Sender: TObject);begin if b=false then application.Terminate;end;procedure TForm1.FormCreate(Sender: TObject);beginend;end. 2. 商品信息管理代码：var spinfor: Tspinfor;implementation$R *.dfmprocedure tspinfor.editvalue;begin edit1.Text:=inttostr(adoquery1.fieldbyname(商品编号).Va

9、lue); edit2.Text:=adoquery1.fieldbyname(商品名称).Value; edit3.Text:=adoquery1.fieldbyname(规格).Value; edit4.Text:=adoquery1.fieldbyname(产地).Value; edit5.Text:=adoquery1.fieldbyname(单位).Value; edit6.Text:=floattostr(adoquery1.fieldbyname(进价).Value); edit7.Text:=floattostr(adoquery1.fieldbyname(批发价).Value

10、); edit8.Text:=floattostr(adoquery1.fieldbyname(零售价).Value);end;procedure Tspinfor.formshow(Sender: TObject);begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(select *from 商品根底信息表); adoquery1.Open; adoquery1.First; editvalue; bitbtn4.Enabled:=false;end;procedure tspinfor.clearedit;begin

11、edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit6.Clear; edit7.Clear; edit8.Clear;end ;procedure Tspinfor.BitBtn1Click(Sender: TObject);begin if not adoquery1.bof then begin adoquery1.Prior; self.editvalue; end else bitbtn1.Enabled:=false; bitbtn2.Enabled:=true;end;procedure Tsp

12、infor.BitBtn2Click(Sender: TObject);begin if not adoquery1.Eof then begin adoquery1.Next; editvalue; end else bitbtn2.Enabled:=false; bitbtn1.Enabled:=true;end;Btn3Click(Sender: TObject);var i:integer;begin clearedit; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(select max(商品编号) as ss fro

13、m 商品根底信息表) ; adoquery1.Open; i:=adoquery1.FieldByName(ss).Value+1; edit1.Text:=inttostr(i); edit2.SetFocus; bitbtn4.Enabled:=true;end;procedure Tspinfor.BitBtn4Click(Sender: TObject);begin if (edit1.Text)and (edit2.Text)and (edit3.Text)and (edit4.Text)and (edit5.Text)and (edit6.Text)and (edit7.Text)

14、and (edit8.Text) then begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(insert 商品根底信息表 values(:a,:b,:c,:d,:e,:f,:g,:h) ); adoquery1.Parameters.ParamByName(a).Value:=strtoint(edit1.Text); adoquery1.Parameters.ParamByName(b).Value:=edit2.Text;aramByName(c).Value:=edit3.Text; adoquery1.Para

15、meters.ParamByName(d).Value:=edit4.Text; adoquery1.Parameters.ParamByName(e).Value:=edit5.Text; adoquery1.Parameters.ParamByName(f).Value:=strtofloat(edit6.Text); adoquery1.Parameters.ParamByName(g).Value:=strtofloat(edit7.Text); adoquery1.Parameters.ParamByName(h).Value:=strtofloat(edit8.Text); ado

16、query1.ExecSQL; showmessage(the save operation is succeed!); self.formshow(sender); end else showmessage(please fill in the blank completely!);end;procedure Tspinfor.BitBtn5Click(Sender: TObject);begin if (edit1.Text)and (edit2.Text)and (edit3.Text)and (edit4.Text)and (edit5.Text)and (edit6.Text)and

17、 (edit7.Text)and (edit8.Text) then begin adoquery1.Edit; adoquery1.fieldbyname(商品编号).Value:=strtoint(edit1.Text); adoquery1.fieldbyname(商品名称).Value:=edit2.Text; adoquery1.fieldbyname(规格).Value:=edit3.Text; adoquery1.fieldbyname(产地).Value:=edit4.Text; adoquery1.fieldbyname(单位).Value:=edit5.Text; adoq

18、uery1.fieldbyname(进价).Value:=strtofloat(edit6.Text); adoquery1.fieldbyname(批发价).Value:=strtofloat(edit7.Text); adoquery1.fieldbyname(零售价).Value:=strtofloat(edit8.Text);st; showmessage(the amend operation is succeed!) ; end else showmessage(please fill in the blank completely!);end;procedure Tspinfor

19、.BitBtn6Click(Sender: TObject);begin if edit1.Text then begin if application.MessageBox(do you really want to delete the item ?,hint,mb_yesno)=id_yes then begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(delete from 商品根底信息表 where 商品编号=:a) ; adoquery1.Parameters.ParamByName(a).Value:=str

20、toint(edit1.Text); adoquery1.ExecSQL; showmessage(the delete operation is succeed!); self.formshow(sender); end end else showmessage(please fill in the commodity number blank!);end;procedure Tspinfor.BitBtn7Click(Sender: TObject);begin self.formshow(sender);end;procedure Tspinfor.Panel3Click(Sender:

21、 TObject);beginend;end.3. 销售管理代码：procedure TForm6.FormShow(Sender: TObject);begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(select * from 销售表); adoquery1.Open; bitbtn2.Enabled:=false;end;procedure TForm6.BitBtn1Click(Sender: TObject);var i:integer;begin adoquery1.Close; adoquery1.SQL.C

22、lear; adoquery1.SQL.Add(select max(销售号) as ss from 销售表); adoquery1.Open; i:=adoquery1.FieldByName(ss).Value+1; edit1.Text:=inttostr(i); edit2.SetFocus; self.FormShow(sender); bitbtn2.Enabled:=true;end;procedure TForm6.BitBtn2Click(Sender: TObject);begin if (edit1.Text)and (edit2.Text)and (edit3.Text

23、)and (edit4.Text)and (edit5.Text)and (edit6.Text)and (edit7.Text)and (edit8.Text) then begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(insert 销售表 values(:a,:b,:c,:d,:e,:f,:g,:h,:i); adoquery1.Parameters.ParamByName(a).Value:=strtoint(edit1.Text); adoquery1.Parameters.ParamByName(b).Val

24、ue:=strtoint(edit2.Text); adoquery1.Parameters.ParamByName(d).Value:=strtoint(edit4.Text); adoquery1.Parameters.ParamByName(e).Value:=edit5.Text; adoquery1.Parameters.ParamByName(f).Value:=strtofloat(edit6.Text); adoquery1.Parameters.ParamByName(g).Value:=strtofloat(edit7.Text); adoquery1.Parameters

25、.ParamByName(h).Value:=strtofloat(edit8.Text); adoquery1.Parameters.ParamByName(i).Value:=datetimepicker1.Date; adoquery1.ExecSQL; showmessage(the save operation is succeed!); self.formshow(sender); end else showmessage(please fill in the blank completely!);end;procedure TForm6.BitBtn3Click(Sender:

26、TObject);begin if (edit1.Text)and (edit2.Text)and (edit3.Text)and (edit4.Text)and (edit5.Text)and (edit6.Text)and (edit7.Text)and (edit8.Text) then begin if application.MessageBox(do you really want to amend the item ,hint,mb_yesno)=id_yes then begin adoquery1.Edit; adoquery1.fieldbyname(销售号).Value:

27、=strtoint(edit1.Text); adoquery1.fieldbyname(客户编号).Value:=strtoint(edit2.Text); adoquery1.fieldbyname(客户名).Value:=edit3.Text; adoquery1.fieldbyname(商品编号).Value:=strtoint(edit4.Text); adoquery1.fieldbyname(商品名称).Value:=edit5.Text; adoquery1.fieldbyname(单价).Value:=strtofloat(edit6.Text); adoquery1.fie

28、ldbyname(数量).Value:=strtofloat(edit7.Text); adoquery1.fieldbyname(金额).Value:=strtofloat(edit8.Text); adoquery1.fieldbyname(销售时间).Value:=datetimepicker1.Date; adoquery1.Post; self.formshow(sender); showmessage(the amend operation is succeed!) ; end end else showmessage(please fill in the blank comple

29、tely!);end;procedure TForm6.BitBtn4Click(Sender: TObject);begin if edit1.Text then begin if application.MessageBox(do you really want to delete the item ,hint,mb_yesno)=id_yes then begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(delete from 销售表 where 销售号=:a) ; adoquery1.Parameters.Para

30、mByName(a).Value:=strtoint(edit1.Text); adoquery1.ExecSQL; self.formshow(sender); end end else showmessage(please fill in the sell number blank!);end;procedure TForm6.BitBtn5Click(Sender: TObject);begin self.FormShow(sender);end;procedure TForm6.Panel1Click(Sender: TObject);beginend;end.4. 销售查询代码：pr

31、ocedure TForm5 bobox1change(Sender: TObject);begin if Trim(ComboBox1.Text)then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select distinct); ADOQuery1.SQL.Add(Trim(ComboBox1.Text); ADOQuery1.SQL.Add(from 销售表 ); ADOQuery1.Open; ComboBox2.Clear; while Not ADOQuery1.Eof do begin Combo

32、Box2.Items.Add(ADOQuery1.Fields0.value); ADOQuery1.Next; end; end;end;procedure TForm5.SpeedButton1Click(Sender: TObject);begin if (Trim(ComboBox2.Text)and(Trim(ComboBox1.Text) then begin CheckBox1.Checked := False; adoquery1.close; adoquery1.SQL.Clear; if CheckBox2.Checked = False then begin adoque

33、ry1.SQL.Add(select * from 销售表 where ); adoquery1.SQL.Add(Trim(ComboBox1.Text); adoquery1.SQL.Add(=); adoquery1.SQL.Add(:a); end else begin adoquery1.SQL.Add(Select * from 销售表 where); adoquery1.SQL.Add(Trim(ComboBox1.Text); adoquery1.SQL.Add(=); adoquery1.SQL.Add(:a); adoquery1.SQL.Add(and 销售时间=:b an

34、d 销售时间= :c); adoquery1.Parameters.ParamByName(b).Value := Int(DateTimePicker1.Date) ; adoquery1.Parameters.ParamByName(c).Value := Int(DateTimePicker2.Date); end; adoquery1.Parameters.ParamByName(a).value := Trim(ComboBox2.Text); adoquery1.Open; end;end;procedure TForm5.CheckBox1Click(Sender: TObjec

35、t);begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(Select * from 销售表 ); adoquery1.Open;end;procedure TForm5.BitBtn1Click(Sender: TObject);begin close;end;procedure TForm5.Panel2Click(Sender: TObject);beginend;end.5. 库存量管理代码：procedure TForm4.formshow(Sender: TObject);begin radiobutton1.

36、Checked:=true; adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(select Distinct 商品名称 from 商品根底信息表 ); adoquery1.Open; while not adoquery1.Eof do begin combobox1.Items.Add(adoquery1.fieldbyname(商品名称).AsString); adoquery1.Next; end ; combobox1.ItemIndex:=0;end;procedure TForm4.BitBtn1Click(Sende

37、r: TObject);beginif (Trim(ComboBox1.Text)and(Trim(ComboBox2.Text)and (Trim(Edit1.Text)and(Trim(Edit2.Text)then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from 库存表 where 商品编号 = :a); ADOQuery1.Parameters.ParamByName(a).Value := Trim(ComboBox2.Text); ADOQuery1.Open; if ADOQu

38、ery1.RecordCount0 then begin if radiobutton1.Checked=true then begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(update 库存表 set 库存数量 = 库存数量 + :a ,库存金额 = 库存金额 + :b where 商品编号 = :c); ADOQuery1.Parameters.ParamByName(a).Value := StrToInt(Edit1.Text); ADOQuery1.Parameters.ParamByName(b).Value := StrToFloat(Edit2.Text); ADOQuery1.Parameters.ParamByName(c).Value := Trim(ComboBox2.Text); ADOQuery1.ExecSQL; end else begin