高校教工人事管理信息系统设计

学号课程设计报告课程名称数据库应用课程设计题目高校人事管理信息系统院系专业班级姓名指导教师年月日

课程设计评分表评分标准：学生是否严格遵守课程设计纪律，按照规定期间完毕设计任务(占30%)程序设计的质量与规范：(占40%)(1)是否采用了良好的设计方法，独立完毕程序设计(2)程序界面设计是否合理、美观(3)数据库设计是否合理，具有良好的扩展性(4)程序是否运营正常，未见运营错误课程设计报告书的质量与规范(占30%)教师评分：1.学生出勤得分：(A)(B)(C)(D)得分_________2.程序设计得分：(A)(B)(C)(D)得分_________3.设计报告得分：(A)(B)(C)(D)得分_________总分：_________教师评语：根据该生在课程设计期间，是否严格遵守课程设计纪律，按照规定期间完毕设计任务，完毕的程序设计的质量与规范，提交的课程设计报告书的质量与规范等多方面的评分，该生本次课程设计的评分为：________教师署名：日期：年月日设计题目高校人事管理信息系统设计重要内容一、开发平台VB+SQLSERVER2023二、功能规定1、设计内容设计一个高校教工人事管理信息系统，该系统的用户由一般用户和管理员组成，不同的用户拥有不同的权限，各自完毕各自的管理功能。一方面是欢迎界面，然后选择登录，登录的时候一方面要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用sqlserver2023创建后台数据库，然后运用程序设计语言（VB）编写程序实现对数据库的操作，按照规定完毕所有的功能和模块。2、高校教工人事管理信息系统重要功能（1）登录界面、用户注册界面（2）用户管理：用户登记界面（添加、打印等操作）、用户信息查询界面（按照一定条件查询）、修改密码（删除、修改）。（3）管理员管理：用户基本信息界面（修改、删除等操作）、工作时间界面、工资界面（修改）、年度考核界面。3、高校教工人事信息系统数据库表单（表单和字段可以按照需求增、删、改）（1）密码表：工号、密码、用户身份（管理员和普通用户）（2）基本信息表：工号、姓名、年龄、性别、职务、学历、政治面貌、所属部门（3）工作时间表：工号、姓名、来院时间、任职时间、工龄（4）工资表单：工号、姓名、基本工资、工龄补贴、奖金、实发工资（5）年度考核表：工号、考察年度、工作态度、工作业绩三、课程设计报告重要内容1高校教工人事信息系统需求分析（给出系统的功能模块图，对各个功能作出具体介绍）2高校教工人事信息系统界面设计（给出界面截图及其重要控件的属性设立表格）3高校教工人事信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）4高校教工人事管理信息系统程序设计（按照功能模块给出具体的程序代码，并给出重点语句的注释）1.高校人事管理信息系统需求分析高校人事管理信息系统高校人事管理信息系统登陆用户登陆管理员登陆用户服务新用户注册管理员服务本用户密码的修改工资信息查询年度考核信息查询所有用户密码查询所有用户基本信息查询所有用户工作查询查询添加删除添加更新删除添加更新删除所有用户工资查询所有用户年度考核查询图1.1零件交易管理信息系统1.1欢迎界面1.1.1选中管理员登录后便进入管理员登陆界面1.1.2选中用户登陆后便进入用户登陆界面1.2管理员界面可以进行现有用户的密码信息管理，工作信息管理，工资信息管理，年度考察信息管理，基本信息管理。1.2.1密码信息管理运用VB界面，管理员可以查询现有用户密码，修改信息，添加信息，删除记录，从而改变了数据库中的信息。1.2.2工作信息管理管理员可以查询，修改，删除，添加用户的工作信息，在VB界面中修改了数据库中的信息。1.2.3工资信息管理管理员可以根据需要查询，修改，删除，添加用户的工资信息，从而改变数据库中的信息。1.2.3基本信息信息管理管理员可以根据需要查询，修改，删除，添加用户的基本信息信息，从而改变数据库中的信息。1.2.3年度考核信息管理管理员可以根据需要查询，修改，删除，添加用户的年度考核信息，从而改变数据库中的信息。1.3用户界面用户可以进行本用户密码的修改，查看零件信息和工程项目使零件情况。1.3.1本用户密码修改用户通过输入和确认新密码来更改自己的密码。1.3.2工资信息信息查询用户进入界面后可看到自己的工资信息。1.3.3年度考核信息查询进入界面后用户可看到自己的年度考核信息。2．高校人事管理信息系统界面设计图2.1欢迎界面图2.2用户登陆界面图2.3新用户注册界面图2.4管理员登陆界面图2.5用户服务界面表2.1用户服务界面属性表对象属性设定值SSTab1Caption密码修改SSTab2Caption工资查询SSTab3caption年度考核查询Datagrid1datasourceAdodc1Adodc1commandtype2-adcmdtablerecordsource密码表visiblefalsecaptionAdodc1Datagrid2datasourceAdodc2Adodc2commandtype2-adcmdtablerecordsource工资表visiblefalsecaptionAdodc2Datagrid3datasourceAdodc3Adodc3commandtype2-adcmdtablerecordsource年度考核表visiblefalsecaptionAdodc3图2.6管理员界面表2.2管理员界面属性表对象属性设定值Option1Option2Command2caption后退Label2caption工号Label2caption姓名图2.7工号查询界面图2.8姓名查询界面图2.9管理员查询界面表2.3管理员查询查询界面属性表对象属性设立值Datagrid1datasourceAdodc1Adodc1commandtype2-adcmdtablerecordsource密码表visiblefalsecaptionAdodc1Datagrid2datasourceAdodc2Adodc2commandtype2-adcmdtablerecordsource基本信息表visiblefalsecaptionAdodc2Datagrid3datasourceAdodc3Adodc3commandtype2-adcmdtablerecordsource工资表visiblefalsecaptionAdodc3Datagrid4atasourceAdodc4Adodc4commandtype2-adcmdtablerecordsource工作表visiblefalsecaptionAdodc4Datagrid5atasourceAdodc5Adodc5commandtype2-adcmdtablerecordsource年度考核表visiblefalsecaptionAdodc5SSTab1caption密码信息SSTab2caption基本信息SSTab3caption工资信息SSTab4caption工作信息SSTab5caption考核信息

3．高校人事管理信息系统数据库设计高校人事信息管理系统总共涉及5张表，分别是密码表，基本信息表，工资表，工作表，年度考核表。表3.1密码表字段名称标始名称数据类型是否允许为空字段说明工号编号char否主码登录密码密码char否身份身份Char是表3.2基本信息表字段名称标始名称数据类型是否允许为空字段说明工号工号char否主码姓名姓名char否性别性别char是年龄年龄tinyint是学历学历char是职务职务char是政治面貌政治面貌char是所属部门政治面貌char是表3.3工资表字段名称标始名称数据类型是否允许为空字段说明工号工号char否主码基本工资基本工资Money否工龄补贴工龄补贴Money是奖金奖金Money是实发工资实发工资Money是表3.4工作况表字段名称标始名称数据类型是否允许为空字段说明工号工号char否主码姓名姓名char是来院时间来院时间tinyint否任职时间任职时间tinyint是表3.5年度考核表字段名称标始名称数据类型是否允许为空字段说明工号工号char否主码考察年度考察年度char是工作态度工作态度char是工作业绩工作业绩char是

4．高校人事管理信息系统程序设计（部分代码）4.1欢迎界面欢迎界面是整个系统的首页，进入此界面后，使用者可根据自己的身份选择登陆方式。普通用户选择用户登陆，管理员选择管理员登陆。4.2用户登陆和新用户注册界面程序设计普通用户在此界面输入自己的姓名和密码通过验证后方可进入下一个界面。部分重要代码如下PrivateSubCommand2_Click()DimstrselectnameAsStringDimstrAsStringDimstrselectpasswordAsStringDimstrpasswordAsStringDimstrselectuserlevelAsStringDimret_selectAsBooleanstrselectpassword="select登录密码from密码表where工号="&"'"&Trim(Text1.Text)&"'"Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"str=Trim(Text1.Text)strselectname="select工号from密码表where工号="&"'"&str&"'"Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strselectnameAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenret=MsgBox("工号错误！",48,"warming!")Text1.Text=""Text2.Text=""ExitSubElseAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strselectpasswordAdodc1.RefreshAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strselectpasswordAdodc1.RefreshIfStrComp(Trim(Adodc1.Recordset.Fields("登录密码").Value),Trim(Text2.Text))<>0Thenret=MsgBox("密码错误！",48,"warming!")Text2.Text=""Text2.SetFocusExitSubElseMsgBox"登录成功!"AID=Text1.TextEndIf用户登录.Hide用户服务.ShowEndIfEndSub进入用户登录界面后，新用户还可以通过此界面进行注册，新用户只要输入自己的姓名，注册密码并确认注册便可以成功注册，同时该用户的信息也被写入到了用户信息表中（部分代码如下）PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"请输入你的工号"ExitSubElseIfText2.Text=""ThenMsgBox"请输入密码"ExitSubElseIfText3.Text=""ThenMsgBox"请再次输入密码"ExitSubEndIfAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select工号from密码表where工号='"&Trim(Text1.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"用户名已经存在！请重新输入",0,"提醒"Text1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusExitSubEndIfAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc1.CommandType=adCmdTableAdodc1.RecordSource="密码表"Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("工号").Value=Trim(Text1.Text)Adodc1.Recordset.Fields("登录密码").Value=Trim(Text2.Text)IfText3.Text=""ThenMsgBox"请再次输入密码"Text1.SetFocusExitSubElseIfText2.Text<>Text3.TextThenMsgBox"两次输入的密码不同样"Text3.Text=""ExitSubEndIfAdodc1.Recordset.UpdateMsgBox"恭喜你注册成功"Text1.Text=""Text2.Text=""Text3.Text=""用户注册.Hide用户登录.Show4.3管理员登陆界面管理员需要输入自己的姓名和密码，通过系统验证无误后就可以进入下一个界面了。它的代码与管理员登陆代码类似，输入的姓名和密码必须是管理员表中相应的信息，否则就无法成功登陆。4.4用户服务表界面用户登陆进去后，可以到用户服务界面选择自己所需的服务，该界面为用户提供了三种服务，分别是“本用户密码的修改”，“工资查询”和“年度考核查询”。4.5用户密码修改界面程序设计用户如需修改自己的密码可在此界面进行，用户通过登陆界面登陆到此，然后在此界面中输入原始密码和新密码并验证新密码，确认后假如无误就会提醒用户修改成功，并且其密码在用户信息表中也会有相应的修改。（代码如下）PrivateSubCommand1_Click()IfTrim(Text2.Text)=""ThenMsgBox"对不起，输入原密码！",vbInformationExitSubElseIfTrim(Text3.Text)=""ThenMsgBox"对不起，请输入新密码",vbInformationExitSubElseIfTrim(Text4.Text)=""ThenMsgBox"对不起，请再次输入新密码",vbInformationExitSubElseIfTrim(Text3.Text)<>Trim(Text4.Text)ThenMsgBox"两次输入的密码不一致！"Text4.Text=""ExitSubEndIfAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select登录密码from密码表where登录密码='"&AID&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"密码不对的，请重新输入！"Text2.Text=""Text3.Text=""Text4.Text=""Text2.SetFocusExitSubElseAdodc1.Recordset.Fields("登录密码").Value=Trim(Text3.Text)Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox"恭喜你，密码修改成功！"Text2.Text=""Text3.Text=""Text4.Text=""EndIfEndSub4.6用户服务界面用户可通过此界面所提供的内容查询所有的零件信息。所有的信息通过控件DataGrid与Adodc控件和相应的数据库连接起来，并通过sstab控件进行切换界面，设立相应的属性后所有信息便可显示在DataGrid上供用户查看。图4.1零件信息的查询界面此控件要调用模块，该代码在load里面写:PrivateSubForm_Load()Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from密码表where密码表.工号='"&AID&"'"Adodc1.RefreshAdodc2.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc2.CommandType=adCmdTextAdodc2.RecordSource="select*from年度考核表leftjoin密码表on密码表.工号=年度考核表.工号where密码表.工号='"&AID&"'"Adodc2.RefreshAdodc3.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*from工资表leftjoin密码表on密码表.工号=工资表.工号where密码表.工号='"&AID&"'"Adodc3.RefreshEndSub4.7管理员查询界面该界面所用的控件与用户服务界面所用的同样，用户想要查看的信息也会显示在DataGrid上。图4.2管理员查询界面Load里的代码：PrivateSubForm_Load()If管理员界面.Option1ThenAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from密码表where密码表.工号='"&AAA&"'"Adodc1.RefreshAdodc2.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc2.CommandType=adCmdTextAdodc2.RecordSource="select*from基本信息表where基本信息表.工号='"&AAA&"'"Adodc2.RefreshAdodc3.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*from工资表where工资表.工号='"&AAA&"'"Adodc3.RefreshAdodc4.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc4.CommandType=adCmdTextAdodc4.RecordSource="select*from工作表where工作表.工号='"&AAA&"'"Adodc4.RefreshAdodc5.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc5.CommandType=adCmdTextAdodc5.RecordSource="select*from年度考核表where年度考核表.工号='"&AAA&"'"Adodc5.RefreshElseAdodc2.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc2.CommandType=adCmdTextAdodc2.RecordSource="select*from基本信息表where基本信息表.姓名='"&BBB&"'"Adodc2.RefreshAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from工作表leftjoin密码表on密码表.工号=工作表.工号where工作表.姓名='"&BBB&"'"Adodc1.RefreshAdodc3.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*from工作表leftjoin工资表on工资表.工号=工作表.工号where工作表.姓名='"&BBB&"'"Adodc3.RefreshAdodc4.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc4.CommandType=adCmdTextAdodc4.RecordSource="select*from工作表where工作表.姓名='"&BBB&"'"Adodc4.RefreshAdodc5.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PCHNV"Adodc5.CommandType=adCmdTextAdodc5.RecordSource="select*from工作表leftjoin年度考核表on年度考核表.工号=工作表.工号where工作表.姓名='"&BBB&"'"Adodc5.RefreshEndIfEndSub如想查询所有，代码如下：Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from工资表"Adodc1.RefreshAdodc2.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc2.CommandType=adCmdTextAdodc2.RecordSource="select*from工资表"Adodc2.RefreshAdodc3.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select*from工资表"Adodc3.RefreshAdodc4.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc4.CommandType=adCmdTextAdodc4.RecordSource="select*from工资表"Adodc4.RefreshAdodc5.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc5.CommandType=adCmdTextAdodc5.RecordSource="select*from工资表"Adodc3.Refresh添加密码代码如下：PrivateSubCommand1_Click()Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select工号from密码表where工号='"&Trim(Text1.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"此工号已存在",0,"提醒"ExitSubEndIfIfText1.Text=""OrText2.Text=""OrText17.Text=""ThenMsgBox"请将信息填写完整"ElseAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc1.CommandType=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=""ExitSubEndIfEndSub添加用户基本信息代码如下：PrivateSubCommand1_Click()Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select工号from密码表where工号='"&Trim(Text1.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"此工号已存在",0,"提醒"ExitSubEndIfIfText1.Text=""OrText2.Text=""OrText17.Text=""ThenMsgBox"请将信息填写完整"ElseAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc1.CommandType=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=""ExitSubEndIfEndSubPrivateSubCommand10_Click()Adodc2.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc2.CommandType=adCmdTextAdodc2.RecordSource="select工号from基本信息表where工号='"&Trim(Text3.Text)&"'"Adodc2.RefreshIfAdodc2.Recordset.EOF=FalseThenMsgBox"此工号已存在",0,"提醒"ExitSubEndIfIfText3.Text=""OrText4.Text=""OrText5.Text=""OrText6.Text=""OrText7.Text=""OrText8.Text=""OrText9.Text=""OrText10.Text=""ThenMsgBox"请将信息填写完整"ElseAdodc2.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc2.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(Text6.Text)Adodc2.Recordset.Fields("姓名").Value=Trim(Text7.Text)Adodc2.Recordset.Fields("年龄").Value=Trim(Text8.Text)Adodc2.Recordset.Fields("职务").Value=Trim(Text9.Text)Adodc2.Recordset.Fields("所属部门").Value=Trim(Text10.Text)Adodc2.Recordset.UpdateMsgBox"恭喜你添加成功"Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text=""Text10.Text=""ExitSubEndIfEndSub添加工资代码如下：PrivateSubCommand11_Click()Adodc3.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc3.CommandType=adCmdTextAdodc3.RecordSource="select工号from工资表where工号='"&Trim(Text11.Text)&"'"Adodc3.RefreshIfAdodc3.Recordset.EOF=FalseThenMsgBox"此工号已存在",0,"提醒"ExitSubEndIfIfText11.Text=""OrText13.Text=""OrText14.Text=""OrText15.Text=""ThenMsgBox"请将信息填写完整"ElseDimaAsStringa=Text16.TextAdodc3.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc3.CommandType=adCmdTableAdodc3.RecordSource="工资表"Adodc3.RefreshAdodc3.Recordset.AddNewAdodc3.Recordset.Fields("工号").Value=Trim(Text11.Text)Adodc3.Recordset.Fields("基本工资").Value=Trim(Text13.Text)Adodc3.Recordset.Fields("工龄补贴").Value=Trim(Text14.Text)a="Text15.Text"+"Text14.Text"+"Text13.Text"Adodc3.Recordset.Fields("实发工资").Value=Trim(a)Adodc3.Recordset.UpdateMsgBox"恭喜你添加成功"Text13.Text=""Text14.Text=""Text15.Text=""Text16.Text=""Text11.Text=""ExitSubEndIfEndSub添加工作信息代码如下：PrivateSubCommand20_Click()Adodc4.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc4.CommandType=adCmdTextAdodc4.RecordSource="select工号from工作表where工号='"&Trim(Text18.Text)&"'"Adodc4.RefreshIfAdodc4.Recordset.EOF=FalseThenMsgBox"此工号已存在",0,"提醒"ExitSubEndIfIfText18.Text=""OrText19.Text=""OrText20.Text=""OrText21.Text=""ThenMsgBox"请将信息填写完整"ElseAdodc4.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=人事管理;DataSource=PC-043"Adodc4.CommandType=adCmdTableAdodc4.RecordSource="工作表"Adodc4.RefreshAdodc4.Recordset.AddNewAdodc4.Recordset.Fields("工号").Value=Trim(Text18.Text)Adodc4.Recordset.Fields("姓名").Value=Trim(Text19.Text)Adodc4.Recordset.Fields("来院时间").Value=Trim(Text20.Text)Adodc4.Recordset.Fields("任职时间").Value=Trim(Text21.Text)Adodc4.Recordset.UpdateMsgBox"恭喜你添加成功"Text18.Text=""Text19.Text=""Text20.Text=""Text21.Te