《毕业设计（论文）-Delphi程序电脑公司管理系统设计.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）-Delphi程序电脑公司管理系统设计.doc（40页珍藏版）》请在三一文库上搜索。
1、重庆大学计算机学院计算机及应用毕业设计重庆XX电脑公司管理系统设计人员：刘巍：DELPHI7.0设计曾黎：UML设计李铃：SQL数据库表设计 目录一、 前言一、 课题名称二、 开发背景三、 使用的主技术及技术现状二、 需求分析三、 电脑公司信息管理系统DFD图四、 UML建模过程一、 业务用例模型二、 业务用例图五、 数据库设计六、 源程序七、 总结八、 参考文献 一、 前言：一、课题名称：电脑公司信息管理系统二、开发背景： 随着个人计算机的普及，电脑行业的迅速发展，使得电脑销售行业的竟争越来越激烈。怎样才能在激烈的竟争中提高公司运行效率，保持竟争优势？伴随着计算机技术在各行各业日益广泛和深入
2、的应用，会计电算化的概念也早已经不仅仅限于甩帐，即使用一套财务软件代替原来的手工记帐，在对于系统进行了适当的置后，一旦登入凭证资料，执行审核和记帐的功能后，将自动产生需要的各种总明细帐。计算机产业硬件和软件的更新和升级及管理工作在经济领域地位的日益提高，是两个不断前进着的车轮，在各自发展的进程中，又彼此促进和推动着，将会计电算化推向一个新的高度。回顾五年之内财务软件在国内运用情况，我们可以得出这样的结论：95年是实行手工记帐向计算机记帐的转变的一年，主要解决的问题是甩帐；96年中大多数企业使用网络版WINDOWS操作平台下的财务软件取代单用户版DOS支持的财务软件，使一套软件可以同时被多个用户
3、使用，并提高了系统运行的速度和稳定性；97年后，人们强调的是财务软件的管理功能，除了帐务系统之外，企业的生产、经营的业务活动也必需纳入计算机系统的全局管理，建立包括财务、生产、采购、销售、仓储等在内的子系统，各个系统之间共享数据，实现无缝连接，对于企业整体生产经营运作实现整体管理的要求被提上议事日程；98年国内南北两大财务软件公司，北京用友和深圳金蝶分别推出了自己的决策支持型管理软件ERP 和 K3 ，标志着国内企业会计电算化水平更进一步的提高。因此必须使用先进的管理方式对公司进行管理，而先进的管理方式在很大程度上依赖于信息管理系统的使用。本系统包括电脑配件的进销存管理、客户关系管理、产品售后
4、服务管理、公司人事管理四大部分。本系统实施后可使公司节省更多的人力、物力、财力，使公司经营运作物流更清晰、经营状况更详细准确，使公司的经营管理体系更加科学化、规范化、合理化。三、使用的主要技术及技术现状：本系统采用SQL2000做为后台数据库系统，使用DELPHI7.0设计前台应用程序，使用UML作为分析画图软件。SQL2000存在以下明显优点：SQL是在1974年由Boyce和Chamberlin提出，并在IBM公司研制关系数据库管理系统原型SYSTEM R 上实现的。它的前身是1972年提出的SQUARE（Specifying Queries AsRelational Expression
5、)语言，1974年修改为SEQUEL（Structured English Query Language），简称SQL。经各公司的不断修改、扩充和完善，SQL已得到解决业界的认可。1986年10月，美国国家标准局（American National Standard Institute,ANSI）的数据库委员X3H2批准了SQL作为关系数据库语言美国标准。同年，公布了SQL标准文本（简称SQL-86）。1987年，国际标准化组织（International Organization for Standardization,ISO）也通过了这一标准。目前，各个数据库厂商都有各自的SQL软件或与S
6、QL的接口软件，并开发了各种图形界面的输入输出软件，报表生成器，软件开发工具等，大大方便了应用程序的开发，并且使得开发出的应用程序的界面更丰富，更方便用户的使用。 l SQL的组成：数据定义(Data Definition)，数据操纵(Data Manipulation)，数据控制(Data control)，嵌入式SQL(Embeded SQL)l SQL的特点：综合统一、高度非过程化、面向集合的操作方式、以同一种语法结构提供两种使用方式、语言简捷、易学易用。l 存取速度：在服务器级的数据库中，效率还算相当不错。即使是单一表格数据记录数在10万条时，仍有相当不划的表现，但在单机使用时，数据不
7、多时，速度可能会比小型数据库慢。l 容易使用：简易的用户接口，不需要背命令也能轻松操作，非常适合初中级人员使用。l 支持SQL语言：现在的数据库系统都使用这种语言，可以合程序开发上节省更多的时间。l 性能：Microsoft SQL Server7.0后的版本可以在Windows98或Window NT等系统上运行，效率很高，也可以和多种数据库格式沟通，而且自动备份等功能也相当完善。l 网络联机：可利用ODBC作为联机工具，也可利用Internet作为联机方式，使用上更具灵活性。l 网络安全：每个数据库和表都可以设置权限。在使用上相当好的防护措施。Delphi是Borland公司推出的一个激动
8、人心的Windows应用程序开发工具。它以易用、功能强大和稳定可靠的特性以及拥有Object Pascal语言语法严谨、执行效率高的特有优点而深受广大开发人员的表睐，是Windows平台下最好的开发工具之一。尤其在数据库开发、分布计算和Web应用程序开发等方面，Delphi更是体现出了它相对于其他开发工具在开发周期和执行效率上的明显优势。Delphi7可以轻松的实现跨平台，Delphi7的模型驱动结构和UML可视化设计的新特性使开发企业应用程序变得更加快捷方便，Delphi7的RAD可视化服务器端Web应用程序开发技术使构造动态Web应用程序变得轻而易举。总之，Delphi7相对于早期版本有很
9、大的改进，具体表现在：l 增加了IntraWeb组件，从而向程序员提供了更加高效的Web应用程序开发方式；l 增加了Rave报表组件，在报表方面相对原有的QuickReport系统组件有很相当大的提高；l WebSnap技术更加完善；l 增强的DataSnap技术，不但支持状态无关的远程数据模块，而且提供了新的InternetExpress组件，使得开发基于Web的多层数据库应用大为简便；l 增强的Web Servic技术；l 加强了对COM/COM+/.NET的支持；l 新增了一些有时代特色的VCL组件，现在Delphi支持XP风格的界面开发；l IDE、编译器、调试工具上都有了很大的改进和
10、加强。UML的简介：UML的产生：二、需求分析：l 公司人事管理 本部分的功能包括对公司人员的基本数据进行管理，在人员发生变化（转正、调动、职务变动等）的情况下，能够对其数据进行修改，能对人员工资、奖金进行管理。公司领导有权对其人事、薪资信息进行分级查询。l 进销存管理本部分功能包括对货品的进货、销售、库存进行管理。能够实现原始数据的录入、处理、存储和输出，完成订货管理、销售管理、仓库管理和统计分析的功能。l 客户关系管理本部分功能包括对客户所购产品信息进行管理、统计，分析；对客户回访信息进行管理。l 产品售后服务管理对用户报修情况、产品退换货情况、产品修复情况及产品报损情况进行管理。实现原始
11、数据的录入、修改、存储和统计功能。三、电脑公司信息管理系统DFD图电脑公司信息管理系统顶层图是和五个实体（顾客、报销顾客、维修人员、经理、商家）关联。顾客向该系统提交一个购货单，系统回返回一个购货发票；报销客户提供报销信息给系统由系统处理；维修人员，从系统中取得客户维修信息单进行处理，处理后返回维修物件单给系统；经理，随时可以查询系统所有信息；商家把到货单提交给系统。电脑公司信息管理系统0层图： 当商家把货送到后，将送货单写入到货处理模块，到货处理模块向到货数据表|库存数据表写入相关数据以便查询。当顾客将购货单写入销售系统模块，销售系统模块向库存数据表、销售数据表、客户信息表里写入数据。当顾客
12、将报修信息写入维修处理模块后，维修处理模块向客户信息表、报修信息表写入数据，并打印客户维修信息单。维修人员接维修信息单后，将维修物件单通过维修处理模块写入维修物件表里。经理可以通过查询处理模块对到货数据表、库存数据表、销售数据表，客户信息表、报修信息表进行查询。电脑公司管理系统销售子系统流程图：将顾客填写的购货单输入客户类别判断模块，写入客户信息表中，一：单位客户，选择支负的方式，a：挂账，通过挂账处理模块将挂账购货单写入单位挂账表中，用单位客户购货单来更新库存各销售数据表。B：现金支付方式，直接用单位客户购货单更新库存销售数据表。二：个体客户：a：一般客户，用一般客户购货单更新库存销售数据表
13、。b：购机客户，将购机单通过刚强机处理模块将客户信息写入客户信息表中，并同时写计算机配置信息到用户计算机配置登记表中，同时用购机客户购货单来更新库存销售数据表。以上各部分都通过更新库存销售数据模块获得一个购货单，用这个单子来打印用户购货收据并交给顾客。四、UML建模过程：一：业务用例模型：二：业务用例图： 主要有销售管理、查询处理、到货处理、维修修理四个用例。查询处理模块： 当经理发送一个查询请求时，能过查询处理模块返回查询后的信息销售管理： 销售人员通过处理销售模块和顾客交易。到货处理： 当商家把货物送到时将送货单写入到货处理模块。维修处理： 维修处理模块把客户维修信息单送到维修人员，维修人
14、员接到后到维修处理模块得到维修物件单。业务角色：顾客，派生出商家和保修客户员工，派生出维修人员、销售员各经理。五、数据库设计一、部门信息表：CREATE TABLE dbo.department (ID int NOT NULL ,department varchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON PRIMARYGO二、员工信息表CREATE TABLE dbo.employee (id int NOT NULL ,name varchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,sex ch
15、ar (10) COLLATE Chinese_PRC_CI_AS NULL ,age char (10) COLLATE Chinese_PRC_CI_AS NULL ,birthday datetime NULL ,address varchar (50) COLLATE Chinese_PRC_CI_AS NULL ,phone1 varchar (50) COLLATE Chinese_PRC_CI_AS NULL ,phone2 varchar (50) COLLATE Chinese_PRC_CI_AS NULL ,department varchar (50) COLLATE C
16、hinese_PRC_CI_AS NULL ,education varchar (50) COLLATE Chinese_PRC_CI_AS NULL ,pydate datetime NULL ,xfznum char (18) COLLATE Chinese_PRC_CI_AS NOT NULL ,remark varchar (255) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO三、厂家信息表CREATE TABLE pany (ID int NOT NULL ,厂家名称 varchar (50) COLLATE Chinese_PRC_
17、CI_AS NOT NULL ,联系人 char (10) COLLATE Chinese_PRC_CI_AS NULL ,联系电话1 char (10) COLLATE Chinese_PRC_CI_AS NULL ,联系电话2 char (10) COLLATE Chinese_PRC_CI_AS NULL ,传真电话 char (10) COLLATE Chinese_PRC_CI_AS NULL ,法人代表 char (10) COLLATE Chinese_PRC_CI_AS NULL ,公司地址 varchar (50) COLLATE Chinese_PRC_CI_AS NULL
18、 ,邮编 char (10) COLLATE Chinese_PRC_CI_AS NULL ,代理产品 varchar (50) COLLATE Chinese_PRC_CI_AS NULL ,银行开户行名称 char (10) COLLATE Chinese_PRC_CI_AS NULL ,银行开户行帐号 varchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO四、销售信息表CREATE TABLE dbo.saledetail (id uniqueidentifier NOT NULL ,销售单号 int NOT NULL ,商品
19、编号 char (10) COLLATE Chinese_PRC_CI_AS NULL ,商品名称 varchar (50) COLLATE Chinese_PRC_CI_AS NULL ,商品数量 int NULL ,单位 char (10) COLLATE Chinese_PRC_CI_AS NULL ,商品价格 money NULL ,合计金额 money NULL ) ON PRIMARYGO五、产品信息表CREATE TABLE dbo.product (ID int NOT NULL ,产品名称 varchar (50) COLLATE Chinese_PRC_CI_AS NOT
20、NULL ,产品编号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,型号 char (10) COLLATE Chinese_PRC_CI_AS NULL ,价格 money NULL ,单位 char (10) COLLATE Chinese_PRC_CI_AS NULL ,供货商家 varchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO六、销售数量表CREATE TABLE dbo.salemaster (id uniqueidentifier NOT NULL ,销售单号 int
21、NOT NULL ,销售日期 datetime NULL ,总件数 int NULL ,总金额 money NULL ,经手人 varchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO七、员工编号性别CREATE TABLE dbo.sex (id int NOT NULL ,sex char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO六、源程序：系统主界面：使用Actionmanager控件对整个系统的菜单和工具栏按钮进行管理，以下为actionmanager控件的部分源代码
22、：procedure Tfrm_main.ygxxExecute(Sender: TObject);begin try frm_ygxx:=tfrm_ygxx.Create(self); frm_ygxx.ShowModal; finally frm_ygxx.Free; end;end;procedure Tfrm_main.FormCreate(Sender: TObject); /生成数据模块begin frm_dmm:=tfrm_dmm.Create(self);end;procedure Tfrmmain.FormCloseQuery(Sender: TObject; var Can
23、Close:：Boolean);/关闭数据模块begin frm_dmm.Destroy;end;procedure Tfrm_main.bmcsExecute(Sender: TObject);begin try frm_bmcs:=tfrm_bmcs.Create(self); frm_bmcs.ShowModal; finally frm_bmcs.Free; end;end;procedure Tfrm_main.gsxxExecute(Sender: TObject);begin try frm_gsxx:=tfrm_gsxx.Create(self); frm_gsxx.ShowM
24、odal; finally frm_gsxx.Free; end;end;procedure Tfrm_main.spxxExecute(Sender: TObject);begin try frm_spxx := tfrm_spxx.Create(self); frm_spxx.ShowModal; finally frm_spxx.Free; end;end;procedure Tfrm_main.sxkdExecute(Sender: TObject);begin try frm_xskd:=tfrm_xskd.Create(self); frm_xskd.ShowModal; fina
25、lly frm_xskd.Free; end;end;员工信息维护窗体：在些窗体中能对员工信息进行增，删，改、查询操作。此窗体源代码如下：procedure Tfrm_ygxx.btn_findClick(Sender: TObject); /查询按钮代码var strname:string; sucess:bool;begin if trim(edit_name.text) then begin strname:=trim(edit_name.Text); sucess:=adt_empy.Locate(name,strname,locaseinsensitive,lopartialkey)
26、; if not sucess then begin showmessage(没有查找到你需要查询的员工资料!); edit_name.SetFocus; end; end else begin showmessage(请输入查询的员工姓名); edit_name.SetFocus; end; end;procedure Tfrm_ygxx.btn_appdClick(Sender: TObject); /增加按钮代码var maxnum:integer;begin dbe_name.Enabled:=true; dblucbb_sex.Enabled:=true; dtpick_birthd
27、ay.Enabled:=true; dtpick_pydate.Enabled:=true; dblcbb_dept.Enabled:=true; dbe_age.Enabled:=true; dbe_education.Enabled:=true; dbe_sfzhm.Enabled:=true; dbe_phone1.Enabled:=true; dbe_phone2.Enabled:=true; dbe_address.Enabled:=true; dbe_remark.Enabled:=true; dbe_birthday.Visible:=false; dbe_pydate.Visi
28、ble:=false; dtpick_birthday.Visible:=true; dtpick_pydate.Visible:=true; dbe_id.Enabled:=false; btn_appd.Enabled:=false; btn_del.Enabled:=false; btn_modi.Enabled:=false; btn_save.Enabled:=true; btn_canl.Enabled:=true; btn_close.Enabled:=true; dbe_name.SetFocus; maxnum:=1; if adt_empy.RecordCount 0 th
29、en begin adt_empy.Last; maxnum:=adt_empy.fieldbyname(id).AsInteger + maxnum; adt_empy.Append; adt_empy.FieldByName(id).AsInteger:=maxnum; end else begin adt_empy.Append; adt_empy.FieldByName(id).AsInteger:=maxnum; end; dtpick_birthday.Date:=now(); dtpick_pydate.Date:=now();end;procedure Tfrm_ygxx.bt
30、n_delClick(Sender: TObject); 删除按钮代码begin dbe_birthday.Visible:=true; dbe_pydate.Visible:=true; dtpick_birthday.Visible:=false; dtpick_pydate.Visible:=false; dbe_id.Enabled:=false; btn_appd.Enabled:=true; btn_del.Enabled:=true; btn_modi.Enabled:=true; btn_save.Enabled:=false; btn_canl.Enabled:=false;
31、 btn_close.Enabled:=true; if idyes = application.MessageBox(请的要删除数据吗？,员工信息管理,mb_yesno) then begin if adt_empy.RecordCount 0 then begin adt_empy.Delete; adt_empy.Refresh; end else showmessage(没有数据，不能删除); end;end;procedure Tfrm_ygxx.btn_saveClick(Sender: TObject); 保存按钮代码begin if (trim(dbe_name.Text) )
32、 and (trim(dbe_sfzhm.Text) ) then begin if adt_empy.State in dsedit,dsinsert then begin adt_empy.FieldByName(birthday).asdatetime:=dtpick_birthday.Date; adt_empy.FieldByName(pydate).AsDateTime:=dtpick_pydate.Date; adt_empy.Post; adt_empy.Refresh; dbe_name.Enabled:=false; dblucbb_sex.Enabled:=false;
33、dtpick_birthday.Enabled:=false; dtpick_pydate.Enabled:=false; dbe_birthday.Enabled:=false; dblcbb_dept.Enabled:=false; dbe_age.Enabled:=false; dbe_education.Enabled:=false; dbe_sfzhm.Enabled:=false; dbe_phone1.Enabled:=false; dbe_phone2.Enabled:=false; dbe_address.Enabled:=false; dbe_pydate.Enabled:
34、=false; dbe_remark.Enabled:=false; dbe_birthday.Visible:=true; dbe_pydate.Visible:=true; dtpick_birthday.Visible:=false; dtpick_pydate.Visible:=false; dbe_id.Enabled:=false; btn_appd.Enabled:=true; btn_del.Enabled:=true; btn_modi.Enabled:=true; btn_save.Enabled:=false; btn_canl.Enabled:=false; btn_c
35、lose.Enabled:=true; btn_appd.SetFocus; end; end else begin showmessage(员工姓名或身份证号码中没有输入数据，请重新输入); dbe_birthday.Visible:=false; dbe_pydate.Visible:=false; dtpick_birthday.Visible:=true; dtpick_pydate.Visible:=true; end;end;procedure Tfrm_ygxx.btn_canlClick(Sender: TObject); / 取消按钮代码begin if ds_empy.St
36、ate in dsinsert,dsedit then if idyes = application.MessageBox(你所做的操作没有保存，真的要取消吗？,员工信息维护,mb_yesno) then begin dbe_birthday.Visible:=true; dbe_pydate.Visible:=true; dtpick_birthday.Visible:=false; dtpick_pydate.Visible:=false; dbe_id.Enabled:=false; btn_appd.Enabled:=true; btn_del.Enabled:=true; btn_m
37、odi.Enabled:=true; btn_save.Enabled:=false; btn_canl.Enabled:=false; btn_close.Enabled:=true; adt_empy.Cancel; adt_empy.Refresh; dbe_name.Enabled:=false; dblucbb_sex.Enabled:=false; dtpick_birthday.Enabled:=false; dtpick_pydate.Enabled:=false; dbe_birthday.Enabled:=false; dblcbb_dept.Enabled:=false;
38、 dbe_age.Enabled:=false; dbe_education.Enabled:=false; dbe_sfzhm.Enabled:=false; dbe_phone1.Enabled:=false; dbe_phone2.Enabled:=false; dbe_address.Enabled:=false; dbe_pydate.Enabled:=false; dbe_remark.Enabled:=false; end else begin dbe_name.Enabled:=true; dblucbb_sex.Enabled:=true; dtpick_birthday.E
39、nabled:=true; dtpick_pydate.Enabled:=true; dbe_birthday.Enabled:=false; dblcbb_dept.Enabled:=true; dbe_age.Enabled:=true; dbe_education.Enabled:=true; dbe_sfzhm.Enabled:=true; dbe_phone1.Enabled:=true; dbe_phone2.Enabled:=true; dbe_address.Enabled:=true; dbe_pydate.Enabled:=false; dbe_remark.Enabled
40、:=true; btn_save.SetFocus; end;end;procedure Tfrm_ygxx.btn_modiClick(Sender: TObject); /编辑按钮代码begin adt_empy.Edit; dtpick_birthday.Date:=adt_empy.fieldbyname(birthday).AsDateTime; dtpick_pydate.Date:=adt_empy.fieldbyname(pydate).AsDateTime; dbe_name.Enabled:=true; dblucbb_sex.Enabled:=true; dtpick_b
41、irthday.Enabled:=true; dtpick_pydate.Enabled:=true; dblcbb_dept.Enabled:=true; dbe_age.Enabled:=true; dbe_education.Enabled:=true; dbe_sfzhm.Enabled:=true; dbe_phone1.Enabled:=true; dbe_phone2.Enabled:=true; dbe_address.Enabled:=true; dbe_remark.Enabled:=true; dbe_name.SetFocus; dbe_birthday.Visible
42、:=false; dbe_pydate.Visible:=false; dtpick_birthday.Visible:=true; dtpick_pydate.Visible:=true; dbe_id.Enabled:=false; btn_appd.Enabled:=false; btn_del.Enabled:=false; btn_modi.Enabled:=false; btn_save.Enabled:=true; btn_canl.Enabled:=true; btn_close.Enabled:=true;end;厂家信息维护窗体：在些窗体中能对厂商信息进行增，删，改、查询操作。此窗体源代码如下：procedure tfrm_gsxx.set_dbedit_status(status:boolean); /自定义的设置编缉框状态子函数begin db_name.Enabled:=status; db_lxr.Enabled:=status; db_phone1.Enabled:=status; db_phone2.Enabled:=status; db_phone3.Enabled:=status; db_address.Enabled:=s