企业合同管理系统.docx
- 文档编号:24424338
- 上传时间:2023-05-27
- 格式:DOCX
- 页数:23
- 大小:432.67KB
企业合同管理系统.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月
..
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 企业 合同 管理 系统