员工工资管理系统(范例).doc

员工工资管理系统第一章 引言员工工资管理系统是一款基于日常企事业单位的，对其下属的各个员工的工资及各种应付款项进行基本管理而设计的小型软件。它具有功能完备精致、操作简单快捷、界面清新友好等特点，欢迎您的使用。人类社会正从工业时代阔步迈向信息时代，人们越来越重视信息技术对传统产业的改造，信息化水平的高低已经成为衡量一个单位现代化水平的高低。在这种环境下，传统的手工工资管理已经远远落后于信息化管理。随着计算机技术的飞速发展，计算机在信息管理中应用的普及，利用计算机实现人事工资的管理势在必行。利用计算机管理工资信息，是适应现代化的要求、推动管理制度走向科学化、规范化的必要条件；工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，利用计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资管理的效率,也是管理科学化、正规化,与世界接轨的重要条件。1.1 系统开发的目的在员工工资管理系统中，用户可以进行员工信息基本情况的浏览与查询，查询的方式有按职工号查询、按拼音查询、按姓名查询等。还可以在界面上直接进行数据的修改与变更，方便用户的使用。在员工工资管理界面中，用户可以清楚的了解到每个员工的工资组成情况与奖惩情况。本系统还设有报表的打印输出功能，提高了管理的科学化程度。此外，系统还可以直接调用Windows中的计算器一纸牌等小工具与小游戏，方便员工工作和娱乐。员工工资管理系统开发的目的在于：(1) 方便公司对员工工资的发放与调整(2) 从一定程度上配合公司的财务工作，使公司业务更加流畅(3) 对企事业单位的科学化管理起到一定的促进作用员工工资管理系统开发的意义在于：(1) 能够清晰的体现出企事业单位的工资管理流程(2) 能够方便公司及时对员工的数量以及每人应发的工资进行适度的调整(3) 提高劳动效率，节约劳动成本，促进企事业单位的发展。正是工资管理的这种重复性、规律性、时间性，使得工资管理计算机化成为可能。计算机进行工资发放工作，不仅能够保证工资核算正确无误、快速输出，而且还可以利用工资数据库对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，使会计人员从繁重的手工制作中解脱出来,提高了会计信息的及时性、正确性、全面性。大大提高了管理水平和管理效率，产生了巨大的经济效益和社会效益。 信息时代计算机技术的发展给整个社会的生活、工作方式带来了一次革命。传统意义上的工资管理的形式和内涵都在发生着本质的变化。以前那种一个会计、一个账本的工资管理形式已经可以被计算机及财务软件所代替。计算机以及相关软件的介入使得工资的管理变得科学化、透明化、简单化。因此，根据不同单位的自身特点开发适合自己的工资管理软件是显得十分必要的。1.2 系统开发的意义工资管理软件隶属于财务软件（又称会计软件）。中国的财务软件起步于70年代末，经历了从自主开发、委托定点开发向标准化、通用化、商品化、专业化发展几个阶段。三十年来财务软件市场规模化、产业化发展迅速。在财务软件市场发展中许多知名的骨干企业的作用不容忽视。他们不论是在市场引导方面，还是在财务软件技术和应用发展上都发挥了重要作用。如用友作为我国第一家专业从事商品化财务软件开发推广企业，开创了中国财务软件商品化、社会化、专业化的先河。用友公司在近20年的发展历程中，技术上不断创新，于1990年首创达到国际水平的三维立体电子报表处理系统UFO；1997年首家推出基于32位WIN95平台的管理型财务软件；1998年推出我国第一套BS技术架构的网络财务软件。近年，用友公司在全国巡展，推广财务及企业管理软件；发布“数字化管理”理论成果；发布“网络财务”战略，并推出“网络财务，世纪风潮”大型市场活动，范围遍及全国一百多个大中城市。安易公司、金蝶公司等作为后起之秀在市场上表现突出。国强财务软件的行业解决方案、新中大财务软件的多层结构设计技术将对中国财务软件的应用和技术发展产生积极的促进作用。对整个软件产业来说，财务及企业管理软件是一面亮丽的旗帜。根据信息产业部计算机与微电子发展研究中心（CCID）的市场报告，1999年中国软件市场销售总额为176亿元人民币，其中应用软件占63，而在应用软件中，财务及企业管理软件市场销售总额为48亿元，占应用软件的43.6，占整个软件市场销售额的27.3，是中国软件市场最大的一个板块。足见起重要性。近年来随着市场竞争的日趋激烈，财务软件模式转向集中式管理；一些行政单位为适应财政预算管理的变革，开始对财务实行集中式管理。可以说集中式财务管理在某些单位来说是一种管理发展的趋势。这种管理模式在以前因网络、通讯技术的限制而无法实施，随着互联网技术的发展，基于网络计算，支持集中管理模式的财务软件开始出现在市场，并越来越受到希望采取集中财务管理模式的单位所喜爱。所以，在我国各级事业单位中他们更需要有一个方便、快捷、安全、透明的工资管理软件。第二章 系统分析2.1 需求分析自财政部1989年颁布了会计核算软件管理的几项规定（试行）之后，部分单位实现了用计算机代替手工。但是还有大量的单位没有实现会计电算化，仍旧处于传统的手工会计操作，这大大影响了会计电算化的进一步发展，从单位本身的角度出发，他们也希望有一个适合他们的会计核算软件，减轻财务人员的工作强度，提高会计处理效率；在国家宏观调控上，随着评审工作和以机代帐审批工作的深入发展，将会有更多的单位用计算机来代替手工开展会计工作。因此，财务管理软件的开发，目前的需求还很大。2.2 可行性分析系统的可行性研究在系统的整个过程中占有很重要的地位，它决定所选项目是不是可能实现或值得去实现。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。它主要包括技术、经济、运行、法律等方面的可行性：现有技术是否能够实现本系统的设计开发；经济上是否值得去实现；是否能够在一般平台下运行等。技术可行性是指开发一个新系统所需要的技术是否具备，如支持新系统的软硬件功能以及技术人员的数量和水平。本系统是进行职工工资处理。结合实际需要，经过仔细斟酌，我选择了Microsoft Visual Basic 6.0 作为开发用户界面软件，它综合了可视化开发环境的易用性、32位优化编译技术的快速和强大、有数据引擎提供的可伸缩性等特点；选Microsoft Office Access 2000用来开发后台数据库，它具有很好的安全性与兼容性；而且本系统对硬件的要求不高，在现有技术基础上一定能实现本系统。经济可行性是评价一个计算机信息系统是否可行的最基本的一种方法，是对信息系统解决方案的成本有效性的量度。信息系统的开发是一种投资，因此对于用户来说，他首先关心的是：是否值得开发一个信息系统。而在效益方面，他们首先关心的是：当他们使用了这套管理信息系统后，工资处理的效率是否提高了，人力资源是否节省了。而本系统的设计和开发事实上恰好能满足他们的这些要求。还有该系统对硬件的要求不高，装有win98系统以上的计算机一般就能运行系统，所以在系统运行方面也不存在问题。2.3 数据流分析在进行数据流分析以前，我们先来了解一下手工工资管理的基本流程2.3.1 手工工资处理流程工资核算的内容主要包括以下三个方面：1. 全面、正确地反映每个劳动者工资地组成情况，通过工资核算可以对单位是否严格执行国家、单位有关的方针政策和劳动工资制度进行监督。2. 及时正确地计算劳动者的工资，为工资的正确发放提供详细资料，并根据国家的有关规定和管理要求进行汇总，可以系统、综合地反映单位与劳动者之间的工资结算情况。3. 根据有关制度和规定，对工资按用途进行分配，并进行相应的帐务处理，为正确计算产品成本、单位利润提供依据。工资的计算方法：在手工条件下，工资的会计核算工作由两部分组成：工资结算和工资分配。1. 工资结算阶段工资结算阶段，会计部分要接受以下各部门的有关数据：人事部门提供的人员变动资料；班组科室填制并报经劳资部门批准的考情统计资料；生产车间提供的产量和质量统计资料；总务部门提供的房租、水电费等代扣资料；会计人员对这些数据进行分类、汇总，计算出每一职工的实发工资，编制工资结算单，并按职工类别编制工资结算汇总表，根据表内金额开出支票向银行提取现金已备发放工资。2. 工资分配阶段财务部门根据各部门填制的工资费用分配表编制工资费用分配汇总表，将工资费用根据用途进行分配。2.3.2 电算化工资核算的内容和数据流程工资核算的内容：具体的讲，电算化工资核算系统具有以下功能：1. 根据国家和单位的工资政策设置工资种类和各类工资的项目结构。2. 根据职工的考勤记录和扣款等信息，自动计算职工的工资，包括应发工资合计、工资扣款合计、实发工资合计等，最后生成工资结算单。3. 工资数据编辑，对某种工资体系的工资明细的增加、删除，固定项目和变动项目的修改，根据定义的计算公式自动计算。4. 自动按职工所在的部门和职称进行汇总，生成工资结算汇总表，如工资部门汇总表、工资职称汇总表等。5. 自动编制工资费用分配汇总表等。6. 工资管理信息系统还能够进行各种各样的统计和查询。电算化工资核算的数据处理流程：根据电算化工资核算的内容，我们可以对电算化工资核算系统的数据处理详细流程进行如下概括:1. 部门设置。部门设置根据企业的组成情况，设置相应的部门机构、职工的岗位类别及职工的基本情况。2. 工资初始化。根据国家和单位的工资政策设置工资种类和各类工资的对应项目结构，对每种工资项目结构定义其计算公式。3. 工资编辑。对应手工处理流程，工资编辑是对上月工资数据进行修改和增删。在编辑时，一方面需要根据人事部门、或其他部门的人事变动和工资补贴调整资料等信息，并对相应工资文件的固定项目进行修改；另一方面还应根据本月生产等部门的考勤记录、代扣款项等信息，对工资相应的变动项目(如奖金、房租等)进行修改。在实际工作中，这一过程具有计算工作量大、处理重复性强的特点。 4. 按职工类别和部门类别进行汇总，生成工资结算汇总表。工资核算系统的业务流程如下图：工资查询工资表人事部门职工基本信息管理员工资管理信息系统后勤、财会部门医保、养老、水电等代扣信息工资汇总表工资汇总表图：业务流程图 数据流程图数据流程图是一种能全面地描述信息系统逻辑模型的主要工具，它可以用少数几种符号综合地反映出信息在系统中的流动、处理和存储情况。符号说明如下： 外部实体 数据流处理 数据存储数据流程图分多少层次视实际情况而定，考虑到工资管理信息系统相对较小，在这里我把数据流程图分为二层。人事部门工资核算系统财务部门员工信息工资信息后勤部门汇总分配扣款等信息信息图：数据流程图第一层2.4.1人事部门基础数据输入处理职工工资计算处理员工基本信息工资查询后勤部门水电费等代扣信息工资统计单工资计算单工资统计职工工资表 工资信息单工资统计单月工资合计表工资信息单工资汇总处理工资单工资汇总单帐务处理系统 工资汇总单工资汇总表工资费用分配处理工资费用分配单工资费用分配凭证 工资费用分配表图：数据流程图第二层 系统功能分析系统功能分析是在系统开发的总体任务的基础上完成的。该工资管理系统采用的是MIS的设计方法，在设计系统之前，需要充分了解系统的功能，根据系统所要达到的要求设计具体的模块。本系统需要完成的功能主要有： 员工基本信息数据的输入； 员工基本信息数据的修改、删除； 员工工资项目的基本设定； 员工工资发放方法的基本设定； 员工工资的汇总显示； 员工个人工资条的打印等。员工工资管理系统的数据库设计是依据实际情况，基于用户需求而设计的。数据库名称为GZGLSJK，其下属有四个表，分别是员工信息表、员工工资表、用户密码表以及部门表。表与表之间的关系如下图所示: (1) 员工信息表用于存放每个员工的基本信息，包括的字段有员工编号、姓名、籍贯、职务职称等，其特点是详细而全面的反映出员工的基本情况。(2) 员工工资表的作用是对员工的各项应发应扣款项进行统计与记录，体现出员工的工资组成情况，方便查询与浏览。(3) 部门表存放的是各个部门的基本情况，包括部门编号、部门名称、部门负责人以及部门的人数。它的作用在于将员工进行部门化分类，这样有利于管理与统计。第三章 系统设计3.1 安装流程本系统使用时，首先要进行VS.net 2005的安装，其次时进行 Windows SQL Server 2005安装，注意正确的安装方法与路径。安装完毕后，用户还要进行数据库的挂接，将数据文件GZGLSJK_Data.MDF 挂接到数据库上。具体如图所示：数据库中的挂接如图所示：经过选择挂接文件后，用户就可以对程序进行安装使用了，双击dubag文件下的Step.exe 文件，进入安装界面，在提示下进行安装就可以了，如图所示：3.2 模块介绍安装完毕后，用户就可以进入系统进行使用了。系统设置了两种登录身份。比如，用管理员身份登录时，用户名为 sa ，密码为 123。主界面如图所示：由主界面可以看到，员工工资管理系统包括以下几个模块：(1) 员工信息管理;(2) 员工工资管理；(3) 公司部门管理；(4) 系统安全管理。模块图如下所示：工资管理员工信息管理员工工资管理公司部门管理系统安全管理(1) 员工信息管理主要是对员工的基本信息进行查询、浏览、修改、删除等操作。还有对员工的照片进行存放与导入。通过此界面，可以清晰的了解到员工的各种基本信息。(2) 员工工资管理主要是对员工的各项应发应扣金额进行统计和计算。通过此界面，可以知道每个员工的工资组成情况。(3) 公司部门管理主要是对公司的组成情况进行显示。(4) 系统安全管理主要是对系统的维护与权限设置。3.3 系统运行环境硬件环境：1.CPU 主频Pentium3GHz或更高。2.内存512M或更高3.显示器分辨率800*600或更高。操作系统：Windows XPWindows 2003第四章 系统实现4.1 数据库设计在数据库应用系统的开发过程中，数据库的结构设计是其中非常重要的一个环节。数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。所以在尽量全面考虑用户的各种需求的前提下，进行了数据库设计。数据库需求分析是数据库结构设计的第一个阶段，是非常重要的一个阶段。这个阶段主要是确定基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为以后进一步设计打好基础。经过仔细的调查，得出事业单位工资管理过程的数据处理流图：工资项目设定工资发放公式设定人员工资设定 工资标准库生成工资月库生成工资发放工资临时发放4.2 员工信息管理此界面可以查询与浏览员工的基本信息：其代码如下：（重复功能代码简略）Imports System.TypeImports System.Data.SqlClientImports System.IOPublic Class 员工信息管理 Dim dr As DataRow Dim linenum As Integer = 0 Dim strsql As String Dim objdset1 As New DataSet Dim ad As New SqlDataAdapter Private Sub 退出系统ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click Me.Close() End Sub Private Sub 员工信息管理_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strsql As String strsql = select * from 员工信息表 objconn1.Open() Dim objdset1 As New DataSet Dim mydatatable As DataTable = New DataTable() Dim ad As New SqlDataAdapter ad = New SqlDataAdapter(strsql, objconn1) objconn1.Close() objdset1.Clear() ad.Fill(objdset1, a) DataGridView1.DataSource = objdset1.Tables(a) End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Dim linenum As Integer = 0 Dim conn As String = data source=.;connect timeout=300;User ID=sa;Password=123;initial catalog=GZGLSJK; Dim objconn1 As New SqlConnection(conn) Dim strsql As String Dim objdset1 As New DataSet Dim ad As New SqlDataAdapter strsql = select * from 员工信息表 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect Dim curNode As TreeNode curNode = New TreeNode() curNode = Me.TreeView1.SelectedNode If curNode.Parent Is Nothing Then Else If curNode.Text = 总经理室 Then TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox7.Text = TextBox8.Text = TextBox9.Text = TextBox10.Text = TextBox11.Text = TextBox12.Text = TextBox13.Text = TextBox14.Text = TextBox15.Text = Dim strsql As String strsql = select * from 员工信息表 where 部门编号=111 objconn1.Open() Dim objdset1 As New DataSet Dim mydatatable As DataTable = New DataTable() Dim ad As New SqlDataAdapter ad = New SqlDataAdapter(strsql, objconn1) objconn1.Close() objdset1.Clear() ad.Fill(objdset1, a) DataGridView1.DataSource = objdset1.Tables(a) End If End If If curNode.Parent Is Nothing Then Else If curNode.Text = 销售部 Then TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox7.Text = TextBox8.Text = TextBox9.Text = TextBox10.Text = TextBox11.Text = TextBox12.Text = TextBox13.Text = TextBox14.Text = TextBox15.Text = Dim strsql As String strsql = select * from 员工信息表 where 部门编号=118 objconn1.Open() Dim objdset1 As New DataSet Dim mydatatable As DataTable = New DataTable() Dim ad As New SqlDataAdapter ad = New SqlDataAdapter(strsql, objconn1) objconn1.Close() objdset1.Clear() ad.Fill(objdset1, a) DataGridView1.DataSource = objdset1.Tables(a) End If End If Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If RadioButton3.Checked = False And RadioButton2.Checked = False And RadioButton1.Checked = False Then MsgBox(请先选择查找条件！, 64, 提示) End If If TextBox1.Text = Then MsgBox(请输入查找条件！, 64, 提示) End If If RadioButton3.Checked() Then Dim objdset1 As New DataSet Dim strsql As String = Dim ygbh1 As String = select 姓名 from 员工信息表 where 员工编号 = & Trim(TextBox1.Text) & strsql = select * from 员工信息表 where 员工编号 = & Trim(TextBox1.Text) & If TextBox1.Text = Then MsgBox(请输入查找条件！, 64, 提示) End If ygbh1 = TextBox1.Text TextBox2.Text = ygbh1 Dim xm1 As String = select 姓名 from 员工信息表 where 员工编号 = & Trim(TextBox1.Text) & Dim coma As SqlCommand objconn1.Open() coma = New SqlCommand(xm1, objconn1) TextBox3.Text = coma.ExecuteScalar() Dim mydatatable As DataTable = New DataTable() Dim ad As New SqlDataAdapter ad = New SqlDataAdapter(strsql, objconn1) objconn1.Close() objdset1.Clear() ad.Fill(objdset1, a) DataGridView1.DataSource = objdset1.Tables(a) If IsDBNull(objdset1.Tables(0).Rows(0).Item(13) = False Then Dim bb() As Byte = objdset1.Tables(0).Rows(0).Item(13) Dim ss As New System.IO.MemoryStream(bb) Me.PictureBox1.Image = System.Drawing.Image.FromStream(ss) End If If TextBox1.Text = Then MsgBox(请输入查找条件！, 64, 提示) End If End If End Sub Private Sub TreeView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.Click End Sub Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter End Sub Private Sub 系统ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 系统ToolStripMenuItem.Click Dim f As New 员工信息维护 f.ShowDialog() End Sub Private Sub 帮助HToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 帮助HToolStripMenuItem.Click System.Diagnostics.Process.Start(帮助.chm) End Sub Private Sub 窗口ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 排序ToolStripMenuItem.Click End Sub Private Sub 修改EToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改EToolStripMenuItem.Click If TextBox2.Text = Then MsgBox(没有选择记录不能删除！, 64, 提示) Else Dim strsql As String = Dim ygbh1 As String Dim yn As Integer strsql = select * from 员工信息表 where 员工编号 = & Trim(TextBox1.Text) & ygbh1 = TextBox1.Text TextBox2.Text = ygbh1 yn = MsgBox(真的要删除吗?, 16 + 4, 提示) If yn = 6 Then strsql = delete from 员工信息表 where 员工编号= & Trim(TextBox1.Text) & objconn1.Open() Dim objcmd As New SqlCommand(strsql, objconn1) objcmd.ExecuteNonQuery() objconn1.Close() objcmd.Dispose() End If End If End Sub Private Sub 开心一刻ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 开心一刻ToolStripMenuItem.Click Shell(C:WINDOWSsystem32sol.exe) End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub 录入IToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 录入IToolStripMenuItem.Click MsgBox(选择查找条件!) End SubEnd Class 照片可视化如图所示：代码如下： Dim zp As String = update 员工信息表 set 照片=img where 员工编号= & TextBox1.Text Dim objcmd1 As New SqlCommand(zp, objconn1) objcmd1.Parameters.Add(img, SqlDbType.Binary).Value = wj objcmd1.ExecuteNonQuery() objcmd1 = Nothing objconn1.Close() MsgBox(写入成功!)End Sub导出Excel视图如下： 代码如下：Imports System.TypeImports System.Data.SqlClientImports System.IOPublic Class 员工工资 Dim dr As DataRow Dim linenum As Integer = 0 Dim strsql As String Dim objdset1 As New DataSet Dim ad As New SqlDataAdapter Private Sub TreeView1_load(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect Dim curNode As TreeNode curNode = New TreeNode() curNode = Me.TreeView1.SelectedNode If curNode.Parent Is Nothing Then Else If curNode.Text = 副总经理室 Then Dim strsql As String strsql = select 员工信息表.部门编号,员工信息表.员工编号,银行账户,基本工资,岗位工资,住房补贴,津贴,工会会费,水电费,住房公积金,养老保险,奖惩,应发金额,应扣金额,实发金额 from 员工工资表 ,员工信息表 where 员工工资表.员工编号=员工信息表.员工编号 and 部门编号=112 objconn1.Open() Dim objdset1 As New DataSet Dim mydatatable As DataTable = New DataTable() Dim ad As New SqlDataAdapter ad = New SqlDataAdapter(strsql, objconn1) objconn1.Close() objdset1.Clear() ad.Fill(objdset1, a) DataGridView1.DataSource = objdset1.Tables(a) End If End IfDim sf As String = select 实发金额 from 员工工资表 where 员工编号 = & Trim(TextBox2.Text) & Dim coms As SqlCommand objconn1.Open() coms = New SqlCommand(sf, objconn1) TextBox14.Text = coms.ExecuteScalar() ad = New SqlDataAdapter(strsql, objconn1) objconn1.Close() objdset1.Clear() ad.Fill(objdset1, a) DataGridView1.DataSource = objdset1.Tables(a)Private Sub TextBox2_KeyUp(ByVal