企业人事管理系统设计过程

XXX毕业技术报告企业人事管理系统设计过程学生姓名XXX系部名称XXX系专业班级XXX班学 号XXXXXXXXX指导教师XXXXXXXXX教务处二一一年三月18企业人事管理系统设计过程 学生：XXX 指导老师：XXX内容摘要：现在计算机已深入到各个领域，并且形成了功能强大、覆盖全球的信息传输网络。各个领域都向系统化.规范化,自动化的方向发展，使得工作效率、工作成绩和生活水平都日益提高。人事管理是现代每个企业必不可少的。人事管理系统的主要任务是对人事档案进行整理，使得能方便快捷地对人事档案进行查询、统计、更新，并且能按一定要求输出报表。通过该系统，使企业的人事管理工作系统化、规范化、自动化，从而提高企业人事管理的效率。它能够具体化、合理化的管理单位的人事信息，用结构化的思维方式运用计算机解决实际工作和生活中遇到的的问题。系统初始化、档案更新、档案查询、档案打印、档案编辑等。该系统性能在于易于使用，具有较高的安全性。所以详细论述使用Visual Basic开发的一个人事数据库管理系统，利用其提供的各种面向对象的开发手段，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象。关键词：面向对象 数据化 人事管理 vb 目 录一、概述1（一）系统概述1（二）主要问题分析1（三）解决方案1二、系统分析2（一）初步分析2 （二）系统功能分析2（三）系统可行性分析2三、系统设计3（一）概述3（二）数据流程与存储分析3（三）系统功能结构分析3（四）数据库设计5（五）系统主界面设计6（六）程序源代码说明9四、系统实施概况16（一）系统开发环境16（二）系统测试17 （三）测试方法17（四）测试用例17五、结束语18参考文献18企业人事管理系统设计过程一、概述 （一）系统概述 本论文主要介绍的是企事业使用的人事管理系统的整个设计。随着社会科技的发展，商品经济化的高效益，使计算机的应用已经普及到经济和社会生活的各个领域.随着科学技术的不断提高，计算机日趋成熟，其强大的功能已为人们深刻认识，作为计算机应用的一部分，使用计算机对单位的人事档案信息进行管理，具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大的提高一个单位人事管理的效率。因此，开发出这样一套管理软机成为很有必要的事情，它能够具体化、合理化的管理单位的人事信息，用结构化的思维方式运用计算机解决实际工作和生活中遇到的的问题。 随着计算机技术的不断发展，计算机应用于各大领域，并给人们的生活带来了极大的便利，在人员管理系统亦是。以往企事业人事员由于缺乏适当的软件而给其工作带来了很多不便。本论文所介绍的便是一个企事业人事管理系统及其设计过程，以方便其在人事安排和人事管理上的工作任务。 该系统适用于各企事业人事管理人员，其功能主要分为以下几类： 系统初始化、档案更新、档案查询、档案打印、档案编辑等. 该系统性能在他易于使用，具有较高的安全性。（二）主要问题分析需求分析：人事管理系统可以应用于支持企业完成劳动人事管理工作，有如下三个方面的目标。1支持企业实现规范化管理,如员工工作区域的定位。2支持企业高效率完成劳动人事管理的日常业务，包括新员工加入人事档案的建立，老员工转出，辞职，退休等,并可以进行员工个人资料的修改,删除等常规操作。3. 支持企业进行劳动人事管理及相关方面的科学决策和在相关部门在需要时,可在本系统中根据自己设定的条件进行快速查找（可以进行组合查找）。系统问题分析:以前的人事管理工作大部分还是进行着手工管理，工作起来效率很低，并且不能及时了解各类员工的实际情况，也无法快速地进行员工信息的查询等操作，不便于动态及时地调整人事资料，以便更好地适应当前经济形势发展的需要和本企业管理的先进性。手工管理还存在许多弊端，由于不可避免的人为因素，经常造成数据的遗漏、误报。计算机信息化管理有着储存信息量大、速度快等许多优点，及时快捷地提供给我们处理信息，同时也提高了我们工作人员的自身素质。（三）解决方案鉴于目前企业对人事管理系统的需求与实际情况，新系统方案的重点放在利用计算机及时地调整企业人事管理系统，形成对各类员工一整套动态的管理过程。本人事管理系统采用面向对象的开发方法。它是一种基于对象的自底向上的一种系统开发方法，这种方法的特点是以对象为基础，对象是分析问题和解决问题的核心。它要求按人们通常的思维方式建立问题领域的模型，设计出尽可能自然表现求解方法的软件.且具有以下特性:通用性;标准化;先进性;实用性。 二、系统分析（一）初步分析通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括：1. 功能需求。确定新系统应做什么，这是最主要的需求。2性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、安全保密性等。3 环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。4. 未来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变化以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做准备。一旦需要时，就比较容易进行补充和修改了。（二）系统功能分析开发这个系统的目的就是要帮助企业的人力资源部门提高工作效率，实现企业人事信息管理系统的系统化、规范化和自动化. 其工作流程为：用户登录通过权限判断，普通用户只能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。系统的主要功能特点有:1. 登录表单该表单的功能是在系统被访问之前，要对进入系统的用户进行安全性检查防止非法用户进行系统破坏数据及威胁系统安全，避免不必要的损失，只有合法的用户在输入正确的密码后方可进入系统。2. 以keyi 功能，用户可以操作，同时可以进行浏览和查询的操作 主界面在该界面窗口中，共有文件、数据、编辑、关于等所有系统功能，用户可以操作菜单的方式快捷地使用系统。3. 更改密码使用本表单可以方便地修改用户的密码，以防密码泄露后对数据的安全性造成威胁。4信息处理在本表单中操作人员进行员工档案信息录入及更改，其中包括员工的基本行信息，工作经历，家庭关系，奖罚记录和培训经历，要求这些员工档案信息可以进行新增，删除，修改操作，同时可以进行浏览和查询的操作。该模块是本系统的重点，用户可以通过该模块为单位建立一个比较完整的人事档案系统，同时可以比较方便地对档案进行查看。（三）系统可行性分析 可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。可行性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。可行性分析主要包括几个方面：1. 新系统目标可行性：分析新系统的目标是否符合企业的现状和发展的需要。随着国内经济的发展，各行各业都在飞速的进步，在管理上的人才就越发的紧张，为了能更好的节省管理费用和管理人员的压力，企业都在力求为自己减压。2. 技术可行性分析:技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬软件等的要求。随着国内软件开发的日益发展壮大，各种中小企事业单位已具备独立开发各种类型的软件的能力，能够满足不同行业的特别的需求。而这个系统尽管其在组织关系上存在着很大的复杂性，繁琐性，但是就整个系统的技术构成上来看，它还是属于一个数据库应用类的系统。其基本操作还是对存在数据库进行添加、删除、查找、编辑等。3. 经济可行性分析:经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认其是否会给企业带来经济效益。对于整个系统而言，在系统未运行之前，初期投资比较大，花费相对而言比较多。各部门必须配置电脑、打印机、传真机及相关的网络设备，但是在整个系统投入运行之后，因为现在计算机已经普及了，相关的人员培训费可以减少很多。而同时又减少了数据的流通环节，不必要花费那么多的时间，也就是说最重要的是就是提高了效率，而又保证了各项数据的准确性，也避免了工作人员的流动造成的收据丢失等问题，适应了当前的发展形式。4. 管理可行性分析:管理可行性分析主要是分析企业现行的管理体制是否具适合现代管理水平。随着时代的发展，人员素质己逐步提高，不论是对于电脑系统的基本操作还是对于系统的维护都有了一定的基础。同时还可以配置专业的电脑维护人员来维护电脑，不必担心电脑故障问题。三、系统设计（一）概述通过系统分析来确认所开发的产品是否具有一定的市场。在根据现行的办公常用软件来使各个企业能在最短的时间内熟知此软件的具体功能和其能给自己公司所带来的经济效益是否与它的实际价值相符。（二）数据流程与存储分析人事管理系统是一个面向企业人事人员，为其提供服务的综合信息管理系统。人事人员通过本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。人员的个人信息、以及各种相关的亲属等情况开课情况都记录在人事系统里进行管理。然而数据流程是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。数据流程是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，但却无法表达各个处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。数据流程及数据存储都是基于数据库来说的，一个好的数据库能很好地把这两方面给结合起来。其实存储就只是数据流程里的一个比较特别的过程，它包括数据的打开、保存、另存为、打印等一些快捷方式。 （三）系统功能结构分析本系统分为以下几大模块：图1 系统模块图主界面模块：该模块提供管理系统的主界面，是主系统的唯一入口和出口，该界面提供用户选择并调用各子模块。浏览模块：该模块提供全部人事档案的界面。查询模块：该模块提供查询符合某一条件的人事档案的界面。统计模块：该模块提供按某一条件进行统计的界面。编辑模块：该模块提供对按档案进行更改、删除和新增的界面。表单模块：该模块按一定格式将人事档案以表格式输出。由下图可以看出本系统的功能及结构：系统主界面系统登陆界面错误信息系统管理输入用户名及密码验证用户名和密码用户名不存在或密码不正确数据库登陆成功系统功能界面系统功能处理图2 系统功能结构图根据上面的简图我们可以得知人事管理系统基本功能如下的说明： 数据录入：提供两种信息录入方式：列表录入、模板录入,用以满足不同用户的需要。数据的删除修改：对数据的最基本的操作,保证数据正确性和完整性,为其他操作打好基础。数据的查询：用户可以直接快速地查阅和打印系统中的员工个人信息（如人员情况、工资情况、职称评定、保险福利和决策支持等信息）；也可以做出各种复杂的查询, 为了领导作出准确判断提供数据的支持。账号的管理：实现了对用户分组管理，并且可对用户的数据访问权限、功能操作权限进行设置，大地保证了操作的安全性、严谨性及保密性。日志的管理：使用人员把自己使用过程记录下来。系统安全性：每个用户均有自己的权限，由系统管理员统一设定，同时针对同一权限，每个用户有自己的口令、密码，输入口令不正确，将无法进入相应的模块。同时文件的传递过程中可以对文件进行加密、签名等，不允许看的用户将无法阅读该文档。（四）数据库设计数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一直性。同时，一个合理的数据库结构有利于程序的实现。如下几个表格：表1 员工信息表字段字段名类型宽度索引排序是否为空1职工编号数值型9否2姓名字符型20否3性别字符型4否4民族字符型10否5出生日期日期型10否6身份证号码字符型18否7毕业学校字符型20否8学历字符型10否9部门字符型10否10职称字符型12否11电话字符型12否12Email字符型20否13编辑时间日期型8否14备注备注型100否表2 员工加班和出差信息表字段字段名类型宽度索引排序是否为空1职工编号数值型9Null2出差时间数值型4Null3加班时间数值型4Null4出差性质字符型10Null5加班性质字符型10Null6出差补贴数值型10Null7加班补贴数值型10Null8备注备注型100Null表3 员工请假信息表字段字段名类型宽度索引排序是否为空1员工编号数值型9Null2请假编号字符型8Null3起始日期日期型8Null4终止日期日期型8Null5请假天数数值型2Null6请假原因字符型50Null7批准人字符型20Null8备注备注型50Null表4 员工工资数据表字段字段名类型宽度索引排序是否为空1工资编号字符型20Null2员工编号数值型9Null3年份数值型4Null4月份数值型2Null5基本工资数值型8Null6加班补贴数值型8Null7出差补贴数值型8Null8交通补助数值型8Null9生活补助数值型8Null10总工资数值型8Null11考勤口除数值型8Null12保险扣除数值型8Null13假期扣除数值型8 Null14税扣数值型8Null15总扣除数值型8Null16实际工资数值型8Null17编辑时间日期型10Null18备注备注型50Null（五）系统主界面设计因为人事资料管理牵涉到个人隐私及公司密秘等多方面因素，所以一定要保密，并有专人管理，使用前身份确认就显得非常重要,故在运行前要进行管理权限确认。以防止他人无意或恶意篡改。1. 系统主界面主窗体是工程的启动对象，本作品中窗体名为：FrmMain 其界面如下图：图3 主界面图主要属性有：系统、基本信息、考勤管理、工作评价管理、工资管理和帮助。2. 编辑员工基本信息员工信息查询窗体，它主要是用于快速查找到所需的信息，以免毫无头绪地查询资料。它的界面如下图：图4 员工信息查询窗体图员工信息修改窗体主要是员工在部门、职称或学历等改变时，进行修改，让员工的信息始终处于最新状态，以方便企业管理人员的查阅。图5 员工信息修改窗体图员工信息添加窗体是在有新的员工加入或企业内子公司调配时，对这些人员在本单位建立新的基本信息表。图6 员工信息添加窗体图（六）程序源代码说明 1. 用户登陆窗体Private Sub cmdOK_Click()验证用户填写的是否正确If txtUserName.Text = Then MsgBox 请填写用户名！, vbOKOnly + vbInformation, 注意 txtUserName.SetFocus Exit SubElseIf txtPassword.Text = Then MsgBox 请填写密码！, vbOKOnly + vbInformation, 注意 txtPassword.SetFocus Exit SubEnd If设置登录变量，这是为IsExistUser函数而设置的g_blogin = TrueIf IsExistuser(txtUserName.Text, txtPassword.Text) Then用户登录成功 Unload MeElse If IsExistuser(txtUserName.Text, ) Then MsgBox 密码不正确！请重试, vbOKOnly + vbInformation, 错误 Else MsgBox 无此用户！请先注册, vbOKOnly + vbInformation, 错误 End IfEnd IffrmMain.Show End Sub2. 员工基本信息窗体Public Sub ShowData() Dim cmd2 As Command Dim rs2 As Recordset定义新command对象 Set cmd2 = New Command打开连接 If DataE.conLibrary.State = adStateClose Then DataE.conLibrary.Open End If设置ActiveConnection属性 cmd2.ActiveConnection = DataE.conLibrary设置CommandText属性 If flagSearch Then cmd2.CommandText = sql Else cmd2.CommandText = select * from ManInfo End IfSet rs2 = cmd2.ExecuteIf rs2.EOF = False Then With msgList .Rows = 1 Do While Not rs2.EOF .Rows = .Rows + 1 For i = 1 To 12 Select Case rs2.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i) = Format(rs2.Fields(i - 1) & , yyyy-mm-dd) Case Else .TextMatrix(.Rows - 1, i) = rs2.Fields(i - 1) & End Select Next i rs2.MoveNext Loop End WithEnd Ifrs2.CloseEnd Sub3. 员工信息查询窗体Private Sub cmdSearch_Click() Dim sqltxt As String Dim wheretxt As String 初始化Sqlstr和Wherestr sqltxt = select * from ManInfo wheretxt = 判断Combobox选项 If cmbItem.ListIndex = 0 Then 无 Else If txtKey.Text Then Select Case cmbItem.ListIndex Case 1 姓名 wheretxt = wheretxt + ygName= & txtKey & Case 2 部门 wheretxt = wheretxt + ygDept= & txtKey & Case 3 职称 wheretxt = wheretxt + ygBusi= & txtKey & Case 4 学历 wheretxt = wheretxt + ygLevel= & txtKey & End Select End If End If 详细条件 姓名关键字 If chkName.Enabled And chkName.Value = 1 And txtName.Text Then If wherestr Then If optNameAnd.Value Then wheretxt = wheretxt + and Else wheretxt = wheretxt + or End If End If wheretxt = wheretxt + ygName like % & txtName & % End If 部门关键字 If chkDept.Enabled And chkDept.Value = 1 And txtDept.Text Then If wheretxt Then If optDeptAnd.Value Then wheretxt = wheretxt + and Else wheretxt = wheretxt + or End If End If wheretxt = wheretxt + ygDept like % & txtDept & % End If 职称关键字 If chkBusi.Enabled And chkBusi.Value = 1 And txtBusi.Text Then If wheretxt Then If optBusiAnd.Value Then wheretxt = wheretxt + and Else wheretxt = wheretxt + or End If End If wheretxt = wheretxt + ygBusi like % & txtBusi & % End If 学历关键字 If chkLevel.Enabled And chkLevel.Value = 1 And txtLevel.Text Then If wheretxt Then If optLevelAnd.Value Then wheretxt = wheretxt + and Else wheretxt = wheretxt + or End If End If wheretxt = wheretxt + ygLevel like % & txtLevel & % End If 进入时间 If chkTimeKey.Enabled And chkTimeKey.Value = 1 Then If optnKeyFore.Value Or optnKeyBack.Value Then If txtYearKeyFore.Text = Or txtMonKeyFore.Text = Then MsgBox 请完整填写查询时间！, vbOKOnly + vbInformation, 查询 Exit Sub End If If wheretxt Then If optnTimeand.Value Then wheretxt = wheretxt + and Else wheretxt = wheretxt + or End If End If 之前 If optnKeyFore.Value Then wheretxt = wheretxt + ygDate4 & txtYearKeyFore.Text + - + txtMonKeyFore.Text & End If ElseIf optnKeyBetween.Value Then If txtYearKeyFore.Text = Or txtMonKeyFore.Text = Or txtYearKeyBack.Text = Or txtMonKeyBack.Text = Then MsgBox 请完整填写查询时间, vbOKOnly + vbInformation, 查询 Exit Sub End If If wheretxt Then If optnTimeand.Value Then wheretxt = wheretxt + and Else wheretxt = wheretxt + or End If End If 之间 wheretxt = wheretxt + ygDate4 between & txtYearKeyFore.Text + - + txtMonKeyFore.Text & and & txtYearKeyBack.Text + - + txtMonKeyBack.Text & End If End If 综合所有条件 If wheretxt Then wheretxt = where + wheretxt End If flagSearch = True sql = sqltxt + wheretxt frmManrecord1.ShowTitle frmManrecord1.ShowData frmManrecord1.Show frmManrecord1.ZOrder 0End Sub4. 员工信息添加保存窗体Private Sub cmdSave_Click()Dim intCount As Integer验证重要信息已经填写If txtItem(0).Text = Then MsgBox 请填写编号！, vbOKOnly + vbInformation, 注意 txtItem(0).SetFocus Exit SubElseIf txtItem(1) = Then MsgBox 请填写姓名！, vbOKOnly + vbInformation, 注意 txtItem(1).SetFocusEnd If判断内容是否为日期格式(生日)If txtItem(6) Then If Not IsDate(txtItem(6) Then MsgBox 应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(6).SetFocus Exit Sub End IfElse txtItem(6) = #1/1/1900#End If判断内容是否为日期格式(参加工作时间)If txtItem(10) Then If Not IsDate(txtItem(10) Then MsgBox 应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(10).SetFocus Exit Sub End IfElse txtItem(10) = #1/1/1900#End If判断内容是否为日期格式(职称时间)If txtItem(12) Then If Not IsDate(txtItem(12) Then MsgBox 生日应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(12).SetFocus Exit Sub End IfElse txtItem(12) = #1/1/1900#End If判断内容是否为日期格式(入党时间)If txtItem(14) Then If Not IsDate(txtItem(14) Then MsgBox 生日应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(14).SetFocus Exit Sub End IfElse txtItem(14) = #1/1/1900#End If判断内容是否为日期格式(进入公司时间)If txtItem(16) Then If Not IsDate(txtItem(16) Then MsgBox 生日应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(16).SetFocus Exit Sub End IfElse txtItem(16) = #1/1/1900#End If判断内容是否为日期格式(起薪时间)If txtItem(17) Then If Not IsDate(txtItem(17) Then MsgBox 生日应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(17).SetFocus Exit Sub End IfElse txtItem(17) = #1/1/1900#End If判断内容是否为日期格式(调入时间)If txtItem(18) Then If Not IsDate(txtItem(18) Then MsgBox 生日应输入日期（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtItem(18).SetFocus Exit Sub End IfElse txtItem(18) = #1/1/1900#End IfDataE.Commands(cmdman).CommandText = delete from ManInfo where ygid= & Trim(txtItem(0) & DataE.conLibrary.CloseDataE.conLibrary.OpenDataE.cmdMan将员工信息加入到中DataE.conLibrary.CloseDataE.conLibrary.OpenOn Error GoTo exit1If Not IsExistuser(txtItem(0), ) Then添加用户 DataE.cmdAddManInfo txtItem(0), txtItem(1), cmbUnit.Text, cmbSex.Text, txtItem(4), txtItem(5), txtItem(6), txtItem(7), txtItem(8), txtItem(9), txtItem(10), txtItem(11), txtItem(12), txtItem(13), txtItem(14), txtItem(15), txtItem(16), txtItem(17), txtItem(18), txtItem(19), txtItem(20) MsgBox 注册成功！, vbOKOnly + vbInformation, 注意 txtItem(0) = txtItem(1) = cmbUnit.ListIndex = 0 cmbSex.ListIndex = 0 For intCount = 4 To 20 txtItem(intCount) = Next intCountElse用户已存在 MsgBox 该编号已经存在！请重新输入一个新的编号, vbOKOnly + vbInformation, 注意 txtItem(0).Text = txtItem(0).SetFocusEnd IfExit Sub错误信息exit1: MsgBox 数据未成功写入数据库！, vbOKOnly + vbInformation, 注意 Exit SubEnd Sub5员工信息删除窗体Private Sub ygDel_Click() Dim sql As String Dim Msg As String Dim n As Integer If flagEdit Then If frmManrecord1.msgList.Rows 1 Then If MsgBox(真的要删除这条记录么？, vbOKOnly + vbOKCancel + vbExclamation, 警告) = vbOK Then n = frmManrecord1.msgList.Row sql = delete from manInfo where ygID= & Trim(frmManrecord1.msgList.TextMatrix(frmManrecord1.msgList.Row, 1) & DataE.Commands(cmdMan).CommandText = sql DataE.conLibrary.Close DataE.conLibrary.Open DataE.cmdMan flagEdit = True frmManrecord1.ShowTitle frmManrecord1.ShowData End If End If Else MsgBox 请选择要删除的记录！, vbOKOnly + vbExclamation, 警告 DataE.Commands(cmdMan).CommandText = select * from manInfo frmManrecord1.Show frmManrecord1.ZOrder 0 End If End Sub四、系统实施概况 （一）系统开发环境系统是在Microsoft公司的Visual Basic下开发完成的。作为数据库系统的开发，Visual Basic是一个非常理想选择。它是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序.它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。1. 动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据. Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。2. 对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(