VB+SQL 销售合同管理系统论文Word下载.docx
《VB+SQL 销售合同管理系统论文Word下载.docx》由会员分享，可在线阅读，更多相关《VB+SQL 销售合同管理系统论文Word下载.docx（35页珍藏版）》请在冰豆网上搜索。
7.２合同成本利润统计月报22
７．３合同成本利润统计年报表，23
8、用户信息管理模块设计24
8．１用户信息编辑窗体24
8．２用户管理窗体25
小结：
27
参考文献：
销售合同管理系统
王小群
（浙江海洋学院石化学院，浙江舟山316004）
[摘要]：
销售合同是企业经营的重要组成部分，它可以体现一个企业的经营情况和效益。
企业销售合同管理系统可以有效地提高企业宏观控制和经营管理的质量，是企业现代化管理的重要组成部分。
后台数据库使用SQLServer，前台开发工具使用VisualBasic。
本系统采用目前比较流行的ADO数据访问技术，并将每个数据库表的字段和操作封装到类中，从而成功地将面向对象的程序设计思想应用到数据库应用程序设计中。
这也是本系统的特色和优势
[关键词]：
销售合同管理系统SQLServer数据库VisualBasic开发语言管理信息系统
一、概述
1．绪论
信息时代到来，电脑信息管理技术越来越受到各企业的高度重视，逐渐成为企业在现代化发展中不可缺少的一部分。
在当今IT技术日新月异，而企业市场化进程加快的时刻，电脑信息管理技术几乎涉及到每一家优秀企业的整个经营活动。
对公司经营、效率甚至策略的变化都有直接而深远的影响。
因此，我们需要一种能对数据进行各种操作的工具——数据库管理系统。
一个公司或者个人都需要经常签订各种大大小小的合同。
随着签订合同数量的增多，合同的管理必然成为一种负担。
在信息化程度越来越高的当今社会，可以使用信息化的手段来管理合同的信息。
合同管理系统可以高效、有序地管理本企业合同。
完善的合同管理是公司是公司健康动作的一个重要标志。
2．VisualBasic开发工具
VisualBasic作为VisualStudio家族中的一员，以其开发速度快、使用简单而被广泛使用。
VisualBasic的主要功能特点：
（1）可视化编程、（２）面向对象的程序设计、（３）结构化程序设计语言、（４）事件驱动编程机制、（５）访问数据库
3．SQLServer2000简介
SQLServer2000以其卓越的性能逐渐成为Windows操作系统平台下进行数据库应用开发中较为理想的选择之一。
SQLServer2000由一系列相互协作的组件构成，能最大程度地满足Web站点和企业数据处理系统存储和分析数据的需要。
SQLServer2000的特性：
（１）Internet集成、（２）可伸缩性、（３）企业级数据库功能、（４）易于安装、部署和使用、（５）数据仓库
二、系统需求分析
销售合同管理系统的用户是企业中负责销售的管理人员，包括产品信息管理、合同费用管理、合同收帐管理、合同信息管理、合同信息统计等主要功能，具体功能如下：
（1）产品信息的添加、修改、删除和查询。
（2）合同费用信息的添加、修改和查询。
（3）合同收帐信息的添加、修改和查询。
（4）合同信息的添加、修改和查询。
（5）合同成本利润统计月报表和合同成本利润统计年报表。
三、系统总体设计
3、简单使用说明
（１）运行系统后，首先会看到登录窗体，对用户的身份进行认证。
如果需要对普通用户进行管理，则使用Admin用户登录；
否则建议使用Users用户登录。
如果还要创建其他用户，可以在用户管理模块中创建和管理其他普通用户。
（2）在本系统中，应该首先增加产品信息，之后才能增加合同信息。
产品信息管理模块可以添加、修改、删除和查看等操作。
（3）添加产品信息后，就可以添加合同信息了。
在合同信息管理模块中可以对合同信息进行添加、修改、更改状态和查看等操作。
（4）在合同费用管理模块中，可以对合同费用信息进行添加、修改和查看等操作。
（5）在合同收帐管理模块中，可以对合同收帐信息进行添加、修改和查询等操作。
（6）在合同统计管理模块中，可以对合同成本利润月报表和年报表等查询。
４、数据表设计
（1）产品表Product,保存产品信息。
（2）同费用表Cost，保存合同费用信息。
（3）合同收帐表Income，保存合同收帐信息。
（4）合同产品表ConProduct，保存合同中包含的产品信息。
（5）合同信息表Contract，保存合同的基本信息。
（6）用户信息表Users，保存系统用户信息UserName（用户名）、UserPwd（密码）。
5、使用到的模块
（1）Const.用来管理本系统中的全局常量。
（2）DbFunc.用来管理本系统中与数据库操作相关的的声明、变量和函数，例如连接数据库、断开与数据库的连接等。
（3）PGeneralFunc.用来管理通用的用户自定义函数。
（4）Variable.用来管理工程中的全局变量，包括全局数组和全局对象。
三、详细设计
1、登录窗体，名称为Frmlogin，布局如下：
（1）变量声明：
PublicPasswordKeyAsString
PublicNameKeyAsString
PublicTry_timesAsInteger
Namekey保存用户名，passwordkey保存密码，try_times记录尝试登录的次数。
（2）Cmd_ok_click过程：
PrivateSubCmd_OK_Click（）
DimjAsSingle'
数据有效性检查
IftxtUser="
"
Then
MsgBox"
请输入用户名"
txtUser.SetFocus
ExitSub
EndIf
IftxtPwd="
请输入密码"
txtPwd.SetFocus
EndIf'
将用户输入赋值到变量中
NameKey=MakeStr（txtUser）
PasswordKey=MakeStr（txtPwd）'
判断用户是否存在
IfMyUser.In_DB（NameKey）=FalseThen
用户名不存在"
Try_times=Try_times+1
IfTry_times>
=3Then
您已经三次尝试进入本系统，均不成功，系统将关闭"
DBapi_Disconnect
End
Else
判断密码是否正确
MyUser.GetInfo（NameKey）
IfMyUser.UserPwd<
>
PasswordKeyThen
密码错误"
EndIf'
登录成功，将当前用户的信息保存在CurUser中
CurUser.GetInfo（MyUser.UserName）'
关闭登录对话框
UnloadMe
EndSub
2、系统主界面。
主窗体是本系统的启动对象，名为FrmMain。
在主窗体中添加如下代码：
Privatesubfrom_load（）
Frmlogin.show`1
End
当主窗体启动时，首先打开“登录”寻话框。
如果不能通过身份验证，则不能进入系统。
mn_exit_click过程：
Privatesubmn_exit_click（）
Dbapi_Disconnect
Endsub
3、产品管理模块设计
3．1产品信息编辑窗体，为Frmproductedit,布局如下：
（1）
Cmd_ok_click事件：
DimTmpIdAsString
IfTrim（txtId）="
请输入产品编号"
IfTrim（txtName）="
请输入产品名称"
TmpId=MakeStr（txtId）'
判断产品编号是否已经存在
IfModify=FalseOrOriId<
Trim（txtId）Then
IfMyPro.In_DB（TmpId）=TrueThen
产品编号“"
+Trim（txtId）+"
”已经存在，请重新输入"
txtId.SetFocus
txtId.SelStart=0
txtId.SelLength=Len（txtId）
WithMyPro
.ProId=TmpId
.ProName=MakeStr（txtName）
.ProMark=MakeStr（txtMark）
.ProStyle=MakeStr（txtStyle）
.ProUnit=MakeStr（txtUnit）
IfModify=FalseThen
.Insert
.Update（OriId）
EndWith
ClickOK=True
程序首先对用户输入的数据进行分析，确保数据的有效性。
然后判断输入的产品编号是否已经存在数据库中，如果已经存在，则不能添加。
在窗体中，使用了ADOData控件和DATAGrid1控件来显示产品信息。
（1）refresh_pro过程的功能是更新ADOData控件的记录源，从而刷新Datagrid1表格中显示的产品数据。
rivateSubRefresh_Pro（）
Adodc1.ConnectionString=conn
Adodc1.RecordSource="
SELECTProIdAs产品编号,ProNameAs产品名称,"
_+"
ProMarkAs产品商标,ProStyleAs产品型号,ProUnitAs计量单位"
FROMProductORDERBYProId"
Adodc1.Refresh
（2）当装入窗体时触发From_load事件：
PrivateSubForm_Load（）
Refresh_Pro
（3）cmd_Add_click过程：
PrivateSubCmd_Add_Click（）
FrmProductEdit.Modify=False
FrmProductEdit.txtId="
FrmProductEdit.txtName="
FrmProductEdit.txtMark="
FrmProductEdit.txtStyle="
FrmProductEdit.txtUnit="
FrmProductEdit.Show1
（4）cmd_modi_click过程：
privateSubCmd_Modi_Click（）
DimTmpProIdAsInteger
IfAdodc1.Recordset.BOF=TrueThen
请选择记录"
'
保存光标位置
p=Adodc1.Recordset.AbsolutePosition
读取当前记录的各列数据
FrmProductEdit.OriId=Trim（Adodc1.Recordset.Fields（0））
FrmProductEdit.txtId=Trim（Adodc1.Recordset.Fields（0））
FrmProductEdit.txtName=Trim（Adodc1.Recordset.Fields
（1））
FrmProductEdit.txtMark=Trim（Adodc1.Recordset.Fields
（2））
FrmProductEdit.txtStyle=Trim（Adodc1.Recordset.Fields（3））
FrmProductEdit.txtUnit=Trim（Adodc1.Recordset.Fields（4））
FrmProductEdit.Modify=True
Refresh_Pro'
恢复光标位置
Adodc1.Recordset.Move0
Adodc1.Recordset.Movep-1
程序将使用ADodc1.recordset.fields（n）从当前记录中获取n+1列数值，并将其赋值到frmproductedit窗体的对就控件中。
（5）Cmd_del_click过程：
PrivateSubCmd_Del_Click（）
DimTmpProIdAsString
TmpProId=Trim（Adodc1.Recordset.Fields（0））'
确认删除
IfMsgBox（"
是否删除当前行?
vbYesNo,"
确认"
）=vbYesThen
CallMyPro.Delete（TmpProId）
Ifp-1>
0Then
4、合同管理模块设计。
合同管理模块是本系统的核心部分。
4．1合同信息编辑窗体，名称为FrmContractEdit，窗体布局如下：
在窗体中使用DTPicker输入日期数据。
（1）refresh_pro过程的作用是显示合同产品信息。
代码如下：
PrivateSubRefresh_Pro（）
SELECTProIdAs产品编号,UnitPriceAs产品单价,QuantityAs产品数量,"
DeliveryDateAs交货日期,MemoAs备注信息"
FROMConProductWHEREContractId='
+Trim（MyContract.ContractId）_+"
'
ORDERBYProId"
（2）Cmd_save_click过程：
PrivateSubCmd_Save_Click（）
请输入合同编号"
IfTrim（txtClient）="
请输入客户单位"
TmpId=MakeStr（txtId）
IfMyContract.In_DB（TmpId）=TrueThen
合同编号“"
WithMyContract
.ContractId=TmpId
.Client=MakeStr（txtClient）'
规范日期格式
.SignDate=Format（DTSignDate.Value,"
yyyy-mm-dd"
）
.EmpName=MakeStr（txtEmpName）
.DeliveryWay=MakeStr（txtDeliveryWay）
.DeliveryDate=Format（DTDeliveryDate.Value,"
.SettleWay=ComboSettle.ListIndex+1
.Validation=Format（DTValidation.Value,"
.Contents=MakeStr（txtContents）
.Additional=MakeStr（txtAdditional）
.Status=1
Modify=True
OriId=.ContractId
合同保存完成"
EndSub Status字段等于1表示合同状态与签定合同。
4．2合同信息管理窗体，名称为FrmContractMan，布局如下：
（1）当单击日历控件时触发MonthView_click事件，代码如下：
PrivateSubMonthView1_Click（）
DimSelDateAsString'
获取选择的日期
SelDate=Format（MonthView1.Value,"
Adodc1.RecordSource="
SELECTContractIdFROMContractWHERESignDate='
_+SelDate+"
DataList1_Click
（2）当窗体启动时触发from_load事件，代码如下：
MonthView1.Value=Now
MonthView1_Click
（3）Datalist1-click过程：
程序将根据选择的合同编号调用Mycontract.getinfo过程，读取合同的基本信息，并显示在右侧的“合同信息”栏处。
PrivateSubDataList1_Click（）
.GetInfo（DataList1.Text）'
签定日期
lblSignDate=.SignDate'
客户单位
lblClient=.Client'
合同状态
SelectCase.Status
Case1
lblStatus="
签定合同"
Case2
实施合同"
Case3
完成合同"
CaseElse
EndSelect
负责人
lblEmpName=.EmpName
结算方式
SelectCase.SettleWay
lblSettleWay="
支票"
现金"
签单"
Case4
汇款"
有效期限
lblLastDay=.Validation
（4）Cmd_status_click过程：
将根据当前合同的状态提示用户更新到一级合同状态，如果当前合同已经是“完成合同”，则不能再改变合同状态。
最后调用Datalist_click过程更新合同状态的显示。
PrivateSubCmd_Status_Click（）
SelectCaseMyContract.Status
是否将合同状态改变为-实施合同？
请确认"
CallMyContract.UpdateStatus（MyContract.ContractId,2）
是否将合同状态改变为-完成合同？
CallMyContract.UpdateStatus（MyContract.ContractId,3）
完成合同将无法改变状态"
无效的合同状态"
4．３合同产品信息编辑窗体，名称为frmConProductEdit，布局如下：
（1）当窗体启动时触发from-_load事件，代码如下：
MyPro.Load_ProI
升级会员 