【正文】 開發(fā)過程由編碼、編譯和調(diào)試代碼 3 個(gè)步驟組成。利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立和編輯 MS Access 格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能，同時(shí)還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 Dbase、 FoxPro、 Paradox 等。在設(shè)計(jì)過程中力求完善系統(tǒng)功能，使界面友好，具有一定的容錯能 力，在使用過程中不會出現(xiàn)難以糾正的錯誤和毛病。 Visual Basic 語言簡單易學(xué)，只要稍有語言基礎(chǔ)就可以很快的掌握并進(jìn)而精通。 Visual Basic 中， Inter 應(yīng)用程序的開發(fā)功能更加強(qiáng)大和容易。另外他所提供的 [可視化數(shù)據(jù)管理器 ]能幫助用戶構(gòu)造多種類型的數(shù)據(jù)庫，同時(shí)提供了能自動生成 SQL 語句的功能和新的 ActiveX 數(shù)據(jù)對象 ADO。新的向?qū)в校簲?shù)據(jù)對象生成向?qū)Ш凸ぞ邨l向?qū)А? Basic 系統(tǒng)幾個(gè)在程序應(yīng)用中的常用名詞 Visual Basic 系統(tǒng)除了一般高級語言所具有的一些名詞術(shù)語外，還有幾個(gè)系統(tǒng)常用的名詞。本程序所應(yīng)用到的對象類型有標(biāo)簽框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，網(wǎng)格 (Data Grid)， ADO 控件 (Adodc1)等。 (3) 屬性 (Properties) 屬性是 VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。 VB 系統(tǒng)常用事件來引導(dǎo)計(jì)算機(jī)執(zhí)行一段程序。其程序的方法有 Show（顯示）方法， Hide（隱藏）方法， Refresh（刷新）方法。 面對對象的編程 面向?qū)ο蟮脑O(shè)計(jì)方法 (OOP, Objected Programming) 從應(yīng)用領(lǐng)域內(nèi)的問題著手，成都電子機(jī)械高等專科學(xué)校畢業(yè)設(shè)計(jì) (論文 ) 12 以直觀自然的方式描述客觀世界的實(shí)體。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對象。 本系統(tǒng)使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單，您也可以使用 Visual Basic 的 Application Wizard 來操作。 選擇 “ 工程 ” 下拉菜單中的 “ 部件 ” 選項(xiàng)，顯示 “ 部件 ” 對話框。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。數(shù)據(jù)庫中有三種不同類型的成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 14 關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。 信息工作的迅速增長，使計(jì)算機(jī)的應(yīng)用范圍越來越廣泛，應(yīng)用的功能由一般的數(shù)據(jù)處理走向支持決策。也非常重要。 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 16 致謝 在系統(tǒng)的開發(fā)過程中，我碰到了很多的難題，多虧有老師和同學(xué)的幫助，在這里，特別要向我的指導(dǎo)老師杜濤老師的指導(dǎo)和常旭存等同學(xué)的幫助表示衷心的感謝！ 但是由于是第一次面向?qū)ο箝_發(fā) 數(shù)據(jù)庫管理系統(tǒng)，肯定會有經(jīng)驗(yàn)上的不足，失誤之處在所難免，敬請各位老師，領(lǐng)導(dǎo)批評的指正。 amp。 amp。記憶菜單上次數(shù)值，實(shí)現(xiàn)數(shù)據(jù)傳送 Private Sub acg_Click() Call asPopup7_Click(False) End Sub Private Sub addcg_Click() 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 22 Call asPopup6_Click(False) End Sub Private Sub addstudent_Click() Call asPopup2_Click(False) End Sub Private Sub asPopup1_Click(Cancel As Boolean) = True = False tkbase = 學(xué)生信息 fnumber = 13 sql = select * from amp。按要求讀取數(shù)據(jù)空間 End Sub Private Sub grid1pz() 39。拒絕刪 除 gridedit = False End Sub Private Sub asPopup3_Click(Cancel As Boolean) Dim fo2 As CTranslucentForm Set fo2 = New CTranslucentForm = = 90 / 100 * 255 = vbMinimized Load Form2 1 End Sub Private Sub asPopup4_Click(Cancel As Boolean) Dim fo2 As CTranslucentForm Set fo2 = New CTranslucentForm = = 90 / 100 * 255 = vbMinimized Load Form4 1 End Sub Private Sub asPopup5_Click(Cancel As Boolean) = True End Sub 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 25 Private Sub asPopup6_Click(Cancel As Boolean) = False = True tkbase = 學(xué)生與課程 fnumber = 6 gridpz2 Set qy1 = (select * from amp。 amp。提交內(nèi)容 到函數(shù)執(zhí)行， 4為當(dāng)前菜單（ 04）， index 是按鈕數(shù)組名稱 cmove 4, Index End Sub Private Sub cmove(s As Integer, i As Integer) 39。Z 沒用上 x1 = s 39。360 是每個(gè)按鈕的高度 y = y 1 Loop c1(x).Top = j x = x 1 Loop Else 39。 (hang, 1).Text amp。設(shè)定 TAB 鍵切換 Dim nActiveRow As Long, nActiveCol As Long Const VK_TAB = 9 If GetKeyState(VK_TAB) 0 Then nActiveRow = nActiveCol = If nActiveCol 1 Then 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 31 (nActiveRow, nActiveCol + 1, _ nActiveRow, nActiveCol + 1).Selected End If Cancel = True End If End Sub Private Sub Form_Load() On Error GoTo finish CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ 39。 年 amp。 日 ,歡迎您進(jìn)入 04423 班 ! = False = RGB(167, 111, 177) 39。輸入成績 = False = False = True End If With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 32 . = Tahoma . = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(167, 111, 177) .BackColorBkg = RGB(198, 229, 211) .BackColorScrollBar = RGB(167, 111, 177) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(198, 229, 211) .GridColor = RGB(148, 190, 231) .Column(0).Width = 0 End With With Grid2 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(167, 111, 177) .BackColorBkg = RGB(198, 229, 211) .BackColorScrollBar = RGB(167, 111, 177) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(198, 229, 211) .GridColor = RGB(148, 190, 231) .Column(0).Width = 0 成都電子機(jī)械高等?？茖W(xué)校畢業(yè)設(shè)計(jì) (論文 ) 33 End With je = 4 Dim fr As Integer = RGB(168, 217, 189) For fr = 0 To 4 Fre2(fr).Visible = False Fre2(fr).BackColor = RGB(106, 137, 188) Next = False Call c1_Click(0) Exit Sub finish: MsgBox End Sub Private Sub Grid2_CellChange(ByVal Row As Long, ByVal Col As Long) 39。 nnum amp。設(shè)定讀取行 For j = 1 To fnumber 39。表狀態(tài) End If sql, n, adOpenStatic, adLockReadOnly, adCmdText For i = 1 To fnumber (0, i).Text = (i 1).Name Next = 20 nnum = If = 0 Then nnum = 1 End If numpage = 1 = 共 amp。 頁 = 1 = 21 If = 0 Then Exit Sub End If = numpage For i = 1 To 39。讀取下一記錄 Else Exit Sub End If Next End If End Sub Private Sub Grid2_Validate(Cancel As Boolean) Dim nActiveRow As Long, nActiveCol As Long Const VK_TAB = 9 If GetKeyState(VK_TAB) 0 Then nActiveRow = nActiveCol = If nActiveCol 1 Then (nActiveRow, nActiveCol + 1, _ nActiveRow, nActiveCol + 1).Selected End If Cancel = True End If End Sub Private Sub Label7_Click() If tkbase = 學(xué)生信息 Then If numpage 1 Then numpage = numpage 1 = numpag