📄 frmfixedandsalaryanaly.frm
字号:
ScaleHeight = 1350
ScaleWidth = 4395
TabIndex = 40
Top = 216
Width = 4395
Begin ListRefer.ListText ReferText1
Height = 285
Left = 45
TabIndex = 17
Top = 330
Width = 2325
_ExtentX = 4101
_ExtentY = 503
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox txtTo
Height = 285
Left = 2865
TabIndex = 21
Text = "Text2"
Top = 825
Width = 1536
End
Begin VB.TextBox txtFrom
Height = 285
Left = 2850
TabIndex = 19
Text = "Text1"
Top = 315
Width = 1536
End
Begin VB.Label lblTo2
AutoSize = -1 'True
Caption = "到(&T)"
Height = 180
Left = 2400
TabIndex = 20
Top = 810
Visible = 0 'False
Width = 450
End
Begin VB.Label lblFrom2
AutoSize = -1 'True
Caption = "从(&F)"
Height = 180
Left = 2400
TabIndex = 18
Top = 360
Visible = 0 'False
Width = 450
End
Begin VB.Label Lblsel
AutoSize = -1 'True
Caption = "科目"
Height = 180
Left = 75
TabIndex = 16
Top = 90
Width = 360
End
End
Begin VB.Label Label1
Caption = "Label1"
Height = 285
Left = 540
TabIndex = 42
Top = 240
Width = 1725
End
End
Begin VB.Frame Frame2
Caption = "已选条件"
Height = 1635
Left = 3030
TabIndex = 38
Top = 2100
Width = 4590
Begin MSFlexGridLib.MSFlexGrid MsgFilter
Height = 1365
Left = 60
TabIndex = 22
Top = 210
Width = 4470
_ExtentX = 7885
_ExtentY = 2408
_Version = 393216
FixedCols = 0
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 3
End
End
Begin VB.Frame Frame1
Caption = "可选项目"
Height = 2970
Left = 150
TabIndex = 37
Top = 432
Width = 2775
Begin MSComctlLib.TreeView tvwFilter
Height = 2640
Left = 75
TabIndex = 8
Top = 255
Width = 2580
_ExtentX = 4551
_ExtentY = 4657
_Version = 393217
HideSelection = 0 'False
Indentation = 529
LineStyle = 1
Style = 7
SingleSel = -1 'True
Appearance = 1
End
End
Begin VB.PictureBox picWizard
Height = 2775
Index = 1
Left = 144
ScaleHeight = 2715
ScaleWidth = 1485
TabIndex = 36
Top = 528
Width = 1545
End
Begin VB.TextBox txtReportName
Height = 285
Left = -71370
MaxLength = 30
TabIndex = 2
Top = 750
Width = 3615
End
Begin VB.Frame fraExplain
Caption = "说明"
Height = 1455
Left = -72405
TabIndex = 34
Top = 2085
Width = 4695
Begin VB.Label lblExplain
AutoSize = -1 'True
Caption = "录入财务分析报表名称。"
Height = 180
Left = 585
TabIndex = 35
Top = 540
Width = 1980
End
End
Begin VB.PictureBox picWizard
Height = 3165
Index = 0
Left = -74856
ScaleHeight = 3105
ScaleWidth = 2055
TabIndex = 33
Top = 528
Width = 2115
End
Begin VB.Label LblCond
Caption = "条件显示"
Height = 255
Left = 210
TabIndex = 47
Top = 3510
Width = 765
End
Begin VB.Label lblReportName
AutoSize = -1 'True
Caption = "报表名称(&N)"
Height = 180
Left = -72405
TabIndex = 1
Top = 780
Width = 990
End
End
Begin VB.CommandButton cmdNextStep
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Left = 5040
Style = 1 'Graphical
TabIndex = 5
Top = 4272
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdPriorStep
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Left = 3732
Style = 1 'Graphical
TabIndex = 4
Top = 4272
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdComplete
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Left = 6348
Style = 1 'Graphical
TabIndex = 6
Top = 4272
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Left = 2412
Style = 1 'Graphical
TabIndex = 3
Top = 4272
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton CmdReset
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Left = 1008
Style = 1 'Graphical
TabIndex = 7
Top = 4272
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1215
End
Begin VB.Line Line1
BorderColor = &H80000003&
Index = 0
X1 = 0
X2 = 8505
Y1 = 4140
Y2 = 4140
End
Begin VB.Line Line1
BorderColor = &H80000005&
Index = 1
X1 = 0
X2 = 8910
Y1 = 4140
Y2 = 4140
End
End
Attribute VB_Name = "frmFixedAndSalaryAnaly"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'名称:财务分析报表向导窗体(用于工资分析和固资分析)
'作者:雷宇
'时间:1998-12-29
'
'调用函数:Public Function SetReport(clsReportSet As FinanceReportWizard) As Boolean
'返回值:布尔型:如果向导完成为真,否则为假
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Const lngFormHeight = 5064
Private Const lngFormWidth = 7824
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 查询条件变量
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private WithEvents mclsHook As Hook
Attribute mclsHook.VB_VarHelpID = -1
Private mclsFilter As FormCond '查询条件类
Private strSelected() As String
Private mclsFinanceRptWiz As FinanceReportWizard '定义类模块变量,从数据库中读取数据
Private Const mintMaxStep = 3 '本向导共有3步
Private mbytPrep As Integer '向导，预设，还是自定义表
Private mintStepNow As Integer '当前步数
Private mintTabIndex As Integer '当前的页面
Private mlngStepNum As Long
Private mintFixedColumns As Integer '列表中固定栏目数。
Private mstrFixedColumnsString() As String '固定栏目数组
Private blnIsCanComplete As Boolean '是否可完成向导？
Private blnIsCheck As Boolean
Private blnIsListHasData As Boolean
Private mblnReportPeriodCond As Boolean
Private mblnIsPeriodOver As Boolean
Private bytAccountType As Byte
Private bytDataSource As Byte
Private bytType As Byte
Private lngViewFieldID As Long
Private mblnOk As Boolean
Private lngChkOldTop As Long
Private MaxNodesNumber As Long
Private mstrAnalyPeriodType As String
Private mstrReferPeriodType As String
Private mstrReportPeriodType As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -