毕业论文范文——人才管理系统

37目 录前言2第一章 系统描述31.1开发工具31.2系统开发环境5第二章 数据库设计72.1数据库需求分析72.2数据库结构的实现8第三章 系统总体设计103.1系统功能描述103.2数据流程分析113.3系统功能模块设计11第四章 系统详细设计134.1启动程序设计134.2用户登录设计144.3主窗体界面的设计194.4技术人才管理窗体设计214.5管理人才管理窗体设计344.6关于系统窗体设计36第五章 系统的调试与注意事项37结束语38致谢39参考文献39前 言随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已经为人们深刻认识，他已经进入人类社会的各个领域，并发挥着越来越重要的作用。作为新世纪的大学生，理应站在时代发展的前列，掌握现代科学技术知识，调整自己的知识结构和能力结构，以适应社会发展的要求。新世纪需要具有丰富现代科学知识、能够独立解决面临任务、充满激情、具有创新意识的新型人才。二十一世纪什么最贵？是人才！现在我国的某些单位对人才的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。在学校，我学习的是计算机专业，三年的专业知识学习，确实学到了不少东西，但是理论与实践是大不相同的，为了能够学以致用，同时也为了检验自己学习水平，所以我针对人才管理方面开发了一套实用的系统程序。在作为计算机应用的一部分,使用计算机对人才信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、稳定性好、寿命长、成本低等。这些优点能够极大地方便人才信息的管理，使的人才管理工作系统化、规范化、自动化，科学正规化，从而大大提高人才管理的效率。这样既能发挥计算机在现实生活中的实用功能，方便人才的管理，及人才的基本信息，也检验了所学专业在生活中发挥的作用，体现出计算机的优越性。编写系统程序时，我使用的是VB程序，Visual Basic 是一种可视化的面向对象和采用事件驱动方式的结构化高级程序设计语言，它效率高，功能强大，可与Windows的专业开发工具SDK相媲美，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。由于这是初次编写，难免会有不足之处，有幸得到了辅导老师的指点，帮助解决了不少的问题，使得系统能够及时地开发完成，然而在今后系统的应用当中，该程序还会在实际应用中不断完善，发挥本系统本应有的作用。第一章 系统描述一、开发工具本软件用Visual Basic 6.0开发系统。Visual Basic 是一种可视化的，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学，效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编制机制，新颖易用的可视化设计工具，使用Windows内部的应用程序接口（API）函数，以及动态链接库（DLL）,动态数据交换（DDE），对象的链接与嵌入（OLE）,开放式数据连接（ODBC）等技术，可以高效，快速地开发出Windows环境下功能强大，图形界面丰富的应用软件系统。随着版本的提高，Visual Basic的功能也越来越强。5.0版以后，Visual Basic推出了中文版，与以前各版相比，其功能有了质的飞跃，已忧为32位，全面支持面向对象的大型程序语言。在推出6.0版时，Visual Basic又在数据访问，控件，语言，向导及Internet支持等方面增加了许多新的功能。Visual Basic有以下的主要特点：1.可视化编程在用传统在用传统程序设计语言来设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中去修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic 提供了可视化设计工具，把Windows界面设计的复杂性：“封装”起来，开发人员不必为界面设计而编写大量程序代码，只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2. 面向对象的程序设计4.0版特别是5.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言（C+）不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法（OOP），把程序和数据封装起来作来一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码封装起来。每个对象以图形方式显示在界面上，都是可视的。3结构化程序设计语言Visual Basic是在BASIC和Quick BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式，其语句简单易懂：其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误，在设计Visual Basic程序的过程中，随时可以运行程序，而在整个应用程序设计好之后，可以编译生成可执行的文件（.EXE）,脱离Visual Basic环境，直接在Windows环境下运行。4事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”（Click）事件，而在产生该事件将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程，这些过程分别面向不同的对象，由用户操作引发某个事件来驱动执行某种特定的功能，或者由事件驱动程序调用通用来执行指定的操作。这样可以方便编程人员，提高效率。5访问数据库Visual Basic系统具有很强的数据库管理功能。利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如Btrieve,Dbase,Foxpro,Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接（Open Database Connectivity）,即ODBC功能，它可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server,Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问Server上的数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户服务器（Client/Server）方案。以上介绍了Visual Basic的一些主要特性。除上述特性外，Visual Basic还提供了其他一些功能，包括动态数据交换（DDE），对象的链接与嵌入（OLE）,动态链接库（DLL）,Internet组件下载，建立自己的ActiveX控件，ActiveX文档以及远程自动化工具直接支持远程操作，ActiveX数据对象（ADO）和ADO数据控件，远程数据对象（RDO）和远程数据控件（RDC）,并用有声明，触发，管理自定义事件的功能等。Visual Basic数据库应用程序有3个部分，即数据引擎，数据库和应用程序。数据库引擎是数据库驱动程序，使用它，程序员可以用统一的格式访问各种数据库，不管这个数据库是本地的Access数据库，还是所支持的其他任何格式的数据库，其中所使用的数据访问对象和编程技术都是相同的。使用VB应用程序访问数据库时，Jet引擎被包含在一组动态链接库DLL文件中。运行时，这些文件被引用到VB程序中，Jet引擎将应用程序的请求翻译成对.mdb(Access文件后缀)文件或其他数据库的物理操作。Jet引擎真正读取，写入和修改数据库，并处理所有内部的事务。数据库是包含数据库表的一个或多个文件。对于本地Access数据库来说，就是.mdb文件。二、 系统开发的环境1硬件环境：主机：586及其以上的微机和兼容机；内存：至少32M；硬盘自由空间：容量至少1G，数据所需空间视使用情况而定；2软件配置操作系统：Windows2000/xp以上数据库管理系统：Access 2000设计语言：Visual Basic 6.0第二章 数据库设计一、数据库需求分析2.1.1：Access数据库的特点数据库是存储在计算机内，有组织，可共享的数据集合。数据库中的数据按一定的数据模型组织，描述和存储，具较小的数据冗余度，较高的数据独立性和可扩展性，并且数据库中的的数据可为各种合法用户共享。Access 2000 是微软公司的Microsoft Office 2000系列软件中的一个重要组成部分。它是一个运行与Windows平台上的关系数据库管理系统，通过各种数据库对象对数据进行控制和管理。2.1.2：Access 2000的主要功能如下所述。 定义表，利用表存储相应的信息。 定义表之间的联系，利用表中相关的字段链接不同的表。 强大的数据处理能力。 创建Web页。 开发应用程序。Access 2000还提供了管理大量数据所需要的数据定义，数据操作和数据控制功能。Access 2000 支持ODBC（开放式数据库连接）特性，用户能够访问许多外部数据库（如Oracle和Sybase等）的数据。二、数据库结构的实现经过前面的需求分析以后，得到数据库的逻辑结构。现在就可以在Access数据库中创建数据表了。221：创建数据库在设计数据库表结构之前，首先要创建一个数据库。本系统使用的数据库为“人才信息.mdb”。222设计表结构数据库包括三张表：管理人才表，技术人才表，密码表。下面分别介绍这些表结构。1密码表编号字段名称数据类型说明1用户名文本保存用户名，主键2密码文本保存用户密码2管理人才表：编号字段名称数据类型说明1职工编号文本主键，必填字段2姓名文本必填字段3性别文本必填字段4国别文本5民族文本6年数字7月数字8日数字9专业文本10身份证号文本11婚姻状况文本12文化程度文本13政治面貌文本14技术职称文本15主要特长文本16工作经历备注17主要业绩备注3技术人才表：编号字段名称数据类型说明1职工编号文本主键，必填字段2姓名文本必填字段3性别文本必填字段4民族文本5年数字6月数字7日数字8文化程度文本9政治面貌文本10技术职称文本11主要特长文本12工作经验备注13主要研究成果备注第三章、系统总体设计一、系统功能描述人才管理系统的基本功能是对企业、事业单位的组织机构和员工进行管理，本系统的主要功能如下：1. 技术人才信息管理l 添加技术人才信息，包括姓名、职工编号、性别、民族、出生日期等信息、l 修改技术人才信息l 删除技术人才信息l 查询技术人才信息2. 管理人才信息管理l 添加管理人才信息，包括姓名、职工编号、性别、民族、出生日期等信息l 修改管理人才信息l 删除管理人才信息l 查询管理人才信息3. 用户管理l 添加新用户l 修改用户密码4. 系统管理l 数据信息备份l 退出系统二、数据流程分析本系统只是一个对人才信息的储存和管理，数据流程简单。此时的数据流程如图所示。录入查询删除技术人才管理人才修改数据流程图三、系统功能模块设计从功能描述的内容可以看到，本系统可以实现五个完整的功能。根据这些功能，设计出的系统功能模块如图2-1所示。每个功能模块都需要针对不同的表完成相同的数据库操作，即添加记录,修改记录,删除记录，及查询和显示记录。添加技术人才信息修改技术人才信息删除技术人才信息查询技术人才信息添加新用户修改用户密码修改管理人才信息添加管理人才信息删除管理人才信息退出系统数据库备份系统管理用户信息管理人才管理系统技术人才信息管理管理人才信息管理查询管理人才信息图2-1系统功能模块设计图第四章 系统详细设计一、 启动程序设计程序代码如下：Private Sub Timer1_Timer()If Label1.FontSize 40 ThenLabel1.FontSize = Label1.FontSize * 1.5ElsefrmLogin.Show 1Unload MeEnd IfEnd Sub二、用户登录程序设计用户登录的作用是判断使用本程序的用户是否是合法用户。在程序进入用户登录程序时要求输入用户名和密码，如果用户密码正确程序继续执行。当密码错误输入的次数超过设定次数时，给出提示信息程序退出，这样就防止了非法用户对本程序的使用。事实上这是一个密码输入、密码保存和密码正确性的判断的问题。工作界面的设计.用户登录的工作界面要放在启动界面上，但是不能破坏启动界面的整体效果，为此设计用户登录的工作界面，如下图4-1所示。图 4-1 用户登录窗体这介界面的背景是启动界面的一部分,调用用户登录后在这个图片的原位置显示登录界面,这样启动界面的完整性得以保证.由于这个用户登录界面上只有一个文本框,因此就不研究控件了。“请输入密码”这几个字是做在图上的 密码输入的程序设计密码输入的一般操作为：（1）输入密码，在输入密码时一般要隐藏密码 的真实字符；（2）核对密码的正确性。这里应注意，在密码输入法时应用其它字符代替密码字符，一般用“*”号。核对密码的正确性就是用预设密码和当前输入的密码进行比较，以判断密码输入的正确性，这里实际上是一个密码保存的问题。密码保存的方便做法是将密码放在程序里，作为程序的组成部分，即在程序中安排一个固定的字符串作为密码，作为密码输入的字符串和这个固定的字符串做比较。如果密码正确程序继续运行，否则退出程序。这种做法最大问题是密码不能更换，一旦密码泄露也就无密可保。将密码放在一个文件里，每次输入密码时从密码文件中读出密码，然后作密码输入是否正确的判断也是一个办法。使用文件保有存密码最大的好处是密码可以随时更换，如晨将密码加密后再存入文件，那么即使知道文件中数据是密码，也不会知道真的密码组成。这种办法的最大缺陷是，一但密码文件损坏或被删除，程序就不能使用了。程序代码如下：Option ExplicitPublic LoginSucceeded As BooleanDim connConnection As ADODB.ConnectionDim rsRecordSet As ADODB.Recordset检查正确的密码Private Sub cmdOK_Click()Dim strConnect As StringDim strProvider As String Dim strDataSource As String Dim strDataBaseName As String strProvider = Provider= Microsoft.Jet.OLEDB.3.51; strDataSource = App.Path strDataBaseName = 人才信息.mdb; strDataSource = Data Source= & strDataSource & _ strDataBaseName strConnect = strProvider & strDataSource Set connConnection = New ADODB.Connection connConnection.CursorLocation = adUseClient connConnection.Open strConnect Set rsRecordSet = New ADODB.Recordset account = txtUserName.Text pt = txtPassword.Text rsRecordSet.CursorType = adOpenStatic rsRecordSet.CursorLocation = adUseClient rsRecordSet.LockType = adLockPessimistic rsRecordSet.Source = select * from 密码表 where 用户名= & txtUserName.Text & rsRecordSet.ActiveConnection = connConnection rsRecordSet.Open If (rsRecordSet.RecordCount = 0) Then MsgBox 无此用户名, , 登录 Else If (rsRecordSet.Fields(密码).Value = Trim(txtPassword.Text) Then Form1.Show Me.Hide Else MsgBox 无效的密码，请重试!, , 登录 txtPassword = txtPassword.SetFocus numlogin = numlogin + 1 If numlogin = 3 Then MsgBox 错误输入已达3次，系统退出！, vbOKOnly + vbExclamation, 警告 Unload Me Exit Sub End If End If End If connConnection.Close Set connConnection = NothingEnd SubPrivate Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False Unload MeEnd Sub 系统管理界面的设计用户管理界面的窗体如图-2所示。图4-2 用户管理窗体用户管理窗体设计的代码如下：Option ExplicitDim strque As StringDim strcon As StringDim stropen As StringDim strtext As StringPrivate connConnection As ADODB.ConnectionPrivate rsRecordSet As ADODB.RecordsetPrivate Sub Command3_Click() If Text5.Text = Then MsgBox 新密码为空！, vbOKOnly Exit Sub End If stropen = select * from 密码表 strtext = select * from 密码表 where 用户名 = & account & rsRecordSet.Source = strtext rsRecordSet.Open If rsRecordSet.RecordCount = 0 Then MsgBox 无此用户！, vbOKOnly Exit Sub Else If Text5.Text Text6.Text Then MsgBox 两次输入密码不同！, vbOKOnly Else rsRecordSet.Fields(0) = account rsRecordSet.Fields(1) = Text5.Text rsRecordSet.Update MsgBox 密码修改成功！, vbOKOnly rsRecordSet.Close End If End IfEnd SubPrivate Sub Command1_Click() If Text1.Text = Then MsgBox 新帐号为空！, vbOKOnly Exit Sub End If stropen = select * from 密码表 where 用户名 = & Text1.Text & rsRecordSet.Source = stropen rsRecordSet.Open If rsRecordSet.RecordCount = 0 Then rsRecordSet.Close stropen = select * from 密码表 rsRecordSet.Source = stropen rsRecordSet.Open If Text2.Text Text3.Text Then MsgBox 两次输入密码不同！, vbOKOnly Else rsRecordSet.AddNew rsRecordSet.Fields(0) = Text1.Text rsRecordSet.Fields(1) = Text2.Text rsRecordSet.Update MsgBox 用户添加成功！, vbOKOnly rsRecordSet.Close End If Else MsgBox 已有该用户！, vbOKOnly Text1.Text = Text1.SetFocus rsRecordSet.Close Exit Sub End IfEnd SubPrivate Sub Command2_Click() connConnection.Close Set connConnection = Nothing Unload Me Form1.ShowEnd SubPrivate Sub Command4_Click() connConnection.Close Set connConnection = Nothing Unload Me Form1.ShowEnd SubPrivate Sub Form_Load() Dim strConnect As String Dim strProvider As String Dim strDataSource As String Dim strDataBaseName As String Dim pt As String strProvider = Provider= Microsoft.Jet.OLEDB.3.51; strDataSource = App.Path strDataBaseName = 人才信息.mdb; strDataSource = Data Source= & strDataSource & _ strDataBaseName strConnect = strProvider & strDataSource Set connConnection = New ADODB.Connection connConnection.CursorLocation = adUseClient connConnection.Open strConnect Set rsRecordSet = New ADODB.Recordset rsRecordSet.CursorType = adOpenStatic rsRecordSet.CursorLocation = adUseClient rsRecordSet.LockType = adLockPessimistic rsRecordSet.ActiveConnection = connConnectionEnd Sub三、主窗体界面的设计主窗体界面如图-3所示。图4-3 人才管理主窗体主窗体界面的设计代码如下：Option ExplicitAPI函数声明Private Declare Function PlaySound Lib winmm.dll Alias PlaySoundA (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long常数声明Dim hWndl As LongDim flag As IntegerPrivate Sub Quit() Unload Me End SubPrivate Sub e_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub gy_Click()frmAbout.Show 1End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case j Form7.Show 1 Case g Form3.Show 1 Case y Form12.Show 1 Case s Dim FileName1, FileName2 As StringOn Error GoTo A1CommonDialog1.Filter = *.mdb|*.mdbCommonDialog1.ShowOpenFileName1 = CommonDialog1.FileNameCommonDialog1.ShowSaveFileName2 = CommonDialog1.FileNameA1:If Err.Number = 75 Or Err.Number = 53 Then Exit Sub Else If Err.Number = 70 Then If FileName1 = FileName2 Then MsgBox 文件已经存在，请更改文件名 ！, vbOKOnly + vbExclamation Exit Sub Else Exit Sub End If Else FileCopy FileName1, FileName2 End IfEnd If Case q frmAbout.Show 1 Case e Quit End SelectEnd Sub四、技术人才管理窗体设计该窗体主要完成录入、删除、修改、查询技术人才管理功能的调用，如图-4所示。图 4-4技术人才菜单1当用户单击“录入”时，将调出“技术人才录入窗体” 完成技术人才信息保存。工作界面使用的控件，如表4-3所示，控件属性设置如表4-4所示。控件设置名称作用Datal连接数据库Command1确认，转下一记录Command2清除当前录入数据，重新录入数据Command3保存录入数据，返回主菜单Command4返回，不保存数据Combo1文化程度预设值Combo2政治面貌预设Combo3技术职称预设值Frme1性别选择分组框Label1窗体标题Line1分割线Option1“男”单选框Option2“女”单选框StatusBar1显示记录情况和当前日期时间Text1Text2与拨尖人才数据表各字段绑定表 4-4工作界面窗体控件设置控件主要属性控件名称属性值DatalRecordSource拔尖人才VisibleFasleCombo1DataField文化程度Combo2DataField政治面貌Combo.DataField技术职称Text1DataField姓名Text2DataField年Text3DataField月Text4DataField日Text5DataField市（县）Text6DataField区Text7DataField街Text8DataField号Text9DataField技术特长Text10DataField何种奖励Text11DataField科研成果MultilineTrueText12DataField性别VisibleFalseText13EnabledTrueInterval1000(1秒) 表4-5工作界面的各个控件属性设置复选框和文本框的数据源均为Datal。这里将Text11的”MultiLine”属性设为：“True”是为了能输入多行文字。数据录入的工作流程如图4-6所示。窗体装入关闭关闭按钮确定数据文件、激活数据源得到记录总数、在状态栏显示记录总数和当前记录数及当前日期和时间输入一条新记录输入姓名显示提示信息，等待输入姓名回车键向下输入姓名为空等待按下回车键选择性别改变下一文本框的背景颜色并设置焦点，等待输入其他数据各项数据输入完毕下一记录按钮按下重新录入按钮按下保存数据按钮按下返回按钮按下保存当前录入的记录清空所有输入数据保存数据、返回主菜返回主菜单、不保存数据插入一新记录、等待数据输入等待数据输入事件过程如表-6所示。过程名类型执行条件作用Form_load事件过程装入窗体调用关闭关闭按钮的函数过程关闭关闭按钮、设置各控件的属性、连接数据库、插入一条新记录Text1_KeyPress事件过程回车键按下判断姓名是否为空，设置单选钮使能为真，设Option1值为真Option1_Click事件过程Option1单击选择性别为“男”并赋值给Text12Option2_Click事件过程Option2单击选择性别为“女”并赋值给Text12Text2_KeyPressText4_KeyPress事件过程回车键按下分别输入“年”“月”“日”，判断输入数据的合法性，激活下一控件Combo1_ KeyPressCombo3_ KeyPress事件过程回车键按下选择“文化程度”、“政治面貌”、“技术职称”，激活下一控件Text5_KeyPressText11_KeyPress事件过程回车键按下继续输入其他各项数据，激活下一控件Command1_Click事件过程鼠标单击插入空记录，恢复各控件原属性设置Command1_KeyPress事件过程回车键按下插入空记录，恢复各控件原属性设置Command2_Click事件过程鼠标单击清空录入数据，恢复各控件原属性设置，重新输入Command3_Click事件过程鼠标单击保存输入数据，返回工作选项Command4_Click事件过程鼠标单击取消数据输入操作，返回工作选项Timer1_Timer事件过程定时时间到更新当前时间表4-62技术人才信息查询信息查询的工作界面与数据录入时使用的工作界面基本相同，只是多了一个输入姓名的文本框和一个显示“请输入姓名”的标签，如4-7图所示：本程序使用Visual Basic自身提供的Find查询的模糊查询方法。图4-7技术人才信息查询工作界面Private Sub Command1_Click() 查询记录 Set rsRecordSet2 = New ADODB.Recordset rsRecordSet2.ActiveConnection = connConnection strcon = select * from 技术人才表 where strtext = Text18.Text strque = strcon & 职工编号 = & strtext & If Text18 = Then MsgBox 请输入职工编号 ！ , vbExclamation Text18 = Text18.SetFocus Exit Sub End If rsRecordSet2.Source = strque rsRecordSet2.Open If rsRecordSet2.RecordCount = 0 Then MsgBox 没有找到要查询的信息, vbOKOnly End If Call bind1 Command1.Enabled = False Command2.Enabled = FalseEnd Sub因为这里是进行查询，这时数据应该只能显示不能修改，故需要将所有用于显示数据的文本框锁住，即除用于输入姓名的文本框“Text17”外，将其他文本框的Locked属性设置为”True”。在删除数据的程序中对文本框的Locked属性也作了相同的设定。3.技术信息人才删除在该窗体中对记录的删除方法是先查询后删除，工作界面如4-8图所示，工作时首先输入需要待删除人员的职工编号，然后计算机查找相应记录，在查到需要删除的记录后，单击“删除”按钮即可删除记录。图4-8技术信息人才删除界面代码段如下：Private Sub Command4_Click() If blquery Then blquery = False rsRecordSet2.Delete 删除查询后的记录 Else rsRecordSet.Delete 删除没有点击查询按钮时的的记录 End If rsRecordSet.Close 关闭原来的记录集 strcon = select * from 技术人才表 rsRecordSet.Source = strcon rsRecordSet.LockType = adLockPessimistic rsRecordSet.Open 重新打开原来的记录集 Call bind Command4.Enabled = False Command2.Enabled = True Command3.Enabled = TrueEnd Sub3技术人才信息的修改数据修改的工作界面如4-9图所示图4-9技术人才信息修改的工作界面这个程序与数据查询不同之处是各文本框没有锁定，与数据录入的不同之处是不能输入新记录。这里不在细述。程序清单如下：Option ExplicitDim strque As StringDim strcon As StringDim strtext As StringDim blquery As BooleanDim bldatabase As BooleanPrivate WithEvents connConnection As ADODB.ConnectionPrivate WithEvents rsRecordSet As ADODB.RecordsetPrivate WithEvents rsRecordSet2 As ADODB.RecordsetPrivate Sub Command1_Click() blquery = True Set rsRecordSet2 = New ADODB.Recordset rsRecordSet2.ActiveConnection = connConnection strcon = select * from 技术人才表 where strtext = Text18.Text strque = strcon & 职工编号 = & strtext & If Text18 = Then MsgBox 请输入职工编号 ！ , vbExclamation Text18 = Text18.SetFocus Exit Sub End If rsRecordSet2.Source = strque rsRecordSet2.LockType = adLockPessimistic rsRecordSet2.Open Call bind1 If