《企业销售管理系统delphi》由会员分享，可在线阅读，更多相关《企业销售管理系统delphi（16页珍藏版）》请在金锄头文库上搜索。
1、南京理工大学泰州科技学院实验报告作作者者:学学 号号：学学院院(系系):计算机科学与技术专专业业:信息管理与信息系统题题目目:企业销售管理系统2010 年 12 月目录一、概述 3二、需求分析 3三、 系统设计 6四、 系统实施 8五、 系统测试 13六、 收获和体会 15七、 参考文献 15一、概述1、项目背景：销售管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。 对于后台数据库的建立和维护要求建立起数据一致性和完整性强、数据安全性好的库。而对于前端应用程序的开发则要求应用程序能提供强大的数据操纵功能，界面友好、使用简单方便等特点。
2、2、编写目的：旧的手工纪录的销售管理方式已经不能适应高速发展的信息化时代， 新的销售管理系统开发出来之后，使用的现有的销售信息管理将有很大的改观，由过去的人工方式转变为计算机方式，由效率低、数据冗余、易产生错误转变为检索迅速、 查找方便、 可靠性高、 存储量大。 这些优点能够极大地提高效率,也是企业正规化管理的重要条件。3、开发环境：操作系统：Windows98/2000/NT/XP数据库：SQL Server 2000开发工具：Delphi7二、需求分析1、问题的提出：这是一个企业销售管理系统，设计者的目标是满足公司运营和日常管 理的需要，具有对产品，员工，客户管理的功能。销售员可以对销售的
3、产品进行登记，并将 销售情况反馈给数据库。 管理员可以查看员工信息以及销售情况， 管理员登陆后可以添加删 除员工， 以及销售员以外的特殊操作。 为管理的方便性和信息传递的快速性提供了一个很好 的平台。系统开发的总体任务是实现售后服务及销售登记自动化。总之，企业销售管理系统 要实现登陆验证、商品销售管理、员工信息管理、客户信息管理几大部分。 2、系统的业务功能分析： 销售管理系统是一个典型的数据库开发应用程序，有基础信息模块，销售管理模块查询 统计模块，系统设置模块 4 部分组成，规划系统功能模块如下： 基础信息模块 该模块主要用于管理添加、删除、修改商品信息、客户信息、用户信息。 销售管理模块
4、 该模块主要用于管理添加销售信息和添加销售退货信息。 查询统计模块 该模块主要用于产品信息查询，销售退货信息查询，和产品销售排行。 系统设置模块 该模块主要用于管理修改密码，关于和退出登录。3、E-R 图： 根据以上各节对系统所做的需求分析和系统分析，规划处了本系统的数据库尸体。下面 介绍几个关键实体的 E-R 图：2-12-1 总体总体 E-RE-R 图图图图 2.22.2 销售信息管理系统详细销售信息管理系统详细 E-RE-R 图图4、数据流图：数据流图三、系统设计1、数据表：表的物理设计： 建立T_Customer 表(客户信息表)， T_Product 表(产品信息表)， T_User
5、表(用 户信息表)，T_Sell 表(销售信息表)，T_Sell 表(退货信息表)。 T_Customer 表(客户信息表) 字段名数据类型长度主键否为空否 客户编号Int4是否 客户名称Varchar20否否 客户级别Varchar10否 联系电话Varchar15否否 地址Varchar50否 EmailDatetime20否 FaxVarchar15否 加入日期Datetime4否表 1 T_Product 表(产品信息表) 字段名数据类型长度主键否为空否 产品编号Int4是否 产品名称Varchar20否否 供应商Varchar20否否 产地Varchar20否 生产日期Datetim
6、e4否 库存Int4否 成本Money8否入库时间Datetime4否否 表 2 T_User 表(用户信息表) 字段名数据类型长度主键否为空否 User_idVarchar10是否 nameVarchar20否否 passwordVarchar10否否 typeVarchar15否否 addtimeDatetime4否否 表 3 T_Sell 表(销售信息表) 字段名数据类型长度主键否为空否 销售单据号Int4是否 客户编号Int4否否 产品编号Int4否否 数量Int4否否 售价Money8否否 销售人员Varchar20否否 成交日期Datetime4否否 表 4 T_Sell 表(退货
7、信息表) 字段名数据类型长度主键否为空否 退货单据号Int4是否 客户编号Int4否否 产品编号Int4否否 数量Int4否否 售价Money8否否 销售人员Varchar20否否 退货日期Datetime4否否 表 5 2、软件功能设计 (1)、系统的结构图总体结构图 (2)、功能描述： 基础信息模块 该模块主要用于管理添加、删除、修改商品信息、客户信息、用户信息。 销售管理模块 该模块主要用于管理添加销售信息和添加销售退货信息。 查询统计模块 该模块主要用于产品信息查询，销售退货信息查询，和产品销售排行。 系统设置模块 该模块主要用于管理修改密码，关于和退出登录。四、系统实施系统的界面设计
8、： （1 1）登陆界面：）登陆界面：登陆代码： procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text= then begin MessageDlg(请输入用户名！,mtInformation,mbYes,0); exit; end; if edit2.Text= then begin MessageDlg(请输入密码！,mtInformation,mbYes,0); exit; end; if RadioButton2.Checked then with ADOQuery1 do begin Close; SQL
9、.Clear; SQL.Add(select * from T_user where (user_id= :a)and(password= :b); Parameters.ParamByName(a).Value := Trim(Edit1.Text); Parameters.ParamByName(b).Value := Trim(Edit2.Text); Open; end else with ADOQuery1 do begin Close; SQL.Clear; SQL.Add(select * from T_user where (user_id= :a)and(password=:
10、b)and(type=:c); Parameters.ParamByName(a).Value := Trim(Edit1.Text); Parameters.ParamByName(b).Value := Trim(Edit2.Text); Parameters.ParamByName(c).Value := Trim(RadioButton1.Caption); Open; end; if ADOQuery1.RecordCount 0 thenbegin showMessage(登陆成功！) ; form1.hide; form2.show; end else begin Applica
11、tion.MessageBox(用户名或密码有误，请重新尝试！,提示,MB_OK+MB_ICONWARNING); end end;（2）主界面：）主界面：（3）客户信息管理：）客户信息管理：添加代码： begin if edit1.Text= then begin MessageDlg(请输入客户编号！,mtInformation,mbYes,0); exit; end; with ADOQuery1 do begin Close; SQL.Clear; SQL.Add(select * from T_Customer where 客户编号= :a); Parameters.ParamByN
12、ame(a).Value := Trim(Edit1.Text); Open; end; if ADOQuery1.RecordCount 0 then begin Application.MessageBox(该编号已存在，请重新尝试！,提示,MB_OK+MB_ICONWARNING); end else with ADOQuery1 do begin close; sql.Clear; sql.Add(insert into T_Customer (客户编号,客户名称,客户级别,地址,联系电 话,Fax,Email,加入日期);sql.Add(values(+edit1.Text+,+ed
13、it2.Text+,+edit3.Text+,+edit4.Text+, +edit5.Text+,+edit6.Text+,+edit7.Text+,+FormatDateTime(yyyy-mm-dd,Dat eTimePicker1.Date)+); execsql;ADODataSet1.Active:=False; ADODataSet1.Active:=True; showMessage(添加成功!); end end;删除代码： begin if edit1.Text= then begin MessageDlg(请输入客户编号！,mtInformation,mbYes,0);
14、exit; end; with ADOQuery1 do begin Close; SQL.Clear; SQL.Add(delete T_Customer where 客户编号 = :a); Parameters.ParamByName(a).Value := Trim(Edit1.Text); ExecSQL; showMessage(删除成功!); ADODataSet1.Active:=false; ADODataSet1.Active:=true; end end; （5 5）销售、退货查询：）销售、退货查询：查询代码： begin Datasource2.DataSet:=ADOQuery1; withADOQuery1 do begin close; s
