【正文】 End Sub Public Sub showleave() = select * from leave For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(1).Checked = True cutable = leave cuTabCh = True End Sub Public Sub showsalary() = select * from salary For i = 0 To 2 Mtab(i).Checked = False Next i 14 Mtab(2).Checked = True cutable = salary cuTabCh = True End Sub Private Sub Form_Load() Dim fil, tbcount, i As Integer Dim Tbstr(50), Tbnam(50) As String = + \ = + \ = select * from employee Call showemployee If Dir( + \) = Then 定制 定制 Else fil = FreeFile() Open + \ For Input As fil Do While Not EOF(fil) Input fil, Tbnam(i), Tbstr(i) i = i + 1 Loop Close fil tbcount = i For i = 0 To tbcount If Tbnam(i) = lsdegree Then Tbstr(i) ElseIf Tbnam(i) = lsdepart Then Tbstr(i) End If Next i 定制 定制 15 End If End Sub Private Sub Form_Unload(Cancel As Integer) End End Sub Private Sub DBGA_ButtonClick(ByVal ColIndex As Integer) Dim Co As Column Set Co = (ColIndex) Select Case ColIndex Case 4 = + + = + () = True 0 Case 7 39。 ), vbExclamation Unload Me End If 39。設(shè)置 lsdepart 的顯示項 For i = 0 To 2 (i) If (i) = (8) Then = i End If Next i If = 1 Then (8) = 1 10 End If 定制 39。(i) = 0 Next i End Sub Private Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End If End Sub Private Sub Lab_Click(Index As Integer) End Sub Private Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack And Index = 0 Then KeyAscii = 0 Exit Sub End If If = leave And Index = 1 Then If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack Then 7 KeyAscii = 0 Exit Sub End If End If If = salary Then If Index = 3 Then If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If Index = 13 Then Exit Sub If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack And KeyAscii 46 Then KeyAscii = 0 Exit Sub End If End If End Sub Private Sub Txt_change(Index As Integer) If Bupdata = False Then Bupdata = True If = salary Then If Txt(Index).Text = Then Exit Sub If Index = 4 And Index = 6 Then Txt(7).Text = Val(Txt(4).Text) + Val(Txt(5).Text) + Val(Txt(6).Text) Txt(12).Text = Val(Txt(7).Text) Val(Txt(11).Text) End If If Index = 8 And Index = 10 Then Txt(11).Text = Val(Txt(8).Text) + Val(Txt(9).Text) + Val(Txt(10).Text) Txt(12).Text = Val(Txt(7).Text) Val(Txt(11).Text) End If 8 End If End Sub Private Sub Form_Load() = + \ = + \ = = select * from + = select * from + Txt(0).Locked = True 39。附錄： 畢業(yè)設(shè)計程序清單 設(shè)計題目 人事管理系統(tǒng) 教 學(xué) 班： 學(xué)生姓名： 學(xué) 號： 指導(dǎo)教師： 完成日期： 1 Option Explicit Dim Bupdata As Boolean Dim i As Integer Private Sub Cmbdegree_Click() If = 定制 Then = 0 End If End Sub Private Sub Cmbdepart_Click() If = 定制 Then = 0 End If End Sub Private Sub CmdAddNew_Click() If = 添加 Then = 確認(rèn) = False = False = False For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i If = employee Then 職工編號 = + Txt(0).Text If Not Then MsgBox 職員編號重復(fù) Txt(0).Text = Txt(