【正文】
(183, 26)(183, 35) (15, 35)(183, 35) 39。打印內(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 (pages 1) * 25 + 2 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 SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Or KeyCode = vbKeyDown Then Text1(0).SetFocus = FalseEnd IfIf (KeyCode = vbKeyBack And Text1(Index).Text = ) Or KeyCode = vbKeyUp Then Text1(3).SetFocus = FalseEnd IfEnd Sub零件管理界面可對零件的基本信息進(jìn)行添加、修改、刪除、查找、以及打印。在信息輸入以后,點(diǎn)擊相對應(yīng)的按鈕,可進(jìn)行相對應(yīng)的操作,操作的結(jié)果會(huì)在右側(cè)的零件列表中顯示。: 零件管理界面相應(yīng)事件實(shí)現(xiàn)代碼如下:Private Sub Command1_Click()On Error GoTo err1(零件編號(hào)) = Text1(0).Text(品名) = Text1(1).Text(單價(jià)) = Text1(2).Text(零件介紹) = Text1(3).TextMsgBox 新增成功, vbExclamation, 系統(tǒng)提示dataload ( 1)Text1(0).SetFocusExit Suberr1: If = 3022 Then MsgBox 零件編號(hào)重復(fù), 此零件已存在!, vbCritical, 系統(tǒng)提示 End IfEnd SubPrivate Sub Command2_Click()answer = MsgBox(確實(shí)要更新此零件的信息嗎?, vbYesNo + vbQuestion, 系統(tǒng)提示) If answer = vbYes Then On Error GoTo err1 (零件編號(hào)) = Text1(0).Text (品名) = Text1(1).Text (單價(jià)) = Text1(2).Text (零件介紹) = Text1(3).Text MsgBox 更新成功, vbExclamation, 系統(tǒng)提示 dataload ( 1) End IfExit Suberr1: If = 3022 Then MsgBox 零件編號(hào)重復(fù), 此零件已存在!, vbCritical, 系統(tǒng)提示 dataload ( 1) End IfEnd SubPrivate Sub Command3_Click()answer = MsgBox(確實(shí)要?jiǎng)h除此零件的信息嗎?, vbYesNo + vbQuestion, 系統(tǒng)提示) If answer = vbYes Then If Then For i = 0 To 1 Next i Else For i = 0 To 1 Next i End If MsgBox 刪除成功, vbExclamation, 系統(tǒng)提示 dataload ( 1) End IfEnd SubPrivate Sub Command1_Click()str2 = For i = 0 To 3 If Not (Format(Text1(i).Text) = ) Then str2 = str2 + and + Text1(i).Tag + like 39。* + Text1(i).Text + *39。 End IfNext istr5 = Mid$(str2, 5)If Not str5 = Then str5 = where + str5End Ifsql1$ = select * from 零件表 + str5Unload MeEnd SubPrivate Sub Command6_Click()If = Then = True Else = False End If (1)If = qbdy Then = 1 = 1Else If = bdy Then Exit Sub End IfEnd If Dim a1(4) As String 39。打印時(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。打印列頭 (15, 26)(15, 35) = 18 = 30 零件編號(hào) (38, 26)(38, 35) = 53 = 30 品 名 (83, 26)(83, 35) = 84 = 30 單價(jià)(元) (106, 26)(106, 35) = 136 = 30 零件介紹 (183, 26)(183, 35) (15, 35)(183, 35) 39。打印內(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ā)完畢。其功能基本符合需求,能夠完成單擊錄入、查詢、打??;以及客戶和零件的基本信息的添加、修改、刪除、查找、打印。并提供部分系統(tǒng)維護(hù)功能,使管理員能夠更加方便快捷精確的管理服務(wù)站的單據(jù)信息、客戶信息、零件信息。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短,所以該系統(tǒng)還有許多不盡如人意的地方,出錯(cuò)處理不夠等多方面問題。這些都有待進(jìn)一步改善。 幾個(gè)月的畢業(yè)設(shè)計(jì),使我提高了實(shí)際操作能力,從以前的理論上升到實(shí)踐,從感性認(rèn)識(shí)上升到理性認(rèn)識(shí),真正做到學(xué)有所用,懂得先要發(fā)現(xiàn)問題,分析問題,解決問題,雖然在設(shè)計(jì)過程中我也遇到一些困難,但在老師的幫助和自己的努力下,我都認(rèn)真克服了,但由于時(shí)間緊觸,我并不能做到盡善盡美,應(yīng)該說這是一大遺憾吧,我相信這對以后的工作會(huì)有很大的幫助。致 謝在本次畢業(yè)設(shè)計(jì)中,我從指導(dǎo)老師身上學(xué)到了很多東西。她認(rèn)真負(fù)責(zé)的工作態(tài)度,嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。她無論在理論上還是在實(shí)踐中,都給與我很大的幫助,使我得到很大的提高,這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助,在此感謝她耐心的輔導(dǎo)。在撰寫論文階段,指導(dǎo)老師幾次審閱我的論文,提出了許多寶貴意見,沒有她的指導(dǎo),我們就不能較好的完成課題設(shè)計(jì)的任務(wù)。另外,我還要感謝在這幾年來對我有所教導(dǎo)的老師,他們孜孜不倦的教誨不但讓我學(xué)到了很多知識(shí),而且讓我掌握了學(xué)習(xí)的方法,更教會(huì)了我做人處事的道理,在此表示感謝。同時(shí),在系統(tǒng)開發(fā)過程中還有同組的同學(xué)也給了我不少幫助,這里一并表示感謝。參考文獻(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é)手冊[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月