📄 financereportwizard.frm
字号:
TabIndex = 43
Top = 540
Width = 2115
End
Begin VB.PictureBox picWizard
Height = 2655
Index = 1
Left = -74865
ScaleHeight = 2595
ScaleWidth = 1485
TabIndex = 42
Top = 540
Width = 1545
End
Begin VB.PictureBox picWizard
Height = 3225
Index = 2
Left = -74865
ScaleHeight = 3165
ScaleWidth = 2055
TabIndex = 41
Top = 540
Width = 2115
End
Begin VB.Frame fraColumnsSet
Height = 2220
Left = 2370
TabIndex = 26
Top = 450
Width = 5295
Begin VB.CommandButton cmdAllToLeft
BackColor = &H00C0C0C0&
Caption = "<<"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Left = 1728
MaskColor = &H00000000&
TabIndex = 31
Top = 1680
UseMaskColor = -1 'True
Width = 576
End
Begin VB.CommandButton cmdToLeft
BackColor = &H00C0C0C0&
Caption = "<"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Left = 1728
MaskColor = &H00000000&
TabIndex = 30
Top = 1290
UseMaskColor = -1 'True
Width = 576
End
Begin VB.CommandButton cmdAllToRight
BackColor = &H00C0C0C0&
Caption = ">>"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Left = 1728
MaskColor = &H00000000&
TabIndex = 29
Top = 915
UseMaskColor = -1 'True
Width = 576
End
Begin VB.CommandButton cmdToRight
BackColor = &H00C0C0C0&
Caption = ">"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 336
Left = 1728
MaskColor = &H00000000&
TabIndex = 28
Top = 540
UseMaskColor = -1 'True
Width = 576
End
Begin VB.ListBox lstSelectedItem
Height = 1680
Left = 2436
TabIndex = 32
Top = 408
Width = 1452
End
Begin VB.ListBox lstAll
Height = 1680
Left = 144
TabIndex = 27
Top = 408
Width = 1452
End
Begin VB.CommandButton cmdUpWard
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 396
Left = 4320
Style = 1 'Graphical
TabIndex = 33
TabStop = 0 'False
Top = 720
UseMaskColor = -1 'True
Width = 300
End
Begin VB.CommandButton cmdDownWard
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 396
Left = 4320
Style = 1 'Graphical
TabIndex = 34
TabStop = 0 'False
Top = 1260
UseMaskColor = -1 'True
Width = 300
End
Begin VB.Label lblSelectedItem
AutoSize = -1 'True
Caption = "已选栏目"
Height = 180
Left = 2388
TabIndex = 40
Top = 180
Width = 720
End
Begin VB.Label lblSelItem
AutoSize = -1 'True
Caption = "可选栏目"
Height = 180
Left = 204
TabIndex = 39
Top = 180
Width = 720
End
End
Begin VB.CommandButton cmdHeadAndTail
Caption = "表头表尾(&W)..."
Height = 350
Left = 150
TabIndex = 36
Top = 3600
UseMaskColor = -1 'True
Visible = 0 'False
Width = 1452
End
Begin VB.Label LblCond
Caption = "条件显示"
Height = 255
Left = -74850
TabIndex = 72
Top = 3510
Width = 765
End
Begin VB.Label lblReportName
AutoSize = -1 'True
Caption = "报表名称(&N)"
Height = 180
Left = -72330
TabIndex = 1
Top = 795
Width = 990
End
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 = "frmFinanceReportWizard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'名称:财务分析报表向导窗体
'作者:雷宇
'时间:1998-07-01
'
'调用函数:Public Function SetReport(clsReportSet As FinanceReportWizard) As Boolean
'返回值:布尔型:如果向导完成为真,否则为假
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Const lngFormHeight = 5028
Private Const lngFormWidth = 7956
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 查询条件变量
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private clsFset As ClsFormatset
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 = 4 '本向导共有4步
Private mbytPrep As Integer '向导，预设，还是自定义表
Private mintStepNow As Integer '当前步数
Private mintTabIndex As Integer '当前的页面
Private mlngStepNum As Long
Private intFixedColumns As Integer '列表中固定栏目数。
Private strFixedColumnsString() As String '固定栏目数组
Private blnIsCanComplete As Boolean '是否可完成向导？
Private blnIsCheck As Boolean
Private blnIsListHasData As Boolean
Private mblnReportPeriodCond As Boolean
Private mblnIsPeriodOver As Boolean
Private mbytAccountType 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
Private mstrOtherAnalyPeriodType As String
Private mstrOtherReferPeriodType As String
Private mblnIsJudge As Boolean
Private mstrAnalyCol As String
Private mblnHasDeleted As Boolean
Private mblnPassMustStep As Boolean
Private mblnIsComplete As Boolean
Private mstrOldName As String
Private mblnNewReport As Boolean
Private mintTempMaxStep As Integer '最后一页是否隐藏
Private mbytAnalyMethodId As Integer '分析方法
Private mstrReferBeginPrevText As String
Private mstrReferEndPrevText As String
Private mstrPeriods() As String
Private mintPeriodIndex() As String
Private Function CheckChkType() As Boolean
Dim Index As Integer
For Index = 0 To 2
If chkType(Index).Visible = True Then
If chkType(Index).Value = 0 Then
CheckChkType = False
Else
CheckChkType = True
Exit Function
End If
End If
Next
End Function
Private Sub cboCond_Click()
mclsFinanceRptWiz.CondShow = cboCond.ListIndex
End Sub
Private Sub chkType_Click(Index As Integer)
Dim intCount As Integer
Dim blnValued As Boolean
Dim bytDataType As Byte
If Index <= 2 Then
For intCount = 0 To 2
If chkType(intCount).Value = 1 Then
blnValued = True
Exit For
Else
blnValued = False
End If
Next
End If
If mclsFinanceRptWiz.AccountTypeID = 6 Or mclsFinanceRptWiz.AccountTypeID = 8 And mclsFinanceRptWiz.AccountStyle = 52 Then
If chkType(2).Value = 1 Or chkType(1).Value = 1 Then '若是原币,只能分析收入
optDataSource(0).Value = True
optDataSource(0).Enabled = False
optDataSource(1).Enabled = False
optDataSource(2).Enabled = False
optDataSource(3).Enabled = False
optDataSource(4).Enabled = False
Else
optDataSource(0).Enabled = True
optDataSource(1).Enabled = True
optDataSource(2).Enabled = True
optDataSource(3).Enabled = True
optDataSource(4).Enabled = True
End If
End If
bytDataType = CountDatatype
If CountDatatype = 0 Then
cmdComplete.Enabled = False
Else
If mclsFinanceRptWiz.ViewId <> 548 Then '销售同期比较
cmdComplete.Enabled = True
Else
Select Case bytDataType
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -