error:
If ResOpen = 1 Then
RES.Close
ResClose = 1
ResOpen = 0
End If

End Sub

Private Sub Command3_Click()
Call showdata
End Sub

Private Sub Command4_Click()
 
CHANGE.ActiveConnection = Comsalary
CHANGE.Source = "select * from 工資表"
CHANGE.Open
 
CHANGE.MoveFirst

While Not CHANGE.EOF
    Call refreshsalary(CHANGE.Fields("原工資"), CHANGE.Fields("入校時間"), CHANGE.Fields("贍養人數"))
    
    CHANGE.MoveNext
Wend
Call showdata
CHANGE.Close
End Sub

Private Sub Command5_Click()
Dim Delno As String
Dim Nextres As Integer
If ResOpen = 1 Then
RES.Close
ResOpen = 0
ResClose = 0
End If
Delno = InputBox("輸入要刪除的教師的序號")
If IsNumeric(Delno) Then
RES.Source = "select *from 工資表"
RES.Open
ResOpen = 1
ResClose = 0
RES.MoveFirst
While Not RES.EOF
    Nextres = Nextres + 1
    If RES.Fields(0) = Int(Delno) Then
        If ResOpen = 1 Then
        RES.Close
        ResOpen = 0
        ResClose = 1
        
        End If
        
        RES.Source = "delete  工資表 where 序號= ' " & Delno & " '"
        RES.Open
        ResOpen = 1
        ResClose = 0
        MsgBox " 刪除成功"
        Me.Adodc1.Refresh
        ResOpen = 0
        ResClose = 1
        Call showdata '刷新顯示
        ResOpen = 0
        ResClose = 1
        Exit Sub
        Nextres = -1
        End If
        
     
    
    RES.MoveNext
Wend
If Nextres <> -1 Then
MsgBox "沒有此記錄 刪除失敗"
End If

End If


End Sub

Private Sub Command7_Click()
Dim UpdateIndex As String
Dim i As Integer
Dim Upname As String
Dim Upnewsalry As String
Dim Uppeople As String
Dim Uptime As String

If ResOpen = 1 Then
    RES.Close
    ResOpen = 0
    ResClose = 1
End If
 
 UpdateIndex = InputBox("輸入要更改教師的序號")
 If IsNumeric(UpdateIndex) Then
 RES.Source = "select * from 工資表"
 RES.Open
 ResClose = 0
 ResOpen = 1
 Else
 GoTo error
 End If
  While Not RES.EOF
        '查找你要更新的記錄
        If RES.Fields(0) = Int(UpdateIndex) Then
        i = 1
        '查找到 輸入新記錄信息
            
            
            '該姓名--------------------------------------------------------
            If ResOpen = 1 Then
                    RES.Close
                    ResOpen = 0
                    ResClose = 1
            End If
            Upname = InputBox("輸入新姓名，如果保持原來姓名，單擊取消")
            If Len(Upname) > 20 Then
                MsgBox "姓名長度小于２０"
                Upname = ""
            End If
            If Upname <> "" Then
                
                    RES.ActiveConnection = Comsalary
                    RES.Source = "update 工資表 set 姓名 ='" & Upname & "' where 序號= '" & UpdateIndex & "'"
                    RES.Open
            
            End If
            
            '改日期 ------------------------------------------------------------
            Uptime = (InputBox("輸入新的入校日期，如果保持原來的值，單擊取消"))
            If Not IsDate(Uptime) And Uptime <> "" Then
                MsgBox "輸入的日期格式不能識別"
                Uptime = ""
            End If
            If Uptime <> "" Then
                RES.Source = "update 工資表 set 入校時間 ='" & Uptime & "' where 序號= '" & UpdateIndex & "'"
                RES.Open
            End If
            '改工資-------------------------------------------------------------
            Upnewsalry = InputBox("輸入新的工資，如果保持原來的值，單擊取消")
            If Not IsNumeric(Upnewsalry) And Upnewsalry <> "" Then
                MsgBox "輸入錯誤"
                Upnewsalry = ""
            End If
            If Upnewsalry <> "" Then
                RES.Source = "update 工資表 set 原工資 ='" & Upnewsalry & "' where 序號= '" & UpdateIndex & "'"
                RES.Open
            End If
            
            '改贍養人數-----------------------------------------------------
            Uppeople = InputBox("輸入新的贍養人數，如果保持原來的值，單擊取消")
            If Not IsNumeric(Uppeople) And Uppeople <> "" Then
                
                MsgBox "輸入錯誤"
                Uppeople = ""
            End If
            
            If Uppeople <> "" Then
                RES.Source = "update 工資表 set 贍養人數 ='" & Uppeople & "' where 序號= '" & UpdateIndex & "'"
                RES.Open
               
                
                 '更改后退出  自動關閉游標
            End If
            Call showdata
            ResOpen = 0
            ResClose = 1
                
            Exit Sub
        End If
         
        
        RES.MoveNext
        
    Wend
 If i <> 1 Then
 MsgBox "不存在序號為 " & UpdateIndex & " 的教師　更新無法完成"
 GoTo error
 End If
 
  
 Firstupdate = 9
 
 
 '未更改退出,關閉游標
 RES.Close
 ResClose = 1
 ResOpen = 0
error:
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub edition_Click()
Form4.Show
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_load()

ResClose = 1
If ResClose = 1 Then
RES.ActiveConnection = Comsalary
Firstadd = 1
Firstupdate = 1
End If
 
Call showdata
 End Sub
'顯示列表
Public Sub showdata()
'游標的SQL語句
'RES.Close
If ResOpen = 1 Then  '若游標打開,則關閉他重新打開
    RES.Close
    ResClose = 0
    ResOpen = 1
End If

'重新用查詢語句將游標打開
RES.ActiveConnection = Comsalary
RES.Source = "select * from 工資表"
RES.Open
ResOpen = 1
ResClose = 0
Me.List1.Clear '清空列表

'當游標指向的記錄存在時操作
Me.List1.List(0) = RES.Fields(0).Name & "       " & RES.Fields(1).Name & "                          " & RES.Fields(2).Name & "       " & RES.Fields(3).Name & "       " & RES.Fields(4).Name & "       " & RES.Fields(5).Name
  Index = 1
   RES.MoveFirst
While Not RES.EOF
 For num = 0 To RES.Fields.Count - 1
 Me.List1.List(Index) = Me.List1.List(Index) & RES.Fields(num) & "          "
 Next
 RES.MoveNext
 Index = Index + 1
Wend
RES.Close
ResClose = 1
ResOpen = 0
End Sub

Public Sub refreshsalary(sa As Long, year As Date, people As Long)
Dim OP As Long
Dim OY As Integer
If ResOpen = 1 Then
RES.Close
ResOpen = 0
ResClose = 1
End If
OY = Now - year
OY = OY / 365
If Int(year) < 0 Then
    MsgBox "工齡為負數,計算終止"
    End
    
End If
If Int(people) < 0 Then
    MsgBox "贍養人數為負數,計算終止"
    End
End If

If sa > 26000 Then
    OP = sa
Else
    OP = sa + 100 * people + Int(OY) * 50
    If OP > 26000 Then
        OP = 26000
    End If
End If
    RES.Source = "update 工資表 set 更改工資 = '" & OP & "' where 原工資 = '" & sa & "'"
    RES.Open
    ResClose = 1
    ResOpen = 0
     
End Sub