人事管理系统 课程设计.docVIP

学号: 课程设计报告 课 程 名 称： Delphi程序设计 题 目： 人事管理系统 姓 名： 学 院： 专业班级： 计算机091 指 导 教 师： 课程设计任务书 班级 计算机091 姓名 李琳蕊 一、设计题目：人事管理系统设计 二、设计内容： 本设计是制作一个人事管理系统，在该程序中具体功能要求见附件。 三、基本要求： 对源程序编写的要求： （1）能够实现任务书中的功能； （2）尽可能使界面友好、直观、易操作； （3）源程序要有适当的注释，使程序容易阅读。 撰写“课程设计报告”，撰写要求见附件实习报告撰写排版要求。 课程设计验收要求： （1）运行所设计的系统； （2）回答有关问题； （3）提交课程设计报告和任务书； （4）提交源程序 四、进度安排： 1、系统分析、设计准备阶段：4学时 2、编程调试阶段：32学时 3、总结和书写报告阶段：2学时 4、考核阶段：2学时 指导教师： 刘俊 2011 年 1 月 6 日 目 录 人事管理系统 3 1、需求分析 3 2、程序要求 3 1．功能模块图 3 2．系统界面 4 2：登陆界面 5 3： 8 4：更改界面 12 5：MDICHild 15 6： 17 3.创建数据库 24 1、数据库的选择：ACCESS 2003数据库 24 2、建表 24 4、系统设计 29 5、系统的使用说明 29 6、心得体会 29 7：致谢 30 参考文献 30 人事管理系统 1、需求分析 1.新员工资料输入。 2.自动分配员工号，并且设置初始的用户密码，能够分配权限执行不同的模块。 3.人事变动的详细记录，包括岗位和部门的调整。 4.员工信息的查询和修改，包括员工个人信息和密码等。 5.帮助。 2、程序要求 1．功能模块图 2．系统界面 1：进入界面； 代码：procedure Tqdform.FormCreate(Sender: TObject); var windowid:hwnd; begin windowid:=findwindow(nil,F_main); if windowid0 then begin MessageBox(handle,错误：系统已经启动！,系统启动错误 ,MB_OK or MB_ICONERROR); // showwindow(foundwin,9); halt; end; end; end. 2：登陆界面 代码：unit login; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Inifiles; type TF_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; var F_login: TF_login; Inifile:TInifile; implementation uses DataModule, crypt, mainwin;