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

课课 程程 设设计计 2008 年年 9 月月 23 日日 设计题目 设计题目 超市销售管理系统超市销售管理系统 学生姓名 学生姓名 潘潘 小小 涛涛 学学 号 号 2005240820052408 专业班级 专业班级 计算机科学与技术计算机科学与技术 05 205 2 班班 1 一 设计要求一 设计要求 1 信息要求 本系统至少应该包含超市所有货物管理相关的基本信息 包括进货信息和 销售信息等 它们都应该包括商品货物的基本信息 如员商品编号 商品名称 规格 产地 单位 进价 批发价 零售价等 和客户的基本信息 如客户编 号 客户名称 联系人 联系电话 地址 客户信箱 银行帐号等 2 功能要求 本系统的基本功能要求如下 进货商品的信息维护 包括简单查询 修改 删除和添加等功能 销售商品的信息维护 包括简单查询 修改 删除和添加等功能 客户的信息维护 包括简单查询 修改 删除和添加等功能 系统用户的信息维护 包括简单查询 修改 删除 添加和权限分配等功 能 系统信息备份 还原 二 软件环境及开发工具二 软件环境及开发工具 1 个人电脑及 Win XP Pro 2 Delphi 7 0 3 SQL Server 2000 三 需求分析三 需求分析 对该超市销售管理系统进行深入的业务流程分析后画出数据流图 由数据流图图可以看出来 每个操作员查看信息前必须先登录这个管理系 统 每个操作员的信息保存在操作员信息表中 用户登录系统后可以查看商品 进销管理信息和客户信息 也可以通过查询选择自己希望得到的信息 2 四 数据库设计四 数据库设计 1 概念设计 概念设计 根据需求分析的结果 得到的用 ER 图表示的概念设计结果如下图所示 超市销售信息管理系统 商 品 信 息 管 理 客 户 信 息 管 理 用 户 信 息 管 理 销 售 管 理 查 询 销 售 信 息 管 理 库 存 量 调 整 2 逻辑设计 逻辑设计 根据分析 整个销售系统系统需要的数据表如下 商品信息 商品编号 商品名称 规格 产地 单位 进价 批发价 零 售价等 客户信息 客户编号 客户名称 联系人 联系电话 地址 客户信箱 银行帐号等 操作员信息 操作员编号 操作员姓名 操作员密码 操作员级别等 销售信息 销售号 客户编号 客户名 商品编号 商品名称 单价 数 量 金额 销售时间等 五 系统设计五 系统设计 由于这个超市销售信息管理系统是一个比较小型的数据库系统 只需要储 添 加 新 商 品 修 改 商 品 信 息 删 除 商 品 添 加 新 客 户 修 改 客 户 信 息 删 除 客 户 添 加 新 用 户 修 改 用 户 信 息 删 除 用 户 商 品 信 息 查 询 进 货 调 整 销 售 调 整 3 存文本信息 都是小字段的问题 作为一个小型的数据库系统 数据量最多在 百至千条左右 故采用微软的 SQL Server 作为后台数据库 使用 SQL 语言进 行操作 操作员信息表 包括了操作员编号 操作员姓名 操作员密码和操作员级别 其中操作员编号是主码 商品信息表 商品编号 商品名称 规格 产地 单位 进价 批发价 零售 价等 其中商品编号是主码 4 客户信息表 包括客户编号 客户名称 联系人 联系电话 地址 客户信箱 银行帐号等 其中客户编号是主码 销售信息表 包括销售号 客户编号 客户名 商品编号 商品名称 单价 数量 金额 销售时间等 其中销售号是主码 库存信息表 包括商品编号 商品名称 库存数量 库存金额等 其中商品编 号是主码 六 系统操作说明和运行结果六 系统操作说明和运行结果 打开 Project exe 出现登陆界面 5 输入正确用户名和密码后进入系统 否则出现错误提示 系统主界面 6 商品信息管理界面 客户信息管理界面 操作员信息管理界面 7 销售查询界面 销售管理界面 8 库存量调整界面 七 程序清单七 程序清单 由于系统是图形化的信息管理系统 故使用 Delphi 实现 程序清单过于冗 长 在此仅列出其中关键部分 9 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 begin end end 10 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 11 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 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 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 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 edit7 Text and edit8 Text then begin 12 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 adoquery1 fieldbyname 进价 Value strtofloat edit6 Text adoquery1 fieldbyname 批发价 Value strtofloat edit7 Text adoquery1 fieldbyname 零售价 Value strtofloat edit8 Text adoquery1 Post showmessage the amend operation is succeed end else showmessage please fill in the blank completely end procedure Tspinfor 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 strtoint 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 TObject begin end end 3 销售管理代码 procedure TForm6 FormShow Sender TObject begin adoquery1 Close adoquery1 SQL Clear adoquery1 SQL Add select from 销售表 adoquery1 Open bitbtn2 Enabled false end 13 procedure TForm6 BitBtn1Click Sender TObject var i integer begin 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 self FormShow sender bitbtn2 Enabled true end procedure TForm6 BitBtn2Click 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 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 end else showmessage please fill in the blank completely end procedure TForm6 BitBtn3Click 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 if application MessageBox do you really want to amend the item hint mb yesno id yes then begin adoquery1 Edit adoquery1 fieldbyname 销售号 Value strtoint edit1 Text adoquery1 fieldbyname 客户编号 Value strtoint edit2 Text adoquery1 fieldbyname 客户名 Value edit3 Text 14 adoquery1 fieldbyname 商品编号 Value strtoint edit4 Text adoquery1 fieldbyname 商品名称 Value edit5 Text adoquery1 fieldbyname 单价 Value strtofloat edit6 Text adoquery1 fieldbyname 数量 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 completely 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 ParamByName 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 begin end end 4 销售查询代码 procedure TFbobox1change 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 15 while Not ADOQuery1 Eof do begin ComboBox2 Items Add ADOQuery1 Fields 0 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 adoquery1 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 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 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 begin end end 5 库存量管理代码 16 procedure TForm4 formshow Sender TObject begin radiobutton1 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 Sender TObject begin if 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 ADOQuery1 RecordCount 0 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 Tri