开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：35k
源码类别：

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form Bbfx_FrmBalFx2 
  5.    Caption         =   "资产负债表分析"
  6.    ClientHeight    =   7095
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   9375
  10.    Icon            =   "报表分析_资产负债表分析2.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form1"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   7095
  15.    ScaleWidth      =   9375
  16.    Begin VB.PictureBox Pic_Title 
  17.       Height          =   1185
  18.       Left            =   -30
  19.       Picture         =   "报表分析_资产负债表分析2.frx":1042
  20.       ScaleHeight     =   1125
  21.       ScaleWidth      =   9345
  22.       TabIndex        =   1
  23.       Top             =   570
  24.       Width           =   9405
  25.       Begin VB.Label Label_Bfb 
  26.          AutoSize        =   -1  'True
  27.          BackStyle       =   0  'Transparent
  28.          Caption         =   "单位:百分比"
  29.          Height          =   195
  30.          Left            =   7755
  31.          TabIndex        =   9
  32.          Top             =   870
  33.          Visible         =   0   'False
  34.          Width           =   945
  35.       End
  36.       Begin VB.Label lab_bj 
  37.          AutoSize        =   -1  'True
  38.          BackStyle       =   0  'Transparent
  39.          Caption         =   "------"
  40.          Height          =   180
  41.          Left            =   4620
  42.          TabIndex        =   8
  43.          Top             =   870
  44.          Width           =   540
  45.       End
  46.       Begin VB.Label lab_fx 
  47.          AutoSize        =   -1  'True
  48.          BackStyle       =   0  'Transparent
  49.          Caption         =   "------"
  50.          Height          =   180
  51.          Left            =   1170
  52.          TabIndex        =   7
  53.          Top             =   855
  54.          Width           =   540
  55.       End
  56.       Begin VB.Label lab_Bjq 
  57.          AutoSize        =   -1  'True
  58.          BackStyle       =   0  'Transparent
  59.          Caption         =   "比较期:"
  60.          Height          =   180
  61.          Left            =   3945
  62.          TabIndex        =   6
  63.          Top             =   870
  64.          Width           =   630
  65.       End
  66.       Begin VB.Label lab_Fxq 
  67.          AutoSize        =   -1  'True
  68.          BackStyle       =   0  'Transparent
  69.          Caption         =   "分析期:"
  70.          Height          =   180
  71.          Left            =   480
  72.          TabIndex        =   5
  73.          Top             =   855
  74.          Width           =   630
  75.       End
  76.       Begin VB.Label TsLabel 
  77.          AutoSize        =   -1  'True
  78.          BackColor       =   &H80000018&
  79.          BackStyle       =   0  'Transparent
  80.          Caption         =   "资产负债表分析"
  81.          BeginProperty Font 
  82.             Name            =   "宋体"
  83.             Size            =   12
  84.             Charset         =   134
  85.             Weight          =   700
  86.             Underline       =   0   'False
  87.             Italic          =   0   'False
  88.             Strikethrough   =   0   'False
  89.          EndProperty
  90.          ForeColor       =   &H00000000&
  91.          Height          =   240
  92.          Index           =   4
  93.          Left            =   600
  94.          TabIndex        =   2
  95.          Top             =   210
  96.          Width           =   1785
  97.       End
  98.    End
  99.    Begin MSComctlLib.Toolbar GsToolbar 
  100.       Height          =   525
  101.       Left            =   7695
  102.       TabIndex        =   0
  103.       Top             =   15
  104.       Width           =   1665
  105.       _ExtentX        =   2937
  106.       _ExtentY        =   926
  107.       ButtonWidth     =   1455
  108.       ButtonHeight    =   926
  109.       AllowCustomize  =   0   'False
  110.       Appearance      =   1
  111.       Style           =   1
  112.       ImageList       =   "ImageList1"
  113.       _Version        =   393216
  114.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  115.          NumButtons      =   2
  116.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  117.             Caption         =   "保存格式"
  118.             Key             =   "bcgs"
  119.             ImageKey        =   "bcgs"
  120.          EndProperty
  121.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  122.             Caption         =   "默认列宽"
  123.             Key             =   "hfmrgs"
  124.             ImageKey        =   "mrlk"
  125.          EndProperty
  126.       EndProperty
  127.    End
  128.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  129.       Height          =   5205
  130.       Left            =   -30
  131.       TabIndex        =   3
  132.       Top             =   1800
  133.       Width           =   9405
  134.       _cx             =   5080
  135.       _cy             =   5080
  136.       Appearance      =   1
  137.       BorderStyle     =   1
  138.       Enabled         =   -1  'True
  139.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  140.          Name            =   "宋体"
  141.          Size            =   9
  142.          Charset         =   134
  143.          Weight          =   400
  144.          Underline       =   0   'False
  145.          Italic          =   0   'False
  146.          Strikethrough   =   0   'False
  147.       EndProperty
  148.       MousePointer    =   0
  149.       BackColor       =   16777215
  150.       ForeColor       =   -2147483640
  151.       BackColorFixed  =   12632256
  152.       ForeColorFixed  =   -2147483630
  153.       BackColorSel    =   -2147483635
  154.       ForeColorSel    =   -2147483634
  155.       BackColorBkg    =   -2147483636
  156.       BackColorAlternate=   16777215
  157.       GridColor       =   -2147483633
  158.       GridColorFixed  =   -2147483632
  159.       TreeColor       =   -2147483632
  160.       FloodColor      =   192
  161.       SheetBorder     =   -2147483642
  162.       FocusRect       =   1
  163.       HighLight       =   1
  164.       AllowSelection  =   -1  'True
  165.       AllowBigSelection=   -1  'True
  166.       AllowUserResizing=   0
  167.       SelectionMode   =   0
  168.       GridLines       =   1
  169.       GridLinesFixed  =   2
  170.       GridLineWidth   =   1
  171.       Rows            =   50
  172.       Cols            =   10
  173.       FixedRows       =   1
  174.       FixedCols       =   0
  175.       RowHeightMin    =   0
  176.       RowHeightMax    =   0
  177.       ColWidthMin     =   0
  178.       ColWidthMax     =   0
  179.       ExtendLastCol   =   0   'False
  180.       FormatString    =   ""
  181.       ScrollTrack     =   0   'False
  182.       ScrollBars      =   3
  183.       ScrollTips      =   0   'False
  184.       MergeCells      =   0
  185.       MergeCompare    =   0
  186.       AutoResize      =   -1  'True
  187.       AutoSizeMode    =   0
  188.       AutoSearch      =   0
  189.       AutoSearchDelay =   2
  190.       MultiTotals     =   -1  'True
  191.       SubtotalPosition=   1
  192.       OutlineBar      =   0
  193.       OutlineCol      =   0
  194.       Ellipsis        =   0
  195.       ExplorerBar     =   0
  196.       PicturesOver    =   0   'False
  197.       FillStyle       =   0
  198.       RightToLeft     =   0   'False
  199.       PictureType     =   0
  200.       TabBehavior     =   0
  201.       OwnerDraw       =   0
  202.       Editable        =   0
  203.       ShowComboButton =   1
  204.       WordWrap        =   0   'False
  205.       TextStyle       =   0
  206.       TextStyleFixed  =   0
  207.       OleDragMode     =   0
  208.       OleDropMode     =   0
  209.       DataMode        =   0
  210.       VirtualData     =   -1  'True
  211.       DataMember      =   ""
  212.       ComboSearch     =   3
  213.       AutoSizeMouse   =   -1  'True
  214.       FrozenRows      =   0
  215.       FrozenCols      =   0
  216.       AllowUserFreezing=   0
  217.       BackColorFrozen =   0
  218.       ForeColorFrozen =   0
  219.       WallPaperAlignment=   9
  220.       AccessibleName  =   ""
  221.       AccessibleDescription=   ""
  222.       AccessibleValue =   ""
  223.       AccessibleRole  =   24
  224.    End
  225.    Begin MSComctlLib.Toolbar SzToolbar 
  226.       Align           =   1  'Align Top
  227.       Height          =   555
  228.       Left            =   0
  229.       TabIndex        =   4
  230.       Top             =   0
  231.       Width           =   9375
  232.       _ExtentX        =   16536
  233.       _ExtentY        =   979
  234.       ButtonWidth     =   820
  235.       ButtonHeight    =   926
  236.       AllowCustomize  =   0   'False
  237.       Appearance      =   1
  238.       Style           =   1
  239.       ImageList       =   "ImageList1"
  240.       _Version        =   393216
  241.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  242.          NumButtons      =   10
  243.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  244.             Caption         =   "设置"
  245.             Key             =   "ymsz"
  246.             ImageKey        =   "sz"
  247.          EndProperty
  248.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  249.             Caption         =   "打印"
  250.             Key             =   "dy"
  251.             ImageKey        =   "dy"
  252.          EndProperty
  253.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  254.             Caption         =   "预览"
  255.             Key             =   "yl"
  256.             ImageKey        =   "yl"
  257.          EndProperty
  258.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  259.             Style           =   3
  260.          EndProperty
  261.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  262.             Caption         =   "查询"
  263.             Key             =   "cx"
  264.             ImageKey        =   "cx"
  265.          EndProperty
  266.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  267.             Object.Visible         =   0   'False
  268.             Style           =   3
  269.          EndProperty
  270.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  271.             Object.Visible         =   0   'False
  272.             Caption         =   "累计"
  273.             Key             =   "lj"
  274.             ImageKey        =   "lj"
  275.             Style           =   1
  276.          EndProperty
  277.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  278.             Style           =   3
  279.          EndProperty
  280.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  281.             Caption         =   "帮助"
  282.             Key             =   "bz"
  283.             ImageKey        =   "bz"
  284.          EndProperty
  285.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  286.             Caption         =   "退出"
  287.             Key             =   "fh"
  288.             ImageKey        =   "tc"
  289.          EndProperty
  290.       EndProperty
  291.       BorderStyle     =   1
  292.       Begin MSComctlLib.ImageList ImageList1 
  293.          Left            =   6450
  294.          Top             =   30
  295.          _ExtentX        =   1005
  296.          _ExtentY        =   1005
  297.          BackColor       =   -2147483643
  298.          ImageWidth      =   16
  299.          ImageHeight     =   16
  300.          MaskColor       =   12632256
  301.          _Version        =   393216
  302.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  303.             NumListImages   =   35
  304.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  305.                Picture         =   "报表分析_资产负债表分析2.frx":35106
  306.                Key             =   "sz"
  307.             EndProperty
  308.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  309.                Picture         =   "报表分析_资产负债表分析2.frx":354A0
  310.                Key             =   "dy"
  311.             EndProperty
  312.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  313.                Picture         =   "报表分析_资产负债表分析2.frx":3583A
  314.                Key             =   "yl"
  315.             EndProperty
  316.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  317.                Picture         =   "报表分析_资产负债表分析2.frx":35BD4
  318.                Key             =   "xg"
  319.             EndProperty
  320.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  321.                Picture         =   "报表分析_资产负债表分析2.frx":35F6E
  322.                Key             =   "zh"
  323.             EndProperty
  324.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  325.                Picture         =   "报表分析_资产负债表分析2.frx":36308
  326.                Key             =   "sh"
  327.             EndProperty
  328.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  329.                Picture         =   "报表分析_资产负债表分析2.frx":366A2
  330.                Key             =   "bc"
  331.             EndProperty
  332.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  333.                Picture         =   "报表分析_资产负债表分析2.frx":36A3C
  334.                Key             =   "fq"
  335.             EndProperty
  336.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  337.                Picture         =   "报表分析_资产负债表分析2.frx":36DD6
  338.                Key             =   "bz"
  339.             EndProperty
  340.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  341.                Picture         =   "报表分析_资产负债表分析2.frx":37170
  342.                Key             =   "tc"
  343.             EndProperty
  344.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  345.                Picture         =   "报表分析_资产负债表分析2.frx":3750A
  346.                Key             =   "bcgs"
  347.             EndProperty
  348.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  349.                Picture         =   "报表分析_资产负债表分析2.frx":378A4
  350.                Key             =   "mrlk"
  351.             EndProperty
  352.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  353.                Picture         =   "报表分析_资产负债表分析2.frx":37C3E
  354.                Key             =   "xsxm"
  355.             EndProperty
  356.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  357.                Picture         =   "报表分析_资产负债表分析2.frx":37FD8
  358.                Key             =   "first"
  359.             EndProperty
  360.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  361.                Picture         =   "报表分析_资产负债表分析2.frx":38372
  362.                Key             =   "prev"
  363.             EndProperty
  364.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  365.                Picture         =   "报表分析_资产负债表分析2.frx":3870C
  366.                Key             =   "next"
  367.             EndProperty
  368.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  369.                Picture         =   "报表分析_资产负债表分析2.frx":38AA6
  370.                Key             =   "last"
  371.             EndProperty
  372.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  373.                Picture         =   "报表分析_资产负债表分析2.frx":38E40
  374.                Key             =   "xx"
  375.             EndProperty
  376.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  377.                Picture         =   "报表分析_资产负债表分析2.frx":391DA
  378.                Key             =   "define"
  379.             EndProperty
  380.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  381.                Picture         =   "报表分析_资产负债表分析2.frx":39574
  382.                Key             =   "exec"
  383.             EndProperty
  384.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  385.                Picture         =   "报表分析_资产负债表分析2.frx":3990E
  386.                Key             =   "xz"
  387.             EndProperty
  388.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  389.                Picture         =   "报表分析_资产负债表分析2.frx":39CA8
  390.                Key             =   "sc"
  391.             EndProperty
  392.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  393.                Picture         =   "报表分析_资产负债表分析2.frx":3A042
  394.                Key             =   "sx"
  395.             EndProperty
  396.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  397.                Picture         =   "报表分析_资产负债表分析2.frx":3A3DC
  398.                Key             =   "cx"
  399.             EndProperty
  400.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  401.                Picture         =   "报表分析_资产负债表分析2.frx":3A776
  402.                Key             =   "zd"
  403.             EndProperty
  404.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  405.                Picture         =   "报表分析_资产负债表分析2.frx":3AB10
  406.                Key             =   "dz"
  407.             EndProperty
  408.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  409.                Picture         =   "报表分析_资产负债表分析2.frx":3AEAA
  410.                Key             =   "ph"
  411.             EndProperty
  412.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  413.                Picture         =   "报表分析_资产负债表分析2.frx":3B244
  414.                Key             =   "fz"
  415.             EndProperty
  416.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  417.                Picture         =   "报表分析_资产负债表分析2.frx":3B5DE
  418.                Key             =   "dw"
  419.             EndProperty
  420.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  421.                Picture         =   "报表分析_资产负债表分析2.frx":3B978
  422.                Key             =   "hf"
  423.             EndProperty
  424.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  425.                Picture         =   "报表分析_资产负债表分析2.frx":3BD12
  426.                Key             =   "pz"
  427.             EndProperty
  428.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  429.                Picture         =   "报表分析_资产负债表分析2.frx":3C0AC
  430.                Key             =   "check"
  431.             EndProperty
  432.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  433.                Picture         =   "报表分析_资产负债表分析2.frx":3C446
  434.                Key             =   "zz"
  435.             EndProperty
  436.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  437.                Picture         =   "报表分析_资产负债表分析2.frx":3C7E0
  438.                Key             =   "mx"
  439.             EndProperty
  440.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  441.                Picture         =   "报表分析_资产负债表分析2.frx":3CB7A
  442.                Key             =   "lj"
  443.             EndProperty
  444.          EndProperty
  445.       End
  446.    End
  447. End
  448. Attribute VB_Name = "Bbfx_FrmBalFx2"
  449. Attribute VB_GlobalNameSpace = False
  450. Attribute VB_Creatable = False
  451. Attribute VB_PredeclaredId = True
  452. Attribute VB_Exposed = False
  453. '*************************************************************
  454. '*    模 块 名 称 :资产负债表分析
  455. '*    功 能 描 述 :对资产负债表的各种分析
  456. '*    程序员姓名  : 魏永生
  457. '*    最后修改人  :
  458. '*    最后修改时间:2002/1/15
  459. '*    备        注:
  460. '*    资产负债表分析/对比分析
  461. '*    资产负债表分析/结构分析
  462. '*************************************************************
  463. Option Explicit
  464. Private Const DATE_FIX = "/"                '日期分隔符
  466. Public iThisYear As Integer                 '本年
  467. Public iThisMonthBegin As Integer           '本年月起始
  468. Public iThisMonthEnd As Integer             '本年终止月
  470. Public iCompYear As Integer                 '比较年
  471. Public iCompMonthBegin As Integer           '比较年月开始
  472. Public iCompMonthEnd  As Integer            '比较年终止月
  474. Public intType As Integer                   '比较类型，0按月、1按季、2按年
  476. Public strItem As String                    '资产负债表的分枝类别，与树型菜单一致
  477. Public bSeach As Boolean                    '是否执行查询
  479. Private myclsBal As New clsBal              '资产负债表类
  480. Private Rs As New ADODB.Recordset
  482. Private GridStarCol As Integer              ' = 2 '网格起始数据列
  484. Dim itype As Integer
  485. Dim iYear As Integer
  486. Dim iExYear As Integer
  487. Dim iBeginMonth As Integer
  488. Dim iEndMonth As Integer
  490. Dim iWriteCols As Integer                   '循环写入列数(用于写数据到网格)
  491. Dim iWriteRows As Integer                   '循环写入行数
  493. Private dbl_ZiChan As Double                '资产合计（本期）
  494. Private dbl_FuZhai As Double                '负债合计（本期）
  496. Private dbl_ZiChanComp As Double            '资产合计（比较期）
  497. Private dbl_FuZhaiComp As Double            '负债合计（比较期）
  499. Dim ReportTitle As String                   '报表主标题
  501. '以下为固定使用变量
  502. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  503. Dim GridCode As String                   '显示网格网格代码
  504. Dim GridInf() As Variant                 '整个网格设置信息
  505. Dim Tsxx As String                       '系统提示信息
  506. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  507. Dim Sjhgd As Double                      '网格数据行高度
  508. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  509. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  510. Dim GridStr()  As String                 '网格列信息(字符型)
  511. Dim GridInt() As Integer                 '网格列信息(整型)
  512. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  513. Dim Bln_Stop As Boolean                  '停止输出查询结果
  514. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
  515.     On Error Resume Next
  516.     With CxbbGrid
  517.         .Width = Me.Width - 160
  518.         .Height = Me.Height - .Top - 400
  519.     End With
  520.     With Pic_Title
  521.         .Width = Me.Width - 160
  522.     End With
  523.     
  524.     GsToolbar.Left = Me.Width - GsToolbar.Width - 160
  525. End Sub
  527. Private Sub Form_Load()                  '窗体装入
  528.     If DEBUG_FLAG = False Then On Error Resume Next
  529.     '调入打印页面设置窗体
  530.     XtReportCode = "Cwfx_BalAnalysis"
  531.     Load Dyymctbl
  532.     
  533.     
  534. End Sub
  536. Public Sub FormInit() '窗体初始化
  537.     If DEBUG_FLAG = False Then On Error Resume Next
  538.     ReportTitle = Me.TsLabel(4).Caption         '打印标题
  539.     
  540.     myclsBal.Init Cw_DataEnvi.DataConnect       '初始化资产负债表类
  541.     GridCode = strItem                          '此变量在“系统私有模块中赋值(BalFx2)
  542.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  543.     
  544.     Qslz = GridInf(1)
  545.     Sjhgd = GridInf(2)
  546.     Sfxshjwg = GridInf(7)
  547.     Szzls = CxbbGrid.Cols - 1
  548.     
  549.     '--------------填充数据-----------------------------
  550.     Select Case intType
  551.     Case 0 '月
  552.         lab_fx.Caption = CStr(iThisYear) & "." & CStr(iThisMonthBegin)
  553.         If iCompMonthEnd = 0 Then
  554.             lab_bj.Caption = ""
  555.         Else
  556.             lab_bj.Caption = CStr(iCompYear) & "." & CStr(iCompMonthEnd)
  557.         End If
  558.     Case 1 '季
  559.         lab_fx.Caption = CStr(iThisYear) & "." & CStr(iThisMonthBegin) & "-" & CStr(iThisYear) & "." & CStr(iThisMonthEnd)
  560.         If iCompYear = 0 Then
  561.             lab_bj.Caption = ""
  562.         Else
  563.             lab_bj.Caption = CStr(iCompYear) & "." & CStr(iCompMonthBegin) & "-" & CStr(iCompYear) & "." & CStr(iCompMonthEnd)
  564.         End If
  565.     Case 2 '年
  566.         lab_fx.Caption = CStr(iThisYear)
  567.         If iCompYear = 0 Then
  568.             lab_bj.Caption = ""
  569.         Else
  570.             lab_bj.Caption = CStr(iCompYear)
  571.         End If
  572.     End Select
  573.     CxbbGrid.Redraw = False
  574.     Call GetBalZiChan
  575.     GridStarCol = 2
  576.     CxbbGrid.Redraw = True
  577.     '------------------------------------------------
  578. End Sub
  580. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  581.     On Error Resume Next
  582.     '卸载打印页面设置窗体
  583.     Unload Dyymctbl
  584.     Unload mySeachForm '卸载查询窗体
  585.     Set myclsBal = Nothing
  586. End Sub
  588. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
  589.     If DEBUG_FLAG = False Then On Error Resume Next
  590.     Select Case Button.Key
  591.     Case "bcgs"                                          '保存表格格式
  592.         Call Bcwggs(CxbbGrid, GridCode, GridStr())
  593.     Case "hfmrgs"                                        '恢复默认格式
  594.         Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  595.     Case "szxsxm"                                        '设置显示项目
  596.         Call Szxsxm(CxbbGrid, GridCode)
  597.     End Select
  598. End Sub
  600. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  601.     If DEBUG_FLAG = False Then On Error Resume Next
  602.     Select Case Button.Key
  603.     Case "ymsz"                                          '页面设置
  604.         Dyymctbl.Show 1
  605.     Case "yl"                                            '预 览
  606.         Call bbyl(True)
  607.     Case "dy"                                            '打 印
  608.         Call bbyl(False)
  609.     Case "cx"                                            '查 询
  610.         Call BalFx2(strItem)
  611.         If Me.bSeach = True Then
  612.             If DEBUG_FLAG = False Then XT_Wait.Show
  613.             Call FormInit
  614.             Me.bSeach = False
  615.             If DEBUG_FLAG = False Then XT_Wait.Hide
  616.         End If
  617.     Case "bz"                                            '帮 助
  618.         Call F1bz
  619.     Case "fh"                                            '退 出
  620.         Unload Me
  621.     Case "xx"
  622.         Bbfx_SelDate2.Show vbModal
  623.     End Select
  624. End Sub
  626. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  627.     If DEBUG_FLAG = False Then On Error Resume Next
  628.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  629.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  630.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  631.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  632.     ReDim Bbxbt(1 To Bbxbtgs)
  633.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  634.     If Bbbwhgs <> 0 Then
  635.         ReDim Bbbwh(1 To Bbbwhgs)
  636.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  637.     End If
  638.     Bbzbt = ReportTitle
  639.     Bbxbt(1) = Space(2) & lab_Fxq.Caption & lab_fx.Caption & Space(20) & lab_Bjq.Caption & lab_bj.Caption
  640.     bbxbtzzxs(1) = 0                                  '报表行组织形式(0-居左 1-居中 2-居右)
  641.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  642.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  643.     If Not bbylte Then
  644.         Unload DY_Tybbyldy
  645.     End If
  646. End Sub
  649. Private Sub GetBalZiChan()
  650.     If DEBUG_FLAG = False Then On Error Resume Next
  651.     '填充资产类项目
  652.     Dim iRow As Integer
  653.     Set Rs = Cw_DataEnvi.DataConnect.Execute("select * from cwfx_BalanceInitial")
  654.     
  655.     iWriteRows = Rs.RecordCount - 1                     '循环写入行数
  656.     
  657.     With CxbbGrid
  658.         iRow = .FixedRows
  659.         If Me.strItem = "cwfx_BalJg" Then
  660.             dbl_ZiChan = TimeClass2("资产合计", "001") '本期资产合计
  661.             If iCompYear <> 0 Then
  662.                 dbl_ZiChanComp = TimeClass2("资产合计", "003") '比较期资产合计
  663.             End If
  664.             
  665.             dbl_FuZhai = TimeClass2("负债和所有者权益合计", "001") '本期负债合计
  666.             If iCompYear <> 0 Then
  667.                 dbl_FuZhaiComp = TimeClass2("负债和所有者权益合计", "003") '比较期负债合计
  668.             End If
  669.         End If
  670.         
  671.         Do Until Rs.EOF
  672.             .AddItem ""
  673.             .TextMatrix(iRow, 0) = RTrim(Rs!LeftOrRight)
  674.             .TextMatrix(iRow, Sydz("001", GridStr(), Szzls)) = RTrim(Rs!comment)
  675.             If IsNull(Rs!account) = False Then Call FillGrid(Trim(Rs!Item), iRow)
  676.             .RowHeight(iRow) = Sjhgd
  677.             Rs.MoveNext
  678.             iRow = iRow + 1
  679.         Loop
  680.     End With
  681. End Sub
  683. Private Sub AddGridCol()
  684.     If DEBUG_FLAG = False Then On Error Resume Next
  685.     Dim Item As Integer
  686.     Dim I As Integer
  687.     
  688.     iWriteCols = 0 '循环写入写数置0
  689.     itype = Me.intType
  690.     Select Case itype
  691.     Case 0 '月
  692.         If iBeginMonth > iEndMonth Then
  693.             Item = iBeginMonth
  694.             iBeginMonth = iEndMonth
  695.             iEndMonth = Item
  696.         End If
  697.         
  698.         For I = iBeginMonth To iEndMonth
  699.             iWriteCols = iWriteCols + 1
  700.             With CxbbGrid
  701.                 .Cols = .Cols + 1
  702.                 .FixedAlignment(.Cols - 1) = flexAlignCenterCenter
  703.                 .CellAlignment = flexAlignRightCenter
  704.                 .TextMatrix(.FixedRows - 1, .Cols - 1) = CStr(Xtyear) & DATE_FIX & Format(I, "00") & ""
  705.                 
  706.             End With
  707.         Next
  708.     Case 1 '季
  709.         
  710.         If iBeginMonth > iEndMonth Then
  711.             Item = iBeginMonth
  712.             iBeginMonth = iEndMonth
  713.             iEndMonth = Item
  714.         End If
  715.         
  716.         For I = iBeginMonth To iEndMonth Step 3
  717.             
  718.             iWriteCols = iWriteCols + 1
  719.             
  720.             With CxbbGrid
  721.                 .Cols = .Cols + 1
  722.                 .FixedAlignment(.Cols - 1) = flexAlignCenterCenter
  723.                 .CellAlignment = flexAlignRightCenter
  724.                 .TextMatrix(.FixedRows - 1, .Cols - 1) = CStr(Xtyear) & DATE_FIX & Format(CStr(I - 2), "00") & "-" & CStr(Xtyear) & DATE_FIX & Format(CStr(I), "00") & ""
  725.             End With
  726.         Next
  727.     Case 2 '年
  728.         If iYear > iExYear Then
  729.             Item = iYear
  730.             iYear = iExYear
  731.             iExYear = Item
  732.         End If
  733.         
  734.         For I = iExYear To iYear
  735.             
  736.             iWriteCols = iWriteCols + 1
  737.             
  738.             With CxbbGrid
  739.                 .Cols = .Cols + 1
  740.                 .FixedAlignment(.Cols - 1) = flexAlignCenterCenter
  741.                 .CellAlignment = flexAlignRightCenter
  742.                 .TextMatrix(.FixedRows - 1, .Cols - 1) = CStr(I) & "年"
  743.             End With
  744.         Next
  745.     End Select
  746.     
  747. End Sub
  749. '=================写数据到表格===========================================
  750. Private Sub FillGrid(ByVal strItem As String, ByVal iRow As Integer)
  751.     If DEBUG_FLAG = False Then On Error Resume Next
  752.     Dim dbl_Fx As Double '分析期数据
  753.     Dim dbl_Bj As Double                '比较期数据
  754.     Dim dbl_Cha As Double               '差
  755.     
  756.     Dim dbl_Bi As Double                '比值
  757.     
  758.     Dim dbl_fxBi As Double              '比值
  759.     Dim dbl_dbBi As Double              '比值
  760.     
  761.     Select Case Me.strItem
  762.     Case "cwfx_BalDb"
  763.         dbl_Fx = TimeClass(strItem, "002")
  764.         dbl_Bj = TimeClass(strItem, "003")
  765.         dbl_Cha = dbl_Fx - dbl_Bj
  766.         
  767.         If dbl_Bj <> 0 Then
  768.             dbl_Bi = dbl_Cha / dbl_Bj
  769.         End If
  770.         
  771.         With CxbbGrid
  772.             
  773.             CxbbGrid.TextMatrix(iRow, Sydz("002", GridStr(), Szzls)) = IIf(dbl_Fx = 0, "", dbl_Fx)
  774.             CxbbGrid.TextMatrix(iRow, Sydz("003", GridStr(), Szzls)) = IIf(dbl_Bj = 0, "", dbl_Bj)
  775.             CxbbGrid.TextMatrix(iRow, Sydz("004", GridStr(), Szzls)) = IIf(dbl_Cha = 0, "", dbl_Cha)
  776.             CxbbGrid.TextMatrix(iRow, Sydz("005", GridStr(), Szzls)) = IIf(dbl_Bi = 0, "", CStr(dbl_Bi) * 100)
  777.         End With
  778.         
  779.     Case "cwfx_BalJg"
  780.         dbl_Fx = TimeClass2(strItem, "002")
  781.         dbl_Bj = TimeClass2(strItem, "004")
  782.         
  783.         If CBool(CxbbGrid.TextMatrix(iRow, 0)) = True Then
  784.             '资产类
  785.             If dbl_ZiChan <> 0 Then
  786.                 dbl_fxBi = dbl_Fx / dbl_ZiChan          '分析期结构
  787.             Else
  788.                 dbl_fxBi = 0
  789.             End If
  790.             If dbl_ZiChanComp <> 0 Then
  791.                 dbl_dbBi = dbl_Bj / dbl_ZiChanComp      '比较期结构
  792.             Else
  793.                 dbl_dbBi = 0
  794.             End If
  795.         Else
  796.             '负债类
  797.             If dbl_FuZhai <> 0 Then
  798.                 dbl_fxBi = dbl_Fx / dbl_FuZhai          '分析期结构
  799.             Else
  800.                 dbl_fxBi = 0
  801.             End If
  802.             If dbl_FuZhaiComp <> 0 Then
  803.                 dbl_dbBi = dbl_Bj / dbl_FuZhaiComp      '比较期结构
  804.             Else
  805.                 dbl_dbBi = 0
  806.             End If
  807.         End If
  808.         
  809.         
  810.         With CxbbGrid
  811.             
  812.             CxbbGrid.TextMatrix(iRow, Sydz("002", GridStr(), Szzls)) = IIf(dbl_Fx = 0, "", dbl_Fx)
  813.             CxbbGrid.TextMatrix(iRow, Sydz("003", GridStr(), Szzls)) = IIf(dbl_fxBi = 0, "", CStr(dbl_fxBi) * 100)
  814.             CxbbGrid.TextMatrix(iRow, Sydz("004", GridStr(), Szzls)) = IIf(dbl_Bj = 0, "", dbl_Bj)
  815.             CxbbGrid.TextMatrix(iRow, Sydz("005", GridStr(), Szzls)) = IIf(dbl_dbBi = 0, "", CStr(dbl_dbBi) * 100)
  816.             CxbbGrid.TextMatrix(iRow, Sydz("006", GridStr(), Szzls)) = IIf((dbl_fxBi - dbl_dbBi) = 0, "", CStr(dbl_fxBi - dbl_dbBi) * 100)
  817.         End With
  818.     End Select
  819.     
  820. End Sub
  822. Private Function TimeClass(ByVal ItemClass As String, ByVal cCol As String) As Double
  823.     If DEBUG_FLAG = False Then On Error Resume Next
  824.     Dim iTemMonthBegin As Integer
  825.     Dim iTemMonthEnd As Integer
  826.     Dim iTemYear As Integer
  827.     itype = Me.intType
  828.     Select Case itype
  829.     Case 0 '月
  830.         If cCol = "002" Then                '分析期
  831.             iTemYear = iThisYear
  832.             iTemMonthBegin = iThisMonthBegin
  833.             iTemMonthEnd = iThisMonthEnd
  834.         ElseIf cCol = "003" Then            '比较期
  835.             iTemYear = iCompYear
  836.             iTemMonthBegin = iCompMonthBegin
  837.             iTemMonthEnd = iCompMonthEnd
  838.         End If
  839.         
  840.         TimeClass = myclsBal.GetPeriodValue(ItemClass, iTemMonthEnd, iTemYear)
  841.         
  842.     Case 1 '季
  843.         If cCol = "002" Then                '分析期
  844.             iTemYear = iThisYear
  845.             iTemMonthBegin = iThisMonthBegin
  846.             iTemMonthEnd = iThisMonthEnd
  847.         ElseIf cCol = "003" Then            '比较期
  848.             iTemYear = iCompYear
  849.             iTemMonthBegin = iCompMonthBegin
  850.             iTemMonthEnd = iCompMonthEnd
  851.         End If
  852.         
  853.         TimeClass = myclsBal.GetPeriodValue(ItemClass, iTemMonthEnd, iTemYear)
  854.     Case 2 '年
  855.         If cCol = "002" Then                '分析期
  856.             iTemYear = iThisYear
  857.         ElseIf cCol = "003" Then            '比较期
  858.             iTemYear = iCompYear
  859.         End If
  860.         
  861.         TimeClass = myclsBal.GetPeriodValue(ItemClass, 12, iTemYear)
  862.     End Select
  863. End Function
  865. Private Function TimeClass2(ByVal ItemClass As String, ByVal cCol As String) As Double
  866.     If DEBUG_FLAG = False Then On Error Resume Next
  867.     Dim iTemMonthBegin As Integer
  868.     Dim iTemMonthEnd As Integer
  869.     Dim iTemYear As Integer
  870.     itype = Me.intType
  871.     Select Case itype
  872.     Case 0 '月
  873.         If cCol = "001" Or cCol = "002" Then        '分析期
  874.             iTemYear = iThisYear
  875.             iTemMonthBegin = iThisMonthBegin
  876.             iTemMonthEnd = iThisMonthEnd
  877.         ElseIf cCol = "003" Or cCol = "004" Then    '比较期
  878.             iTemYear = iCompYear
  879.             iTemMonthBegin = iCompMonthBegin
  880.             iTemMonthEnd = iCompMonthEnd
  881.         End If
  882.         
  883.         TimeClass2 = myclsBal.GetPeriodValue(ItemClass, iTemMonthEnd, iTemYear)
  884.         
  885.     Case 1 '季
  886.         If cCol = "001" Or cCol = "002" Then        '分析期
  887.             iTemYear = iThisYear
  888.             iTemMonthBegin = iThisMonthBegin
  889.             iTemMonthEnd = iThisMonthEnd
  890.         ElseIf cCol = "003" Or cCol = "004" Then    '比较期
  891.             iTemYear = iCompYear
  892.             iTemMonthBegin = iCompMonthBegin
  893.             iTemMonthEnd = iCompMonthEnd
  894.         End If
  895.         
  896.         TimeClass2 = myclsBal.GetPeriodValue(ItemClass, iTemMonthEnd, iTemYear)
  897.     Case 2 '年
  898.         If cCol = "001" Or cCol = "002" Then        '分析期
  899.             iTemYear = iThisYear
  900.         ElseIf cCol = "003" Or cCol = "004" Then    '比较期
  901.             iTemYear = iCompYear
  902.         End If
  903.         
  904.         TimeClass2 = myclsBal.GetPeriodValue(ItemClass, 12, iTemYear)
  905.     End Select
  906. End Function