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

课程设计设计题目： 超市销售管理系统 学生姓名： 潘 小 涛 学 号： 20052408 专业班级：计算机科学与技术05-2班2008年 9月23日一．设计要求1．信息要求本系统至少应该包含超市所有货物管理相关的基本信息，包括进货信息和销售信息等它们都应该包括商品货物的基本信息（如员商品编号、商品名称、规格、产地、单位、进价、批发价、零售价等）和客户的基本信息（如客户编号、客户名称、联系人、联系、地址、客户信箱、银行帐号等）2．功能要求本系统的基本功能要求如下：进货商品的信息维护（包括简单查询、修改、删除和添加等功能）；销售商品的信息维护（包括简单查询、修改、删除和添加等功能）；客户的信息维护（包括简单查询、修改、删除和添加等功能）；系统用户的信息维护（包括简单查询、修改、删除、添加和权限分配等功能）；系统信息备份、还原；二．软件环境及开发工具1．个人电脑及Win XP Pro2．Delphi 7.03．SQL Server 2000三．需求分析对该超市销售管理系统进行深入的业务流程分析后画出数据流图由数据流图图可以看出来，每个操作员查看信息前必须先登录这个管理系统，每个操作员的信息保存在操作员信息表中。

用户登录系统后可以查看商品进销管理信息和客户信息，也可以通过查询选择自己希望得到的信息四．数据库设计1．概念设计根据需求分析的结果，得到的用ER图表示的概念设计结果如下图所示销售调整进货调整商品信息查询删除用户修改用户信息添加新用户删除客户修改客户信息添加新客户添加新商品修改商品信息删除商品超市销售信息管理系统商品信息管理客户信息管理用户信息管理销售管理查询销售信息管理库存量调整2．逻辑设计根据分析，整个销售系统系统需要的数据表如下：商品信息：商品编号、商品名称、规格、产地、单位、进价、批发价、零售价等；客户信息：客户编号、客户名称、联系人、联系、地址、客户信箱、银行帐号等；操作员信息：操作员编号、操作员姓名、操作员密码、操作员级别等；销售信息：销售号、客户编号、客户名、商品编号、商品名称、单价、数量、金额、销售时间等五．系统设计由于这个超市销售信息管理系统是一个比较小型的数据库系统，只需要储存文本信息，都是小字段的问题，作为一个小型的数据库系统，数据量最多在百至千条左右，故采用微软的SQL Server作为后台数据库，使用SQL语言进行操作操作员信息表，包括了操作员编号、操作员姓名、操作员密码和操作员级别，其中操作员编号是主码：商品信息表，商品编号、商品名称、规格、产地、单位、进价、批发价、零售价等，其中商品编号是主码：客户信息表，包括客户编号、客户名称、联系人、联系、地址、客户信箱、银行帐号等。

其中客户编号是主码：销售信息表，包括销售号、客户编号、客户名、商品编号、商品名称、单价、数量、金额、销售时间等，其中销售号是主码：库存信息表，包括商品编号、商品名称、库存数量、库存金额等，其中商品编号是主码：六．系统操作说明和运行结果打开Project.exe，出现登陆界面：输入正确用户名和密码后进入系统，否则出现错误提示：系统主界面：商品信息管理界面：客户信息管理界面：操作员信息管理界面：销售查询界面：销售管理界面：库存量调整界面：七．程序清单由于系统是图形化的信息管理系统，故使用Delphi实现程序清单过于冗长，在此仅列出其中关键部分1. 用户登录部分：procedure TForm1.BitBtn1Click(Sender: TObject);var username,userpass,sqlstr:string;begin username:=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 then begin self.Visible:=false; b:=true; application.CreateForm(Tmainn,mainn); mainn.ShowModal; mainn.Free; 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 close;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 *.dfm}procedure tspinfor.editvalue;begin edit1.Text:=inttostr(adoquery1.fieldbyname('商品编号').Value); 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); 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 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 Tspinfor.BitBtn2Click(Sender: TObject);begin if not adoquery1.Eof then begin adoquery1.Next; editvalue; end else bitbtn2.Enabled:=false; bitbtn1.Enabled:=true;end;procedure Tspinfor.BitBtn3Click(Sender: TObject);var i:integer;begin clearedit; adoquery1.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; 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<>'')and (edit8.Text<>'') then begin adoquery1。