合同管理系统

摘 要

数据库技术是现代信息科学与技术的重要组成部分，是计算机数据处理与信息管理系统的核心。数据库技术研究和解决了计算机信息处理过程中大量数据有效地组织和存储的问题，在数据库系统中减少数据存储冗余、实现数据共享、保障数据安全以及高效地检索数据和处理数据。在企业经营管理中, 采购是最重要的一个环节。它对于企业降低经营成本、确保产品质量、缩短生产周期具有非常重要的意义。采购管理为降低采购成本、提高采购效益提供了广阔的空间，但同时也为采购管理带来了新的机遇和挑战。目前, 我国大多数企业仍然没有建立健全的供应链管理体系, 物资的采购还存在机构设置分散, 资源浪费严重, 信息传递滞后等问题。

本系统的主要功能是员工合同管理，对员工的合同签订信息、合同续签信息和合同终止信息进行管理和修改。本系统的数据库是用SQL server 2005软件进行创建与设计，分别包括签订信息表、续签信息表和合同终止信息表三个表。通过系统ODBC 数据源管理工具把已创建的数据源与系统数据库相连。利用VB 软件对系统的窗口进行设计，通过这些窗体进行登录操作，对输入的用户信息进行验证，和注册新用户操作，并可以对数据进行添加与删除、查询及修改等操作。

关键词： 合同管理系统；SQL server 2005；VB 软件

目 录

1 系统功能概述 ......................................................... 1

1.1合同管理系统功能分析 ............................................. 1 1.2 系统结构图 ...................................................... 1 2 数据库设计 ........................................................... 1

2.1需求分析 ......................................................... 2 2.2 E-R模型 ......................................................... 2 2.3关系模型 ......................................................... 4 2.4表结构设计 ....................................................... 4 3.1用户登录 ......................................................... 7 3.2主窗体界面 ....................................................... 9 3.3添加修改删除页面 ................................................ 10 3.4查询页面 ........................................................ 15 3.5注册新用户 ...................................................... 18 4 课设总结 ............................................................. 20 参考文献 ............................................................... 21

1 系统功能概述

1.1合同管理系统功能分析

企业合同管理系统主要功能是用计算机对员工合同的签订、续签以及终止进行登记、查询、删除等操作以及对员工合同的签订、续签、终止信息进行记录以及打印报表等操作。

本系统运用了VB 6.0及SQL Server2005，主要设计了以下几大功能： (1)对员工合同签订、续签以及终止信息进行修改、录入、浏览及删除。 (2)按查询条件对工合同签订、续签以及终止信息进行查询。

1.2 系统结构图

图1企业合同管理管理系统总体结构

2 数据库设计

2.1需求分析

在主控窗体中（MID 窗体）点击各菜单实现管理和查询企业和员工间的所有合同信息。具体功能包括：

合同签定：用于管理企业与员工签定的劳动合同。包括职员编号、合同名称、合同编号、合同期限、合同签定日期、备注等。

合同续签：用于处理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签期限、新合同号、备注。

合同终止：用于终止已签定的合同，包括职员编号、合同编号、合同终止时间、备注等。

用户的登录和注册功能：

2.2 E-R模型

1. 实体及属性图

本系统有合同签订，合同续签。合同终止三个实体，三个实体相对独立且相互之间不存在联系。

（1）合同签订实体及属性图如下：

图2合同签订实体及属性

（2）合同续签实体及属性图如下：

（3）合同终止实体及属性图如下：

图4合同终止实体及属性

图3合同续签实体及属性

（4）密码表实体及属性如下：

图5密码表实体及属性

2.3关系模型

1. 合同签订（职员编号，合同名称，合同编号，合同期限，合同签定日期，备注） 2. 合同续签（职员编号，合同编号，合同续签到日期，合同续签期限，新合同号，备注） 3. 合同终止（职员编号，合同编号，合同终止时间，备注） 4. 密码表 (用户名，密码) 用于记录注册过的用户名及密码

2.4表结构设计

本系统在SQL Server 2000数据库里共设计了4个数据表来记录数据：用户表、员工合同签订信息、员工合同续签信息、员工合同终止信息。

1. 合同签订信息的建立与基本数据： SQL 语句如下：

CREATE TABLE [dbo].[员工合同签定信息] ( [职员编号] [int] NOT NULL ,

[合同名称] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [合同编号] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [合同期限] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [合同签定日期] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [备注] [int] NULL

) ON [PRIMARY]

员工合同签订信息表

2. 合同续签信息的建立与基本数据： SQL 语句如下：

CREATE TABLE [dbo].[ 员工合同续签信息] ( [职员编号] [int] NOT NULL ,

[合同编号] [char] (10)COLLATE Chinese_PRC_CI_AS NULL ,

[合同续签到日期] [char] (20) COLLATE Chinese_PRC_CI_AS NULL, [合同续签期限] [char] (20) COLLATE Chinese_PRC_CI_AS NULL, [新合同号] [char] (10) COLLATE Chinese_PRC_CI_AS NULL, [备注] [int] NULL ) ON [PRIMARY]

员工合同续签信息表

3. 合同终止信息的建立与基本数据： SQL 语句如下：

CREATE TABLE [dbo].[ 合同终止信息] ( [职员编号] [int] NOT NULL ,

[合同编号] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [合同终止时间] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [备注] [int] NULL ,

) ON [PRIMARY]

员工合同终止信息表

5. 密码表的建立与基本数据： SQL 语句如下：

create table 用户 (用户名 CHAR (10), 密码 CHAR (8)

);

密码表

3 系统各功能模块的详细设计

3.1用户登录

输入用户名及对应密码，即可登录，否则会提示相关的警告信息，按“取消”则退回主窗体界面。页面设计如下： 1、登录页面

2、详细设计代码

Private Sub Command1_Click() Static miCount As Integer Dim SQLStr As String

SQLStr = "Select * from 密码表 Where 用户名= '" & Text1 & "'" Adodc1.RecordSource = SQLStr Adodc1.Refresh

If Adodc1.Recordset.BOF Then

MsgBox "用户名错误，重新输入 ", vbExclamation, "警告" Text1.Text = "": Text1.SetFocus Else ' 判断密码是否正确

If Adodc1.Recordset.Fields("密码") = Text2 Then MDIForm1.mDataMng.Enabled = True Unload Me Else

MsgBox "密码错误，重新输入 ", vbExclamation, "警告" Text2.Text = "": Text2.SetFocus End If End If

miCount = miCount + 1

If miCount = 3 Then Unload Me '若已输入3次，则关闭窗体 End Sub

Private Sub Command2_Click() Unload Me End Sub

3.2主窗体界面

用户菜单可以实现注册新用户和退出功能；数据管理菜单可对数据库里的员工合同签订、续签、终止信息进行修改、添加、删除和查询。页面设计如下： 1、主窗体页面

2、详细设计代码

Private Sub MDIForm_Load() mDataMng.Enabled = False End Sub

Private Sub mFDenglu_Click() Denglu.Show End Sub

Private Sub mDzhuce_Click() zcxyh.Show End Sub

Private Sub mDqdxx_Click()

qdxx.Show End Sub

Private Sub mDxqxx_Click() xqxx.Show End Sub

Private Sub mDzzxx_Click() zzxx.Show End Sub

Private Sub mFExit_Click() End End Sub

3.3添加修改删除页面

对数据库里的员工合同签订、续签、终止信息进行修改、添加、删除，并且可以进入查询界面。页面设计如下：

1、员工合同签订、续签、终止信息的添加修改删除页面：

2、详细设计代码：

Private Sub Command1_Click() Form1.Show End Sub

Private Sub Form_Load()

CmdFirst.Enabled = False ' [首记录]按钮无效 CmdPre.Enabled = False ' [前移]按钮无效 CmdNext.Enabled = True ' [后移]按钮有效 CmdLast.Enabled = True ' [末记录]按钮有效 CmdAdd.Enabled = True ' [添加]按钮有效 CmdDel.Enabled = True ' [删除]按钮有效 CmdOk.Enabled = False ' [确定]按钮无效 CmdEsc.Enabled = False ' [取消]按钮无效

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdAdd_Click() ' [添加]按钮的单击事件 Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True End Sub

Private Sub CmdOk_Click() ' 单击[确认]按钮 Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub

Private Sub CmdDel_Click() ' 单击[删除]按钮

x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认") If x = vbYes Then Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else

Adodc1.Refresh End If End Sub

Private Sub CmdEsc_Click() ' 取消按钮 Adodc1.Refresh CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub

Private Sub CmdFirst_Click()

Adodc1.Recordset.MoveFirst ' 记录指针移到首记录（显示首记录） CmdFirst.Enabled = False ' 让[首记录]按钮无效 CmdPre.Enabled = False ' 让[前移]按钮无效 CmdNext.Enabled = True ' 让[后移]按钮有效 CmdLast.Enabled = True ' 让[末记录]按钮有效 ' 在Label6上显示当前记录号/记录总数：

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdPre_Click()

Adodc1.Recordset.MovePrevious ' 记录指针移到前一条记录 CmdNext.Enabled = True CmdLast.Enabled = True

If Adodc1.Recordset.BOF Then ' 如果记录指针移到首记录之前, Adodc1.Recordset.MoveFirst ' 则记录指针移到首记录上 CmdFirst.Enabled = False CmdPre.Enabled = False End If

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdNext_Click()

Adodc1.Recordset.MoveNext '记录指针移到下一条记录 CmdFirst.Enabled = True CmdPre.Enabled = True

If Adodc1.Recordset.EOF Then ' 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast ' 则记录指针移到末记录上 CmdNext.Enabled = False CmdLast.Enabled = False End If

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdLast_Click()

Adodc1.Recordset.MoveLast ' 移到末记录 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdN_Click() Dim n As Integer n = Text7.Text

Adodc1.Recordset.Move n

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

3.4查询页面

对数据库里的员工合同签订、续签、终止信息进行查询。页面设计如下： 1、员工合同签订信息查询页面：

2、员工合同签订信息详细设计代码： Private Sub CmdBack_Click() qdxx.Show Unload Me End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号" ' 为组合列表框添加各选项 Combo1.AddItem "合同名称" Combo1.AddItem "合同编号"

Combo1.Text = "职员编号" ' 让组合框初始选中" 姓名" 项 Text1.Text = "" ' 清空文本框 End Sub

Private Sub Command1_Click() Dim str As String

str = " Select 员工合同签定信息.* From 员工合同签定信息 "

str = str & " Where 员工合同签定信息." & Combo1.Text & " Like '" & Text1 & "%' "

Adodc1.RecordSource = str Adodc1.Refresh End Sub

3、员工合同续签信息查询页面：

4、员工合同续签信息详细设计代码: Private Sub CmdBack_Click() xqxx.Show Unload Me End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号" ' 为组合列表框添加各选项 Combo1.AddItem "合同编号"

Combo1.Text = "职员编号" ' 让组合框初始选中" 姓名" 项 Text1.Text = "" ' 清空文本框 End Sub

Private Sub Command1_Click() Dim str As String

str = " Select 员工合同续签信息.* From 员工合同续签信息 "

str = str & " Where 员工合同续签信息." & Combo1.Text & " Like '" & Text1 & "%' "

Adodc1.RecordSource = str Adodc1.Refresh End Sub

5、员工合同终止信息查询页面：

6、员工合同终止信息详细设计代码： Private Sub CmdBack_Click() zzxx.Show Unload Me End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号" ' 为组合列表框添加各选项 Combo1.AddItem "合同编号"

Combo1.Text = "职员编号" ' 让组合框初始选中" 姓名" 项 Text1.Text = "" ' 清空文本框 End Sub

Private Sub Command1_Click() Dim str As String

str = " Select 合同终止信息.* From 合同终止信息 "

str = str & " Where 合同终止信息." & Combo1.Text & " Like '" & Text1 & "%' " Adodc1.RecordSource = str Adodc1.Refresh End Sub

3.5注册新用户

输入用户名、密码及确认密码，即可注册新用户，否则会提示相关的警告信息，按“取消”则退回主窗体界面。 1、注册新用户页面：

2、详细设计代码:

Private Sub CmdOk_Click()

Dim SQLStr As String

If Text1 = "" Then

MsgBox "请输入用户名！", vbExclamation, "确认用户名"

Text1.SetFocus

Exit Sub

Else

SQLStr = "Select * from 密码表 where 用户名='" & Text1 & "'"

Adodc1.RecordSource = SQLStr

Adodc1.Refresh

If Adodc1.Recordset.EOF = False Then

MsgBox "用户名已存在，请重新输入！", vbExclamation, "检验用户名"

Text1 = ""

Text1.SetFocus

Exit Sub

End If

End If

If Text2 Text3 Then

MsgBox "二次输入的密码不一致，请重新输入", vbExclamation, "检验密码"

Text2 = "": Text3 = ""

Text2.SetFocus

Exit Sub

ElseIf Text2 = "" Then

MsgBox "密码不能为空！", vbExclamation, "检验密码"

Text2.SetFocus

Else

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("用户名") = Trim(Text1)

Adodc1.Recordset.Fields("密码") = Trim(Text2)

Adodc1.Recordset.Update

Me.Hide

MsgBox "成功注册新用户！", vbInformation, "添加用户"

End If

End Sub

Private Sub CmdCancle_Click()

Unload Me

End Sub

4 课设总结

在老师同学的帮助下，经过几天的自学实践，我掌握了数据库设计的基本思想，同时也学会了对VB 6.0的基本应用。经过不断的调试运行，终于完成了本次的课程设计任务。本次完成的合同管理系统基本符合所需的工作要求，但由于时间紧张，加上本人经验上的不足，未能丰富系统的功能，日后希望能够继续努力，做到更好。

这次数据库课程设计，我运用了教材上的几个设计方法，按照老师的要求，从需求分析到数据库实施，每一步都按照老师的提示完成。但是由于对编程技术的缺乏，没能实现应用系统设计，是这次设计的最大缺陷。虽然应用系统设计失败了，但我在这个过程对一些关于数据库编程开发还是有了一些认识，对ODBC,ADO 一些技术有了一部分的了解，相信在以后的过程中，一定会弥补这个缺陷的。

参考文献

1. 王珊. 数据库系统简明教程. 北京：高等教育出版社，2004

2. 王珊，冯念真. 计算机应用系统的设计与开发. 北京：高等教育出版社，1989

3. 萨师煊，王珊. 数据库系统概论. 第三版. 北京：高等教育出版社，2000

4. 王珊，陈红. 数据库系统教程. 北京：清华大学出版社，1998

摘 要

数据库技术是现代信息科学与技术的重要组成部分，是计算机数据处理与信息管理系统的核心。数据库技术研究和解决了计算机信息处理过程中大量数据有效地组织和存储的问题，在数据库系统中减少数据存储冗余、实现数据共享、保障数据安全以及高效地检索数据和处理数据。在企业经营管理中, 采购是最重要的一个环节。它对于企业降低经营成本、确保产品质量、缩短生产周期具有非常重要的意义。采购管理为降低采购成本、提高采购效益提供了广阔的空间，但同时也为采购管理带来了新的机遇和挑战。目前, 我国大多数企业仍然没有建立健全的供应链管理体系, 物资的采购还存在机构设置分散, 资源浪费严重, 信息传递滞后等问题。

本系统的主要功能是员工合同管理，对员工的合同签订信息、合同续签信息和合同终止信息进行管理和修改。本系统的数据库是用SQL server 2005软件进行创建与设计，分别包括签订信息表、续签信息表和合同终止信息表三个表。通过系统ODBC 数据源管理工具把已创建的数据源与系统数据库相连。利用VB 软件对系统的窗口进行设计，通过这些窗体进行登录操作，对输入的用户信息进行验证，和注册新用户操作，并可以对数据进行添加与删除、查询及修改等操作。

关键词： 合同管理系统；SQL server 2005；VB 软件

目 录

1 系统功能概述 ......................................................... 1

1.1合同管理系统功能分析 ............................................. 1 1.2 系统结构图 ...................................................... 1 2 数据库设计 ........................................................... 1

2.1需求分析 ......................................................... 2 2.2 E-R模型 ......................................................... 2 2.3关系模型 ......................................................... 4 2.4表结构设计 ....................................................... 4 3.1用户登录 ......................................................... 7 3.2主窗体界面 ....................................................... 9 3.3添加修改删除页面 ................................................ 10 3.4查询页面 ........................................................ 15 3.5注册新用户 ...................................................... 18 4 课设总结 ............................................................. 20 参考文献 ............................................................... 21

1 系统功能概述

1.1合同管理系统功能分析

企业合同管理系统主要功能是用计算机对员工合同的签订、续签以及终止进行登记、查询、删除等操作以及对员工合同的签订、续签、终止信息进行记录以及打印报表等操作。

本系统运用了VB 6.0及SQL Server2005，主要设计了以下几大功能： (1)对员工合同签订、续签以及终止信息进行修改、录入、浏览及删除。 (2)按查询条件对工合同签订、续签以及终止信息进行查询。

1.2 系统结构图

图1企业合同管理管理系统总体结构

2 数据库设计

2.1需求分析

在主控窗体中（MID 窗体）点击各菜单实现管理和查询企业和员工间的所有合同信息。具体功能包括：

合同签定：用于管理企业与员工签定的劳动合同。包括职员编号、合同名称、合同编号、合同期限、合同签定日期、备注等。

合同续签：用于处理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签期限、新合同号、备注。

合同终止：用于终止已签定的合同，包括职员编号、合同编号、合同终止时间、备注等。

用户的登录和注册功能：

2.2 E-R模型

1. 实体及属性图

本系统有合同签订，合同续签。合同终止三个实体，三个实体相对独立且相互之间不存在联系。

（1）合同签订实体及属性图如下：

图2合同签订实体及属性

（2）合同续签实体及属性图如下：

（3）合同终止实体及属性图如下：

图4合同终止实体及属性

图3合同续签实体及属性

（4）密码表实体及属性如下：

图5密码表实体及属性

2.3关系模型

1. 合同签订（职员编号，合同名称，合同编号，合同期限，合同签定日期，备注） 2. 合同续签（职员编号，合同编号，合同续签到日期，合同续签期限，新合同号，备注） 3. 合同终止（职员编号，合同编号，合同终止时间，备注） 4. 密码表 (用户名，密码) 用于记录注册过的用户名及密码

2.4表结构设计

本系统在SQL Server 2000数据库里共设计了4个数据表来记录数据：用户表、员工合同签订信息、员工合同续签信息、员工合同终止信息。

1. 合同签订信息的建立与基本数据： SQL 语句如下：

CREATE TABLE [dbo].[员工合同签定信息] ( [职员编号] [int] NOT NULL ,

[合同名称] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [合同编号] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [合同期限] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [合同签定日期] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [备注] [int] NULL

) ON [PRIMARY]

员工合同签订信息表

2. 合同续签信息的建立与基本数据： SQL 语句如下：

CREATE TABLE [dbo].[ 员工合同续签信息] ( [职员编号] [int] NOT NULL ,

[合同编号] [char] (10)COLLATE Chinese_PRC_CI_AS NULL ,

[合同续签到日期] [char] (20) COLLATE Chinese_PRC_CI_AS NULL, [合同续签期限] [char] (20) COLLATE Chinese_PRC_CI_AS NULL, [新合同号] [char] (10) COLLATE Chinese_PRC_CI_AS NULL, [备注] [int] NULL ) ON [PRIMARY]

员工合同续签信息表

3. 合同终止信息的建立与基本数据： SQL 语句如下：

CREATE TABLE [dbo].[ 合同终止信息] ( [职员编号] [int] NOT NULL ,

[合同编号] [char] (10) COLLATE Chinese_PRC_CI_AS NULL , [合同终止时间] [char] (20) COLLATE Chinese_PRC_CI_AS NULL , [备注] [int] NULL ,

) ON [PRIMARY]

员工合同终止信息表

5. 密码表的建立与基本数据： SQL 语句如下：

create table 用户 (用户名 CHAR (10), 密码 CHAR (8)

);

密码表

3 系统各功能模块的详细设计

3.1用户登录

输入用户名及对应密码，即可登录，否则会提示相关的警告信息，按“取消”则退回主窗体界面。页面设计如下： 1、登录页面

2、详细设计代码

Private Sub Command1_Click() Static miCount As Integer Dim SQLStr As String

SQLStr = "Select * from 密码表 Where 用户名= '" & Text1 & "'" Adodc1.RecordSource = SQLStr Adodc1.Refresh

If Adodc1.Recordset.BOF Then

MsgBox "用户名错误，重新输入 ", vbExclamation, "警告" Text1.Text = "": Text1.SetFocus Else ' 判断密码是否正确

If Adodc1.Recordset.Fields("密码") = Text2 Then MDIForm1.mDataMng.Enabled = True Unload Me Else

MsgBox "密码错误，重新输入 ", vbExclamation, "警告" Text2.Text = "": Text2.SetFocus End If End If

miCount = miCount + 1

If miCount = 3 Then Unload Me '若已输入3次，则关闭窗体 End Sub

Private Sub Command2_Click() Unload Me End Sub

3.2主窗体界面

用户菜单可以实现注册新用户和退出功能；数据管理菜单可对数据库里的员工合同签订、续签、终止信息进行修改、添加、删除和查询。页面设计如下： 1、主窗体页面

2、详细设计代码

Private Sub MDIForm_Load() mDataMng.Enabled = False End Sub

Private Sub mFDenglu_Click() Denglu.Show End Sub

Private Sub mDzhuce_Click() zcxyh.Show End Sub

Private Sub mDqdxx_Click()

qdxx.Show End Sub

Private Sub mDxqxx_Click() xqxx.Show End Sub

Private Sub mDzzxx_Click() zzxx.Show End Sub

Private Sub mFExit_Click() End End Sub

3.3添加修改删除页面

对数据库里的员工合同签订、续签、终止信息进行修改、添加、删除，并且可以进入查询界面。页面设计如下：

1、员工合同签订、续签、终止信息的添加修改删除页面：

2、详细设计代码：

Private Sub Command1_Click() Form1.Show End Sub

Private Sub Form_Load()

CmdFirst.Enabled = False ' [首记录]按钮无效 CmdPre.Enabled = False ' [前移]按钮无效 CmdNext.Enabled = True ' [后移]按钮有效 CmdLast.Enabled = True ' [末记录]按钮有效 CmdAdd.Enabled = True ' [添加]按钮有效 CmdDel.Enabled = True ' [删除]按钮有效 CmdOk.Enabled = False ' [确定]按钮无效 CmdEsc.Enabled = False ' [取消]按钮无效

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdAdd_Click() ' [添加]按钮的单击事件 Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True End Sub

Private Sub CmdOk_Click() ' 单击[确认]按钮 Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub

Private Sub CmdDel_Click() ' 单击[删除]按钮

x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认") If x = vbYes Then Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else

Adodc1.Refresh End If End Sub

Private Sub CmdEsc_Click() ' 取消按钮 Adodc1.Refresh CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub

Private Sub CmdFirst_Click()

Adodc1.Recordset.MoveFirst ' 记录指针移到首记录（显示首记录） CmdFirst.Enabled = False ' 让[首记录]按钮无效 CmdPre.Enabled = False ' 让[前移]按钮无效 CmdNext.Enabled = True ' 让[后移]按钮有效 CmdLast.Enabled = True ' 让[末记录]按钮有效 ' 在Label6上显示当前记录号/记录总数：

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdPre_Click()

Adodc1.Recordset.MovePrevious ' 记录指针移到前一条记录 CmdNext.Enabled = True CmdLast.Enabled = True

If Adodc1.Recordset.BOF Then ' 如果记录指针移到首记录之前, Adodc1.Recordset.MoveFirst ' 则记录指针移到首记录上 CmdFirst.Enabled = False CmdPre.Enabled = False End If

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdNext_Click()

Adodc1.Recordset.MoveNext '记录指针移到下一条记录 CmdFirst.Enabled = True CmdPre.Enabled = True

If Adodc1.Recordset.EOF Then ' 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast ' 则记录指针移到末记录上 CmdNext.Enabled = False CmdLast.Enabled = False End If

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdLast_Click()

Adodc1.Recordset.MoveLast ' 移到末记录 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = False

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

Private Sub CmdN_Click() Dim n As Integer n = Text7.Text

Adodc1.Recordset.Move n

Label7.Caption = " 记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

End Sub

3.4查询页面

对数据库里的员工合同签订、续签、终止信息进行查询。页面设计如下： 1、员工合同签订信息查询页面：

2、员工合同签订信息详细设计代码： Private Sub CmdBack_Click() qdxx.Show Unload Me End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号" ' 为组合列表框添加各选项 Combo1.AddItem "合同名称" Combo1.AddItem "合同编号"

Combo1.Text = "职员编号" ' 让组合框初始选中" 姓名" 项 Text1.Text = "" ' 清空文本框 End Sub

Private Sub Command1_Click() Dim str As String

str = " Select 员工合同签定信息.* From 员工合同签定信息 "

str = str & " Where 员工合同签定信息." & Combo1.Text & " Like '" & Text1 & "%' "

Adodc1.RecordSource = str Adodc1.Refresh End Sub

3、员工合同续签信息查询页面：

4、员工合同续签信息详细设计代码: Private Sub CmdBack_Click() xqxx.Show Unload Me End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号" ' 为组合列表框添加各选项 Combo1.AddItem "合同编号"

Combo1.Text = "职员编号" ' 让组合框初始选中" 姓名" 项 Text1.Text = "" ' 清空文本框 End Sub

Private Sub Command1_Click() Dim str As String

str = " Select 员工合同续签信息.* From 员工合同续签信息 "

str = str & " Where 员工合同续签信息." & Combo1.Text & " Like '" & Text1 & "%' "

Adodc1.RecordSource = str Adodc1.Refresh End Sub

5、员工合同终止信息查询页面：

6、员工合同终止信息详细设计代码： Private Sub CmdBack_Click() zzxx.Show Unload Me End Sub

Private Sub Form_Load()

Combo1.AddItem "职员编号" ' 为组合列表框添加各选项 Combo1.AddItem "合同编号"

Combo1.Text = "职员编号" ' 让组合框初始选中" 姓名" 项 Text1.Text = "" ' 清空文本框 End Sub

Private Sub Command1_Click() Dim str As String

str = " Select 合同终止信息.* From 合同终止信息 "

str = str & " Where 合同终止信息." & Combo1.Text & " Like '" & Text1 & "%' " Adodc1.RecordSource = str Adodc1.Refresh End Sub

3.5注册新用户

输入用户名、密码及确认密码，即可注册新用户，否则会提示相关的警告信息，按“取消”则退回主窗体界面。 1、注册新用户页面：

2、详细设计代码:

Private Sub CmdOk_Click()

Dim SQLStr As String

If Text1 = "" Then

MsgBox "请输入用户名！", vbExclamation, "确认用户名"

Text1.SetFocus

Exit Sub

Else

SQLStr = "Select * from 密码表 where 用户名='" & Text1 & "'"

Adodc1.RecordSource = SQLStr

Adodc1.Refresh

If Adodc1.Recordset.EOF = False Then

MsgBox "用户名已存在，请重新输入！", vbExclamation, "检验用户名"

Text1 = ""

Text1.SetFocus

Exit Sub

End If

End If

If Text2 Text3 Then

MsgBox "二次输入的密码不一致，请重新输入", vbExclamation, "检验密码"

Text2 = "": Text3 = ""

Text2.SetFocus

Exit Sub

ElseIf Text2 = "" Then

MsgBox "密码不能为空！", vbExclamation, "检验密码"

Text2.SetFocus

Else

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("用户名") = Trim(Text1)

Adodc1.Recordset.Fields("密码") = Trim(Text2)

Adodc1.Recordset.Update

Me.Hide

MsgBox "成功注册新用户！", vbInformation, "添加用户"

End If

End Sub

Private Sub CmdCancle_Click()

Unload Me

End Sub

4 课设总结

在老师同学的帮助下，经过几天的自学实践，我掌握了数据库设计的基本思想，同时也学会了对VB 6.0的基本应用。经过不断的调试运行，终于完成了本次的课程设计任务。本次完成的合同管理系统基本符合所需的工作要求，但由于时间紧张，加上本人经验上的不足，未能丰富系统的功能，日后希望能够继续努力，做到更好。

这次数据库课程设计，我运用了教材上的几个设计方法，按照老师的要求，从需求分析到数据库实施，每一步都按照老师的提示完成。但是由于对编程技术的缺乏，没能实现应用系统设计，是这次设计的最大缺陷。虽然应用系统设计失败了，但我在这个过程对一些关于数据库编程开发还是有了一些认识，对ODBC,ADO 一些技术有了一部分的了解，相信在以后的过程中，一定会弥补这个缺陷的。

参考文献

1. 王珊. 数据库系统简明教程. 北京：高等教育出版社，2004

2. 王珊，冯念真. 计算机应用系统的设计与开发. 北京：高等教育出版社，1989

3. 萨师煊，王珊. 数据库系统概论. 第三版. 北京：高等教育出版社，2000

4. 王珊，陈红. 数据库系统教程. 北京：清华大学出版社，1998