delphi课程设计报告书.docx
- 格式:docx
- 大小:446.63 KB
- 文档页数:48
.word 可编辑 .学号: 09416305课程设计报告课程名称:Delphi程序设计题目:人事管理系统姓名:学院:专业班级:计算机 091指导教师:课程设计任务书班级计算机 091姓名李琳蕊一、设计题目:人事管理系统设计二、设计内容:本设计是制作一个人事管理系统,在该程序中具体功能要求见附件。
三、基本要求:1、对源程序编写的要求:(1)能够实现任务书中的功能;(2)尽可能使界面友好、直观、易操作;(3)源程序要有适当的注释,使程序容易阅读。
2、撰写“课程设计报告”,撰写要求见附件实习报告撰写排版要求。
3、课程设计验收要求:(1)运行所设计的系统;(2)回答有关问题;(3)提交课程设计报告和任务书;(4)提交源程序四、进度安排:1、系统分析、设计准备阶段: 4 学时2、编程调试阶段:32学时3、总结和书写报告阶段:2学时4、考核阶段: 2 学时指导教师:刘俊2011年1月 6 日目录人事管理系统 (5)1 、需求分析 (5)2 、程序要求 (5)1.功能模块图 (5)2 .系统界面 (6)2:登陆界面 (7)3: (12)4:更改界面 (20)5: MDICHild (26)6: (28)3. 创建数据库 (42)1、数据库的选择:ACCESS 2003数据库 (42)2、建表 (42)4 、系统设计 (46)5 、系统的使用说明 (46)6 、心得体会 (47)7 :致谢 (47)参考文献 (47)人事管理系统1、需求分析1.新员工资料输入。
2.自动分配员工号,并且设置初始的用户密码,能够分配权限执行不同的模块。
3.人事变动的详细记录,包括岗位和部门的调整。
4.员工信息的查询和修改,包括员工个人信息和密码等。
5.帮助。
2、程序要求1.功能模块图人事管理系统根新人员帮据员事工助权工变档限档更案登案查录输询入修改2.系统界面1:进入界面;代码: procedure Tqdform.FormCreate(Sender: TObject);varwindowid:hwnd;beginwindowid:=findwindow(nil,'F_main');if windowid<>0 thenbeginMessageBox(handle,' 错误:系统已经启动!',' 系统启动错误',MB_OK or MB_ICONERROR);// showwindow(foundwin,9);halt;end;end;end.2:登陆界面代码: unit login;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,Inifiles;typeTF_login = class(TForm)Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;i_server_add: TComboBox;i_user: TEdit;i_passwd: TEdit;Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure FormShow(Sender: TObject);procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction); private{ Private declarations }public{ Public declarations }end;varF_login: TF_login;Inifile:TInifile;implementationuses DataModule, crypt, mainwin;{$R *.DFM}procedure TF_login.Button1Click(Sender: TObject);varpasswd, passwrd:String;beginapplication.CreateForm(TDataModule1,DataModule1); With DataModule1 dobeginDatabase.Connected:=False;Database.AliasName:=i_server_add.Text;Database.Connected:=True;T_user.Filter:='ID='''+i_user.Text+'''';T_user.Filtered:=True;T_user.Open;if T_user.RecordCount=1 thenbeginpasswd:=i_passwd.Text;if length(passwd)>5 thenbeginpasswd:=Copy(passwd+passwd,1,10);//统一密码长度passwd:=Encrypt(passwd,123);//加密end;passwrd:=T_user['PASSWD'];if (passwrd=passwd) and (T_user['AUTHORITY']='3') thenbeginF_main.login:=True;endelseApplication.MessageBox('请重新输入密码。
课程设计任务书题目:学生宿舍管理系统学号:200812230312姓名:贺言君专业:计算机科学与技术课程:delphi程序设计指导教师:燕孝飞职称:完成时间:2010年12月1日——2010年12月27日枣庄学院计算机科学系制课程设计任务书及成绩评定课程设计的任务和具体要求在现代的高校宿舍管理工作中,由于高校扩招,学生人数巨增,传统的管理方法已经不适合高校宿舍管理的需要,以前在管理方面采用的管理系统有一些落后,随着学生人数的不断增加,该系统在数据管理方面有一些混乱,越来越不能适宜管理的需要,因此需要一个功能更完善,操作更方便,容量更大的管理信息系统。
因此宿舍管理系统是各大高校所需要使用的一个管理系统.由于宿舍系统是一个比较大型的信息管理系统,它需要专业的工作人员才能完成复杂的功能,而且不同的高校的管理内容和方式有所不同.信息系统分析与设计是学习完《信息系统分析与设计》课程后进行的一次全面的综合练习。
其目的在于加深对信息系统基础理论和基本知识的理解,初步掌握使用信息系统分析、设计的基本内容和方法,提高解决实际问题的能力。
作为学习,我们设计这个管理系统不可能作一个标准的应用系统,而只是制作了一个有一般代表意义的小型宿舍管理系统.这样既深化了理论知识也提高了实践能力.指导教师签字:__________ 日期:__________指导教师评语成绩:_______ 指导教师签字:_______ 日期:_______课程设计所需软件、硬件等此管理系统采用delphi7设计前台界面,SQL Server 2005开发数据库所以采用的软件及语言如下:系统:Windows XP语言:SQL语言、Pascal语言开发工具:SQL Server 2005,delphi7等课程设计进度计划起至日期工作内容备注2010年12月1日—5日2010年12月6日—9日2010年12月10日—11日2010年12月12日—23日2010年12月24日—27日确定课题并搜集相关资料分析后台数据库需求总体功能的设计各个功能模块的设计撰写课程设计略参考文献,资料索引序号文献、资料名称编著者出版单位[1]李目海, delphi应用程序设计, 枣庄学院计算机科学系[2]陈豫龙何旭洪, delphi数据库系统开发实例导航(第二版),人民邮电出版社[3]刘子锐,delphi数据开发自学教程,人民邮电出版社一、摘要宿舍管理系统是目前各所高校后勤管理之中的重要部分,如何能科学有效的开展学生公寓管理工作,是当前高校领导人和后勤管理人员关心的问题。因此, 公寓管理工作的信息化和科学化有着十分重要的实践意义,此次开发的大公寓管理信息系统, 旨在实现对现有的宿舍管理系统中遇到的宿舍信息情况和大量数据进行数据存储的基础上,设计并完成对其宿舍信息的分类、查询,添加,删除,修改和打印报表在深入研究的过程中,尽可能实现方便友好的操作界面和数据报表。该系统运用 DELPHI7技术, 以 Microsoft SQL Server 2005 为后台数据库, 开发了一套为高校服务的公寓管理信息系统。
1 绪论1.1 选题目的及意义医院是救死扶伤之地,医院在现代社会的发展过程中起着举足轻重的作用。
不论医院规模的大小,医院内部的部门设置以及人员的配置都是非常复杂的。
此外,医院又是一个特殊的地方,要求每一味医护人员都要有极其认真负责的态度,稍有差错就会给病人带来生命危险。
在科技日益发达的今天,人们的身体健康也不断受到重视。
因此,医院进行现代化管理就变得尤为重要。
医院的特殊性要求管理人员仔细地管理好医院内部的每一个环节。
然而随着社会信息化的到来,医院拥有大量的医护人员,大量的后勤人员,大量的药品和仪器,最重要的是拥有大量的病人,医院的管理工作变得非常复杂,这就要求有一个功能强大的管理系统来协助管理人员处理好医院的每一个事务。
现代化的医院也应该有现代化的管理系统。
随着计算机及性能的不断提高,计算机已经在医院医疗、教学、科研、管理等方面得到越来越广泛的应用。
同样,医院管理系统有效的管理也离不开计算机。
一个良好的医院管理系统,不但可以方便管理人员实现医院的日常管理工作,更重要的是可以提高医院治病救人的效率。
1.2 设计内容通过一个医院住院管理系统的设计,使医院住院管理工作系统化、规范化、自动化,从而达到提高医院管理效率的目的。
医院住院管理是医院管理系统的一个分系统,也是医院管理系统的重要组成部分。
住院管理又分为病人管理和病床管理两个子系统。
病人管理功能比较复杂,管理人员可以全局浏览医院的病人状况,也可以逐条浏览医院病人情况。
管理人员既可以简单查询病人状况,又可以高级查询病人状况,可以添加新的病人资料,可以修改、删除已经存在的病人。
病房管理用来实现对当前病床分配的情况进行查看。
管理人员可以很方便的将某个病房的某些病床分配给一个病人,或清空某张病床,同时还可以列出所有的空床位。
2 需求分析2.1 功能需求某医院住院管理系统中需要如下信息:科室:科名,科地址,科电话病房:病房号,床位数,所属科室名医生:工作证号,姓名,职称,年龄,所属科室名病人:病历号,姓名,性别,诊断,病房号,床位号,主管医生其中:一个科室有多个病房、多个医生,一个病房只能属于一个科室,一个医生,一个医生只属于一个科室,但可负责多个病人的诊治,一个病人的主管医生只有一个。
delphi课程设计题目: Delphi程序设计学号姓名专业计算机科学与技术课程 Delphi应用程序设计指导教师职称讲师完成时间:2010年11月----2010年 12月1课程设计任务书及成绩评定课程设计的任务和具体要求1.内容小型信息管理系统的设计与实现图书管理系统 2.基本要求课程设计应能反应出学生综合利用所学知识完成一定的设计任务的能力,反映出学生理论联系实践的动手能力。
具体要求如下:明确所要开发系统的设计任务;做好需求分析,合理选择设计方案;合理设计数据库中各个表的结构及其关系; 能够设计出美观大方的程序界面;养成良好的代码书写习惯;在编写程序过程中应注意相关文档的编写; 综合应用Delphi各种组件实现程序功能; 认真撰写课程设计总结报告。
指导教师签字: 日期:2指导教师评语成绩: 指导教师签字: 日期:课程设计所需软件、硬件等1、微型计算机2、 Windows操作系统3、 Delphi5.0以上版本的开发环境4、微软SQL Server 2005软件课程设计进度计划起至日期工作内容备注2010.11 问题调查分析2010.11 收集资料2010.12 数据库设计2010.12 程序设计3参考文献、资料索引序号文献、资料名称编著者出版单位[1] 《Delphi应用程序设计》李目海,电子科技大学出版社,2005 [2]《Delphi程序设计实用教程》叶核亚,电子工业出版社,2005 [3] 《Delphi 2005程序设计教程》刘瑞新编著,机械工业出版社,2004 [4]《Delphi数据库程序设计教程》刘瑞新张志纲张兵义编著,机械工业出版社,2004 [5] 《Delphi 使用教程》郑阿奇主编,电子工业出版社,2003 [6]《Delphi 7 程序设计技巧与实例》吴天准编著,中国铁道出版社 20034引言:随着我国市场经济的迅速发展和人们生活水平的不断提高,图书馆藏书的树木逐渐增大,这也挑战了图书管理方面的技术,以前的人工管理方式已经不再适应现在的环境,取而代之的是先进的图书管理系统,通过使用Delphi创建的图书管理系统可以让管理人员方便而快捷的进行管理、查询、借阅、录入等工作。
专业课程设计报告D e l p h i餐饮管理系统 Pleasure Group Office【T985AB-B866SYT-B182C-BS682T-STT18】南京审计学院信息科学学院课程设计报告书课程名称:信息系统开发工具课程设计课题名称:餐饮管理系统专业:信息管理与信息系统班级: 08级信息管理1班学号:姓名:孙晓刚成绩:2010年 12月 26 日目录37客户点菜完毕返回设计 (37)摘要近几年来,随着我国国民经济的稳定增长,餐饮业的竞争也越来越激励,想在这样竞争激励的环境下生存,就必须运用科学的管理思想与先进的管理方法,使用点餐与管理一体化。
这样不仅提高了工作效率,也避免了以前手工作业的麻烦,从而使得管理者能够准确,有效的管理餐饮。
因此,餐饮业的管理者更需要一种综合实时的管理模式,希望从更科学的管理中取得竞争的优势,在竞争激烈的商业市场中取胜。
结合管理信息系统的开发方法及步骤,以此为理论根据,开发出一个信息管理系统——餐饮管理系统。
它采用国际通用的先进餐饮管理模式,并结合中国的管理实际特点开发而成。
通过本系统功能模块,可为各种大小不同的餐饮管理所使用。
为管理者提供高效的管理手段,本系统有着人性理的设置理念,流程清晰、易懂。
具有独特的功能对于开台管理、点菜、菜谱设置等为管理人员带来很大的方便,减少人为因素的错误,提高服务水平,提升企业形象。
关键字:餐饮管理系统、提高服务水平、提高工作效率第一章系统需求分析系统功能需求分析随着现在连锁餐饮店的不断崛起,作为餐饮业不可缺少的一部分——餐饮管理系统,它的内容对于餐饮业的决策者和管理者来说都非常重要。
本系统基于餐饮管理系统之下的一个子系统,可以把整个餐饮店的日常经营管理信息化,包括点餐、库存管理、员工信息等日常经营的一些统计功能。
现在此系统还不够完善,将来使此系统会集成更多的功能,例如:餐饮管理系统的开发成功,实现了餐饮业的现代化,表明了餐饮管理正与国际化接轨,有了更为深入的发展。
Delphi课程设计
图书管理系统
姓名:
学号:
专业班级:
指导教师:
《Delphi数据库综合设计》课程综合性实验报告
end;
end.
四、实验结果及分析
截图1程序登陆界面
截图2 图书管理
截图3 借阅管理截图4 读者管理
截图5 图书查询截图6 借阅查询
截图7 读者查询
课程总结:
一学期的Delphi专业选修结束了,用了整整一周的时间完成了课程设计,通过使用可视化开发工具Delphi开发图书管理系统,学生实际动手能力以及自学其它系统开发工具的能力有所提高,同时发现平时学习中的许多不足之处。
例如,学生发现,在开发系统过程中,对数据库重要组件包括ADO控件、数据集组件和数据显示组件等的相关属性及方法不够熟悉,还不能在需要时纯熟、灵活地运用,在技术上无法实现梦寐以求的效果,留下许多缺憾。
本次课程设计的顺利完成,尤为感谢燕孝飞老师的辛勤教导。
本学期的课程中,他带领学生进入华丽的Delphi世界,使学生领略到Delphi7组件化的编程方式,面向对象的程序设计,使我进一步的为自己的计算机梦登上了更上的一层。
delphi课程设计一、课程目标知识目标:1. 理解Delphi编程语言的基本语法和结构;2. 学会使用Delphi的常用控件和组件,进行界面设计;3. 掌握Delphi编程中的事件处理和程序流程控制;4. 了解Delphi访问数据库的基本方法。
技能目标:1. 能够运用Delphi编程语言编写简单的程序;2. 培养学生独立设计、编写、调试程序的能力;3. 培养学生运用Delphi解决实际问题的能力;4. 提高学生的团队协作和沟通能力。
情感态度价值观目标:1. 激发学生对编程的兴趣,培养其主动学习的态度;2. 培养学生的创新意识和实践能力,使其勇于尝试新事物;3. 培养学生良好的编程习惯,注重代码的可读性和可维护性;4. 增强学生的自信心,使其在面对编程难题时保持积极的心态。
课程性质:本课程为实践性较强的课程,注重培养学生的动手能力和解决问题的能力。
学生特点:学生处于具有一定编程基础的高年级阶段,具备一定的逻辑思维能力和自主学习能力。
教学要求:结合Delphi编程的实际情况,采用案例教学、任务驱动等教学方法,引导学生主动参与,提高学生的实践操作能力。
在教学过程中,注重分层教学,满足不同学生的学习需求。
同时,关注学生的情感态度价值观培养,使其在掌握技能的同时,形成良好的编程素养。
通过分解课程目标为具体的学习成果,为后续教学设计和评估提供依据。
二、教学内容1. Delphi基本语法和结构:变量、常量、数据类型、运算符、表达式、流程控制语句(如If、For、While等)。
教材章节:第1章 Delphi基础入门2. 界面设计:使用常用控件(如Button、Edit、Label等)和组件,布局管理,菜单设计。
教材章节:第2章 界面设计与常用控件3. 事件处理:事件的概念,编写事件处理程序,事件与方法的关联。
教材章节:第3章 事件处理与程序设计4. 程序流程控制:顺序结构、分支结构、循环结构,异常处理。
教材章节:第4章 程序流程控制5. 数据库访问:数据库的基本概念,使用Delphi访问数据库的方法,SQL语言基础。
南京理工大学课程设计说明书作者: 学号:学院(系):计算机系专业: 计算机科学与技术题目: 工资管理系统2011 年 5 月目录一、概述 (3)二、需求分析 (4)三、系统设计 (5)四、系统实施 (8)五、系统测试 (8)六、收获和体会 (8)七、附录 (9)八、参考文献 (9)一、概述随着计算机技术的飞速发展,计算机在企业管理中应用的普及,利用计算机实现企业人事工资的管理势在必行。
对于大中型企业来说,利用计算机支持企业高效率完成劳动人事管理的日常事务,是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件;而工资管理是一项琐碎、复杂而又十分细致的工作,工资计算、发放、核算的工作量很大,一般不允许出错,如果实行手工操作,每月发放工资须手工填制大量的表格,这就会耗费工作人员大量的时间和精力,计算机进行工资发放工作,不仅能够保证工资核算准确无误、快速输出,而且还可以利用计算机对有关工资的各种信息进行统计,服务于财务部门其他方面的核算和财务处理,同时计算机具有着手工管理所无法比拟的优点。
例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高人事工资资管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
本系统开发的主要目的就是要使企事业单位工资管理实现计算机管理,采用公司现有的软硬件软件及科学的管理系统开发方案,建立人事工资管理系统,实现公司人事工资管理的计算机自动化。
使管理员能够有序地管理每一位职工的各项工资条款的发放以及员工个人台帐的生成,使企业运用现代化技术创造更多更高的经济效益。
该工资管理系统选用Delphi与Access进行开发,现在市场上有很多MIS的开发工具,如:Visual basic、Delphi、ASP等等,数据库开发工具又有很多种,如:Access,SQL Sever,Oracle等。
与其他开发工具相比,Delphi与Access有着自己的特点与优势。
《Delphi程序设计》实验报告实验名称:选择结构程序设计图1 程序代码图2图3图5 i f…then…else嵌套语句程序代码(2)编程实现输出3个数中的最大者。
上机操作步骤如下所示:图6 窗体图14 运行结果实验总结《Delphi程序设计》实验报告实验名称:循环结构程序设计图1 窗体图2 程序代码图4 程序代码实验题4输出100~999之间的所有“水仙花数”。
所谓“水仙花数”是指1个3位数,其各位数字立方和等于该数本身。
例如153是一个“水仙花数”,因为153=13+33+53。
上机操作步骤如下所示:图5 窗体图6 程序代码图7 运行结果思考与练习《Delphi程序设计》实验报告实验名称:标准组建的使用图1 初步测试窗体图2 显示、关闭按钮代码图4 测试ListBox组件窗体图6 测试ListBox组件运行结果3. 测试ComboBox组件利用ComboBox组件加入“天”输入/输出部分。
上机操作步骤如下所示:图7 测试ComboBox组件窗体图8 测试ComboBox组件运行结果4. 测试RadioGroup组件上机操作步骤如下所示:图10 测试RadioGroup组件运行结果思考与练习《Delphi程序设计》实验报告实验名称:对话框的使用图1 窗体图3 运行结果之一图5 文本颜色运行结果《Delphi程序设计》实验报告实验名称:菜单设计图1 窗体图2 设计好的窗体图4 另存为《Delphi程序设计》实验报告实验名称:文件的使用图1 “成绩管理”窗体图2 运行结果图3 删除图4 代码《Delphi程序设计》实验报告实验名称:数据库配置图1 创建数据表Customer 图2 Customer表中的数据图3 输入cu图4 输入cu表数据3. 使用BDE Administrator为Customer表配置数据库别名Customers图5 在BDE Administrator中设置数据库别名图6 选择路径4.使用BDE Administrator为CUST数据库配置别名图10 连接测试数据源《Delphi程序设计》实验报告实验名称:应用BDE组件对数据库操作图3 选择所有字段图4 选择数据显示方式图5 选择表单类型图7 运行结果之一图8 运行结果之二2. 使用Table和Datasource组件访问数据表上机操作如下所示:图10 显示cu表的内容3. 建立数据模块上机操作如下所示:图11 创建的数据模块图14 SQL语句编辑器图15 查询cu表的应用窗体图24 主从表实验运行结果之二实验总结。
目录课程设计任务书 (1)1、实验题目: (2)2、项目概述 (2)3、系统的功能需求 (2)3.1总体设计 (2)3.2系统功能 (2)3.3系统工作流程 (3)4、文本编辑器的详细设计 (3)4.1文本编辑器的界面设置 (3)4.1.1新建工程 (3)4.1.2修改窗口: (3)4.2文本编辑器的详细代码分析 (6)5.心得体会: (9)6.参考文献 (10)7.致 (10)8.附录 (10)课程设计任务书班级1、实验题目:文本编辑器2、项目概述程序大部分菜单都在窗体中对应有一个快捷图标。
包括新建、打开、保存、剪切、复制、粘贴、左对齐、右对齐、居中、文字加粗、文字倾斜、文字加下划线和文字大小等命令,在菜单中还包括字体颜色、窗体背景颜色等命令。
利用这些基本命令,可以很方便地处理很多文本文档。
该程序界面友好,当把鼠标放在快捷工具栏上时,程序会给出快捷菜单提示,同时,在窗体下方的中间,也有该快捷命令的说明文字。
首先要解决窗体的布局和设计问题。
然后给各个菜单和快捷工具栏中的按钮添加相关程序代码。
这个文本编辑器与一般的简易的文字编辑程序的制作有所不同。
首先,必须设置好菜单的属性及功能;其次,当所有的菜单都设计好之后,还必须对工具栏进行设计,工具栏的开发与设计是最具挑战性的工作,因为整个界面的美观都取决于工具栏的制作,而整个程序使用是否方便、快捷,也取决于工具栏的安排和属性的设置。
然后,还需进行一些细部的修饰,例如底部任务栏上的提示用语以及帮助菜单的设计等。
3、系统的功能需求3.1总体设计3.2系统功能该文本编辑器具有完整的菜单,大部分菜单都在窗体对应有一个快捷图标。
包括新建、打开、保存、剪切、复制、粘贴、做对齐、右对齐、居中、文字加粗、文字倾斜、文字下划线和文字大小等命令,在菜单中还包括字体颜色、窗体背景颜色。
利用这些命令,可以很方便地处理很多文本文档。
该程序界面有好,当把鼠标放在快捷工具栏上时,程序会给出快捷菜单提示,同时,在窗体下方的中间,也有该快捷命令的说明文字。
.word 可编辑 .学号: 09416305课程设计报告课程名称:Delphi程序设计题目:人事管理系统姓名:学院:专业班级:计算机 091指导教师:课程设计任务书班级计算机 091姓名李琳蕊一、设计题目:人事管理系统设计二、设计内容:本设计是制作一个人事管理系统,在该程序中具体功能要求见附件。
三、基本要求:1、对源程序编写的要求:(1)能够实现任务书中的功能;(2)尽可能使界面友好、直观、易操作;(3)源程序要有适当的注释,使程序容易阅读。
2、撰写“课程设计报告”,撰写要求见附件实习报告撰写排版要求。
3、课程设计验收要求:(1)运行所设计的系统;(2)回答有关问题;(3)提交课程设计报告和任务书;(4)提交源程序四、进度安排:1、系统分析、设计准备阶段: 4 学时2、编程调试阶段:32学时3、总结和书写报告阶段:2学时4、考核阶段: 2 学时指导教师:刘俊2011年1月 6 日目录人事管理系统 (5)1 、需求分析 (5)2 、程序要求 (5)1.功能模块图 (5)2 .系统界面 (6)2:登陆界面 (7)3: (12)4:更改界面 (20)5: MDICHild (26)6: (28)3. 创建数据库 (42)1、数据库的选择:ACCESS 2003数据库 (42)2、建表 (42)4 、系统设计 (46)5 、系统的使用说明 (46)6 、心得体会 (47)7 :致谢 (47)参考文献 (47)人事管理系统1、需求分析1.新员工资料输入。
2.自动分配员工号,并且设置初始的用户密码,能够分配权限执行不同的模块。
3.人事变动的详细记录,包括岗位和部门的调整。
4.员工信息的查询和修改,包括员工个人信息和密码等。
5.帮助。
2、程序要求1.功能模块图人事管理系统根新人员帮据员事工助权工变档限档更案登案查录输询入修改2.系统界面1:进入界面;代码: procedure Tqdform.FormCreate(Sender: TObject);varwindowid:hwnd;beginwindowid:=findwindow(nil,'F_main');if windowid<>0 thenbeginMessageBox(handle,' 错误:系统已经启动!',' 系统启动错误',MB_OK or MB_ICONERROR);// showwindow(foundwin,9);halt;end;end;end.2:登陆界面代码: unit login;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls,Inifiles;typeTF_login = class(TForm)Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;i_server_add: TComboBox;i_user: TEdit;i_passwd: TEdit;Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure FormShow(Sender: TObject);procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction); private{ Private declarations }public{ Public declarations }end;varF_login: TF_login;Inifile:TInifile;implementationuses DataModule, crypt, mainwin;{$R *.DFM}procedure TF_login.Button1Click(Sender: TObject);varpasswd, passwrd:String;beginapplication.CreateForm(TDataModule1,DataModule1); With DataModule1 dobeginDatabase.Connected:=False;Database.AliasName:=i_server_add.Text;Database.Connected:=True;T_user.Filter:='ID='''+i_user.Text+'''';T_user.Filtered:=True;T_user.Open;if T_user.RecordCount=1 thenbeginpasswd:=i_passwd.Text;if length(passwd)>5 thenbeginpasswd:=Copy(passwd+passwd,1,10);//统一密码长度passwd:=Encrypt(passwd,123);//加密end;passwrd:=T_user['PASSWD'];if (passwrd=passwd) and (T_user['AUTHORITY']='3') thenbeginF_main.login:=True;endelseApplication.MessageBox('请重新输入密码。
'+#13+'注意大小写!','密码错误 ',MB_OK);endelseApplication.MessageBox('请确认用户名大小写是否正确!','无此用户',MB_OK);T_user.Close;end;if F_main.login then F_login.Closeelse DataModule1.Free;end;procedure TF_login.FormShow(Sender: TObject);beginself.i_server_add.SetFocus;end;procedure TF_login.FormCreate(Sender: TObject);beginInifile:=TInifile.Create(extractfilepath(paramstr(0))+'SERVER.ini') ;if fileexists(extractfilepath(paramstr(0))+'SERVER.ini') thenbegini_server_add.Text:=inifile.ReadString('SERVER','SERVER NAME','');i_user.Text:=inifile.ReadString('SERVER','USER NAME','');end;end;procedure TF_login.FormClose(Sender: TObject; var Action: TCloseAction); beginif not fileexists(extractfilepath(paramstr(0))+'SERVER.ini') thenInifile:=TInifile.Create(extractfilepath(paramstr(0))+'SERVER.ini') ;inifile.WriteString('SERVER','SERVER NAME',i_server_add.Text);inifile.WriteString('SERVER','USER NAME',i_user.Text);inifile.Free;end;End.3:代码:unit add;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, StdCtrls, DBCtrls, Mask, ExtCtrls;typeTF_add = class(TMDIChild)Label1: TLabel;Label2: TLabel;Label3: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Label9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;i_department: TDBLookupComboBox;i_job: TDBLookupComboBox;i_edu_level: TDBLookupComboBox;Button1: TButton;i_user: TDBEdit;i_name: TDBEdit;i_birthday: TDBEdit;i_specialty: TDBEdit;i_address: TDBEdit;i_tel: TDBEdit;i_email: TDBEdit;i_remark: TDBMemo;i_passwd: TEdit;i_sex: TDBRadioGroup;DBLookupComboBox1: TDBLookupComboBox;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction); private{ Private declarations }procedure AddInit;public{ Public declarations }end;varF_add: TF_add;implementationuses DataModule, mainwin, crypt;{$R *.DFM}procedure TF_add.AddInit;varcounter:integer;id:String;beginWith DataModule1 dobegin//生成员工号T_counter.Filter:='ID=''P''';T_counter.Filtered:=True;T_counter.Open;counter:=T_counter['COUNTER_VALUE'];T_counter.Close;id:='00000'+IntT oStr(counter);id:='P'+Copy(id,length(id)-4,5);//增加新记录T_add_user.Open;T_add_user.Append;T_add_user['ID']:=id;T_add_user['SEX']:='M';T_add_user['STATE']:='T';i_passwd.Text:=id;end;end;procedure TF_add.FormCreate(Sender: TObject); beginF_main.M_add.Enabled:=False;F_main.TB_add.Enabled:=False;Width:=272;Height:=469;datamodule1.T_department.Open;With DataModule1 dobeginif not T_department.Active then T_department.Open;if not T_job.Active then T_job.Open;if not T_edu_level.Active then T_edu_level.Open;end;AddInit;end;procedure TF_add.Button1Click(Sender: TObject);varpasswd:String;counter:Integer;beginif length(i_name.Text)>0 thenbeginpasswd:=i_passwd.Text;passwd:=Copy(passwd+passwd,1,10);passwd:=Encrypt(passwd,123);With DataModule1 dobegin//累加员工编号计数器T_counter.Filter:='ID=''P''';T_counter.Filtered:=True;.word 可编辑 .T_counter.Open;T_counter.Edit;T_counter['COUNTER_VALUE']:=T_counter['COUNTER_VALUE']+1;T_counter.Post;T_counter.Close;//增加员工个人信息记录T_add_user.Edit;T_add_user['PASSWD']:=passwd;T_add_user.Post;//获取人事变动记录号T_counter.Filter:='ID=''C''';T_counter.Filtered:=True;T_counter.Open;counter:=T_counter['COUNTER_VALUE'];Inc(counter);T_counter.Edit;T_counter['COUNTER_VALUE']:=counter;T_counter.Post;T_counter.Close;//追加人事变动记录T_change.Open;T_change.Append;T_change['ID']:=counter;T_change['PERSON']:=i_user.Text;T_change['CHANGE']:='2';T_change['RECORD_TIME']:=Now;T_change['DESCRIPTION']:='加入公司。