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

课程设计设计题目：超市销售管理系统学生姓名：________ 潘小涛___________ 学号：20052408 ______________ 专业班级：计算机科学与技术05-2班2008年9月23日．设计要求1．信息要求本系统至少应该包含超市所有货物管理相关的基本信息，包括进货信息和销售信息等。

它们都应该包括商品货物的基本信息（如员商品编号、商品名称、规格、产地、单位、进价、批发价、零售价等）和客户的基本信息（如客户编号、客户名称、联系人、联系电话、地址、客户信箱、银行帐号等）。

2．功能要求本系统的基本功能要求如下：进货商品的信息维护（包括简单查询、修改、删除和添加等功能）；销售商品的信息维护（包括简单查询、修改、删除和添加等功能）；客户的信息维护（包括简单查询、修改、删除和添加等功能）；系统用户的信息维护（包括简单查询、修改、删除、添加和权限分配等功能）；系统信息备份、还原；二．软件环境及开发工具1．个人电脑及Win XP Pro2．Delphi 7.03．SQL Server 2000三．需求分析对该超市销售管理系统进行深入的业务流程分析后画出数据流图。

由数据流图图可以看出来，每个操作员查看信息前必须先登录这个管理系统，每个操作员的信息保存在操作员信息表中。

用户登录系统后可以查看商品进销管理信息和客户信息，也可以通过查询选择自己希望得到的信息。

四. 数据库设计1 .概念设计根据需求分析的结果，得到的用 ER 图表示的概念设计结果如下图所示 超市销售信息管理系统2 •逻辑设计根据分析，整个销售系统系统需要的数据表如下:商品信息：商品编号、商品名称、规格、产地、单位、进价、批发价、零售 价等； 客户信息：客户编号、客户名称、联系人、联系电话、地址、客户信箱、银 行帐号等；操作员信息：操作员编号、操作员姓名、操作员密码、操作员级别等；销售信息：销售号、客户编号、客户名、商品编号、商品名称、单价、数量、 金额、销售时间等。

五. 系统设计由于这个超市销售信息管理系统是一个比较小型的数据库系统，只需要储存商品信息管理客户信息管理用户信息管理销售管理查询销售信息管理库存量调整进 销 货 售 调 调 整 整文本信息，都是小字段的问题，作为一个小型的数据库系统，数据量最多在百至千条左右，故采用微软的SQL Server作为后台数据库，使用SQL语言进行操QI <r tTWflfr SO H EE □廿sa az瓯H （1*询-Oi：[idMS IT）.|J rutur t R砂対工iy陷韓+ 日florthrii-d * U讪u f也如赔品-IJ flttJJISti•J靈玮h I隣丄_l且日*_i Hili■> £*rri «»操作员信息表，包括了操作员编号、操作员姓名、操作员密码和操作员级别，其中操作员编号是主码：商品信息表，商品编号、商品名称、规格、产地、单位、进价、批发价、零售价等，其中商品编号是主码：SQL Se rver Ent erpirise Kaxiagex吊文件0) 窗口囲帮助0)IH国1*毛H 霍齟专刁為埠越［邂茴品褊号育品名称int4 ar char30 ^ariehtr20VAT ch AT30ar char2C列名I 数据类型 长度 允许空 客户信息表，包括客户编号、客户名称、联系人、联系电话、地址、客户信箱、 银行帐号等。

其中客户编号是主码：苗设廿表“聲户皐础信息表□ •慣畫是■詰售管理2销售信息表，包括销售号、客户编号、客户名、商品编号、商品名称、单价、数 量、金额、销售时间等，其中销售号是主码：視谡计表*销窖表■,僮置昱理系统15中」库存信息表，包括商品编号、商品名称、库存数量、库存金额等，其中商品编号 是主码： money 8诃mcmey 8*moxieyQ六.系统操作说明和运行结果打开Project.exe，出现登陆界面:输入正确用户名和密码后进入系统，否则出现错误提示:系统主界面:商品信息管理界面:客户信息管理界面:操作员信息管理界面:销售查询界面:销售管理界面:库存量调整界面:七.程序清单由于系统是图形化的信息管理系统，故使用Delphi实现。

程序清单过于冗长, 在此仅列出其中关键部分。

1. 用户登录部分：procedure TForm1.BitBtn1Click(Sender: TObject);varusername,userpass,sqlstr:string;beginusername:=trim(edit1.Text);userpass:=trim(edit2.Text);sqlstr:='select *from 操作员信息表where ( 操作员姓名='''+username+''')and( 操作员密码='''+userpass+''')' ;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add(sqlstr);adoquery1.Open;if adoquery1.RecordCount>0 thenbeginself.Visible:=false;b:=true;application.CreateForm(Tmainn,mainn);mainn.ShowModal;mainn.Free;close;endelsebeginif i <3 thenbeginApplication.MessageBox(' 用户名称或密码不正确，请重新输入。

',' 提示',0+64);Edit1.Clear;Edit2.Clear;Edit1.SetFocus;Inc(i);endelsebeginApplication.MessageBox(' 对不起，您无权使用本系统。

',' 提示',0+64);Application.Terminate ;end;end;end;procedure TForm1.BitBtn2Click(Sender: TObject);beginclose;end;procedure TForm1.FormClose(Sender: TObject);beginif b=false thenapplication.Terminate;end;procedure TForm1.FormCreate(Sender: TObject);beginend; end.2. 商品信息管理代码：varspinfor: Tspinfor;implementation{$R *.dfm}procedure tspinfor.editvalue;beginedit1.Text:=inttostr(adoquery1.fieldbynam e('edit2.Text:=adoquery1.fieldbyname('edit3.Text:=adoquery1.fieldbyname(' edit4.Text:=adoquery1.fieldbyname(' edit5.Text:=adoquery1.fieldbyname(' edit6.Text:=floattostr(adoquery1.fieldbyn ame('edit7.Text:=floattostr(adoquery1.fieldbyname('edit8.Text:=floattostr(adoquery1.fieldbyname(' end;procedure Tspinfor.formshow(Sender: TObject); beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select *from 商品基础信息表 '); adoquery1.Open;adoquery1.First;editvalue;bitbtn4.Enabled:=false;end;procedure tspinfor.clearedit;beginedit1.Clear;edit2.Clear;edit3.Clear;edit4.Clear;edit5.Clear;edit6.Clear;edit7.Clear;edit8.Clear;end ;procedure Tspinfor.BitBtn1Click(Sender: TObject); beginif not adoquery1.bof thenbeginadoquery1.Prior; self.editvalue;endelsebitbtn1.Enabled:=false; bitbtn2.Enabled:=true;end;procedure Tspinfor.BitBtn2Click(Sender: TObject); beginif not adoquery1.Eof thenbeginadoquery1.Next;商品编号 ').Value);商品名称 ').Value; 规格 ').Value; 产地 ').Value; 单位 ').Value; 进价 ').Value); 批发价 ').Value); 零售价 ').Value);editvalue;endelsebitbtn2.Enabled:=false;bitbtn1.Enabled:=true;end;procedure Tspinfor.BitBtn3Click(Sender: TObject);var i:integer;beginclearedit;adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select max( 商品编号 ) as ss fromadoquery1.Open;i:=adoquery1.FieldByName('ss').Value+1;edit1.Text:=inttostr(i);edit2.SetFocus;bitbtn4.Enabled:=true;end;adoquery1.Parameters.ParamByName('a').Value:=strtoint(edit1.Text);adoquery1.Parameters.ParamByName('b').Value:=edit2.Text;adoquery1.Parameters.ParamByName('c').Value:=edit3.Text;adoquery1.Parameters.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);adoquery1.ExecSQL;showmessage('the save operation is succeed!!!');self.formshow(sender);endelseshowmessage('please fill in the blank completely!!!');end;procedure Tspinfor.BitBtn5Click(Sender: TObject);begin if (edit1.Text<>'')and (edit2.Text<>'')and(edit4.Text<>'')and(edit5.Text<>'')and (edit6.Text<>'')and(edit8.Text<>'') thenbeginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('insert商品基 values(:a,:b,:c,:d,:e,:f,:g,:h) '); procedure Tspinfor.BitBtn4Click(Sender: TObject);begin(edit3.Text<>'')and (edit7.Text<>'')and 础信息表商品基础信息表 ') ;if (edit1.Text<>'')and (edit2.Text<>'')and (edit4.Text<>'')and(edit5.Text<>'')and (edit6.Text<>'')and (edit8.Text<>'') then (edit3.Text<>'')and (edit7.Text<>'')and商品编号 ').Value:=strtoint(edit1.Text); 商品名称 ').Value:=edit2.Text; 规格 ').Value:=edit3.Text; 产地 ').Value:=edit4.Text; 单位 ').Value:=edit5.Text; 进价 ').Value:=strtofloat(edit6.Text); 批发价 ').Value:=strtofloat(edit7.Text); 零售价 ').Value:=strtofloat(edit8.Text); showmessage('the amend operation is succeed!!!') ; end elseshowmessage('please fill in the blank completely!!!');end;procedure Tspinfor.BitBtn6Click(Sender: TObject);beginif edit1.Text<>'' thenbeginif application.MessageBox('do you really want to delete theitem ??','hint',mb_yesno)=id_yes thenbeginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('delete from 商品基础信息表 where 商品编号 =:a') ;adoquery1.Parameters.ParamByName('a').Value:=strtoint(edit1.Text);adoquery1.ExecSQL;showmessage('the delete operation is succeed!!!');self.formshow(sender);endendelseshowmessage('please fill in the commodity number blank!!!');end;procedure Tspinfor.BitBtn7Click(Sender: TObject); beginself.formshow(sender);end;procedure Tspinfor.Panel3Click(Sender: TObject);beginend;end.3. 销售管理代码：procedure TForm6.FormShow(Sender: TObject); beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select * from 销售表 ');adoquery1.Open;bitbtn2.Enabled:=false;end;procedure TForm6.BitBtn1Click(Sender: TObject);beginadoquery1.Edit;adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.Post;var i:integer;beginadoquery1.Close;adoquery1.SQL.Clear;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);beginif (edit1.Text<>'')and (edit2.Text<>'')and (edit3.Text<>'')and(edit4.Text<>'')and(edit5.Text<>'')and (edit6.Text<>'')and (edit7.Text<>'')and(edit8.Text<>'')thenbeginadoquery1.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').Value:=strtoint(edit2.Text);adoquery1.Parameters.ParamByName('c').Value:=edit3.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.ParamByName('h').Value:=strtofloat(edit8.Text);adoquery1.Parameters.ParamByName('i').Value:=datetimepicker1.Date; adoquery1.ExecSQL;showmessage('the save operation is succeed!!!');self.formshow(sender);endelseshowmessage('please fill in the blank completely!!!');end;procedure TForm6.BitBtn3Click(Sender: TObject);beginif (edit1.Text<>'')and (edit2.Text<>'')and (edit3.Text<>'')and(edit4.Text<>'')and(edit5.Text<>'')and (edit6.Text<>'')and (edit7.Text<>'')and(edit8.Text<>'')thenbeginif application.MessageBox('do you really want to amend the item','hint',mb_yesno)=id_yes thenbeginadoquery1.Edit;adoquery1.fieldbyname(' 销售号').Value:=strtoint(edit1.Text); adoquery1.fieldbyname(' 客户编号').Value:=strtoint(edit2.Text);客户名 ').Value:=edit3.Text; 商品编号 ').Value:=strtoint(edit4.Text); 商品名称 ').Value:=edit5.Text; 单价 ').Value:=strtofloat(edit6.Text); 数量 ').Value:=strtofloat(edit7.Text); 金额 ').Value:=strtofloat(edit8.Text);销售时间 ').Value:=datetimepicker1.Date;adoquery1.Post; self.formshow(sender); showmessage('the amendoperation is succeed!!!') ; endendelse showmessage('please fill in the blank completely!!!');end;procedure TForm6.BitBtn4Click(Sender: TObject);beginif edit1.Text<>'' thenbeginif application.MessageBox('do you really want to delete the item','hint',mb_yesno)=id_yes thenbeginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('delete from 销售表 where 销售号 =:a') ;adoquery1.Parameters.ParamByName('a').Value:=strtoint(edit1.Text); adoquery1.ExecSQL; self.formshow(sender);endendelseshowmessage('please fill in the sell number blank!!!');end;procedure TForm6.BitBtn5Click(Sender: TObject); beginself.FormShow(sender);end;procedure TForm6.Panel1Click(Sender: TObject); beginend;end.4. 销售查询代码：procedure bobox1change(Sender: TObject); beginif Trim(ComboBox1.Text)<>''thenbeginADOQuery1.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 dobeginComboBox2.Items.Add(ADOQuery1.Fields[0].value);adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('adoquery1.fieldbyname('ADOQuery1.Next;end;end;end;procedure TForm5.SpeedButton1Click(Sender: TObject); beginif (Trim(ComboBox2.Text)<>'')and(Trim(ComboBox1.Text)<>'') thenbeginCheckBox1.Checked := False; adoquery1.close; adoquery1.SQL.Clear;if CheckBox2.Checked = False thenbeginadoquery1.SQL.Add('select * from 销售表where ');adoquery1.SQL.Add(Trim(ComboBox1.Text));adoquery1.SQL.Add('=');adoquery1.SQL.Add(':a');endelsebeginadoquery1.SQL.Add('Select * from 销售表where');adoquery1.SQL.Add(Trim(ComboBox1.Text));adoquery1.SQL.Add('=');adoquery1.SQL.Add(':a');adoquery1.SQL.Add('and 销售时间>=:b and 销售时间<= :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: TObject); beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('Select * from 销售表');adoquery1.Open;end;procedure TForm5.BitBtn1Click(Sender: TObject); beginclose;end;procedure TForm5.Panel2Click(Sender: TObject); beginend;end.5. 库存量管理代码：procedure TForm4.formshow(Sender: TObject); beginradiobutton1.Checked:=true; adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select Distinct 商品名称 from 商品基础信息表 '); adoquery1.Open; while not adoquery1.Eof dobegincombobox1.Items.Add(adoquery1.fieldbyname(' 商品名称 ').AsString); adoquery1.Next; end ;combobox1.ItemIndex:=0;end;procedure TForm4.BitBtn1Click(Sender: TObject); beginif (Trim(ComboBox1.Text)<>'')and(Trim(ComboBox2.Text)<>'')and(Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'')thenbeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from 库存表 where 商品编号 = :a');ADOQuery1.Parameters.ParamByName('a').Value := Trim(ComboBox2.Text); ADOQuery1.Open; if ADOQuery1.RecordCount>0 then beginif radiobutton1.Checked=true thenbeginADOQuery1.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;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('update 库存表 set 库存数量 = 库存数量 - 额 = 库存金额 - :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;endelsebeginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('Insert 库存表 values (:a,:b,:c,:d,Default)');ADOQuery1.Parameters.ParamByName('a').Value := Trim(ComboBox2.Text);ADOQuery1.Parameters.ParamByName('b').Value := Trim(ComboBox1.Text);ADOQuery1.Parameters.ParamByName('c').Value := StrToInt(Edit1.Text);库存金额 :a , 库存金ADOQuery1.Parameters.ParamByName('d').Value := StrToFloat(Edit2.Text);ADOQuery1.ExecSQL;end;showmessage('the save operation is succeed!!!');self.BitBtn3Click(sender);end;end;procedure TForm4.BitBtn3Click(Sender: TObject);begincombobox1.Clear;combobox2.Clear;edit1.Clear;edit2.Clear;end;procedure TForm4.BitBtn2Click(Sender: TObject);beginclose;end;procedure TForm4.GroupBox1Click(Sender: TObject);beginend;end.八．总结设计题目要求设计一个超市销售信息管理系统，该系统就是一个面向目前普遍存在的大型商场或超市的管理系统。