小型企业信息管理系统.docx
《小型企业信息管理系统.docx》由会员分享，可在线阅读，更多相关《小型企业信息管理系统.docx（10页珍藏版）》请在冰豆网上搜索。
小型企业信息管理系统
《信息系统开发与实践》
课程结课实践作业
项目名称：
小型企业信息管理系统
完成人：
二零一二年H^一月九日
—、需求分析
企业信息管理系统是根据企业日常办公的需要来设计开发的案例，LI标是提高企业管理的工作效率，具有对用户信息、客户信息、产品信息、合同信息、销售信息和统计信息进行管理和维护的功能。
系统主要包括系统管理员对功能的需求.销售部工作人员对功能的需求、客户部工作人员对功能的需求以及合同部工作人员对功能的需求。
这4种需求的功能如下。
1.系统管理员对功能的需求
•用户信息管理•客户信息管理•产品信息管理•合同信息管理•销售信息管理
管理系统中所有登录用户的信息，分配用户的部门级别;可浏览、添加、维护客户的信息；
可浏览、添加、维护企业产品的信息；
可浏览、添加、维护合同的信息；
可浏览、添加、维护产品销售的信息；•销售信息的统讣：
可统讣产品的销售情况。
2.销售部工作人员对功能的需求
•浏览、添加、维护企业的产品信息;
•浏览、添加、维护产品的销售信息;
•浏览、添加、维护合同信息；
•统讣产品的销售信息。
3•客户部工作人员对功能的需求
•浏览、维护客户信息；添加新客户信息;
•对公司销售情况进行统计。
4.合同部工作人员对功能的需求
•浏览合同信息、添加新合同、维护合同信息;•浏览客户信息、添加新客户、维护客户信息;
•统计产品的销售情况。
二、系统功能模块
（1）用户登录：
用户登录系统，并划分用户的部门权限。
（2）用户信息管理：
查看用户的信息、增加、修改、删除用户信息。
（3）客户信息管理：
查看客户的信息、增加、修改、删除客户信息。
（4）产品信息管理：
查看产品的信息、增加、修改、删除产品信息。
（5）合同信息管理：
查看合同的信息、增加、修改、删除合同信息。
（6）产品销售信息管理：
查看产品销售的信息、增加、修改、删除产品销售信息。
（7）产品销售统计：
统计产品的销售信息。
整个系统的功能模块划分结构图，如图下图所示。
三、概念模型设计
1•用户E・R实体图
用户的实体具有用户ID、密码、姓名、部门、电话、E-mail6个属性，ER图如下。
客户的实体具有编号、姓名、负责人、电话.&mail、级别、地址7个属性，E-R图如下。
3•产品E・R实体图
产品的实体具有编号、名称、规格、价格.描述5个属性，E・R图如下。
合同的实体具有合同编号、客户编号、签署日期、执行日期、完成日期、执行状况、负责人、合同金额8个属性，E・R图如下
〔合同编号）〔客户编号）〔签署日期］
5•销售E・R实体图
销售的实体具有合同编号、产品编号、订单数、发货数量、单价5个属性，如下
四、逻辑模型设计
由E-R图转化的关系模型为：
用户户（用户ID,密码，姓名，部门，电话，E-mail）
属性
类型
主键否
用户ID
文本
主键
密码
文本
姓名
文本
部门
文本
电话
文本
E-mail
文本
客户（编号，姓名，负责人，电话，E-mail,级别，地址）
属性
类型
主键否
编号
文本
主键
姓名
文本
负责人
文本
电话
文本
E-mail
文本
级别
文本
地址
文本
产品（编号，名称，规格，价格，描述）
属性
类型
主键否
编号
文本
主键
名称
文本
规格
文本
价格
文本
描述
艾木
合同（合同编号，客户编号，签署日期，执行日期，完成日期，执行状况，负责
人，合同金额）
属性
类型
主键否
合同编号
文本
主键
客户编号
文本
签署日期
文本
执行日期
文本
完成日期
文本
执行状况
文本
负责人
文本
合同金额
艾木
销售（合同编号，产品编号，订单数，发货数量，单价）
属性
类型
主键否
合同编号
文本
主键
产品编号
文本
主键
订单数
文本
发货数量
文本
单价
/木
五、物理设计与实施
1•用户登录窗口
2,登录成功与失败提示
3•登录成功后进入系统主窗口
4•用户修改模块
5•用户查询模块
6•产品查询模块
7•代码设计
（1）登录界面核心代码
procedureTForm1.Button1Click（Sender:
TObject）;
begin
if（editl.Text=M）or（edit2.Text=M）thenshowmessage（,姓名或密码为空?
;ifADOTablel.Locate（'姓名;密码\VarArrayOf（[edit1.Text,edit2.Iext]）,[]）then
begin
form1.Visible:
二false;
messagedlg（'登陆成功\mtinformationjmbOK],0）;
form2.Show;
end
elsemessagedlg（,登陆失败1,mtinformation,[mbOK],0）;
end;
procedureTForml.Button2Click（Sender:
TObject）;
begin
form1.Close;
end;
（2）系统主窗口部分代码
procedureTForm2.TimerlTimer（Sender:
TObject）;
begin
StatusBarl.Panels[O].Text:
=1当前用户:
^form1.edit1.text;
StatusBar1.Panels!
1].Text：
='当前日期:
'+FormatdatetimeCYYYY年MM月DD日;Now（））;
StatusBarI.PaneIs[2].Text:
=°当前时间：
'+Formatdatetime（/HH:
MM:
SS\Now（））;
end;
（3）用户信息查询核心代码
procedureTForm4.Button1Click（Sender:
TObject）;
begin
adodatasetl.Close;
caseradiogroup1.Itemindexof
0:
begin
adodatasetl.CommandText:
=select*from用户表where编号二:
pl';
adodataset1.Parameters.ParamValues!
^r]:
=edit1・Text;
end;
l:
begin
adodatasetl.CommandText:
=select*from用户表where姓名=:
p2*;
adodataset1.Parameters.ParamVakiesI^Z*]:
=edit1.Text;
end;
2:
begin
adodatasetl.CommandText:
='select*from用户表where部门二:
p3‘；
adodatasetl.Parameters.ParamValuesI^SJ^editl.Text;
end;
adodatasetl.Open;
end;
备注：
登陆用户名:
登陆密码：
123
123
升级会员 