数据库系统原理课程设计报告Word格式文档下载.doc

数据库系统原理课程设计报告Word格式文档下载.doc

《数据库系统原理课程设计报告Word格式文档下载.doc》由会员分享，可在线阅读，更多相关《数据库系统原理课程设计报告Word格式文档下载.doc（20页珍藏版）》请在冰点文库上搜索。

2.２处理要求 4

2.3安全性与完整性要求 5

第三章 概念设计 5

3.1整体E-R图 5

3.2用户E-R图 6

3.3客户E-R图 6

3.4员工E-R图 6

3.5稿件E-R图 7

3.6单据E-R图 7

第四章 逻辑结构设计 7

4.1用户关系表 7

4.2客户关系表 7

4.3稿件关系表 8

4.4员工关系表 8

4.5单据关系表 9

第五章 主要模块设计与代码 9

5.1登录模块设计 9

5.2主界面模块设计 10

5.3信息修改模块设计 12

5.4业务信息模块设计 14

5.5综合查询模块设计 18

5.6连接数据库模块设计 19

第六章 总结 19

第七章 参考文献 20

第一章概述

§

1.1项目背景

该公司经营平面设计业务。

业务员负责联系业务，并将客户的设计要求进行登记，然后交由设计人员设计。

设计完成后由专人负责送货并收款。

客户每次的设计要求可能多个不同规格的稿件，这次要求的所有稿件构成一份单据，称为为“预订单”。

设计人员从预订单中选取其中的一个进行设计，正在设计中的预订单称为“在建单”，已经完成设计的在建单称为“送货单”，已经送货的送货单称为“历史单”。

设计人员一旦开始设计某一预订单，就必须负责完成预订单、在建单、送货单三个流程。

业务员的月薪按照每月联系的业务提成3%；

、设计员的月薪按照每月完成的设计单提成3%；

送货人的月薪按照每月送货的业务提成1%。

1.2编写目的

从案例来讲，随着公司业务的增多，需要一个完善的业务系统来管理，在此平台上公司能更好的运作；

从个人来讲，为了更好地了解数据库，同时提高自己的动手能力。

1.3软件定义

用VB和SQL共同构建适合公司日常业务操作的应用程序。

1.4开发环境

普通PC机一台，安装MicrosoftVisualBasic/MicrosoftSQLsever。

第二章需求分析

2.1信息要求

用户基本信息：

用户姓名、用户密码、权限。

客户基本信息：

客户名称、联系人、联系人电话、传真、邮箱、公司地址。

稿件基本信息：

稿件名称、长度宽度、规格、色数、输出机型、P数。

员工基本信息：

编号、员工名、性别、职位、月薪、出生日期、入职日期、联系电话、联系地址。

单据基本信息：

单号、性质、客户名称、营业员、设计者、送货人、创建及送货日期。

（单据性质包括预订单、在建单、送货单、历史单）

2.2处理要求

系统的功能模块大体可以设计成如图1-1所示。

登陆界面

主界面

员工信息管理界面

业务信息查询管理界面

客户信息管理界面

信息修改管理界面

综合信息查询界面

预订单

在建单

送货单

历史单

所有单

单据信息修改

稿件信息修改

图1-1系统功能模块图

从登录用户上看，登录用户需要使用该系统对全体用户的资料进行维护和管理，可以进入各个界面查看和修改，以便对各个员工的工作进行监督和干涉。

2.3安全性与完整性要求

系统数据完整性与安全性要求如下：

从用户基本信息上看，系统要求必须有用户姓名、用户权限、密码等。

密码或用户名字错误无法登陆。

从稿件基本信息上看，系统要求每张稿件必须有稿件名称、长度宽度、规格、色数、机型等。

允许登陆用户修改信息。

从客户基本信息上看，系统要求每位客户都必须有客户名称、联系人、联系电话、公司地址等。

从单据基本信息上看，系统要求单据必须必须有单号、性质、客户名称、营业员、设计者、送货人、创建及送货日期。

第三章概念设计

3.1整体E-R图

根据上面的定义可以得到以下整体的E-R图：

图1-2整体E-Ｒ图

预定单

稿件

客户

用户

预定

设计

送货

存档

3.2用户E-R图

根据系统对用户完整性约束等条件定义用户的E-R图如下：

用户姓名

用户密码

权限

图1-3用户E-Ｒ图

3.3客户E-R图

根据系统对客户完整性约束等条件定义客户的E-R图如下：

图1-4客户E-Ｒ图

客户名称

联系人

联系人电话

传真

邮箱

公司地址

3.4员工E-R图

根据系统对客户完整性约束等条件定义员工的E-R图如下：

图1-5员工E-Ｒ图

员工

编号

员工名

职位

出生日期

入职日期

联系电话

联系地址

月薪

性别

3.5稿件E-R图

根据系统对稿件完整性约束等条件定义稿件的E-R图如下：

稿件名称

长度宽度

规格

色数

P数

输出机型

图1-6稿件E-Ｒ图

3.6单据E-R图

根据系统对单据完整性约束等条件定义单据的E-R图如下：

图1-7单据E-Ｒ图

单号

营业员

设计者

送货人人人者

性质

创建日期

送货日期

单据

第四章逻辑结构设计

4.1用户关系表

根据用户的E-R图得到如下关系表：

表1-1用户表

4.2客户关系表

根据客户的E-R图得到如下关系表：

表1-2客户表

4.3稿件关系表

根据稿件的E-R图得到如下关系表：

表1-3稿件表

4.4员工关系表

根据员工的E-R图得到如下关系表：

表1-4员工表

4.5单据关系表

根据单据的E-R图得到如下关系表：

表1-5单据表

第五章主要模块设计与代码

5.1登录模块设计

主要代码如下：

PrivateSubCommand1_Click（）

DimstrSQLAsString

UserName=CStr（Trim（TxtUserName.Text））

PassWord=CStr（Trim（TxtPassWord.Text））

IfUserName<

>

EmptyAndPassWord<

EmptyThen

strSQL="

select*from用户信息where用户名='

"

&

UserName&

'

and密码='

PassWord&

IfRsLoginCheck.State=adStateClosedThen

RsLoginCheck.OpenstrSQL,DBCON,adOpenKeyset,adLockPessimistic,adCmdText

EndIf

IfRsLoginCheck.EOF=FalseThen

Group=RsLoginCheck.Fields

（1）.Value

Group1=RsLoginCheck.Fields（3）.Value

Group5=RsLoginCheck.Fields（0）.Value

RsLoginCheck.Close

UnloadMe

主界面.Show

ElseIfCounts<

2Then

MsgBox"

用户名域密码错误"

vbExclamation+vbOKOnly,"

登录失败"

Counts=Counts+1

Else

密码错误不得超过三次，否则视您为非法用户！

vbCritical,"

警告"

End

Else

MsgBox"

用户名密码不能为空"

EndIf

EndSub

PrivateSubCommand2_Click（）

End

5.2主界面模块设计

PrivateSubexitos_Click（）

End

PrivateSubImage1_Click（）

员工信息.Show

Unload业务信息

Unload客户信息

Unload单据信息

Unload综合信息查询

PrivateSubImage2_Click（）

客户信息.Show

Unload员工信息

PrivateSubImage3_Click（）

业务信息.Show

PrivateSubImage4_Click（）

PrivateSubImage5_Click（）

综合信息查询.Show

PrivateSubImage6_Click（）

单据信息.Show

PrivateSubkhxx_Click（）

客户信息.Show

PrivateSubygxx_Click（）

员工信息.Show

PrivateSubymcx_Click（）

业务信息.Show

PrivateSubymxg_click（）

PrivateSubzhcx_click（）

综合信息查询.Show

PrivateSubTimer1_Timer（）

Label1.Caption=Now

5.3信息修改模块设计

a=CZSX.Text

b=CZZ.Text

Ifa<

Then

Ifb="

请输入查找值"

,"

提示"

Adodc1.CommandType=adCmdText

Adodc1.RecordSource="

select*fromorderFwhere"

a&

='

b&

Adodc1.Refresh

DataGrid1.Refresh

SetDataGrid1.DataSource=Adodc1

MsgBox"

请选择要查找的相关属性"

,提示信息

SetDataGrid1.DataSource=Adodc1

CZZ.Text="

PrivateSubCommand3_Click（）

a=Combo1.Text

b=Text1.Text

Adodc2.CommandType=adCmdText

Adodc2.RecordSource="

select*frommodelwhere"

Adodc2.Refresh

DataGrid2.Refresh

SetDataGrid2.DataSource=Adodc2

PrivateSubCommand4_Click（）

SetDataGrid2.DataSource=Adodc2

Text1.Text="

5.4业务信息模块设计

PrivateSubDataGrid1_RowColChange（lastrowAsVariant,ByVallastcolAsInteger）

sn=DataGrid1.Columns（单号）.CellText（DataGrid1.Bookmark）

Adodc6.CommandType=adCmdText

Adodc6.RecordSource="

select*frommodelwhere单号='

sn&

Adodc6.Refresh

DataGrid6.Refresh

SetDataGrid6.DataSource=Adodc6

************************************************************************************

Fori=0To5

Label1（i）.Caption=DataGrid1.Columns（i）.CellText（DataGrid1.Bookmark）

Nexti

PrivateSubDataGrid2_RowColChange（lastrowAsVariant,ByVallastcolAsInteger）

sn=DataGrid2.Columns（单号）.CellText（DataGrid2.Bookmark）

DataG