delphi人员管理系统

编写：魏庆福 审核： 批准：

2010年5月

2日 . 目录

目录„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„„2 1.数据库设计„„„„„„„„„„„„„„„„„„„„„„„„„„„„3

1.1数据库命名规则„„„„„„„„„„„„„„„„„„„„„„3 1.2数据库表汇总„„„„„„„„„„„„„„„„„„„„„„„3 1.3数据库表设计„„„„„„„„„„„„„„„„„„„„„„„4 1.3.1学员基本信息„„„„„„„„„„„„„„„„„„„„„4

2.系统概述„„„„„„„„„„„„„„„„„„„„„„„„„„„„„5

2.1系统来源„„„„„„„„„„„„„„„„„„„„„„„„„5 2.2系统意义„„„„„„„„„„„„„„„„„„„„„„„„„5 2.3系统目标„„„„„„„„„„„„„„„„„„„„„„„„„6 2,4面向对象„„„„„„„„„„„„„„„„„„„„„„„„„6

3.系统总体设计„„„„„„„„„„„„„„„„„„„„„„„„„„„6

3.1技术体系„„„„„„„„„„„„„„„„„„„„„„„„„6 3.2运行环境„„„„„„„„„„„„„„„„„„„„„„„„„6 3.2.1硬件环境„„„„„„„„„„„„„„„„„„„„„„„6 3.2.2软件环境„„„„„„„„„„„„„„„„„„„„„„„6 3.3系统总体架构„„„„„„„„„„„„„„„„„„„„„„„6 3.3.1系统用例„„„„„„„„„„„„„„„„„„„„„„„6 3.3.2系统功能框架„„„„„„„„„„„„„„„„„„„„„7 3.3.3数据模型„„„„„„„„„„„„„„„„„„„„„„„9

4.系统功能设计„„„„„„„„„„„„„„„„„„„„„„„„„„„10

4.1系统主界面模块„„„„„„„„„„„„„„„„„„„„„„10 4.2登录模块„„„„„„„„„„„„„„„„„„„„„„„„„10 4.2.1功能描述„„„„„„„„„„„„„„„„„„„„„„„10 4.2.2数据流图„„„„„„„„„„„„„„„„„„„„„„„10 4.2.3操作流程„„„„„„„„„„„„„„„„„„„„„„„11 4.2.4相关算法„„„„„„„„„„„„„„„„„„„„„„„12 4.2.5界面设计„„„„„„„„„„„„„„„„„„„„„„„13 4.3学员信息增加模块„„„„„„„„„„„„„„„„„„„„„14 4.3.1功能描述„„„„„„„„„„„„„„„„„„„„„„„14 4.3.2数据流图„„„„„„„„„„„„„„„„„„„„„„„14 4.3.3操作流程„„„„„„„„„„„„„„„„„„„„„„„14 4.3.4相关算法„„„„„„„„„„„„„„„„„„„„„„„15 4.3.5界面设计„„„„„„„„„„„„„„„„„„„„„„„15 4.4学员信息查询模块„„„„„„„„„„„„„„„„„„„„„16 4.4.1功能描述„„„„„„„„„„„„„„„„„„„„„„„16 4.4.2数据流图„„„„„„„„„„„„„„„„„„„„„„„16 4.4.3操作流程„„„„„„„„„„„„„„„„„„„„„„„16 4.4.4相关算法„„„„„„„„„„„„„„„„„„„„„„„17 4.4.5界面设计„„„„„„„„„„„„„„„„„„„„„„„18

.1数据库设计

.1.1数据库命名规则

数据库命名以“db”开头加下划线和拼音简码组合而成

数据库名称 db_Xyglxt 说明 学员管理系统 数据库表采用中文

表 名 学员基本信息表 系统管理表 用户口令表

说明

存储学员信息。 存储管理员信息 存储用户名和口令

字段采用中文或拼音简码

字段名 xh 姓名 说明 学号 姓名

.1.2数据库表汇总 学员信息表

字段名 说明 学员号 Number 姓名 Name 性别 Sex 身份证号 IDCard 民族 MZ 报到时间 BaoDao 照片 Photo 系统管理表(Xitong) 字段名 说明 Yonghuming 用户名 密码 Mima 联系电话 Dianhua 管理级别 Jibie 家庭地址 Dizhi 所属单位 Suoshu 类型 A A A A A D G 20 20 2 18 4 类型 A A A S A A 宽度 30 30 30 40 100 宽度 其它 主键 LIST:XB LIST:LB 其它 主键 学员成绩表

字段名 Number Name shuxue yingyu wangluo Delphi gongcheng pingmian pingjun zongchengji 说明 学员号 姓名 数学 英语 计算机网络 Delphi程序设计 网络工程设计 平面设计 平均成绩 总成绩 类型 A A S S S S S S S S 20 30 4 4 4 4 4 4 4 4 宽度 其它 主键 考核表

字段名 xybh sksj qjsj cdcs ztcs kksj khr khyf khpj 说明 学员编号 上课时间 请假时间 迟到次数 早退次数 旷课时间 考核人 考核月份 考核评价 类型 A S S S S S A S A 长度 8 6 6 5 5 6 15 8 100 其它 主键

1.3数据库表设计 1.3.1学员基本信息表

(1) 标识：Student (2) 中文名：学员信息表

(3) 说明：存储了学员的基本信息。

(4) 表结构： 字段名 编号 姓名 出生日期 性别 标识符 ID NAME BIRTH SEX 类型 单位 主键 外键 A (6) Y A (200) D 备注 1 2 3 4

A (4) (5) 字段说明:(1)编号：字符型，用ID作为标识符，并将其设为主键； (2) 姓名：字符型，用NAME作为标识符；

(3) 出生日期：日期时间型，用BIRTH作为标识符； (4)性别：字符型，用SEX作为标识符；

2.系统概述 .2.1系统来源

一直以来学员管理都是我们所关心的问题，所以该系统主要是服

务于学员队管理方面，进一步方便队干部、教员的工作和学员的学习。从而使队干部和教员更加方便的管理学员，也可以使学员更加清晰的认识自己。可以肯定它将学员队的管理的使用过程中其优点将得到最充分的体现。

.2.2系统意义

使我掌握了数据库应用程序里的各项应用技术，更使我更加深入

了解了Delphi管理数据库的应用，也使我认识到自己的不足，使我明确了自己下一步需要学习的方向。

.2.3系统目标

方便队干部、教员更好、更方便的对学员进行管理。

.2.4面向对象

队干部、教员、学员和系统管理员

.3系统总体设计 .3.1技术体系

本项目采用C/S的技术体系。

.3.2运行环境 .3.2.1硬件环境

机器配置要求为：x86以上的cpu，256mb以上的内存

.3.2.2软件环境

1)操作系统windows 98,windows xp,Linux

2)数据库及数据源配置：Database Desktop管理表和数据 3)开发工具：Delphi

.3.3系统总体架构 .3.3.1系统用例

学员管理 用户 用户管理 管理员 系统管理

描述用户使用系统的情况

.3.3.2系统功能框架

描述系统功能模块的划分及各个功能模块的主要功能和任务

学员管理系统 系统登录 学员管理信息 系统管理 信息的删除 信息的添加 信息的修改 信息的查询 报表 统计 用户管理 工具 删除 添加 修改 查询

登陆模块：用户进入主界面的路径

学员模块：增加学员、删除学员、修改学员信息、查询学员的具体情况、报表及统计

系统模块：用户管理，工具

用户模块：对用户进行删除、添加、修改、查询操作 工具模块：计算器、笔记本

此外还有

文件模块：备份数据库、恢复数据库、压缩数据库、清理数据库、退出 设置模块：修改个人密码、管理员设置、参数设置

.3.3.3数据模型

用实体—联系图描述系统的数据模型。

学员号 姓名 性别 身份证号 民族 报到时间 照片 学员 维护 管理 管理员 用户 姓名 密码 联系方式 用户名 密码 联系方式

.4系统功能设计 .4.1系统主界面模块

.4.2登录模块 .4.2.1功能描述

用户通过输入正确的用户名和口令登录到主界面，进而对会员进行查询。

.4.2.2数据流图

学员管理系统 学员管理 关于本系统 介绍系统的优缺点和注意事项讲解 操作步骤帮助初学者 进入登陆界面 正式进入主界面进行其它操作

.4.2.3操作流程

打开学员系统进入界面 可选则学员管理系统 也可选择查看关于系统的一些介绍 登录 进入主界面模块

.4.2.4相关算法

procedure TForm5.Button1Click(Sender: TObject); begin

with self.Table1 do //针对 table1 的操作 begin

self.Table1.SetKey; //查询模式

self.Table1.FieldByName('User').AsString:=edit1.Text;//将table1中字段zh的每一项数据转化为string 并与edit1中输入的值想匹对

if gotokey then //如果有相对应的，指针指向那一条记录 begin

if self.Table1.FieldByName('Password').AsString=self.Edit2.Text then

begin

self.IsOK:=true; Form5.Close(); end else begin

self.Edit2.Clear;

showmessage('密码不正确，请重新输入'); end; end else begin

self.Edit1.Clear; self.Edit2.Clear;

showmessage('帐号不存在，请重新输入'); end; end; end; end.

.4.2.5界面设计

.4.3学员信息增加模块

.4.3.1功能描述

可通过点击添加按钮对学员信息进行添加，也可以增加新学员。

.4.3.2数据流图

管理员 学员增加 学员显示

.4.3.3操作流程

学员管理系统 登录 学员管理 添加 成功显示

.4.3.4相关算法

procedure TForm3.Button1Click(Sender: TObject);

begin

with self.Table1 do begin

self.Table1.Append;

Table1.FieldByName('Id').AsString:=self.Edit1.Text; Table1.FieldByName('Name').AsString:=self.Edit2.Text; Table1.FieldByName('Sex').AsString:=self.Edit3.Text; Table1.FieldByName('IdCard').AsString:=self.Edit4.Text; Table1.FieldByName('MZ').AsString:=self.Edit5.Text;

Table1.FieldByName('BaoDao').AsDateTime:=StrToDate(self.Edit6.Text);

.4.3.5界面设计

.4.4学员信息查询模块

.4.4.1功能描述

可根据学员的学号、姓名等信息进行查询学员的详细情况。 .4.4.2数据流图

管理员 查询 符合查询条件的学员信息显示

.4.4.3操作流程

进入学员信息查询 输入相关信息开始查询 找到 找不到 增加 修改 删除 退出

.4.4.4相关算法

procedure TForm2.Button1Click(Sender: TObject); var

ls_sql,ls_clause:ansistring; begin

ls_clause:='';

if CheckBox1.Checked then begin

ls_clause:=ls_clause+'ID='''+Edit1.Text+''''; end;

ls_sql:='select * from PERS ';

if ls_clause<>'' then ls_sql:=ls_sql+'where '+ls_clause; ls_sql:=ls_sql+' order by ID '; if CheckBox2.Checked then begin

ls_clause:=ls_clause+'Name='''+Edit2.Text+''''; end;

ls_sql:='select * from PERS ';

if ls_clause<>'' then ls_sql:=ls_sql+'where '+ls_clause; ls_sql:=ls_sql+' order by Name '; if CheckBox3.Checked then begin

if ls_clause<>'' then ls_clause:=ls_clause+' and '; ls_clause:=ls_clause+'sex='''+ComboBox1.Text+''''; end;

query1.Close;

query1.SQL.Clear;

query1.SQL.ADD(ls_sql); query1.prepare; query1.Open; end;

.4.4.5界面设计