企业合同管理系统.docx

企业合同管理系统.docx

《企业合同管理系统.docx》由会员分享，可在线阅读，更多相关《企业合同管理系统.docx（23页珍藏版）》请在冰点文库上搜索。

企业合同管理系统

成绩评定表

学生姓名

班级学号

专业

信息与计算科学

课程设计题目

评

语

组长签字：

成绩

日期

2014年12月18日

课程设计任务书

学院

理学院

专业

信息与计算科学

学生姓名

班级学号

课程设计题目

实践教学要求与任务:

工作计划与进度安排:

第15周：

数据库设计，利用SQLServer创建数据库及数据表。

总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。

第16周：

管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。

撰写课程设计报告，验收与答辩。

指导教师：

2014年11月27日

专业负责人：

2014年11月28日

学院教学副院长：

2014年11月28日

摘要

现代化的企业越来越重视科学技术，只有把科学技术应用到企业中才能获取更大的效益。

合同是商品经济的产物，是商品交换的法律表现形式。

现代企业的经济往来，主要是通过合同形式进行的。

所以，合同管理作为现代企业法律顾问制度的重要内容之一，能否实施有效管理把好合同关，是现化企业经营管理成败的一个重要因素。

企业往往会签订一系列的合同，并且会考虑如何去管理合同的进展，合同账款的收取和支付。

完善的合同管理是企业健康运作的一个重要标志。

本课程设计的整个系统从符合操作简便、界面友好、灵活、实用和安全的要求出发，完成合同资料的签定、续签及终止全过程。

经过实际使用证明，本文所设计的系统可以满足合同管理的需要。

全文共分为课程设计的目的和内容、课程设计中所采用的技术、系统总体设计、系统各功能模块的详细设计、课程设计的收获和体会等五部分内容。

本文首先介绍了ADO及数据库等相关技术；然后详细说明了“合同管理系统”的基本功能及实现过程，最后重点介绍了软件的窗体设计与代码实现。

关键字ADO；VB；SQL；合同

1系统功能概述

1.1系统功能

现代化的企业越来越重视科学技术，只有把科学技术应用到企业中才能获取更大的效益。

合同是商品经济的产物，是商品交换的法律表现形式。

现代企业的经济往来，主要是通过合同形式进行的。

所以，合同管理作为现代企业法律顾问制度的重要内容之一，能否实施有效管理把好合同关，是现化企业经营管理成败的一个重要因素。

企业往往会签订一系列的合同，并且会考虑如何去管理合同的进展，合同账款的收取和支付。

完善的合同管理是企业健康运作的一个重要标志。

系统功能包括：

●可浏览所有合同信息，职员信息，部门信息。

●能对所有信息进行录入和编辑

●能对各种信息进行精确查询或模糊查询

2数据库设计

2.1需求分析

本系统是用于查找，录入，编辑和删除药品信息，仓库信息，以及代理商信息。

本系统有两大主要组成部分，一部分为数据库设计部分，另一部分为VB窗体设计部分。

数据库中数据包括四个表，密码表（用户名，密码），药品信息（药品编号、药品名称、规格、入库价格、批发价、零售价，批号、生产厂名），仓库信息（库房编号、库房名称、地址、负责人、电话），代理商信息（库房编号、库房名称、地址、负责人、电话）。

启动封面窗体及登录对话框的设计要求：

图片背景、欢迎类文字、单击“欢迎进入医药销售管理系统”标题的标签，将打开“登录”对话框，用户输入用户名和密码，若正确则打开下面的主窗体；否则提示密码错误，请重新输入。

最多允许输入3次；单击“注册”按钮，进行新用户注册。

主控窗体设计为MDI窗体，含有主菜单：

[浏览]、[查询]、[退出]。

[浏览]菜单包含以下子菜单及其功能：

[药品信息]：

显示药品信息

[仓库信息]：

显示仓库信息

[代理商信息]：

显示代理商信息

[药品信息]包含以下子菜单：

[录入]菜单：

显示录入药品信息窗体

[编辑]菜单：

显示编辑药品信息窗体

[仓库信息]包含以下子菜单：

[录入]菜单：

显示录入仓库信息窗体

[编辑]菜单：

显示编辑仓库信息窗体

[药品信息]包含以下子菜单：

[录入]菜单：

显示录入代理商信息窗体

[编辑]菜单：

显示编辑代理商信息窗体

[查询]包含以下子菜单：

[精确查询]：

显示精确查询窗体

[模糊查询]：

显示模糊查询窗体

注册新用户窗体用于添加新的用户名和密码。

要求：

若新用户名与系统信息表原有用户名相同，则提示“用户名已存在，重新输入”；判断二次输入密码若不一致，则提示用户“输入密码不一致，重新输入密码”；判断若输入密码为空，则提示“密码不能为空”；若输入正确，则将输入的用户名保存到“系统信息”表，并提示“注册用户成功”，关闭本窗体。

2.2E-R模型

2.3关系模型

（1）合同信息（职员编号，合同名称，合同编号，合同期限，合同签定日期，合同终止日期，合同是否终止，备注）

（2）企业信息（部门编号，部门名称）

（3）职员信息（职员编号，职员姓名）

（4）用户信息（用户名，密码）

2.4表结构设计

利用可视化建立一下列表

密码表：

合同信息表：

企业信息表：

职员信息表：

按如下步骤，根据向导配置系统数据源。

开始→设置→控制面板→管理工具→数据源（ODBC）→系统DSN→添加→驱动程序选为SQLServer→成功→给出该数据源的名称、描述、服务器→更改默认数据库为（自己所建的数据库）→测试→成功→确定→确定。

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

3.1欢迎界面

本界面应用VB中的Label

控件输入以下字符，背景设为透明

点击“欢迎进入医药销售管理系统”便可进去本系统。

代码编辑

PrivateSubImage1_Click（）

Form2.Show

EndSub

3.2登录界面

在欢迎界面，点击欢迎进入“欢迎进入医药销售管理系统”，弹出登录窗口，通过输入正确的用户帐号密码进入医药管理系统，如果输入错误超过三次，默认关闭登录窗口。

“用户名”、“密码”均由Label

控件输入，背景设为透明，之后介绍的界面中的字符均由此方法输入，故将不做说明。

给出可以输入字符的空白由TextBox

控件做成，可进行字体大小与颜色的修改。

按钮由CommandButton

设置，通过设置属性可改变按钮的视觉效果，可更改按键上的字符，颜色等。

添加Adodc

（Visible=False），用来与数据库相连。

代码编辑

PrivateSubCommand1_Click（）

StaticmiCountAsInteger

DimsqlstrAsString

sqlstr="select*fromTable_1where用户名='"&Text1&"'and密码='"&Text2&"'"

Adodc1.RecordSource=sqlstr

Adodc1.Refresh

IfAdodc1.Recordset.EOFThen

MsgBox"用户名或密码错误,请重新重新输入",vbExclamation,"警告"

Text1.Text=""

Text2.Text=""

Text1.SetFocus

Else

MDIForm1.Show

'MDIForm1.mDataMng.Enabled=True

UnloadMe

EndIf

miCount=miCount+1

IfmiCount=3ThenUnloadMe

EndSub

PrivateSubCommand2_Click（）

UnloadMe

EndSub

PrivateSubCommand3_Click（）

Form4.Show

EndSub

PrivateSub注册_Click（）

Form4.Show

EndSub

PrivateSubForm_Load（）

EndSub

3.3注册功能

新用户可以在登录窗口点击注册，进入到注册窗口进行注册，然后登录到医药销售管理系统。

代码编辑

PrivateSubCmdOK_Click（）

DimsqlstrAsString

IfText1=""Then

MsgBox"请输入用户名！

",vbExclamation,"确认用户名"

Text1.SetFocus

ExitSub

Else

sqlstr="Select*fromTable_1where用户名='"&Text1&"'"

Adodc1.RecordSource=sqlstr

Adodc1.Refresh

IfAdodc1.Recordset.EOF=FalseThen

MsgBox"用户名已存在，请重新输入！

",vbExclamation,"检验用户名"

Text1=""

Text1.SetFocus

ExitSub

EndIf

EndIf

IfText2<>Text3Then

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

Text2="":

Text3=""

Text2.SetFocus

ExitSub

ElseIfText2=""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,"添加用户"

EndIf

EndSub

PrivateSubCmdCancel_Click（）

UnloadMe

EndSub

PrivateSubForm_Load（）

EndSub

3.4浏览功能

点击浏览，分别对药品信息，代理商信息，仓库信息进行查看，通过对药品信息信息查看，可以查看到药品编号、药品名称、规格、入库价格、批发价、零售价，批号、生产厂名等；通过对代理商信息的查看，可以查看到代理商编号、名称、联系人、地址、电话等；库房信息；通过对仓库信息查询，可以产看到库房编号、库房名称、地址、负责人、电话等。

药品入库应记录时间，数量；药品批发给代理商，应记载时间、数量、价格等。

代码编辑

PrivateSubCommand1_Click（）

EndSub

CmdFirst.Enabled=False

CmdPre.Enabled=False

CmdNext.Enabled=True

CmdLast.Enabled=True

CmdAdd.Enabled=True

CmdDel.Enabled=True

CmdOK1.Enabled=False

CmdEsc.Enabled=False

Label6.Caption="记录：

"&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCount

EndSub

PrivateSubCmdD_Click（）

EndSub

PrivateSubCmdFirst_Click（）

CmdFirst.Enabled=False

CmdPre.Enabled=False

CmdNext.Enabled=True

CmdLast.Enabled=True

CmdAdd.Enabled=True

CmdDel.Enabled=True

CmdOK1.Enabled=False

CmdEsc.Enabled=False

EndSub

PrivateSubCmdPre_Click（）

Adodc1.Recordset.MovePrevious

CmdNext.Enabled=True

CmdLast.Enabled=True

IfAdodc1.Recordset.BOFThen

Adodc1.Recordset.MoveFirst

CmdFirst.Enabled=False

CmdPre.Enabled=False

EndIf

EndSub

PrivateSubCmdNext_Click（）

Adodc1.Recordset.MoveNext

CmdFirst.Enabled=True

CmdPre.Enabled=True

IfAdodc1.Recordset.EOFThen

Adodc1.Recordset.MoveLast

CmdNext.Enabled=False

CmdLast.Enabled=False

EndIf

EndSub

PrivateSubCmdLast_Click（）

Adodc1.Recordset.MoveLast

CmdFirst.Enabled=True

CmdPre.Enabled=True

CmdNext.Enabled=False

CmdLast.Enabled=False

EndSub

PrivateSubCmdAdd_Click（）

Adodc1.Recordset.AddNew

CmdAdd.Enabled=False

CmdDel.Enabled=False

CmdOK1.Enabled=True

CmdEsc.Enabled=True

Text1.Locked=False

Text2.Locked=False

Text3.Locked=False

Text4.Locked=False

Text5.Locked=False

EndSub

PrivateSubCmdOK1_Click（）

Adodc1.Recordset.Update

CmdAdd.Enabled=True

CmdDel.Enabled=True

CmdOK1.Enabled=False

CmdEsc.Enabled=False

EndSub

PrivateSubCmdDel_Click（）

x=MsgBox（"确实要删除当前记录吗？

",vbYesNo+vbQuestion,"确认"）

Ifx=vbYesThen

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.EOFThen

Adodc1.Recordset.MoveLast

EndIf

Else

Adodc1.Refresh

EndIf

EndSub

PrivateSubCmdEsc_Click（）

Adodc1.Refresh

CmdAdd.Enabled=True

CmdDel.Enabled=True

CmdOK1.Enabled=False

CmdEsc.Enabled=False

EndSub

PrivateSubCmd1_Click（）

Frmcaxun.Show

EndSub

代码编辑

PrivateSub

Form_Load（）

PrivateSubCommand1_Click（）

DimstrAsString

str="Select药品信息.*,药品代理商.*From药品代理商InnerJoin药品信息"

str=str&"On药品信息.sname=药品代理商.名称"

str=str&"Where药品信息.sname='"&Text1&"'"

Adodc1.RecordSource=str

Adodc1.Refresh

EndSub

PrivateSubForm_Load（）

EndSub

PrivateSubLabel1_Click（）

EndSub

3.5录入和编辑

在浏览界面，除了可以对所有信息进行查看，还可以对现有的所有信息进行编辑修改，同时也能够录入新的药品信息，代理商信息，仓库信息等等。

代码编辑

PrivateSubCommand1_Click（）

Form5.Adodc1.Recordset.AddNew

Form5.Adodc1.Recordset.Fields（"sno"）=Text1.Text

Form5.Adodc1.Recordset.Fields（"sname"）=Text2.Text

Form5.Adodc1.Recordset.Fields（"sspecifications"）=Text3.Text

Form5.Adodc1.Recordset.Fields（"s入库价格"）=Text4.Text

Form5.Adodc1.Recordset.Fields（"s批发价"）=Text5.Text

Form5.Adodc1.Recordset.Fields（"s零售价"）=Text6.Text

Form5.Adodc1.Recordset.Fields（"s批号"）=Text7.Text

Form5.Adodc1.Recordset.Fields（"s生产厂名"）=Text8.Text

Form5.Adodc1.Recordset.Update

Form5.Adodc1.Refresh

UnloadMe

Form5.Show

EndSub

PrivateSubCommand2_Click（）

UnloadMe

Form5.Show

EndSub

PrivateSubForm_Load（）

EndSub

代码编辑

PrivateSubCommand1_Click（）

Form4.Adodc1.Recordset.AddNew

Form4.Adodc1.Recordset.Fields（"药品编号"）=Text1.Text

Form4.Adodc1.Recordset.Fields（"药品名称"）=Text2.Text

Form4.Adodc1.Recordset.Fields（"规格"）=Text3.Text

Form4.Adodc1.Recordset.Fields（"入库价格"）=Text4.Text

Form4.Adodc1.Recordset.Fields（"批发价"）=Text5.Text

Form4.Adodc1.Recordset.Fields（"零售价"）=Text6.Text

Form4.Adodc1.Recordset.Fields（"批号"）=Text7.Text

Form4.Adodc1.Recordset.Fields（"生产厂名"）=Text8.Text

Form4.Adodc1.Recordset.Update

Form4.Adodc1.Refresh

UnloadMe

Form4.Show

EndSub

PrivateSubCommand2_Click（）

UnloadMe

Form4.Show

EndSub

3.6查找功能

点击查询，能够对药品信息，代理商信息，仓库信息进行精确查询和模糊查询，通过输入药品名进行精确查找，可以查看到各种药品信息，同时也可以输入模糊信息，例如药品名的几个字，可以查找到含有此字的各种药品信息。

代码编辑

PrivateSubCommand1_Click（）

DimstrAsString

str="Select药品信息.*,药品代理商.*From药品代理商InnerJoin药品信息"

str=str&"On药品信息.sname=药品代理商.名称"

str=str&"Where药品信息.sname='"&Text1&"'"

Adodc1.RecordSource=str

Adodc1.Refresh

EndSub

PrivateSubForm_Load（）

EndSub

PrivateSubLabel1_Click（）

EndSub

总结

经过了二个星期的课程设计，我们用vb语言以及数据库做了一个医药销售管理系统，分别实现了医药销售管理系统的添加药品信息、删除药品信息、修改药品信息，以及代理商信息和仓库信息，查询，退出等几大功能。

在这次项目中，我们都很用心去做，但是，在项目中也出现了很多的问题，最大的问题就是对VistaBasic6.0软件的不了解，在实现与数据库的连接时经常会出现各种不同的错误，在实现一些功能时系统常常会报错。

在这二个星期的课程设计中，我们回顾了很多以前的东西，也发现了很多的问题，以前都没遇见过的，收获很大，在对不同的功能代码是不一定可以完整的执行的，不过大概都是一样的，只有一些小的细节。

看着自己做的系统，自己就会又欣慰又难过，欣慰的是自己终于把它做出来了，而且，做的还好，难过的是自己知道还有很多的不足，但是，由于认识的有限，无法去完善，才知道“书到用时方恨少”！

此次医药销售管理系统的设计让我们对数据库的了解更深入，可以把它同实际相结合，同时，又让我们学会了一个新的应用软件。

在整个设计过程中，通过怎样对把各个管理信息连接起来的分析，锻炼了我们对事情的分析能力，通过怎样解决过程中出现的问题，提高了我们查找文献的能力、对网络资源的利用能力和和其他同学的交流沟通能力。

而且，经历这次的课程设计，我们也学会了自学和分工协作。

我们觉得每一次的课程设计，都是让我们对原有的知识从了解表面到深入本质，从个体学习到整体把握的跳跃，对新知识的汲取，更是让我们把课本的知识应用到实际中，让我们了解了我们的学习有什么用，能够解决什么样的问题，增加我们的自信和学习的动力。

总之，通过这次的课程设计，我们收获匪浅。

参考文献

[1]黄明梁旭石兴民.visualbasic课程设计.北京.电子工业出版社.2006年6月

[2]王珊.数据库系统简明教程.北京.高等教育出版社.2010年1月

[3]刘志妩张焕君马秀丽.基于VB和SQL的数据库编程技术.北京.清华大学出版社.2008年4月

..