| 公司人事管理系统Delphi7.0+SQL server 2000 MIS |
|
| 设计类别:Delphi毕业设计 文章来源:www.lw63.com 计算机论文 | 【字体:小 大】 |
企业人事管理是一项琐碎,繁杂而又非常细致的工作,一般是不允许发生差错的,它直接影响着劳动者队工作的积极性,是提高劳动生产力,提高企业活力的基础,在以往手工进行的办公工作中,需反复的进行各种抄写,计算等工作,不仅花费大量的时间,而且往往会出错。计算机应用于企业的人事信息处理处理,不仅可以使企业各类人员以最少的劳动和最短的实践取得足够的、可靠的、准确的信息。而且可以使他们从简单的数据统计、收集、汇总等重复繁重的事务中解脱出来。
毕业设计 www.lw63.com 论文路上
2.2.1 Delphi 7.0简介 Delphi是全新的可视化编程环境,为我们提供了一种方便、快捷的Windows应用程序开发工具。它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想,采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编辑器、最为领先的数据库技术。它简单易学、效率高,且功能强大,可以与Windows的专业开发工具SDK相媲美,使用Delphi开发应用软件,无疑会大大地提高编程效率。 DELPHI最显著的特点就是高效性和稳定性,总的来说,主要体现在以下6个方面: (1)可视化开发环境的性能。 (2)面向对象编程的概念。 (3)编译器的速度和已编译代码的效率。 (4)编程语言的功能及其复杂性。 (5)数据库结构的灵活性和扩展性。 (6)框架对设计和使用模式的扩充。
毕业设计 www.lw63.com 论文路上
|
字段名 |
数据类型 |
长度 |
主键否 |
功能描述 |
|
ssyf |
varchar |
15 |
|
所属工资月份 |
|
bh |
varchar |
5 |
是 |
员工编号 |
|
ygxm |
varchar |
10 |
|
员工姓名 |
|
Jbgz |
Float |
8 |
|
基本工资 |
|
jbf |
Float |
8 |
|
加班费 |
|
qqj |
Float |
8 |
|
全勤奖 |
|
zwjt |
Float |
8 |
|
职务津贴 |
|
qtje |
Float |
8 |
|
其它金额 |
|
kgf |
Float |
8 |
|
旷工费 |
|
ylbx |
Float |
8 |
|
养老保险 |
|
sybx |
Float |
8 |
|
失业保险 |
|
ylbx |
Float |
8 |
|
医疗保险 |
|
qtke |
Float |
8 |
|
其它扣额 |
|
yfgz |
Float |
8 |
|
应发工资 |
|
ykgz |
Float |
8 |
|
应扣工资 |
|
sfgz |
Float |
8 |
|
实发工资 |
|
bz |
varchar |
50 |
|
备注 |
毕业设计 www.lw63.com 论文路上
TTreeView是显示单位信息和员工信息,如果在设计时就设计好,在公司增加部门的时候就会无法添加,所以在这里是通过对单位信息表和部门信息表进行检索后动态地创建树形选项。在窗体的OnShow事件中添加如下代码: procedure Tfrm_ygxill.FormShow(Sender: TObject); var a,b:string; subt:TTreenode; begin with data1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from 人事表'); open; end; data1.ADOQuery1.Active:=true; with data1.ADOpublic do begin close; sql.Clear; sql.Add('select distinct 单位名称 from 单位信息表'); open; end; a:=data1.ADOpublic.FieldByName('单位名称').Value; subt:=Treeview1.Items.Add(nil,a); with data1.ADOpublic do begin close; sql.Clear; sql.Add('select distinct 部门名称 from 部门表'); open; end; while Not Data1.ADOpublic.Eof do begin b:=Data1.ADOpublic.FieldByName('部门名称').Value; Data1.ADOpublic.Next; Treeview1.Items.AddChild(subt,b); end; TreeView1.FullExpand; end;
|
|
|
|
|