m1.bas

办公自动化 vb+server2

               End If
               If qxz = "1" Then
                 rs.CursorLocation = adUseClient
                 rs.Open "select * from " & biaoming & " order by 工程编号", conn, adOpenKeyset, adLockPessimistic
                       For i = 0 To rs.Fields.Count - 1
                            Form13.Combo1.AddItem (rs.Fields(i).Name)
                       Next i
                     For i = 1 To rs.RecordCount
                           Form13.ListView1.ListItems.Add , , rs.Fields(0).Value
                            For m = 1 To 17
                            Form13.ListView1.ListItems.Item(i).SubItems(m) = rs.Fields(m).Value
                             Next
                            If biaoming <> "零星验字工程" Then
                               Form13.ListView1.ListItems.Item(i).SubItems(18) = rs.Fields(18).Value
                               Form13.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(19).Value
                               Form13.ListView1.ListItems.Item(i).SubItems(20) = rs.Fields(20).Value
                             Else
                               Form13.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(18).Value
                               Form13.ListView1.ListItems.Item(i).SubItems(20) = rs.Fields(19).Value
                            End If
                      rs.MoveNext
                     Next
                  rs.Close
                 Form13.ListView1.ListItems(Form13.ListView1.ListItems.Count).Selected = True
                 Form13.ListView1.SelectedItem.EnsureVisible
                 Form13.ListView1.Refresh
                 Form13.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 biaoming = "竣工" Then
                  qxz = hrs.Fields(9).Value
               End If
               If biaoming = "零星验字工程" Then
                  qxz = hrs.Fields(12).Value
               End If
               If biaoming = "建筑物位置测定" Then
                  qxz = hrs.Fields(15).Value
               End If
               If qxz = "1" Then
                 rs.CursorLocation = adUseClient
                 rs.Open "select * from " & biaoming & " order by 工程编号", conn, adOpenKeyset, adLockPessimistic
                    For i = 0 To rs.Fields.Count - 1
                        Form14.Combo1.AddItem (rs.Fields(i).Name)
                    Next i
                     For i = 1 To rs.RecordCount
                           Form14.ListView1.ListItems.Add , , rs.Fields(0).Value
                            For m = 1 To 17
                            Form14.ListView1.ListItems.Item(i).SubItems(m) = rs.Fields(m).Value
                             Next
                            If biaoming <> "零星验字工程" Then
                               Form14.ListView1.ListItems.Item(i).SubItems(18) = rs.Fields(18).Value
                               Form14.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(19).Value
                               Form14.ListView1.ListItems.Item(i).SubItems(20) = rs.Fields(20).Value
                             Else
                               Form14.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(18).Value
                               Form14.ListView1.ListItems.Item(i).SubItems(20) = rs.Fields(19).Value
                            End If
                      rs.MoveNext
                     Next
                  rs.Close
                 Form14.ListView1.ListItems(Form14.ListView1.ListItems.Count).Selected = True
                 Form14.ListView1.SelectedItem.EnsureVisible
                 Form14.ListView1.Refresh
                 Form14.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 4
        Form2.VerticalMenu2(1).Visible = False
    End Select
End Sub
Public Sub quanxian3(username As String, MenuItem As Long)
 Select Case MenuItem
       Case 1
       biaoming = "地籍"
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(19).Value = "1" Then
                 rs.CursorLocation = adUseClient
                 rs.Open "select * from " & biaoming & " order by 工程编号", conn, adOpenKeyset, adLockPessimistic
                     For i = 1 To rs.RecordCount
                           Form7.ListView1.ListItems.Add , , rs.Fields(0).Value
                            For m = 1 To 16
                            Form7.ListView1.ListItems.Item(i).SubItems(m) = rs.Fields(m).Value
                             Next
                             Form7.ListView1.ListItems.Item(i).SubItems(18) = rs.Fields(17).Value
                             Form7.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(18).Value
                      rs.MoveNext
                     Next
                  rs.Close
                 Form7.ListView1.ListItems(Form7.ListView1.ListItems.Count).Selected = True
                 Form7.ListView1.SelectedItem.EnsureVisible
                 Form7.ListView1.Refresh
                 Form7.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
       Case 2
       biaoming = "地籍"
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
               If hrs.Fields(20).Value = "1" Then
                 rs.CursorLocation = adUseClient
                 rs.Open "select * from " & biaoming & " order by 工程编号", conn, adOpenKeyset, adLockPessimistic
                       For i = 0 To rs.Fields.Count - 1
                            Form8.Combo1.AddItem (rs.Fields(i).Name)
                       Next i
                     For i = 1 To rs.RecordCount
                           Form8.ListView1.ListItems.Add , , rs.Fields(0).Value
                            For m = 1 To 16
                            Form8.ListView1.ListItems.Item(i).SubItems(m) = rs.Fields(m).Value
                             Next
                            Form8.ListView1.ListItems.Item(i).SubItems(18) = rs.Fields(17).Value
                            Form8.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(18).Value
                      rs.MoveNext
                     Next
                  rs.Close
                 Form8.ListView1.ListItems(Form8.ListView1.ListItems.Count).Selected = True
                 Form8.ListView1.SelectedItem.EnsureVisible
                 Form8.ListView1.Refresh
                 Form8.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 3
        biaoming = "地籍"
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
               If hrs.Fields(21).Value = "1" Then
                 rs.CursorLocation = adUseClient
                 rs.Open "select * from " & biaoming & " order by 工程编号", conn, adOpenKeyset, adLockPessimistic
                    For i = 0 To rs.Fields.Count - 1
                        Form9.Combo1.AddItem (rs.Fields(i).Name)
                    Next i
                     For i = 1 To rs.RecordCount
                           Form9.ListView1.ListItems.Add , , rs.Fields(0).Value
                            For m = 1 To 16
                            Form9.ListView1.ListItems.Item(i).SubItems(m) = rs.Fields(m).Value
                             Next
                            Form9.ListView1.ListItems.Item(i).SubItems(18) = rs.Fields(17).Value
                            Form9.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(18).Value
                      rs.MoveNext
                     Next
                  rs.Close
                 Form9.ListView1.ListItems(Form9.ListView1.ListItems.Count).Selected = True
                 Form9.ListView1.SelectedItem.EnsureVisible
                 Form9.ListView1.Refresh
                 Form9.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 4
        Form2.VerticalMenu2(1).Visible = False
    Case 5
       biaoming = "松北"
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(22).Value = "1" Then
                 rs.CursorLocation = adUseClient
                 rs.Open "select * from " & biaoming & " order by 工程编号", conn, adOpenKeyset, adLockPessimistic
                     For i = 1 To rs.RecordCount
                           Form7.ListView1.ListItems.Add , , rs.Fields(0).Value
                            For m = 1 To 16
                            Form7.ListView1.ListItems.Item(i).SubItems(m) = rs.Fields(m).Value
                             Next
                             Form7.ListView1.ListItems.Item(i).SubItems(18) = rs.Fields(17).Value
                             Form7.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(18).Value
                      rs.MoveNext
                     Next
                  rs.Close
                 Form7.ListView1.ListItems(Form7.ListView1.ListItems.Count).Selected = True
                 Form7.ListView1.SelectedItem.EnsureVisible
                 Form7.ListView1.Refresh
                 Form7.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
       Case 6
       biaoming = "松北"
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
               If hrs.Fields(23).Value = "1" Then
                 rs.CursorLocation = adUseClient
                 rs.Open "select * from " & biaoming & " order by 工程编号", conn, adOpenKeyset, adLockPessimistic
                       For i = 0 To rs.Fields.Count - 1
                            Form8.Combo1.AddItem (rs.Fields(i).Name)
                       Next i
                     For i = 1 To rs.RecordCount
                           Form8.ListView1.ListItems.Add , , rs.Fields(0).Value
                            For m = 1 To 16
                            Form8.ListView1.ListItems.Item(i).SubItems(m) = rs.Fields(m).Value
                             Next
                            Form8.ListView1.ListItems.Item(i).SubItems(18) = rs.Fields(17).Value
                            Form8.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(18).Value
                      rs.MoveNext
                     Next
                  rs.Close
                 Form8.ListView1.ListItems(Form8.ListView1.ListItems.Count).Selected = True
                 Form8.ListView1.SelectedItem.EnsureVisible
                 Form8.ListView1.Refresh
                 Form8.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 7
        biaoming = "松北"
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
               If hrs.Fields(24).Value = "1" Then
                 rs.CursorLocation = adUseClient
                 rs.Open "select * from " & biaoming & " order by 工程编号", conn, adOpenKeyset, adLockPessimistic
                    For i = 0 To rs.Fields.Count - 1
                        Form9.Combo1.AddItem (rs.Fields(i).Name)
                    Next i
                     For i = 1 To rs.RecordCount
                           Form9.ListView1.ListItems.Add , , rs.Fields(0).Value
                            For m = 1 To 16
                            Form9.ListView1.ListItems.Item(i).SubItems(m) = rs.Fields(m).Value
                             Next
                            Form9.ListView1.ListItems.Item(i).SubItems(18) = rs.Fields(17).Value
                            Form9.ListView1.ListItems.Item(i).SubItems(19) = rs.Fields(18).Value
                      rs.MoveNext
                     Next
                  rs.Close
                 Form9.ListView1.ListItems(Form9.ListView1.ListItems.Count).Selected = True
                 Form9.ListView1.SelectedItem.EnsureVisible
                 Form9.ListView1.Refresh
                 Form9.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
    End Select
End Sub
Public Sub quanxian4(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 biaoming = "定线" Then
                  qxz = hrs.Fields(25).Value
               End If
               If biaoming = "竣工" Then
                  qxz = hrs.Fields(28).Value
               End If
               If biaoming = "零星验字工程" Then
                  qxz = hrs.Fields(31).Value
               End If
               If biaoming = "建筑物位置测定" Then
                  qxz = hrs.Fields(34).Value
               End If
               If biaoming = "计划内" Then
                  qxz = hrs.Fields(37).Value
               End If
                 If qxz = "1" Then
                 Form17.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