📄 constant.bas
字号:
Attribute VB_Name = "Constant"
Public sData(20) As String
Public iFlag As Integer ''''''判断(基本信息表)是增加还是修改'''''''''''
Public InfoSql As String '''''存储查询基本信息的查询条件
Public InfoWhere As String
Public sFieldName(3) As String '''''对基本信息表选择查询条件时存储字段名称''''''''''''''''
Public sFieldValue(3) As String
'''''以上定义是针对基本信息表操作''''''''''''
Public iAFlag As Integer ''''''''判断(调动信息)是增加还是修改''''''''
Public sAData(20) As String
Public AlterInfoSql As String '''''存储查询调动信息的查询条件
Public AlterInfoWhere As String
Public sAFieldName(3) As String '''''对调动信息表选择查询条件时存储字段名称''''''''''''''''
Public sAFieldValue(3) As String
'''''以上定义是针对调动信息表操作''''''''''''
Public iATFlag As Integer ''''''''判断(调动信息)是增加还是修改''''''''
Public sATData(20) As String
Public AttendanceInfoSql As String '''''存储查询调动信息的查询条件
Public AttendanceInfoWhere As String
Public sATFieldName(3) As String '''''对调动信息表选择查询条件时存储字段名称''''''''''''''''
Public sATFieldValue(3) As String
'''''以上定义是针对上下班信息表操作''''''''''''
Public iTableType As Integer ''''''
Public iOLFlag As Integer
Public iOOFlag As Integer
Public iOEFlag As Integer
Public sOLData(20) As String
Public sOOData(20) As String
Public sOEData(20) As String
''''''以上是针对其他考勤信息操作''''''''
Public sLoginName As String
Public sLoginDate As String
Public sLoginRight As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -