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

课程设计 2008年 9月一．设计要求 1．信息要求 本系统应该包含管理相关的信息，等。应该包括的基本信息（如、）的基本信息（如）。 2．功能要求 本系统的基本功能要求如下： 信息维护（包括简单查询）； 信息维护（包括简单查询）；信息维护（包括简单查询）；包括简单查询信息、； 二．软件环境及开发工具 1．个人电脑Win XP Pro 2．． 三．需求分析 对该进行深入的业务流程分析后画出数据流图由图可以看出来，每个前必须先登录这个系统，每个的信息保存在信息表中。用户登录系统后可以查看，也可以通过查询选择自己希望。 四．数据库设计 1．概念设计 根据需求分析的结果，得到的用ER图表示的概念设计结果如下图所示 2．逻辑设计 根据分析，整个销售系统系统需要的数据表如下： 、五．系统设计由于这个系统是一个比较小型的数据库系统，只需要储存文本信息，都是小段的问题，作为一个小型的数据库系统，数据量最多在条左右，故采用微软的作为后台数据库，使用SQL语言进行操作。 操作员信息表，包括了操作员编号、操作员姓名、操作员密码和操作员级别，其中操作员编号是主码： 商品信息表，商品编号、 客户信息表，包括客户编号、客户名称、联系人、联系电话、地址、客户信箱、银行帐号等。其中客户编号是主码： 销售信息表，包括销售号、客户编号、客户名、商品编号、商品名称、单价、数量、金额、销售时间等，其中销售号是主码： 库存信息表，包括商品编号、商品名称、库存数量、库存金额等，其中商品编号是主码： 六．系统操作说明和运行结果 客户信息管理界面： 操作员信息管理界面： 销售查询界面： 销售管理界面： 库存量调整界面： 七．程序清单由于系统是系统，故使用实现。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.RecordCount0 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. 2. 商品信息管理代码： var spinfor: Tspinfor; implementation {$R *.dfm} procedure tspinfor.editvalue; begin edit1.Text:=inttostr(adoquery1.fieldbyname(商品编号).Value); edit2.Text:=adoquery1.fieldbyname(商品名