毕业设计（论文）-VB.NET企业员工劳动合同管理系统的设计与实现.doc

《毕业设计（论文）-VB.NET企业员工劳动合同管理系统的设计与实现.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）-VB.NET企业员工劳动合同管理系统的设计与实现.doc（33页珍藏版）》请在三一文库上搜索。

1、企业员工劳动合同管理系统的设计与实现企业员工劳动合同管理系统的设计与实现 摘 要：随着计算机技术的飞速发展，企业内相关数据信息也急剧增长，因此 企业应建立一套完整的现代化、网络化、规范化的员工劳动合同管理系统来改 变传统手工办理员工劳动合同相关业务速度慢、效率低以及资料容易丢失的弊 端，提高工作效率，优化员工劳动合同管理，降低劳动成本，从而为企业不断 地创造出更多的经济效益。员工劳动合同管理系统的管理模块，是一个根据参 考资料以及通过对中大型公司进行实际调研，采用 Microsoft VB.NET 编程， 运用 SQL Server 2000 数据库系统开发的系统。本系统操作简便，界面友好，

2、灵活实用.系统管理模块主要提供了灵活有效的信息输入方式，快速的信息检 索能力，有效地解决了公司内部员工合同的信息管理、信息共享、信息检索， 信息保密问题。本课题能实现对企业员工劳动合同进行管理的功能，便于工作 人员操作，能够优化企业管理能力，提高企业工作效率，并加大与同行之间的 竞争力。 关键词：企业 劳动合同管理 数据库 The Design and Implement of enterprise employee labor contract management system Abstract: Along with the rapid development of computer

3、technology, the inside relevant data information in business enterprise also grows sharply, the enterprise shall establish a complete set of modernization and network and standardization of the labor contract management systems to change the traditional manual related business deal with employees co

4、ntract which is inefficient and material easily lost defects, improving work efficiency, optimizing the employee contract management, reduce the labor cost, thus for enterprise constantly create more economic benefits. Employee contract management system management module, is a reference material an

5、d based on according to the actual investigation, are evaluated by Microsoft , using SQL Server 2000 database system development system.interface flexible, practical, this module provides flexible and effective Lord the information input methods, rapid information retrieval capabilities, and further

6、 effectively solved in a companys internal employee contract information management, information sharing, information retrieval and information confidential problems. This topic can realize the functions of enterprise employee labor contract management, facilitating personnels to work, optimizing th

7、e ability of enterprise management, strengthening the enterprise efficiency, and increasing the competitiveness between peers. Keywords: enterprise labor contract management database 第 1 页 共 2 页 目目 录录 前前 言言.1 第第 1 1 章章 绪绪 论论.2 1.1 系统开发背景.2 1.2 系统实现要求.2 1.3 系统开发平台.3 1.4 系统开发工具简介.3 第第 2 2 章章 系统可行性分析系

8、统可行性分析4 2.1 经济和市场可行性分析4 2.2 技术可行性分析4 2.3 系统需求分析4 第第 3 3 章章 需求分析需求分析5 3.1 系统设计目标.5 3.2 系统主要功能.5 3.2.1 用户管理 5 3.2.2 数据维护 5 3.2.3 数据查询 5 3.2.4 数据统计 5 3.2.5 续签查询功能 6 第第 4 4 章章 概要设计概要设计7 4.1 系统体系结构设计.7 4.2 开发工具的选择.7 4.3 用户管理功能模块.8 4.4 数据库结构设计.8 4.4.1 数据库概念结构设计8 4.4.2 数据库逻辑结构设计9 4.5 所需实用技术.10 第第 5 5 章章 系统

9、界面设系统界面设计计与实现与实现.11 第 2 页 共 2 页 5.1 界面设计原则.11 5.2 用户管理的界面设计.11 5.2.1 登录及注册的界面设计11 5.2.2 修改密码的界面设计13 5.3 主界面的界面设计.13 5.3.1 员工基本信息界面13 5.3.2 员工基本信息录入修改界面15 5.3.3 员工基本信息查看界面16 5.3.4 员工基本信息导出 EXCEL 界面 .16 5.3.5 员工基本信息删除界面17 5.3.6 员工基本信息查询及到期提醒界面18 第第 6 6 章章 系统测试及分析系统测试及分析20 6.1 单元测试.20 6.2 集成测试.20 总总 结结

10、.21 致致 谢谢.22 参参 考考 文文 献献23 附附 录录.24 企业员工劳动合同管理系统的设计与实现 第 1 页 共 28 页 前前 言言 随着企业管理水平的提高和市场竞争的加剧，企业管理系统在提高企业的 竞争能力方面发挥的作用越来越大。首先，企业的管理方式走向智能化。随着 信息技术和互联网的发展，企业内部会产生各种业务信息（包括文字、图片、 业务数据等） 。面对海量信息，如何迅速找到有价值的信息是人们最关心的问 题。通过智能化管理，可实现信息从原始存储状态到不同服务类型的自动组织、 归类。其次，由于非结构化信息比结构化信息更难标准化并且被人理解，所以 对其进行存储、检索、发布以及利用

11、也就需要更加智能化的 IT 技术，比如海 量存储、智能检索、信息挖掘、内容保护、信息的增值开发利用等等。现代社 会企业管理能力进一步提高，企业应建立一套完整的现代化、网络化、规范化 的员工劳动合同管理系统来改变传统手工办理员工合同相关业务的速度慢、效 率低以及资料容易丢失的弊端，提高工作效率、优化员工合同管理、降低劳动 成本，从而为企业不断地创造出更多的经济效益。 对于企事业单位的人事管理系统来说，不需要大型的数据库系统，只需要 一个操作方便，功能实用，能满足企业对数据进行管理的系统。我们的目标就 是在于开发一个功能实用、操作方便的企业员工劳动合同管理系统。 该系统能够录入员工合同及本人的基本

12、信息，在操作上能完成诸如添加、 修改、删除、查看功能。同时能按各种条件查询、实现分类统计，续签提醒， 并打印出花名册及用户的注册登录及修改密码等方面的工作，基本满足员工合 同管理的日常需要。 该系统的规模是中等偏下。技术上主要涉及界面设计和数据库设计，开发 工具可采用应用软件开发工具 VB.NET，后台数据库选择 SQL Server 2000。利 用 Visual Basic.NET 的一些特性（如跨语言调试）以及 Visual Basic.NET 与 公共类型系统和公共语言运行库的一致性，尤其是在数据库开发方面具有很大 优势，它能够支持大多数数据库的链接，通过 ADO 技术足以方便快捷的实

13、现数 据库链接，并进行有效的访问。 运城学院计算机科学与技术系毕业论文 第 2 页 共 28 页 第第 1 1 章章 绪绪 论论 1.1.1 1 系统开发背景系统开发背景 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们 深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。 企业应建立一套完整的现代化、网络化、规范化的员工劳动合同管理系统 来改变传统手工办理员工合同相关业务速度慢、效率低以及资料容易丢失的弊 端，该项目开发的系统为企业员工劳动合同管理系统。 员工劳动合同管理系统是一个单位不可缺少的部分。一个功能齐全、简单 实用的信息管理系统不但能有效减轻公司相关工作人

14、员的工作负担，而且它的 内容对于公司管理者来说都至关重要。所以员工劳动合同管理系统应该能够为 用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统的方式管理 员工劳动合同信息、统计和查询数据，这种管理方式存在着许多缺点，如：效 率低、保密性差，人工的大量浪费，另外时间一长，将产生大量的文件和数据， 这对于查找、更新和维护都带来了不少困难。该系统完成后可用于公司的员工 劳动合同信息的管理，可提高工作效率，优化员工合同管理，降低劳动成本。 作为计算机应用的一部分，使用计算机对企事业单位的各类信息进行管理， 具有手工管理无法比拟的优点，例如：检索迅速、查询方便、效率高、可靠性 好、存储量大、保

15、密性好、寿命长、成本低等。这些优点能够极大地提高公司 信息管理的效率，也是一个单位科学化、正规化管理，与世界接轨的重要条件。 1.21.2 系统实现要求系统实现要求 1. 基本功能 （1）对员工劳动合同信息的录入，修改；对员工的增加，删减。 （2）对劳动合同到期人员提前三十日予以提醒，对新签劳动合同员工的试 用期到达提前十日予以提醒。 （3）对合同到期人员是否续签进行系统登记，如续签或解除，如续签，登 记续签劳动合同的起止时间，对首签员工试用期考核结果进行系统登记，如合 格或不合格。 2. 辅助功能 （1）对劳动合同信息可实现分类统计，如按用工类型，按合同签订年限长 短，按合同起止时间等。 （

16、2）按单项条件或组合条件查询符合条件的劳动合同信息。 企业员工劳动合同管理系统的设计与实现 第 3 页 共 28 页 （3）具备以花名册形式打印，用户名密码登录的功能。 1.31.3 系统开发平台系统开发平台 服务器端平台软件全部采用 Microsoft 的产品，便于维护和管理。 1. 服务器端平台 操作系统：Microsoft Windows 2003 Server 数据库系统：Microsoft SQL Server 2000 开发语言：Microsoft Visual Bisic.NET 开发工具：Visual Studio 2005 2. 客户端运行环境 操作系统：Microsoft

17、Windows 2003 及更高版本 1.41.4 系统开发工具简介系统开发工具简介 VB.NET 是 Microsoft 环境下简单、易学、高效的一种编程语言，其快速开 发的特性深受程序员的喜爱。但是.NET 以前版本的 Visual Basic 面向对象的能 力远远不能满足程序员的需要，这也是越大项目越少用到 Visual Basic 的原因。 Visual Basic.NET 新增和将强了许多新的面向对象的特性比如继承、重载等等。 语言的新特点也包括了对进程的控制和底层结构的操作，这些新特点使得 Visual Basic.NET 再次成为程序员关注的焦点。 VB.NET 的特点：构造函数

18、、封装特性、自由线程、继承、初始化函数、 基于对象、面向对象、重载、覆盖、多态性。 SQL server2000 的常见版本有：企业版、标准版、个人版、开发版，其中 企业版功能全面，应用于大中型产品服务处理器，能够支持大型网站联机事务 处理、以及联机分析处理。 SQL server2000 的特点：Internet 集成、可伸缩性和可用性、企业级数 据库功能、易于安装、部署和使用。 运城学院计算机科学与技术系毕业论文 第 4 页 共 28 页 第第 2 2 章章 系统可行性分析系统可行性分析 2.12.1 经济和市场可行性分析经济和市场可行性分析 目前企业管理系统在提高企业的竞争能力方面发挥的

19、作用越来越大，企业 的管理方式走向智能化。随着信息技术和互联网的发展，企业内部会产生各种 业务信息（包括文字、图片、业务数据等） 。通过智能化管理，可实现信息从 原始存储状态到不同服务类型的自动组织、归类。因此开发一个小型的管理系 统，用开发工具在短时间内完成，具有经济和市场可行性。 2.22.2 技术可行性分析技术可行性分析 该项目的规模是中等偏下。技术上主要涉及界面设计和数据库设计，开发 工具可采用应用软件开发工具 VB.NET，利用 Visual Basic.NET 的一些特性 （如跨语言调试）以及 Visual Basic.NET 与公共类型系统和公共语言运行库 的一致性，尤其是在数据

20、库开发方面具有很大优势，它能够支持大多数数据库 的链接，通过 ADO 技术足以方便快捷的实现数据库链接，并进行有效的访问。 2.32.3 系统需求分析系统需求分析 企业员工劳动合同管理系统包括员工基本信息管理，和数据查询统计等主 要功能。具体功能如下： 1. 员工基本信息的新增、修改、删除、查看，打印等操作，基本信息包 括姓名，身份证号码，签订合同的时间等内容。此功能为合同管理系统和数据 库设计模块提供了依据。此外，还包含有提醒功能和续签查询。 2. 数据查询统计按单项条件或组合条件查询或统计符合条件的员工劳动 合同信息。 3. 用户管理即管理员的信息管理，主要功能为登录系统用户名和密码的 注

21、册和修改的功能。 企业员工劳动合同管理系统的设计与实现 第 5 页 共 28 页 第第 3 3 章章 需求分析需求分析 要开发一个管理系统，首先要进行需求分析和总体设计，分析系统的适用 对象和用户需求，设计系统的体系结构和数据库结构，选择实用的开发工具和 后台数据库，规划项目开发进度等这些工作在实际的项目开发过程中是非常重 要的。而系统的每一项需求都必须在系统中体现出来。系统功能的全面性，安 全性是系统的生产至关重要的前提，它决定了系统的可靠性和对客户的服务能 力。系统建设虽是在 Visual B 环境下设计的，但应用系统都需要后 台数据库的支持，而 Visual B 和 SQL Server

22、 2000 数据库也是系统 开发常用的比较广泛的组合之一。 3.13.1 系统设计目标系统设计目标 随着现代社会企业管理能力的进一步提高，企业应建立一套完整的现代化、 网络化、规范化的员工劳动合同管理系统来改变传统手工办理员工合同相关业 务速度慢、效率低以及资料容易丢失的弊端，这样可以提高工作效率，优化员 工合同管理，降低劳动成本，从而为企业不断地创造出更多的经济效益。 3.23.2 系统主要功能系统主要功能 3.2.1 用户管理 即管理员的信息管理，主要功能为登录系统用户的注册以及用户名和密码 的修改。 3.2.2 数据维护 即对企业员工基本信息的新增、修改、删除、查看，打印等操作。 3.2

23、.3 数据查询 该功能是对劳动合同信息可实现分类查询，如按用工类型，按合同签订年 限长短，按合同起止时间等；按单项条件或组合条件查询符合条件的劳动合同 信息。 3.2.4 数据统计 该功能是对劳动合同信息可实现分类统计如按用工类型，按合同签订年限 长短，按合同起止时间等；按单项条件或组合条件查询符合条件的劳动合同信 运城学院计算机科学与技术系毕业论文 第 6 页 共 28 页 息提醒功能对劳动合同到期人员提前三十日予以提醒，对新签劳动合同员工的 试用期到达提前十日予以提醒。 3.2.5 续签查询功能 对合同到期人员是否续签进行系统登记，如续签或解除，如续签，登记续 签劳动合同的起止时间，对首签

24、员工试用期考核结果进行系统登记，如合格或 不合格。 企业员工劳动合同管理系统的设计与实现 第 7 页 共 28 页 第第 4 4 章章 概要设计概要设计 4.14.1 系统体系结构设计系统体系结构设计 本章将根据需求分析中总结的用户需求设计系统的体系结构。系统的功能 模块图如 4.1 所示。 在功能模块示意图的树状结构中，每一个叶结点都是一个最小的功能模块。 每一个功能模块都需要针对不同的表完成不同的数据库操作，即添加记录，修 改记录，删除记录查询显示记录信息，以及统计记录信息等。如图 4.1 所示。 图 4.1 系统功能模块示意图 4.24.2 开发工具的选择开发工具的选择 开发数据库原理信

25、息系统需要选择两种工具，即前台开发语言和后台数据 库。选择开发工具时应该考虑用户需求、系统功能和性能的需求。 1. 前台开发工具选择 Visual B。 2. 后台数据库选择 SQL Server 2000。 3. 中间层采用 ADO 数据访问技术，将对数据库的操作定义在模块中。 运城学院计算机科学与技术系毕业论文 第 8 页 共 28 页 4.34.3 用户管理功能模块用户管理功能模块 运行系统后，首先会看到登录窗体，对用户的身份进行认证。用户管理模 块的功能比较简单，在系统开始使用时，默认用户为 admin,密码为 11，进入 主界面以后，可以进行用户注册，或修改密码等操作。 4.44.4

26、 数据库结构设计数据库结构设计 4.4.1 数据库概念结构设计 数据库结构设计是总体设计阶段非常重要的环节，好的数据库结构可以简 化开发过程，使系统功能清晰明确。因为数据库结构的变化会造成编码的改动， 所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。 在仔细调查本系统运作过程的基础上，得到本系统的数据处理流程。如图 4.2 所示。 图 4.2 数据流程图 数据库中包含 2 个表，即员工基本信息表 EmpInfo，包括的数据项有员工 姓名、性别、身份证号码、生日、籍贯、民族、家庭住址、联系电话，首签合 同时间、试用期、签订合同时间，合同年限等。 用户基本信息表 Admin，包括的

27、数据项有用户名、密码。 下面详细介绍本系统主要的实体以及主要实体之间的关系。 （1）员工劳动合同信息实体 E-R 图，如图 4.3 所示。 企业员工劳动合同管理系统的设计与实现 第 9 页 共 28 页 图 4.3 员工合同信息实体 E-R 图 （2）管理员实体 E-R 图，如图 4.4 所示。 图 4.4 管理员实体 E-R 图 4.4.2 数据库逻辑结构设计 我们需要将上面的数据库概念结构转化为数据库系统所支持的实际数据模 型，也就是数据库的逻辑结构。 在上面的实体与实体之间关系的基础上，我们就可以在数据库中设计表， 本系统中主要的数据库表如下图所示。 （1）员工劳动合同基本信息表，该表用

28、来存放所有员工合同基本信息。如 表 4.1 所示。 运城学院计算机科学与技术系毕业论文 第 10 页 共 28 页 表 4.1 员工合同基本信息表 （2）管理员信息表，该表用来存放本系统管理员的信息。如表 4.2 所示。 表 4.2 管理员信息表 4.54.5 所需实用技术所需实用技术 所选开发工具的基本编程方法： 1. 基本的后台数据库管理方法。例如创建数据库、创建表、创建查询、 返回数据库等 2. 常用SQL语句的使用。 3. ADO数据库访问技术。 企业员工劳动合同管理系统的设计与实现 第 11 页 共 28 页 第第 5 5 章章 系统界面设计与实现系统界面设计与实现 5.15.1 界

29、面设计原则界面设计原则 程序通过用户界面与用户实现交互。用户界面不仅需要从视觉上看起来美 观，而且要求方便用户的操作。通常一个用户界面是由若干个对象组成的, Windows 应用程序的用户界面一般都是由窗体、控件等对象构成的，各个对象 之间的联系完全取决于操作者所做的操作。也就是说，程序的运行并没有固定 的顺序，这种工作模式，称为事件驱动方式。 5.25.2 用户管理的界面设计用户管理的界面设计 5.2.1 登录及注册的界面设计 当系统运行时，首先打开登录窗体，只有通过登录才能进入系统。登录成 功后，将显示系统主界面。登录窗体的名称为 Login，它的界面布局如图 5.1 所示。 图 5.1

30、登录界面 员工合同管理系统登录主要代码如下： Private Sub login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles login.Click If Me.TextBox1.Text = “ Or Me.TextBox2.Text = “ Then MsgBox(“请输入用户名和密码“) End If Dim conn As New Data.SqlClient.SqlConnection conn.ConnectionString = “server=.;database=emplo

31、yeeDB;integrated security=true;“ 运城学院计算机科学与技术系毕业论文 第 12 页 共 28 页 Dim cmd As New Data.SqlClient.SqlCommand cmd.CommandText = “select * from admin where userid=“ + Me.TextBox1.Text.Trim() + “ and password = “ + Me.TextBox2.Text.Trim() + “ cmd.Connection = conn conn.Open() Dim dr As Data.SqlClient.SqlD

32、ataReader dr = cmd.ExecuteReader() Try If dr.Read() Then Me.TextBox2.Text.Trim() Then MsgBox(“登录成功！“) Main.Show() i = 1 End If dr.Close() conn.Close() Catch ex As Exception MsgBox(ex.Message) End Try If i = 0 Then MsgBox(“输入错误,请重新输入或注册“) Me.TextBox1.Text = “ Me.TextBox2.Text = “ Me.TextBox1.Focus()

33、End If End Sub 当管理员运行该程序时，系统判断是否输入了用户名和密码，如果没有输 入，输错或没有输入，要求用户输入或者注册。注册界面的名称是 register, 它的界面布局如图 5.2 所示。 图 5.2 注册界面 企业员工劳动合同管理系统的设计与实现 第 13 页 共 28 页 5.2.2 修改密码的界面设计 修改密码界面可以重新设定用户登录的密码。窗体的名称为 p_edit，如图 5.3 所示。 图 5.3 修改密码界面 5.35.3 主界面的界面设计主界面的界面设计 主界面中一级菜单分别为员工基本信息管理，用户管理。一级菜单用户管 理的字菜单分别为用户注册，修改密码。窗体

34、的名称为 main，如图 5.4 所示。 图 5.4 主界面 5.3.1 员工基本信息界面 员工基本信息模块包含新增，删除，修改，详细信息，导出 EXCEL，刷新 运城学院计算机科学与技术系毕业论文 第 14 页 共 28 页 等功能。其中包含员工基本信息以及重要的合同信息，并包含基本查询模块， 组合查询模块，以及按照首签提前十日或续签提前三十日提醒的提醒模块。使 用 DataGridView 来显示员工基本信息，窗体的名称为 look，如图 5.5 所示。 图 5.5 员工基本信息界面 员工基本信息界面主要代码如下： Private Sub look_Load(ByVal sender As

35、 System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call dgv() 把表填充 Dim i As Integer With Me.DataGridView1 .RowsDefaultCellStyle.BackColor = Color.Beige .AlternatingRowsDefaultCellStyle.BackColor = Color.LightCyan .AllowUserToAddRows = False .CurrentCell = Nothing .TopLeftHeaderCell.Val

36、ue = “行号“ .RowHeadersWidth = 50 For i = 1 To .RowCount .Rows(i - 1).HeaderCell.Value = i.ToString Next End With End Sub Private Sub dgv()将datagridview填充数据的填充函数 Dim dgvds As New DataSet Dim da As SqlDataAdapter 企业员工劳动合同管理系统的设计与实现 第 15 页 共 28 页 Dim strdgv As String Call DBopen() strdgv = “select emp_i

37、d as 合同编号,emp_name as 姓名,emp_sex as 性别,emp_birthday as 出生日期,“ strdgv = strdgv database=employeeDB;integrated security=true;“ Public connection As SqlClient.SqlConnection Public Function DBopen() As Boolean 打开数据库 Try connection = New SqlClient.SqlConnection connection.ConnectionString = Conn connecti

38、on.Open() Return True Catch ex As Exception MsgBox(ex.ToString) Return False End Try End Function Public Function DBclose() As Boolean 关闭数据库 Try connection = New SqlClient.SqlConnection connection.ConnectionString = Conn connection.Close() Return True Catch ex As Exception MsgBox(ex.ToString) Return

39、 False End Try End Function End Module Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 修改用户信息或新增用户 If update_id = 1 Then Call DBopen() Dim str_update As String 企业员工劳动合同管理系统的设计与实现 第 25 页 共 28 页 str_update = “update empinfo set emp_name=“ & T

40、rim(TextBox1.Text) & “,emp_sex=“ & Trim(ComboBox2.Text) & “,“ str_update = str_update & “emp_birthday=“ & DateValue(dt2).ToShortDateString & “,emp_htime=“ & Trim(TextBox2.Text) & “,“ str_update = str_update & “emp_comedate=“ & DateValue(dt1).ToShortDateString & “,emp_grade=“ & Trim(ComboBox3.Text) &

41、 “,“ str_update = str_update & “emp_folk=“ & Trim(TextBox7.Text) & “,emp_np=“ & Trim(TextBox6.Text) & “,emp_yn=“ & Trim(ComboBox4.Text) & “,“ str_update = str_update & “emp_did=“ & Trim(TextBox9.Text) & “,emp_probation=“ & Trim(TextBox4.Text) & “,“ str_update = str_update & “emp_rpraddr=“ & Trim(Tex

42、tBox10.Text) & “,emp_phone=“ & Trim(TextBox15.Text) & “,emp_dqdate=“ & str1 & “,“ str_update = str_update & “emp_e_mail=“ & Trim(TextBox17.Text) & “,emp_famliy_addr=“ & Trim(TextBox18.Text) & “,emp_signdate=“ & dt3 & “,“ str_update = str_update & “emp_yglx=“ & Trim(ComboBox1.Text) & “,emp_remark=“ &

43、 Trim(TextBox20.Text) & “ str_update = str_update & “ where emp_id=“ & Trim(TextBox3.Text) & “ Dim cmd As New SqlCommand(str_update, connection) cmd.ExecuteNonQuery() Call DBclose() MsgBox(“修改个人基本信息成功!“, , “提示“) Call text_ReadOnly_true() ToolBar1.Enabled = True ds.Clear() Else Call DBopen() Dim str_

44、insert_empinfo As String str_insert_empinfo = “insert into empinfo(emp_id,emp_name,emp_sex,emp_birthday,emp_htime,“ str_insert_empinfo = str_insert_empinfo & “emp_comedate,emp_folk,emp_np,“ str_insert_empinfo = str_insert_empinfo & “emp_did,emp_rpraddr,emp_phone,emp_dqdate,“ str_insert_empinfo = str

45、_insert_empinfo & “ emp_e_mail,emp_famliy_addr,emp_yglx,emp_probation,emp_grade,emp_yn,emp_signdate,emp_remark) values (“ & Trim(TextBox3.Text) & “,“ str_insert_empinfo = str_insert_empinfo & “ & Trim(TextBox1.Text) & “,“ & Trim(ComboBox2.Text) & “,“ & dt2 & “,“ & Trim(TextBox2.Text) & “,“ str_inser

46、t_empinfo = str_insert_empinfo & “ & dt1 & “,“ & Trim(TextBox7.Text) & “,“ str_insert_empinfo = str_insert_empinfo & “ & Trim(TextBox6.Text) & “,“ & Trim(TextBox9.Text) & “,“ str_insert_empinfo = str_insert_empinfo & “ & Trim(TextBox10.Text) & “,“ str_insert_empinfo = str_insert_empinfo & “ & Trim(T

47、extBox15.Text) & “,“ & str1 & “,“ 运城学院计算机科学与技术系毕业论文 第 26 页 共 28 页 str_insert_empinfo = str_insert_empinfo & “ & Trim(TextBox17.Text) & “,“ & Trim(TextBox18.Text) & “,“ str_insert_empinfo = str_insert_empinfo & “ & ComboBox1.Text & “,“ & Trim(TextBox4.Text) & “,“ & Trim(ComboBox3.Text) & “,“ & Trim(C

48、omboBox4.Text) & “,“ & dt3 & “,“ & Trim(TextBox20.Text) & “)“ Dim cmd As New SqlCommand(str_insert_empinfo, connection) cmd.ExecuteNonQuery() MsgBox(“添加个人基本信息成功!“, , “提示“) Call DBclose() Call text_ReadOnly_true() ToolBar1.Enabled = True ds.Clear() End If Private Sub Button8_Click(ByVal sender As Sys

49、tem.Object, ByVal e As System.EventArgs) Handles Button8.Click 组合查询 Dim sql As String Dim dgvds As New DataSet Dim da As SqlDataAdapter Dim strTime As String = Me.DateTimePicker1.Value.ToShortDateString sql = “select emp_id as 合同编号,emp_name as 姓名,emp_sex as 性别,emp_birthday as 出生日期, emp_comedate as 首签日期,emp_yglx as 用工类型,emp_probation as