【正文】 ger) 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。標(biāo)出表格控件最左邊的選定當(dāng)前行標(biāo)志√ = (, 1) 39。 FROM 部門基本情況 amp。 SELECT * amp。清除表格控件最左邊的選定當(dāng)前行標(biāo)志 √ (i, 0) = Next SQL = amp。Dim Cmdsize As Integer 39。 SQL = SQL amp。 DLQuanXian amp。 ,39。 39。 amp。33 / 46 SQL = SQL amp。 Time amp。 ,39。 39。 amp。 values ( SQL = SQL amp。 ,權(quán)限 SQL = SQL amp。 ,登陸時間 SQL = SQL amp。 ( SQL = SQL amp。數(shù)據(jù)存儲 Dim SQL As String SQL = SQL = insert into 登陸日志 amp。定義記錄集變量Dim i As Integer 39。通過這次系統(tǒng)開發(fā)，我不但初步掌握了兩種數(shù)據(jù)庫系統(tǒng)開發(fā)工具，也讓我看到了自己知識結(jié)構(gòu)、知識儲備、學(xué)習(xí)和應(yīng)用能力上的不足。隨著開發(fā)設(shè)計(jì)的深入，我也逐漸掌握了一部分編程技巧，了解了一些關(guān)于編程方面的規(guī)律，一些困難也就迎刃而解了。正因?yàn)檫@樣，所以在設(shè)計(jì)過程中往往會被一些問題卡住。開始時，我對 Visual Basic 和 Access 可30 / 46以說只是停留在書面上的了解，還不夠深入透徹。只有走好了這一步，整個系統(tǒng)的開發(fā)才能事半功倍，否則就會是“棋差一著，滿盤皆輸” 。值得慶幸的是，發(fā)現(xiàn)的比較及時，還有足夠的時間讓我轉(zhuǎn)變思路，從頭開始。在這方面我可以說是深有體會。在本次的開發(fā)過程中，我意識到最重要的環(huán)節(jié)在于對系統(tǒng)的流程、功能模塊、框架結(jié)構(gòu)等方面的把握和設(shè)計(jì)。選擇了 Access 2022 作為后端開發(fā)工具，開發(fā)數(shù)據(jù)庫功能，并選擇了 Visual Basic 作為界面前臺開發(fā)工具。在此系統(tǒng)中只從軟盤中恢復(fù)數(shù)據(jù)庫文件。在此系統(tǒng)中只把數(shù)據(jù)庫備份到軟盤中。能對所有用戶進(jìn)行用戶名、密碼、權(quán)限修改，不但能更改而且還能進(jìn)行用戶添加和刪除。一進(jìn)入此窗體便會顯示此用戶名，在舊密碼框中輸入原始密碼，在新密碼框中輸入想更改的新密碼，再在密碼確定中進(jìn)行新密碼確認(rèn)，按更改按鈕便可修改用戶密碼。當(dāng)一般用戶和操作員進(jìn)入時，菜單欄中無該項(xiàng)。 25 / 46圖 系統(tǒng)維護(hù)系統(tǒng)維護(hù)選項(xiàng)里包括密碼設(shè)置、用戶管理、數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)四個選項(xiàng)。2瀏覽工資信息此窗體主要針對一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。由于刪除記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)刪除也有數(shù)據(jù)查找功能，先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)刪除的條件，再按刪除按鈕，系統(tǒng)便會列出滿足刪除條件的教師工資記錄，并提示是否刪除滿足條件的全部教師工資記錄，也可以一條一條刪除教師工資記錄，只要在數(shù)據(jù)表格中選中要刪除的教師工資記錄，在按一下刪除按鈕即可刪除數(shù)據(jù)。由于修改記錄不可能在大量的數(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)行合法性檢測，合法則修改成功。先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)查詢的條件，輸入完查詢條件后，點(diǎn)擊查詢按鈕進(jìn)行確定，系統(tǒng)便會查詢出滿足條件的教師工資記錄，并列到數(shù)據(jù)表格中，無滿足條件的教師工資記錄時，則彈出對話框提示“查無此記錄！” 。只需輸入該教師的其它工資信息即可完成教師工資信息編輯操作。 23 / 46圖 (1)數(shù)據(jù)添加 當(dāng)操作員進(jìn)入系統(tǒng)，根據(jù)設(shè)計(jì)要求，需要添加新的教師工資信息時，先選定工資日期的年月，再在編輯工資信息窗體上按添加按鈕，便進(jìn)入添加狀態(tài)，文本框自動清空，光標(biāo)會停留在部門名稱下拉列表框上，選取部門，此時系統(tǒng)已自動找出該部門所屬的教師編號，只要在教師編號下拉列表框中選取即可，也可手動輸入教師編號。圖 教師工資管理添加、查詢、修改、刪除的實(shí)現(xiàn)：1編輯工資信息作為編輯工資信息這一項(xiàng)，所實(shí)現(xiàn)的功能是對公司教師工資信息的存儲、計(jì)算與編輯，方便對教師工資的管理。2瀏覽教師信息此窗體主要針對一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。由于刪除記錄不可能在大量的22 / 46 數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)刪除也有數(shù)據(jù)查找功能，先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)刪除的條件，再按刪除按鈕，系統(tǒng)便會列出滿足刪除條件的教師記錄，并提示是否刪除滿足條件的全部教師記錄，也可以一條一條刪除教師記錄，只要在數(shù)據(jù)表格中選中要刪除的教師記錄，在按一下刪除按鈕即可刪除數(shù)據(jù)。由于修改記錄不可能在大量的數(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)行合法性檢測，合法則修改成功。先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)查詢的條件，輸入完查詢條件后，點(diǎn)擊查詢按鈕進(jìn)行確定，系統(tǒng)便會查詢出滿足條件的教師記錄，并列到數(shù)據(jù)表格中，無滿足條件的教師記錄時，則彈出對話框提示“查無此記錄！” 。再點(diǎn)擊添加按鈕，用戶可再次添教師信息記錄。在此窗體中輸入的信息都進(jìn)過合法性檢測，判斷教師編號是否出現(xiàn)重復(fù)，位數(shù)是否為 6 位（前兩位為部門編號，后四位為教師自身編號）等。 教師信息管理添加、查詢、修改、刪除的實(shí)現(xiàn)：1編輯教師信息作為編輯教師信息這一項(xiàng)，所實(shí)現(xiàn)的功能是對教師資料信息的存儲與編輯，方便對教師的分類與管理。20 / 462瀏覽部門信息此窗體主要針對一般用戶，只有瀏覽功能，因?yàn)橐话阌脩糁挥袨g覽的權(quán)限。由于刪除記錄不可能在大量的數(shù)據(jù)中盲目的尋找，因此數(shù)據(jù)刪除也有數(shù)據(jù)查找功能，先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)刪除的條件，再按刪除按鈕，系統(tǒng)便會列出滿足刪除條件的部門記錄，并提示是否刪除滿足條件的全部部門記錄，也可以一條一條刪除部門記錄，只要在數(shù)據(jù)表格中選中要刪除的部門記錄，在按一下刪除按鈕即可刪除數(shù)據(jù)。由于修改記錄不可能在大量的數(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)行合法性檢測，合法則修改成功。先在對應(yīng)的文本框中輸入要進(jìn)行數(shù)據(jù)查詢的條件，輸入完查詢條件后，點(diǎn)擊查詢按鈕進(jìn)行確定，系統(tǒng)便會查詢出滿足條件的部門記錄，并列到數(shù)據(jù)表格中，無滿足條件的部門記錄時，則彈出對話框