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

数据库系统原理课程设计报告-平面设计公司业务管理系统姓 名： 学 号： 指导老师： 起始时间：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主界面模块设计105.3信息修改模块设计125.4业务信息模块设计145.5综合查询模块设计185.6连接数据库模块设计19第六章总结19第七章参考文献20第一章 概述1.1项目背景该公司经营平面设计业务。业务员负责联系业务，并将客户的设计要求进行登记，然后交由设计人员设计。设计完成后由专人负责送货并收款。客户每次的设计要求可能多个不同规格的稿件，这次要求的所有稿件构成一份单据，称为为“预订单”。设计人员从预订单中选取其中的一个进行设计，正在设计中的预订单称为“在建单”，已经完成设计的在建单称为“送货单”，已经送货的送货单称为“历史单”。设计人员一旦开始设计某一预订单，就必须负责完成预订单、在建单、送货单三个流程。业务员的月薪按照每月联系的业务提成3%；、设计员的月薪按照每月完成的设计单提成3%；送货人的月薪按照每月送货的业务提成1%。1.2 编写目的从案例来讲，随着公司业务的增多，需要一个完善的业务系统来管理，在此平台上公司能更好的运作；从个人来讲，为了更好地了解数据库，同时提高自己的动手能力。1.3软件定义用VB和SQL共同构建适合公司日常业务操作的应用程序。1.4开发环境 普通PC机一台，安装Microsoft Visual Basic / Microsoft SQL sever。第二章 需求分析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登录模块设计主要代码如下：Private 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.Open 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 用户名域密码错误, vbExclamation + 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_Click() 员工信息.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_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 单据信息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 = NowEnd 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 IfElseMsgBox 请选择要查找的相关属性, , 提示信息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 & 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 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.Bookmark)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 = Adodc6*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 * from 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(单号).CellText(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_RowColChange(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 * 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 SubPrivate 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(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 * 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 = 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.Columns(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.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 iDataGrid1.Visible = FalseDataGrid2.Visible = FalseDataGrid3.Visible = FalseDataGrid4.Visible = TrueDataGrid5.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 = Adodc6 * 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 DataGrid1.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 Sub5.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(合计).Value & ￥End Sub5.6连接数据库模块设计主要代码如下：Sub main() If FileExist(App.Path + db.ini) = False Then xx = 0 yy = 0 WriteINI App.Path & db.ini, config, server, . Wri