人事档案管理系统的设计与实现

《人事档案管理系统的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、人事档案管理系统的设计与实现畅育超摘要：主要介绍利用VB实现人事档案管理系统的设计与实现。关键词：ADO记录集；树形控件；网格控件；事件代码Publicsq2AsDate1引言PublicCurrentUserAsString当前用户参数PublicselrsidAsString随着社会的不断发展，各企事业单位对本单位人事信息的PublicselrsnameAsString处理已呈现信息化，以便能及时动态地了解本单位人事信息。PublicselrslidAsString请假员工id参数本系统主要

2、用于解决企事业单位中员工的一些基本信息的存PubliccxrsAsNewADODB．Recordset员工状态查询记录储、修改、统计、打印、查询和浏览等，目标是使人事档案管PublicrslcxAsNewADODB．Recordset员工请假查询记录理真正实现实时化、准确化、无纸化。PublicrslbookmarkAsVariant员工请假查询书签PublicrsbookmarkAsVariant员工状态查询书签2功能模块PublicJbLenAsInteger定义每级的长度Publiccon

3、nAsNewADODB．Connection该系统主要由系统管理模块、报表打印模块、档案操作模PublicaAsString定义一个获取当前所选择的结点的KEY值块、人事变动模块、统计报表模块、数据维护模块6部分构PublicSubmain()’数据库连接模块成．在操作上能够实现诸如添加、修改、删除、按条件查询、conn．Open“Provider=Microsoft．Jet．OLEDB．4．0；DataSource=新用户的设置及密码修改等方面的工作，基本满足人事档案管+App．Path4-"

4、krsdata．mdb4-；PersistSecuritylnfo=False“JbLen=2初始化为2理的日常业务需要，如图1所示。conn．CursorLocation=adUseClient’设置游标类型为客户端EndSubPublicSubcmddata—Click(rsgridAsMSFlexGrid)数据导出’模块DimxtsRowCountAsInteger，xlsColCountAsInteger生成的表格的行数和列数DimxlsAppAsExce1．ApplicationDim

5、xlsBookAsExce1．Workbook0imxlsSheetAsExce1．WorksheetDjmi，；AsLongSetxlsApp=CreateObject(~Exce1．Application“)SetxlsBook．=xlsApp，Workbooks．AddSetxlsSheet=xlsBook．Worksheets(1)图1系统功能OnErrorResumeNext．xlsRowCountrsgrid．Rows3具体实现xlsColCount=rsgridColsWithxl

6、sSheet(1)公共变量及模块(Modbas)For．-1ToxlsRowCount一1设置行高PublicsAsInteger消息参数．Rows(i)．RowHeight：15PubliccAsString{NextPublicbAsString把MSFlexGridl的内容写入到电子表格中PublicStrsAsStringFori=0ToxlsRowCount一1PublicStrAsStringFori：0ToxlsColCount一1PublicsqlAsDate定义字符型日期．Ce

7、lls(1-I-1，j+1)．Value=rsgrid．TextMatrix(i，j+1)瓣_f⋯JEJ⋯H实用第一智慧密集一⋯⋯⋯一⋯。⋯⋯．CellsEntireColumn．AutoFit自动适应字段宽度．Cells．HorizontalAlignment=Center居中对齐诎栅^端鳓日旃#曝聪骑蜘洛#静晦雌一⋯⋯麓磕螂：一一～⋯～‘’锄嘲蚋础NextNextEndWithxlsApp．Visible=True显示电子表格xlsBook．SaveAsApp．Path＆导出数据．xls”S

8、etxlsApp=Nothing交还控制给ExcelEndSub(2)用户登录模块图3系统主控界面如图2所示。为了使设计直观、简单和方便用户操作，主控制平台窗口采用菜单栏和工具设计，树形控件(Treeview)便于显示部门信息，网格控件fMsflexgrid)用于浏览员工的基本信息和显示查询结果，在此界面中用户可进行数据浏览、查询、导出和打印操作，代码如下：PrivateSubCam3一Click()按照员工状态(在职、退休等)查询DimsyAsStringDimiAsIntegersy：Tri