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

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

企业管理

开发平台：

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 ZF_Bm_FrmBmyebjg 
  5.    Caption         =   "部门余额表"
  6.    ClientHeight    =   7755
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11400
  10.    HelpContextID   =   5001
  11.    Icon            =   "辅助_部门_部门余额表查询结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   7755
  16.    ScaleWidth      =   11400
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.Timer Timer1 
  19.       Enabled         =   0   'False
  20.       Interval        =   1
  21.       Left            =   7620
  22.       Top             =   90
  23.    End
  24.    Begin VB.PictureBox Pic_Title 
  25.       Height          =   1125
  26.       Left            =   0
  27.       Picture         =   "辅助_部门_部门余额表查询结果.frx":1042
  28.       ScaleHeight     =   1065
  29.       ScaleWidth      =   11535
  30.       TabIndex        =   1
  31.       Top             =   570
  32.       Width           =   11595
  33.       Begin VB.ComboBox Combo_AccFormat 
  34.          Height          =   300
  35.          Left            =   9090
  36.          Style           =   2  'Dropdown List
  37.          TabIndex        =   6
  38.          Top             =   750
  39.          Width           =   1725
  40.       End
  41.       Begin VB.Label Lab_FzName 
  42.          AutoSize        =   -1  'True
  43.          BackStyle       =   0  'Transparent
  44.          ForeColor       =   &H00000000&
  45.          Height          =   180
  46.          Left            =   1950
  47.          TabIndex        =   10
  48.          Top             =   810
  49.          Width           =   90
  50.       End
  51.       Begin VB.Label Lab_TitleMess 
  52.          AutoSize        =   -1  'True
  53.          BackStyle       =   0  'Transparent
  54.          Caption         =   "查询部门:"
  55.          Height          =   180
  56.          Index           =   1
  57.          Left            =   1080
  58.          TabIndex        =   9
  59.          Top             =   810
  60.          Width           =   810
  61.       End
  62.       Begin VB.Label Lab_TitleText 
  63.          AutoSize        =   -1  'True
  64.          BackStyle       =   0  'Transparent
  65.          ForeColor       =   &H00000000&
  66.          Height          =   180
  67.          Index           =   0
  68.          Left            =   6420
  69.          TabIndex        =   8
  70.          Top             =   810
  71.          Width           =   90
  72.       End
  73.       Begin VB.Label TsLabel 
  74.          AutoSize        =   -1  'True
  75.          BackStyle       =   0  'Transparent
  76.          Caption         =   "帐页格式:"
  77.          Height          =   180
  78.          Index           =   7
  79.          Left            =   8280
  80.          TabIndex        =   7
  81.          Top             =   810
  82.          Width           =   810
  83.       End
  84.       Begin VB.Label TsLabel 
  85.          BackColor       =   &H80000018&
  86.          BackStyle       =   0  'Transparent
  87.          Caption         =   "部门总帐"
  88.          BeginProperty Font 
  89.             Name            =   "宋体"
  90.             Size            =   14.25
  91.             Charset         =   134
  92.             Weight          =   700
  93.             Underline       =   0   'False
  94.             Italic          =   0   'False
  95.             Strikethrough   =   0   'False
  96.          EndProperty
  97.          ForeColor       =   &H00000000&
  98.          Height          =   360
  99.          Index           =   4
  100.          Left            =   720
  101.          TabIndex        =   3
  102.          Top             =   150
  103.          Width           =   1695
  104.       End
  105.       Begin VB.Label Lab_TitleMess 
  106.          AutoSize        =   -1  'True
  107.          BackStyle       =   0  'Transparent
  108.          Caption         =   "会计期间:"
  109.          Height          =   180
  110.          Index           =   0
  111.          Left            =   5550
  112.          TabIndex        =   2
  113.          Top             =   810
  114.          Width           =   810
  115.       End
  116.    End
  117.    Begin MSComctlLib.Toolbar GsToolbar 
  118.       Height          =   525
  119.       Left            =   9720
  120.       TabIndex        =   0
  121.       Top             =   0
  122.       Width           =   1665
  123.       _ExtentX        =   2937
  124.       _ExtentY        =   926
  125.       ButtonWidth     =   1455
  126.       ButtonHeight    =   926
  127.       AllowCustomize  =   0   'False
  128.       Appearance      =   1
  129.       Style           =   1
  130.       ImageList       =   "ImageList1"
  131.       _Version        =   393216
  132.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  133.          NumButtons      =   2
  134.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  135.             Caption         =   "保存格式"
  136.             Key             =   "bcgs"
  137.             ImageKey        =   "bcgs"
  138.          EndProperty
  139.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  140.             Caption         =   "默认列宽"
  141.             Key             =   "hfmrgs"
  142.             ImageKey        =   "mrlk"
  143.          EndProperty
  144.       EndProperty
  145.    End
  146.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  147.       Height          =   6885
  148.       Left            =   0
  149.       TabIndex        =   4
  150.       Top             =   1740
  151.       Width           =   11715
  152.       _cx             =   5080
  153.       _cy             =   5080
  154.       Appearance      =   1
  155.       BorderStyle     =   1
  156.       Enabled         =   -1  'True
  157.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  158.          Name            =   "宋体"
  159.          Size            =   9
  160.          Charset         =   134
  161.          Weight          =   400
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       MousePointer    =   0
  167.       BackColor       =   16777215
  168.       ForeColor       =   -2147483640
  169.       BackColorFixed  =   12632256
  170.       ForeColorFixed  =   -2147483630
  171.       BackColorSel    =   -2147483635
  172.       ForeColorSel    =   -2147483634
  173.       BackColorBkg    =   -2147483636
  174.       BackColorAlternate=   16777215
  175.       GridColor       =   -2147483633
  176.       GridColorFixed  =   -2147483632
  177.       TreeColor       =   -2147483632
  178.       FloodColor      =   192
  179.       SheetBorder     =   -2147483642
  180.       FocusRect       =   1
  181.       HighLight       =   1
  182.       AllowSelection  =   -1  'True
  183.       AllowBigSelection=   -1  'True
  184.       AllowUserResizing=   0
  185.       SelectionMode   =   0
  186.       GridLines       =   1
  187.       GridLinesFixed  =   2
  188.       GridLineWidth   =   1
  189.       Rows            =   50
  190.       Cols            =   10
  191.       FixedRows       =   1
  192.       FixedCols       =   1
  193.       RowHeightMin    =   0
  194.       RowHeightMax    =   0
  195.       ColWidthMin     =   0
  196.       ColWidthMax     =   0
  197.       ExtendLastCol   =   0   'False
  198.       FormatString    =   ""
  199.       ScrollTrack     =   0   'False
  200.       ScrollBars      =   3
  201.       ScrollTips      =   0   'False
  202.       MergeCells      =   0
  203.       MergeCompare    =   0
  204.       AutoResize      =   -1  'True
  205.       AutoSizeMode    =   0
  206.       AutoSearch      =   0
  207.       AutoSearchDelay =   2
  208.       MultiTotals     =   -1  'True
  209.       SubtotalPosition=   1
  210.       OutlineBar      =   0
  211.       OutlineCol      =   0
  212.       Ellipsis        =   0
  213.       ExplorerBar     =   0
  214.       PicturesOver    =   0   'False
  215.       FillStyle       =   0
  216.       RightToLeft     =   0   'False
  217.       PictureType     =   0
  218.       TabBehavior     =   0
  219.       OwnerDraw       =   0
  220.       Editable        =   0
  221.       ShowComboButton =   1
  222.       WordWrap        =   0   'False
  223.       TextStyle       =   0
  224.       TextStyleFixed  =   0
  225.       OleDragMode     =   0
  226.       OleDropMode     =   0
  227.       DataMode        =   0
  228.       VirtualData     =   -1  'True
  229.       DataMember      =   ""
  230.       ComboSearch     =   3
  231.       AutoSizeMouse   =   -1  'True
  232.       FrozenRows      =   0
  233.       FrozenCols      =   0
  234.       AllowUserFreezing=   0
  235.       BackColorFrozen =   0
  236.       ForeColorFrozen =   0
  237.       WallPaperAlignment=   9
  238.       AccessibleName  =   ""
  239.       AccessibleDescription=   ""
  240.       AccessibleValue =   ""
  241.       AccessibleRole  =   24
  242.    End
  243.    Begin MSComctlLib.Toolbar SzToolbar 
  244.       Align           =   1  'Align Top
  245.       Height          =   555
  246.       Left            =   0
  247.       TabIndex        =   5
  248.       Top             =   0
  249.       Width           =   11400
  250.       _ExtentX        =   20108
  251.       _ExtentY        =   979
  252.       ButtonWidth     =   820
  253.       ButtonHeight    =   926
  254.       AllowCustomize  =   0   'False
  255.       Appearance      =   1
  256.       Style           =   1
  257.       ImageList       =   "ImageList1"
  258.       _Version        =   393216
  259.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  260.          NumButtons      =   10
  261.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  262.             Caption         =   "设置"
  263.             Key             =   "ymsz"
  264.             ImageKey        =   "sz"
  265.          EndProperty
  266.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  267.             Caption         =   "打印"
  268.             Key             =   "dy"
  269.             ImageKey        =   "dy"
  270.          EndProperty
  271.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  272.             Caption         =   "预览"
  273.             Key             =   "yl"
  274.             ImageKey        =   "yl"
  275.          EndProperty
  276.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  277.             Style           =   3
  278.          EndProperty
  279.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  280.             Caption         =   "查询"
  281.             Key             =   "cx"
  282.             ImageKey        =   "cx"
  283.          EndProperty
  284.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  285.             Style           =   3
  286.          EndProperty
  287.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  288.             Caption         =   "累计"
  289.             Key             =   "lj"
  290.             ImageKey        =   "lj"
  291.             Style           =   1
  292.          EndProperty
  293.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  294.             Style           =   3
  295.          EndProperty
  296.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  297.             Caption         =   "帮助"
  298.             Key             =   "bz"
  299.             ImageKey        =   "bz"
  300.          EndProperty
  301.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  302.             Caption         =   "退出"
  303.             Key             =   "fh"
  304.             ImageKey        =   "tc"
  305.          EndProperty
  306.       EndProperty
  307.       BorderStyle     =   1
  308.       Begin MSComctlLib.ImageList ImageList1 
  309.          Left            =   6690
  310.          Top             =   0
  311.          _ExtentX        =   1005
  312.          _ExtentY        =   1005
  313.          BackColor       =   -2147483643
  314.          ImageWidth      =   16
  315.          ImageHeight     =   16
  316.          MaskColor       =   12632256
  317.          _Version        =   393216
  318.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  319.             NumListImages   =   35
  320.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  321.                Picture         =   "辅助_部门_部门余额表查询结果.frx":35106
  322.                Key             =   "sz"
  323.             EndProperty
  324.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  325.                Picture         =   "辅助_部门_部门余额表查询结果.frx":354A0
  326.                Key             =   "dy"
  327.             EndProperty
  328.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  329.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3583A
  330.                Key             =   "yl"
  331.             EndProperty
  332.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  333.                Picture         =   "辅助_部门_部门余额表查询结果.frx":35BD4
  334.                Key             =   "xg"
  335.             EndProperty
  336.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  337.                Picture         =   "辅助_部门_部门余额表查询结果.frx":35F6E
  338.                Key             =   "zh"
  339.             EndProperty
  340.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  341.                Picture         =   "辅助_部门_部门余额表查询结果.frx":36308
  342.                Key             =   "sh"
  343.             EndProperty
  344.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  345.                Picture         =   "辅助_部门_部门余额表查询结果.frx":366A2
  346.                Key             =   "bc"
  347.             EndProperty
  348.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  349.                Picture         =   "辅助_部门_部门余额表查询结果.frx":36A3C
  350.                Key             =   "fq"
  351.             EndProperty
  352.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  353.                Picture         =   "辅助_部门_部门余额表查询结果.frx":36DD6
  354.                Key             =   "bz"
  355.             EndProperty
  356.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  357.                Picture         =   "辅助_部门_部门余额表查询结果.frx":37170
  358.                Key             =   "tc"
  359.             EndProperty
  360.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  361.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3750A
  362.                Key             =   "bcgs"
  363.             EndProperty
  364.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  365.                Picture         =   "辅助_部门_部门余额表查询结果.frx":378A4
  366.                Key             =   "mrlk"
  367.             EndProperty
  368.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  369.                Picture         =   "辅助_部门_部门余额表查询结果.frx":37C3E
  370.                Key             =   "xsxm"
  371.             EndProperty
  372.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  373.                Picture         =   "辅助_部门_部门余额表查询结果.frx":37FD8
  374.                Key             =   "first"
  375.             EndProperty
  376.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  377.                Picture         =   "辅助_部门_部门余额表查询结果.frx":38372
  378.                Key             =   "prev"
  379.             EndProperty
  380.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  381.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3870C
  382.                Key             =   "next"
  383.             EndProperty
  384.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  385.                Picture         =   "辅助_部门_部门余额表查询结果.frx":38AA6
  386.                Key             =   "last"
  387.             EndProperty
  388.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  389.                Picture         =   "辅助_部门_部门余额表查询结果.frx":38E40
  390.                Key             =   "xx"
  391.             EndProperty
  392.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  393.                Picture         =   "辅助_部门_部门余额表查询结果.frx":391DA
  394.                Key             =   "define"
  395.             EndProperty
  396.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  397.                Picture         =   "辅助_部门_部门余额表查询结果.frx":39574
  398.                Key             =   "exec"
  399.             EndProperty
  400.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  401.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3990E
  402.                Key             =   "xz"
  403.             EndProperty
  404.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  405.                Picture         =   "辅助_部门_部门余额表查询结果.frx":39CA8
  406.                Key             =   "sc"
  407.             EndProperty
  408.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  409.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3A042
  410.                Key             =   "sx"
  411.             EndProperty
  412.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  413.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3A3DC
  414.                Key             =   "cx"
  415.             EndProperty
  416.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  417.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3A776
  418.                Key             =   "zd"
  419.             EndProperty
  420.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  421.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3AB10
  422.                Key             =   "dz"
  423.             EndProperty
  424.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  425.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3AEAA
  426.                Key             =   "ph"
  427.             EndProperty
  428.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  429.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3B244
  430.                Key             =   "fz"
  431.             EndProperty
  432.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  433.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3B5DE
  434.                Key             =   "dw"
  435.             EndProperty
  436.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  437.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3B978
  438.                Key             =   "hf"
  439.             EndProperty
  440.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  441.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3BD12
  442.                Key             =   "pz"
  443.             EndProperty
  444.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  445.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3C0AC
  446.                Key             =   "check"
  447.             EndProperty
  448.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  449.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3C446
  450.                Key             =   "zz"
  451.             EndProperty
  452.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  453.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3C7E0
  454.                Key             =   "mx"
  455.             EndProperty
  456.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  457.                Picture         =   "辅助_部门_部门余额表查询结果.frx":3CB7A
  458.                Key             =   "lj"
  459.             EndProperty
  460.          EndProperty
  461.       End
  462.    End
  463. End
  464. Attribute VB_Name = "ZF_Bm_FrmBmyebjg"
  465. Attribute VB_GlobalNameSpace = False
  466. Attribute VB_Creatable = False
  467. Attribute VB_PredeclaredId = True
  468. Attribute VB_Exposed = False
  469. '*******************************************************************
  470. '*    模 块 名 称 :部门科目发生额及余额表(部门往来)
  471. '*    功 能 描 述 :本功能用于查询统计涉及查询科目的部门的本期发
  472. '*                 生额、累计发生额和余额等。并支持包含未记帐凭
  473. '*                 证查询。
  474. '*    程序员姓名  :张建忠
  475. '*    最后修改人  :奚俊峰
  476. '*    最后修改时间:2001/12/21
  477. '*    备        注:在此查询中采用了Union联合查询，这种方式可以大大加
  478. '*                 快查询速度.
  479. '*******************************************************************
  480. Dim ReportTitle As String                '报表主标题
  482. '以下为固定使用变量
  483. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  484. Dim GridCode As String                   '显示网格网格代码
  485. Dim GridInf() As Variant                 '整个网格设置信息
  486. Dim Tsxx As String                       '系统提示信息
  487. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  488. Dim Sjhgd As Double                      '网格数据行高度
  489. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  490. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  491. Dim GridStr()  As String                 '网格列信息(字符型)
  492. Dim GridInt() As Integer                 '网格列信息(整型)
  493. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  494. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
  495.     On Error Resume Next
  496.     With CxbbGrid
  497.         .Width = Me.Width - 160
  498.         .Height = Me.Height - .Top - 400
  499.     End With
  500.     With Pic_Title
  501.         .Width = Me.Width - 160
  502.     End With
  503.     
  504.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  505. End Sub
  507. Private Sub Form_Load()                  '窗体装入
  508.     
  509.     '调入打印页面设置窗体
  510.     XtReportCode = "Cwzz_bm_bmyeb"
  511.     Load Dyymctbl
  512.     ReportTitle = "部门余额表"
  513.     
  514.     '调整标题栏及网格、格式工具条位置
  515.     Pic_Title.Left = 40
  516.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  517.     CxbbGrid.Left = Pic_Title.Left
  518.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  519.     
  520.     '调 入 网 格
  521.     GridCode = "Cwzz_bm_bmyeb"
  522.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  523.     
  524.     Qslz = GridInf(1)
  525.     Sjhgd = GridInf(2)
  526.     Sfxshjwg = GridInf(7)
  527.     Szzls = CxbbGrid.Cols - 1
  528.     
  529.     '帐页格式
  530.     Call FillCombo(Combo_AccFormat, "Cwzz_zygs", "", 0)
  531.     
  532.     '调整标题位置
  533.     SetTitlePos tsLabel(4)
  534.     
  535. End Sub
  537. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  538.     Set clsAccAss = Nothing  '请除变量
  539.     '卸载条件窗体
  540.     ZF_Bm_FrmBmyebtj.UnloadCheck.Value = 1
  541.     Unload ZF_Bm_FrmBmyebtj
  542.     '卸载打印页面设置窗体
  543.     Unload Dyymctbl
  544.     Set clsAccAss = Nothing
  545. End Sub
  547. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
  548.     Select Case Button.Key
  549.     Case "bcgs"                                          '保存表格格式
  550.         Call Bcwggs(CxbbGrid, GridCode, GridStr)
  551.     Case "hfmrgs"                                        '恢复默认格式
  552.         Call Hfmrgs(CxbbGrid, GridCode, GridStr)
  553.     Case "szxsxm"                                        '设置显示项目
  554.         Call Szxsxm(CxbbGrid, GridCode)
  555.     End Select
  556. End Sub
  558. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  559.     Select Case Button.Key
  560.     Case "ymsz"                                          '页面设置
  561.         Dyymctbl.Show 1
  562.     Case "yl"                                            '预 览
  563.         Call bbyl(True)
  564.     Case "dy"                                            '打 印
  565.         Call bbyl(False)
  566.     Case "cx"                                            '查 询
  567.         ZF_Bm_FrmBmyebtj.Show 1
  568.     Case "lj"                                            '累 计
  569.         Call Combo_AccFormat_Click
  570.     Case "bz"                                            '帮 助
  571.         Call F1bz
  572.     Case "fh"                                            '退 出
  573.         Unload Me
  574.     End Select
  575. End Sub
  577. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  578.     Dim RecTemp As New ADODB.Recordset          '临时使用动态集
  579.     Timer1.Enabled = False
  580.     
  581.     '加快显示速度
  582.     CxbbGrid.Redraw = False
  583.     
  584.     Xt_Wait.Show
  585.     Xt_Wait.Refresh
  586.     
  587.     '生成查询结果
  588.     Call Sub_Query
  589.     
  590.     Call Combo_AccFormat_Click
  591.     
  592.     CxbbGrid.SetFocus
  593.     
  594.     CxbbGrid.Redraw = True
  595.     
  596.     Xt_Wait.Hide
  597.     
  598. End Sub
  600. Private Sub Sub_Query()                                    '生成查询结果
  601.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  602.     Dim RecTemp As New ADODB.Recordset          '临时使用动态集
  603.     Dim Rec_AccSum As New ADODB.Recordset       '科目总帐动态集
  604.     Dim Str_QueryCondi As String                '用户录入查询条件
  605.     Dim Sqlstr As String                        '查询字符串
  606.     Dim Coljsq As Long                          '网格列计数器
  607.     Dim Jsqte As Long                           '临时动态计数器
  608.     Dim Bln_IncluNotBook As Boolean             '是否包含未记帐凭证
  609.     Dim Bln_EndFlag As Boolean                  '判断当前科目是否为末级科目
  610.     Dim Bln_ForeignFlag As Boolean              '判断此科目是否外币核算
  611.     Dim Int_Tjfx As Integer                     '余额统计方向
  612.     Dim Dbl_BeginYe As Double                   '查询起始余额
  613.     Dim Dbl_EndYe As Double                     '查询终止余额
  614.     Dim Bln_Fhxstj As Boolean                   '记录是否符合显示条件
  615.     Dim Int_BPeriod As Integer                  '查询起始会计期间
  616.     Dim Int_EPeriod As Integer                  '查询终止会计期间
  617.     Dim Int_Year As Integer                     '查询会计年度
  618.     Dim Str_Ccode As String                     '查询会计科目
  619.     Dim Str_FzCode As String                    '查询辅助编码
  620.     Dim Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#   '期初金额,数量,外币
  621.     Dim Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj# '本期合计(金额,数量,外币)
  622.     Dim Dbl_Jejflj#, Dbl_Jedflj#, Dbl_Sljflj#, Dbl_Sldflj#, Dbl_Wbjflj#, Dbl_Wbdflj# '截止累计(金额,数量,外币)
  623.     Dim Dbl_Qmyete#, Dbl_Qmslte#, Dbl_Qmwbte#   '期末金额,数量,外币
  624.     Dim Dbl_Sjzj(1 To 18) As Double             '数据总计
  625.     Dim Bln_NotShowEmpty As Boolean             '数据全部为零不显示
  626.     
  627.     '以下为用户自定义部分[
  628.     
  629.     With ZF_Bm_FrmBmyebtj
  630.         
  631.         '查询部门编码
  632.         Str_FzCode = Trim(.LrText(0).Tag)
  633.         Lab_FzName.Caption = Trim(.LrText(0).Text)
  634.         
  635.         '显示查询会计期间
  636.         Lab_TitleText(0).Caption = .Combo_Kjqj(0).Text & "-" & .Combo_Kjqj(1)
  637.         Int_Year = Int(Mid(.Combo_Kjqj(0).Text, 1, 4))
  638.         Int_BPeriod = Int(Mid(.Combo_Kjqj(0).Text, 6, 2))
  639.         Int_EPeriod = Int(Mid(.Combo_Kjqj(1).Text, 6, 2))
  640.         
  641.         '是否包含未记帐凭证
  642.         If .Chk_NotBook.Value = 1 Then
  643.             Bln_IncluNotBook = True
  644.         Else
  645.             Bln_IncluNotBook = False
  646.         End If
  647.         
  648.         '数据为零不显示
  649.         Bln_NotShowEmpty = True
  650.         
  651.     End With
  652.     
  653.     '计算所有用户选中(部门)的科目发生额及余额
  654.     Dim clsAccAss As New AccAssi
  655.     With clsAccAss
  656.         .iPeriod_Begin = Int_BPeriod  '查询会计期开始
  657.         .iPeriod_End = Int_EPeriod    '查询会计期结束
  658.         .iPeriod_Year = Int_Year      '查询会计年
  659.         .b_Keep_Business_Records = Bln_IncluNotBook  '是否包含记帐凭证
  660.         .PayTypes = Dep   '常量,Dep：部门，Per个人，Cur：客户，Ven：供应商
  661.         .sPayCode = Str_FzCode  '部门、个人、客户或供应商代码
  662.     End With
  663.     Set Rec_Query = clsAccAss.GetNewRs()
  664.     '在Form_UnLoad()销毁对象
  665.     '===============================================
  666.     With Rec_Query
  667.         
  668.         CxbbGrid.Rows = CxbbGrid.FixedRows
  669.         Jsqte = CxbbGrid.FixedRows - 1
  670.         
  671.         Do While Not .EOF
  672.             
  673.             Dbl_Qcyete = IIf(IsNull(Rec_Query.Fields("QcyeHj")), 0, Rec_Query.Fields("QcyeHj"))
  674.             Dbl_Qcslte = IIf(IsNull(Rec_Query.Fields("QcslHj")), 0, Rec_Query.Fields("QcslHj"))
  675.             Dbl_Qcwbte = IIf(IsNull(Rec_Query.Fields("QcwbHj")), 0, Rec_Query.Fields("QcwbHj"))
  676.             Dbl_Jejfhj = IIf(IsNull(Rec_Query.Fields("Mjjehj")), 0, Rec_Query.Fields("Mjjehj"))
  677.             Dbl_Jedfhj = IIf(IsNull(Rec_Query.Fields("Mdjehj")), 0, Rec_Query.Fields("Mdjehj"))
  678.             Dbl_Sljfhj = IIf(IsNull(Rec_Query.Fields("Mjslhj")), 0, Rec_Query.Fields("Mjslhj"))
  679.             Dbl_Sldfhj = IIf(IsNull(Rec_Query.Fields("Mdslhj")), 0, Rec_Query.Fields("Mdslhj"))
  680.             Dbl_Wbjfhj = IIf(IsNull(Rec_Query.Fields("Mjwbhj")), 0, Rec_Query.Fields("Mjwbhj"))
  681.             Dbl_Wbdfhj = IIf(IsNull(Rec_Query.Fields("Mdwbhj")), 0, Rec_Query.Fields("Mdwbhj"))
  682.             Dbl_Jejflj = IIf(IsNull(Rec_Query.Fields("Byjfljjehj")), 0, Rec_Query.Fields("Byjfljjehj"))
  683.             Dbl_Jedflj = IIf(IsNull(Rec_Query.Fields("Bydfljjehj")), 0, Rec_Query.Fields("Bydfljjehj"))
  684.             Dbl_Sljflj = IIf(IsNull(Rec_Query.Fields("Byjfljslhj")), 0, Rec_Query.Fields("Byjfljslhj"))
  685.             Dbl_Sldflj = IIf(IsNull(Rec_Query.Fields("Bydfljslhj")), 0, Rec_Query.Fields("Bydfljslhj"))
  686.             Dbl_Wbjflj = IIf(IsNull(Rec_Query.Fields("Byjfljwbhj")), 0, Rec_Query.Fields("Byjfljwbhj"))
  687.             Dbl_Wbdflj = IIf(IsNull(Rec_Query.Fields("Bydfljwbhj")), 0, Rec_Query.Fields("Bydfljwbhj"))
  688.             Dbl_Qmyete = Dbl_Qcyete + Dbl_Jejfhj - Dbl_Jedfhj
  689.             Dbl_Qmslte = Dbl_Qcslte + Dbl_Sljfhj - Dbl_Sldfhj
  690.             Dbl_Qmwbte = Dbl_Qcwbte + Dbl_Wbjfhj - Dbl_Wbdfhj
  691.             
  692.             '判断是否输出数据
  693.             
  694.             Bln_Fhxstj = False
  695.             
  696.             If Bln_NotShowEmpty Then
  697.                 If Dbl_Qcyete <> 0 Or Dbl_Qcslte <> 0 Or Dbl_Qcwbte <> 0 Then
  698.                     Bln_Fhxstj = True
  699.                 End If
  700.                 If Dbl_Jejfhj <> 0 Or Dbl_Jedfhj <> 0 Or Dbl_Sljfhj <> 0 Or Dbl_Sldfhj <> 0 Or Dbl_Wbjfhj <> 0 Or Dbl_Wbdfhj <> 0 Then
  701.                     Bln_Fhxstj = True
  702.                 End If
  703.                 If Dbl_Jejflj <> 0 Or Dbl_Jedflj <> 0 Or Dbl_Sljflj <> 0 Or Dbl_Sldflj <> 0 Or Dbl_Wbjflj <> 0 Or Dbl_Wbdflj <> 0 Then
  704.                     Bln_Fhxstj = True
  705.                 End If
  706.             Else
  707.                 Bln_Fhxstj = True
  708.             End If
  709.             
  710.             
  711.             '数据输出
  712.             If Bln_Fhxstj Then
  713.                 CxbbGrid.AddItem ""
  714.                 Jsqte = Jsqte + 1
  715.                 
  716.                 '数据总计
  717.                 If .Fields("EndFlag") Then
  718.                     Dbl_Sjzj(1) = Dbl_Sjzj(1) + Dbl_Qcyete
  719.                     Dbl_Sjzj(2) = Dbl_Sjzj(2) + Dbl_Qcslte
  720.                     Dbl_Sjzj(3) = Dbl_Sjzj(3) + Dbl_Qcwbte
  721.                     Dbl_Sjzj(4) = Dbl_Sjzj(4) + Dbl_Jejfhj
  722.                     Dbl_Sjzj(5) = Dbl_Sjzj(5) + Dbl_Jedfhj
  723.                     Dbl_Sjzj(6) = Dbl_Sjzj(6) + Dbl_Sljfhj
  724.                     Dbl_Sjzj(7) = Dbl_Sjzj(7) + Dbl_Sldfhj
  725.                     Dbl_Sjzj(8) = Dbl_Sjzj(8) + Dbl_Wbjfhj
  726.                     Dbl_Sjzj(9) = Dbl_Sjzj(9) + Dbl_Wbdfhj
  727.                     Dbl_Sjzj(10) = Dbl_Sjzj(10) + Dbl_Jejflj
  728.                     Dbl_Sjzj(11) = Dbl_Sjzj(11) + Dbl_Jedflj
  729.                     Dbl_Sjzj(12) = Dbl_Sjzj(12) + Dbl_Sljflj
  730.                     Dbl_Sjzj(13) = Dbl_Sjzj(13) + Dbl_Sldflj
  731.                     Dbl_Sjzj(14) = Dbl_Sjzj(14) + Dbl_Wbjflj
  732.                     Dbl_Sjzj(15) = Dbl_Sjzj(15) + Dbl_Wbdflj
  733.                     Dbl_Sjzj(16) = Dbl_Sjzj(16) + Dbl_Qmyete
  734.                     Dbl_Sjzj(17) = Dbl_Sjzj(17) + Dbl_Qmslte
  735.                     Dbl_Sjzj(18) = Dbl_Sjzj(18) + Dbl_Qmwbte
  736.                 End If
  737.                 
  738.                 CxbbGrid.RowHeight(Jsqte) = Sjhgd
  739.                 
  740.                 CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("CCode"))            '科目编码
  741.                 CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("CName") & "")       '科目名称
  742.                 
  743.                 
  744.                 '将期初数据写入网格
  745.                 If Dbl_Qcyete = 0 Then
  746.                     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "平"     '期初方向
  747.                     If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  748.                         CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Qcslte
  749.                     End If
  750.                     If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  751.                         CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Qcwbte
  752.                     End If
  753.                 Else
  754.                     
  755.                     If Dbl_Qcyete > 0 Then
  756.                         CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "借"
  757.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Dbl_Qcyete
  758.                         CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Qcyete
  759.                         If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  760.                             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Qcslte
  761.                         End If
  762.                         If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  763.                             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Qcwbte
  764.                         End If
  765.                     Else
  766.                         CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "贷"
  767.                         CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = -Dbl_Qcyete
  768.                         CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = -Dbl_Qcyete
  769.                         If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  770.                             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = -Dbl_Qcslte
  771.                         End If
  772.                         If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  773.                             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = -Dbl_Qcwbte
  774.                         End If
  775.                     End If
  776.                 End If
  777.                 
  778.                 '将期间合计数据写入网格
  779.                 If Dbl_Jejfhj <> 0 Then
  780.                     CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj       '本期发生.借方
  781.                     CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jejfhj       '本期借方发生.金额
  782.                 End If
  783.                 If Dbl_Jedfhj <> 0 Then
  784.                     CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj       '本期发生.贷方
  785.                     CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Dbl_Jedfhj       '本期贷方发生.金额
  786.                 End If
  787.                 
  788.                 '仅有末级科目才显示数量，外币
  789.                 
  790.                 If Bln_EndFlag Then
  791.                     If Dbl_Sljfhj <> 0 Then
  792.                         CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sljfhj   '本期借方发生.数量
  793.                     End If
  794.                     If Dbl_Sldfhj <> 0 Then
  795.                         CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Dbl_Sldfhj   '本期贷方发生.数量
  796.                     End If
  797.                 End If
  798.                 If Bln_EndFlag And Bln_ForeignFlag Then
  799.                     If Dbl_Wbjfhj <> 0 Then
  800.                         CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbjfhj   '本期借方发生.外币
  801.                     End If
  802.                     If Dbl_Wbdfhj <> 0 Then
  803.                         CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Wbdfhj   '本期贷方发生.外币
  804.                     End If
  805.                 End If
  806.                 
  807.                 '将截止累计数据写入网格
  808.                 If Dbl_Jejflj <> 0 Then
  809.                     CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Jejflj       '累计发生.借方
  810.                     CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Dbl_Jejflj       '累计借方发生.金额
  811.                 End If
  812.                 If Dbl_Jedflj <> 0 Then
  813.                     CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Dbl_Jedflj       '累计发生.贷方
  814.                     CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = Dbl_Jedflj       '累计贷方发生.金额
  815.                 End If
  816.                 
  817.                 '仅有末级科目才显示数量，外币
  818.                 If Bln_EndFlag Then
  819.                     If Dbl_Sljflj <> 0 Then
  820.                         CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Dbl_Sljflj   '累计借方发生.数量
  821.                     End If
  822.                     If Dbl_Sldflj <> 0 Then
  823.                         CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = Dbl_Sldflj   '累计贷方发生.数量
  824.                     End If
  825.                 End If
  826.                 If Bln_EndFlag And Bln_ForeignFlag Then
  827.                     If Dbl_Wbjflj <> 0 Then
  828.                         CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Dbl_Wbjflj   '累计借方发生.外币
  829.                     End If
  830.                     If Dbl_Wbdflj <> 0 Then
  831.                         CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = Dbl_Wbdflj   '累计贷方发生.外币
  832.                     End If
  833.                 End If
  834.                 
  835.                 '4.将期末数据写入网格
  836.                 If Dbl_Qmyete = 0 Then
  837.                     CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = "平"     '期初方向
  838.                     If Bln_EndFlag And Dbl_Qmslte <> 0 Then
  839.                         CxbbGrid.TextMatrix(Jsqte, Sydz("028", GridStr(), Szzls)) = Dbl_Qmslte
  840.                     End If
  841.                     If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qmwbte <> 0 Then
  842.                         CxbbGrid.TextMatrix(Jsqte, Sydz("029", GridStr(), Szzls)) = Dbl_Qmwbte
  843.                     End If
  844.                 Else
  845.                     If Dbl_Qmyete > 0 Then
  846.                         CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = "借"
  847.                         CxbbGrid.TextMatrix(Jsqte, Sydz("026", GridStr(), Szzls)) = Dbl_Qmyete
  848.                         CxbbGrid.TextMatrix(Jsqte, Sydz("030", GridStr(), Szzls)) = Dbl_Qmyete
  849.                         If Bln_EndFlag And Dbl_Qmslte <> 0 Then
  850.                             CxbbGrid.TextMatrix(Jsqte, Sydz("028", GridStr(), Szzls)) = Dbl_Qmslte
  851.                         End If
  852.                         If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qmwbte <> 0 Then
  853.                             CxbbGrid.TextMatrix(Jsqte, Sydz("029", GridStr(), Szzls)) = Dbl_Qmwbte
  854.                         End If
  855.                     Else
  856.                         CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = "贷"
  857.                         CxbbGrid.TextMatrix(Jsqte, Sydz("027", GridStr(), Szzls)) = -Dbl_Qmyete
  858.                         CxbbGrid.TextMatrix(Jsqte, Sydz("030", GridStr(), Szzls)) = -Dbl_Qmyete
  859.                         If Bln_EndFlag And Dbl_Qmslte <> 0 Then
  860.                             CxbbGrid.TextMatrix(Jsqte, Sydz("028", GridStr(), Szzls)) = -Dbl_Qmslte
  861.                         End If
  862.                         If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qmwbte <> 0 Then
  863.                             CxbbGrid.TextMatrix(Jsqte, Sydz("029", GridStr(), Szzls)) = -Dbl_Qmwbte
  864.                         End If
  865.                     End If
  866.                 End If
  867.             End If
  868.             
  869.             '移动到下一条记录
  870.             .MoveNext
  871.         Loop
  872.         
  873.         Call Sub_ShowSum(Dbl_Sjzj())       '显示数据总计
  874.         
  875.     End With
  876.     
  877. End Sub
  879. Private Sub Sub_ShowSum(Dbl_Sjzj() As Double)       '显示数据总计
  880.     If CxbbGrid.FixedRows = CxbbGrid.Rows Then
  881.         Exit Sub
  882.     End If
  883.     
  884.     CxbbGrid.AddItem ""
  885.     CxbbGrid.RowHeight(CxbbGrid.Rows - 1) = Sjhgd
  886.     CxbbGrid.Cell(flexcpBackColor, CxbbGrid.Rows - 1, 0, , CxbbGrid.Cols - 1) = &HFFFF00
  887.     
  888.     CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("001", GridStr(), Szzls)) = "合  计"
  889.     
  890.     '将期初数据写入网格
  891.     If Dbl_Sjzj(1) = 0 Then
  892.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("003", GridStr(), Szzls)) = "平"   '期初方向
  893.     Else
  894.         If Dbl_Sjzj(1) > 0 Then
  895.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("003", GridStr(), Szzls)) = "借"
  896.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("004", GridStr(), Szzls)) = Dbl_Sjzj(1)
  897.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("008", GridStr(), Szzls)) = Dbl_Sjzj(1)
  898.         Else
  899.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("003", GridStr(), Szzls)) = "贷"
  900.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("005", GridStr(), Szzls)) = -Dbl_Sjzj(1)
  901.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("008", GridStr(), Szzls)) = -Dbl_Sjzj(1)
  902.         End If
  903.     End If
  904.     
  905.     '将期间合计数据写入网格
  906.     If Dbl_Sjzj(4) <> 0 Then
  907.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("009", GridStr(), Szzls)) = Dbl_Sjzj(4)     '本期发生.借方
  908.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("013", GridStr(), Szzls)) = Dbl_Sjzj(4)     '本期借方发生.金额
  909.     End If
  910.     If Dbl_Sjzj(5) <> 0 Then
  911.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("010", GridStr(), Szzls)) = Dbl_Sjzj(5)     '本期发生.贷方
  912.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("016", GridStr(), Szzls)) = Dbl_Sjzj(5)     '本期贷方发生.金额
  913.     End If
  914.     
  915.     
  916.     '将截止累计数据写入网格
  917.     If Dbl_Sjzj(10) <> 0 Then
  918.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("017", GridStr(), Szzls)) = Dbl_Sjzj(10)     '累计发生.借方
  919.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("021", GridStr(), Szzls)) = Dbl_Sjzj(10)     '累计借方发生.金额
  920.     End If
  921.     If Dbl_Sjzj(11) <> 0 Then
  922.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("018", GridStr(), Szzls)) = Dbl_Sjzj(11)     '累计发生.贷方
  923.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("024", GridStr(), Szzls)) = Dbl_Sjzj(11)     '累计贷方发生.金额
  924.     End If
  925.     
  926.     '将期末数据写入网格
  927.     If Dbl_Sjzj(16) = 0 Then
  928.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("025", GridStr(), Szzls)) = "平"   '期初方向
  929.     Else
  930.         If Dbl_Sjzj(16) > 0 Then
  931.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("025", GridStr(), Szzls)) = "借"
  932.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("026", GridStr(), Szzls)) = Dbl_Sjzj(16)
  933.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("030", GridStr(), Szzls)) = Dbl_Sjzj(16)
  934.         Else
  935.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("025", GridStr(), Szzls)) = "贷"
  936.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("027", GridStr(), Szzls)) = -Dbl_Sjzj(16)
  937.             CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("030", GridStr(), Szzls)) = -Dbl_Sjzj(16)
  938.         End If
  939.     End If
  940. End Sub
  942. Private Sub Combo_AccFormat_Click()                    '用户选择不同帐页格式
  943.     Dim Int_Coljsq As Integer         '网格列临时计数器
  944.     
  945.     '为了加快显示速度
  946.     CxbbGrid.Redraw = False
  947.     
  948.     For Int_Coljsq = Qslz To CxbbGrid.Cols - 1
  949.         CxbbGrid.ColHidden(Int_Coljsq) = True
  950.     Next Int_Coljsq
  951.     
  952.     Select Case Combo_AccFormat
  953.     Case "金额式"
  954.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '部门编码
  955.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '部门名称
  956.         CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '期初余额.借方
  957.         CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '期初余额.贷方
  958.         CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '本期发生.借方
  959.         CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '本期发生.贷方
  960.         If SzToolbar.Buttons("lj").Value = tbrPressed Then
  961.             CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '累计发生.借方
  962.             CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '累计发生.贷方
  963.         End If
  964.         CxbbGrid.ColHidden(Sydz("026", GridStr(), Szzls)) = False      '期末余额.借方
  965.         CxbbGrid.ColHidden(Sydz("027", GridStr(), Szzls)) = False      '期末余额.贷方
  966.         
  967.     Case "外币金额式"
  968.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '部门编码
  969.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '部门名称
  970.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '方向.方向
  971.         CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '期初余额.外币
  972.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '期初余额.金额
  973.         CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '本期借方发生.外币
  974.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '本期借方发生.金额
  975.         CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '本期贷方发生.外币
  976.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '本期贷方发生.金额
  977.         If SzToolbar.Buttons("lj").Value = tbrPressed Then
  978.             CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False      '累计借方发生.外币
  979.             CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False      '累计借方发生.金额
  980.             CxbbGrid.ColHidden(Sydz("023", GridStr(), Szzls)) = False      '累计贷方发生.外币
  981.             CxbbGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False      '累计贷方发生.金额
  982.         End If
  983.         CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = False      '方向.方向
  984.         CxbbGrid.ColHidden(Sydz("029", GridStr(), Szzls)) = False      '期末余额.外币
  985.         CxbbGrid.ColHidden(Sydz("030", GridStr(), Szzls)) = False      '期末余额.金额
  986.         
  987.     Case "数量金额式"
  988.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '部门编码
  989.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '部门名称
  990.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '方向.方向
  991.         CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '期初余额.数量
  992.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '期初余额.金额
  993.         CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '本期借方发生.数量
  994.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '本期借方发生.金额
  995.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '本期贷方发生.数量
  996.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '本期贷方发生.金额
  997.         If SzToolbar.Buttons("lj").Value = tbrPressed Then
  998.             CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '累计借方发生.数量
  999.             CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False      '累计借方发生.金额
  1000.             CxbbGrid.ColHidden(Sydz("022", GridStr(), Szzls)) = False      '累计贷方发生.数量
  1001.             CxbbGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False      '累计贷方发生.金额
  1002.         End If
  1003.         CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = False      '方向.方向
  1004.         CxbbGrid.ColHidden(Sydz("028", GridStr(), Szzls)) = False      '期末余额.数量
  1005.         CxbbGrid.ColHidden(Sydz("030", GridStr(), Szzls)) = False      '期末余额.金额
  1006.         
  1007.     Case "数量外币式"
  1008.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '部门编码
  1009.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '部门名称
  1010.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '方向.方向
  1011.         CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '期初余额.数量
  1012.         CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '期初余额.外币
  1013.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '期初余额.金额
  1014.         CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '本期借方发生.数量
  1015.         CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '本期借方发生.外币
  1016.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '本期借方发生.金额
  1017.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '本期贷方发生.数量
  1018.         CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '本期贷方发生.外币
  1019.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '本期贷方发生.金额
  1020.         If SzToolbar.Buttons("lj").Value = tbrPressed Then
  1021.             CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '累计借方发生.数量
  1022.             CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False      '累计借方发生.外币
  1023.             CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False      '累计借方发生.金额
  1024.             CxbbGrid.ColHidden(Sydz("022", GridStr(), Szzls)) = False      '累计贷方发生.数量
  1025.             CxbbGrid.ColHidden(Sydz("023", GridStr(), Szzls)) = False      '累计贷方发生.外币
  1026.             CxbbGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False      '累计贷方发生.金额
  1027.         End If
  1028.         CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = False      '方向.方向
  1029.         CxbbGrid.ColHidden(Sydz("028", GridStr(), Szzls)) = False      '期末余额.数量
  1030.         CxbbGrid.ColHidden(Sydz("029", GridStr(), Szzls)) = False      '期末余额.外币
  1031.         CxbbGrid.ColHidden(Sydz("030", GridStr(), Szzls)) = False      '期末余额.金额
  1032.     End Select
  1033.     CxbbGrid.Redraw = True
  1034. End Sub
  1036. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1037.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1038.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1039.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1040.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1041.     ReDim Bbxbt(1 To Bbxbtgs)
  1042.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1043.     If Bbbwhgs <> 0 Then
  1044.         ReDim Bbbwh(1 To Bbbwhgs)
  1045.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1046.     End If
  1047.     Bbzbt = ReportTitle
  1048.     'Bbxbt(1) = Space(2) + "会计期间:" + Lab_TitleText(0)
  1049.     Bbxbt(1) = Space(2) + "会计期间:" + Lab_TitleText(0) + Space(15) + "部门名称：" + Me.Lab_FzName.Caption
  1050.     bbxbtzzxs(1) = 0                                    '报表行组织形式(0-居左 1-居中 2-居右)
  1051.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1052.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1053.     If Not bbylte Then
  1054.         Unload DY_Tybbyldy
  1055.     End If
  1056. End Sub