delphi课程设计报告书.docx

.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);

var

windowid:hwnd;

begin

windowid:=findwindow(nil,'F_main');

if windowid<>0 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;

{$R *.DFM}

procedure TF_login.Button1Click(Sender: TObject);

var

passwd, passwrd:String;

begin

application.CreateForm(TDataModule1,DataModule1); With DataModule1 do

begin

Database.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;