2022年合同管理系统

《2022年合同管理系统》由会员分享，可在线阅读，更多相关《2022年合同管理系统（25页珍藏版）》请在金锄头文库上搜索。

1、沈 阳 理 工 大 学 课 程 设 计 专 用 纸i 成 绩 评 定 表学生姓名朱世诚班级学号1209010228 专业信息与计算科学课程设计题目合同管理系统评语组长签字：成绩日期2014 年 12 月 18 日精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸ii 课程设计任务书学院理学院专 业信息与计算科学学生姓名朱世诚班级学号1209010228 课程设计题目合同管理系统实践教学要求与任务 : 利用 VB6.0及 SQL Server 2000 设计一个员工合同管理系统，数据

2、库里包括5 个表：密码表、员工合同签订信息、员工合同续签信息以及合同终止信息。密码表用于记录用户名及密码；员工合同签订信息用于记录合同签订的基本信息；员工合同续签信息用于记录合同续签的基本信息；合同终止信息用于记录合同终止的基本信息。在主控窗体中（ MID窗体）点击各菜单实现管理和查询企业和员工间的所有合同信息。具体功能包括：合同签订：用于管理企业与员工签定的劳动合同。包括职员编号、合同名称、合同编号、合同期限、合同签定日期、备注等。合同续签：用于处理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签期限、新合同号、备注。合同终止：用于终止已签定的合同，包括职员编号、合同编

3、号、合同终止时间、备注等。用户的登录和注册功能：工作计划与进度安排 :第 15 周：数据库设计，利用SQL Server 创建数据库及数据表。总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。第 16 周：管理功能设计， 设计调试各种数据管理功能窗体及打印报表功能。撰写课程设计报告，验收与答辩。指导教师： 2014年 11 月 27日专业负责人：2014年 11 月 28 日学院教学副院长：2014 年 11 月 28 日精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 2 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸iii

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

5、主要功能是员工合同管理，对员工的合同签订信息、合同续签信息和合同终止信息进行管理和修改。本系统的数据库是用SQL server 2000 软件进行创建与设计，分别包括签订信息表、续签信息表和合同终止信息表三个表。通过系统ODBC数据源管理工具把已创建的数据源与系统数据库相连。利用 VB软件对系统的窗口进行设计，通过这些窗体进行登录操作，对输入的用户信息进行验证， 和注册新用户操作，并可以对数据进行添加与删除、查询及修改等操作。关键词：合同管理系统 ；SQL server 2000 ；VB软件精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共

6、 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸iv 目录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精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 4 页，共 25 页沈

7、阳 理 工 大 学 课 程 设 计 专 用 纸1 1 系统功能概述1.1 合同管理系统功能分析合同管理系统主要功能是用计算机对员工合同的签订、续签以及终止进行登记、 查询、删除等操作以及对员工合同的签订、续签、终止信息进行记录以及打印报表等操作。本系统运用了 VB 6.0 及 SQL Server2000，主要设计了以下几大功能：(1) 对员工合同签订、续签以及终止信息进行修改、录入、浏览及删除。(2) 按查询条件对工合同签订、续签以及终止信息进行查询。1.2 系统结构图图 1 合同管理管理系统总体结构合同管理系统用户管理查询注册新用户退出功能合同签订添加删除修改合同续签添加删除修改合同终止添

8、加删除修改合同签订查询合同续签查询合同终止查询精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 5 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸2 2 数据库设计2.1 需求分析在主控窗体中（ MID 窗体）点击各菜单实现管理和查询企业和员工间的所有合同信息。具体功能包括：合同签定：用于管理企业与员工签定的劳动合同。包括职员编号、合同名称、合同编号、合同期限、合同签定日期、备注等。合同续签：用于处理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签期限、新合同号、备注。合同终止：用于终止已签定的合同，包括职员

9、编号、合同编号、合同终止时间、备注等。用户的登录和注册功能：2.2 E-R 模型1. 实体及属性图本系统有合同签订，合同续签。合同终止三个实体，三个实体相对独立且相互之间不存在联系。（1）合同签订实体及属性图如下：图 2 合同签订实体及属性合同签订职员编号合同名称合同编号合同期限合同签订日备注精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 6 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸3 （2）合同续签实体及属性图如下：图 3 合同续签实体及属性（3）合同终止实体及属性图如下：图 4 合同终止实体及属性（4）密码表实体及属性

10、如下：图 5 密码表实体及属性合同续签职员编号合同编号合同续签到日期合同续签期限新合同号备注合同终止职员编号合同编号备注合同终止时间密码表用户名密码精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 7 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸4 2.3 关系模型1.合同签订（职员编号，合同名称，合同编号，合同期限，合同签定日期，备注）2.合同续签（职员编号，合同编号，合同续签到日期，合同续签期限，新合同号，备注）3.合同终止（职员编号，合同编号，合同终止时间，备注）4.密码表 ( 用户名，密码 ) 用于记录注册过的用户名及密

11、码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

12、 , 合同签定日期 char (20) COLLATE Chinese_PRC_CI_AS NULL , 备注 int NULL ) ON PRIMARY 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 8 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸5 员工合同签订信息表2. 合同续签信息的建立与基本数据：SQL 语句如下：CREATE TABLE dbo. 员工合同续签信息 ( 职员编号 int NOT NULL , 合同编号 char (10)COLLATE Chinese_PRC_CI_AS NULL , 合同续签到日

13、期 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 , 合同终止

14、时间 char (20) COLLATE Chinese_PRC_CI_AS NULL , 备注 int NULL , ) ON PRIMARY 员工合同终止信息表精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 9 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸6 5. 密码表的建立与基本数据：SQL 语句如下：create table 用户(用户名CHAR (10), 密码 CHAR (8) ); 密码表精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 10 页，共 25 页沈 阳

15、理 工 大 学 课 程 设 计 专 用 纸7 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

16、 Then MsgBox 用户名错误，重新输入, vbExclamation, 警告 Text1.Text = : Text1.SetFocus Else 判断密码是否正确精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 11 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸8 If Adodc1.Recordset.Fields( 密码 ) = Text2 Then MDIForm1.mDataMng.Enabled = True Unload Me Else MsgBox 密码错误，重新输入, vbExclamation, 警告

17、 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 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 12 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸9 3.2 主窗体界面用户菜单可以实现注册新用户和退出功能；数据管理菜单可对数据库里的员工合同签订、续签

18、、终止信息进行修改、添加、删除和查询。页面设计如下：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() 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 13 页，共 25 页沈 阳 理 工 大 学 课 程 设

19、计 专 用 纸10 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、员工合同签订、续签、终止信息的添加修改删除页面：精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 14 页，共 25

20、 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸11 2、详细设计代码：Private Sub Command1_Click() Form1.Show End Sub Private Sub Form_Load() 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 15 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸12 CmdFirst.Enabled = False 首记录 按钮无效CmdPre.Enabled = False 前移按钮无效CmdNext.Enabled = True 后移按钮有效CmdLast.Enab

21、led = 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

22、.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(确实要删除当前记录吗？,

23、 vbYesNo + vbQuestion, 确认 ) If x = vbYes Then Adodc1.Recordset.Delete 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 16 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸13 Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Else Adodc1.Refresh End If End Sub Private Sub CmdEsc_Cl

24、ick() 取消按钮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.Enab

25、led = 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 精选学习资料 - - - - - - - - - 名师归纳总结 - - - -

26、- - -第 17 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸14 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 Cmd

27、Next_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 & / & Adod

28、c1.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 精选学习资料 - - -

29、 - - - - - - 名师归纳总结 - - - - - - -第 18 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸15 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、员

30、工合同签订信息查询页面：精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 19 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸16 2、员工合同签订信息详细设计代码：Private Sub CmdBack_Click() qdxx.Show Unload Me End Sub Private Sub Form_Load() Combo1.AddItem 职员编号 为组合列表框添加各选项Combo1.AddItem 合同名称 Combo1.AddItem 合同编号 Combo1.Text = 职员编号 让组合框初始选中 姓名 项Te

31、xt1.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、员工合同续签信息查询页面：精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 20 页，共 25 页沈 阳 理

32、工 大 学 课 程 设 计 专 用 纸17 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 员工合同续签信息 .*

33、 From 员工合同续签信息 str = str & Where 员工合同续签信息 . & Combo1.Text & Like & Text1 & % Adodc1.RecordSource = str Adodc1.Refresh End Sub 5、员工合同终止信息查询页面：精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 21 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸18 6、员工合同终止信息详细设计代码：Private Sub CmdBack_Click() zzxx.Show Unload Me End Sub

34、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

35、 Adodc1.Refresh End Sub3.5 注册新用户输入用户名、密码及确认密码， 即可注册新用户， 否则会提示相关的警告信息， 按“取消”则退回主窗体界面。1、注册新用户页面：精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 22 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸19 2、详细设计代码 : Private Sub CmdOk_Click() Dim SQLStr As String If Text1 = Then MsgBox 请输入用户名！ , vbExclamation, 确认用户名 Text1.Se

36、tFocus 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,

37、检验密码 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, 添

38、加用户 End If End Sub Private Sub CmdCancle_Click() Unload Me End Sub 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 23 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸20 4 课设总结在老师同学的帮助下，经过几天的自学实践，我掌握了数据库设计的基本思想，同时也学会了对 VB 6.0 的基本应用。经过不断的调试运行，终于完成了本次的课程设计任务。本次完成的合同管理系统基本符合所需的工作要求，但由于时间紧张，加上本人经验上的不足，未能丰富系统的功能，日后希望能够继续

39、努力，做到更好。在本次设计中，我深刻地感觉到自己在设计方面的不足，考虑不全面，心思不缜密，这些都是我需要改进的地方。在此，我要感谢老师和同学们给予我的帮助和支持，使我能够顺利地完成本次的设计任务。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 24 页，共 25 页沈 阳 理 工 大 学 课 程 设 计 专 用 纸21 参考文献1. 王珊. 数据库系统简明教程 . 北京：高等教育出版社， 2004 2. 王珊，冯念真 . 计算机应用系统的设计与开发. 北京：高等教育出版社，1989 3. 萨师煊，王珊 . 数据库系统概论 . 第三版. 北京：高等教育出版社，2000 4. 王珊，陈红 . 数据库系统教程 . 北京：清华大学出版社，1998 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 25 页，共 25 页