📄 z
字号:
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 35
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":35106
Key = "sz"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":354A0
Key = "dy"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3583A
Key = "yl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":35BD4
Key = "xg"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":35F6E
Key = "zh"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":36308
Key = "sh"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":366A2
Key = "bc"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":36A3C
Key = "fq"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":36DD6
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":37170
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3750A
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":378A4
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":37C3E
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":37FD8
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":38372
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3870C
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":38AA6
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":38E40
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":391DA
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":39574
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3990E
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":39CA8
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3A042
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3A3DC
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3A776
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3AB10
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3AEAA
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3B244
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3B5DE
Key = "dw"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3B978
Key = "hf"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3BD12
Key = "pz"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3C0AC
Key = "check"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3C446
Key = "zz"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3C7E0
Key = "mx"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "z报表分析_损益表分析.frx":3CB7A
Key = "lj"
EndProperty
EndProperty
End
End
Begin vsElasticLightLibCtl.vsElasticLight vsElasticLight1
Left = 7380
OleObjectBlob = "z报表分析_损益表分析.frx":3CF14
Top = 30
End
End
Attribute VB_Name = "BBFX_FrmIncFx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const COL_WIDTH = 1500
Private Const DATE_FIX = "/"
Public strBegin As String '季日期
Public strEnd As String '季日期
Public bIFComp As Boolean '是否有比较期
Public iThisYear As Integer '本年
Public iThisMonthBegin As Integer '本年月起始
Public iThisMonthEnd As Integer '本年终止月
Public iCompYear As Integer '比较年
Public iCompMonthBegin As Integer '比较年月开始
Public iCompMonthEnd As Integer '比较年终止月
Public intType As Integer '比较类型，0按月、1按季、2按年
Public strItem As String '资产负债表的分枝类别，与树型菜单一致
Public strTemItem As String '同上
Public bSeach As Boolean '是否执行查询
Private Rs As New ADODB.Recordset
Private myclsInc As New clsInc '损益表类
Private GridStarCol As Integer ' = 2 '网格起始数据列
Private itype As Integer
Dim iWriteCols As Integer '循环写入列数(用于写数据到网格)
Dim iWriteRows As Integer '循环写入行数
Dim ReportTitle As String '报表主标题
'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Tsxx As String '系统提示信息
Dim Qslz As Long '网格隐藏(非操作显示)列数
Dim Sjhgd As Double '网格数据行高度
Dim Sfxshjwg As Boolean '是否显示合计网格
Dim GridBoolean() As Boolean '网格列信息(布尔型)
Dim GridStr() As String '网格列信息(字符型)
Dim GridInt() As Integer '网格列信息(整型)
Dim Szzls As Integer '数组总列数(网格列数-1)
Dim Bln_Stop As Boolean '停止输出查询结果
Private Sub Form_Load()
If DEBUG_FLAG = False Then On Error Resume Next
strTemItem = strItem
XtReportCode = "cwfx_IncFx"
Load Dyymctbl
myclsInc.Init Cw_DataEnvi.DataConnect
' Select Case strItem
' Case "cwfx_IncJds", "cwfx_IncDj", "cwfx_IncHb" '绝对数、定基、环比
'
' Case "cwfx_IncDb", "cwfx_IncJg" '对比、结构
'
' End Select
End Sub
Public Sub FormInit()
If DEBUG_FLAG = False Then On Error Resume Next
'窗体被始化
ReportTitle = Me.TsLabel(4).Caption '打印标题
GridCode = strItem
Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
Qslz = GridInf(1)
Sjhgd = GridInf(2)
Sfxshjwg = GridInf(7)
Szzls = CxbbGrid.Cols - 1
CxbbGrid.Redraw = False
Select Case strItem
Case "cwfx_IncJds", "cwfx_IncDj", "cwfx_IncHb" '绝对数、定基、环比
Call GetIncItem
iWriteCols = 2
Call AddGridCol
Call FillGrid
Case "cwfx_IncDb" '对比
Call GetIncItem
Call dbFillGrid
Case "cwfx_IncJg" '结构
Call GetIncItem
Call jgFillGrid
End Select
CxbbGrid.Redraw = True
End Sub
Private Sub GetIncItem()
If DEBUG_FLAG = False Then On Error Resume Next
'填充资产类项目
Dim iRow As Integer
Set Rs = Cw_DataEnvi.DataConnect.Execute("select * from cwfx_IncomeCostInitial")
iWriteRows = Rs.RecordCount - 1 '循环写入行数
With CxbbGrid
iRow = .FixedRows
Do Until Rs.EOF
.AddItem ""
.TextMatrix(iRow, Sydz("001", GridStr(), Szzls)) = RTrim(Rs!comment)
.TextMatrix(iRow, 0) = Trim(Rs!item)
.RowHeight(iRow) = Sjhgd
Rs.MoveNext
iRow = iRow + 1
Loop
End With
End Sub
Private Sub AddGridCol()
If DEBUG_FLAG = False Then On Error Resume Next
Dim item As Integer
Dim i As Integer
iWriteCols = 0 '循环写入写数置0
Select Case intType
Case 0 '月
If iThisMonthBegin > iThisMonthEnd Then
item = iThisMonthBegin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -