欢迎来到淘文阁 - 分享文档赚钱的网站! | 帮助中心 好文档才是您的得力助手!
淘文阁 - 分享文档赚钱的网站
全部分类
  • 研究报告>
  • 管理文献>
  • 标准材料>
  • 技术资料>
  • 教育专区>
  • 应用文书>
  • 生活休闲>
  • 考试试题>
  • pptx模板>
  • 工商注册>
  • 期刊短文>
  • 图片设计>
  • ImageVerifierCode 换一换

    VB课程设计人力资源管理系统最终版(共58页).doc

    • 资源ID:13597750       资源大小:2.04MB        全文页数:58页
    • 资源格式: DOC        下载积分:20金币
    快捷下载 游客一键下载
    会员登录下载
    微信登录下载
    三方登录下载: 微信开放平台登录   QQ登录  
    二维码
    微信扫一扫登录
    下载资源需要20金币
    邮箱/手机:
    温馨提示:
    快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
    如填写123,账号就是123,密码也是123。
    支付方式: 支付宝    微信支付   
    验证码:   换一换

     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    VB课程设计人力资源管理系统最终版(共58页).doc

    精选优质文档-倾情为你奉上人力资源管理系统1.设计目的21世纪,高新技术的超速发展和全球化的市场经济导致企业之间的竞争空前激烈,但归根结底是人才的竞争,谁能有效地管理和开发人力资源,谁就能掌握知识经济时代的生产力,几乎所有的企业管理者都意识到人力资源是企业最重要最宝贵的资源。然而,如何开发和管理人力资源,使其转化为一种现实的劳动生产力,则是众多管理者的盲点。看似简单的人力资源管理,其实蕴涵了极为丰富的内涵。通过对人力资源的规划、招聘、考核、培训、激励等一系列的手段,充分挖掘员工的潜力,提高他们对企业的认同感和责任感.只有这样,才能使企业拥有不断创新的活力,保证其在研发、生产、营销等各方面的领先地位,最终赢得市场的认可。随着人力资源部门工作范围的日益扩展,人力资源经理专业要求的日益提升,使得计算机等先进技术手段的作用日益显现。因此,开发人力资源管理系统是非常有必要的,它不仅能够完成日常繁琐的业务,而且可以准确及时地搜集各种人力资源信息以供管理者进行决策,这个系统要实现的功能包括以下几个部分,部门的添加,更改和删除,员工的信息管理,员工信息统计管理。2.功能介绍2.1 系统功能模块划分人力资源管理系统完成的任务虽然随着企业的不同而有所差异,但对其任务进行归纳和划分后可将系统分为几个共同的功能需求模块,人力资源管理系统主要功能需求为下列六大部分,每个部分具体的功能需求如下:(1)部门编制管理部分:可以进行设置、修改、删除、查看企业的组织部门信息。 (2)员工信息管理部分:可以进行增加、修改、删除、查询企业的职员各种信息。(3)员工信息统计部门:可以对员工信息进行图表化的显示。2.2系统数据库设计(1)系统数据结构设计针对人力资源管理系统的需求,为本系统设计如下的数据项和数据结构:部门表结构如表1所示。表1部门表结构表字 段类 型长 度说 明部门序号数字长整型主键部门名称文本50允许为空业务描述文本50允许为空用户密码表结构如表2所示。表2户密码表结构表字 段类 型长 度说 明用户名文本50主键密码文本50不允许为空员工个人信息表结构如表3所示。表3员工个人信息表结构表字 段类 型长 度说 明工作证号数字长整型主键姓名文本50允许为空所属部门文本50允许为空身份证号文本50允许为空性别文本50允许为空民族文本50允许为空出生日期日期/时间允许为空文化程度文本50允许为空户口所在地文本50允许为空移动电话文本50允许为空照片文本50允许为空员工考勤表结构如表4所示。表4员工考勤表结构表字 段类 型长 度说 明编号数字双精度型主键部门名称文本20允许为空姓名文本20允许为空工作证号数字双精度允许为空全勤文本10允许为空事假文本10允许为空病假文本10允许为空员工信息表结构如表5所示。表5员工信息表结构表字 段类 型长 度说 明工作证号数字长整型主键员工姓名文本20允许为空所属部门文本20允许为空到岗日期日期/时间允许为空职务文本50允许为空办公电话文本50允许为空政治面貌文本50允许为空合同有效期文本50允许为空工资数字长整型允许为空奖金数字长整型允许为空(2)建立数据库运行Access 2003,建立一个空数据库,命名为人力资源管理数据库,操作界面如图1所示。图1 建立Access数据库界面图通过设计器创建表,并插入数据在数据库的设计中,共设计了五张表。其中包括员工信息表,密码表, 部门表,员工个人信息表和员工考勤表。部门表中设置了三个字段,分别为部门序号、部门名称和业务描述。密码表中设置了两个字段,分别为用户名和密码。员工个人信息表中设置了10个字段,分别为姓名、所属部门、身份证号、性别、民族、出生日期、文化程度、户口所在地、移动电话、照片。员工考勤表中设置了7个字段,分别为编号部门名称、姓名、工作证号、全勤、事假、病假。员工信息表中共设置了10个字段,其中包括:工作证号、员工姓名、所属部门、到岗日期、职务、办公电话、政治面貌、合同有效期、工资、奖金。(3)连接数据库单击菜单“工程”,在部件对话框中,添加控件“Microsoft ADO Data Control 6.0”,然后点击确定按钮,具体操作对话框如图2所示。在窗体上添加Adodc数据控件,右击Adodc,在属性窗口中,首先选择“通用”选项卡,并选择“连接字符串”,单击“生成”按钮,如图3所示。在“提供者”选项卡中,选择“Microsoft Jet 4.0 OLE DB Provider”,如图4所示。单击“测试连接”按钮。如果显示“测试连接成功”消息框,则表示连接成功,如图5所示。图2添加“Microsoft ADO Data Control 6.0”图图3 ADODC属性界面图4 添加“Microsoft Jet 4.0 OLE DB Provider”图图5 测试连接成功图3.详细设计3.1系统功能模块图人力资源管理系统基本信息考勤考评员工信息统计系统用户管理图6 系统功能模块图3.2登录模块设计登录模块的详细设计主要是用户登录的一个界面,进入后将面对的是主界面,从而进行相关的操作。登录的界面主要由用户名和密码的信息,确定和取消的按钮组成。通过标题可以知道此系统的大概内容,由此,登录界面的设计完成,如图7所示。图7 登陆界面图登陆界面窗体的控件如表6所示。表6 登录窗体控件表控 件 类 别控件Name控件TextLabelLabel1用户名Label2密码TextBoxText1(空)Text2(空)CommandButtonCommand1确定Command2退出AdodcAdodc1(空)3.3“主窗体”模块详细设计主窗体是整个系统的运行的基础。主控制平台使用简单直观的布局,它主要实现对模块的调用和显示,提供了菜单的操作方式,对各个模块进行调用和显示,如图8所示。图8 主窗体主窗体的菜单由菜单编辑器编辑完成,分为4个顶级菜单和若干个子菜单,具体菜单如表7所示。表7 主窗体菜单明细表菜 单 名 称Text属性功 能 描 述MenuItem1基本信息管理顶级菜单,包含子菜单MenuItem2部门管理调出部门管理窗体MenuItem3员工管理调出员工管理窗体MenuItem4退出系统退出系统MenuItem5考勤考评管理顶级菜单,包含子菜单MenuItem6考勤管理调出考勤管理窗体MenuItem7员工信息统计顶级菜单MenuItem8系统用户管理顶级菜单,包含子菜单MenuItem9用户管理调出用户管理窗体MenuItem10修改密码调出修改密码窗体3.4各项子模块详细设计(1) 基本信息管理模块基本信息管理中又包含部门管理和员工管理两个窗体。在基本信息管理模块中主要对员工信息和部门信息进行输入和管理,并能进行查询。在部门管理中,主要对部门的信息进行管理,可以对部门信息进行添加,修改查找和删除的操作。操作完成后,通过“返回”回到主界面,如图9所示。图9 部门管理模块设计图部门管理模块窗体的控件如表8所示。表8 部门管理模块窗体控件表控 件 类 别控件Name控件TextCommandButtonCommand1添加Command2查找Command3删除Command4返回FrameFrame1(空)LabelLabel1部门信息DataGridDataGrid1(空)AdodcAdodc1(空)在员工信息中,可以对员工的信息进行浏览,添加,修改,查找和删除资料。并且可以通过这个界面进如部门调转和详细个人信息界面。其中,个人详细信息与列表中的员工信息是绑定的,当选定一个员工的信息,然后点击个人详细信息,即可显示这个员工的信息。同时,左侧的所属部门的框中的部门信息与员工信息也是绑定的,可以通过所属部门框对员工信息进行分类查询,如图10所示。图10 员工管理模块设计图员工管理模块窗体的控件如表9所示。表9 员工管理模块窗体控件表控 件 类 别控件Name控件TextCommandButtonCommand1详细个人信息Command2添加员工Command3查找Command4删除资料Command5部门调转Command6返回LabelLabel1所属部门Label2员工信息DataListDataList1(空)DataGridDataGrid1(空)AdodcAdodc1(空)AdodcAdodc2(空)详细个人信息是每个员工的个人信息,在这个窗体中,显示与个人信息有关的内容,详细个人信息与员工信息绑定,通过员工信息窗体,可以直接显示对应的员工个人信息,不用再进行查询。当需要添加个人信息时,点击添加按钮即可添加,点击确定保存道数据库。对相片可以进行修改或者是添加,当点击“添加”按钮时,弹出一个文件操作的对话框,选定添加后,单击保存进行保存到数据库的操作,如图11所示。图11 员工个人信息窗体设计图员工个人信息窗体的控件如表10所示。表10 员工个人信息窗体控件表控 件 类 别控件Name控件TextCommandButtonCommand1添加Command2保存Command3返回Command4添加Command5确定TextBoxText1(空)Text2(空)Text3(空)Text4(空)Text5(空)Text6(空)Text7(空)Text8(空)Text9(空)Text10(空)LabelLabel1员工个人详细信息Label2工作证号ImageImage1(空)CommonDialogCommonDialog1(空)AdodcAdodc1(空)部门调转窗体可以实现对员工的工作岗位发生变化时进行部门信息的调转。在部门调转窗体中,可以输入员工编号进行查找,当查找到相应的员工时,该员工的部分信息将会在下面的文本框中显示,以确认查找的结果,防止错误操作。当查找到员工时,从“调转到”后面的选择下拉框中选择所要调转到的部门,点击确定即可,如图12所示。图12 部门调转窗体设计图部门调转窗体的控件如表11所示。表11 部门调转窗体控件表控 件 类 别控件Name控件TextCommandButtonCommand1查找Command2返回Command3确定LabelLabel1输入员工姓名Label2员工姓名Label3现在部门Label4调转到DataComboDataCombo1(空)AdodcAdodc1(空)Adodc2(空)(2) 考勤管理窗体在考勤管理窗体中。可以实现对员工的考勤状况的显示,查询,添加,修改,删除,报表等功能。在窗体中,可以通过员工姓名和部门名称两种查询方式进行查询。当要选择进行某种查询时,选择对应选择框前面的按钮,即可通过后面的下拉选择框进行选择,点击查询即可进行查询,如图13所示。图13考勤管理窗体设计图考勤管理窗体控件如表12所示。表12 考勤管理窗体控件表控 件 类 别控件Name控件TextCommandButtonCommand1查询Command2添加Command3修改Command4删除Command5保存Command6返回Command7生成报表OptionOption1选择员工姓名Option2选择部门姓名ComboBoxCombo(空)DataGridDataGrid(空)Frame Frame(空)AdodcAdodc1(空)(3) 系统用户管理模块在系统用户管理模块中有两个窗体,分别为用户管理和修改密码。在用户管理模块中可以对系统用户进行添加用户和用户的密码修改操作。用户管理窗体中,可以进行添加用户的操作。在输入密码时,两次输入的密码要相同,不同的话系统会进行提示,必须进行再次输入。完成后点击“确定” 如图14所示。图14 用户管理窗体用户管理窗体的控件如表13所示。表13 用户管理窗体控件表控 件 类 别控件Name控件TextCommandButtonCommand1确定Command2返回LabelLabel1员工姓名Label2请输入密码Label3再次输入密码TextBoxText1(空)Text2(空)Text3(空)FrameFrame1(空)AdodcAdodc1(空)修改密码窗体中,可以对当前用户的密码进行修改。同时,两次输入的密码应该一致,不一致的话,系统会给出提示,并要求重新输入。完成后点击“确定”。当修改成功时,系统会给出修改成功的提示如图15所示。图15 修改密码窗体修改密码窗体的控件如表14所示。表14修改密码窗体控件如表控 件 类 别控件Name控件TextCommandButtonCommand1确定Command2返回LabelLabel1输入新密码Label2再次输入密码TextBoxText1(空)Text2(空)FrameFrame1(空)AdodcAdodc1(空)3.5 系统运行及结果在系统登录界面中输入用户名和密码,点击确实进入人力资源管理系统如图16所示。图16 系统登陆界面输入用户名和密码图点击确定以后进入系统的主界面如图17所示图17系统主界面图选择基本信息管理顶级菜单中的部门管理子菜单如图18所示。图18部门管理界面点击查找后,弹出让用户输入部门序号进行查找的对话框,如图19所示。图19 查找对话框点击添加后系统会自动在底端插入一行表格供用户添加部门信息使用,如图20所示。图20 添加部门信息界面点击返回,返回主界面,然后选择基本信息管理中的员工管理子菜单,如图21所示。图21 员工管理界面点击详细个人信息,可以显示员工的详细信息,如图22所示。图22 员工详细信息界面点击返回,返回到员工管理界面,员工管理界面和部门管理界面一样可以进行添加、删除、和查找的操作。点击调转部门,然后输入员工编号点击查找,显示出该编号员工的姓名和现部门,然后可以选择把该员工调到其他部门,然后点击确定就实现了员工的调转部门操作,如图23所示。图23 调转部门界面返回到主界面后,选择考勤管理菜单,如图24所示。图24 考勤管理界面按选择员工姓名查询,先选中选择员工姓名单选框,然后选择一个员工进行查询,如图25所示。图25 查询员工考勤情况界面返回主界面后选择员工信息统计中的员工工资统计,如图26所示系统以柱状图呈现给用户。图26 员工工资统计图然后选择员工学历组成比例统计,如图27所示系统以饼状图呈现给用户。图27员工学历组成比例统计图选择修改密码子菜单后,输入新密码,可以修改系统用户的密码如图28所示。图28 修改密码界面4.心得体会我们组这次设计的程序是员工系统,主要用于企事业单位的考勤,便于统计员工的出勤情况。 1通过这一次的程序设计,使我能够进一步掌握用VB程序设计语言解决实际问题的方法,在操作当中把所学到的用于实际的编程里面去。2通过这一次的程序设计,使我能够提高分析问题、查阅资料、吸收新知识的能力,在分析解决问题时比以前有了很大的进步,一些常用的知识和一些常规的错误都能够解决。3通过这一次的程序设计和指导教师姜瑶老师的指导使我能够进一步对VB有了熟练的操作,并且在分析,编程方面比以前有了更大的提高。4我认为实践周的程序设计是给我们学习的一个大好机会,使我们在这样的机会里学到了一定的知识,毕竟理论要通过实践来锻炼,也只有自己参与了这样的一个锻炼,才能更好的发现自己的不足并加以改进和完善!在这次的设计过程中,我学到的不仅是知识,我还认识到许多事情。这次设计使我的编程水平提高了一大步,使我充分的认识到合作的可贵。由于这次设计涉及到数据库,我也学到了不少数据库连接的知识,对数据库的操作有了进一步的了解。这次设计对我的综合能力是一次很好的锻炼,但是我必须承认自己的能力和知识还很肤浅。所以今后我的学习道路还是很漫长的。最后,在这里我要衷心的感谢我们的指导老师谢谢她的耐心指导和热心帮助。由于我水平有限,加之时间短暂,故学习数据库系统中还有许多不足之处,请老师批评指正,我会在以后的制作中不断改进,不断完善。12:911503 正阿奇 VB实用教程M.北京:电子工业出版社,2000,4:88-1254 郭安源 教育信息化系统开发M.北京:人民邮电出版社,2002,5:220-2805 刘天惠. Visual Basic程序设计教程M.清华大学出版社,2006.2 :165-2246.附录 (1)登陆窗体源代码: Adodc1.Recordset.Find "用户名='" & Text1.Text & "'", , 1 If Adodc1.Recordset.EOF Then MsgBox "没有此用户,请重新输入!", , "提示" Text1.SetFocus Else If Trim(Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Then userID = Text1.Text Adodc1.Recordset.MoveFirst Unload Me Form1.Show Else MsgBox "密码不正确!请重新输入!", vbOKOnly + vbExclamation, "" Text2.SetFocus End If End IfEnd If cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit Sub End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Dim a As StringAdodc1.ConnectionString = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=renliziyuan.mdb"Adodc1.RecordSource = "密码"cnt = 0Text2.PasswordChar = ""End Sub(2)主窗体源代码:Private Sub bmgl_Click()Form1.Hideform2.ShowEnd SubPrivate Sub gztj_Click()End SubPrivate Sub kqgl_Click()Form11.ShowEnd SubPrivate Sub tc_Click()EndEnd SubPrivate Sub xgmm_Click()Form9.ShowEnd SubPrivate Sub yggl_Click()Form1.HideForm3.ShowEnd SubPrivate Sub ygxxtj_Click()Form10.ShowEnd SubPrivate Sub yhgl_Click()Form8.ShowEnd Sub(3)部门管理窗体源代码:Private Sub command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Dim m As String m = InputBox("请输入部门序号", "查找窗") Adodc1.Recordset.Find "部门序号= '" & m & " '", , , 1 If Adodc1.Recordset.EOF Then MsgBox "无次部门!", , "提示" End SubPrivate Sub Command3_Click()ask = MsgBox("是否删除?", vbYesNo)If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateForm1.Showform2.HideEnd Sub(4)员工管理窗体源代码:Private Sub command1_Click()Adodc2.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Dim m As String m = InputBox("请输入员工号", "查找窗") Adodc2.Recordset.Find "工作证号= '" & m & " '", , , 1 If Adodc2.Recordset.EOF Then MsgBox "无此员工!", , "提示" End SubPrivate Sub Command3_Click()ask = MsgBox("是否删除?", vbYesNo) If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End SubPrivate Sub Command4_Click()Form3.HideForm4.ShowEnd SubPrivate Sub Command5_Click()Form3.HideForm1.ShowEnd SubPrivate Sub Command6_Click()Dim n As Integern = Adodc2.Recordset.Fields("工作证号")Form5.Adodc1.CommandType = adCmdTextForm5.Adodc1.RecordSource = "select* from 员工个人信息表 where 工作证号='" & n & "'"Form5.Adodc1.RefreshForm3.HideForm5.ShowEnd SubPrivate Sub DataList1_Click()Adodc2.RecordSource = "Select * from 员工信息 Where 所属部门 ='" & DataList1.BoundText & "'"Adodc2.RefreshEnd Sub(5)员工个人详细信息窗体源代码:Private Sub command1_Click()Dim strb() As ByteAdodc1.RecordSource = "select*from 员工个人信息表 where 工作证号='" & Text10 & "'"Adodc1.RefreshCommonDialog1.ShowOpenOpen CommonDialog1.FileName For Binary As #1fl = LOF(1)ReDim strb(fl)Get #1, , strbAdodc1.Recordset.Fields("照片").AppendChunk strbClose #1Image1.Picture = LoadPicture(CommonDialog1.FileName)End SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command3_Click()Form5.HideForm3.ShowEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Label12_Click()End Sub(6)调转部门窗体源代码:Private Sub command1_Click()Dim no As Stringno = Val(Text1.Text)Adodc1.Recordset.Find "工作证号='" & no & "'", , , 1If Adodc1.Recordset.EOF Then MsgBox "数据不存在!", , "提示"End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Command2_Click()Form4.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.Fields("所属部门") = DataCombo1.BoundTextAdodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load()Text1 = ""Text2 = ""Text3 = ""End Sub(7)用户管理窗体源代码:Private Sub command1_Click()If Trim(Text1.Text) = "" Then MsgBox "用户名不能为空", vbOKOnly + vbExclamation, "" Exit Sub Text1.SetFocusElse Do While Not Adodc1.Recordset.EOF If Trim(Adodc1.Recordset.Fields("用户名") = Trim(Text1) Then MsgBox "已有这个用户", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" Text2.Text = "" Text3.Text = "" Exit Sub Else Adodc1.Recordset.MoveNext End If Loop If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBox "两次密码不一致", vbOKOnly + vbExclamation, "" Text2.SetFocus Text2.Text = "" Text3.Text = "" Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用户名") = Text1 Adodc1.Recordset.Fields("密码") = Text2 Adodc1.Recordset.Update MsgBox "添加用户成功", vbOKOnly + vbExclamation, "" Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Form8.HideForm1.ShowEnd SubPrivate Sub Form_Load()Text2.PasswordChar = "*"Text3.PasswordChar = "*"End Sub(8)密码修改窗体源代码:Private Sub command1_Click()Adodc1.RecordSource = " select * from 密码 where 用户名='" & userID & "'"Adodc1.RefreshIf Trim(Text1.Text) <> Trim(Text2.Text) Then MsgBox "密码不一致!", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" Text2.Text = ""Else Adodc1.Recordset.Fields("密码") = Text1 Adodc1.Recordset.Update MsgBox "密码修改成功", vbOKOnly + vbExclamation, "" Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Form9.HideEnd SubPrivate Sub Form_Load()Adodc1.RecordSource = 系统管理Text1.PasswordChar = "*"Text2.PasswordChar = "*"End Sub(9)员工信息统计窗体源代码:Dim a$(), b%(), n, max Public Sub zbx() Cls n = 0: max = 0 Adodc1.Refresh Do While Not Adodc1.Recordset.EOF n = n + 1 ReDim Preserve a(n) ReDim Preserve b(n) a(n) = Adodc1.Recordset.Fields("员工姓名") b(n) = Adodc1.Recordset.Fields("工资") If b(n) > max Then max = b(n) Adodc1.Recordset.MoveNextLoopScale (-3, max * 1.2)-(max * 1.2, -max * 0.1)Line (0, 0)-(max * 1.2, 0): Line (0, max * 1.2)-(0, 0)CurrentX = -3: CurrentY = -1Print "数据:"For i = 1 To UBound(a)Print a(i); b(i); ","Next iEnd SubPrivate Sub bl_Click()Dim s$(0 To 4), m%(0 To 4), zuida%, sum%s(0) = "本科"s(1) = "大专"s(2) = "高中"s(3) = "初中"s(4) = "小学"Adodc2.Refresh Do While Not Adodc2.Recordset.EOF Adodc2.Recordset.Find " 文化程度 = '" & s(0) & " '" ', adSearchForward If Not Adodc2.Recordset.EOF Then m(0) = m(0) + 1 If Adodc2.Recordset.AbsolutePosition = Adodc2.Recordset.RecordCount Then GoTo line1 Else Adodc2.Recordset.MoveNext

    注意事项

    本文(VB课程设计人力资源管理系统最终版(共58页).doc)为本站会员(飞****2)主动上传,淘文阁 - 分享文档赚钱的网站仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知淘文阁 - 分享文档赚钱的网站(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    关于淘文阁 - 版权申诉 - 用户使用规则 - 积分规则 - 联系我们

    本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

    工信部备案号:黑ICP备15003705号 © 2020-2023 www.taowenge.com 淘文阁 

    收起
    展开