企业合同管理系统.doc

成 绩 评 定 表学生姓名班级学号专 业信息与计算科学课程设计题目评语组长签字：成绩日期 2014 年12月18日课程设计任务书学 院理学院专 业信息与计算科学学生姓名班级学号课程设计题目实践教学要求与任务:工作计划与进度安排:第15周：数据库设计，利用SQL Server创建数据库及数据表。 总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。第16周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。撰写课程设计报告，验收与答辩。指导教师： 2014年 11月27日专业负责人：2014年11月28日学院教学副院长：2014 年11月28日摘 要现代化的企业越来越重视科学技术，只有把科学技术应用到企业中才能获取更大的效益。合同是商品经济的产物，是商品交换的法律表现形式。现代企业的经济往来，主要是通过合同形式进行的。所以，合同管理作为现代企业法律顾问制度的重要内容之一，能否实施有效管理把好合同关，是现化企业经营管理成败的一个重要因素。 企业往往会签订一系列的合同，并且会考虑如何去管理合同的进展，合同账款的收取和支付。完善的合同管理是企业健康运作的一个重要标志。 本课程设计的整个系统从符合操作简便、界面友好、灵活、实用和安全的要求出发，完成合同资料的签定、续签及终止全过程。经过实际使用证明，本文所设计的系统可以满足合同管理的需要。全文共分为课程设计的目的和内容、课程设计中所采用的技术、系统总体设计、系统各功能模块的详细设计、课程设计的收获和体会等五部分内容。本文首先介绍了 ADO 及数据库等相关技术；然后详细说明了“合同管理系统”的基本功能及实现过程，最后重点介绍了软件的窗体设计与代码实现。 关键字ADO；VB；SQL；合同目 录1 系统功能概述11.1系统功能11.2系统机构总图12 数据库设计22.1 需求分析22.2 E-R模型32.3 关系模型42.4 表结构设计43 系统各功能模块的详细设计53.1 欢迎界面53.2 登录界面63.3 注册功能73.4 浏览功能93.5 录入和编辑133.6 查找功能15总 结16参考文献171 系统功能概述1.1系统功能现代化的企业越来越重视科学技术，只有把科学技术应用到企业中才能获取更大的效益。合同是商品经济的产物，是商品交换的法律表现形式。现代企业的经济往来，主要是通过合同形式进行的。所以，合同管理作为现代企业法律顾问制度的重要内容之一，能否实施有效管理把好合同关，是现化企业经营管理成败的一个重要因素。企业往往会签订一系列的合同，并且会考虑如何去管理合同的进展，合同账款的收取和支付。完善的合同管理是企业健康运作的一个重要标志。系统功能包括：l 可浏览所有合同信息，职员信息，部门信息。l 能对所有信息进行录入和编辑l 能对各种信息进行精确查询或模糊查询2 数据库设计2.1 需求分析本系统是用于查找，录入，编辑和删除药品信息，仓库信息，以及代理商信息。本系统有两大主要组成部分，一部分为数据库设计部分，另一部分为VB窗体设计部分。数据库中数据包括四个表，密码表（用户名，密码），药品信息（药品编号、药品名称、规格、入库价格、批发价、零售价，批号、生产厂名），仓库信息（库房编号、库房名称、地址、负责人、电话），代理商信息（库房编号、库房名称、地址、负责人、电话）。启动封面窗体及登录对话框的设计要求：图片背景、欢迎类文字、单击“欢迎进入医药销售管理系统”标题的标签，将打开“登录”对话框，用户输入用户名和密码，若正确则打开下面的主窗体；否则提示密码错误，请重新输入。最多允许输入3次；单击“注册”按钮，进行新用户注册。主控窗体设计为MDI窗体，含有主菜单：浏览、查询、退出。浏览菜单包含以下子菜单及其功能： 药品信息：显示药品信息 仓库信息：显示仓库信息代理商信息：显示代理商信息药品信息包含以下子菜单：录入菜单：显示录入药品信息窗体编辑菜单：显示编辑药品信息窗体仓库信息包含以下子菜单：录入菜单：显示录入仓库信息窗体编辑菜单：显示编辑仓库信息窗体药品信息包含以下子菜单：录入菜单：显示录入代理商信息窗体编辑菜单：显示编辑代理商信息窗体查询包含以下子菜单： 精确查询：显示精确查询窗体模糊查询：显示模糊查询窗体注册新用户窗体用于添加新的用户名和密码。要求：若新用户名与系统信息表原有用户名相同，则提示“用户名已存在，重新输入”；判断二次输入密码若不一致，则提示用户“输入密码不一致，重新输入密码”；判断若输入密码为空，则提示“密码不能为空”；若输入正确，则将输入的用户名保存到“系统信息”表，并提示“注册用户成功”，关闭本窗体。2.2 E-R模型2.3 关系模型（1）合同信息（职员编号，合同名称，合同编号，合同期限，合同签定日期，合同终止日期，合同是否终止，备注） （2）企业信息（部门编号，部门名称） （3）职员信息（职员编号，职员姓名） （4）用户信息（用户名，密码）2.4 表结构设计利用可视化建立一下列表密码表：合同信息表：企业信息表：职员信息表：按如下步骤，根据向导配置系统数据源。开始设置 控制面板 管理工具 数据源（ODBC） 系统DSN添加驱动程序选为SQL Server成功 给出该数据源的名称、描述、服务器 更改默认数据库为（自己所建的数据库） 测试 成功 确定 确定。3 系统各功能模块的详细设计3.1 欢迎界面 本界面应用VB中的Label控件输入以下字符，背景设为透明点击“欢迎进入医药销售管理系统”便可进去本系统。代码编辑Private Sub Image1_Click()Form2.ShowEnd Sub3.2 登录界面在欢迎界面，点击欢迎进入“欢迎进入医药销售管理系统”，弹出登录窗口，通过输入正确的用户帐号密码进入医药管理系统，如果输入错误超过三次，默认关闭登录窗口。“用户名”、“密码”均由Label控件输入，背景设为透明，之后介绍的界面中的字符均由此方法输入，故将不做说明。给出可以输入字符的空白由TextBox控件做成，可进行字体大小与颜色的修改。按钮由CommandButton设置，通过设置属性可改变按钮的视觉效果，可更改按键上的字符，颜色等。添加Adodc（Visible=False），用来与数据库相连。代码编辑Private Sub Command1_Click()Static miCount As IntegerDim sqlstr As Stringsqlstr = select * from Table_1 where 用户名 = & Text1 & and 密码 = & Text2 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox 用户名或密码错误,请重新重新输入, vbExclamation, 警告Text1.Text = Text2.Text = Text1.SetFocusElseMDIForm1.ShowMDIForm1.mDataMng.Enabled = TrueUnload MeEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Form4.ShowEnd SubPrivate Sub 注册_Click()Form4.ShowEnd SubPrivate Sub Form_Load()End Sub3.3 注册功能新用户可以在登录窗口点击注册，进入到注册窗口进行注册，然后登录到医药销售管理系统。 代码编辑Private Sub CmdOK_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 请输入用户名！, vbExclamation, 确认用户名 Text1.SetFocus Exit SubElse sqlstr = Select * from Table_1 where 用户名= & Text1 & Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox 用户名已存在，请重新输入！, vbExclamation, 检验用户名 Text1 = Text1.SetFocus Exit Sub End IfEnd IfIf Text2 Text3 Then MsgBox 二次输入的密码不一致，请重新输入, vbExclamation, 检验密码 Text2 = : Text3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密码不能为空！, vbExclamation, 检验密码 Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Trim(Text1) Adodc1.Recordset.Fields(密码) = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox 成功注册新用户！, vbInformation, 添加用户End IfEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd SubPrivate Sub Form_Load()End Sub3.4 浏览功能点击浏览，分别对药品信息，代理商信息，仓库信息进行查看，通过对药品信息信息查看，可以查看到药品编号、药品名称、规格、入库价格、批发价、零售价，批号、生产厂名等；通过对代理商信息的查看，可以查看到代理商编号、名称、联系人、地址、电话等；库房信息；通过对仓库信息查询，可以产看到库房编号、库房名称、地址、负责人、电话等。药品入库应记录时间，数量；药品批发给代理商，应记载时间、数量、价格等。代码编辑Private Sub Command1_Click()End SubCmdFirst.Enabled = FalseCmdPre.Enabled = FalseCmdNext.Enabled = TrueCmdLast.Enabled = TrueCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOK1.Enabled = FalseCmdEsc.Enabled = FalseLabel6.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdD_Click()End SubPrivate Sub CmdFirst_Click()CmdFirst.Enabled = FalseCmdPre.Enabled = FalseCmdNext.Enabled = TrueCmdLast.Enabled = TrueCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOK1.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdPre_Click()Adodc1.Recordset.MovePreviousCmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst CmdFirst.Enabled = False CmdPre.Enabled = FalseEnd IfEnd SubPrivate Sub CmdNext_Click()Adodc1.Recordset.MoveNextCmdFirst.Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfEnd SubPrivate Sub CmdLast_Click() Adodc1.Recordset.MoveLast CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = FalseEnd SubPrivate Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOK1.Enabled = TrueCmdEsc.Enabled = TrueText1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseEnd SubPrivate Sub CmdOK1_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOK1.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate 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 IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOK1.Enabled = FalseCmdEsc.Enabled = FalseEnd Sub Private Sub Cmd1_Click() Frmcaxun.Show End Sub代码编辑Private Sub Form_Load()Private Sub Command1_Click()Dim str As Stringstr = Select 药品信息.*, 药品代理商.* From 药品代理商 Inner Join 药品信息 str = str & On 药品信息.sname = 药品代理商.名称 str = str & Where 药品信息.sname = & Text1 & Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Click()End Sub3.5 录入和编辑在浏览界面，除了可以对所有信息进行查看，还可以对现有的所有信息进行编辑修改，同时也能够录入新的药品信息，代理商信息，仓库信息等等。代码编辑Private Sub Command1_Click()Form5.Adodc1.Recordset.AddNewForm5.Adodc1.Recordset.Fields(sno) = Text1.TextForm5.Adodc1.Recordset.Fields(sname) = Text2.TextForm5.Adodc1.Recordset.Fields(sspecifications) = Text3.TextForm5.Adodc1.Recordset.Fields(s入库价格) = Text4.TextForm5.Adodc1.Recordset.Fields(s批发价) = Text5.TextForm5.Adodc1.Recordset.Fields(s零售价) = Text6.TextForm5.Adodc1.Recordset.Fields(s批号) = Text7.TextForm5.Adodc1.Recordset.Fields(s生产厂名) = Text8.TextForm5.Adodc1.Recordset.UpdateForm5.Adodc1.RefreshUnload MeForm5.ShowEnd SubPrivate Sub Command2_Click()Unload MeForm5.ShowEnd SubPrivate Sub Form_Load()End Sub代码编辑Private Sub Command1_Click()Form4.Adodc1.Recordset.AddNewForm4.Adodc1.Recordset.Fields(药品编号) = Text1.TextForm4.Adodc1.Recordset.Fields(药品名称) = Text2.TextForm4.Adodc1.Recordset.Fields(规格) = Text3.TextForm4.Adodc1.Recordset.Fields(入库价格) = Text4.TextForm4.Adodc1.Recordset.Fields(批发价) = Text5.TextForm4.Adodc1.Recordset.Fields(零售价) = Text6.TextForm4.Adodc1.Recordset.Fields(批号) = Text7.TextForm4.Adodc1.Recordset.Fields(生产厂名) = Text8.TextForm4.Adodc1.Recordset.UpdateForm4.Adodc1.RefreshUnload MeForm4.ShowEnd SubPrivate Sub Command2_Click()Unload MeForm4.ShowEnd Sub3.6 查找功能点击查询，能够对药品信息，代理商信息，仓库信息进行精确查询和模糊查询，通过输入药品名进行精确查找，可以查看到各种药品信息，同时也可以输入模糊信息，例如药品名的几个字，可以查找到含有此字的各种药品信息。代码编辑Private Sub Command1_Click()Dim str As Stringstr = Select 药品信息.*, 药品代理商.* From 药品代理商 Inner Join 药品信息 str = str & On 药品信息.sname = 药品代理商.名称 str = str & Where 药品信息.sname = & Text1 & Adodc1.RecordSource = strAdodc1.RefreshEnd SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Click()End Sub总 结经过了二个星期的课程设计，我们用vb语言以及数据库做了一个医药销售管理系统，分别实现了医药销售管理系统的添加药品信息、删除药品信息、修改药品信息，以及代理商信息和仓库信息，查询，退出等几大功能。在这次项目中，我们都很用心去做，但是，在项目中也出现了很多的问题，最大的问题就是对Vista Basic 6.0软件的不了解，在实现与数据库的连接时经常会出现各种不同的错误，在实现一些功能时系统常常会报错。在这二个星期的课程设计中，我们回顾了很多以前的东西，也发现了很多的问题，以前都没遇见过的，收获很大，在对不同的功能代码是不一定可以完整的执行的，不过大概都是一样的，只有一些小的细节。看着自己做的系统，自己就会又欣慰又难过，欣慰的是自己终于把它做出来了，而且，做的还好，难过的是自己知道还有很多的不足，但是，由于认识的有限，无法去完善，才知道“书到用时方恨少”！ 此次医药销售管理系统的设计让我们对数据库的了解更深入，可以把它同实际相结合，同时，又让我们学会了一个新的应用软件。 在整个设计过程中，通过怎样对把各个管理信息连接起来的分析，锻炼了我们对事情的分析能力，通过怎样解决过程中出现的问题，提高了我们查找文献的能力、对网络资源的利用能力和和其他同学的交流沟通能力。而且，经历这次的课程设计，我们也学会了自学和分工协作。我们觉得每一次的课程设计，都是让我们对原有的知识从了解表面到深入本质，从个体学习到整体把握的跳跃，对新知识的汲取，更是让我们把课本的知识应用到实际中，让我们了解了我们的学习有什么用，能够解决什么样的问题，增加我们的自信和学习的动力。总之，通过这次的课程设计，我们收获匪浅。参考文献1 黄明 梁旭 石兴民 . visual basic 课程设计 . 北京 . 电子工业出版社. 2006年6月2 王珊 . 数据库系统简明教程 . 北京 . 高等教育出版社 . 2010年1月3 刘志妩 张焕君 马秀丽 .基于VB和SQL的数据库编程技术 .北京 .清华大学出版社 .2008年4月