




已阅读5页,还剩39页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 本文配套程序下载地址 : 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务! 毕业设计 院系 _ 专业 _ 班级 _ 姓名 _ 日期 年 月 日 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 中文摘要 办公自动化系统 企事业单位办公管理人员日常工作的调度、安排、计划。文件撰写、归档、 调用、传真、打印等提供充足的信息和快捷的查询手段 .其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用 DELPHI 6.0 软件及其提供的各种面向对象的开发工具,建立完整性强、安全性好的数据库,开发出功能完备,易使用的应用程序。经过调试、编译与实现,该程序 界面友好、程序设计风格朴素,使用起来美观大方、方便易用。尤其是系统的“报表生成模块”的功能极大的减轻工作人员的工作量,并以快速、准确等优点取代人工操作, 提高了管理工作效率。 关键词 : DELPHI 6.0 管理信息系统 数 据库 模块 办公自动化系统 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: Utilities Management System for management of day-to-day work of the utility meter-reading fee, statements generated, the cost of the provision of adequate means of information and quick enquiries. Its development mainly to the establishment and maintenance of databases including background and the development of two front-end applications. Delphi 6.0 and the use of object-oriented software development tools, the establishment of strong integrity, good safety database developed functions, easy to use applications. After debugging, Translation and the realization that the process friendly interface, simple programming style, using up aesthetic generous, convenient user-friendly. In particular system statements generated module function greatly reduce the workload of staff, and to the rapid, accurate, and other advantages replace manually operated, and enhanced power management efficiency. Keyword : Delphi 6.0 Information Management System database module utilities management system 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 引 言 1 1 Delphi 语言概述 2 1.1 Delphi 简介 2 1.2 数据库系统简介 5 1.3 本应用软件的基本介绍 7 2 本应用程序的构成和开发步骤 9 2.1 可行性研究 10 2.1.1 经济可行性 11 2.1.2 时间可行性 12 2.1.3 技术可行性 13 2.1.4 社会可行性 14 2.2 数据库的建立和连接 15 2.3 系统的总体设计 17 3 本程序的技术实现及具体功能 21 3.1 登录的界面与程序设计实现 24 3.2 客户信息 界面与代码设计实现 34 3.3 发送通知界面与代码设计实现 45 3.4 人事调动信息界面与代码设计 52 3.5 主界面设计与代码设计 55 结 论 60 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 致 谢 61 参 考 文 献 62 引 言 随着经济的发展,社会的进步,计算机越来越深入到我们日常的工作学习及生活中,成为我们日常生活中不可缺少的辅助工具。 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。 它已经深入到日常工作和生活的方方面面,比如文字处理 、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而,虽然现在世界上已经充满了多如牛毛的各种软件,但它们依然不能满足用户的各种特殊需要,人们还不得不开发适合自己特殊需求的软件。以前开发Windows 应用软件是专业人员的工作,需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同了,即使你没有接受过严格的程序设计训练,使用 Delphi 编程语言 也一样能够开发出功能强大、适合自己特殊需求的应用程序了。 Delphi 编程语言 继承了其他语 言易学易用的特点,特别适合于初学者学习 Windows 系无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 统编程。 办公自动化系统 企事业单位办公管理人员日常工作的调度、安排、计划。文件撰写、归档、调用、传真、打印等提供充足的信息和快捷的查询手段 .其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。货运管理系统 是典型的信息管理系统 (MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备 ,易使用等特点。 经过分析 ,我 们使用 Delphi 编程语言 开发工具 ,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立系统应用原型 ,然后 ,对初始原型系统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。 因为本人能力有限,加上时间紧迫,所以设计出来的本系统可能功能比较简单,另外本系统是单机版,不能实现网络互联操作 ,这些都有待于我在以后的工作学习中进一步改进。 1.1 Delphi 简介 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 1.1 Delphi 简介 Delphi是 Inprise公司出品的一个优 秀 的可视化程序 开发工具软件,它短小精悍,但功能却可以与庞大的 visual c+媲美。它易学易用,如同 VB,因而被称为“第四代编程语言”。 从 1995 年推出 Delphi1.0 至今已经经历了 7 个版本,Delphi7.0 运行在 win9x 或 winme , win2000, winxp,windowsNT 等操作系统下,是一个 32 位的应用程序开发工具。这里把“ VB”比作是傻瓜相机, Delphi 是带有自动功能的专业相机。前些年,软件界流行一句话叫“真正的程序员用 VC,聪明的程序员用 Delphi”。也有的把 Delphi 称作 VB杀手。 1.2 数据库系统简介 数据库系统是一个实际可运行的存储、维护和应用系统提供数据的软件系统,是存储介质、处理对象和管理系统的集合体。它通常由软件、数据库和数据管理员组成。其软件主要包括操作系统、各种宿主语言,实用程序以及数据库管理系统。数据库是依照某种数据模型组织起来并存放二级存储器中的数据集合。这些数据为多个应用服务,独立于具体的应用程序。数据库由数据库管理系统统一管理,数据的插入、修改和检索均要通过数据库管理系统进行。数据库管理无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 系统是一种系统软件,它的主要功能是维护数据库并有效地访问数据库中任意部分数据。 对数据库的维护包括保持数据的完整性、一致性和安全性。数据管理员负责创建、监控和维护整个数据库,使数据能被任何有权使用的人有效使用。数据库管理员一般是由业务水平较高、资历较深的人员担任。 数据库系统的个体含义是指一个具体的数据库管理系统软件和用它建立起来的数据库;它的学科含义是指研究、开发、建立、维护和应用数据库系统所涉及的理论、方法、技术所构成的学科。在这一含义下,数据库系统是软件研究领域的一个重要分支,常称为数据库领域。 数据库研究跨越于计算机应用、系统软件和理论三个领域,其中应用促进新系统的研制 开发,新系统带来新的理论研究,而理论研究又对前两个领域起着指导作用。数据库系统的出现是计算机应用的一个里程碑,它使得计算机应用从以科学计算为主转向以数据处理为主,并从而使计算机得以在各行各业乃至家庭普遍使用。在它之前的文件系统虽然也能处理持久数据,但是文件系统不提供对任意部分数据的快速访问,而这对数据量不断增大的应用来说是至关重要的。为了实现对任意部分数据的快速访问,就要研究许多优化技术。这些优化技术往往很复杂,是普通用户难以实现的,所以就由系统软件(数据库管理系统)来完成,而提供给用户无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 的是简单易用的数据库 语言。由于对数据库的操作都由数据库管理系统完成,所以数据库就可以独立于具体的应用程序而存在,从而数据库又可以为多个用户所共享。因此,数据的独立性和共享性是数据库系统的重要特征。数据共享节省了大量人力物力,为数据库系统的广泛应用奠定了基础。数据库系统的出现使得普通用户能够方便地将日常数据存入计算机并在需要的时候快速访问它们,从而使的计算机走出科研机构进入各行各业、进入家庭。 1.3 本应用软件的基本介绍 本应用软件先是打开一个启动窗口,就可以进入应用程序的主窗口了。主界面是一个图型界面窗口,整个平台显示采 用人性化方式,可以非常方便的系统管理、字典维护、抄表 ,报表管理等基本信息,管理日常经营的基本情况,通过各种条件查询出水电管理的基本信息,以及打印出查询出的基本信息,总之一切水电管理基本信息都会显示在系统平台上,大大提高了管理人员的工作效率。 2 本应用程序的构成和开发步骤 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 下面从软件工程的角度介绍本程序的基本开发步骤。Delphi 应用程序一般包含以下三个基本部分: 应用程序运行的接口:负责系统整体环境的设置,运行状态的监视,应用程序的启动等。 应用程序的主体:主要完成用户的业务逻辑功能, 如系统参数配置 ,字典维护 ,抄表 ,报表生成 .等信息 . 应用程序的辅助部分:协助程序主体完成的一些工作。 下面从软件工程的角度描述本程序的开发生命周期,开发过程和组织过程。 2.1 可行性研究 任何一个系统或一项工程,在建立之前,必须首选进行可行性分析,可行性分析包括两层含义,一是可能性,二是必要性。可能性指开发信息系统的条件是否具备,必要性是指客观上是否真正需要,通过可行性研究,可避免盲目投资,减少政治性要的损失。下面从四方面来讨论: 2.1.1 经济可行性 主要是只指算一个新的系统开发所需要的投资费用和运算费用,并与估计的新系统收益进行比较,看是否有利。本系统所需的软硬件成本比较低,投资小,具有一定的通过性,因此 ,在经济上是可行的。 2.1.2 时间可行性 主要包括系统在目前环境下能否正常运行,运行后所引起的各方面,以及这些变化对社会或人的因素所产生的影响。本系统对人事的管理比较全面,可长期使用。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 2.1.3 技术可行性 利用现有的设备,软件及技术人员,新系统的目标能否达到,这也是可行性研究中需要考虑的一个问题。关系型数据 库的高速发展使管理信息系统具备了良好的开发环境。本系统使用的 Delphi 普及 性好,操作简单,用户可以很快掌握使用方法,因此,在技术上是完全可行的。 2.1.4 社会可行性 人类社会文明的发展已进入信息化的高速发展时期,传统的手工方式支持下的管理模式,已经不能满足各方面的需要。开发本系统的目标不仅是提高工作效率,减轻劳动强度,而且减少出错率,具有很好的社会意义。 2.2 数据库的建立和连接 这个程序采用的数据库是 SQL, Delphi 作为数据库的前台开发工具,必须与后台数据库进行连接,这样才能控制和进行操作数据库,数据库的连接方式有两种, ODBC 和 ADO。 ODBC 是数据库的通用接 口,其缺点是效率低;专用接口调用直接速度快,但是通用性差,如果用 ODBC 连接数据库一般要两个步骤: 1.要创建数据源; 2.创建描述文件。数据库的建立则时在 SQL 中建立的,在这里你可以设置数据库的密码,对数据库进行保护。在创建数据源时可以通过 BDE administrator 进行创建,也可以通过系统控制面板中的 ODBC数据源进行建立。而描述文件则可以在 Delphi 的主程序中用Database Profile 中进行建立,之后进行数据库的连接。接下无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 来的工作是建表。同样建表的过程也不是唯一的,但是最终实现的结果是唯一 的。你可以通过 Access 进行建表,也可以通过在 delphi 主程序中建表,也可以通过 powerdesigner 进行可视化的建立,不过用这种方法,在导入的时候要把数据库要先断开,否则数据库的数据容易丢失。建表的过程注意规范化命名规则,如表的字段名等等。同时也要注意表的字段长度和可否为空。因为以后要设计到主键,外键的问题。如果字段名不同,同一字段长度不同则主键和外键将会连接不上。可见建表时应做好全局的打算。我在程序开发的初期,同样犯了这个错误,导致数据库出错,有时还要向表中新加入字段。导致数据窗口不好用的连 锁反映。 2.3 系统的总体设计 这个管理系统从 4 月 1 日开始着手设计开发 ,经过一段时间的分析,并根据对水电管理的具体要求及需要本软件实现的功能,将本软件分为 5 个大的模块,分别是:第一部分:系统管理 ; 第二部分:员工管理 ; 第三部分:客户管理; 第四部分:业务管理;第五部分:账目管理;第六部分:账目管理;第七部分:统计分析; 程序流程图如下: 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: 3 本程序的技术实现及具体功能 3.1 登录的界面与程序设计实现 程序登入 主界面 系统管理 员工管理 客户管理 业务管理 账目管理 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: unit UlogIn; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons; type TfrmLogIn = class(TForm) Image1: TImage; Bevel1: TBevel; Label1: TLabel; ComboBox1: TComboBox; Label2: TLabel; Label3: TLabel; Edit2: TEdit; Bevel2: TBevel; Bevel3: TBevel; bbtnOK: TBitBtn; bbtnCancel: TBitBtn; ComboBox2: TComboBox; procedure bbtnCancelClick(Sender: TObject); procedure ComboBox1DropDown(Sender: TObject); procedure bbtnOKClick(Sender: TObject); procedure ComboBox2DropDown(Sender: TObject); private Private declarations public Public declarations end; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: var frmLogIn: TfrmLogIn; LogTimes:Integer=0; DeptName:string; LogInTime:TDateTime; UserName:string; implementation uses Umain, MyData, UtodayWork; $R *.dfm procedure TfrmLogIn.bbtnCancelClick(Sender: TObject); begin Application.Terminate; end; procedure TfrmLogIn.ComboBox1DropDown(Sender: TObject); begin ComboBox1.Items.Clear; with dm.AQDept do begin close; sql.Clear; sql.Add(select distinct department from Users); open; first; while not dm.AQDept.Eof do begin ComboBox1.Items.Add(dm.AQDept.FieldValuesdepartment); dm.AQDept.Next; end; end; end; procedure TfrmLogIn.bbtnOKClick(Sender: TObject); begin if Edit2.Text= then begin ShowMessage(用户密码不能为空! ); Exit; end; with dm.AQDept do 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: begin close; sql.Clear; sql.Add(select * from Users where Department=+Trim(ComboBox1.Text)+and UserName=+Trim(ComboBox2.Text)+ and PWD=+frmMain.Encrypt(Trim(Edit2.Text)+); open; end; if dm.AQDept.Eof then begin LogTimes:=LogTimes+1; if LogTimes3 then begin MessageBox(handle,pchar(密码第 +IntToStr(LogTimes)+次错误 ,请重新输入 !),密码错误 ,MB_OK OR MB_ICONERROR); Edit2.Text:=; Edit2.SetFocus; end else begin MessageBox(handle,密码错误三次程序将关闭! ,密码错误 ,MB_ICONERROR); Application.Terminate; end; end else if dm.AQDept.RecordCount0 then begin DeptName:=Trim(ComboBox1.Text); UserName:=Trim(ComboBox2.Text); LogInTime:=Now; self.Close; end; end; procedure TfrmLogIn.ComboBox2DropDown(Sender: TObject); begin if ComboBox1.ItemIndex0 then begin ShowMessage(请先选择该用户所在的部门 !); Exit; end; ComboBox2.Items.Clear; with dm.AQDept do begin close; sql.Clear; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: sql.Add(select * from Users where Department=+Trim(comboBox1.Text)+); open; first; while not dm.AQDept.Eof do begin ComboBox2.Items.Add(dm.AQDept.FieldValuesUserName); dm.AQDept.Next; end; end; end; end. 3.2 客户信息界面与代码设计实现 unit Ucustom; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls, Buttons, Grids, DBGrids, ImgList, Menus, Mask, DBCtrls; type TfrmCustomer = class(TForm) 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: Panel2: TPanel; Splitter1: TSplitter; GroupBox2: TGroupBox; GroupBox3: TGroupBox; bbtnNew: TBitBtn; bbtnModify: TBitBtn; bbtnDel: TBitBtn; bbtnExit: TBitBtn; ImageList1: TImageList; GroupBox4: TGroupBox; DBGrid3: TDBGrid; PopupMenu1: TPopupMenu; A1: TMenuItem; B1: TMenuItem; C1: TMenuItem; N5: TMenuItem; N6: TMenuItem; N8: TMenuItem; GroupBox5: TGroupBox; DBGrid1: TDBGrid; GroupBox1: TGroupBox; TreeView1: TTreeView; HeaderControl1: THeaderControl; ComboBox1: TComboBox; Edit8: TEdit; DBEdit4: TDBEdit; DBEdit9: TDBEdit; DBGrid2: TDBGrid; bbtnShowAll: TBitBtn; procedure bbtnNewClick(Sender: TObject); procedure bbtnModifyClick(Sender: TObject); procedure bbtnExitClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure ComboBox1DropDown(Sender: TObject); procedure FormShow(Sender: TObject); procedure TreeView1Click(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure bbtnDelClick(Sender: TObject); procedure A1Click(Sender: TObject); procedure B1Click(Sender: TObject); 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: procedure C1Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure DBGrid2DblClick(Sender: TObject); procedure DBGrid1DblClick(Sender: TObject); procedure bbtnShowAllClick(Sender: TObject); private Private declarations public Public declarations end; var frmCustomer: TfrmCustomer; implementation uses MyData, Ufamily, Uconnact, UtodayWorkRecord, UcustomerAdd, UcustomerUpdate; $R *.dfm procedure TfrmCustomer.bbtnNewClick(Sender: TObject); begin frmCustomerAdd.Show; end; procedure TfrmCustomer.bbtnModifyClick(Sender: TObject); begin if self.DBGrid1.DataSource.DataSet.IsEmpty then begin ShowMessage(没有要修改的记录,请选择记录后再试! ); Exit; end else begin frmCustomerUpdate.Show; end; end; procedure TfrmCustomer.bbtnExitClick(Sender: TObject); begin close; end; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: procedure TfrmCustomer.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; procedure TfrmCustomer.ComboBox1DropDown(Sender: TObject); begin ComboBox1.Items.Clear; with dm.AQCustName do begin close; sql.Clear; sql.Add(select distinct DeptName from Customers); open; first; while not Eof do begin ComboBox1.Items.Add(FieldValuesDeptName); next; end; end; end; procedure TfrmCustomer.FormShow(Sender: TObject); var node1,node2 :TTreeNode; secoder :string; first:string; kind:string ; begin ComboBox1.Text :=; TreeView1.Items.Clear; with dm.AQCustName do begin close; sql.Clear; sql.Add(select distinct Intension from Customers); open; end; dm.AQCustName.First; while not dm.AQCustName.Eof do 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: begin first:= dm.AQCustName.fieldbyname(Intension).AsString; node1:=treeview1.Items.AddChild(nil,first); node1.ImageIndex :=0; node1.SelectedIndex :=0; node1.StateIndex :=-1; kind:=first; with dm.AQDeptName do begin close; sql.Clear; sql.Add(select distinct DeptName from Customers where Intension=+kind+); open; end; dm.AQDeptName.First; while not dm.AQDeptName.Eof do begin secoder:=dm.AQDeptName.fieldbyname(DeptName).AsString; node2 :=treeview1.Items.AddChild(node1,secoder); node2.ImageIndex :=1; node2.SelectedIndex :=1; node2.StateIndex :=-1; dm.AQDeptName.Next; end; dm.AQCustName.Next; end; end; procedure TfrmCustomer.TreeView1Click(Sender: TObject); begin if treeview1.Selected.Level=0 then begin with dm.AQCustInfo do begin close; sql.Clear; sql.Add(select * from Customers where Intension=+treeview1.Selected.Text+); open; dm.ATCustInfo.Clone(dm.AQCustInfo); end; end else begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: with dm.AQCustInfo do begin close; sql.Clear; sql.Text :=select * from Customers where DeptName=+treeview1.Selected.Text+ + and Intension=+TreeView1.Selected.Parent.Text+; open; dm.ATCustInfo.Clone(dm.AQCustInfo); end; end; end; procedure TfrmCustomer.ComboBox1Change(Sender: TObject); var Tempstr:string; i:integer; begin TempStr:=Trim(ComboBox1.Text); if TreeView1.Items.GetFirstNode.Text=TempStr then begin TreeView1.Items.GetFirstNode.Selected:=True; end else begin for i:=1 to TreeView1.Items.Count do begin if TreeView1.Items.Itemi.Text=TempStr then begin TreeView1.SetFocus; TreeView1.Items.Itemi.Selected :=True; Break; end else Continue; end; end; end; procedure TfrmCustomer.N1Click(Sender: TObject); begin bbtnNew.Click; end; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: procedure TfrmCustomer.N2Click(Sender: TObject); begin bbtnModify.Click; end; procedure TfrmCustomer.N3Click(Sender: TObject); begin bbtnDel.Click; end; procedure TfrmCustomer.N9Click(Sender: TObject); begin frmFamily.bbtnAdd.Click; frmFamily.Show; end; procedure TfrmCustomer.bbtnDelClick(Sender: TObject); var Customerid,CustomerName:string; begin Customerid :=dm.ATCustInfo.FieldByName(CustomerID).AsString; CustomerName:=dm.ATCustInfo.fieldbyname(Cusname).AsString; if self.DBGrid1.DataSource.DataSet.IsEmpty then begin ShowMessage(没有要删除的记录,请选择记录后再试! ); Exit; end else if MessageBox(self.Handle,将删除与该客户的项目和家庭成员信息 ,确定吗? ,警告 ,MB_OKCANCEL+MB_ICONWARNING+MB_DefButton2)=IDOk then begin dm.ATCustInfo.Delete; with dm.AQItems do begin close; sql.Clear; sql.Add(delete from ProjectItem where Customname=+CustomerName+); ExecSQL; end; with dm.AQCustInfo do begin close; sql.Clear; sql.Add(delete from Family where CustomerID=+Customerid+); ExecSQL; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: end; with dm.AQService do begin close; sql.Clear; sql.Add(delete from Service where SerName=+CustomerName+); ExecSQL; end; end; end; procedure TfrmCustomer.A1Click(Sender: TObject); var CustomerId :string; begin CustomerId :=dm.ATCustInfo.FieldValuesCustomerID; try if Application.MessageBox( 您确实要把此客户移到 A 区吗? , 系统提示,MB_YESNO)=6 then begin with dm.AQCustInfo do begin close; sql.Clear; sql.Text :=update Customers set Intension= 一定 where CustomerID=+CustomerId+; ExecSql; end; showmessage(成功移动到 A 区! ); self.FormShow(Sender); end; except showmessage(移动到 A 区失败! ); end; end; procedure TfrmCustomer.B1Click(Sender: TObject); var CustomerId :string; begin CustomerId :=dm.ATCustInfo.FieldValuesCustomerID; try if Application.MessageBox( 您确实要把此客户移到 B 区吗? , 系统提示,MB_YESNO)=6 then 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: begin with dm.AQCustInfo do begin close; sql.Clear; sql.Text :=update Customers set Intension= 初定 where CustomerID=+CustomerId+; ExecSql; end; showmessage(成功移动到 B 区! ); self.FormShow(Sender); end; except showmessage(移动到 B 区失败! ); end; end; procedure TfrmCustomer.C1Click(Sender: TObject); var CustomerId :string; begin CustomerId :=dm.ATCustInfo.FieldValuesCustomerID; try if Application.MessageBox( 您确实要把此客户移到 C 区吗? , 系统提示,MB_YESNO)=6 then begin with dm.AQCustInfo do begin close; sql.Clear; sql.Text :=update Customers set Intension= 待定 where CustomerID=+CustomerId+; ExecSql; end; showmessage(成功移动到 C 区! ); self.FormShow(Sender); end; except showmessage(移动到 C 区失败! ); end; end; procedure TfrmCustomer.N6Click(Sender: TObject); var 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: CustomerId :string; begin CustomerId :=dm.ATCustInfo.FieldValuesCustomerID; try if Application.MessageBox(您确实要把此客户移到公共区域吗? ,系统提示,MB_YESNO)=6 then begin with dm.AQCustInfo do begin close; sql.Clear; sql.Text :=update Customers set Intension= 公共区域 where CustomerID=+CustomerId+; ExecSql; end; showmessage(成功移动到公共区域! ); self.FormShow(Sender); end; except showmessage(移动到公共区域失败! ); end; end; procedure TfrmCustomer.N7Click(Sender: TObject); begin frmContact.Show; end; procedure TfrmCustomer.DBGrid2DblClick(Sender: TObject); begin if DBGrid2.DataSource.DataSet.IsEmpty then Exit else frmContact.Show; end; procedure TfrmCustomer.DBGrid1DblClick(Sender: TObject); begin if DBGrid1.DataSource.DataSet.IsEmpty then Exit else frmCustomerUpdate.Show; end; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: procedure TfrmCustomer.bbtnShowAllClick(Sender: TObject); begin dm.ATCustInfo.Close; dm.ATCustInfo.Open; dm.ATContact.Close; dm.ATContact.Open; dm.ATFimaly.Close; dm.ATFimaly.Open; end; end. 3.3 发 送 通 知 界 面 与 代 码 设 计 实 现 unit UsendMsg; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons,Unotice; type TfrmSendMsg = class(TForm) GroupBox1: TGroupBox; Panel1: TPanel; Label1: TLabel; AddrBox: TComboBox; bbtnSend: TBitBtn; GroupBox2: TGroupBox; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: mesText: TMemo; StatusPanel: TPanel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure bbtnSendClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure AddrBoxChange(Sender: TObject); procedure mesTextChange(Sender: TObject); private Private declarations UserName:String; MessageHeader:TStringList; public Public declarations end; var frmSendMsg: TfrmSendMsg; implementation $R *.dfm procedure TfrmSendMsg.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; procedure TfrmSendMsg.bbtnSendClick(Sender: TObject); var i,res:Integer; begin if AddrBox.Text then begin StatusPanel.Font.Color:=clBlack; StatusPanel.Caption:=请稍等 .; Update; if AddrBox.Items.IndexOf(AddrBox.Text)=-1 then AddrBox.Items.Add(AddrBox.Text); res:=SendMsg(AddrBox.Text,MessageHeader.Text+mesText.Text); /ShowMessage(IntToStr(res); if res=0 then begin frmSendMsg.StatusPanel.Caption:=消息已成功送出 ; frmSendMsg.StatusPanel.Font.Color:=clBlue; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: end; try if res=87 then begin frmSendMsg.StatusPanel.Caption:=指定 参数错误 ; frmSendMsg.StatusPanel.Font.Color:=clRed; end; except /ShowMessage(指定参数错误 ); end; try if res=2273 then begin frmSendMsg.StatusPanel.Caption:=不能找到该 IP:+AddrBox.Text; frmSendMsg.StatusPanel.Font.Color:=clRed; end; / ShowMessage(不能找到该 IP:+AddrBox.Text); except end; try if (res0)and(res87)and(res2273) then begin frmSendMsg.StatusPanel.Caption:=错误 :+IntToStr(res); frmSendMsg.StatusPanel.Font.Color:=clRed; end; except / end; end; end; procedure TfrmSendMsg.FormCreate(Sender: TObject); var strUser:PChar; strSize:DWord; begin mesText.Lines.Clear; strUser:=StrAlloc(100); strSize:=100; GetUserName(strUser,strSize); UserName:=strUser; strDispose(strUser); MessageHeader:=TStringList.Create; MessageHeader.Add(-); 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: MessageHeader.Add( FROM +UserName); MessageHeader.Add(-); end; procedure TfrmSendMsg.AddrBoxChange(Sender: TObject); begin StatusPanel.Caption:=; end; procedure TfrmSendMsg.mesTextChange(Sender: TObject); begin StatusPanel.Caption:=; end; end. 3.4 人事调动信息界面与代码设计 unit UpersonalChange; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: Dialogs, StdCtrls, Buttons, dbcgrids, Grids, DBGrids, ExtCtrls, Mask, DBCtrls, ComCtrls; type TfrmPersonalChange = class(TForm) GroupBox1: TGroupBox; ComboBox1: TComboBox; sbtnShowAll: TBitBtn; bbtnSelect: TBitBtn; ControlBar1: TControlBar; StaticText1: TStaticText; GroupBox2: TGroupBox; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Edit1: TEdit; Label8: TLabel; GroupBox3: TGroupBox; DBGrid1: TDBGrid; Panel1: TPanel; bbtnSave: TBitBtn; bbtnExit: TBitBtn; bbtnModify: TBitBtn; Edit2: TEdit; Memo1: TMemo; ComboBox2: TComboBox; ComboBox3: TComboBox; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; Label1: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure bbtnSelectClick(Sender: TObject); procedure bbtnModifyClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure bbtnExitClick(Sender: TObject); procedure sbtnShowAllClick(Sender: TObject); procedure bbtnSaveClick(Sender: TObject); private Private declarations public 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: Public declarations end; var frmPersonalChange: TfrmPersonalChange; implementation uses Mydata, UemployeeMgr; $R *.dfm procedure TfrmPersonalChange.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; procedure TfrmPersonalChange.bbtnSelectClick(Sender: TObject); var SelectFields,FieldsValue:String; begin if ComboBox1.Text= then Exit; if combobox1.Text=员工编号 then begin SelectFields:=Empno; end else if ComboBox1.Text=姓名 then begin SelectFields:=EmpName; end else if ComboBox1.Text=所在部门 then begin SelectFields:=Department; end else if ComboBox1.Text=职位 then begin SelectFields:=Post; end; FieldsValue:=%+Trim(Edit1.Text)+%; with dm.AQEmpInfo do begin close; sql.Clear; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: sql.Add(select * from Employees where +SelectFields+ like +FieldsValue+); open; dm.ATEmpInfo.Clone(dm.AQEmpInfo); end; end; procedure TfrmPersonalChange.bbtnModifyClick(Sender: TObject); begin bbtnsave.Enabled:=true; combobox2.Enabled:=true; edit2.Enabled:=true; combobox3.Enabled:=true; memo1.Enabled:=true; combobox3.Enabled:=true; dm.ATEmpInfo.Edit; end; procedure TfrmPersonalChange.FormCreate(Sender: TObject); begin bbtnsave.Enabled:=false; combobox3.Enabled:=false; edit2.Enabled:=false; end; procedure TfrmPersonalChange.bbtnExitClick(Sender: TObject); begin close; end; procedure TfrmPersonalChange.sbtnShowAllClick(Sender: TObject); begin dm.ATEmpInfo.Close; dm.ATEmpInfo.Open; end; procedure TfrmPersonalChange.bbtnSaveClick(Sender: TObject); begin with dm.ATEmpInfo do begin Edit; FieldByName(Status).Value:=Trim(ComboBox2.Text); FieldByName(Post).Value:=Trim(Edit2.Text); FieldByName(Department).Value:=Trim(ComboBox3.Text); FieldByName(Notes).Value:=Trim(Memo1.Text); 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: Post; ShowMessage(已存盘! ); Close; Open; end; end; end. 3.5 主界面设计与代码设计 unit Umain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ComCtrls, ToolWin, XPMan, Buttons, ExtCtrls,QStdCtrls, StdActns, ActnList; type TfrmMain = class(TForm) MainMenu1: TMainMenu; EmpMgr: TMenuItem; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: ClientMgr: TMenuItem; BusinessMgr: TMenuItem; MoneyMgr: TMenuItem; systemMgr: TMenuItem; StatusBar1: TStatusBar; empInfo: TMenuItem; empRaise: TMenuItem; XPManifest1: TXPManifest; CoolBar1: TCoolBar; sbtnEmpBrowse: TSpeedButton; sbtnServiceBrowse: TSpeedButton; sbtnSalaryBrowse: TSpeedButton; sbtnBusiBrowse: TSpeedButton; sbtnClientBrowse: TSpeedButton; sbtnExit: TSpeedButton; SalaryBrowse: TMenuItem; DailyCost: TMenuItem; Windows: TMenuItem; userAdd: TMenuItem; passwdModify: TMenuItem; loginHistory: TMenuItem; N13: TMenuItem; BusinessTip: TMenuItem; N15: TMenuItem; N16: TMenuItem; Exit: TMenuItem; Statistic: TMenuItem; dataBase: TMenuItem; ClientBrowse: TMenuItem; ServiceBrowse: TMenuItem; OrdersArrange: TMenuItem; BusinessInfo: TMenuItem; Timer1: TTimer; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; ActionList1: TActionList; WindowCascade1: TWindowCascade; WindowTileHorizontal1: TWindowTileHorizontal; WindowTileVertical1: TWindowTileVertical; Cascade: TMenuItem; Vertical: TMenuItem; Horizontal: TMenuItem; N4: TMenuItem; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: About: TMenuItem; N5: TMenuItem; procedure sbtnEmpBrowseClick(Sender: TObject); procedure empRaiseClick(Sender: TObject); procedure SalaryBrowseClick(Sender: TObject); procedure DailyCostClick(Sender: TObject); procedure empInfoClick(Sender: TObject); procedure ServiceBrowseClick(Sender: TObject); procedure BusinessInfoClick(Sender: TObject); procedure ClientBrowseClick(Sender: TObject); procedure OrdersArrangeClick(Sender: TObject); procedure BusinessTipClick(Sender: TObject); procedure sbtnBusiBrowseClick(Sender: TObject); procedure sbtnClientBrowseClick(Sender: TObject); procedure sbtnServiceBrowseClick(Sender: TObject); procedure sbtnSalaryBrowseClick(Sender: TObject); procedure sbtnExitClick(Sender: TObject); procedure userAddClick(Sender: TObject); procedure passwdModifyClick(Sender: TObject); procedure dataBaseClick(Sender: TObject); procedure loginHistoryClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure Timer1Timer(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure AboutClick(Sender: TObject); procedure ExitClick(Sender: TObject); procedure N3Click(Sender: TObject); procedure N5Click(Sender: TObject); private Private declarations public Public declarations function Encrypt(Text:string):string; end; var frmMain: TfrmMain; implementation uses UpublcBrower, UemployeeMgr, UpersonalChange, UarrangeOrders, Usalary, UdailyCost, Userver, Ucustom, UtodayWork, Usysmanadd, Upasschg, 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: Udatecontrol, Ulogdaily, UlogIn, MyData, Userverchg, Userverchart, utotal, Uabout, UsendMsg; $R *.dfm procedure AddLogIn; begin with dm.AQHistory do begin close; sql.Clear; sql.Add(INSERT INTO LogHistory(UserID,LogInTime,LogOutTime); sql.Add(values (); sql.Add(+UserName+,); sql.Add(+FormatDateTime(yyyy-mm-dd hh:mm:ss,LogInTime)+,); sql.Add(+FormatDateTime(yyyy-mm-dd hh:mm:ss,Now)+); sql.Add(); ExecSQL; end; end; /得到使用时间 function TimeGetStamp(T2:string):String; var h1,m1,s1,n1,h2,m2,s2,n2:word; hh,mm,ss:Longint; strtime :Longint; begin Decodetime(now,h1,m1,s1,n1); Decodetime(StrtoTime(T2),h2,m2,s2,n2); hh := h1*3600+m1*60+s1; mm := h2*3600+m2*60+s2; if hh mm then strtime :=hh-mm else strtime :=hh-mm+24*3600; hh := Strtime div 3600; mm := Strtime mod 3600 div 60 ; ss := Strtime mod 60; Result := inttoStr(hh) +小时 + inttoStr( mm) +分 +inttoStr(ss)+秒 ; end; function TfrmMain.Encrypt(Text:string):string;/用户加密与解密 var Temp:string; CharStr:char; i,ASC:Integer; 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: begin Result:=; Temp:=Text; for i:=1 to Length(Temp)do begin CharStr:=Tempi; ASC:=ord(CharStr) xor i; Result:=Result+chr(ASC); end; end; /自定义的函数 -打开 Child 窗体。 procedure OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent); var i: integer; Child:TForm; begin for i := 0 to Screen.FormCount -1 do if Screen.Formsi.ClassType=FormClass then begin Child:=Screen.Formsi; if Child.WindowState=wsMinimized then ShowWindow(Child.handle,SW_SHOWNORMAL) else ShowWindow(Child.handle,SW_SHOWNA); if (not Child.Visible) then Child.Visible:=True; Child.BringToFront; Child.Setfocus; TForm(fm):=Child; exit; end; Child:=TForm(FormClass.NewInstance); TForm(fm):=Child; Child.Create(AOwner); end; procedure TfrmMain.sbtnEmpBrowseClick(Sender: TObject); begin OpenForm(TfrmEmployeeMgr,frmEmployeeMgr,self); frmEmployeeMgr.WindowState:=wsMaximized; end; procedure TfrmMain.empRaiseClick(Sender: TObject); begin OpenForm(TfrmPersonalChange,frmPersonalChange,self); 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: end; procedure TfrmMain.SalaryBrowseClick(Sender: TObject); begin OpenForm(TfrmSalary,frmSalary,self); frmSalary.WindowState:=wsMaximized; end; procedure TfrmMain.DailyCostClick(Sender: TObject); begin OpenForm(TfrmDailyCost,frmDailyCost,self); end; procedure TfrmMain.empInfoClick(Sender: TObject); begin OpenForm(TfrmEmployeeMgr,frmEmployeeMgr,self); frmEmployeeMgr.WindowState:=wsMaximized; end; procedure TfrmMain.ServiceBrowseClick(Sender: TObject); begin OpenForm(TfrmServer,frmServer,self); frmServer.WindowState:=wsMaximized; end; procedure TfrmMain.BusinessInfoClick(Sender: TObject); begin OpenForm(TfrmCustomer,frmCustomer,self); frmCustomer.WindowState:=wsMaximized; end; procedure TfrmMain.ClientBrowseClick(Sender: TObject); begin OpenForm(TfrmPublicBrower,frmPublicBrower,self); frmPublicBrower.WindowState:=wsMaximized; end; procedure TfrmMain.OrdersArrangeClick(Sender: TObject); begin OpenForm(TfrmArrangeOrders,frmArrangeOrders,self); end; procedure TfrmMain.BusinessTipClick(Sender: TObject); begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载: OpenForm(TfrmTodayWork,frmTodayWork,self); end; procedure TfrmMain.sbtnBusiBrowseClick(Sender: TObject); begin OpenForm(TfrmPublicBrower,frmPublicBrower,self); frmPublicBrower.WindowState:=wsMaximized; end; procedure TfrmMain.sbtnClientBrowseClick(Sender: TObject); begin OpenForm(TfrmCustomer,frmCustomer,self); frmCusto
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 酒店道德规范培训
- 地质灾害地面沉降与裂缝灾害恢复监测重点基础知识点
- 车辆试用协议书范本
- 部分合同提前终止协议
- 辞职后合同上写着保密协议
- 建筑工程合同价格形式分为几种
- POS机收单业务服务合同
- 【课件】江苏省中小学学籍信息管理系统操作培训
- 辣椒成品收购合同协议
- 车辆抵质押合同协议
- 流行性感冒诊疗方案(2025 年版)解读课件
- 2025年公务员考试时事政治题及参考答案
- 广东广州历年中考语文现代文阅读真题43篇(截至2024年)
- 产品三观:打造用户思维法则
- 2025年湖南湘投控股集团有限公司招聘笔试参考题库含答案解析
- 绿色建筑材料在土木工程施工中的应用研究
- 第二十九节 商业模式创新及案例分析
- 小红书搜索推广营销师认证考试题库(附答案)
- 医疗器械的维护和保养方法
- 石材养护报价单
- 世界各地的建筑·小学生课件
评论
0/150
提交评论