【正文】 字 Visual Basic Access2022 控件 窗體 域Abstract The system of managing census register file is a typical application of managing information system （know as MIS）,which mainly includes building up database of backend and developing the application interface of frontend. The former required consistency and integrality and security of data. The later should make the application powerful and easily used.By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a database. It can give you a shortcut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.Key Word Visual Basic 、Access202ActiveX、Form、Field4 / 46目 錄引言第一章 MIS 簡(jiǎn)介 什么是 MIS 系統(tǒng) MIS 的主要任務(wù)第二章 系統(tǒng)需求分析2．1 系統(tǒng)設(shè)計(jì)背景介紹 系統(tǒng)功能分析第三章 系統(tǒng)設(shè)計(jì)平臺(tái)及相關(guān)工具軟件簡(jiǎn)介 設(shè)計(jì)平臺(tái)： VISUAL BASIC 數(shù)據(jù)庫(kù)： MICROSOFT ACCESS第四章 教師工資管理系統(tǒng)總體設(shè)計(jì)4．1 系統(tǒng)設(shè)計(jì)4．2 數(shù)據(jù)庫(kù)設(shè)計(jì)第五章 數(shù)據(jù)模塊創(chuàng)建及功能實(shí)現(xiàn) 數(shù)據(jù)模塊的創(chuàng)建 系統(tǒng)功能實(shí)現(xiàn)第六章 系統(tǒng)功能測(cè)試總結(jié)參考文獻(xiàn)5 / 46引言隨著信息技術(shù)的飛速發(fā)展，特別是數(shù)據(jù)庫(kù)技術(shù)的發(fā)展，計(jì)算機(jī)已經(jīng)成為當(dāng)今信息時(shí)代的關(guān)鍵工具。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。Access 與許多優(yōu)秀的關(guān)系數(shù)據(jù)庫(kù)一樣，可以讓你很容易地連接相關(guān)的信息而且還對(duì)其他的數(shù)據(jù)庫(kù)系統(tǒng)有所補(bǔ)充。系統(tǒng)有兩個(gè)以上要素，各要素和整體之間，整體和環(huán)境之間存在一定的有機(jī)聯(lián)系。本系統(tǒng)一次錄入信息后，就可以反復(fù)多次在不同的信息庫(kù)中使用。通過(guò)對(duì)計(jì)算機(jī)硬件和軟件解決方案的論證，對(duì)應(yīng)用領(lǐng)域進(jìn)行調(diào)查分析，參考各種資料和進(jìn)行數(shù)據(jù)庫(kù)編程實(shí)踐，在指導(dǎo)老師的幫助下，已經(jīng)基本上成功地實(shí)現(xiàn)了設(shè)計(jì)要求。本系統(tǒng)一次錄入信息后，就可以反復(fù)多次在不同的信息庫(kù)中使用。 部分有關(guān)代碼如下：Dim rc As New 39。作為部門信息與教師信息有著密切的關(guān)系，每一名教師都從屬一個(gè)部門。再點(diǎn)擊添加按鈕，用戶可再次添教師信息記錄。先在對(duì)應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)查詢的條件，輸入完查詢條件后，點(diǎn)擊查詢按鈕進(jìn)行確定，系統(tǒng)便會(huì)查詢出滿足條件的教師工資記錄，并列到數(shù)據(jù)表格中，無(wú)滿足條件的教師工資記錄時(shí)，則彈出對(duì)話框提示“查無(wú)此記錄！” 。在此系統(tǒng)中只把數(shù)據(jù)庫(kù)備份到軟盤中。正因?yàn)檫@樣，所以在設(shè)計(jì)過(guò)程中往往會(huì)被一些問(wèn)題卡住。 values ( SQL = SQL amp。 ,39。進(jìn)行表格控件選定當(dāng)前行數(shù)據(jù)備份 MFGridClickTxtBmmc = (, 2) MFGridClickTxtBz = (, 3) End IfEnd SubPrivate Sub txtqtjb_GotFocus() Call TxtYellow(TxtQtjb)End SubPrivate Sub txtccts_GotFocus() Call TxtYellow(TxtCcts)End SubPrivate Sub txtbxts_GotFocus() Call TxtYellow(TxtBxts)End SubPrivate Sub txtqjcs_GotFocus() Call TxtYellow(TxtQjcs)37 / 46End SubPrivate Sub txtkgts_GotFocus() Call TxtYellow(TxtKgts)End SubPrivate Sub txtcdcs_GotFocus() Call TxtYellow(TxtCdcs)End SubPrivate Sub txtztcs_GotFocus() Call TxtYellow(TxtZtcs)End SubPrivate Sub txtbz_GotFocus() Call TxtYellow(TxtBz)End SubPrivate Sub cbobmmc_LostFocus() Call TxtWhite(CboBmmc)End SubPrivate Sub cboygbh_LostFocus() Call TxtWhite(CboYgbh)End SubPrivate Sub Txtygxm_LostFocus() Call TxtWhite(TxtYgxm)End Sub38 / 46Private Sub Txtcqts_LostFocus() Call TxtWhite(TxtCqts)End SubPrivate Sub Txtjrjb_LostFocus() Call TxtWhite(TxtJrjb)End SubPrivate Sub Txtqtjb_LostFocus() Call TxtWhite(TxtQtjb)End SubPrivate Sub Txtccts_LostFocus() Call TxtWhite(TxtCcts)End SubPrivate Sub Txtbxts_LostFocus() Call TxtWhite(TxtBxts)End SubPrivate Sub Txtqjcs_LostFocus() Call TxtWhite(TxtQjcs)End SubPrivate Sub Txtkgts_LostFocus() Call TxtWhite(TxtKgts)End SubPrivate Sub Txtcdcs_LostFocus() Call TxtWhite(TxtCdcs)39 / 46End SubPrivate Sub Txtztcs_LostFocus() Call TxtWhite(TxtZtcs)End SubPrivate Sub Txtbz_LostFocus() Call TxtWhite(TxtBz)End SubPrivate Sub cbobmmc_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKeyReturn If CbobmmcCheck = True Then Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub cboygbh_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Call TxtgxmMake Case Else KeyAscii = 0 End Select40 / 46 If Len() 5 Then Select Case KeyAscii Case vbKeyBack Case vbKeyDelete Case vbKeyReturn Call TxtgxmMake Case Else KeyAscii = 0 End Select End IfEnd SubPrivate Sub TxtYgxm_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then End SubPrivate Sub Txtcqts_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtjrjb_KeyPress(KeyAscii As Integer)41 / 46 Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else