m6.bas

办公自动化 vb+server2

Attribute VB_Name = "出图"
Public Sub chutu1(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(56).Value = "1" Then
                 gzrs.CursorLocation = adUseClient
                 gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic
                     For i = 1 To gzrs.RecordCount
                           Form39.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 1 To 19
                            Form39.ListView1.ListItems.Item(i).SubItems(m) = gzrs.Fields(m).Value
                             Next
                      gzrs.MoveNext
                     Next
                  gzrs.Close
                 If Form39.ListView1.ListItems.Count <> 0 Then
                   Form39.ListView1.ListItems(Form39.ListView1.ListItems.Count).Selected = True
                   Form39.ListView1.SelectedItem.EnsureVisible
                   Form39.ListView1.Refresh
                 End If
                 lty14 = "1"
                  For m = 0 To 8
                     Form39.Text1(m).Enabled = True
                  Next
                  Form39.Text1(10).Enabled = True
                  Form39.Text1(9).Text = username
                  Form39.ListView1.Visible = True
                  Form39.Command1.Visible = True
                  Form39.Command2.Visible = True
                 Form39.Show vbModal
                  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(56).Value = "1" Then
                 gzrs.CursorLocation = adUseClient
                 gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic
                       For m = 0 To gzrs.Fields.Count - 1
                            Form40.Combo1.AddItem (gzrs.Fields(m).Name)
                       Next m
                     For i = 1 To gzrs.RecordCount
                           Form40.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 1 To 19
                            Form40.ListView1.ListItems.Item(i).SubItems(m) = gzrs.Fields(m).Value
                             Next
                      gzrs.MoveNext
                     Next
                  gzrs.Close
                  If Form40.ListView1.ListItems.Count <> 0 Then
                 Form40.ListView1.ListItems(Form40.ListView1.ListItems.Count).Selected = True
                 Form40.ListView1.SelectedItem.EnsureVisible
                 Form40.ListView1.Refresh
                 End If
                 lty13 = "2"
                 Form40.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
       Case 3
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(56).Value = "1" Then
                 gzrs.CursorLocation = adUseClient
                 gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic
                       For m = 0 To gzrs.Fields.Count - 1
                            Form41.Combo1.AddItem (gzrs.Fields(m).Name)
                       Next m
                     For i = 1 To gzrs.RecordCount
                           Form41.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 1 To 19
                            Form41.ListView1.ListItems.Item(i).SubItems(m) = gzrs.Fields(m).Value
                             Next
                      gzrs.MoveNext
                     Next
                  gzrs.Close
                If Form41.ListView1.ListItems.Count <> 0 Then
                 Form41.ListView1.ListItems(Form41.ListView1.ListItems.Count).Selected = True
                 Form41.ListView1.SelectedItem.EnsureVisible
                 Form41.ListView1.Refresh
                End If
                 Form41.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 4
        Form2.VerticalMenu2(5).Visible = False
    End Select
End Sub
Public Sub chutu2(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(57).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(11).Value = "0" Then
                           l = l + 1
                           Form44.ListView1.ListItems.Add , , gzrs.Fields(0).Value
                            For m = 1 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 = "4"
                     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(57).Value = "1" Then
                    chututongyong1
                    lty13 = "5"
                    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 chutu3(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(58).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(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 = "6"
                   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(58).Value = "1" Then
                    chututongyong
                    lty13 = "7"
                    Form43.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
                End If