【正文】 ql = sql amp。 (hang, j).Text amp。 ”=39。 tkbase amp?？罩档奶幚?(i, j).Text = ”“ Else (i, j).Text = (j1)= Null Then 39。 ”頁“ ElseIf tkbase = ”學(xué)生與課程“ Then If numpage 1 Then numpage = numpage1)= Null Then 39。 ”頁 第“ amp。讀取上一記錄 Next End If = ”共“ amp。設(shè)定讀取行 For j = 1 To fnumber 39。設(shè)定讀取列If = True Then Exit Sub End If If Not (j1)Else (i, j).Text = ”“ End If Next If = False Then 39。 ”頁“ = 1 = 21 If = 0 Then Exit Sub End If = numpage For i = 1 To 39。 ”頁 第“ amp?？罩档奶幚?i, j).Text = (j1).Name Next = 20 nnum = If = 0 Then nnum = 1 End If numpage = 1 = ”共“ amp。允許刪除 gridedit = True If tkbase = ”學(xué)生信息“ Then If = adStateOpen Then 39。輸入成績 = False = False = False End If With = = False.ExtendLastCol = True.Appearance = = = Flat. = “Tahoma”. = = 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 = = = = = = = = = = = = = “Tahoma”. = = 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 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 SubPrivate Sub Grid2_CellChange(ByVal Row As Long, ByVal Col As Long)39。增加學(xué)生 = False 39。 “日,歡迎您進(jìn)入!” = False = RGB(167, 111, 177)39。 “月” amp。 “年” amp。進(jìn)行注冊 = “今天是” amp。確認(rèn)默認(rèn)年齡在20歲左右If Row 0 Then (Row, 5).Text = Date1 Then(nActiveRow, nActiveCol + 1, _nActiveRow, nActiveCol + 1).SelectedEnd IfCancel = TrueEnd If End Sub Private Sub Form_Load()On Error GoTo finish “CNwinndy”, “W]vyYnonvkuntyZbl_e`hms^” 39。 “39?！?amp。360是每個按鈕的高度Y = YjX = X360j = 0NextEnd If s = sFre2(y1).TopElseFre2(y1).Height = (y1).HeightEnd IfElseFre2(y1).Visible = FalseEnd If Next Loop je = i 39。j計算按鈕的寬度Do While s 0 39。Z沒用上 x1 = s 39。將x,y,z,x1賦于菜單總數(shù),x存放frame1的固定值 Y = s 39。提交內(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。 “” amp。 “” amp。 tkbase amp。處理grid1的操作 = fnumber + 1 (1).Width = 120 (2).Width = 100 (3).Width = 80 (4).Width = 40 (5).Width = 80 (6).Width = 30 (7).Width = 50 (8).Width = 80 (9).Width = 60 (10).Width = 80 (11).Width = 100 (12).Width = 100 (13).Width = 100 (4).CellType = cellComboBox (4).Clear (4).AddItem “男” (4).AddItem “女” (5).CellType = cellCalendar (2).CellType = cellComboBox (2).Clear Set qy2 = (“select 班級名稱 from 班級”)Do While Not (2).AddItem (0) Loop (9).CellType = cellComboBox (9).Clear (9).AddItem “團員” (9).AddItem “黨員” (9).AddItem “無” (1).Locked = True End SubPrivate Sub asPopup10_Click(Cancel As Boolean)Dim fo2 As CTranslucentForm Set fo2 = New CTranslucentForm = = 90 / 100 * 255 = vbMinimized Load Form6 1 End SubPrivate Sub asPopup2_Click(Cancel As Boolean) = True = False tkbase = “學(xué)生信息” fnumber = 13 Set qy1 = (“select * from ” amp。執(zhí)行g(shù)rid1的分配空間任務(wù) datagrid 39。 tkbase amp。第五章程序及其分析 5．1 程序框圖5．2 主界面圖：5．3信息查詢圖表及代碼 Dim i, j, n As Integer Dim sql As String Private Declare Function GetKeyState Lib “user32” _(ByVal nVirtKey As Long)As Integer Public je As Integer 39。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。一個更高級的連接形式稱為自連接。實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。本系統(tǒng)就用了Cool工具中的Statubar控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第一個欄中，在樣式這一欄中選擇了文本，在第二個欄中，選擇了系統(tǒng)日期，第三個欄中選擇了系統(tǒng)時間，這樣，任何時候操作本系統(tǒng)，都可以看到當(dāng)前的時間和日期。選擇“工程”下拉菜單中的“部件”選項，顯示“部件”對話框。CoolBar就是一個可以在窗體上浮動的工具，同時也是其他ActiveX的容器。本系統(tǒng)使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單，您也可以使用Visual Basic 的Application Wizard 來操作。Visual Basic 應(yīng)用由一系列對象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應(yīng)用中重復(fù)使用。開發(fā)人員可以最有效利用所創(chuàng)建的每一個對象。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，由 Visual Basic 自動生成對象的程序代碼并封裝起來。 面對對象的編程面向?qū)ο蟮脑O(shè)計方法(OOP, Objected Programming)從應(yīng)用領(lǐng)域內(nèi)的問題著手，以直觀自然的方式描述客觀世界的實體。(7)模塊(Module)模塊是指一些運算量或過程進(jìn)行聲明或定義的一個集合。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。(5)方法(Method)方法主要是指對一個對象使用某種作用的過程。VB系統(tǒng)常用事件來引導(dǎo)計算機執(zhí)行一段程序。比如，對象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。(3)屬性(Properties)屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。用戶可以通過設(shè)置對象的“屬性”和“方法”，便于對象適應(yīng)自己所設(shè)計應(yīng)用程序的輸入輸出內(nèi)容，對象的生成過程及結(jié)構(gòu)都被封裝起來。本程序所應(yīng)用到的對象類型有標(biāo)簽框(Label Box)，文本框(Text Box)，命令按扭(Command Button)，網(wǎng)格(Data Grid)，ADO控件(Adodc1)等。VB系統(tǒng)的人機交互界面或接口，無論是在設(shè)計時或是在運行時，都是Windows 系統(tǒng)的標(biāo)準(zhǔn)視窗。 Basic 系統(tǒng)幾個在程序應(yīng)用中的常用名詞Visual Basic 系統(tǒng)除了一般高級語言所具有的一些名詞術(shù)語外，還有幾個系統(tǒng)常用的名詞。（1）可視化設(shè)計：表現(xiàn)在VB在設(shè)計應(yīng)用于程序界面時有“所見即所得”的處理功能。新的向?qū)в校簲?shù)據(jù)對象生成向?qū)Ш凸ぞ邨l向?qū)А?.[應(yīng)用程序安裝向?qū)能幫助用戶自動生成具有一定功能的應(yīng)用程序，大大加快了程序的開發(fā)速度。另外他所提供的[可視化數(shù)據(jù)管理器]能幫助用戶構(gòu)造多種類型的數(shù)據(jù)庫，同時提供了能自動生成SQL語句的功能和新的ActiveX數(shù)據(jù)對象ADO。、功能強大的多媒體控件，能幫助用戶在較短時間內(nèi)用較少的語句編寫出圖文聲像并茂的多媒體程序。 Basic ，Internet應(yīng)用程序的開發(fā)功能更加強大和容易。Visual Basic 還支持用戶自己開發(fā)ActiveX控件和制作ActiveX文檔。Visual Basic 語言簡單易學(xué)，只要稍有語言基礎(chǔ)就可以很快的掌握并進(jìn)而精通。Visual Basic 開發(fā)語言及環(huán)境簡介 Visual Basic ，他包含了數(shù)百條語句。在設(shè)計過程中力求完善系統(tǒng)功能，使界面友好，具有一定的容錯能力，在使用過程中不會出現(xiàn)難以糾正的錯誤和毛病。 完善的聯(lián)機幫助功能強大的聯(lián)機幫助功能和示范代碼，設(shè)計任何時候，只需按下F1鍵，就會顯示必要的提示，運行時，也會對出現(xiàn)的錯誤給出一定的提示。利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立和編輯MS Access 格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能，同時還能直接編輯和訪問其他外部數(shù)據(jù)庫，如Dbase、FoxPro、Paradox等。VB提供的動態(tài)數(shù)據(jù)交換DDE編程技術(shù)，可以在應(yīng)用程序中實現(xiàn)與Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換、在不同的應(yīng)用程序之間通行功能。傳統(tǒng)的應(yīng)用開發(fā)過程由編碼、編譯和調(diào)試代碼3個步驟組成。VB開發(fā)的應(yīng)用程序，沒有明顯的開始和結(jié)束標(biāo)志。設(shè)計程序時只需從現(xiàn)有工具箱中拖出所需的對象，如按鈕、滾動條等，在屏幕上設(shè)計出用戶所要求的布局，VB自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需編寫實現(xiàn)程序功能所需的代碼即可，因而程序設(shè)計的效率大大提高。學(xué)生學(xué)籍管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生檔案管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。而長期以來，學(xué)籍管理都是以來人工進(jìn)行的，面對如此眾多的學(xué)籍信息，起工作量可想而知。在下面的各章中我將以開發(fā)學(xué)籍管理系統(tǒng)為例，談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。這些優(yōu)點能夠極大地提高學(xué)生學(xué)籍管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。作為計算機應(yīng)用的一部分，使用計算機對學(xué)籍信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點，如：效率低、保密性差，另外時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護都帶來了不少的困難。管理員可以擁有完全的權(quán)限管理系統(tǒng)，而學(xué)生用戶只擁有查詢學(xué)籍信息和查詢成績信息的權(quán)限。通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速查詢，從而減少管理方面的工作量。隨著學(xué)校的規(guī)模不斷擴大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息也成倍增長。但在我國，由于各種原因，管理信息系統(tǒng)的發(fā)展處于初級的數(shù)據(jù)處理階段，盡管如此，充分利用我們現(xiàn)有的資源和力量，開發(fā)一些適合于本企業(yè)或本行業(yè)的管理信息系統(tǒng)。這就導(dǎo)致了