【正文】 參考文獻(xiàn)[1] Basic 使用指南[M].電子工業(yè)出版社，2006年4月[2] Ned Office 2003自學(xué)通[M].機(jī)械工業(yè)出版社，2008年7月[3] Microsoft .Visual Basic 中文版控件大全[M].電子工業(yè)出版社，2007年9月[4] Basic 完全自學(xué)手冊(cè)[M].機(jī)械工業(yè)出版社出版，2009年2月[5] Basic+Access數(shù)據(jù)庫開發(fā)與實(shí)例[M].清華大學(xué)出版社，2004年3月 [6] Server 2003 應(yīng)用與開發(fā)范例寶典[M].人民郵電出版社，2006年8月[7] (原書第5版)[M].機(jī)械工業(yè)出版社，2007年9月。另外，我還要感謝在這幾年來對(duì)我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識(shí)，而且讓我掌握了學(xué)習(xí)的方法，更教會(huì)了我做人處事的道理，在此表示感謝。她無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到很大的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，在此感謝她耐心的輔導(dǎo)。致 謝在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。這些都有待進(jìn)一步改善。并提供部分系統(tǒng)維護(hù)功能,使管理員能夠更加方便快捷精確的管理服務(wù)站的單據(jù)信息、客戶信息、零件信息。打印內(nèi)容 = False If Then For i = 1 To 25 For j = 1 To 4 If i + 2 (pages 1) * 25 Then a1(j) = (( + i 1 + (pages 1) * 25) * + (j 1)) Else a1(j) = End If Next j Call printrow(a1(), i) Next i Else For i = 1 To 25 For j = 1 To 4 If i + 2 (pages 1) * 25 Then a1(j) = (( + i 1 + (pages 1) * 25) * + (j 1)) Else a1(j) = End If Next j Call printrow(a1(), i) Next i End If = 94 = 272 第 + CStr(pages) + 頁 Next pages End Sub總結(jié)經(jīng)過幾個(gè)月的設(shè)計(jì)和開發(fā)，華星龍迪汽車服務(wù)站管理系統(tǒng)基本開發(fā)完畢。打印時(shí)用到的暫存數(shù)組 Dim i As Integer = 6For pages = 1 To CInt(Abs( ) / 25 + ) a1(0) = 零件表 = 6 = 82 = 8 = 36 a1(0) = 12 = True (15, 26)(183, 26) 39。* + Text1(i).Text + *39。在信息輸入以后，點(diǎn)擊相對(duì)應(yīng)的按鈕，可進(jìn)行相對(duì)應(yīng)的操作，操作的結(jié)果會(huì)在右側(cè)的零件列表中顯示。打印列頭 (15, 26)(15, 35) = 18 = 30 客戶名 (38, 26)(38, 35) = 51 = 30 客戶電話 (83, 26)(83, 35) = 124 = 30 客戶地址 (183, 26)(183, 35) (15, 35)(183, 35) 39。* + Text1(i).Text + *39。在信息輸入以后，點(diǎn)擊相對(duì)應(yīng)的按鈕，可進(jìn)行相對(duì)應(yīng)的操作，操作的結(jié)果會(huì)在右側(cè)的客戶列表中顯示。* + Text1(7).Text + *39。* + Text1(i).Text + *39。 + Text1(0).Text + 39。 + + 39。雙擊擊查詢結(jié)果表中的一項(xiàng)數(shù)據(jù)，會(huì)彈出單據(jù)窗口，可查看相對(duì)應(yīng)的單據(jù)的詳細(xì)信息。保存單的其他數(shù)據(jù) (客戶名) = Text1(2).Text (客戶地址) = Text1(4).Text (客戶電話) = Text1(3).Text (車型) = Text1(6).Text (牌照) = Text1(5).Text (日期) = Text1(1).FormattedText (總金額) = (銷售員) = (單號(hào)) = Text1(0).Text 39。 \)Set rec = (1) = 單號(hào) =, Text1(0).Text39。錯(cuò)誤檢查模塊If Text1(0).Text = Then MsgBox 必須要輸入單據(jù)號(hào), vbCritical, 系統(tǒng)提示 Text1(0).SetFocus Exit Sub If Not (judge(Text1(0).Text, Text1(0).Tag)) Then Text1(0).SetFocus baocun = False Exit Sub End IfEnd IfIf Text1(1).Text = Then MsgBox 必須要輸入日期, vbCritical, 系統(tǒng)提示 Text1(1).SetFocus Exit Sub If Not (judge(Text1(1).Text, Text1(1).Tag)) Then Text1(1).SetFocus baocun = False Exit Sub End IfEnd If39。Dim newind As Index 39。Dim newrec As TableDef 39。打開單據(jù)表的recordsetDim rec1 As Recordset 39。If baocun Then Call printit39。防止發(fā)生text框改變時(shí)的重復(fù)change事件Dim entered As Boolean 39。 存儲(chǔ)text1(2)框從鍵盤上輸入的那些文本Dim inputstr1 As String 39。標(biāo)記列表前一次row和col change時(shí)的行和列Dim changable As Boolean 39。在選擇退出或打印是判斷時(shí)候提示保存Dim nowrow As Integer 39。在單據(jù)輸入格式方面，點(diǎn)擊相應(yīng)的文本框時(shí)，會(huì)有相應(yīng)的格式輸入信息提示。如需打印則單擊打印按鈕。 Weekday(Now) 1End Sub單據(jù)錄入界面可實(shí)現(xiàn)單據(jù)的錄入和打印，在輸入單據(jù)的時(shí)候必須填寫單據(jù)中所需要的各項(xiàng)信息。 Time amp。 Day(Now) amp。 Month(Now) amp。 = TrueEnd SubPrivate Sub Image4_Click()End SubPrivate Sub Timer1_Timer() = Year(Now) amp。： 主界面相應(yīng)事件代碼如下：Private Sub Form_Click()End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)For i = 0 To 4Image1(i).Visible = FalseImage2(i).Visible = FalseImage3(i).Visible = TrueNext iEnd SubPrivate Sub Form_Load() = 1000 = TrueSet db = OpenDatabase( amp。初始化 = = = End Sub 單擊主界面的中的圖片會(huì)彈出關(guān)于本軟件的介紹。 39。 amp。兩次輸入的新密碼必須相同而且不能為空，填寫正確以后點(diǎn)擊確定可進(jìn)行密碼修改。顯示主程序 Else MsgBox 用戶名或密碼有誤！, vbInformation, 系統(tǒng)登陸提示 End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click() Unload MeEnd Sub“密碼修改”界面的設(shè)計(jì)在進(jìn)入修改頁面界面以后，會(huì)出現(xiàn)4個(gè)文本框，對(duì)應(yīng)的分別是帳號(hào)、舊密碼、新密碼和確認(rèn)新密碼。Set Rs = ExeSQL(Sql) If (1) = Trim() Then Unload Me 39。 Trim() amp。光標(biāo)位置 Exit SubEnd IfIf Trim() = Then MsgBox 密碼不能為空！, vbInformation, 系統(tǒng)登陸提示 Exit SubEnd IfSql = select * from username where 用戶名=39。這里的帳號(hào)只有默認(rèn)admin，無法在此界面新建其他帳號(hào)！當(dāng)帳號(hào)與密碼相對(duì)應(yīng)的時(shí)候點(diǎn)擊登陸會(huì)彈出主界面且登陸界面關(guān)閉，若不對(duì)應(yīng)則會(huì)彈出密碼錯(cuò)誤窗，要求重新輸入！如需修改密碼，可直接點(diǎn)擊“密碼修改”按鈕進(jìn)入密碼修改界面！如需退出單擊“退出”按鈕即可！設(shè)計(jì)“登陸界面”。這里相對(duì)重要的幾個(gè)界面做簡(jiǎn)單的介紹。module2和module3是對(duì)各種數(shù)值的轉(zhuǎn)換的所建立的兩個(gè)模塊，如對(duì)日期的轉(zhuǎn)換，貨幣大小寫的轉(zhuǎn)換等。其他各項(xiàng)界面的操做都離不開這個(gè)數(shù)據(jù)庫。對(duì)帳號(hào)密碼進(jìn)行驗(yàn)證或修改。第五章 各個(gè)功能模塊的設(shè)計(jì)整個(gè)軟件由十四個(gè)窗體模塊三個(gè)標(biāo)準(zhǔn)模塊和兩個(gè)數(shù)據(jù)庫文件組成。根據(jù)上面的需求分析，得到相應(yīng)的ER圖：“單據(jù)信息“單據(jù)號(hào)日期車輛牌照車輛型號(hào)零件客戶單據(jù)信息零件數(shù)量 單據(jù)信息實(shí)體ER圖“客戶信息“客戶客戶簡(jiǎn)介客戶地址客戶電話客戶名稱 客戶信息實(shí)體ER圖“零件信息“零件零件編號(hào)零件單價(jià)零件名稱零件備注 零件信息實(shí)體ER圖 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)我們需要將上面的數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)轉(zhuǎn)化為Microsoft Access 2000數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 數(shù)據(jù)庫需求分析 數(shù)據(jù)庫需求分析是數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的第一個(gè)階段，是收集基本、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程?？蛻艄芾砟K：用于客戶基本信息的添加、修改、刪除、查找、打印。（2） 客戶信息管理（3） 配件信息管理（4） 客戶維修記錄單據(jù)添加、修改、刪除、查找、打?。?） 管理人員登陸、密碼修改華星龍迪汽車維修服務(wù)站管理系統(tǒng)登陸界面密