📄 m1.bas
字号:
If hrs.Fields(0).Value = username Then
If biaoming = "定线" Then
qxz = hrs.Fields(26).Value
End If
If biaoming = "竣工" Then
qxz = hrs.Fields(29).Value
End If
If biaoming = "零星验字工程" Then
qxz = hrs.Fields(32).Value
End If
If biaoming = "建筑物位置测定" Then
qxz = hrs.Fields(35).Value
End If
If biaoming = "计划内" Then
qxz = hrs.Fields(38).Value
End If
If qxz = "1" Then
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For i = 0 To 2
Form18.Combo1.AddItem (grs.Fields(i).Name)
Next i
For i = 1 To grs.RecordCount
Form18.ListView1.ListItems.Add , , grs.Fields(0).Value
For m = 1 To 2
Form18.ListView1.ListItems.Item(i).SubItems(m) = grs.Fields(m).Value
Next
grs.MoveNext
Next
grs.Close
Form18.ListView1.ListItems(Form18.ListView1.ListItems.Count).Selected = True
Form18.ListView1.SelectedItem.EnsureVisible
Form18.ListView1.Refresh
Form18.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(27).Value
End If
If biaoming = "竣工" Then
qxz = hrs.Fields(30).Value
End If
If biaoming = "零星验字工程" Then
qxz = hrs.Fields(33).Value
End If
If biaoming = "建筑物位置测定" Then
qxz = hrs.Fields(36).Value
End If
If biaoming = "计划内" Then
qxz = hrs.Fields(39).Value
End If
If qxz = "1" Then
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For i = 0 To 2
Form20.Combo1.AddItem (grs.Fields(i).Name)
Next i
For i = 1 To grs.RecordCount
Form20.ListView1.ListItems.Add , , grs.Fields(0).Value
For m = 1 To 2
Form20.ListView1.ListItems.Item(i).SubItems(m) = grs.Fields(m).Value
Next
If grs("结算员").Value = "0" Then
Form20.ListView1.ListItems.Item(i).ForeColor = vbRed '红色
For m = 1 To 2
Form20.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = vbRed
Next
End If
If grs("depart").Value = "11" Then
Form20.ListView1.ListItems.Item(i).ForeColor = &H0& '黑色
For m = 1 To 2
Form20.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = &H0&
Next
End If
grs.MoveNext
Next
grs.Close
Form20.ListView1.ListItems(Form20.ListView1.ListItems.Count).Selected = True
Form20.ListView1.SelectedItem.EnsureVisible
Form20.ListView1.Refresh
Form20.Show vbModal
Else
MsgBox "没有权限进行该项操作！", vbInformation, "提示"
End If
End If
hrs.MoveNext
Next
hrs.Close
Case 4
Form2.VerticalMenu2(2).Visible = False
End Select
End Sub
Public Sub quanxian5(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 biaoming = "地籍" Then
qxz = hrs.Fields(40).Value
End If
If qxz = "1" Then
Form17.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 biaoming = "地籍" Then
qxz = hrs.Fields(41).Value
End If
If qxz = "1" Then
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For i = 0 To 2
Form18.Combo1.AddItem (grs.Fields(i).Name)
Next i
For i = 1 To grs.RecordCount
Form18.ListView1.ListItems.Add , , grs.Fields(0).Value
For m = 1 To 2
Form18.ListView1.ListItems.Item(i).SubItems(m) = grs.Fields(m).Value
Next
grs.MoveNext
Next
grs.Close
Form18.ListView1.ListItems(Form18.ListView1.ListItems.Count).Selected = True
Form18.ListView1.SelectedItem.EnsureVisible
Form18.ListView1.Refresh
Form18.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 biaoming = "地籍" Then
qxz = hrs.Fields(42).Value
End If
If qxz = "1" Then
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For i = 0 To 2
Form20.Combo1.AddItem (grs.Fields(i).Name)
Next i
For i = 1 To grs.RecordCount
Form20.ListView1.ListItems.Add , , grs.Fields(0).Value
For m = 1 To 2
Form20.ListView1.ListItems.Item(i).SubItems(m) = grs.Fields(m).Value
Next
If grs("结算员").Value = "0" Then
Form20.ListView1.ListItems.Item(i).ForeColor = vbRed '红色
For m = 1 To 2
Form20.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = vbRed
Next
End If
If grs("depart").Value = "11" Then
Form20.ListView1.ListItems.Item(i).ForeColor = &H0& '黑色
For m = 1 To 2
Form20.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = &H0&
Next
End If
grs.MoveNext
Next
grs.Close
Form20.ListView1.ListItems(Form20.ListView1.ListItems.Count).Selected = True
Form20.ListView1.SelectedItem.EnsureVisible
Form20.ListView1.Refresh
Form20.Show vbModal
Else
MsgBox "没有权限进行该项操作！", vbInformation, "提示"
End If
End If
hrs.MoveNext
Next
hrs.Close
Case 4
Form2.VerticalMenu2(2).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 biaoming = "松北" Then
qxz = hrs.Fields(43).Value
End If
If qxz = "1" Then
Form17.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 biaoming = "松北" Then
qxz = hrs.Fields(44).Value
End If
If qxz = "1" Then
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For i = 0 To 2
Form18.Combo1.AddItem (grs.Fields(i).Name)
Next i
For i = 1 To grs.RecordCount
Form18.ListView1.ListItems.Add , , grs.Fields(0).Value
For m = 1 To 2
Form18.ListView1.ListItems.Item(i).SubItems(m) = grs.Fields(m).Value
Next
grs.MoveNext
Next
grs.Close
Form18.ListView1.ListItems(Form18.ListView1.ListItems.Count).Selected = True
Form18.ListView1.SelectedItem.EnsureVisible
Form18.ListView1.Refresh
Form18.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 biaoming = "松北" Then
qxz = hrs.Fields(45).Value
End If
If qxz = "1" Then
grs.CursorLocation = adUseClient
grs.Open "select * from " & biaoming & " order by 工程编号", gconn, adOpenKeyset, adLockPessimistic
For i = 0 To 2
Form20.Combo1.AddItem (grs.Fields(i).Name)
Next i
For i = 1 To grs.RecordCount
Form20.ListView1.ListItems.Add , , grs.Fields(0).Value
For m = 1 To 2
Form20.ListView1.ListItems.Item(i).SubItems(m) = grs.Fields(m).Value
Next
If grs("结算员").Value = "0" Then
Form20.ListView1.ListItems.Item(i).ForeColor = vbRed '红色
For m = 1 To 2
Form20.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = vbRed
Next
End If
If grs("depart").Value = "11" Then
Form20.ListView1.ListItems.Item(i).ForeColor = &H0& '黑色
For m = 1 To 2
Form20.ListView1.ListItems.Item(i).ListSubItems.Item(m).ForeColor = &H0&
Next
End If
grs.MoveNext
Next
grs.Close
Form20.ListView1.ListItems(Form20.ListView1.ListItems.Count).Selected = True
Form20.ListView1.SelectedItem.EnsureVisible
Form20.ListView1.Refresh
Form20.Show vbModal
Else
MsgBox "没有权限进行该项操作！", vbInformation, "提示"
End If
End If
hrs.MoveNext
Next
hrs.Close
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -