企业销售合同管理系统.docx

企业销售合同管理系统.docx

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

企业销售合同管理系统

XXXX大学

数据库应用技术课程设计说明书

题目：

企业销售合同管理系统

学院（系）：

专业班级：

学号：

学生姓名：

指导教师：

教师职称：

起止时间：

xxxx大学课程设计（论文）任务书

院（系）：

教研室：

学号

学生姓名

专业班级

设计题目

企业销售合同管理系统

设计技术

参数

1．题目要达到目标：

完成系统登陆、数据插入删除修改统计等基本操作。

2．数据库：

SQLSERVER2000。

3．所使用语言、工具:

VB6.0+SQLSERVER2000+WINDOWSXP。

4．所采用技术、系统结构:

ADO数据库联接技术,系统结构为C/S结构。

设

计

要

求

1．教师布置实习任务和要求时，不得缺席，并做好记录。

2．上机前预先把所有源程序编写好。

3．上机时不得迟到，不得缺席，爱护设备，认真调试程序。

4．仔细查阅相关资料，认真完成思考题。

5．按要求书写设计任务书，并按要求按版打印，不得雷同。

工作量

二周

工

作

计

划

周一听取教师布置设计任务及要求。

周二学生查阅相关资料，进行数据库设计。

周三至周五：

详细设计与界面设计。

周一至周四程序设计与上机，调试源程序。

周五书写课程设计任务书。

参考资料

《数据库应用技术》

《数据库应用技术实验指导书》自编

《数据库应用技术课程设计大纲》自编等

指导教师评语

教师：

学生：

说明：

此表一式四份，学生、指导教师、教研室、系部各一份。

可加附页。

2011年12月31日

第一章概述

在现代企业管理中，销售合同管理处于十分重要地位，已成为与生产进度管理、质量管理、资产管理、其它信息管理等同等重要职能管理，企业生产一切产品交换过程都是通过缔结和履行销售合同方式来进行，销售合同管理好坏直接影响和关系到企业经营活动顺利运行。

企业销售合同确定了产品销售价格、交易日期和质量等项目，规定着合同双方责任权利关系，它贯穿于企业从产品研究、设计到质量检验及交付货品各个阶段，涉及到企业生产各个部门，渗透到企业生产进度、质量管理和成本管理之中，形成一个纵横交错庞大合同信息链。

　　随着经济市场化和全球化，企业所面临环境更加错综复杂，经济交易活动不稳定性随之增大，销售合同管理难度也随着客户增加而加大，由此产生风险也愈来愈多。

目前，部分企业管理者或决策者存在民法典律意识差，不熟悉民法典一般规定，基本上没有把销售合同管理纳入经营管理视野，合同管理制度形同虚设，无机构、无人员、无销售合同台账和档案，一些销售合同资料不全，甚至出现文本原件丢失时现象，各业务部门协调不够，没有对合同履行进行深入监控，往往致使销售合同履行不到位，出了问题不能及时得到解决情况，这样一定会干扰正常企业生产经营活动，给企业决策造成不利影响，导致企业形象和利益受损。

企业销售合同管理采用无制度管理或手工管理方式甚至孤立由某个管理层管理方式，已远远不能满足市场竞争要求。

　　根据企业销售合同管理实际需要，设计一个省时省力地、轻松地管理众多复杂销售合同管理平台，构建出信息高度集成企业销售合同管理信息系统具有十分重要现实意义。

第二章问题定义

企业销售合同管理系统主要任务是实现对企业销售合同过程管理和成本控制。

本课程设计所描述企业销售合同管理系统主要功能包括：

1.产品信息管理功能

产品信息录入：

包括产品编号、产品名称、商标品牌、规格型号、计量单位等信息；主要实现功能：

产品信息修改；产品信息删除；产品信息查询。

2.合同费用管理功能

合同费用录入，包括凭单号、费用类别、合同编号、费用明细、金额、收款人、经办人、发生日期和备注等信息；主要实现功能：

合同费用修改；合同费用查询。

3.合同收账管理功能

合同收账录入，包括发票编号、发票类别、合同编号、金额、日期、经办人、备注等信息；主要实现功能：

合同收账修改；合同收账查询。

4.合同信息管理功能

合同信息录入，包括合同编码、签订日期、客户名称、合同状态等信息；主要实现功能：

合同信息修改；合同信息查询。

5.合同统计管理功能

主要实现功能：

合同成本利润统计月报表合同成本利润统计年报表

6.系统用户管理功能

系统用户信息录入，包括用户名、密码等信息；主要实现功能：

系统用户信息修改；系统用户信息删除；系统用户信息查询

第三章需求分析

一、数据库需求分析

销售合同时企业经营重要组成部分，它可以体现一个企业经营情况和效益。

企业销售合同管理系统可以有效地提高企业宏观控制和经营管理质量，使企业现代化管理重要组成部分。

本课程设计是在企业经营和管理领域中应用非常广泛数据库应用系统之一。

它既可以作为独立系统使用，也可以作为企业综合业务管理系统一个重要组成部分。

本课程设计包括产品管理、合同基本信息管理、合同产品管理、合同费用管理、合同收账管理、合同统计管理等主要功能模块，比较全面地实现了企业销售合同管理系统功能。

本课程设计重点体现了企业经营和管理类系统实现方法。

其中通过合同费用管理和合同收由管理，对企业经营活动进行记录和控制，动态地反映企业经营状况。

合同统计模块则对企业经营状况进行分析，演示了数据库管理系统中统计报表实现。

二、数据库概念结构设计

将需求分析得到用户需求抽象为信息结构即概念模型过程就是概念结构设计，概念数据模型,主要在系统开发数据库设计阶段使用,是按照用户观点来对数据和信息进行建模,利用实体关系图来实现.它描述系统中各个实体以及相关实体之间关系，是系统特性和静态描述.概念结构设计是整个数据库结构设计关键。

我所定义实体是：

产品，合同产品，费用，合同信息。

三、数据库逻辑结构设计：

数据库逻辑结构设计就是把概念结构设计阶段设计好基本E-R图转换为与选用DBMS产品所支持数据模型相符合逻辑结构。

将概念转化为SQLSever2000数据库系统。

产品信息表包含数据项有产品编号，产品名称，产品商标，产品型号，产品单位。

合同费用信息表包含数据项有凭单号，合同编号，费用类别，费用金额，收款人姓名，经办人姓名，发生日期，备注。

合同收账信息表包含数据项有发票编号，合同编号，发票类型，收账金额，经办人姓名，发生日期，备注。

合同产品信息表包含数据项有合同编号，产品编号，产品单价，产品数量，订购单位，交货日期，备注信息。

合同信息表包含数据项有合同编号，客户单位名称，合同签订日期，合同状态，负责人姓名，交货方式，交货日期，结算方式，有效期限，合同内容，附加信息。

四、数据字典（DD）:

产品信息表=产品编号+产品名称+产品商标+产品型号+产品单位

合同费用信息表=凭单号+合同编号+费用类别+费用金额+收款人姓名+经办人姓名+发生日期+备注

合同收账信息表=发票编号+合同编号+发票类型+收账金额+经办人姓名+发生日期+备注

合同产品信息表=合同编号+产品编号+产品单价+产品数量+订购单位+交货日期+备注信息

合同信息表=合同编号+客户单位名称+合同签订日期+合同状态+负责人姓名+交货方式+交货日期+结算方式+有效期限+合同内容+附加信息

五、程序流程图：

图3.1登陆模块数据流图

图3.2产品信息模块流程图

六、功能结构图：

图3.3销售合同管理系统功能模块示意图

第四章数据库设计

一、概念设计：

1.实体与实体之间关系E-R图，如图所示。

图4.1各实体关系总E-R图

2.单个实体E-R图

在开发企业销售合同管理系统时，得先进行E-R图分析。

根据对数据项与数据结构分析以及设计规划得出实体有：

产品实体、合同产品实体、合同费用实体、合同信息实体、合同收账实体。

E-R图，如图所示。

图4.2产品信息实体属性图

图4.3合同费用信息实体属性图

图4.4合同收账信息实体属性图

图4.5合同产品信息实体属性图

图4.6合同信息实体属性图

二、逻辑设计：

1.产品信息表：

产品信息表Product用来保存产品信息，它结构如表4.1所示。

表4.1Produce结构表

编号

字段名称

数据结构

说明

1

Prold

Varchar50

产品编号

2

ProName

Varchar50

产品名称

3

ProMark

Varchar50

产品商标

4

ProStyle

Varchar50

产品型号

5

ProUnit

Varchar50

计量单位

2.合同费用信息表Cost

合同费用信息表Cost用来保存合同费用信息，表Cost结构如图4.2所示。

表4.2Cost结构表

编号

字段名称

数据结构

说明

1

Costld

Varchar50

凭单号

2

Contractld

Varchar50

合同编号

3

CostType

Varchar20

费用类别（采购成本、服务费、其他）

4

Ddtail

Varchar50

当费用类别选择“其他”时，使用Detail字段来描述。

可以是火车票、飞机票、出租车费、住宿费、差旅费等，也可以手动录入

5

Amount

Decimal15,2

费用金额

6

Receiver

Varchar30

收款人姓名

7

Cashier

Varchar30

经办人姓名

8

CostDate

Varchar10

发生日期

9

Memo

Varchar200

备注

3.合同收账信息表Income

合同收账信息表Income用来保存合同收账信息。

表Income结构如图4.3所示。

表4.3Income结构表

编号

字段名称

数据结构

说明

1

Receiptld

Varchar50

发票编号

2

Contractld

Varchar50

合同编号

3

ReceiptType

Varchar20

发票类型（增值税、服务费）

4

Amount

Decimal15,2

收账金额

5

Cashier

Varchar30

经办人姓名

6

IncomeDate

Varchar10

发生日期

7

Memo

Varchar200

备注

4.合同产品信息表ConProduct

合同产品信息表ConProduct用来保存销售合同中涉及产品信息。

结构如表4.4所示。

表4.4ConProduct结构表

编号

字段名称

数据结构

说明

1

Contractld

Varchar50

合同编号

2

prold

Varchar50

产品编号

3

UnitPrice

Decimal15,2

产品单价

4

Quantity

Int

产品数量

5

OrderOrg

Varchar100

订购单位

6

DeliveryDate

Varchar10

交货日期

7

Memo

Varchar200

备注信息

5.合同信息表Conteact

合同信息表Conteact用来保存销售合同基本信息。

结构如表4.5所示。

表4.5Conteact结构表

编号

字段名称

数据结构

说明

1

Contractld

Varchar50

合同编号

2

Client

Varchar100

客户单位名称

3

SignDate

Varchar10

合同签订日期

4

Status

TinyInt

合同状态（1-签订合同，2-实施合同，3-完成合同）

5

EmpName

Varchar50

负责人姓名

6

DeliveryWay

Varchar50

交货方式

7

DeliveryDate

Varchar10

交货日期

8

SettleWay

TinyInt

结算方式（1-支票，2-现金，3-签单，4-汇款）

9

LadtDay

Varchar10

有效期限

10

Contents

Varchar500

合同内容

11

Additional

Varchar500

附加信息

三、物理设计

1.创建索引

1）为Produce表创建一个以Prold为索引关键字惟一聚簇索引。

2）为Cost表创建一个以Costld为索引关键字惟一聚簇索引。

3）为Income表创建一个以Receiptld为索引关键字惟一聚簇索引。

4）为ConProduct表创建一个以Contractld为索引关键字惟一聚簇索引。

5）为Conteact表创建一个以Contractld为索引关键字惟一聚簇索引。

2.物理位置

学生信息管理系统数据库数据文件安排如下：

数据文件储存位置：

e:

\office\MSSQL\data\ContractSys_Data.MDF，将数据文件初始大小设为20MB，文件增长方式设为自动增长，文件增长增量设为5MB,文件增长上限设为500MB。

事务日志存储位置：

e:

\office\MSSQL\data\ContractSys_Log.LDF，将日志文件初始大小设为20MB，文件增长量设为1MB，文件增长限制设为100MB。

MicrosoftSQLServer2000提供了多种API,它使得其他应用程序访问数据库资源，这些API被称为数据库访问API.数据库访问API允许应用程序执行一段T-SQL语句来访问一个关系数据库数据。

这些API有：

ADO,OLE,DB,ODBC,嵌入式SQL和DB-Libray等。

本程序主要运用ADO数据访问接口，此接口使得程序设计者只要简单创建几个对象便可以连接数据来源，获取所需数据和进行数据访问后保存操作。

ADO对象模型定义了一个可编程分层对象集合，主要由三个成员：

Connection对象，Command对象和Recordest对象以及其它集合对象。

ADO提供以执行以下操作方式：

（1）接到数据源。

（2）指定访问数据远命令，同时可带变量参数或优化执行。

（3）执行命令，例如一个SELECT脚本。

（4）如果这个命令使数据按表中行形式返回，则将这些行存储在易于检查，操作或更改缓存中。

（5）适当情况下，可以把缓存更改内容写回数据库中，更新数据源。

（6）提供常规方法检测错误，设计ADOError对象。

第五章界面设计

1.登陆模块设计

用户要使用本系统，首先要通过系统身份认证，也就是登陆。

登陆过程需要完成一下任务：

（1）根据用户名和密码来判断是否可能进入系统；

（2）根据用户类型决定用户拥有权限。

登陆模块如图5.1所示：

图5.1登陆模块图

登陆后首页如图5.2所示：

图5.2企业销售合同管理首页图

2.合同管理模块设计

合同管理模块是本系统核心部分，可以实现一下功能：

（1）创建合同；

（2）修改合同；

（3）改变合同状态；

（4）查看合同内容。

合同管理模块如图5.3所示：

图5.3合同管理模块图

3.合同收账管理模块设计

合同收账管理模块可以实现一下功能：

（1）添加合同收账信息；

（2）修改合同收账信息；

（3）查看合同收账信息。

合同收账管理模块如图5.4所示：

图5.4合同收账管理模块图

第六章代码与注释

一、登录代码

PrivateSubCmd_OK_Click（）

DimjAsSingle

'数据有效性检查

IftxtUser=""Then

MsgBox"请输入用户名"

txtUser.SetFocus

ExitSub

EndIf

IftxtPwd=""Then

MsgBox"请输入密码"

txtPwd.SetFocus

ExitSub

EndIf

NameKey=MakeStr（txtUser）

PasswordKey=MakeStr（txtPwd）

'判断用户是否存在

IfMyUser.In_DB（NameKey）=FalseThen

MsgBox"用户名不存在"

Try_times=Try_times+1

IfTry_times>=3Then

MsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"

DBapi_Disconnect

End

Else

ExitSub

EndIf

EndIf

'判断密码是否正确

IfMyUser.GetPwd（NameKey）<>PasswordKeyThen

MsgBox"密码错误"

Try_times=Try_times+1

IfTry_times>=3Then

MsgBox"您已经三次尝试进入本系统，均不成功，系统将关闭"

DBapi_Disconnect

End

Else

ExitSub

EndIf

EndIf

CurUser.UserName=MyUser.UserName

'关闭自己

UnloadMe

EndSub

二、主界面代码

PrivateSubCmd_Save_Click（）

DimTmpIdAsString

IfTrim（txtId）=""Then

MsgBox"请输入合同编号"

ExitSub

EndIf

IfTrim（txtClient）=""Then

MsgBox"请输入客户单位"

ExitSub

EndIf

IfComboSignDate.Text=""Then

MsgBox"请输入签约日期"

ExitSub

EndIf

TmpId=MakeStr（txtId）

'判断产品编号是否已经存在

IfModify=FalseOrOriId<>Trim（txtId）Then

IfMyContract.In_DB（TmpId）=TrueThen

MsgBox"合同编号“"+Trim（txtId）+"”已经存在，请重新输入"

txtId.SetFocus

txtId.SelStart=0

txtId.SelLength=Len（txtId）

ExitSub

EndIf

EndIf

WithMyContract

.ContractId=TmpId

.Client=MakeStr（txtClient）

'规范日期格式

.SignDate=Format（ComboSignDate.Text,"yyyy-mm-dd"）

.EmpName=MakeStr（txtEmpName）

.DeliveryWay=MakeStr（txtDeliveryWay）

.DeliveryDate=Format（ComboDeliveryDate.Text,"yyyy-mm-dd"）

.SettleWay=ComboSettle.ListIndex+1

.LastDay=Format（ComboLastDay.Text,"yyyy-mm-dd"）

.Contents=MakeStr（txtContents）

.Additional=MakeStr（txtAdditional）

IfModify=FalseThen

.Status=1

.Insert

Modify=True

OriId=.ContractId

Else

.Update（OriId）

EndIf

EndWith

MsgBox"合同保存完成"

EndSub

PrivateSubComboDeliveryDate_GotFocus（）

'将焦点设置为下一个控件，否则将反复执行此过程

txtDeliveryWay.SetFocus

'如果ComboDeliveryDate中包含日期，则将它赋值到FrmDateSel中

IfComboDeliveryDate.Text<>""Then

FrmDateSel.OriDate=ComboDeliveryDate.Text

EndIf

'设置FrmDateSel窗体位置

FrmDateSel.Left=Me.Left+ComboDeliveryDate.Left+350

FrmDateSel.Top=Me.Top+ComboDeliveryDate.Top+ComboDeliveryDate.Height+450

FrmDateSel.Show1

'将选择日期显示到ComboDeliveryDate控件中

ComboDeliveryDate.Text=FrmDateSel.OriDate

EndSub

PrivateSubComboLastDay_GotFocus（）

'将焦点设置为下一个控件，否则将反复执行此过程

ComboSettle.SetFocus

'如果ComboLastDay中包含日期，则将它赋值到FrmDateSel中

IfComboLastDay.Text<>""Then

FrmDateSel.OriDate=ComboLastDay.Text

EndIf

'设置FrmDateSel窗体位置

FrmDateSel.Left=Me.Left+ComboLastDay.Left+350-FrmDateSel.Width

FrmDateSel.Top=Me.Top+ComboLastDay.Top+ComboLastDay.Height+450

FrmDateSel.Show1

'将选择日期显示到ComboLastDay控件中

ComboLastDay.Text=FrmDateSel.OriDate

EndSub

PrivateSubComboSignDate_GotFocus（）

'将焦点设置为下一个控件，否则将反复执行此过程

ComboSettle.SetFocus

'如果ComboSignDate中包含日期，则将它赋值到FrmDateSel中

IfComboSignDate.Text<>""Then

FrmDateSel.OriDate=ComboSignDate.Text

EndIf

'设置FrmDateSel窗体位置

FrmDateSel.Left=Me.Left+ComboSignDate.Left+350

FrmDateSel.Top=Me.Top+ComboSignDate.Top+ComboSignDate.Height+450

FrmDateSel.Show1

'将选择日期显示到ComboSignDate控件中

ComboSignDate.Text=FrmDateSel.OriDate

EndSub

三、合同收账管理模块代码

PrivateSubCmd_OK_Click（）

DimTmpIdAs