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

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

企业管理

开发平台：

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