【正文】 se Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtztcs_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn 44 / 46 Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtbz_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then End SubPrivate Sub TxtCqts_Change() Call TxtdianCheck(TxtCqts)End SubPrivate Sub Txtjrjb_Change() Call TxtdianCheck(TxtJrjb)End SubPrivate Sub Txtqtjb_Change() Call TxtdianCheck(TxtQtjb)End SubPrivate Sub Txtccts_Change() Call TxtdianCheck(TxtCcts)End SubPrivate Sub Txtbxts_Change() Call TxtdianCheck(TxtBxts)End SubPrivate Sub Txtqjcs_Change()45 / 46 Call TxtdianCheck(TxtQjcs)End SubPrivate Sub Txtkgts_Change() Call TxtdianCheck(TxtKgts)End SubPrivate Sub Txtcdcs_Change() Call TxtdianCheck(TxtCdcs)End SubPrivate Sub Txtztcs_Change() Call TxtdianCheck(TxtZtcs)End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 CmdAdd_Click Case vbKeyF2 CmdFind_Click Case vbKeyF3 CmdChange_Click Case vbKeyF4 CmdDel_Click Case vbKeyF5 CmdClear_Click Case vbKeyF6 CmdPrint_Click Case vbKeyF746 / 46 CmdExit_Click End SelectEnd SubPrivate Sub Form_Load() Call DateLoad Call CboLoad(CboBmmc) Call DataFresh(select * from 教師考勤信息 where 考勤日期=39。 39。 amp。標(biāo)出表格控件最左邊的選定當(dāng)前行標(biāo)志√ = (, 1) 39。 SELECT * amp。Dim Cmdsize As Integer 39。 DLQuanXian amp。 39。33 / 46 SQL = SQL amp。 ,39。 amp。 ,權(quán)限 SQL = SQL amp。 ( SQL = SQL amp。定義記錄集變量Dim i As Integer 39。隨著開發(fā)設(shè)計的深入，我也逐漸掌握了一部分編程技巧，了解了一些關(guān)于編程方面的規(guī)律，一些困難也就迎刃而解了。開始時，我對 Visual Basic 和 Access 可30 / 46以說只是停留在書面上的了解，還不夠深入透徹。值得慶幸的是，發(fā)現(xiàn)的比較及時，還有足夠的時間讓我轉(zhuǎn)變思路，從頭開始。在本次的開發(fā)過程中，我意識到最重要的環(huán)節(jié)在于對系統(tǒng)的流程、功能模塊、框架結(jié)構(gòu)等方面的把握和設(shè)計。在此系統(tǒng)中只從軟盤中恢復(fù)數(shù)據(jù)庫文件。能對所有用戶進(jìn)行用戶名、密碼、權(quán)限修改，不但能更改而且還能進(jìn)行用戶添加和刪除。當(dāng)一般用戶和操作員進(jìn)入時，菜單欄中無該項。2瀏覽工資信息此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權(quán)限。由于修改記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)修改應(yīng)該與數(shù)據(jù)添加按鈕結(jié)合使用，先用查詢功能進(jìn)行對要修改記錄的搜索，再在數(shù)據(jù)表格中選中要修改的教師工資記錄，便把此教師工資記錄讀入文本框中，只需在文本框中直接進(jìn)行數(shù)據(jù)修改便可，修改完后按修改按鈕進(jìn)行確定，系統(tǒng)并對修改后的數(shù)據(jù)進(jìn)行合法性檢測，合法則修改成功。只需輸入該教師的其它工資信息即可完成教師工資信息編輯操作。圖 教師工資管理添加、查詢、修改、刪除的實現(xiàn)：1編輯工資信息作為編輯工資信息這一項，所實現(xiàn)的功能是對公司教師工資信息的存儲、計算與編輯，方便對教師工資的管理。由于刪除記錄不可能在大量的22 / 46 數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)刪除也有數(shù)據(jù)查找功能，先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)刪除的條件，再按刪除按鈕，系統(tǒng)便會列出滿足刪除條件的教師記錄，并提示是否刪除滿足條件的全部教師記錄，也可以一條一條刪除教師記錄，只要在數(shù)據(jù)表格中選中要刪除的教師記錄，在按一下刪除按鈕即可刪除數(shù)據(jù)。先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)查詢的條件，輸入完查詢條件后，點擊查詢按鈕進(jìn)行確定，系統(tǒng)便會查詢出滿足條件的教師記錄，并列到數(shù)據(jù)表格中，無滿足條件的教師記錄時，則彈出對話框提示“查無此記錄！” 。在此窗體中輸入的信息都進(jìn)過合法性檢測，判斷教師編號是否出現(xiàn)重復(fù)，位數(shù)是否為 6 位（前兩位為部門編號，后四位為教師自身編號）等。20 / 462瀏覽部門信息此窗體主要針對一般用戶，只有瀏覽功能，因為一般用戶只有瀏覽的權(quán)限。由于修改記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)修改應(yīng)該與數(shù)據(jù)添加按鈕結(jié)合使用，先用查詢功能進(jìn)行對要修改記錄的搜索，再在數(shù)據(jù)表格中選中要修改的部門記錄，便把此部門記錄讀入文本框中，只需在文本框中直接進(jìn)行數(shù)據(jù)修改便可，修改完后按修改按鈕進(jìn)行確定，系統(tǒng)并對修改后的數(shù)據(jù)進(jìn)行合法性檢測，合法則修改成功。再點擊添加19 / 46按鈕，用戶可再次添部門信息記錄。圖 18 / 46 部門信息管理添加、查詢、修改、刪除的實現(xiàn)：1編輯部門信息作為編輯部門信息這一項，所實現(xiàn)的功能是對公司各部門資料信息的存儲與編輯，部門信息包括：部門編號（兩位） 、部門名稱、備注。登錄者是操作員可以使用所有對數(shù)據(jù)的編輯功能，而如果登錄者是一般用戶時只能利用系統(tǒng)進(jìn)行資料查詢功能。定義記錄集變量If = 1 Then ‘判斷當(dāng)前表的狀態(tài)是否打開，是則關(guān)閉 SQL, Cnndb, 3, 2 ‘打開當(dāng)前表 系統(tǒng)功能實現(xiàn) 用戶登錄模塊設(shè)計 (1) 設(shè)計思路每個用戶登錄系統(tǒng)都須經(jīng)過身份驗證。data source = amp。因此，在設(shè)計時，我選擇使用 ADO 來控制管理數(shù)據(jù)庫。登陸系統(tǒng)時對用戶的請求進(jìn)行身份驗證，經(jīng)驗證合法后允許用戶登陸系統(tǒng)，進(jìn)行相應(yīng)權(quán)限對數(shù)據(jù)的處理，本系統(tǒng)能對用戶進(jìn)行管理，能進(jìn)行數(shù)據(jù)庫備份和恢復(fù)，確保數(shù)據(jù)的安全。*對其提供的教師工資資料情況進(jìn)行添加、計算、查詢、修改和刪除操作，并可按工資月份進(jìn)行分類。因此，該管理系統(tǒng)的目的就是利用計算機(jī)對復(fù)雜煩瑣的數(shù)據(jù)進(jìn)行存儲和處理，并利用計算機(jī)與現(xiàn)代化辦公設(shè)備的連接實時刷新數(shù)據(jù)，從而提高企業(yè)的工作效率。開發(fā)本系統(tǒng)希望使人事管理教師可以從年復(fù)一年的輸入、計算、統(tǒng)計等工作中解脫出來，由于人事方面的數(shù)11 / 46據(jù)眾多，輸入、統(tǒng)計極為不便，輸入量大，計算量大。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。該系統(tǒng)基本上滿足了用戶在學(xué)校信息管理方面的需求，用戶界面友好。極大地提高了應(yīng)用程序開發(fā)的效率。Visual Basic提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程教師的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。*對其提供的教師詳細(xì)信息資料進(jìn)行添加、查詢、修改和刪除操作，并可按考勤月份進(jìn)行分類。因此，該管理系統(tǒng)的目的就是利用計算機(jī)對復(fù)雜煩瑣的數(shù)據(jù)進(jìn)行存儲和處理，并利用計算機(jī)與現(xiàn)代化辦公設(shè)備的連接實時刷新數(shù)據(jù)，從而提高企業(yè)的工作效率。開發(fā)本系統(tǒng)希望使人事管理人員可以從年復(fù)一年的輸入、計算、統(tǒng)計等工作中解脫出來，由于人事方面的數(shù)據(jù)眾多，輸入、統(tǒng)計極為不便，輸入量大，計算量大。而將信息管理系統(tǒng)與企業(yè)自動化設(shè)備想結(jié)合，則是當(dāng)今社會現(xiàn)代企業(yè)的發(fā)展趨勢。并隨著計算機(jī)技術(shù)和通訊技術(shù)的迅速發(fā)展還會出現(xiàn)更多的內(nèi)容。3. 管理信息由信息的采集、信息的傳遞、信息的儲存、信息的加工、信息的維護(hù)和信息的使用五個方面組成。信息的加工方式有多種形式。信息是經(jīng)過加工的數(shù)據(jù)，信息是對決策者有價值的數(shù)據(jù)。它是一門新興的科學(xué)，是信息系統(tǒng)的重要分支之一。Visual Basic 提供了強(qiáng)有力的數(shù)據(jù)庫存取能力，將 Windows 的各種先進(jìn)特性與強(qiáng)大的數(shù)據(jù)庫管理功能有機(jī)地結(jié)合在一起。Access 2022 是微軟公司推出的關(guān)系數(shù)據(jù)庫產(chǎn)品。重點的說明了系統(tǒng)設(shè)計的重點、設(shè)計思想、難點技術(shù)和解決方案。而對于后者則要求應(yīng)用程序功能完備,易使用等特點。這些優(yōu)