《高校人事管理信息系统设计.pdf》由会员分享，可在线阅读，更多相关《高校人事管理信息系统设计.pdf（28页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、课程名称课程名称题题目目院院系系专专业业班班级级姓姓名名指导教师指导教师课课 程程 设设 计计 报报 告告数据库应用课程设计数据库应用课程设计高校人事管理信息系统高校人事管理信息系统年年月月日日课程设计评分表课程设计评分表评分标准：评分标准：1.1.学生是否严格遵守课程设计纪律，按照规定时间完成设计任务学生是否严格遵守课程设计纪律，按照规定时间完成设计任务(占占 30%)30%)2.2.程序设计的质量与规范：程序设计的质量与规范：(占占 40%)40%)(1)(1)是否采用了良好的设计方法，独立完成程序设计是否采用了良好的设计方法，独立完成程序设计(2)(2)程序界面设计是否合理、美观程序界面
2、设计是否合理、美观(3)(3)数据库设计是否合理，具有良好的扩展性数据库设计是否合理，具有良好的扩展性(4)(4)程序是否运行正常，未见运行错误程序是否运行正常，未见运行错误3.3.课程设计报告书的质量与规范课程设计报告书的质量与规范(占占 30%)30%)教师评分：教师评分：1.1.学生出勤得分：学生出勤得分：(A)(A)(B)(B)(C)(C)(D)(D)得分得分_2.2.程序设计得分：程序设计得分：(A)(A)(B)(B)(C)(C)(D)(D)得分得分_3.3.设计报告得分：设计报告得分：(A)(A)(B)(B)(C)(C)(D)(D)得分得分_总分：总分：_教师评语：教师评语：根据该
3、生在课程设计期间，根据该生在课程设计期间，是否严格遵守课程设计纪律，是否严格遵守课程设计纪律，按照规定时间完按照规定时间完成设计任务，完成的程序设计的质量与规范，提交的课程设计报告书的质量成设计任务，完成的程序设计的质量与规范，提交的课程设计报告书的质量与规范等多方面的评分，该生本次课程设计的评分为：与规范等多方面的评分，该生本次课程设计的评分为：_教师签名：教师签名：日期：日期：年年月月日日设计题目设计题目高校人事管理信息系统设计主要内容设计主要内容一、开发平台一、开发平台VB+SQL SERVER 2000二、功能要求二、功能要求1、设计内容设计一个高校教工人事管理信息系统，该系统的用户由
4、一般用户和管理员组成，不同的用户拥有不同的权限，各自完成各自的管理功能。首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用sql server2000 创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。2、高校教工人事管理信息系统主要功能（1）登录界面、用户注册界面（2）用户管理：用户登记界面（添加、打印等操作）、用户信息查询界面（按照一定条件查询）、修改密码（删除、修改）。（3）管理员管理：用户基本信息界面（修改、删除等操作）、工作时间界面、工资界面（修改）、年度
5、考核界面。3、高校教工人事信息系统数据库表单（表单和字段可以按照需求增、删、改）（1）密码表：工号、密码、用户身份（管理员和普通用户）（2）基本信息表：工号、姓名、年龄、性别、职务、学历、政治面貌、所属部门（3）工作时间表：工号、姓名、来院时间、任职时间、工龄（4）工资表单：工号、姓名、基本工资、工龄补贴、奖金、实发工资（5）年度考核表：工号、考察年度、工作态度、工作业绩三、课程设计报告主要内容三、课程设计报告主要内容1高校教工人事信息系统需求分析（给出系统的功能模块图，对各个功能作出详细介绍）2高校教工人事信息系统界面设计（给出界面截图及其主要控件的属性设置表格）3高校教工人事信息系统数据库
6、设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）4高校教工人事管理信息系统程序设计（按照功能模块给出详细的程序代码，并给出重点语句的注释）1.1.高校人事管理信息系统高校人事管理信息系统需求分析需求分析高校人事管理信息系统登陆用 户 登 陆管 理 员 登 陆用户服务新用户注册管理员服务本用户密码的修改工资信息查询年度考核信息查询所询 所有有用用户户基密本码信查询息查所有用户工资查询查所询 所有有用用户户工年作度查考询核图 1.1 零件交易管理信息系统查添删添更删添更删询加除加新除加新除1.1 欢迎界面1.1.1 选中管理员登录后便进入管理员登陆界面1.1.2 选中用户登陆后便进
7、入用户登陆界面1.2 管理员界面可以进行现有用户的密码信息管理，工作信息管理，工资信息管理，年度考察信息管理，基本信息管理。1.2.1 密码信息管理利用 VB 界面，管理员可以查询现有用户密码，修改信息，添加信息，删除记录，从而改变了数据库中的信息。1.2.2 工作信息管理管理员可以查询，修改，删除，添加用户的工作信息，在 VB 界面中修改了数据库中的信息。1.2.3 工资信息管理管理员可以根据需要查询，修改，删除，添加用户的工资信息，从而改变数据库中的信息。1.2.3 基本信息信息管理管理员可以根据需要查询，修改，删除，添加用户的基本信息信息，从而改变数据库中的信息。1.2.3 年度考核信息
8、管理管理员可以根据需要查询，修改，删除，添加用户的年度考核信息，从而改变数据库中的信息。1.3 用户界面用户可以进行本用户密码的修改，查看零件信息和工程项目使零件情况。1.3.1 本用户密码修改用户通过输入和确认新密码来更改自己的密码。1.3.2 工资信息信息查询用户进入界面后可看到自己的工资信息。1.3.3 年度考核信息查询进入界面后用户可看到自己的年度考核信息。2高校人事管理信息系统界面设计图 2.1 欢迎界面图 2.2 用户登陆界面图 2.3 新用户注册界面图 2.4管理员登陆界面图 2.5用户服务界面表 2.1用户服务界面属性表对象SSTab1SSTab2SSTab3Datagrid1
9、Adodc1Datagrid2Adodc2Datagrid3Adodc3属性CaptionCaptioncaptiondatasourcecommandtyperecordsourcevisiblecaptiondatasourcecommandtyperecordsourcevisiblecaptiondatasourcecommandtyperecordsourcevisiblecaption密码修改工资查询年度考核查询Adodc12-adcmdtable密码表falseAdodc1Adodc22-adcmdtable工资表falseAdodc2Adodc32-adcmdtable年度考核
10、表falseAdodc3设定值图 2.6 管理员界面表 2.2 管理员界面属性表对象Option1Option2Command2Label2Label2属性captioncaptioncaption设定值后退工号姓名图 2.7 工号查询界面图 2.8 姓名查询界面图 2.9管理员查询界面表 2.3管理员查询查询界面属性表对象Datagrid1Adodc1Datagrid2Adodc2Datagrid3Adodc3Datagrid4Adodc4datasourcecommandtyperecordsourcevisiblecaptiondatasourcecommandtyperecordsou
11、rcevisiblecaptiondatasourcecommandtyperecordsourcevisiblecaptionatasourcecommandtype属性Adodc12-adcmdtable密码表falseAdodc1Adodc22-adcmdtable基本信息表falseAdodc2Adodc32-adcmdtable工资表falseAdodc3Adodc42-adcmdtable设置值Datagrid5Adodc5SSTab1SSTab2SSTab3SSTab4SSTab5recordsourcevisiblecaptionatasourcecommandtypereco
12、rdsourcevisiblecaptioncaptioncaptioncaptioncaptioncaption工作表falseAdodc4Adodc52-adcmdtable年度考核表falseAdodc5密码信息基本信息工资信息工作信息考核信息3高校人事管理信息系统数据库设计高校人事信息管理系统总共涉及 5 张表，分别是密码表，基本信息表，工资表，工作表，年度考核表。表 3.1 密码表字段名称工号登录密码身份标始名称编号密码身份数据类型charcharChar是否允许为空否否是字段说明主码表 3.2 基本信息表字段名称工号姓名性别年龄学历职务政治面貌所属部门表 3.3 工资表字段名称工号
13、基本工资工龄补贴奖金实发工资表 3.4 工作况表字段名称工号姓名来院时间任职时间表 3.5 年度考核表字段名称工号考察年度工作态度工作业绩标始名称工号考察年度工作态度工作业绩数据类型charcharcharchar是否允许为空否是是是字段说明主码标始名称工号姓名来院时间任职时间数据类型charchartinyinttinyint是否允许为空否是否是字段说明主码标始名称工号基本工资工龄补贴奖金实发工资数据类型charMoneyMoneyMoneyMoney是否允许为空否否是是是字段说明主码标始名称工号姓名性别年龄学历职务政治面貌政治面貌数据类型charcharchartinyintcharcha
14、rcharchar是否允许为空否否是是是是是是字段说明主码4高校人事管理信息系统程序设计（部分代码）4.1 欢迎界面欢迎界面是整个系统的首页，进入此界面后，使用者可根据自己的身份选择登陆方式。普通用户选择用户登陆，管理员选择管理员登陆。4.2 用户登陆和新用户注册界面程序设计普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。部分重要代码如下Private Sub Command2_Click()Dim strselectname As StringDim str As StringDim strselectpassword As StringDim strpassword As
15、 StringDim strselectuserlevel As StringDim ret_select As Booleanstrselectpassword=select 登 录 密 码from 密 码 表where 工 号=&Trim(Text1.Text)&Adodc1.ConnectionString=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurity Info=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc1.ConnectionString
16、=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurity Info=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVstr=Trim(Text1.Text)strselectname=select 工号 from 密码表 where 工号=&str&Adodc1.ConnectionString=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurity Info=False;Initial Catalog=人事
17、管理;Data Source=PC2009113022HNVAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strselectnameAdodc1.RefreshIf Adodc1.Recordset.EOF=True Then ret=MsgBox(工号错误！,48,warming!)Text1.Text=Text2.Text=Exit Sub Else Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strselectpasswordAdodc1.RefreshAdodc1.CommandTyp
18、e=adCmdTextAdodc1.RecordSource=strselectpasswordAdodc1.RefreshIf StrComp(Trim(Adodc1.Recordset.Fields(登录密码).Value),Trim(Text2.Text)0Then ret=MsgBox(密码错误！,48,warming!)Text2.Text=Text2.SetFocus Exit Sub Else MsgBox 登录成功!AID=Text1.Text End If用户登录.Hide用户服务.ShowEnd IfEnd Sub进入用户登录界面后，新用户还可以通过此界面进行注册，新用户只
19、要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了用户信息表中（部分代码如下）Private Sub Command1_Click()If Text1.Text=ThenMsgBox 请输入你的工号Exit SubElseIf Text2.Text=ThenMsgBox 请输入密码Exit SubElseIf Text3.Text=ThenMsgBox 请再次输入密码Exit SubEnd IfAdodc1.ConnectionString=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurity In
20、fo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc1.CommandType=adCmdTextAdodc1.RecordSource=select 工号 from 密码表 where 工号=&Trim(Text1.Text)&Adodc1.RefreshIf Adodc1.Recordset.EOF=False Then MsgBox 用户名已经存在！请重新输入,0,提示Text1.Text=Text2.Text=Text3.Text=Text1.SetFocus Exit SubEnd IfAdodc1.Connec
21、tionString=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurity Info=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc1.CommandType=adCmdTableAdodc1.RecordSource=密码表Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(工号).Value=Trim(Text1.Text)Adodc1.Recordset.Fields(登录密码).V
22、alue=Trim(Text2.Text)If Text3.Text=Then MsgBox 请再次输入密码 Text1.SetFocusExit SubElseIf Text2.Text Text3.Text ThenMsgBox 两次输入的密码不一样Text3.Text=Exit SubEnd IfAdodc1.Recordset.UpdateMsgBox 恭喜你注册成功Text1.Text=Text2.Text=Text3.Text=用户注册.Hide用户登录.Show4.3 管理员登陆界面管理员需要输入自己的姓名和密码，经过系统验证无误后就可以进入下一个界面了。它的代码与管理员登陆代码
23、类似，输入的姓名和密码必须是管理员表中相应的信息，否则就无法成功登陆。4.4 用户服务表界面用户登陆进去后，可以到用户服务界面选择自己所需的服务，该界面为用户提供了三种服务，分别是“本用户密码的修改”，“工资查询”和“年度考核查询”。4.5 用户密码修改界面程序设计用户如需修改自己的密码可在此界面进行，用户通过登陆界面登陆到此，然后在此界面中输入原始密码和新密码并验证新密码，确认后如果无误就会提示用户修改成功，并且其密码在用户信息表中也会有相应的修改。（代码如下）Private Sub Command1_Click()If Trim(Text2.Text)=Then MsgBox 对不起，输入
24、原密码！,vbInformation Exit SubElseIf Trim(Text3.Text)=Then MsgBox 对不起，请输入新密码,vbInformation Exit SubElseIf Trim(Text4.Text)=Then MsgBox 对不起，请再次输入新密码,vbInformation Exit SubElseIf Trim(Text3.Text)Trim(Text4.Text)Then MsgBox 两次输入的密码不一致！Text4.Text=Exit Sub End IfAdodc1.ConnectionString=Provider=SQLOLEDB.1;I
25、ntegratedSecurity=SSPI;PersistSecurity Info=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc1.CommandType=adCmdTextAdodc1.RecordSource=select 登录密码 from 密码表 where登录密码=&AID&Adodc1.RefreshIf Adodc1.Recordset.EOF=True Then MsgBox 密码不正确，请重新输入！Text2.Text=Text3.Text=Text4.Text=Text2.SetFocus Exi
26、t Sub Else Adodc1.Recordset.Fields(登录密码).Value=Trim(Text3.Text)Adodc1.Recordset.UpdateAdodc1.Refresh MsgBox 恭喜你，密码修改成功！Text2.Text=Text3.Text=Text4.Text=End IfEnd Sub4.6 用户服务界面用户可通过此界面所提供的内容查询所有的零件信息。所有的信息通过控件DataGrid与Adodc 控件和相应的数据库连接起来，并通过 sstab控件进行切换界面，设置相应的属性后所有信息便可显示在 DataGrid 上供用户查看。图 4.1零件信息的查
27、询界面此控件要调用模块，该代码在load 里面写:Private Sub Form_Load()Adodc1.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc1.CommandType=adCmdTextAdodc1.RecordSource=select*from 密码表where密码表.工号=&AID&Adodc1.RefreshAdodc2.Connect
28、ionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc2.CommandType=adCmdTextAdodc2.RecordSource=select*from 年度考核表 left join密码表 on 密码表.工号=年度考核表.工号where 密码表.工号=&AID&Adodc2.RefreshAdodc3.ConnectionString=Provider=SQLOLEDB
29、.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc3.CommandType=adCmdTextAdodc3.RecordSource=select*from 工资表left join密码表 on 密码表.工号=工资表.工号where 密码表.工号=&AID&Adodc3.RefreshEnd Sub4.7 管理员查询界面该界面所用的控件与用户服务界面所用的一样，用户想要查看的信息也会显示在 DataGrid 上。图 4.2管理员
30、查询界面Load 里的代码：Private Sub Form_Load()If 管理员界面.Option1 ThenAdodc1.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc1.CommandType=adCmdTextAdodc1.RecordSource=select*from 密码表where密码表.工号=&AAA&Adodc1.RefreshAdod
31、c2.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc2.CommandType=adCmdTextAdodc2.RecordSource=select*from 基本信息表where基本信息表.工号=&AAA&Adodc2.RefreshAdodc3.ConnectionString=Provider=SQLOLEDB.1;Integrated Securit
32、y=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc3.CommandType=adCmdTextAdodc3.RecordSource=select*from 工资表where工资表.工号=&AAA&Adodc3.RefreshAdodc4.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data So
33、urce=PC2009113022HNVAdodc4.CommandType=adCmdTextAdodc4.RecordSource=select*from 工作表where工作表.工号=&AAA&Adodc4.RefreshAdodc5.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc5.CommandType=adCmdTextAdodc5.RecordS
34、ource=select*from 年度考核表where年度考核表.工号=&AAA&Adodc5.RefreshElseAdodc2.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc2.CommandType=adCmdTextAdodc2.RecordSource=select*from 基本信息表where基本信息表.姓名=&BBB&Adodc2.Refre
35、shAdodc1.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc1.CommandType=adCmdTextAdodc1.RecordSource=select*from 工作表 left join 密码表 on 密码表.工号=工作表.工号where工作表.姓名=&BBB&Adodc1.RefreshAdodc3.ConnectionString=Provi
36、der=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc3.CommandType=adCmdTextAdodc3.RecordSource=select*from 工作表 left join 工资表 on 工资表.工号=工作表.工号where工作表.姓名=&BBB&Adodc3.RefreshAdodc4.ConnectionString=Provider=SQLOLEDB.1;Integrated Secur
37、ity=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC2009113022HNVAdodc4.CommandType=adCmdTextAdodc4.RecordSource=select*from 工作表where工作表.姓名=&BBB&Adodc4.RefreshAdodc5.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data
38、Source=PC2009113022HNVAdodc5.CommandType=adCmdTextAdodc5.RecordSource=select*from 工作表 left join 年度考核表 on 年度考核表.工号=工作表.工号where工作表.姓名=&BBB&Adodc5.RefreshEnd IfEnd Sub如想查询所有，代码如下：Adodc1.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data So
39、urce=PC-043Adodc1.CommandType=adCmdTextAdodc1.RecordSource=select*from 工资表 Adodc1.RefreshAdodc2.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC-043Adodc2.CommandType=adCmdTextAdodc2.RecordSource=select*from 工资表 Adodc2.Refre
40、shAdodc3.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC-043Adodc3.CommandType=adCmdTextAdodc3.RecordSource=select*from 工资表 Adodc3.RefreshAdodc4.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
41、Info=False;Initial Catalog=人事管理;Data Source=PC-043Adodc4.CommandType=adCmdTextAdodc4.RecordSource=select*from 工资表 Adodc4.RefreshAdodc5.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC-043Adodc5.CommandType=adCmdTextAdodc5.Re
42、cordSource=select*from 工资表 Adodc3.Refresh添加密码代码如下：Private Sub Command1_Click()Adodc1.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC-043Adodc1.CommandType=adCmdTextAdodc1.RecordSource=select 工号 from 密码表 where 工号=&Trim(Text1
43、.Text)&Adodc1.RefreshIf Adodc1.Recordset.EOF=False ThenMsgBox 此工号已存在,0,提示Exit SubEnd IfIf Text1.Text=Or Text2.Text=Or Text17.Text=ThenMsgBox 请将信息填写完整ElseAdodc1.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC-043Adodc1.Comma
44、ndType=adCmdTableAdodc1.RecordSource=密码表Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(工号).Value=Trim(Text1.Text)Adodc1.Recordset.Fields(登录密码).Value=Trim(Text2.Text)Adodc1.Recordset.Fields(身份).Value=Trim(Text17.Text)Adodc1.Recordset.UpdateMsgBox 恭喜你添加成功Text1.Text=Text2.Text=Text17.Text
45、=Exit SubEnd IfEnd Sub添加用户基本信息代码如下：Private Sub Command1_Click()Adodc1.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC-043Adodc1.CommandType=adCmdTextAdodc1.RecordSource=select 工号 from 密码表 where 工号=&Trim(Text1.Text)&Adodc1.R
46、efreshIf Adodc1.Recordset.EOF=False ThenMsgBox 此工号已存在,0,提示Exit SubEnd IfIf Text1.Text=Or Text2.Text=Or Text17.Text=ThenMsgBox 请将信息填写完整ElseAdodc1.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC-043Adodc1.CommandType=adCmdTab
47、leAdodc1.RecordSource=密码表Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(工号).Value=Trim(Text1.Text)Adodc1.Recordset.Fields(登录密码).Value=Trim(Text2.Text)Adodc1.Recordset.Fields(身份).Value=Trim(Text17.Text)Adodc1.Recordset.UpdateMsgBox 恭喜你添加成功Text1.Text=Text2.Text=Text17.Text=Exit SubEnd If
48、End SubPrivate Sub Command10_Click()Adodc2.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;Data Source=PC-043Adodc2.CommandType=adCmdTextAdodc2.RecordSource=select 工号 from 基本信息表 where 工号=&Trim(Text3.Text)&Adodc2.RefreshIf Adodc2.Recordset
49、.EOF=False ThenMsgBox 此工号已存在,0,提示Exit SubEnd IfIf Text3.Text=Or Text4.Text=Or Text5.Text=Or Text6.Text=Or Text7.Text=OrText8.Text=Or Text9.Text=Or Text10.Text=ThenMsgBox 请将信息填写完整ElseAdodc2.ConnectionString=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=人事管理;D
50、ata Source=PC-043Adodc2.CommandType=adCmdTableAdodc2.RecordSource=基本信息表Adodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(工号).Value=Trim(Text3.Text)Adodc2.Recordset.Fields(性别).Value=Trim(Text4.Text)Adodc2.Recordset.Fields(学历).Value=Trim(Text5.Text)Adodc2.Recordset.Fields(政治面貌).Value=Trim(T