frmxingwen.frm

事务管理

       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                   '当此按钮的状态为为“增加记录”时
   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                    '当按钮的状态为“确定”时
   Select Case SSTab1.Tab
          Case 0
               If Not IsDate(Text1(1).Text) Then
                  MsgBox "请按照yyyy-mm-dd格式输入发文日期", vbOKOnly + vbExclamation, ""
                  Text1(1).SetFocus
                  Exit Sub
               End If
               Text1(1) = Format(Text1(1), "yyyy-mm-dd")  '转化为正确的格式
               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")  '转化为正确的格式
               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 "这已经是最后一条记录！", vbOKOnly + vbExclamation, ""
               rs_xingwen.MovePrevious
               Exit Sub
            Else
               viewdata_xingwen
            End If
       Case 1
            rs_xinhan.MoveNext
            If rs_xinhan.EOF Then
               MsgBox "这已经是最后一条记录！", vbOKOnly + vbExclamation, ""
               rs_xinhan.MovePrevious
               Exit Sub
            Else
               viewdata_xinhan
            End If
       Case 2
            rs_baobiao.MoveNext
            If rs_baobiao.EOF Then
               MsgBox "这已经是最后一条记录！", vbOKOnly + vbExclamation, ""
               rs_baobiao.MovePrevious
               Exit Sub
            Else
               viewdata_baobiao
            End If
       Case 3
            rs_kehu.MoveNext
            If rs_kehu.EOF Then
               MsgBox "这已经是最后一条记录！", 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 "这已经是第一条记录！", vbOKOnly + vbExclamation, ""
               rs_xingwen.MoveNext
               Exit Sub
            Else
               viewdata_xingwen
            End If
       Case 1
            rs_xinhan.MovePrevious
            If rs_xinhan.BOF Then
               MsgBox "这已经是第一条记录！", vbOKOnly + vbExclamation, ""
               rs_xinhan.MoveNext
               Exit Sub
            Else
               viewdata_xinhan
            End If
       Case 2
            rs_baobiao.MovePrevious
            If rs_baobiao.BOF Then
               MsgBox "这已经是第一条记录！", vbOKOnly + vbExclamation, ""
               rs_baobiao.MoveNext
               Exit Sub
            Else
               viewdata_baobiao
            End If
       Case 3
            rs_kehu.MovePrevious
            If rs_kehu.BOF Then
               MsgBox "这已经是第一条记录！", 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
'打开行文管理数据库
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
'打开信函管理数据库
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
'打开报表管理数据库
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
'打开客户投诉数据库
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)
'关闭数据库
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