?? frmxingwen.frm

?? 事務管理
?? FRM
?? 第 1 頁 / 共 4 頁
字號:
上一頁 1 2 34
       Case 3
            rs_kehu.MoveFirst
            viewdata_kehu
End Select
firsterror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Private Sub cmdlast_Click()
On Error GoTo lasterror
Select Case SSTab1.Tab
       Case 0
            rs_xingwen.MoveLast
            viewdata_xingwen
       Case 1
            rs_xinhan.MoveLast
            viewdata_xinhan
       Case 2
            rs_baobiao.MoveLast
            viewdata_baobiao
       Case 3
            rs_kehu.MoveLast
            viewdata_kehu
End Select
lasterror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Private Sub cmdmodify_Click()
Dim i As Integer
On Error GoTo modifyerror
Frame1.Enabled = False
If cmdmodify.Caption = "修改記錄" Then                   '當此按鈕的狀態(tài)為為“增加記錄”時
   cmdmodify.Caption = "確定"                            '按鈕名稱改為“確定”
   cmdadd.Enabled = False                                '刪除與增加按鈕不可用
   cmddel.Enabled = False
   cmdcancel.Enabled = True
   Select Case SSTab1.Tab
          Case 0
               For i = 1 To 11                           '編號不可以改變
                   Text1(i).Enabled = True               '各文本框可用
               Next i
          Case 1
               For i = 1 To 7
                   Text2(i).Enabled = True
               Next i
          Case 2
               For i = 1 To 8
                   Text3(i).Enabled = True
               Next i
          Case 3
               For i = 1 To 7
                   Text4(i).Enabled = True
               Next i
   End Select
ElseIf cmdmodify.Caption = "確定" Then                    '當按鈕的狀態(tài)為“確定”時
   Select Case SSTab1.Tab
          Case 0
               If Not IsDate(Text1(1).Text) Then
                  MsgBox "請按照yyyy-mm-dd格式輸入發(fā)文日期", vbOKOnly + vbExclamation, ""
                  Text1(1).SetFocus
                  Exit Sub
               End If
               Text1(1) = Format(Text1(1), "yyyy-mm-dd")  '轉(zhuǎn)化為正確的格式
               For i = 1 To 11
                  rs_xingwen.Fields(i) = Trim(Text1(i).Text)
                  Text1(i).Enabled = False
               Next i
               rs_xingwen.Update
          Case 1
               If Not IsDate(Text2(1).Text) Then
                  MsgBox "請按照yyyy-mm-dd格式輸入信件日期", vbOKOnly + vbExclamation, ""
                  Text2(1).SetFocus
                  Exit Sub
               End If
               If Not IsDate(Text2(7).Text) Then
                  MsgBox "請按照yyyy-mm-dd格式輸入回函日期", vbOKOnly + vbExclamation, ""
                  Text2(7).SetFocus
                  Exit Sub
               End If
               Text2(1) = Format(Text2(1), "yyyy-mm-dd")  '轉(zhuǎn)化為正確的格式
               Text2(7) = Format(Text2(7), "yyyy-mm-dd")
               For i = 1 To 7
                  rs_xinhan.Fields(i) = Trim(Text2(i).Text)
                  Text2(i).Enabled = False
               Next i
               rs_xinhan.Update
          Case 2
               If Not IsDate(Text3(1).Text) Then
                  MsgBox "請按照yyyy-mm-dd格式輸入報表日期", vbOKOnly + vbExclamation, ""
                  Text3(1).SetFocus
                  Exit Sub
               End If
               Text3(1) = Format(Text3(1), "yyyy-mm-dd")
               For i = 1 To 8
                  rs_baobiao.Fields(i) = Trim(Text3(i).Text)
                  Text3(i).Enabled = False
               Next i
               rs_baobiao.Update
          Case 3
               If Not IsDate(Text4(1).Text) Then
                  MsgBox "請按照yyyy-mm-dd格式輸入投訴日期", vbOKOnly + vbExclamation, ""
                  Text4(1).SetFocus
                  Exit Sub
               End If
               If Not IsDate(Text4(5).Text) Then
                  MsgBox "請按照yyyy-mm-dd格式輸入受訴日期", vbOKOnly + vbExclamation, ""
                  Text4(5).SetFocus
                  Exit Sub
               End If
               Text4(1) = Format(Text4(1), "yyyy-mm-dd")
               Text4(5) = Format(Text4(5), "yyyy-mm-dd")
               For i = 1 To 7
                  rs_kehu.Fields(i) = Trim(Text4(i).Text)
                  Text4(i).Enabled = False
               Next i
               rs_kehu.Update
   End Select
   cmdmodify.Caption = "修改記錄"                            '按鈕名稱改為“修改記錄”
   cmdadd.Enabled = True                                    '刪除與增加按鈕可用
   cmddel.Enabled = True
   cmdcancel.Enabled = False
   MsgBox "修改成功", vbOKOnly + vbExclamation, ""
   Frame1.Enabled = True
End If
modifyerror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Private Sub cmdnext_Click()
On Error GoTo nexterror
Select Case SSTab1.Tab
       Case 0
            rs_xingwen.MoveNext
            If rs_xingwen.EOF Then
               MsgBox "這已經(jīng)是最后一條記錄！", vbOKOnly + vbExclamation, ""
               rs_xingwen.MovePrevious
               Exit Sub
            Else
               viewdata_xingwen
            End If
       Case 1
            rs_xinhan.MoveNext
            If rs_xinhan.EOF Then
               MsgBox "這已經(jīng)是最后一條記錄！", vbOKOnly + vbExclamation, ""
               rs_xinhan.MovePrevious
               Exit Sub
            Else
               viewdata_xinhan
            End If
       Case 2
            rs_baobiao.MoveNext
            If rs_baobiao.EOF Then
               MsgBox "這已經(jīng)是最后一條記錄！", vbOKOnly + vbExclamation, ""
               rs_baobiao.MovePrevious
               Exit Sub
            Else
               viewdata_baobiao
            End If
       Case 3
            rs_kehu.MoveNext
            If rs_kehu.EOF Then
               MsgBox "這已經(jīng)是最后一條記錄！", vbOKOnly + vbExclamation, ""
               rs_kehu.MovePrevious
               Exit Sub
            Else
               viewdata_kehu
            End If
End Select
nexterror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Private Sub cmdprevious_Click()
On Error GoTo previouserror
Select Case SSTab1.Tab
       Case 0
            rs_xingwen.MovePrevious
            If rs_xingwen.BOF Then
               MsgBox "這已經(jīng)是第一條記錄！", vbOKOnly + vbExclamation, ""
               rs_xingwen.MoveNext
               Exit Sub
            Else
               viewdata_xingwen
            End If
       Case 1
            rs_xinhan.MovePrevious
            If rs_xinhan.BOF Then
               MsgBox "這已經(jīng)是第一條記錄！", vbOKOnly + vbExclamation, ""
               rs_xinhan.MoveNext
               Exit Sub
            Else
               viewdata_xinhan
            End If
       Case 2
            rs_baobiao.MovePrevious
            If rs_baobiao.BOF Then
               MsgBox "這已經(jīng)是第一條記錄！", vbOKOnly + vbExclamation, ""
               rs_baobiao.MoveNext
               Exit Sub
            Else
               viewdata_baobiao
            End If
       Case 3
            rs_kehu.MovePrevious
            If rs_kehu.BOF Then
               MsgBox "這已經(jīng)是第一條記錄！", vbOKOnly + vbExclamation, ""
               rs_kehu.MoveNext
               Exit Sub
            Else
               viewdata_kehu
            End If
End Select
previouserror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Private Sub Form_Load()
Dim sql As String
On Error GoTo loaderror
If userpow = "guest" Then
   Frame2.Enabled = False
End If
Select Case select_menu
       Case "xingwen"
             SSTab1.Tab = 0
       Case "xinhan"
             SSTab1.Tab = 1
       Case "baobiao"
             SSTab1.Tab = 2
       Case "kehu"
             SSTab1.Tab = 3
End Select
'打開行文管理數(shù)據(jù)庫
sql = "select * from 行文管理"
rs_xingwen.CursorLocation = adUseClient
rs_xingwen.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_xingwen.EOF = False Then
   rs_xingwen.MoveFirst
   viewdata_xingwen
End If
'打開信函管理數(shù)據(jù)庫
sql = "select * from 信函管理"
rs_xinhan.CursorLocation = adUseClient
rs_xinhan.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_xinhan.EOF = False Then
   rs_xinhan.MoveFirst
   viewdata_xinhan
End If
'打開報表管理數(shù)據(jù)庫
sql = "select * from 報表管理"
rs_baobiao.CursorLocation = adUseClient
rs_baobiao.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_baobiao.EOF = False Then
   rs_baobiao.MoveFirst
   viewdata_baobiao
End If
'打開客戶投訴數(shù)據(jù)庫
sql = "select * from 客戶投訴"
rs_kehu.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_kehu.EOF = False Then
   rs_kehu.MoveFirst
   viewdata_kehu
End If
cmdcancel.Enabled = False
loaderror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
'關閉數(shù)據(jù)庫
rs_xingwen.Close
rs_xinhan.Close
rs_baobiao.Close
rs_kehu.Close
End Sub

Public Sub viewdata_xingwen()
Dim i As Integer
On Error GoTo view_xingwenerror
For i = 0 To 11
       If IsNull(rs_xingwen.Fields(i)) Then
          Text1(i).Text = ""
       Else
          Text1(i).Text = rs_xingwen.Fields(i)
       End If
          Text1(i).Enabled = False
Next i
Exit Sub
view_xingwenerror:
   MsgBox Err.Description
End Sub

Public Sub viewdata_xinhan()
Dim i As Integer
On Error GoTo view_xinhanerror
For i = 0 To 7
       If IsNull(rs_xinhan.Fields(i)) Then
          Text2(i).Text = ""
       Else
          Text2(i).Text = rs_xinhan.Fields(i)
       End If
          Text2(i).Enabled = False
Next i
view_xinhanerror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Public Sub viewdata_baobiao()
Dim i As Integer
On Error GoTo view_baobiaoerror
For i = 0 To 8
       If IsNull(rs_baobiao.Fields(i)) Then
          Text3(i).Text = ""
       Else
          Text3(i).Text = rs_baobiao.Fields(i)
       End If
          Text3(i).Enabled = False
Next i
view_baobiaoerror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub

Public Sub viewdata_kehu()
Dim i As Integer
On Error GoTo view_kehuerror
For i = 0 To 7
       If IsNull(rs_kehu.Fields(i)) Then
          Text4(i).Text = ""
       Else
          Text4(i).Text = rs_kehu.Fields(i)
       End If
          Text4(i).Enabled = False
Next i
view_kehuerror:
If Err.Number <> 0 Then
   MsgBox Err.Description
End If
End Sub
上一頁 1 2 34
?? 文件大小 79 K
?? 上傳用戶 bt9
?? 所屬分類 *行業(yè)應用
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmxingwen.frm

?? 快捷鍵說明
