m5.bas

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

BAS
487 行
字号
12
Attribute VB_Name = "回款"
Public Sub huikuan1(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(49).Value = "1" Then
                    Form29.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 2
        Form2.VerticalMenu2(4).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(49).Value = "1" Then
                     biaoming = "定线"
                     Form31.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(49).Value = "1" Then
                     biaoming = "竣工"
                     Form31.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(49).Value = "1" Then
                     biaoming = "零星验字工程"
                     Form31.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(49).Value = "1" Then
                     biaoming = "建筑物位置测定"
                     Form31.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(49).Value = "1" Then
                     biaoming = "计划内"
                     Form31.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(49).Value = "1" Then
                     biaoming = "地籍"
                     Form31.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(49).Value = "1" Then
                     biaoming = "松北"
                     Form31.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
               End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
    End Select
End Sub
Public Sub huikuan2(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(50).Value = "1" Then
                    Form33.Show vbModal
                Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
                End If
               End If
             hrs.MoveNext
           Next
         hrs.Close
        Case 2
        Form2.VerticalMenu2(4).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(50).Value = "1" Then
                     biaoming = "定线"
                     Form36.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(50).Value = "1" Then
                     biaoming = "竣工"
                     Form36.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(50).Value = "1" Then
                     biaoming = "零星验字工程"
                     Form36.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(50).Value = "1" Then
                     biaoming = "建筑物位置测定"
                     Form36.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(50).Value = "1" Then
                     biaoming = "计划内"
                     Form36.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(50).Value = "1" Then
                     biaoming = "地籍"
                     Form36.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(50).Value = "1" Then
                     biaoming = "松北"
                     Form36.Show vbModal
                  Else
                  MsgBox "没有权限进行该项操作！", vbInformation, "提示"
12

m5.bas - 源码说明

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

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

⌨️ 快捷键说明

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