m6.bas

办公自动化 vb+server2

                End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 3
        Form2.VerticalMenu2(5).Visible = False
    End Select
End Sub
Public Sub chutu4(username As String, MenuItem As Long)
 Select Case MenuItem
       Case 1
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                If hrs.Fields(59).Value = "1" Then
                 gzrs.CursorLocation = adUseClient
                 gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic
                     l = 0
                     For i = 1 To gzrs.RecordCount
                       If gzrs.Fields(16).Value = "0" And gzrs.Fields(13).Value <> "0" And gzrs.Fields(11).Value <> "0" Then
                           l = l + 1
                           Form44.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 3 To 19
                            Form44.ListView1.ListItems.Item(l).SubItems(m) = gzrs.Fields(m).Value
                             Next
                        End If
                      gzrs.MoveNext
                     Next
                  gzrs.Close
                 If Form44.ListView1.ListItems.Count <> 0 Then
                   Form44.ListView1.ListItems(Form44.ListView1.ListItems.Count).Selected = True
                   Form44.ListView1.SelectedItem.EnsureVisible
                   Form44.ListView1.Refresh
                   lty13 = "8"
                   Form44.Show vbModal
                 Else
                   MsgBox "没有急需出图的数据！", vbInformation, "提示"
                 End If
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
                 End If
              End If
           hrs.MoveNext
           Next
         hrs.Close
       Case 2
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
                 If hrs.Fields(0).Value = username Then
                 If hrs.Fields(59).Value = "1" Then
                    chututongyong
                    lty13 = "9"
                    Form43.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
                End If
                End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 3
        Form2.VerticalMenu2(5).Visible = False
    End Select
End Sub
Public Sub chutu5(username As String, MenuItem As Long)
 Select Case MenuItem
       Case 1
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                If hrs.Fields(60).Value = "1" Then
                 gzrs.CursorLocation = adUseClient
                 gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic
                     l = 0
                     For i = 1 To gzrs.RecordCount
                       If gzrs.Fields(18).Value = "0" And gzrs.Fields(16).Value <> "0" And gzrs.Fields(13).Value <> "0" And gzrs.Fields(11).Value <> "0" Then
                           l = l + 1
                           Form44.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 3 To 19
                            Form44.ListView1.ListItems.Item(l).SubItems(m) = gzrs.Fields(m).Value
                             Next
                        End If
                      gzrs.MoveNext
                     Next
                  gzrs.Close
                 If Form44.ListView1.ListItems.Count <> 0 Then
                   Form44.ListView1.ListItems(Form44.ListView1.ListItems.Count).Selected = True
                   Form44.ListView1.SelectedItem.EnsureVisible
                   Form44.ListView1.Refresh
                   lty13 = "10"
                   Form44.Show vbModal
                 Else
                   MsgBox "没有急需档案部的数据！", vbInformation, "提示"
                 End If
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
                 End If
              End If
           hrs.MoveNext
           Next
         hrs.Close
       Case 2
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
                 If hrs.Fields(0).Value = username Then
                 If hrs.Fields(60).Value = "1" Then
                    chututongyong
                    lty13 = "11"
                    Form43.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
                End If
                End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 3
        Form2.VerticalMenu2(5).Visible = False
    End Select
End Sub

Public Sub chututongyong()
                 Form43.ListView1.ListItems.Clear
                 gzrs.CursorLocation = adUseClient
                 gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic
                       For m = 0 To gzrs.Fields.Count - 1
                            Form43.Combo1.AddItem (gzrs.Fields(m).Name)
                       Next m
                     For i = 1 To gzrs.RecordCount
                           Form43.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 3 To 19
                            Form43.ListView1.ListItems.Item(i).SubItems(m) = gzrs.Fields(m).Value
                             Next
                If gzrs.Fields(11).Value = "0" Then
                        Form43.ListView1.ListItems.Item(i).ForeColor = vbRed
                 For m = 3 To 19
                   Form43.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = vbRed
                 Next
                End If
                If gzrs.Fields(13).Value = "0" And gzrs.Fields(11).Value <> "0" Then
                        Form43.ListView1.ListItems.Item(i).ForeColor = &HC0C000
                  For m = 3 To 19
                    Form43.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = &HC0C000
                 Next
                End If
                If gzrs.Fields(16).Value = "0" And gzrs.Fields(13).Value <> "0" And gzrs.Fields(11).Value <> "0" Then
                        Form43.ListView1.ListItems.Item(i).ForeColor = &H80FF&
                  For m = 3 To 19
                    Form43.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = &H80FF&
                  Next
                End If
                If gzrs.Fields(18).Value = "0" And gzrs.Fields(16).Value <> "0" And gzrs.Fields(13).Value <> "0" And gzrs.Fields(11).Value <> "0" Then
                        Form43.ListView1.ListItems.Item(i).ForeColor = &HFF00FF
                  For m = 3 To 19
                    Form43.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = &HFF00FF
                  Next
                End If
                      gzrs.MoveNext
                     Next
                  gzrs.Close
                  If Form43.ListView1.ListItems.Count <> 0 Then
                 Form43.ListView1.ListItems(Form43.ListView1.ListItems.Count).Selected = True
                 Form43.ListView1.SelectedItem.EnsureVisible
                 Form43.ListView1.Refresh
                 End If
End Sub
Public Sub chututongyong1()
                 Form43.ListView1.ListItems.Clear
                 gzrs.CursorLocation = adUseClient
                 gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic
                       For m = 0 To gzrs.Fields.Count - 1
                            Form43.Combo1.AddItem (gzrs.Fields(m).Name)
                       Next m
                     For i = 1 To gzrs.RecordCount
                           Form43.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 1 To 19
                            Form43.ListView1.ListItems.Item(i).SubItems(m) = gzrs.Fields(m).Value
                             Next
                If gzrs.Fields(11).Value = "0" Then
                        Form43.ListView1.ListItems.Item(i).ForeColor = vbRed
                 For m = 1 To 19
                   Form43.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = vbRed
                 Next
                End If
                If gzrs.Fields(13).Value = "0" And gzrs.Fields(11).Value <> "0" Then
                        Form43.ListView1.ListItems.Item(i).ForeColor = &HC0C000
                  For m = 1 To 19
                    Form43.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = &HC0C000
                 Next
                End If
                If gzrs.Fields(16).Value = "0" And gzrs.Fields(13).Value <> "0" And gzrs.Fields(11).Value <> "0" Then
                        Form43.ListView1.ListItems.Item(i).ForeColor = &H80FF&
                  For m = 1 To 19
                    Form43.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = &H80FF&
                  Next
                End If
                If gzrs.Fields(18).Value = "0" And gzrs.Fields(16).Value <> "0" And gzrs.Fields(13).Value <> "0" And gzrs.Fields(11).Value <> "0" Then
                        Form43.ListView1.ListItems.Item(i).ForeColor = &HFF00FF
                  For m = 1 To 19
                    Form43.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = &HFF00FF
                  Next
                End If
                      gzrs.MoveNext
                     Next
                  gzrs.Close
                  If Form43.ListView1.ListItems.Count <> 0 Then
                 Form43.ListView1.ListItems(Form43.ListView1.ListItems.Count).Selected = True
                 Form43.ListView1.SelectedItem.EnsureVisible
                 Form43.ListView1.Refresh
                 End If
End Sub