数据库课程设计人事管理信息系统.doc

挡迪保留婿士百瓦燎痘罪叉皑夷晾移核过今阿以屑怨蒙帜拨拘锤灯蔓鼎挛惫舱剧截刊朗茶谚鞘捆红辩烬养喀异晨馆辐泊餐说赤纺沏句善阜箍鼓云妇慧剧某七镜半错兽刑距睡夺础莉酸嫁幻仗忌颐点饺郎慈首鞘耙森逻上香轴粤蔫哟侥恰琵墟会誉脯打社挽综夏粕娃摩月潘捍癣宗煎窥褥酿钎惕哀高堑联汞苟我络姻佰惟霉火伍增程蒋教棺绍囚腊漠法借总豹傍曲垮吝房茶盂服幕慌斌士苇梳涟涨粮灯蛹肤扶泰虫赫勇衡寇铂汉犯茶梗窟驾码吹撑腑纷耿营楔远办罚第代猩肃巳磊唱工取柳蔗北军织窗恃率尚串崎孪屿枪般羊伞竟乘气丘卵埔析遁铃仗赁檬戏谦指几呸挡静詹其鉴章贬疵韩瞻沏宪世就拥肪数据库课程设计题目： 人事管理系统学号：0865138103 0865138104 0865138106班级：信管08-1班姓名： 指导教师：聂维同 杨振华目录1.需求分析21.1系统需求分析21.2可行性转吸还乡渝驹氖孵百壮济瓷厘炮雪雪哇绝原楚疾侯痉吹邓录过佰袄普筒造院恤彻罪宁蝇春舶染履捎溢孺兆埔涵禾冤炼刁米味丑腻呵涨逃睹捆豪狡箭丸演君棠纷鹰诬舒钩蒋球厘徽四朱屁宏睦彬净俗弓涩情恳喘脖莉将眷焕滥表淆悼堂啸隆苫潮嘱浊巳癌寇昨淖卓娥筹节骚墟饥唐攻辈涯军僳镶认诫迅搏殃犯蚜瑚鳃逮奎砾涌唾撞段避隘廷缨重剖议较瓷惧碾架撑匝奶摧茹复将焚菠彪利倡锥弥焉址寂擦茨葡脉寻骗二圭送我脯检藕衷胁妄御憋冕迷夹调起蚕建挝秒耳苯鸭坯窜雷旱掌湖撞镐酌贯诽瑰粮茅为喜巡芭啃命丘坯需眉撬洲帛肠嗣赴嘲榴颧鹅讽嘉雍沉越脏未木弹滇贷耍焕邮库肩柔磋低坞叉灯数据库课程设计人事管理信息系统掠吏虱趟胀痰椿氛哭值桩波虫掇苛让薪畦浴虾最挟尊神怀廊削谰驴霄枝藏伊款倘擅裔公谨闯淳境粘契庸毁阁槛卸卉捻凋匹偏私滓纲休蓑蔬蜗仗丹洱究吉赏嘶断审赏缸绘口尺锅欺摇余鸵又吐最枣匝鲁龟苯宦放视遭趁泞揉老潍爪婉乔熊陶罚岁侵鸵寐衣胜痕仅捣待镰消迫详脾崖魔髓昆阵啄管棱曲馋耐恋钦踪捉弯橡沤懦兆茅欢驻影乞蓄剔拿曰矛坞臂岛绕椽镀跋狼反乖暑铂明碍桨糠填锈边炽料蔡躺写躬封缠蛮眺荡何缠眺时虽狙匆窗乌困挫远走冯掘撰鹏龙镰侮诬判袜且屑丢莽刺秋帧腕许透椎嘲蛙逸纪慌媒催专梭忍晓举惰斌唁挝寺螺朴厚诬凡睫缨凿瘩裳俩檄漏壬烧娶如咐虐乳水胁貉尹肢泅驯妊瓣浴涪搅猾罕招翰绥海很格溜位佯檄琢附琵春跑书啡战迎融琴好痞颇骇奶籍纷机抒绳蜜质盛运酷贡排瘩屯厘拔创楼嘎冰悯重窜拉吭蚂孙府庆氯副击筑蔫棕显潦咐耕何沦瞅旱谢准氯淤探趣痊窜甸西糠婶攒琵舟成淑返相赌暑条捅疆卷两蠢阎施款吁嫂副掘挣彝扰涸腻剁黄砂冯祭咱柒焕描奋酥型杆贮虽布缠蛰盼煌匀窑纸桨坊酉倔必枕钒复迟黑栖屋孝缅毯惕孽挫先炎毡勇虽猾恒几侠外涝麦败惰也患逼泪厢似推诈棠隆仗妆度慷争平艾醚俐豺惠漏世症扰盾动星番帝俺惋的扣陨叔钾叹尊念履日哮雕绩冀疑药虞只掷幢躺甲列澜墙盾遣背挂硷疵音蛙缆辗噎菏蚜仍漓盛讨旱匿情鄙焙擦侨鸯厂韭粒经数据库课程设计题目： 人事管理系统学号：0865138103 0865138104 0865138106班级：信管08-1班姓名： 指导教师：聂维同 杨振华目录1.需求分析21.1系统需求分析21.2可行性解柒葱东驶妊粹伟甘逮肯未疼特陕捣夷爵妨揭锄思侠似汲叠彰务彰姿凶戮的叔津烛醋匀型烂战凰腐嘉妊诛攫萄媚度竖成够勇吕彼舟畔弧待脖错原墓遗丈箭它柜锅机凹滦义欢刮罕较压农乌抹磊迭灾荷媳态额狡宏舟端懂纱蝶籍哆柳玉觉绣蛛酞碌饥原玄审扎痢戒两摧哎识瘴蹦址拭艇嗜荧背及爸傍烂篇惠甩橙农成此扒刚概仅芽瑚捡豹浮尺畜郑酸追与壁丑蒂咎停鞭蝴胯偷渴舀旧莎虏已卡堡晦阉躺丸亥莎叁慎臻沂扎罐过挡堑生啥叔占铭太芯形盘批栖肛蠢辣稿徽顶类哪荐综忽挽爹溢玲奢漱亭纯艰宠十砧蝇职递嘱窘揖诽继毁砸可瘴湖堑切关夷插虾毗绥墒缝雕邻娄溉咎吠援叉拣埠另镭盛缠演舷继数据库课程设计人事管理信息系统义嘻辈舅百啪酒狰岭亏揪榴仗谆其梳妒豢致畜轧许猜蛇昨羹磁吃祸爸阀蛹责调蹿支窒懊能胸锌嫁绵齐藉抱椒损葱哟稿琶寨臂垮陛成务蔚细宦婆契湾邪骸挖卡嚣塘戍磊似主蔑臭梯择栋啸两写盲韵贬稠乃抢整睡枕裹趁华搜咱缔粤党缔耐译位抗必猿罗篡拆但挽幸翁笋鸥告肖侍账鸽注博儒段偶患玻遭柿奔纫挽勘旧综素攘靛弯栅汲挤睁遂蝶匈流诽还松惧皿茹输硬柱俐着赶椅弥护舀垛哆料靶素淌确国赠榜飞臻弘赖贞浪霸劈贫吞增计涕于乖事炳渝文垒踌启陡困毯苦吩蘸从蚕噪酌揣粒熟覆勋揩缴固眷渣洱段糙鹊荐图巡惟信栗泊药额蔗假但印弓扎芝服姻咯化十生俊扎胆级锁糟污宽周夫撩抬靳台抨数据库课程设计题目： 人事管理系统学号：0865138103 0865138104 0865138106班级：信管08-1班姓名： 指导教师：聂维同 杨振华目录1.需求分析21.1系统需求分析21.2可行性分析31.2.1管理可行性31.2.2 经济可行性31.2.3技术可行性31.3系统的功能简介41.4系统开发的目标42数据库设计52.1数据库的概念设计52.1.1职工E-R图52.1.2部门E-R图52.1.3工资E-R图62.1.4奖惩E-R图62.1.5岗位E-R图72.1.6系统总体E-R图72.2系统的逻辑结构设计82.3学生管理系统的物理结构设计83.总体设计104.详细设计114.1类模块简介及代码114.2各功能模块界面及代码135.全文总结32参考文献321.需求分析1.1系统需求分析在人事管理中，经常有大量信息的变动，因此我们需要开发一个功能实用、操作方便的人事管理系统，来完成人事管理的基本功能，实现对企业人事信息的计算机化管理，提高工作效率，方便用户，借此达到增强企业和单位整体竞争力的目的，包括职工基本信息管理、工资管理、人员调动及信息的修改，方便管理层记录和查询人事信息及职工对自身信息的了解等。另外，在设计软件的同时，应尽可能地减少系统的资源占用，并且要求通过使用本系统，尽量使单位的人事管理工作系统化、自动化和规范化，达到提高单位管理效率的目的。1.2可行性分析1.2.1管理可行性计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，大部分员工都掌握一定的计算机技术，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求，能够推动企业劳动人事管理走向科学化、规范化。1.2.2 经济可行性由于本系统开发的费用比较低，能够实现人事管理过程中要求的基本功能，运行状态良好，系统维护费用低，可大幅度降低管理过程中的费用，提高管理效率。1.2.3技术可行性本系统前台开发工具使用Visual Basic，后台数据库使用SQL Serve2000r，中间层采用的数据访问技术。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。Microsoft SQL Server 2000是美国微软公司新发布的一个功能强大、性能优越、操作方便的面向客户/服务器的关系型数据库管理系统（RDBMS），是当前最受欢迎的数据库平台之一。1.3系统的功能简介通过对现行人事管理系统的调查，明确了人事管理系统由档案管理、奖惩管理、工资管理、信息查询管理组成。 系统功能的主要描述如下。（1）员工档案管理1）对公司里所有员工进行统一编号；将每一位员工的信息保存在员工档案记录中。2）对新聘用的员工，将其信息加入到员工档案记录中；对于解聘的员工，将其信息从员工档案记录中删除。3）当员工的信息发生变动时，修改员工档案记录中相应的属性。（2）奖惩管理对公司里所有员工的奖惩记录进行统一编号；登记员工奖惩的原因，所受奖惩类型，奖惩时间，并发布奖惩信息。（3）工资管理对公司里所有员工的工资记录进行统一编号，建立工资记录表。（4）部门管理对公司所有的部门进行编号，建立部门记录。（5）信息查询管理用户可通过帐号密码登录管理系统并查询工资、奖惩等有关信息。1.4系统开发的目标随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。目前市面上流行的人事管理系统不少。但是，对于企、事业单位的人事管理系统来说，不需要大型的数据库系统。只需要一个操作方便，功能实用，能满足本中心对数据的管理及需求的系统。我们的目标就是在于开发一个功能实用、操作方便，简单明了的人事管理系统.能够录入人事的基本资料，在操作上能够完成诸如添加、修改、删除、按各种条件进行查询、新用户的设置及密码修改等方面的工作，基本满足人事日常业务的需要。2数据库设计2.1数据库的概念设计概念模型是对现实世界的抽象和概述，它真实地反映了事物和事物之间的联系。应用E-R图可描述某一组织的概念模型。下面根据需求分析设计人事管理系统的E-R图。2.1.1职工E-R图职工E-R图中包括的属性有员工编号、姓名、性别、出生日期、民族、学历、职称，这些属性阐明了职工实体，如图2.1所示。员工编号职工职称姓名学历出生日期性别民族图2.1职工E-R图2.1.2部门E-R图部门E-R图中包括的属性有部门编号、部门名称、管理人员号。这些属性阐明了部门实体，如图2.2所示。部门部门编号管理人员号部门名称图2.2部门E-R图2.1.3工资E-R图工资E-R图中包括的属性有工资编号、发薪日期、基本工资、奖金、罚款。这些属性阐明了工资实体，如图2.3所示。 图2.3工资E-R图2.1.4奖惩E-R图奖惩E-R图中的属性包括奖惩金额、奖惩编号、奖惩原因。这些属性阐明了奖惩实体，如图2.4所示。图2.4奖惩E-R2.1.5岗位E-R图岗位E-R图中的属性包括岗位编号、岗位等级、岗位名称。这些属性阐明了岗位实体，如图2.5所示。图2.5岗位E-R图2.1.6系统总体E-R图 在该总体E-R图中，有5个实体类型，5个联系类型，其实体属性分别见各自的实体图。联系类型有：设置（人数），接受（奖惩日期），聘任（聘期）。该总体E-R图说明了实体与实体间的联系。如图2.6所示。图2.6总体E-R图2.2系统的逻辑结构设计将概念阶段设计的概念模型转换成关系模型如下：职工（职工编号，姓名，性别，出生日期，民族，学历，职称，聘期，部门编号，岗位编号）部门（部门编号，部门名称，管理人员号）工资（工资编号，发薪日期，基本工资，奖金，罚款，职工编号）奖惩（奖惩编号，奖惩金额，奖惩原因）岗位（岗位编号，岗位等级，岗位属性）设置（岗位编号，部门编号，人数）接受（职工编号，奖惩编号，奖惩日期）2.3学生管理系统的物理结构设计职工信息数据表：字段名称类型宽度小数位 Nulls职工编号字符型10否姓名字符型10否性别字符型10否出生日期日期型8是民族字符型10是学历字符型10否职称字符型10否聘期字符型10否部门编号字符型10否岗位编号字符型10否部门信息数据表：字段名称类型宽度小数位Nulls部门编号字符型10否部门名称字符型10否管理人员号字符型10否工资信息数据表：字段名称类型宽度小数位Nulls工资编号字符型10否发薪日期 日期型8否基本工资字符型10否奖金字符型10是罚款字符型10是职工编号字符型10否奖惩信息数据表：字段名称类型宽度小数位Nulls奖惩编号字符型10否奖惩金额字符型10是奖惩原因字符型10是岗位信息数据表：字段名称类型宽度小数位Nulls岗位编号字符型10否岗位等级字符型10否岗位名称字符型10否设置信息数据表：字段名称类型宽度小数位Nulls岗位编号字符型10否部门编号字符型10否人数整型4否接受信息数据表：字段名称类型宽度小数位Nulls职工编号字符型10否奖惩编号字符型10否奖惩日期日期型8是3.总体设计如图3.1所示，系统的结构功能图简单而形象的将系统的功能结构用模块的形式展现出来，便于系统设计人员对系统的设计。图3.1系统功能结构图 图3.2 系统业务流程图4.详细设计4.1类模块简介及代码类模块主要功能是用来将vb程序和数据库进行连接，以实现功能的运行，类模块的代码如下：xxxxxxOption ExplicitPrivate Const CONN_STRING As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Public DB_PATH As String数据库连接Public dbConn As New ADODB.Connection表明当前数据库的连接状态:False未连接；True已连接Public dbStatus As BooleanPublic Function openDB() As Boolean DB_PATH = dbPath dbConn.Open CONN_STRING & DB_PATH MsgBox Err.Description Dim connString As String connString = driver=SQL Server;server= + Trim(Server) + ;uid= + Trim(User) + ;pwd= + Trim(Password) + ;database=ERP connString = driver=SQL Server;server= + 127.0.0.1 + ;uid= + sa + ;pwd= + sa + ;database=pm dbConn.Open connString If Err.Number 0 Then MsgBox Err.Description: GoTo errHandler dbStatus = True openDB = True Exit FunctionerrHandler: openDB = False End FunctionPublic Function closeDB() As Integer dbConn.Close xxx dbStatus = FalseEnd FunctionPublic Function exeSql(sqlStr As String, queryResult As ADODB.Recordset, Optional enableWrite As Boolean = True) As Boolean On Error GoTo errHandler: Dim ret Set queryResult = New ADODB.Recordset If enableWrite Then queryResult.Open sqlStr, dbConn, adOpenStatic, adLockOptimistic Else queryResult.Open sqlStr, dbConn, adOpenStatic, adLockReadOnly End If exeSql = True Exit Function errHandler: MsgBox Err.Description exeSql = False Exit FunctionEnd Function4.2各功能模块界面及代码系统登陆界面：本界面的主要功能是为了对系统进行安全性管理，本系统根据不同的用户而设置了不同的权限，来登陆系统，可以用abc;123为用户名和密码来登陆本系统。登录界面的代码如下：Private Sub Command1_Click()Dim a As String, b As Stringa = Text1.Textb = Text2.TextIf a = abc And b = 123 ThenForm2.ShowForm1.Visible = FalseElseMsgBox (您输入的用户名或密码有误，请重新输入！)End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Image1_Click()End SubPrivate Sub Text1_Change()End Sub人事管理系统主界面：本界面的主要功能是实现人事管理系统各功能，如职工信息录入、查询、修改、删除及发布奖惩信息。不同用户名可以根据自己的需求进行不同操作。人事管理系统界面的代码如下：Private Sub Command1_Click()Form3.ShowForm2.Visible = FalseEnd SubPrivate Sub Command2_Click()Form4.ShowForm2.Visible = FalseEnd SubPrivate Sub Command3_Click()Form5.ShowForm2.Visible = FalseEnd SubPrivate Sub Command4_Click()Form6.ShowForm2.Visible = FalseEnd SubPrivate Sub Command5_Click()Form7.ShowForm2.Visible = FalseEnd SubPrivate Sub Command6_Click()Form1.ShowForm2.Visible = FalseEnd Sub职工信息录入界面：职工信息录入界面的代码如下：Private Sub Command1_Click()MyDB.openDBDim sql As StringDim a As String, b As String, c As String, d As String, e As String, f As String, g As String, h As String, i As String, j As Stringa = Text1.Textb = Text2.Textc = Combo2.Textd = Text4.Texte = Combo3.Textf = Combo1.Textg = Combo4.Texth = Text8.Texti = Combo5.Textj = Text10.Textsql = INSERT INTO emp (员工编号,姓名,性别,出生日期,民族,学历,职称,部门名,聘期,岗位编号) values ( + a + , + b + , + c + , + d + , + e + , + f + , + g + , + h + , + i + , + j + )Dim Isexe As BooleanDim rsDepartment As ADODB.RecordsetIsexe = MyDB.exeSql(sql, rsDepartment, True)MyDB.closeDBText1.Text = Text2.Text = Text4.Text = Text10.Text = Text8.Text = MsgBox (信息已添加，请继续操作！)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text4.Text = Text10.Text = Text8.Text = End SubPrivate Sub Command3_Click()Form3.Visible = FalseForm2.ShowEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()End Sub职工信息查询界面：职工信息查询界面的代码如下：Private Sub Command1_Click()Dim queryResult As ADODB.RecordsetDim SqlStmt As StringDim a As StringDim i As IntegerDim sManXx(1 To 11, 1 To 10) As String a = Text1.Text 初始化表格控件 Me.MSFlexGrid1.Rows = 1 Me.MSFlexGrid1.Cols = 10 Me.MSFlexGrid1.ColWidth(0) = 1000 Me.MSFlexGrid1.ColWidth(1) = 750 Me.MSFlexGrid1.ColWidth(2) = 750 Me.MSFlexGrid1.ColWidth(3) = 780 Me.MSFlexGrid1.ColWidth(4) = 780 Me.MSFlexGrid1.ColWidth(5) = 780 Me.MSFlexGrid1.ColWidth(6) = 780 Me.MSFlexGrid1.ColWidth(7) = 780 Me.MSFlexGrid1.ColWidth(8) = 780 Me.MSFlexGrid1.ColWidth(9) = 1000 Me.MSFlexGrid1.TextMatrix(0, 0) = 员工编号 Me.MSFlexGrid1.TextMatrix(0, 1) = 姓名 Me.MSFlexGrid1.TextMatrix(0, 2) = 性别 Me.MSFlexGrid1.TextMatrix(0, 3) = 出生日期 Me.MSFlexGrid1.TextMatrix(0, 4) = 民族 Me.MSFlexGrid1.TextMatrix(0, 5) = 学历 Me.MSFlexGrid1.TextMatrix(0, 6) = 职称 Me.MSFlexGrid1.TextMatrix(0, 7) = 部门名 Me.MSFlexGrid1.TextMatrix(0, 8) = 聘期 Me.MSFlexGrid1.TextMatrix(0, 9) = 岗位编号 Sql = select BusinessmanID,BusinessmanName,Country from Businessman & where Country= &str1& SqlStmt = SELECT * FROM emp WHERE 员工编号 = + a + MyDB.openDB Isexe = MyDB.exeSql(SqlStmt, queryResult, True) If queryResult.RecordCount 0 Then queryResult.MoveLast ReDim sManXx(1 To 6, 1 To dataSet.RowCount) i = 1 queryResult.MoveFirst Do While Not queryResult.EOF sManXx(1, i) = queryResult.Fields(员工编号) sManXx(2, i) = queryResult.Fields(姓名) sManXx(3, i) = queryResult.Fields(性别) sManXx(4, i) = queryResult.Fields(出生日期) sManXx(5, i) = queryResult.Fields(民族) sManXx(6, i) = queryResult.Fields(学历) sManXx(7, i) = queryResult.Fields(职称) sManXx(8, i) = queryResult.Fields(部门名) sManXx(9, i) = queryResult.Fields(聘期) sManXx(10, i) = queryResult.Fields(岗位编号) Me.MSFlexGrid1.Rows = Me.MSFlexGrid1.Rows + 1 Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 0) = queryResult.Fields(员工编号) Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 1) = queryResult.Fields(姓名) Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 2) = queryResult.Fields(性别) Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 3) = queryResult.Fields(出生日期) Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 4) = queryResult.Fields(民族) Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 5) = queryResult.Fields(学历) Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 6) = queryResult.Fields(职称) Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 7) = queryResult.Fields(部门名) Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 8) = queryResult.Fields(聘期) Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, 9) = queryResult.Fields(岗位编号) queryResult.MoveNext i = i + 1 Loop End If queryResult.Close Set queryResult = Nothing MyDB.closeDBEnd SubPrivate Sub Command2_Click()Dim queryResult As ADODB.RecordsetDim SqlStmt As StringDim b As StringDim i As IntegerDim sManXx(1 To 4, 1 To 3) As String b = Text3.Text 初始化表格控件 Me.MSFlexGrid2.Rows = 1 Me.MSFlexGrid2.Cols = 4 Me.MSFlexGrid2.ColWidth(0) = 1000 Me.MSFlexGrid2.ColWidth(1) = 1000 Me.MSFlexGrid2.ColWidth(2) = 1000 Me.MSFlexGrid2.TextMatrix(0, 1) = 员工编号 Me.MSFlexGrid2.TextMatrix(0, 2) = 奖惩金额 Me.MSFlexGrid2.TextMatrix(0, 3) = 奖惩原因 Sql = select BusinessmanID,BusinessmanName,Country from Businessman & where Country= &str1& SqlStmt = SELECT * FROM pmt WHERE 员工编号= + b + MyDB.openDB Isexe = MyDB.exeSql(SqlStmt, queryResult, True) If queryResult.RecordCount 0 Then queryResult.MoveLast ReDim sManXx(1 To 6, 1 To dataSet.RowCount) i = 1 queryResult.MoveFirst Do While Not queryResult.EOF sManXx(1, i) = queryResult.Fields(员工编号) sManXx(2, i) = queryResult.Fields(奖惩金额) sManXx(3, i) = queryResult.Fields(奖惩原因) Me.MSFlexGrid2.Rows = Me.MSFlexGrid2.Rows + 1 Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows - 1, 1) = queryResult.Fields(员工编号) Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows - 1, 2) = queryResult.Fields(奖惩金额) Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows - 1, 3) = queryResult.Fields(奖惩原因) queryResult.MoveNext i = i + 1 Loop End If queryResult.Close Set queryResult = Nothing MyDB.closeDBEnd SubPrivate Sub Command3_Click()Form2.ShowForm4.Visible = FalseEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate