數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計報告.doc

數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計報告-平面設(shè)計公司業(yè)務(wù)管理系統(tǒng)姓 名： 學(xué) 號： 指導(dǎo)老師： 起始時間：2010年3月3日結(jié)束時間：2010年5月28日目錄第一章概述31.1項目背景31.2編寫目的31.3軟件定義31.4開發(fā)環(huán)境3第二章需求分析32.1信息要求42.處理要求42.3安全性與完整性要求5第三章概念設(shè)計53.1整體E-R圖53.2用戶E-R圖63.3客戶E-R圖63.4員工E-R圖63.5稿件E-R圖73.6單據(jù)E-R圖7第四章邏輯結(jié)構(gòu)設(shè)計74.1用戶關(guān)系表74.2客戶關(guān)系表74.3稿件關(guān)系表84.4員工關(guān)系表84.5單據(jù)關(guān)系表9第五章主要模塊設(shè)計與代碼95.1登錄模塊設(shè)計95.2主界面模塊設(shè)計105.3信息修改模塊設(shè)計125.4業(yè)務(wù)信息模塊設(shè)計145.5綜合查詢模塊設(shè)計185.6連接數(shù)據(jù)庫模塊設(shè)計19第六章總結(jié)19第七章參考文獻20第一章 概述1.1項目背景該公司經(jīng)營平面設(shè)計業(yè)務(wù)。業(yè)務(wù)員負責(zé)聯(lián)系業(yè)務(wù)，并將客戶的設(shè)計要求進行登記，然后交由設(shè)計人員設(shè)計。設(shè)計完成后由專人負責(zé)送貨并收款?？蛻裘看蔚脑O(shè)計要求可能多個不同規(guī)格的稿件，這次要求的所有稿件構(gòu)成一份單據(jù)，稱為為“預(yù)訂單”。設(shè)計人員從預(yù)訂單中選取其中的一個進行設(shè)計，正在設(shè)計中的預(yù)訂單稱為“在建單”，已經(jīng)完成設(shè)計的在建單稱為“送貨單”，已經(jīng)送貨的送貨單稱為“歷史單”。設(shè)計人員一旦開始設(shè)計某一預(yù)訂單，就必須負責(zé)完成預(yù)訂單、在建單、送貨單三個流程。業(yè)務(wù)員的月薪按照每月聯(lián)系的業(yè)務(wù)提成3%；、設(shè)計員的月薪按照每月完成的設(shè)計單提成3%；送貨人的月薪按照每月送貨的業(yè)務(wù)提成1%。1.2 編寫目的從案例來講，隨著公司業(yè)務(wù)的增多，需要一個完善的業(yè)務(wù)系統(tǒng)來管理，在此平臺上公司能更好的運作；從個人來講，為了更好地了解數(shù)據(jù)庫，同時提高自己的動手能力。1.3軟件定義用VB和SQL共同構(gòu)建適合公司日常業(yè)務(wù)操作的應(yīng)用程序。1.4開發(fā)環(huán)境 普通PC機一臺，安裝Microsoft Visual Basic / Microsoft SQL sever。第二章 需求分析2.1信息要求用戶基本信息：用戶姓名、用戶密碼、權(quán)限?？蛻艋拘畔ⅲ嚎蛻裘Q、聯(lián)系人、聯(lián)系人電話、傳真、郵箱、公司地址。稿件基本信息：稿件名稱、長度寬度、規(guī)格、色數(shù)、輸出機型、P數(shù)。員工基本信息：編號、員工名、性別、職位、月薪、出生日期、入職日期、聯(lián)系電話、聯(lián)系地址。單據(jù)基本信息：單號、性質(zhì)、客戶名稱、營業(yè)員、設(shè)計者、送貨人、創(chuàng)建及送貨日期。（單據(jù)性質(zhì)包括預(yù)訂單、在建單、送貨單、歷史單）2.2處理要求 系統(tǒng)的功能模塊大體可以設(shè)計成如圖1-1所示。登陸界面主界面員工信息管理界面業(yè)務(wù)信息查詢管理界面客戶信息管理界面信息修改管理界面綜合信息查詢界面 預(yù)訂單在建單送貨單歷史單所有單單據(jù)信息修改稿件信息修改圖1-1 系統(tǒng)功能模塊圖從登錄用戶上看，登錄用戶需要使用該系統(tǒng)對全體用戶的資料進行維護和管理，可以進入各個界面查看和修改，以便對各個員工的工作進行監(jiān)督和干涉。2.3安全性與完整性要求系統(tǒng)數(shù)據(jù)完整性與安全性要求如下：從用戶基本信息上看，系統(tǒng)要求必須有用戶姓名、用戶權(quán)限、密碼等。密碼或用戶名字錯誤無法登陸。從稿件基本信息上看，系統(tǒng)要求每張稿件必須有稿件名稱、長度寬度、規(guī)格、色數(shù)、機型等。允許登陸用戶修改信息。從客戶基本信息上看，系統(tǒng)要求每位客戶都必須有客戶名稱、聯(lián)系人、聯(lián)系電話、公司地址等。允許登陸用戶修改信息。從單據(jù)基本信息上看，系統(tǒng)要求單據(jù)必須必須有單號、性質(zhì)、客戶名稱、營業(yè)員、設(shè)計者、送貨人、創(chuàng)建及送貨日期。允許登陸用戶修改信息。第三章 概念設(shè)計3.1整體E-R圖根據(jù)上面的定義可以得到以下整體的E-R圖：圖1-2 整體E-圖預(yù)定單在建單送貨單歷史單稿件客戶用戶預(yù)定設(shè)計送貨存檔3.2用戶E-R圖根據(jù)系統(tǒng)對用戶完整性約束等條件定義用戶的E-R圖如下：用戶用戶姓名用戶密碼權(quán)限圖1-3 用戶E-圖3.3客戶E-R圖根據(jù)系統(tǒng)對客戶完整性約束等條件定義客戶的E-R圖如下：圖1-4 客戶E-圖客戶客戶名稱聯(lián)系人聯(lián)系人電話傳真郵箱公司地址3.4員工E-R圖根據(jù)系統(tǒng)對客戶完整性約束等條件定義員工的E-R圖如下：圖1-5 員工E-圖員工編號員工名職位出生日期入職日期聯(lián)系電話聯(lián)系地址月薪性別3.5稿件E-R圖根據(jù)系統(tǒng)對稿件完整性約束等條件定義稿件的E-R圖如下：稿件稿件名稱長度寬度規(guī)格色數(shù)P數(shù)輸出機型圖1-6 稿件E-圖3.6單據(jù)E-R圖根據(jù)系統(tǒng)對單據(jù)完整性約束等條件定義單據(jù)的E-R圖如下：圖1-7單據(jù)E-圖單號營業(yè)員客戶名稱設(shè)計者送貨人人人者性質(zhì)創(chuàng)建日期送貨日期單據(jù)第四章 邏輯結(jié)構(gòu)設(shè)計4.1用戶關(guān)系表根據(jù)用戶的E-R圖得到如下關(guān)系表：表1-1 用戶表4.2客戶關(guān)系表根據(jù)客戶的E-R圖得到如下關(guān)系表：表1-2 客戶表4.3稿件關(guān)系表根據(jù)稿件的E-R圖得到如下關(guān)系表：表1-3 稿件表4.4員工關(guān)系表根據(jù)員工的E-R圖得到如下關(guān)系表：表1-4 員工表4.5單據(jù)關(guān)系表根據(jù)單據(jù)的E-R圖得到如下關(guān)系表：表1-5 單據(jù)表第五章 主要模塊設(shè)計與代碼5.1登錄模塊設(shè)計主要代碼如下：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主界面模塊設(shè)計主要代碼如下：Private Sub exitos_Click()EndEnd SubPrivate Sub Image1_Click() 員工信息.ShowUnload 業(yè)務(wù)信息Unload 客戶信息Unload 單據(jù)信息Unload 綜合信息查詢End SubPrivate Sub Image2_Click() 客戶信息.ShowUnload 員工信息Unload 業(yè)務(wù)信息Unload 單據(jù)信息Unload 綜合信息查詢End SubPrivate Sub Image3_Click() 業(yè)務(wù)信息.ShowUnload 員工信息Unload 客戶信息Unload 單據(jù)信息Unload 綜合信息查詢End SubPrivate Sub Image4_Click() EndEnd SubPrivate Sub Image5_Click() 綜合信息查詢.ShowUnload 員工信息Unload 客戶信息Unload 業(yè)務(wù)信息Unload 單據(jù)信息End SubPrivate Sub Image6_Click() 單據(jù)信息.ShowUnload 員工信息Unload 客戶信息Unload 綜合信息查詢End SubPrivate Sub khxx_Click()客戶信息.ShowUnload 員工信息Unload 業(yè)務(wù)信息Unload 單據(jù)信息Unload 綜合信息查詢End SubPrivate Sub ygxx_Click()員工信息.ShowUnload 業(yè)務(wù)信息Unload 客戶信息Unload 單據(jù)信息Unload 綜合信息查詢End SubPrivate Sub ymcx_Click()業(yè)務(wù)信息.ShowUnload 員工信息Unload 客戶信息Unload 單據(jù)信息Unload 綜合信息查詢End SubPrivate Sub ymxg_click()業(yè)務(wù)信息.ShowUnload 員工信息Unload 客戶信息Unload 綜合信息查詢End SubPrivate Sub zhcx_click()綜合信息查詢.ShowUnload 員工信息Unload 客戶信息Unload 單據(jù)信息End SubPrivate Sub Timer1_Timer()Label1.Caption = NowEnd Sub5.3信息修改模塊設(shè)計主要代碼如下：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 請選擇要查找的相關(guān)屬性, , 提示信息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 請選擇要查找的相關(guān)屬性, , 提示信息End IfEnd SubPrivate Sub Command4_Click()Set DataGrid2.DataSource = Adodc2Text1.Text = End Sub5.4業(yè)務(wù)信息模塊設(shè)計主要代碼如下：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綜合查詢模塊設(shè)計主要代碼如下：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連接數(shù)據(jù)庫模塊設(shè)計主要代碼如下：Sub main() If FileExist(App.Path + db.ini) = False Then xx = 0 yy = 0 WriteINI App.Path & db.ini, config, server, . W