数据库系统原理课程设计报告.doc

《数据库系统原理课程设计报告.doc》由会员分享，可在线阅读，更多相关《数据库系统原理课程设计报告.doc（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、数据库系统原理课程设计报告-平面设计公司业务管理系统姓 名： 学 号： 指导老师： 起始时间：2010年3月3日结束时间：2010年5月28日目录第一章概述31.1项目背景31.2编写目的31.3软件定义31.4开发环境3第二章需求分析32.1信息要求42.处理要求42.3安全性与完整性要求5第三章概念设计53.1整体E-R图53.2用户E-R图63.3客户E-R图63.4员工E-R图63.5稿件E-R图73.6单据E-R图7第四章逻辑结构设计74.1用户关系表74.2客户关系表74.3稿件关系表84.4员工关系表84.5单据关系表9第五章主要模块设计与代码95.1登录模块设计95.2主界面模

2、块设计105.3信息修改模块设计125.4业务信息模块设计145.5综合查询模块设计185.6连接数据库模块设计19第六章总结19第七章参考文献20第一章 概述1.1项目背景该公司经营平面设计业务。业务员负责联系业务，并将客户的设计要求进行登记，然后交由设计人员设计。设计完成后由专人负责送货并收款。客户每次的设计要求可能多个不同规格的稿件，这次要求的所有稿件构成一份单据，称为为“预订单”。设计人员从预订单中选取其中的一个进行设计，正在设计中的预订单称为“在建单”，已经完成设计的在建单称为“送货单”，已经送货的送货单称为“历史单”。设计人员一旦开始设计某一预订单，就必须负责完成预订单、在建单、送

3、货单三个流程。业务员的月薪按照每月联系的业务提成3%；、设计员的月薪按照每月完成的设计单提成3%；送货人的月薪按照每月送货的业务提成1%。1.2 编写目的从案例来讲，随着公司业务的增多，需要一个完善的业务系统来管理，在此平台上公司能更好的运作；从个人来讲，为了更好地了解数据库，同时提高自己的动手能力。1.3软件定义用VB和SQL共同构建适合公司日常业务操作的应用程序。1.4开发环境 普通PC机一台，安装Microsoft Visual Basic / Microsoft SQL sever。第二章 需求分析2.1信息要求用户基本信息：用户姓名、用户密码、权限。客户基本信息：客户名称、联系人、联

4、系人电话、传真、邮箱、公司地址。稿件基本信息：稿件名称、长度宽度、规格、色数、输出机型、P数。员工基本信息：编号、员工名、性别、职位、月薪、出生日期、入职日期、联系电话、联系地址。单据基本信息：单号、性质、客户名称、营业员、设计者、送货人、创建及送货日期。（单据性质包括预订单、在建单、送货单、历史单）2.2处理要求 系统的功能模块大体可以设计成如图1-1所示。登陆界面主界面员工信息管理界面业务信息查询管理界面客户信息管理界面信息修改管理界面综合信息查询界面 预订单在建单送货单历史单所有单单据信息修改稿件信息修改图1-1 系统功能模块图从登录用户上看，登录用户需要使用该系统对全体用户的资料进行维

5、护和管理，可以进入各个界面查看和修改，以便对各个员工的工作进行监督和干涉。2.3安全性与完整性要求系统数据完整性与安全性要求如下：从用户基本信息上看，系统要求必须有用户姓名、用户权限、密码等。密码或用户名字错误无法登陆。从稿件基本信息上看，系统要求每张稿件必须有稿件名称、长度宽度、规格、色数、机型等。允许登陆用户修改信息。从客户基本信息上看，系统要求每位客户都必须有客户名称、联系人、联系电话、公司地址等。允许登陆用户修改信息。从单据基本信息上看，系统要求单据必须必须有单号、性质、客户名称、营业员、设计者、送货人、创建及送货日期。允许登陆用户修改信息。第三章 概念设计3.1整体E-R图根据上面的

6、定义可以得到以下整体的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图如下：稿件稿件名称长度宽度规

7、格色数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登录模块设计主要代码如下：Pr

8、ivate Sub Command1_Click() Dim strSQL As String UserName = CStr(Trim(TxtUserName.Text) PassWord = CStr(Trim(TxtPassWord.Text)If UserName Empty And PassWord Empty Then strSQL = select * from 用户信息 where 用户名= & UserName & and 密码 = & PassWord & If RsLoginCheck.State = adStateClosed Then RsLoginCheck.Ope

9、n strSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText End If If RsLoginCheck.EOF = False Then Group = RsLoginCheck.Fields(1).Value Group1 = RsLoginCheck.Fields(3).Value Group5 = RsLoginCheck.Fields(0).Value RsLoginCheck.Close Unload Me 主界面.Show ElseIf Counts 2 Then MsgBox 用户名域密码错误, vbExclamati

10、on + vbOKOnly, 登录失败 RsLoginCheck.Close Counts = Counts + 1 Else MsgBox 密码错误不得超过三次，否则视您为非法用户！, vbCritical, 警告 End End IfElse MsgBox 用户名密码不能为空, vbExclamation + vbOKOnly, 登录失败End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub5.2主界面模块设计主要代码如下：Private Sub exitos_Click()EndEnd SubPrivate Sub Image1_Clic

11、k() 员工信息.ShowUnload 业务信息Unload 客户信息Unload 单据信息Unload 综合信息查询End SubPrivate Sub Image2_Click() 客户信息.ShowUnload 员工信息Unload 业务信息Unload 单据信息Unload 综合信息查询End SubPrivate Sub Image3_Click() 业务信息.ShowUnload 员工信息Unload 客户信息Unload 单据信息Unload 综合信息查询End SubPrivate Sub Image4_Click() EndEnd SubPrivate Sub Image5_

12、Click() 综合信息查询.ShowUnload 员工信息Unload 客户信息Unload 业务信息Unload 单据信息End SubPrivate Sub Image6_Click() 单据信息.ShowUnload 员工信息Unload 客户信息Unload 综合信息查询End SubPrivate Sub khxx_Click()客户信息.ShowUnload 员工信息Unload 业务信息Unload 单据信息Unload 综合信息查询End SubPrivate Sub ygxx_Click()员工信息.ShowUnload 业务信息Unload 客户信息Unload 单据信息

13、Unload 综合信息查询End SubPrivate Sub ymcx_Click()业务信息.ShowUnload 员工信息Unload 客户信息Unload 单据信息Unload 综合信息查询End SubPrivate Sub ymxg_click()业务信息.ShowUnload 员工信息Unload 客户信息Unload 综合信息查询End SubPrivate Sub zhcx_click()综合信息查询.ShowUnload 员工信息Unload 客户信息Unload 单据信息End SubPrivate Sub Timer1_Timer()Label1.Caption = N

14、owEnd Sub5.3信息修改模块设计主要代码如下：Private Sub Command1_Click()a = CZSX.Textb = CZZ.TextIf a Then If b = Then MsgBox 请输入查找值, , 提示 Else Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from orderF where & a & = & b & Adodc1.Refresh DataGrid1.Refresh Set DataGrid1.DataSource = Adodc1 End IfElseMs

15、gBox 请选择要查找的相关属性, , 提示信息End IfEnd SubPrivate Sub Command2_Click()Set DataGrid1.DataSource = Adodc1CZZ.Text = End SubPrivate Sub Command3_Click()a = Combo1.Textb = Text1.TextIf a Then If b = Then MsgBox 请输入查找值, , 提示 Else Adodc2.CommandType = adCmdText Adodc2.RecordSource = select * from model where &

16、 a & = & b & Adodc2.Refresh DataGrid2.Refresh Set DataGrid2.DataSource = Adodc2 End IfElseMsgBox 请选择要查找的相关属性, , 提示信息End IfEnd SubPrivate Sub Command4_Click()Set DataGrid2.DataSource = Adodc2Text1.Text = End Sub5.4业务信息模块设计主要代码如下：Private Sub DataGrid1_RowColChange(lastrow As Variant, ByVal lastcol As

17、Integer)sn = DataGrid1.Columns(单号).CellText(DataGrid1.Bookmark)Adodc6.CommandType = adCmdTextAdodc6.RecordSource = select * from model where 单号 = & sn & Adodc6.RefreshDataGrid6.RefreshSet DataGrid6.DataSource = Adodc6*For i = 0 To 5 Label1(i).Caption = DataGrid1.Columns(i).CellText(DataGrid1.Bookmar

18、k)Next iEnd SubPrivate Sub DataGrid2_RowColChange(lastrow As Variant, ByVal lastcol As Integer)sn = DataGrid2.Columns(单号).CellText(DataGrid2.Bookmark)Adodc6.CommandType = adCmdTextAdodc6.RecordSource = select * from model where 单号 = & sn & Adodc6.RefreshDataGrid6.RefreshSet DataGrid6.DataSource = Ad

19、odc6*For i = 0 To 5 Label1(i).Caption = DataGrid2.Columns(i).CellText(DataGrid2.Bookmark)Next iEnd SubPrivate Sub DataGrid3_RowColChange(lastrow As Variant, ByVal lastcol As Integer)sn = DataGrid3.Columns(单号).CellText(DataGrid3.Bookmark)Adodc6.CommandType = adCmdTextAdodc6.RecordSource = select * fr

20、om model where 单号 = & sn & Adodc6.RefreshDataGrid6.RefreshSet DataGrid6.DataSource = Adodc6*For i = 0 To 5 Label1(i).Caption = DataGrid3.Columns(i).CellText(DataGrid3.Bookmark)Next iEnd SubPrivate Sub DataGrid4_RowColChange(lastrow As Variant, ByVal lastcol As Integer)sn = DataGrid4.Columns(单号).Cell

21、Text(DataGrid4.Bookmark)Adodc6.CommandType = adCmdTextAdodc6.RecordSource = select * from model where 单号 = & sn & Adodc6.RefreshDataGrid6.RefreshSet DataGrid6.DataSource = Adodc6*For i = 0 To 5 Label1(i).Caption = DataGrid4.Columns(i).CellText(DataGrid4.Bookmark)Next iEnd SubPrivate Sub DataGrid5_Ro

22、wColChange(lastrow As Variant, ByVal lastcol As Integer) sn = DataGrid5.Columns(单号).CellText(DataGrid5.Bookmark) Adodc6.CommandType = adCmdText Adodc6.RecordSource = select * from model where 单号 = & sn & Adodc6.Recordset.PageSize = 5 Adodc6.Refresh DataGrid6.Refresh Set DataGrid6.DataSource = Adodc6

23、 * For i = 0 To 5 Label1(i).Caption = DataGrid5.Columns(i).CellText(DataGrid5.Bookmark) Next i - For i = 0 To Adodc6.Recordset.RecordCount - 1 Allcost = Allcost + Adodc6.Recordset.Fields(小计).Value If Adodc6.Recordset.EOF Then Exit For Adodc6.Recordset.MoveNext Next i Label3.Caption = AllcostEnd SubP

24、rivate Sub Label4_Click() sn = DataGrid1.Columns(单号).CellText(DataGrid1.Bookmark)Adodc6.CommandType = adCmdTextAdodc6.RecordSource = select * from model where 单号 = & sn & Adodc6.RefreshDataGrid6.RefreshSet DataGrid6.DataSource = Adodc6*For i = 0 To 5 Label1(i).Caption = DataGrid1.Columns(i).CellText

25、(DataGrid1.Bookmark)Next iDataGrid1.Visible = TrueDataGrid2.Visible = FalseDataGrid3.Visible = FalseDataGrid4.Visible = FalseDataGrid5.Visible = FalseEnd SubPrivate Sub Label6_Click() sn = DataGrid2.Columns(单号).CellText(DataGrid2.Bookmark)Adodc6.CommandType = adCmdTextAdodc6.RecordSource = select *

26、from model where 单号 = & sn & Adodc6.RefreshDataGrid6.RefreshSet DataGrid6.DataSource = Adodc6*For i = 0 To 5 Label1(i).Caption = DataGrid2.Columns(i).CellText(DataGrid2.Bookmark)Next iDataGrid1.Visible = FalseDataGrid2.Visible = TrueDataGrid3.Visible = FalseDataGrid4.Visible = FalseDataGrid5.Visible

27、 = FalseEnd SubPrivate Sub Label7_Click() sn = DataGrid3.Columns(单号).CellText(DataGrid3.Bookmark)Adodc6.CommandType = adCmdTextAdodc6.RecordSource = select * from model where 单号 = & sn & Adodc6.RefreshDataGrid6.RefreshSet DataGrid6.DataSource = Adodc6*For i = 0 To 5 Label1(i).Caption = DataGrid3.Col

28、umns(i).CellText(DataGrid3.Bookmark)Next iDataGrid1.Visible = FalseDataGrid2.Visible = FalseDataGrid3.Visible = TrueDataGrid4.Visible = FalseDataGrid5.Visible = FalseEnd SubPrivate Sub Label8_Click() sn = DataGrid4.Columns(单号).CellText(DataGrid4.Bookmark)Adodc6.CommandType = adCmdTextAdodc6.RecordSo

29、urce = select * from model where 单号 = & sn & Adodc6.RefreshDataGrid6.RefreshSet DataGrid6.DataSource = Adodc6*For i = 0 To 5 Label1(i).Caption = DataGrid4.Columns(i).CellText(DataGrid4.Bookmark)Next iDataGrid1.Visible = FalseDataGrid2.Visible = FalseDataGrid3.Visible = FalseDataGrid4.Visible = TrueD

30、ataGrid5.Visible = FalseEnd SubPrivate Sub Label9_Click() sn = DataGrid5.Columns(单号).CellText(DataGrid5.Bookmark) Adodc6.CommandType = adCmdText Adodc6.RecordSource = select * from model where 单号 = & sn & Adodc6.Recordset.PageSize = 5 Adodc6.Refresh DataGrid6.Refresh Set DataGrid6.DataSource = Adodc

31、6 * For i = 0 To 5 Label1(i).Caption = DataGrid5.Columns(i).CellText(DataGrid5.Bookmark) Next i - For i = 0 To Adodc6.Recordset.RecordCount - 1 Allcost = Allcost + Adodc6.Recordset.Fields(小计).Value If Adodc6.Recordset.EOF Then Exit For Adodc6.Recordset.MoveNext Next i Label3.Caption = Allcost DataGr

32、id1.Visible = FalseDataGrid2.Visible = FalseDataGrid3.Visible = FalseDataGrid4.Visible = FalseDataGrid5.Visible = TrueEnd SubPrivate Sub Timer1_Timer()TIMELabel.Caption = NowEnd SubPrivate Sub Form_Resize()TIMELabel.Top = Me.Height - TIMELabel.HeightTIMELabel.Left = Me.Width - TIMELabel.WidthEnd Sub

33、5.5综合查询模块设计主要代码如下：Private Sub Command1_Click()Dim moenybegin = DTP1.Valuee_nd = DTP2.ValueAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select SUM(小计)合计 from orderf,model where orderf.单号 = model.单号 and 送货日期 & begin & and 送货日期 & e_nd & Adodc1.RefreshText1.Text = Adodc1.Recordset.Fields(合计).Valu

34、e & ￥End Sub5.6连接数据库模块设计主要代码如下：Sub main() If FileExist(App.Path + db.ini) = False Then xx = 0 yy = 0 WriteINI App.Path & db.ini, config, server, . WriteINI App.Path & db.ini, config, pwd, WriteINI App.Path & db.ini, config, uid, sa WriteINI App.Path & db.ini, config, database, ADC Else srn = ReadINI

35、(App.Path & db.ini, config, server) UID = ReadINI(App.Path & db.ini, config, uid) pwd = ReadINI(App.Path & db.ini, config, pwd) SysDB = ReadINI(App.Path & db.ini, config, database) End If connstr = Provider=SQLOLEDB.1;Persist Security Info=True;User ID= + UID + ;password= + pwd + ;Initial Catalog= +

36、 SysDB + ;Data Source= & srn 系统登录.ShowEnd Sub第六章 总结在此次课程设计的过程中，由于自己软件工程方面的知识不扎实，在概念结构设计方面纠结了很久。数据库方面的知识虽说比起软件工程来好一点，但也是菜鸟一个，在设计表的时候也吃了不少苦头。我觉得最大的困难还是没有学好一门语言，这样一来想用前台工具来调用数据库变得十分吃力，所以就只能边学边做了，不懂的再向同学请教或上网查资料。在实际的应用当中，几乎少不了数据库的支持，因为在任何应用之中，处理的就是各式各样的数据，比如企业的人事、进销存等。况且人的大脑本身就是一种用接近关系数据库的方式来记忆，因此数据库的重要

37、性可见一斑。因此我十分重视此次课程设计，花了近两个月的时间来做这个设计，但是却不觉得累，因为学到很多东西。一方面学到数据库和VB等专业知识；另一方面，学到做人不能急功近利，做什么事都需要恒心，一时半刻就想成功是不可能的。前台开发工具刚开始打算用C+做的，因为之前看过这方面的书，但是最后发现VB更适合自己的思维方式，所以就选择了用VB做前台开发。由于是初学者，本次课程设计有些功能还未能够完善，实在是愧对老师和自己。在以后的日子，我会更加努力地巩固专业知识，为以后的学习和毕业设计打下良好基础！第七章 参考文献u 软件工程（第二版）齐治昌、谭庆平、宁洪主编 （高等教育出版社）u 数据库系统概论（第四版）王珊、萨师煊主编 （高等教育出版社）u Visual Basic从入门到精通刘彬彬、高春艳、孙秀梅等主编 （清华大学出版社）