小型企业信息管理系统

《信息系统开发与实践》课程结课实践作业

项目名称：小型企业信息管理系统

完成人：

二零一二年十一月九日

一、需求分析

企业信息管理系统是根据企业日常办公的需要来设计开发的案例，目标是提高企业管理的工作效率，具有对用户信息、客户信息、产品信息、合同信息、销售信息和统计信息进行管理和维护的功能。系统主要包括系统管理员对功能的需求、销售部工作人员对功能的需求、客户部工作人员对功能的需求以及合同部工作人员对功能的需求。这4种需求的功能如下。

1. 系统管理员对功能的需求

●用户信息管理：管理系统中所有登录用户的信息，分配用户的部门级别；

●客户信息管理：可浏览、添加、维护客户的信息；

●产品信息管理：可浏览、添加、维护企业产品的信息；

●合同信息管理：可浏览、添加、维护合同的信息；

●销售信息管理；可浏览、添加、维护产品销售的信息；

●销售信息的统计：可统计产品的销售情况。

2. 销售部工作人员对功能的需求

●浏览、添加、维护企业的产品信息；

●浏览、添加、维护产品的销售信息；

●浏览、添加、维护合同信息；

●统计产品的销售信息。

3. 客户部工作人员对功能的需求

●浏览、维护客户信息；添加新客户信息；

●对公司销售情况进行统计。

4. 合同部工作人员对功能的需求

●浏览合同信息、添加新合同、维护合同信息；

●浏览客户信息、添加新客户、维护客户信息；

●统计产品的销售情况。

二、系统功能模块

(1) 用户登录：用户登录系统，并划分用户的部门权限。

(2) 用户信息管理：查看用户的信息、增加、修改、删除用户信息。

(3) 客户信息管理：查看客户的信息、增加、修改、删除客户信息。

(4) 产品信息管理：查看产品的信息、增加、修改、删除产品信息。

(5) 合同信息管理：查看合同的信息、增加、修改、删除合同信息。

(6) 产品销售信息管理：查看产品销售的信息、增加、修改、删除产品销售信息。

(7) 产品销售统计：统计产品的销售信息。

整个系统的功能模块划分结构图，如图下图所示。

三、概念模型设计

1.用户E-R实体图

用户的实体具有用户ID、密码、姓名、部门、电话、E-mail 6个属性，ER图如下。

2.客户E-R实体图

客户的实体具有编号、姓名、负责人、电话、E-mail、级别、地址7个属性，E-R 图如下。

3.产品E-R实体图

5个属性，E-R图如下。

产品的实体具有编号、名称、规格、价格、描述

.4.合同E-R实体图

合同的实体具有合同编号、客户编号、签署日期、执行日期、完成日期、执行状况、负责人、合同金额8个属性，E-R图如下

5.销售E-R实体图

销售的实体具有合同编号、产品编号、订单数、发货数量、单价5个属性，如下

四、逻辑模型设计

由E-R图转化的关系模型为：

客户（编号，姓名，负责人，电话，E-mail，级别，地址）

合同(合同编号，客户编号，签署日期，执行日期，完成日期，执行状况，负责人，合同金额)

属性类型主键否

合同编号文本主键

客户编号文本

签署日期文本

执行日期文本

完成日期文本

执行状况文本

负责人文本

合同金额文本

销售（合同编号，产品编号，订单数，发货数量，单价）

属性类型主键否

合同编号文本主键

产品编号文本主键

订单数文本

发货数量文本

单价文本

五、物理设计与实施

1.用户登录窗口

2，登录成功与失败提示

3.登录成功后进入系统主窗口

4.用户修改模块

5.用户查询模块

6.产品查询模块

7.代码设计

（1）登录界面核心代码

procedure TForm1.Button1Click(Sender: TObject);

begin

if (edit1.Text='') or (edit2.Text='') then showmessage('姓名或密码为空'); if ADOTable1.Locate('姓名;密码',VarArrayOf([edit1.Text,edit2.Text]),[]) then

begin

form1.Visible:=false;

messagedlg('登陆成功',mtinformation,[mbOK],0);

form2.Show;

end

else messagedlg('登陆失败',mtinformation,[mbOK],0);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form1.Close;

end;

(2)系统主窗口部分代码

procedure TForm2.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels[0].Text := '当前用户: '+form1.edit1.text;

StatusBar1.Panels[1].Text := '当前日期: '+ Formatdatetime('YYYY年MM月DD 日',Now());

StatusBar1.Panels[2].Text := '当前时间: '+ Formatdatetime('HH:MM:SS',Now());

end;

（3）用户信息查询核心代码

procedure TForm4.Button1Click(Sender: TObject);

begin

adodataset1.Close;

case radiogroup1.ItemIndex of

0:begin

mandText:='select * from 用户表where 编号=:p1' ;

adodataset1.Parameters.ParamValues['p1']:=edit1.Text;

end;

1:begin

mandText:='select * from 用户表where 姓名=:p2' ;

adodataset1.Parameters.ParamValues['p2']:=edit1.Text;

end;

2:begin

mandText:='select * from 用户表where 部门=:p3' ;