【正文】 End If End Sub 的代碼為： Private Sub Command3_Click() = False = False = False = True = True = True = True = True = True = True = True = True End Sub 的代碼為： Private Sub Command4_Click() = False = False = False = False = False = False = False = True = True = True = False = False End Sub 的代碼為： Private Sub Command5_Click() = False = False = False = False = False = False = False = True = True = True = False = False End Sub 的代碼為： Private Sub Command6_Click() Unload Me End Sub 單選按鈕組的代碼為 ： Private Sub Option1_Click(index As Integer) If index = 0 Then = True = False = Else = True = False = End If End Sub 此窗體上用了 3個 Adodc 控件， Adodc1 用來連接教師考核收支表， Adodc2用來連接收入項目表， Adodc3 用來連接支出項目表。 第二步，選擇窗體或控件進行屬性設(shè)置， 先選取中需要設(shè)置屬性的對象 ，然后 在屬性窗口里顯示了該控件對象的所有屬性、事件和方法。 amp。 5． 4． 2 教師任課信息查詢模塊的實現(xiàn) 流程圖： 運行界面： 實現(xiàn)過程： N Y 開始 設(shè)置查詢條件查詢 是否繼續(xù) 退出 第一步將所需的控件放到表單的相應位置；方法：首先在“表單控件”工具欄先選中所需的控件圖件，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到表單上 ,如 上 圖： 包括的控件主要有：命令按鈕、文本框、單選按鈕、表格等。 = SQL If Then MsgBox 沒有該教師的情況！ , , 提示 = select * from 教師基本情況 End If End If If Then SQL = select * from 教師基本情況 where 系別 = 39。 “查詢”的主要代碼如下： Private Sub Command1_Click() N Y 開始 設(shè)置查詢條件查詢 是否繼續(xù) 退出 If Then SQL = select * from 教師基本情況 where 教師編號 = 39。 \教師考核 .mdb。 數(shù)據(jù)庫的連接方法同 ，主要代碼如 下： Private Sub Combo1_Click() Text1(1).Text = End Sub Private Sub Command1_Click() = False = False = False = True = True = True = True = True = True Text1(1).Text = For i = 0 To 5 Text1(i).Enabled = True Next Text1(0).SetFocus End Sub Private Sub Command2_Click() 增加記錄 If MsgBox(確認刪除當前記錄嗎？ , vbYesNo, 確認窗口 ) = vbYes Then = False = False If Then End If End If End Sub Private Sub Command3_Click() = False = False = False = True = True = True = True = True = True For i = 0 To 5 Text1(i).Enabled = True Next Text1(0).SetFocus End Sub Private Sub Command4_Click() = False = False 刪除記錄 修改記錄 = False = False For i = 0 To 5 Text1(i).Enabled = False Next = True = True = True = False = False End Sub Private Sub Command5_Click() = False = False = False = False = True = True = True = False = False End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub DataCombo1_Click(Area As Integer) 更新記錄 取消更新 Text1(3).Text = End Sub Private Sub DataCombo2_Click(Area As Integer) Text1(4).Text = End Sub Private Sub DataCombo3_Click(Area As Integer) Text1(5).Text = End Sub Private Sub Form_Load() 男 女 = amp。 \教師考核 .mdb 此屬性的作用是保證 Data 控件與數(shù)據(jù)庫相連。如下圖： Y N 開始 輸入登錄密碼 是否正確 主界面 第二步，選擇窗體或控件進行屬性設(shè)置，如圖為窗體的屬性設(shè)置界面 : 第三步雙擊相應的控件，在控件的相應過程中編寫代碼： 如此窗體上“進入”與“退出”按鈕的代碼如下： Private Sub Command1_Click() SQL = select * from 用戶管理 where user =39。一個更高級的連接形式稱為自連接。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。 Microsoft Office 的一個集成化的程序設(shè)計語言是 VBA(Visual Basic for Applications)，使用 VBA 可以創(chuàng)建非常實用的數(shù)據(jù)庫應用系統(tǒng)。 ②如何表示不同的成分內(nèi)的功能細節(jié)和數(shù)據(jù)結(jié)構(gòu)。 VB 通過數(shù)據(jù)庫引擎可以訪問的數(shù)據(jù)庫分如下三類 :內(nèi)部數(shù)據(jù)庫、外部數(shù)據(jù)庫和 ODBC 數(shù)據(jù)庫。它可以顯示數(shù)據(jù)并提 供查看或更新數(shù)據(jù)的所有對象，比如數(shù)據(jù)作業(yè)窗體，添加、刪除記錄或執(zhí)行查詢的 VB代碼等，這些對象隱含著用來請求數(shù)據(jù)庫服務的屬性、事件和方法。我們可以設(shè)置 DATA 控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。 2．為將來高等學校上網(wǎng)做好準備 跟據(jù) 2020 年中 國電信的調(diào)查報告顯示我國的上網(wǎng)人數(shù)已達到 1870 萬，互聯(lián)網(wǎng)已經(jīng)十分普及，本系統(tǒng)為高等學校將來的上網(wǎng)作了先期工作，比如計算機的財務管理模式的建立。 這些優(yōu)點能夠極大地提高教師考核管理的效率，也是高等學校管理的科學化、正規(guī)化管理，與先進科學技術(shù)接軌的重要條件。 關(guān)鍵字：教師考核 教師管理 任課 論文 MIS VB Summary Each a high etc. school that teacher investigate to manage the system a management information of is an indispensabilitying to manage the teacher system, its contents the governor of high etc. school e saying to is to the pass importance of, therefore the teacher investigate to manage the system to should can be for the ample information of governor offering that each a high etc. school with the fast search means, consumedly of high etc. school of convenience of governor. According to the teacher that the school that educational administration personnel provide information that investigate the management, development of management system of function as follows that attain:Basic information of teacher management, teacher term lesson circumstance the management, teacher announce thesis circumstance management, teacher section budget management, system maintenance. Key word:The teacher investigates the teacher management the term the lesson thesis MIS the VB 目 錄 第一章 緒 論 .................................................................................................................................4 1． 1 課題簡介 ................................................................................................................................4 1． 2 開發(fā)的意義 .............................................................................................................................4 1． 3 團隊構(gòu)成 ................................................................................................................................5 第二章 開發(fā)環(huán)境及實現(xiàn)技術(shù) ............................................................................................................6 2． 1 開發(fā)環(huán)境 ................................................................................................................................6 2． 2 開發(fā)工具簡介 .........................................................................................................................6 第三章 系統(tǒng)設(shè)計 ..............................................................................................................................8 3． 1 概要設(shè)計