【導(dǎo)讀】信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件信息，這。文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高人事管理的效率,也是企業(yè)的。科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。發(fā)一套教師工資管理系統(tǒng)為例,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。以關(guān)系數(shù)據(jù)庫(kù)產(chǎn)品為主流的數(shù)據(jù)庫(kù)時(shí)代。接相關(guān)的信息而且還對(duì)其他的數(shù)據(jù)庫(kù)系統(tǒng)有所補(bǔ)充。隨著科學(xué)技術(shù)的高速發(fā)展，MIS涉及的范圍還要擴(kuò)大。信息是經(jīng)過加工的數(shù)據(jù)，信息是對(duì)決策者有價(jià)值的數(shù)據(jù)。來源于行政管理等部門。信息具有時(shí)間性。

　　

【正文】 SQL = SQL amp。 ,39。 amp。 DLYongHuMing amp。 39。 SQL = SQL amp。 ,39。 amp。 DLQuanXian amp。 39。 SQL = SQL amp。 ) (SQL) End Sub 控制由“用戶登錄”界面控制。 Dim Cmdsize As Integer 39。按鈕位置變化標(biāo)志參數(shù) Private Sub Command1_Click() Cmdsize = 1 If QuanXian = (一般用戶 ) Then = True = False = True = True = False 教師工資管理系統(tǒng) 第 34頁(yè) = True Else = True = True = True = True End If = False = False = False = False = False = False = False = False = False = False = False = False = 0 = = = * 2 End Sub 編輯部門信息 教師工資管理系統(tǒng) 第 35頁(yè) Private Sub MSFlexGrid1_Click() Dim SQL As String Dim i As Integer For i = 0 To 1 39。清除表格控 件最左邊的選定當(dāng)前行標(biāo)志√ (i, 0) = Next SQL = amp。 vbCrLf SQL = SQL amp。 SELECT * amp。 vbCrLf SQL = SQL amp。 FROM 部門基本情況 amp。 vbCrLf If = 1 Then SQL, Cnndb, 3, 2 教師工資管理系統(tǒng) 第 36頁(yè) If 0 Then ChangeCheck = True (, 0) = √ 39。標(biāo)出表格控件最左邊的選定當(dāng)前行標(biāo)志 √ = (, 1) 39。將表格控件選定當(dāng)前行數(shù)據(jù)付給各個(gè)輸入框 = (, 2) = (, 3) MFGridClickTxtBmbh = (, 1) 39。進(jìn)行表格控件選定當(dāng)前行數(shù)據(jù)備份 MFGridClickTxtBmmc = (, 2) MFGridClickTxtBz = (, 3) End If End Sub Private Sub txtqtjb_GotFocus() Call TxtYellow(TxtQtjb) End Sub Private Sub txtccts_GotFocus() Call TxtYellow(TxtCcts) End Sub Private Sub txtbxts_GotFocus() Call TxtYellow(TxtBxts) End Sub Private Sub txtqjcs_GotFocus() Call TxtYellow(TxtQjcs) End Sub 教師工資管理系統(tǒng) 第 37頁(yè) Private Sub txtkgts_GotFocus() Call TxtYellow(TxtKgts) End Sub Private Sub txtcdcs_GotFocus() Call TxtYellow(TxtCdcs) End Sub Private Sub txtztcs_GotFocus() Call TxtYellow(TxtZtcs) End Sub Private Sub txtbz_GotFocus() Call TxtYellow(TxtBz) End Sub Private Sub cbobmmc_LostFocus() Call TxtWhite(CboBmmc) End Sub Private Sub cboygbh_LostFocus() Call TxtWhite(CboYgbh) End Sub Private Sub Txtygxm_LostFocus() Call TxtWhite(TxtYgxm) End Sub Private Sub Txtcqts_LostFocus() 教師工資管理系統(tǒng) 第 38頁(yè) Call TxtWhite(TxtCqts) End Sub Private Sub Txtjrjb_LostFocus() Call TxtWhite(TxtJrjb) End Sub Private Sub Txtqtjb_LostFocus() Call TxtWhite(TxtQtjb) End Sub Private Sub Txtccts_LostFocus() Call TxtWhite(TxtCcts) End Sub Private Sub Txtbxts_LostFocus() Call TxtWhite(TxtBxts) End Sub Private Sub Txtqjcs_LostFocus() Call TxtWhite(TxtQjcs) End Sub Private Sub Txtkgts_LostFocus() Call TxtWhite(TxtKgts) End Sub Private Sub Txtcdcs_LostFocus() Call TxtWhite(TxtCdcs) End Sub 教師工資管理系統(tǒng) 第 39頁(yè) Private Sub Txtztcs_LostFocus() Call TxtWhite(TxtZtcs) End Sub Private Sub Txtbz_LostFocus() Call TxtWhite(TxtBz) End Sub Private Sub cbobmmc_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case vbKeyReturn If CbobmmcCheck = True Then Case Else KeyAscii = 0 End Select End Sub Private 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 Select If Len() 5 Then 教師工資管理系統(tǒng) 第 40頁(yè) Select Case KeyAscii Case vbKeyBack Case vbKeyDelete Case vbKeyReturn Call TxtgxmMake Case Else KeyAscii = 0 End Select End If End Sub Private Sub TxtYgxm_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then End Sub Private 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 Select End Sub Private Sub Txtjrjb_KeyPress(KeyAscii As Integer) Select Case KeyAscii 教師工資管理系統(tǒng) 第 41頁(yè) Case Asc(0)