计算机毕业论文模板
XXXX学院
软件学院
毕业设计（论文）
论文题目：人事管理系统
指导老师：
学生姓名：学号:
专业：计算机科学与技术
2007年 12月 25日
安徽电子信息职业技术学院
软件学院
毕业设计（论文）任务书
题目：人事管理系统
任务与要求：
⑴开发平台采用Visual Basic+ACCESS。
⑵本课题包括人事管理（用户表、员工基本表、员工调动表、部门表、
部门调动、岗位表）实现以下功能：
员工的基本信息管理如：添加、修改、删除、退出。
换名登录：实现不同人员的登录，有一般人员和管理员。
退出系统：退出系统。
时间：2007年 10月22日至2007 年 12月25日共9周
学生姓名：XXXX学号：XXXX
专业：计算机科学与技术
指导教师：XXX
2007年12月25日
毕业设计(论文)进度计划表
日期工作内容执行情况指导教师
签字10月22日
至
准备并确定课题
10月25日
10月26日
至
上报计划进度
10月30日
11月1日
至
起草、撰写毕业论文
11月15日
11月16日
数据库结构设计和总体设计
至
11月22日
11月23日
系统界面设计和代码编写
至
12月12日
12月13日
系统调试和运行
至
12月17日
12月18日
修改、上交毕业设计
至
12月25日
教师对进
度计划实
施情况总
评
签名
年月日
目录
摘要 (5)
关键词 (5)
第一章关于VB和数据库的概述 (6)
§第一节关于VB的说明 (6)
§第二节关于ACCESS 2000 (8)
§第三节数据库系统概述 (8)
第二章人事管理系统概述 (9)
§第一节人事管理系统简介 (9)
§第二节企业信息化发展 (10)
第三章人事管理系统分析 (10)
§第一节系统初步调查 (10)
§第二节系统可行性分析 (11)
§第三节系统详细调查 (12)
§第四节系统的安全性 (12)
第四章人事管理系统设计 (13)
§第一节系统开发环境简介 (13)
§第二节人事分析 (13)
第三节系统模块划分、功能模块的说明 (13)
一登陆界面 (13)
二、基本表 (16)
三、岗位表 (20)
四、部门表 (23)
结束语 (27)
谢辞 (28)
参考文献 (289)
摘要
本论文是从现代企业管理中的人事管理现状出发，针对人事管理的复杂程序，经过详细的系统调查，开发出的操作简单而且方便实用的一个人事管理系统。由于计算机技术的飞速发展,数据库技术作为数据管理的一个有效的手段,在各行各业中得到越来越广泛的应用。因此,本文围绕一个?人事管理系统?程序的设计和应用系统的开发课题为背景,详细介绍了以VB和ACCESS为语言编写管理信息系统的过程。该程序通过VB的ADO数据对象来实现VB前台与后台ACCESS数据库的连接,并具有典型的数据库应用系统的特征,完成了系统结构与现实生活的紧密结合。
人事管理是企业管理的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如何管理好企业内部员工的信息，成为企业管理中的一个大的问题。在这种情况下，一个可以规范化、自动化的企业人事管理系统就显得非常必要。
人事管理系统就是把分散的企事业单位的职工信息实行统一、集中、规范的收集管理，建立分类编号管理、电脑存储查询以及防火、防潮、防蛀、防盗等现代化、专业化的管理系统，为企事业单位和职工解除后顾之忧。
企业人事管理系统为企事业单位提供信息咨询、信息检索、信息存取等服务。
本文实现的人事管理系统基本上能够满足现代企业人事管理的需求。信息录入项目齐全、完整、系统。现代人事管理系统灵活使用表格对各种信息分门别类，组成企业人事管理系统，可以方便地查询、阅读、修改、交流和重复使用。
关键词
人事管理系统面向对象数据库技术企业管理
第一章关于VB和数据库的概述
§第一节关于VB的说明
Visual Basic 6.0是由微软公司开发研制的一种面向对象的开发工具，也是Windows 应用程序开发工具，它提供了一套功能完整的工具，大大减少了编程人员的工作量，提高了应用程序的可靠性和运行效率。是系统开发人员首选的前台开发工具，因此我使用了Visual Basic 6.0进行本系统的开发。
何谓 Visual Basic？?Visual?指的是开发图形用户界面 (GUI) 的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。如果已使用过诸如 Paint 之类的绘图程序，则实际上已掌握了创建用户界面的必要技巧。?Basic?指的是 BASIC (Beginners All-Purpose Symbolit Instruction Code) 语言，一种在计算技术发展史上应用得最为广泛的语言。Visual Basic 在原有BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。
Visual Basic 不仅是Visual Basic 编程语言。Visual Basic 编程系统,MicrosoftExcel 的Applications Edition,Microsoft Access和Windows的许多其他应用程序都使用这一语言。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集。这样，在学习 Visual Basic 中得到的经验可应用到所有这些领域中。
从开发个人使用或小组使用的小工具，到大型企业应用系统，甚至通过Internet 的遍及全球分布式应用程序，都可在 Visual Basic 提供的工具中各取所需。
数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。
有了 ActiveX 技术就可使用其它应用程序提供的功能，例如 MicrosoftWord 字处理器，Microsoft Excel 电子数据表及其它 Windows 应用程序。甚至可直接使用 VBP 或VBE 创建的应用程序和对象。
Internet 功能强大，使得您很容易在应用程序内通过 Internet 或 Intranet访问文档和应用程序，或者创建 Internet 服务器应用程序。
已完成的应用程序是使用Visual Basic 虚拟机的真正 .exe 文件，您可以自由发布总的来说，Visual Basic具有以下特点：
可视化编程：
用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性?封装?起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种?部件?，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。
面向对象的程序设计
4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。
结构化程序设计语言
Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。
Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。
事件驱动编程机制
Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将
产生一个?单击?(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。
在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。。
§第二节关于ACCESS 2000
ACESS 2000不仅吸收了许多新的功能以增加系统的运行性能,而且还使数据库的管理工作更加轻松。在过去,数据库都是安装在服务器或是工作站上的,所用的操作系统都是UNIX或专用系统,价格相对较高,ACCESS 2000可以安装在个人计算机上,价格要低的多。ACCESS 2000可以使操作系统具有应用程序数据库,并被优化支持未连接用户或移动用户。它也用于在单用户机器上进行小型应用程序的开发,能够很好的满足我们的需要。
ACESS 简介：Access 2000是一种关系数据库管理系统(RDBMS)。顾名思义，关系数据库管理系统是数据库管理软件，它的职能是维护数据库、接受和完成用户提出的访问数据的各种请求。
ACCESS特点：
Access是一个中、小型关系数据库管理系统。
Access又是一个完全面向对象，采用事件驱动机制的最新关系数据库管理系统，使得数据库的应用与开发更加便捷、灵活。
Access是一个同时面向数据库最终用户和数据库开发人员的关系数据库管理系统。
Access是一个典型的开放式数据库管理系统。
Access支持多媒体的应用与开发。
Access既可以在单用户环境下工作也可以在多用户环境下工作，并且具有完善的安全管理机制。
Access内置了大量的函数。
Access提供了许多宏操作。
Access提供了联机帮助功能。
§第三节数据库系统概述
数据库系统是指在计算机系统中引入数据库后的系统,一般由数据库、数据库管理系
统、应用系统、数据库管理员和用户构成。应当指出的是,数据库的建立、使用和维护等工作只靠一个DBMS远远不够,还要有专门的人员来完成,这些人被称为数据库管理员。
在一般不引起混淆的情况下常常把数据库系统简称为数据库。
数据库技术是应数据管理任务的需要而产生的。
随着计算机技术的发展,其应用远远地超出了这个范围。在应用需求的推动下,在计算机硬件,软件发展的基础上,数据管理技术经历了人工管理、文件系统、数据库系统三个阶段。
与人工管理和文件系统相比,数据库系统的特点主要有以下几个主面:
数据的结构化；
数据的共享性高,冗余度低,易扩充；
数据独立性高；
数据由DBMS统一管理和控制。
目前,数据库己经成为现代信息系统的不可分离的重要组成部分。具有数百万甚至数十亿字节信息的数据库己经普遍存在于科学技术、工业、农业、商业、服务业和政府部门的信息系统。20世纪80年代后不公在大型机上,在多数微机上也配置了DBMS,使数据库技术得到了更加广泛的应用和普及,是计算机领域中发展最快的技术之一。
第二章人事管理系统概述
§第一节人事管理系统简介
一、人事管理系统（HR MS）的发展历史
1.人力资源管理系统的革命性变革出现在20世纪90年代末。由于市场竞争的需要，如何吸引和留住人才，激发员工的创造性、工作责任感和工作热情已成为关系企业兴衰的重要因素，人才已经成为企业最重要的资产之一。?公正、公平、合理?的企业管理理念和企业管理水平的提高，使社会对人力资源管理系统有了更高的需求；同时由于个人电脑的普及，数据库技术、客户/服务器技术，特别是In ter net/In tra net技术的发展，使得第三代人力资源管理系统的出现成为必然。第三代人力资源管理系统的特点是从人力资源管理的角度出发，用集中的数据库处理几乎所有与人力资源相关的数据（如薪资福利、招聘、个人职业生涯的设计、培训、职位管理、绩效管
理、岗位描述、个人信息和历史资料）统一管理起来，形成了集成的信息源。友好的用户界面，强有力的报表生成工具、分析工具和信息的共享使得人力资源管理人员得以摆脱繁重的日常工作，集中精力从战略的角度来考虑，能够设定企业的成本中心并按成本中心将薪资和总账连接起来，直接生成总账凭证，还能存储完备的历史信息供查询和生成报表；这类系统也可处理部分简单的人事信息。
2.培训管理系统。培训管理系统一般通过培训需求调查、预算控制、结果评估和反馈以及培训结果记载等手段，实现培训管理的科学化，并且和人力资源信息有机地联系起来，为企业人力资源的配备和员工的升迁提供科学的依据。
3.考勤管理程序烦琐,要让人力资源管理人员可以从繁琐的日常工作中解脱出来，将精力放到更富有挑战性和创造性的人力资源分析、规划、员工激励和战略等工作中去。完整的历史信息记载了员工从面试开始到离职整个周期的薪资、福利、岗位变迁、绩效等信息。同时由于这类系统可管理较全面的人力资源和薪资数据，因而还可以生成许多综合性的报表供企业决策人员参考，如生成按岗位的平均历史薪资图表，员工配备情况的分析图表，个人绩效与学历、技能、工作经验、接受过的培训等关系的分析等等。
§第二节企业信息化发展
1、随着信息时代的到来,随着企业规模的扩大，其管理组织会变得越来越庞大和困难，而信息的处理与使用也变得越来越重要。
2、在规划和建设一个企业的管理信息系统时，有可能误认为企业的管理信息系统就是在企业原有管理模式上加入计算机信息处理。其实，一个好的管理信息系统绝不是企业原有的管理模式和计算机信息处理的简单相加，信息化的发展使计算机和软件成为企业日常管理中的必然。
第三章人事管理系统分析
§第一节系统初步调查
一、应用人事管理系统的必要性
1．现在不少企业都用到了人事管理系统,人力资源的现状有一个比较全面和准确的认识，同时也可以生成综合的分析报表供企业领导人在决策时参
考。这就提高了企业的管理水平。
二。人事管理系统实施的特点及注意事项
1．要想通过人事管理系统来提高企业的管理水平，光是选取一个好的或比较好的、适合本企业特点的人事管理软件还是远远不够的。人事管理软件通常只是发挥应有的效用，必须通过培训转变人们的思维方式和行为方式，学会通过系统来进行科学的管理。
2．改进企业的相关制度和信息结构。要充分地回顾本企业的相关政策和信息组成，充分利用人事管理系统改进企业的人事管理。
3．明确基础上的实施目标。要明确整个项目的实施计划和目标，明确需要采集的信息,确保计划和目标的协调,让人事管理系统发挥最大的作用.
§第二节系统可行性分析
人事管理系统在企业中占有极其重要的地位，它关系着企业内部每个职员的档案，其中包括新职员的增加，职员档案的查找，职员的详细资料等等。对于企业来讲，人事管理系统是不可缺少的组成部分，它有效地管理企业的员工，对企业内部人事的流动和分配起着重要的管理作用，它正确地反映着企业的人事变化。
（企业管理业务流程图）
企业负责人（厂长、经理）
销售部主管
人事部主管
生产部主管
财务部主管
根据企业对人员管理的需要，开发一个?人事管理系统?，开发目的如下：
1．能够对员工的有关资料进行输入，修改，删除。
2．能够为企业提供强大的查询功能，以便企业主管了解和掌握各职员的具体情况。
3．能够提供员工的考勤信息及调动信息。
4．能够对员工的资料数据进行备份，以作为相关的历史资料。
§第三节系统详细调查
（一）功能需求
（二）基于以上的开发目标，系统开发的范围确定如下：本系统只涉及人事资料部分，不包括工资,部门资料以及部门之间的调动 .
§第四节系统的安全性
信息的透明和安全是一对矛盾而又息息相关的关系。
本程序考虑到系统的安全性，主要设置了用户登录论证，其中包括初始用户登录验证和再次用户登录验证，并且需要进行密码校验，保证了信息的?可控?透明性。而且，为了提供企业日后需要的各期历史资料，本系统还提供数据备份功能，使原始资料的保留更为方便，并且能够进行新旧资料的对比，使企业主管对各期人员变动更好的了解，为以后的决定打下良好的基础。
开始
提示登录本程序
输入用户密码
调用密码检测子程序
显示错误
进入人事管理系统
第四章人事管理系统设计
§第一节系统开发环境简介
选择微软平台作为主导，一方面考虑目前微软的飞速发展，越来越多的企业在规划内部网络时，将微软平台作为首选方案；另一方面从技术角度来讲，微软平台上的应用无论是在开发上，还是在软件的部署上都非常容易，而且性能优越。
操作系统：Windows XP
数据库为：MS Access 2000
开发工具与语言: Visual Basic 6.0
§第二节人事分析
人事管理系统
用户管理
基本资料管理
添加打印修改删除
部门管理
添加筛选修改删除
岗位表
添加修改删除退出
员工调动
添加修改调动删除
第三节系统模块说明
一登陆界面
输入用户名:LiuWei 输入密码:123456
如果你的用户名和密码输入错误,单击?确定?,系统就会提示你输入错误。连续三次输入不正确系统就会提示你：?你已登陆三次?，需要退出重新进入。
输入正确进入系统主界面：（如下图所是）
从主界面可以看到上面的菜单栏有：?系统?、?人事管理??员工调动??部门管理?，菜单下设有子菜单，以便快速查找和调用,如果换名登陆可以在?系统?里有个下拉菜单?换名登陆?，就可以修改了。
下面的这段代码是登陆系统之后进入主界面，在这个界面里看到?系统?在下面的子菜单有个?换名
登陆?这个代码就是实现换名登陆的，当我们不想用管理员的身份进去的时候，就可以以普通用户的方
式重新进入系统。
Private Sub Command1_Click()
Dim sSearch As String
'On Error GoTo ERR_Loigan
If Len(Trim(Text1.Text)) = 0 Then
MsgBox "用户名不可以为空，必须填写！"
Text1.SetFocus
Exit Sub
End If
If Len(Trim(Text2.Text)) = 0 Then
MsgBox "密码不能为空，必须填写！"
Text2.SetFocus
Exit Sub
End If
sSearch = "select * from yh"
sSearch = sSearch & " where uid='" & Trim(Text1) & "'"
sSearch = sSearch & " and Pwd='" & Trim(Text2) & "'"
cnn.Open strcnn
rs.Open sSearch, cnn
If rs.BOF And rs.EOF Then
MsgBox "用户名或密码不正确，请重新输入。"
Text1.SetFocus
intNumber = intNumber + 1
Else
curnuser.uid = Trim(rs!uid)
curnuser.pwd = Trim(rs!pwd)
curnuser.dj = Trim(rs!dj)
curnuser.xh = Trim(rs!xh)
rs.Close
cnn.Close
Unload Me
MDIForm1.Show
Exit Sub
End If
If intNumber >= 3 Then
MsgBox "登录超过3次，系统关闭!"
Unload Me
Exit Sub
End If
rs.Close
cnn.Close
Exit Sub
ERR_Login:
If Err.Number <> 0 Then
MsgBox Err.Description, , "错误"
Err.Clear
End If
If rs.State = adStateOpen Then
rs.Close
End If
If cnn.State = adStateOpen Then
cnn.Close
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ ‘数据库的连接’ App.Path & "\SRSM.mdb;Persist Security Info=False"
Label5.Caption = ""
Label3.FontBold = True
Label3.FontSize = 20
Label3.FontItalic = True
Label3.ForeColor = RGB(25, 26, 147)
Timer1.Enabled = False
Timer2.Enabled = False
Timer1.Interval = 1000: Timer2.Interval = 100
Timer1.Enabled = True
Timer2.Enabled = True
Label5.Caption = "系统时间是：" & Hour(Time) & "时" & Minute(Time) & "分" & Second(Time) & "秒" ‘这段代码是实现主界面的时间的’
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{TAB}", 1
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{TAB}", 1
End If
End Sub
Private Sub Timer1_Timer()
Label5.Caption = "系统时间是：" & Hour(Time) & "时" & Minute(Time) & "分" & Second(Time) & "秒"
End Sub
Private Sub Timer2_Timer()
If Label3.Left < frmloigan.Width Then
Label3.Left = Label3.Left + 40
Else
Label3.Left = -Label3.Width
End If
End Sub
登陆界面的编写，中间加了时间的设置，还有滚动的字体从中美化窗体。
让登陆窗体更加完善美观
二、基本表
实现基本人员的管理以及岗位和部门的筛选，在次基础上进行添加、修改、删除，保证人员的灵活性，假如，我们要添加个新的成员，单击?添加?按扭，就出现添加的对话框，根据上面的提示添加人员的基本信息，单击?确定?。
下面这个表是人员的调动表，可以实现人员在其内部的调动，岗位的变动和部门的调动。
主要的是按岗位，部门筛选，可以很容易找到自己要筛选的结果。
在主界面里有?基本信息?里有?基本人员?，打开?基本人员?子菜单就会出现上面的窗体
从上面的信息里可以看出：该窗体只是查询人员的基本信息，通过?岗位?和?部门?查询自己想要的信息，单击筛选就得到结果了。
从上面的图片中可以看到?添加?下面代码是打开?添加?这个窗体，实现添加信息的
Private Sub Command1_Click()
frmtj.Show
End Sub
上面的显示信息是查询得到的，如果里面的信息已经没用了或者可以删除了，这个代码就是实现删除的，我们在删除的时候要选择你要删除的对象，然后单击?删除?。Private Sub Command2_Click()
If Len(tempjb.yhbh) = 0 Then
MsgBox "请选择要修改的员工。"
Exit Sub
End If
frmjbxg.Show
End Sub
Private Sub Command3_Click()
Dim strcmm As String
Dim transflag As Boolean
'On Error GoTo ERR_cmm
If Len(tempjb.yhbh) = 0 Then
MsgBox "请选择要删除的员工编号"
Exit Sub
End If
strcmm = "delete from jb where yhbh='" & tempjb.yhbh & "'"
'strcmm = "delete from jb where ygbh='" & tempjb.yhbh & "'"
cnn.Open strcnn
transflag = True
cnn.BeginTrans
With cmm
.ActiveConnection = cnn
.CommandText = strcmm
.CommandType = adCmdText
.Prepared = True
.Execute
End With
https://www.360docs.net/doc/3e4649916.html,mitTrans
transflag = False
cnn.Close
With MSFlexGrid1
.RemoveItem .Row
End With
tempjb.bm = ""
tempjb.cjgzrq = ""
tempjb.gw = ""
tempjb.csrq = ""
tempjb.xb = ""
tempjb.jbgz = ""
tempjb.zz = ""
tempjb.zc = ""
tempjb.yhbh = ""
tempjb.lxdh = ""
tempjb.xm = ""
End Sub
下面代码的功能是实现显示上面图中所显示的内容的，显示在窗体中。Private Sub Command4_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim sSearch As String
Dim i As String
Combo1.Text = ""
Combo1.AddItem "一般职工"
Combo1.AddItem "领导"
Combo1.AddItem "技术员"
Combo2.Text = ""
Combo2.AddItem "生产部"
Combo2.AddItem "销售部"
Combo2.AddItem "宣传部"
With MSFlexGrid1
.Cols = 11
.Rows = 1
.Col = 0
.Row = 0
.Text = "员工编号"
.Col = 1
.Text = "姓名"
.Col = 2
.Text = "性别"
.Col = 3
.Text = "住址"
.Col = 4
.Text = "出生日期"
.Col = 5
.Text = "职称"
.Col = 6
.Text = "联系电话"
.Col = 7
.Text = "基本工资"
.Col = 8
.Text = "参加工作日期"
.Col = 9
.Text = "岗位"
.Col = 10
.Text = "部门"
.ColWidth(0) = 800
.ColWidth(1) = 800
.ColWidth(2) = 800
.ColWidth(3) = 800
.ColWidth(4) = 800
.ColWidth(5) = 800
.ColWidth(6) = 1800
.ColWidth(7) = 800
.ColWidth(8) = 1800
.ColWidth(9) = 800
.ColWidth(10) = 800
End With
sSearch = "select * from jb"
If rs.State = 1 Then rs.Close
rs.Open sSearch, strcnn
'On Error GoTo err_Sel
While (Not rs.EOF) And (Not rs.BOF) MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 'MSFlexGrid1.Text = MSFlexGrid1.Row MSFlexGrid1.Col = 0
MSFlexGrid1.Text = rs!yhbh
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = rs!xm
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = rs!xb
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = rs!zz
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = rs!csrq
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = rs!zc
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = rs!lxdh
MSFlexGrid1.Col = 7
MSFlexGrid1.Text = rs!jbgz
MSFlexGrid1.Col = 8
MSFlexGrid1.Text = rs!cjgzrq
MSFlexGrid1.Col = 9
MSFlexGrid1.Text = rs!gw
MSFlexGrid1.Col = 10
MSFlexGrid1.Text = rs!bm
rs.MoveNext
Wend
End Sub
Private Sub MSFlexGrid1_Click()
With MSFlexGrid1
.Col = 0
tempjb.yhbh = .Text
.Col = 1
tempjb.xm = .Text
.Col = 2
tempjb.xb = .Text
.Col = 3
tempjb.zz = .Text
.Col = 4
tempjb.csrq = .Text
.Col = 5
tempjb.zc = .Text
.Col = 6
tempjb.lxdh = .Text
.Col = 7
tempjb.jbgz = .Text
.Col = 8
tempjb.cjgzrq = .Text
.Col = 9
tempjb.gw = .Text
.Col = 10
tempjb.bm = .Text
End With
End Sub
三、岗位表
主要对岗位的管理，从所在的岗位可以看出所在的部门，以便对岗位的管理，此表也可以进行添加、修改、删除以便保证信息的更新。