📄 frmreportsum.frm
字号:
EndProperty
Height = 375
Index = 0
Left = -67380
Style = 1 'Graphical
TabIndex = 25
TabStop = 0 'False
Top = 1590
UseMaskColor = -1 'True
Width = 275
End
Begin VB.Frame fraSalary
Caption = "选择工资表"
Height = 2175
Left = -72030
TabIndex = 6
Top = 1680
Visible = 0 'False
Width = 4455
Begin VB.CommandButton cmdSalaryArrow
Caption = "<<"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 2040
TabIndex = 14
Top = 1500
UseMaskColor = -1 'True
Width = 360
End
Begin VB.CommandButton cmdSalaryArrow
Caption = "<"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 2040
TabIndex = 13
Top = 1200
UseMaskColor = -1 'True
Width = 360
End
Begin VB.CommandButton cmdSalaryArrow
Caption = ">>"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 2040
TabIndex = 12
Top = 900
UseMaskColor = -1 'True
Width = 360
End
Begin VB.CommandButton cmdSalaryArrow
Caption = ">"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 2040
TabIndex = 11
Top = 600
UseMaskColor = -1 'True
Width = 360
End
Begin VB.ListBox lstSalaryChoosed
Height = 1500
ItemData = "frmReportSum.frx":0283
Left = 2520
List = "frmReportSum.frx":0285
MultiSelect = 2 'Extended
TabIndex = 10
Top = 480
Width = 1695
End
Begin VB.ListBox lstSalaryChoose
Height = 1500
ItemData = "frmReportSum.frx":0287
Left = 240
List = "frmReportSum.frx":0289
MultiSelect = 2 'Extended
TabIndex = 8
Top = 480
Width = 1695
End
Begin VB.Label LblSChoosed
Caption = "已选(&Y)"
Height = 255
Left = 2520
TabIndex = 9
Top = 240
Width = 1695
End
Begin VB.Label LblSChoose
Caption = "可选(&K)"
Height = 255
Left = 240
TabIndex = 7
Top = 240
Width = 1695
End
End
Begin VB.Frame fraDescribe
Caption = "说明"
Height = 1575
Left = -72030
TabIndex = 4
Top = 2100
Width = 4455
Begin VB.Label LblDesc
Caption = "请按向导步骤选择查询项目和方式!"
Height = 1035
Left = 480
TabIndex = 5
Top = 360
Width = 3915
End
End
Begin VB.Label lblSumed
Caption = "汇总项目(&Y)"
Height = 345
Left = -69390
TabIndex = 76
Top = 600
Width = 1185
End
Begin VB.Label LblSum
Caption = "报表项目(&K)"
Height = 375
Left = -71910
TabIndex = 74
Top = 600
Width = 1275
End
Begin VB.Label LblFixLeft
Caption = "报表固定列数(&L)"
Height = 255
Left = -70740
TabIndex = 86
Top = 3630
Width = 1455
End
Begin VB.Label LblHead
Caption = "可选表头(&K)"
Height = 255
Left = -71910
TabIndex = 80
Top = 600
Width = 1695
End
Begin VB.Label LblHeaded
Caption = "已选表头(&Y)"
Height = 255
Left = -69390
TabIndex = 82
Top = 600
Width = 1455
End
Begin VB.Label LblCode
Caption = "编码显示方式(&B)"
Height = 255
Left = -70740
TabIndex = 84
Top = 3270
Width = 1455
End
Begin VB.Label LblCond
Caption = "条件显示(&L)"
Height = 255
Left = 240
TabIndex = 32
Top = 3660
Width = 1095
End
Begin VB.Label LblReport
Caption = "报表项目(&K)"
Height = 255
Index = 2
Left = -71910
TabIndex = 64
Top = 600
Width = 1575
End
Begin VB.Label LstSort
Caption = "排序项目(&Y)"
Height = 255
Left = -69390
TabIndex = 66
Top = 600
Width = 1455
End
Begin VB.Label LblSort
Caption = "排序方式(&L)"
Enabled = 0 'False
Height = 315
Left = -70050
TabIndex = 68
Top = 3660
Width = 1335
End
Begin VB.Label LblReportName
Caption = "报表名称(&R)"
Height = 375
Left = -72030
TabIndex = 2
Top = 600
Width = 1035
End
Begin VB.Label LblList
Caption = "列名(&L)"
Height = 255
Left = -70035
TabIndex = 19
Top = 3720
Width = 675
End
Begin VB.Label LblReport
Caption = "报表项目(&Y)"
Height = 225
Index = 0
Left = -69390
TabIndex = 17
Top = 600
Width = 1575
End
Begin VB.Label LblData
Caption = "数据项目(&K)"
Height = 225
Left = -71910
TabIndex = 15
Top = 600
Width = 1035
End
End
Begin VB.Line linSep
BorderColor = &H00808080&
Index = 0
X1 = 0
X2 = 10000
Y1 = 4250
Y2 = 4250
End
Begin VB.Line linSep
BorderColor = &H00FFFFFF&
Index = 1
X1 = 0
X2 = 10000
Y1 = 4260
Y2 = 4260
End
End
Attribute VB_Name = "frmReportSum"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 标准表向导窗体
' 作者：邓强
' 日期：1998.06.26
'
' 引导用户选择标准表项目
' SetStandard 初始化向导, 返回是否选中"完成"按钮(StandardReportSet类模块调用)
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 查询条件变量
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private WithEvents mclsHook As Hook
Attribute mclsHook.VB_VarHelpID = -1
Private WithEvents mclsHookFilt As Hook
Attribute mclsHookFilt.VB_VarHelpID = -1
Private mclsFilter As FormCond '查询条件类
Private mclsFilt As clsFilter '过滤条件类
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 向导变量
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private marrFields() As Variant '可选项目对应的部分属性(,15)
Private mclsSum As ReportSumSet
Private mblnMeOK As Boolean '是否选中'完成'按钮
Private mblnFieldChanged As Boolean '是否重选项目
Private mblnHeadChanged As Boolean '是否重选表头项目
Private mblnInited(6) As Boolean 'Tab是否已初始化
Private mblnFormShow As Boolean '窗体是否已显示
Private mintIndex As Integer '修改项目索引
Private mblnDelCustom As Boolean '删除已选自定义栏目
Private mbytOldCondShow As Byte '条件最先显示方式
' 工资报表变量
Private mstrSalaryID As String
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cboCode_Click()
Dim intLoc As Integer
If mblnFormShow Then
MeFind LstHeaded.list(LstHeaded.ListIndex), intLoc
marrFields(intLoc, 15) = cboCode.ListIndex + 1
End If
End Sub
Private Sub cboSort_Click()
Dim intCount As Integer
Dim strSel As String
If LstMeSort.ListIndex = -1 Then
Exit Sub
Else
'保存排序方式
strSel = LstMeSort.list(LstMeSort.ListIndex)
MeFind strSel, intCount
marrFields(intCount, 5) = cboSort.Text
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -