合同管理系统_.docx

《合同管理系统_.docx》由会员分享，可在线阅读，更多相关《合同管理系统_.docx（28页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、沈阳理工大学课程设计专用纸成 绩 评 定 表学生姓名朱世诚班级学号专业信息与计算科学课程设计题目合同治理系统评语组长签字：成绩日期2023 年 12 月 18 日iii课程设计任务书学 院学生姓名课程设计题目理学院朱世诚专 业班级学号合同治理系统信息与计算科学1209010228实践教学要求与任务:利用 VB6.0 及 SQL Server 2023 设计一个员工合同治理系统，数据库里包括 5 个表： 密码表、员工合同签订信息、员工合同续签信息以及合同终止信息。密码表用于记录用户名及密码；员工合同签订信息用于记录合同签订的根本信息；员工合同续签信息用于记录合同续签的根本信息；合同终止信息用于记

2、录合同终止的根本信息。在主控窗体中MID 窗体点击各菜单实现治理和查询企业和员工间的全部合同信息。具体功能包括：合同签订：用于治理企业与员工签定的劳动合同。包括职员编号、合同名称、合同编号、合同期限、合同签定日期、备注等。合同续签：用于处理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签期限、合同号、备注。合同终止：用于终止已签定的合同，包括职员编号、合同编号、合同终止时间、备注等。用户的登录和注册功能：工作打算与进度安排:第 15 周：数据库设计，利用 SQL Server 创立数据库及数据表。总体构造设计，设计调试系统首页、登陆窗体及 MDI 窗体。第 16 周：治理

3、功能设计，设计调试各种数据治理功能窗体及打印报表功能。撰写课程设计报告，验收与辩论。指导教师：2023 年 11 月 27 日专业负责人：2023 年 11 月 28 日学院教学副院长：2023 年 11 月 28 日摘 要数据库技术是现代信息科学与技术的重要组成局部，是计算机数据处理与信息治理系统的核心。 数据库技术争论和解决了计算机信息处理过程中大量数据有效地组织和存储的问题，在数据库系统中削减数据存储冗余、实现数据共享、保障数据安全以及高效地检索数据和处理数据。在企业经营治理中 ,选购是最重要的一个环节。它对于企业降低经营本钱、确保产品质量、缩短生产周期具有格外重要的意义。选购治理为降低

4、选购本钱、提高选购效益供给了宽阔的空间，但同时也为选购治理带来了的机遇和挑战。目前,我国大多数企业仍旧没有建立健全的供给链治理体系,物资的选购还存在机构设置分散,资源铺张严峻,信息传递滞后等问题。本系统的主要功能是员工合同治理，对员工的合同签订信息、合同续签信息和合同终止信息进展治理和修改。本系统的数据库是用 SQL server 2023 软件进展创立与设计，分别包括签订信息表、续签信息表和合同终止信息表三个表。通过系统 ODBC 数据源治理工具把已创立的数据源与系统数据库相连。利用 VB 软件对系统的窗口进展设计，通过这些窗体进展登录操作，对输入的用户信息进展验证，和注册用户操作， 并可以

5、对数据进展添加与删除、查询及修改等操作。关键词： 合同治理系统；SQL server 2023；VB 软件目 录1 系统功能概述11.1 合同治理系统功能分析11.2 系统构造图12 数据库设计12.1 需求分析22.2 E-R 模型22.3 关系模型42.4 表构造设计43.1 用户登录73.2 主窗体界面93.3 添加修改删除页面103.4 查询页面153.5 注册用户184 课设总结20参考文献21沈阳理工大学课程设计专用纸1 系统功能概述1.1 合同治理系统功能分析合同治理系统主要功能是用计算机对员工合同的签订、续签以及终止进展登记、查询、删除等操作以及对员工合同的签订、续签、终止信息

6、进展记录以及打印报表等操作。本系统运用了 VB 6.0 及 SQL Server2023，主要设计了以下几大功能： (1)对员工合同签订、续签以及终止信息进展修改、录入、扫瞄及删除。(2)按查询条件对工合同签订、续签以及终止信息进展查询。1.2 系统构造图合同治理系统用户治理查询图 1 合同治理治理系统总体构造注退合合合合合合册出同同同同同同功签续终签续终用能订签止订签止户添添添查查查加删加删加删询询询除除除修修修改改改12 数据库设计2.1 需求分析在主控窗体中MID 窗体点击各菜单实现治理和查询企业和员工间的全部合同信息。具体功能包括：合同签定：用于治理企业与员工签定的劳动合同。包括职员编

7、号、合同名称、合同编号、合同期限、合同签定日期、备注等。合同续签：用于处理已到期合同的续签事务，包括职员编号、合同编号、合同续签到日期、合同续签期限、合同号、备注。合同终止：用于终止已签定的合同，包括职员编号、合同编号、合同终止时间、备注等。用户的登录和注册功能：2.2 E-R 模型1. 实体及属性图本系统有合同签订，合同续签。合同终止三个实体，三个实体相对独立且相互之间不存在联系。（1） 合同签订实体及属性图如下：合同签订职员编号备注合同名称合同签订日合同编号合同期限图 2 合同签订实体及属性（2） 合同续签实体及属性图如下：合同续签职员编号备注合同编号合同号合同续签到日期合同续签期限图 3

8、 合同续签实体及属性（3） 合同终止实体及属性图如下：合同终止职员编号备注合同编号合同终止时间图 4 合同终止实体及属性（4） 密码表实体及属性如下：密码表用户名密码图 5 密码表实体及属性沈阳理工大学课程设计专用纸2.3 关系模型1. 合同签订职员编号，合同名称，合同编号，合同期限，合同签定日期，备注2. 合同续签职员编号，合同编号，合同续签到日期，合同续签期限，合同号，备注3. 合同终止职员编号，合同编号，合同终止时间，备注4. 密码表 (用户名，密码) 用于记录注册过的用户名及密码2.4 表构造设计本系统在 SQL Server 2023 数据库里共设计了 4 个数据表来记录数据：用户表

9、、员工合同签订信息、员工合同续签信息、员工合同终止信息。1. 合同签订信息的建立与根本数据： SQL 语句如下：CREATE TABLE dbo.员工合同签定信息 ( 职员编号 int NOT NULL ,合同名称char(10)COLLATEChinese_PRC_CI_ASNULL,合同编号char(10)COLLATEChinese_PRC_CI_ASNULL,合同期限char(10)COLLATEChinese_PRC_CI_ASNULL,合同签定日期 char (20) COLLATE Chinese_PRC_CI_AS NULL , 备注 int NULL) ON PRIMARY4

10、沈阳理工大学课程设计专用纸员工合同签订信息表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)

11、 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沈阳理工大学课程设计专用纸5.密码表的建立与根本数据： SQL 语句如下：create table 用户(用户名 CHAR (10),密码 CHAR

12、 (8);密码表6沈阳理工大学课程设计专用纸3 系统各功能模块的具体设计3.1 用户登录输入用户名及对应密码，即可登录，否则会提示相关的警告信息，按“取消”则退回主窗体界面。页面设计如下：1、登录页面2、具体设计代码Private Sub Command1_Click Static miCount As IntegerDim SQLStr As StringSQLStr = “Select * from 密码表 Where 用户名= ”“ & Text1 & “”“ Adodc1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.BO

13、F ThenMsgBox “用户名错误，重输入 “, vbExclamation, “警告“ Text1.Text = “: Text1.SetFocusElse”推断密码是否正确7沈阳理工大学课程设计专用纸If Adodc1.Recordset.Fields(“密码“) = Text2 Then MDIForm1.mDataMng.Enabled = TrueUnload Me ElseMsgBox “密码错误，重输入 “, vbExclamation, “警告“Text2.Text = “: Text2.SetFocus End IfEnd IfmiCount = miCount + 1I

14、f miCount = 3 Then Unload Me ”假设已输入 3 次，则关闭窗体End SubPrivate Sub Command2_Click Unload MeEnd Sub8沈阳理工大学课程设计专用纸3.2 主窗体界面用户菜单可以实现注册用户和退出功能；数据治理菜单可对数据库里的员工合同签订、续签、终止信息进展修改、添加、删除和查询。页面设计如下：1、主窗体页面2、具体设计代码Private Sub MDIForm_Load mDataMng.Enabled = False End SubPrivate Sub mFDenglu_Click Denglu.ShowEnd Su

15、bPrivate Sub mDzhuce_Click zcxyh.ShowEnd SubPrivate Sub mDqdxx_Click9沈阳理工大学课程设计专用纸qdxx.Show End SubPrivate Sub mDxqxx_Click xqxx.ShowEnd SubPrivate Sub mDzzxx_Click zzxx.ShowEnd SubPrivate Sub mFExit_Click EndEnd Sub3.3 添加修改删除页面对数据库里的员工合同签订、续签、终止信息进展修改、添加、删除，并且可以进入查询界面。页面设计如下：1、员工合同签订、续签、终止信息的添加修改删除

16、页面：10沈阳理工大学课程设计专用纸2、具体设计代码：Private Sub Command1_Click Form1.ShowEnd SubPrivate Sub Form_Load11沈阳理工大学课程设计专用纸CmdFirst.Enabled = False” 首记录按钮无效CmdPre.Enabled = False” 前移按钮无效CmdNext.Enabled = True” 后移按钮有效CmdLast.Enabled = True” 末记录按钮有效CmdAdd.Enabled = True” 添加按钮有效CmdDel.Enabled = True” 删除按钮有效CmdOk.Enabl

17、ed = False” 确定按钮无效CmdEsc.Enabled = False” 取消按钮无效Label7.Caption=“ 记 录 ： “&Adodc1.Recordset.AbsolutePosition&“/“& Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdAdd_Click ” 添加按钮的单击大事Adodc1.Recordset.AddNewCmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = True End S

18、ubPrivate Sub CmdOk_Click” 单击确认按钮Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End SubPrivate Sub CmdDel_Click” 单击删除按钮x = MsgBox(“确实要删除当前记录吗？“, vbYesNo + vbQuestion, “确认“) If x = vbYes ThenAdodc1.Recordset.Delete12Adodc1.Recordset.Mo

19、veNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.Refresh End IfEnd SubPrivate Sub CmdEsc_ClickAdodc1.Refresh CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False”取消按钮End SubPrivate Sub CmdFirst_ClickAdodc1.Recordset.MoveFirstCmdFirst

20、.Enabled = False” 记录指针移到首记录显示首记录让首记录按钮无效CmdPre.Enabled = False CmdNext.Enabled = TrueCmdLast.Enabled = True”让前移按钮无效让后移按钮有效让末记录按钮有效”在 Label6 上显示当前记录号/记录总数：Label7.Caption=“ 记 录 ： “&Adodc1.Recordset.AbsolutePosition&“/“& Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdPre_ClickAdodc1.Recordset.MovePr

21、evious”记录指针移到前一条记录CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF Then” 假设记录指针移到首记录之前, Adodc1.Recordset.MoveFirst”则记录指针移到首记录上CmdFirst.Enabled = FalseCmdPre.Enabled = False End IfLabel7.Caption=“ 记 录 ： “&Adodc1.Recordset.AbsolutePosition&“/“&Adodc1.Recordset.RecordCount End SubPri

22、vate Sub CmdNext_Click Adodc1.Recordset.MoveNext ”记录指针移到下一条记录CmdFirst.Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF Then ” 假设记录指针移到了末记录之后Adodc1.Recordset.MoveLast”则记录指针移到末记录上CmdNext.Enabled = FalseCmdLast.Enabled = False End IfLabel7.Caption=“ 记 录 ： “&Adodc1.Recordset.AbsolutePosition&“

23、/“&Adodc1.Recordset.RecordCount End SubPrivate Sub CmdLast_Click Adodc1.Recordset.MoveLast ” 移到末记录CmdFirst.Enabled = TrueCmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = FalseLabel7.Caption=“ 记 录 ： “&Adodc1.Recordset.AbsolutePosition&“/“&Adodc1.Recordset.RecordCount End Sub沈阳理工大学课程设计专

24、用纸Private Sub CmdN_ClickDim n As Integer n = Text7.TextAdodc1.Recordset.Move nLabel7.Caption=“ 记 录 ： “&Adodc1.Recordset.AbsolutePosition&“/“& Adodc1.Recordset.RecordCountEnd Sub3.4 查询页面对数据库里的员工合同签订、续签、终止信息进展查询。页面设计如下：1、员工合同签订信息查询页面：15沈阳理工大学课程设计专用纸2、员工合同签订信息具体设计代码： Private Sub CmdBack_Clickqdxx.Show

25、Unload Me End SubPrivate Sub Form_LoadCombo1.AddItem “职员编号“” 为组合列表框添加各选项Combo1.AddItem “合同名称“Combo1.AddItem “合同编号“Combo1.Text = “职员编号“” 让组合框初始选中“姓名“项Text1.Text = “” 清空文本框End SubPrivate Sub Command1_ClickDim str As Stringstr = “ Select 员工合同签定信息.* From 员工合同签定信息 “str = str & “ Where 员工合同签定信息.“ & Combo1

26、.Text & “ Like ”“ & Text1 & “%” “Adodc1.RecordSource = str Adodc1.RefreshEnd Sub3、员工合同续签信息查询页面：16沈阳理工大学课程设计专用纸4、员工合同续签信息具体设计代码:Private Sub CmdBack_Click xqxx.ShowUnload Me End SubPrivate Sub Form_LoadCombo1.AddItem “职员编号“” 为组合列表框添加各选项Combo1.AddItem “合同编号“Combo1.Text = “职员编号“” 让组合框初始选中“姓名“项Text1.Text

27、 = “” 清空文本框End SubPrivate Sub Command1_ClickDim str As Stringstr = “ Select 员工合同续签信息.* From 员工合同续签信息 “str = str & “ Where 员工合同续签信息.“ & Combo1.Text & “ Like ”“ & Text1 & “%” “Adodc1.RecordSource = str Adodc1.RefreshEnd Sub5、员工合同终止信息查询页面：17沈阳理工大学课程设计专用纸6、员工合同终止信息具体设计代码： Private Sub CmdBack_Clickzzxx.S

28、how Unload MeEnd SubPrivate Sub Form_LoadCombo1.AddItem “职员编号“” 为组合列表框添加各选项Combo1.AddItem “合同编号“Combo1.Text = “职员编号“” 让组合框初始选中“姓名“项Text1.Text = “” 清空文本框End SubPrivate Sub Command1_ClickDim str As Stringstr = “ Select 合同终止信息.* From 合同终止信息 “str = str & “ Where 合同终止信息.“ & Combo1.Text & “ Like ”“ & Text

29、1 & “%” “ Adodc1.RecordSource = strAdodc1.Refresh End Sub3.5 注册用户输入用户名、密码及确认密码，即可注册用户，否则会提示相关的警告信息，按“取消”则退回主窗体界面。1、注册用户页面：18沈阳理工大学课程设计专用纸2、具体设计代码:Private Sub CmdOk_Click Dim SQLStr As StringIf Text1 = “ ThenMsgBox “请输入用户名！“, vbExclamation, “确认用户名“ Text1.SetFocusExit Sub ElseSQLStr = “Select * from 密

30、码表 where 用户名=”“ & Text1 & “”“ Adodc1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox “用户名已存在，请重输入！“, vbExclamation, “检验用户名“ Text1 = “Text1.SetFocus Exit SubEnd If End IfIf Text2 Text3 ThenMsgBox “二次输入的密码不全都，请重输入“, vbExclamation, “检验密码“ Text2 = “: Text3 = “Text2.SetFocus

31、 Exit SubElseIf Text2 = “ ThenMsgBox “密码不能为空！“, vbExclamation, “检验密码“ Text2.SetFocusElseAdodc1.Recordset.AddNew Adodc1.Recordset.Fields(“用户名“) = Trim(Text1) Adodc1.Recordset.Fields(“密码“) = Trim(Text2) Adodc1.Recordset.UpdateMe.HideMsgBox “成功注册用户！“, vbInformation, “添加用户“ End IfEnd SubPrivate Sub CmdC

32、ancle_Click Unload MeEnd Sub194 课设总结在教师同学的帮助下，经过几天的自学实践，我把握了数据库设计的根本思想，同时也学会了对 VB 6.0 的根本应用。经过不断的调试运行，最终完成了本次的课程设计任务。本次完成的合同治理系统根本符合所需的工作要求，但由于时间紧急，加上本人阅历上的缺乏，未能丰富系统的功能，日后期望能够连续努力，做到更好。在本次设计中，我深刻地感觉到自己在设计方面的缺乏，考虑不全面，心思不缜密， 这些都是我需要改进的地方。在此，我要感谢教师和同学们赐予我的帮助和支持，使我能够顺当地完本钱次的设计任务。参考文献1. 王珊.数据库系统简明教程.北京：高等教育出版社，20232. 王珊，冯念真.计算机应用系统的设计与开发.北京：高等教育出版社，19893. 萨师煊，王珊.数据库系统概论.第三版.北京：高等教育出版社，20234. 王珊，陈红.数据库系统教程.北京：清华大学出版社，1998