m3.bas

来自「办公自动化 vb+server2」· BAS 代码 · 共 528 行 · 第 1/2 页

BAS
528 行
字号
12
Attribute VB_Name = "审批"
Public Sub shenpi1(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(46).Value = "1" Then
                    Form25.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 2
        Form2.VerticalMenu2(3).Visible = False
        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(46).Value = "1" Then
                     biaoming = "定线"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 4
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(46).Value = "1" Then
                     biaoming = "竣工"
                    Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 5
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(46).Value = "1" Then
                     biaoming = "零星验字工程"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 6
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(46).Value = "1" Then
                     biaoming = "建筑物位置测定"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 7
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(46).Value = "1" Then
                     biaoming = "计划内"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 8
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(46).Value = "1" Then
                     biaoming = "地籍"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 9
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(46).Value = "1" Then
                     biaoming = "松北"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
    End Select
End Sub
Public Sub shenpi2(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(47).Value = "1" Then
                    Form25.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 2
        If ii(66) <> "0" Then
            Form55.Show vbModal
          Else
            MsgBox "没有权限进行该项操作！", vbInformation, "提示"
        End If
        Case 3
        If ii(75) <> "0" Then
            Form65.Show vbModal
          Else
            MsgBox "没有权限进行该项操作！", vbInformation, "提示"
        End If
        Case 4
        Form2.VerticalMenu2(3).Visible = False
        Case 5
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(47).Value = "1" Then
                     biaoming = "定线"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 6
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(47).Value = "1" Then
                     biaoming = "竣工"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 7
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(47).Value = "1" Then
                     biaoming = "零星验字工程"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 8
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(47).Value = "1" Then
                     biaoming = "建筑物位置测定"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 9
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(47).Value = "1" Then
                     biaoming = "计划内"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 10
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(47).Value = "1" Then
                     biaoming = "地籍"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 11
        hrs.CursorLocation = adUseClient
        hrs.Open "权限设置", hconn, adOpenKeyset, adLockPessimistic
          For j = 1 To hrs.RecordCount
               If hrs.Fields(0).Value = username Then
                 If hrs.Fields(47).Value = "1" Then
                     biaoming = "松北"
                     Form27.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
         Case 12
          If ii(66) <> "0" Then
              Form57.Show vbModal
12

m3.bas - 源码说明

本页面展示了「办公自动化 vb+server2」中的 m3.bas 源码文件，采用 BAS 编程语言编写，共 528 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与办公自动化相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?