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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
资源名称：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_Gys_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            =   6120
  84.          TabIndex        =   10
  85.          Top             =   840
  86.          Width           =   645
  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            =   500
  137.          TabIndex        =   1
  138.          Top             =   150
  139.          Width           =   2775
  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_Gys_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_gys_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_gys_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.     
  553. End Sub
  555. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  556.     '卸载条件窗体
  557.     ZF_Gys_Frmslzztj.UnloadCheck.Value = 1
  558.     Unload ZF_Gys_Frmslzztj
  559.     '卸载打印页面设置窗体
  560.     Unload Dyymctbl
  561. End Sub
  563. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
  564.     Select Case Button.Key
  565.     Case "bcgs"                                          '保存表格格式
  566.         Call Bcwggs(CxbbGrid, GridCode, GridStr)
  567.     Case "hfmrgs"                                        '恢复默认格式
  568.         Call Hfmrgs(CxbbGrid, GridCode, GridStr)
  569.     Case "szxsxm"                                        '设置显示项目
  570.         Call Szxsxm(CxbbGrid, GridCode)
  571.     End Select
  572. End Sub
  574. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  575.     Select Case Button.Key
  576.     Case "ymsz"                                          '页面设置
  577.         Dyymctbl.Show 1
  578.     Case "yl"                                            '预 览
  579.         Call bbyl(True)
  580.     Case "dy"                                            '打 印
  581.         Call bbyl(False)
  582.     Case "cx"                                            '查 询
  583.         ZF_Gys_Frmslzztj.Show 1
  584.     Case "bz"                                            '帮 助
  585.         Call F1bz
  586.     Case "fh"                                            '退 出
  587.         Unload Me
  588.     End Select
  589. End Sub
  591. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  592.     Dim RecTemp As New ADODB.Recordset          '临时使用动态集
  593.     Dim Str_QueryCondi As String                '用户录入查询条件
  594.     
  595.     Timer1.Enabled = False
  596.     
  597.     With ZF_Gys_Frmslzztj
  598.         '辅助查询科目
  599.         Call FillImageCombo(Imgebo_FzCcode, "Cwzz_gyswlkm", 0)
  600.         
  601.         For Jsqte = 1 To Imgebo_FzCcode.ComboItems.count
  602.             If Imgebo_FzCcode.ComboItems.Item(Jsqte).Text = ZF_Gys_Frmslzztj.Imgebo_FzCcode.Text Then
  603.                 Imgebo_FzCcode.ComboItems.Item(Jsqte).Selected = True
  604.                 Imgebo_FzCcode.Refresh
  605.                 Exit For
  606.             End If
  607.         Next Jsqte
  608.         
  609.         '查询供应商
  610.         Call FillImageCombo(Imgebo_FzCode, "Cwzz_supplier", 0)
  611.         For Jsqte = 1 To Imgebo_FzCode.ComboItems.count
  612.             If Imgebo_FzCode.ComboItems.Item(Jsqte).Key = "@" + Trim(ZF_Gys_Frmslzztj.LrText(0).Tag) Then
  613.                 Imgebo_FzCode.ComboItems.Item(Jsqte).Selected = True
  614.                 Imgebo_FzCode.Refresh
  615.                 Exit For
  616.             End If
  617.         Next Jsqte
  618.     End With
  619.     
  620.     '生成查询结果
  621.     Call Sub_ScQuery
  622.     
  623. End Sub
  625. Private Sub Imgebo_FzCcode_Click()                        '点击科目列表
  626.     Call Sub_ScQuery
  627. End Sub
  629. Private Sub Imgebo_FzCode_Click()                         '点击辅助供应商列表
  630.     Call Sub_ScQuery
  631. End Sub
  633. Private Sub Sub_ScQuery()                                 '生成查询结果
  634.     Xt_Wait.Show
  635.     Xt_Wait.Refresh
  636.     CxbbGrid.Redraw = True
  637.     
  638.     '加快显示速度
  639.     CxbbGrid.Redraw = False
  640.     
  641.     '生成查询结果
  642.     Call Sub_Query
  643.     
  644.     CxbbGrid.Redraw = True
  645.     
  646.     Xt_Wait.Hide
  647. End Sub
  649. Private Sub Sub_Query()                                    '生成查询结果
  650.     Dim RecTemp As New ADODB.Recordset          '临时使用动态集
  651.     Dim Rec_AccSum As New ADODB.Recordset       '科目总帐动态集
  652.     Dim Str_Ccode As String                     '查询科目
  653.     Dim Str_FzCode As String                    '查询辅助供应商编码
  654.     Dim Sqlstr As String                        '查询字符串
  655.     Dim Coljsq As Long                          '网格列计数器
  656.     Dim Jsqte As Long                           '临时动态计数器
  657.     Dim Int_Year As Integer                     '查询会计年度
  658.     Dim Bln_IncluNotBook As Boolean             '是否包含未记帐凭证
  659.     Dim Bln_EndFlag As Boolean                  '判断当前科目是否为末级科目
  660.     Dim Bln_ForeignFlag As Boolean              '判断此科目是否外币核算
  661.     Dim Int_DqPeriod As Integer                 '查询进行当前会计期间
  662.     
  663.     Dim Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#   '期初金额,数量,外币
  664.     Dim Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj# '本期合计(金额,数量,外币)
  665.     Dim Dbl_Jejflj#, Dbl_Jedflj#, Dbl_Sljflj#, Dbl_Sldflj#, Dbl_Wbjflj#, Dbl_Wbdflj# '截止累计(金额,数量,外币)
  666.     Dim Dbl_Qmyete#, Dbl_Qmslte#, Dbl_Qmwbte#   '期末金额,数量,外币
  667.     '以下为用户自定义部分[
  668.     
  669.     '清除原查询数据
  670.     CxbbGrid.Rows = CxbbGrid.FixedRows
  671.     
  672.     '得到当前查询科目,并判断是否为末级科目
  673.     Str_Ccode = GetComboKey(Imgebo_FzCcode, 0)
  674.     Sqlstr = "SELECT EndFlag,AccFormat,ForeignFlag,ForeignCurrName,ConVertFlag From Cwzz_AccCode Left JOIN Gy_ForeignCurrency ON" & _
  675.     " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode Where Ccode='" & Str_Ccode & "'"
  676.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  677.     If Not RecTemp.EOF Then
  678.         Bln_EndFlag = RecTemp.Fields("EndFlag")
  679.         Combo_AccFormat.Text = Trim(RecTemp.Fields("AccFormat") & "")
  680.         If RecTemp.Fields("ForeignFlag") Then
  681.             Lab_TitleMess(2).Visible = True
  682.             Lab_TitleText(1).Caption = Trim(RecTemp.Fields("ForeignCurrName") & "")
  683.             Bln_ForeignFlag = True
  684.             Bln_ConVertFlag = IIf(IsNull(RecTemp.Fields("ConVertFlag")), False, RecTemp.Fields("ConVertFlag"))
  685.         Else
  686.             Lab_TitleMess(2).Visible = False
  687.             Bln_ForeignFlag = False
  688.             Lab_TitleText(1).Caption = ""
  689.         End If
  690.     End If
  691.     
  692.     '得到查询辅助供应商编码
  693.     Str_FzCode = GetComboKey(Imgebo_FzCode, 0)
  694.     
  695.     '得到查询年度,并判断是否包含未记帐凭证
  696.     With ZF_Gys_Frmslzztj
  697.         
  698.         Int_Year = Xtyear
  699.         
  700.         '是否包含未记帐凭证
  701.         If .Chk_NotBook.Value = 1 Then
  702.             Bln_IncluNotBook = True
  703.         Else
  704.             Bln_IncluNotBook = False
  705.         End If
  706.         
  707.     End With
  708.     
  709.     '初始化各种值
  710.     Dbl_Qcyete = 0
  711.     Dbl_Qcslte = 0
  712.     Dbl_Qcwbte = 0
  713.     
  714.     Dbl_Jejfhj = 0
  715.     Dbl_Jedfhj = 0
  716.     Dbl_Sljfhj = 0
  717.     Dbl_Sldfhj = 0
  718.     Dbl_Wbjfhj = 0
  719.     Dbl_Wbdfhj = 0
  720.     
  721.     Dbl_Jejflj = 0
  722.     Dbl_Jedflj = 0
  723.     Dbl_Sljflj = 0
  724.     Dbl_Sldflj = 0
  725.     Dbl_Wbjflj = 0
  726.     Dbl_Wbdflj = 0
  727.     
  728.     Jsqte = CxbbGrid.FixedRows - 1
  729.     
  730.     '1.读出上年结转余额(数量,外币,金)
  731.     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 SupplierCode='" & Str_FzCode & "'And Year=" & Int_Year & " And Period=1"
  732.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  733.     If Not RecTemp.EOF Then
  734.         Dbl_Qcyete = RecTemp.Fields("Qcyehj")
  735.         Dbl_Qcslte = RecTemp.Fields("Qcslhj")
  736.         Dbl_Qcwbte = RecTemp.Fields("Qcwbhj")
  737.     End If
  738.     
  739.     CxbbGrid.AddItem ""
  740.     Jsqte = Jsqte + 1
  741.     
  742.     CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = "上年结转"
  743.     
  744.     '输出余额
  745.     Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  746.     
  747.     
  748.     '2.读出所有会计期间记账数据
  749.     Sqlstr = "SELECT Period,Mjjehj=Isnull(SUM(Mjje),0), Mdjehj=Isnull(SUM(Mdje),0), Mjslhj=Isnull(SUM(Mjsl),0), Mdslhj=Isnull(SUM(Mdsl),0)," & _
  750.     " Mjwbhj=Isnull(SUM(Mjwb),0), Mdwbhj=Isnull(SUM(Mdwb),0) From Cwzz_AccSumAssi Where Ccode like '" & Str_Ccode & "%'  And SupplierCode='" & Str_FzCode & "' And Year=" & Int_Year & _
  751.     " GROUP BY Period"
  752.     Set Rec_AccSum = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  753.     
  754.     '3.如果包含未记帐凭证查询,则读出本年度所有未记帐凭证各会计期间合计数据
  755.     If Bln_IncluNotBook Then
  756.         Sqlstr = "SELECT Period,Jfjehj=Isnull(SUM(Jfje),0),Dfjehj=Isnull(SUM(Dfje),0),Jfslhj=Isnull(SUM(Jfsl),0),Dfslhj=Isnull(SUM(Dfsl),0)," & _
  757.         " Wbjfjehj=Isnull(SUM(Wbjfje),0),Wbdfjehj=Isnull(SUM(Wbdfje),0) From Cwzz_V_AccVouch WHERE BookFlag=0 And Ccode like '" & Str_Ccode & "%'  And SupplierCode='" & Str_FzCode & "' And Year=" & Int_Year & _
  758.         " GROUP BY Period"
  759.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  760.     End If
  761.     
  762.     '4.将各会计期间科目合计数据写入网格,同时计算本年累计,余额将其写入网格
  763.     For Int_DqPeriod = 1 To 12
  764.         
  765.         '本期合计数据清零
  766.         Dbl_Jejfhj = 0
  767.         Dbl_Jedfhj = 0
  768.         Dbl_Sljfhj = 0
  769.         Dbl_Sldfhj = 0
  770.         Dbl_Wbjfhj = 0
  771.         Dbl_Wbdfhj = 0
  772.         
  773.         With Rec_AccSum
  774.             If .RecordCount <> 0 Then
  775.                 .MoveFirst
  776.                 .Find "Period =" & Int_DqPeriod
  777.                 If Not .EOF Then
  778.                     Dbl_Jejfhj = Dbl_Jejfhj + .Fields("Mjjehj")
  779.                     Dbl_Jedfhj = Dbl_Jedfhj + .Fields("Mdjehj")
  780.                     Dbl_Sljfhj = Dbl_Sljfhj + .Fields("Mjslhj")
  781.                     Dbl_Sldfhj = Dbl_Sldfhj + .Fields("Mdslhj")
  782.                     Dbl_Wbjfhj = Dbl_Wbjfhj + .Fields("Mjwbhj")
  783.                     Dbl_Wbdfhj = Dbl_Wbdfhj + .Fields("Mdwbhj")
  784.                     
  785.                     Dbl_Jejflj = Dbl_Jejflj + .Fields("Mjjehj")
  786.                     Dbl_Jedflj = Dbl_Jedflj + .Fields("Mdjehj")
  787.                     Dbl_Sljflj = Dbl_Sljflj + .Fields("Mjslhj")
  788.                     Dbl_Sldflj = Dbl_Sldflj + .Fields("Mdslhj")
  789.                     Dbl_Wbjflj = Dbl_Wbjflj + .Fields("Mjwbhj")
  790.                     Dbl_Wbdflj = Dbl_Wbdflj + .Fields("Mdwbhj")
  791.                 End If
  792.             End If
  793.         End With
  794.         
  795.         '判断是否包含未记帐凭证
  796.         If Bln_IncluNotBook Then
  797.             With RecTemp
  798.                 If .RecordCount <> 0 Then
  799.                     .MoveFirst
  800.                     .Find "Period =" & Int_DqPeriod
  801.                     If Not .EOF Then
  802.                         Dbl_Jejfhj = Dbl_Jejfhj + .Fields("Jfjehj")
  803.                         Dbl_Jedfhj = Dbl_Jedfhj + .Fields("Dfjehj")
  804.                         Dbl_Sljfhj = Dbl_Sljfhj + .Fields("Jfslhj")
  805.                         Dbl_Sldfhj = Dbl_Sldfhj + .Fields("Dfslhj")
  806.                         Dbl_Wbjfhj = Dbl_Wbjfhj + .Fields("Wbjfjehj")
  807.                         Dbl_Wbdfhj = Dbl_Wbdfhj + .Fields("Wbdfjehj")
  808.                         
  809.                         Dbl_Jejflj = Dbl_Jejflj + .Fields("Jfjehj")
  810.                         Dbl_Jedflj = Dbl_Jedflj + .Fields("Dfjehj")
  811.                         Dbl_Sljflj = Dbl_Sljflj + .Fields("Jfslhj")
  812.                         Dbl_Sldflj = Dbl_Sldflj + .Fields("Dfslhj")
  813.                         Dbl_Wbjflj = Dbl_Wbjflj + .Fields("Wbjfjehj")
  814.                         Dbl_Wbdflj = Dbl_Wbdflj + .Fields("Wbdfjehj")
  815.                     End If
  816.                 End If
  817.             End With
  818.         End If
  819.         
  820.         '随时计算期末余额
  821.         
  822.         Dbl_Qcyete = Dbl_Qcyete + Dbl_Jejfhj - Dbl_Jedfhj
  823.         Dbl_Qcslte = Dbl_Qcslte + Dbl_Sljfhj - Dbl_Sldfhj
  824.         Dbl_Qcwbte = Dbl_Qcwbte + Dbl_Wbjfhj - Dbl_Wbdfhj
  825.         
  826.         '如果本期合计数据不为零则输出本月合计,本年累计,期末余额
  827.         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
  828.             CxbbGrid.AddItem ""
  829.             Jsqte = Jsqte + 1
  830.             Call Sub_OutPeriodSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_Sljfhj, Dbl_Sldfhj, Dbl_Wbjfhj, Dbl_Wbdfhj)
  831.             
  832.             '输出余额
  833.             Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  834.             
  835.             CxbbGrid.AddItem ""
  836.             Jsqte = Jsqte + 1
  837.             Call Sub_OutYearSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejflj, Dbl_Jedflj, Dbl_Sljflj, Dbl_Sldflj, Dbl_Wbjflj, Dbl_Wbdflj)
  838.         End If
  839.         
  840.     Next Int_DqPeriod
  841.     
  842.     '重置网格行高
  843.     For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
  844.         CxbbGrid.RowHeight(Jsqte) = Sjhgd
  845.     Next Jsqte
  846.     
  847. End Sub
  849. Private Sub Combo_AccFormat_Click()                    '用户选择不同帐页格式
  850.     Dim Int_Coljsq As Integer         '网格列临时计数器
  851.     
  852.     '为了加快显示速度
  853.     CxbbGrid.Redraw = False
  854.     
  855.     For Int_Coljsq = Qslz To CxbbGrid.Cols - 1
  856.         CxbbGrid.ColHidden(Int_Coljsq) = True
  857.     Next Int_Coljsq
  858.     
  859.     Select Case Combo_AccFormat
  860.     Case "金额式"
  861.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '月
  862.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '日
  863.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '凭证字号
  864.         CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '摘要
  865.         CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '借方.借方
  866.         CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '贷方.贷方
  867.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '方向.方向
  868.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '余额.余额
  869.         
  870.     Case "外币金额式"
  871.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '月
  872.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '日
  873.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '凭证字号
  874.         CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '摘要
  875.         CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.外币
  876.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.金额
  877.         CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.外币
  878.         CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.金额
  879.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '方向.方向
  880.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.外币
  881.         CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.金额
  882.         
  883.     Case "数量金额式"
  884.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '月
  885.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '日
  886.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '凭证字号
  887.         CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '摘要
  888.         CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '借方.数量
  889.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.金额
  890.         CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '贷方.数量
  891.         CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.金额
  892.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '方向.方向
  893.         CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
  894.         CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.金额
  895.         
  896.     Case "数量外币式"
  897.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '月
  898.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '日
  899.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '凭证字号
  900.         CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '摘要
  901.         CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '借方.数量
  902.         CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.外币
  903.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.金额
  904.         CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '贷方.数量
  905.         CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.外币
  906.         CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.金额
  907.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '方向.方向
  908.         CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
  909.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.外币
  910.         CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.金额
  911.         
  912.     End Select
  913.     CxbbGrid.Redraw = True
  914. End Sub
  916. Private Sub Sub_OutBalance(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#)          '输出余额
  917.     If Dbl_Qcyete = 0 Then
  918.         CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = "平"          '期初方向
  919.         If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  920.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
  921.         End If
  922.         If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  923.             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Dbl_Qcwbte
  924.         End If
  925.     Else
  926.         If Dbl_Qcyete > 0 Then
  927.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = "借"
  928.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Dbl_Qcyete
  929.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcyete
  930.             If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  931.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
  932.             End If
  933.             If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  934.                 CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Dbl_Qcwbte
  935.             End If
  936.         Else
  937.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = "贷"
  938.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = -Dbl_Qcyete
  939.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = -Dbl_Qcyete
  940.             If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  941.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = -Dbl_Qcslte
  942.             End If
  943.             If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  944.                 CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = -Dbl_Qcwbte
  945.             End If
  946.         End If
  947.     End If
  948. End Sub
  950. 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#)  '输出本月合计
  951.     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  952.     CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = "本月合计"
  953.     If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
  954.         CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Dbl_Jejfhj
  955.         CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Jejfhj
  956.     End If
  957.     If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
  958.         CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jedfhj
  959.         CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Jedfhj
  960.     End If
  961.     
  962.     '只有末级科目才显示数量和外币
  963.     If Bln_EndFlag Then
  964.         If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
  965.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Sljfhj
  966.         End If
  967.         If Dbl_Sldfhj <> 0 Then                                                     '本月贷方数量合计
  968.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Sldfhj
  969.         End If
  970.     End If
  971.     
  972.     If Bln_EndFlag And Bln_ForeignFlag Then
  973.         If Dbl_Wbjfhj <> 0 Then                                                     '本月借方外币合计
  974.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Wbjfhj
  975.         End If
  976.         If Dbl_Wbdfhj <> 0 Then                                                     '本月贷方外币合计
  977.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Wbdfhj
  978.         End If
  979.     End If
  980. End Sub
  982. 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#)  '输出本年累计
  983.     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  984.     CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = "本年累计"
  985.     If Dbl_Jejflj <> 0 Then                                                        '本年借方金额累计
  986.         CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Dbl_Jejflj
  987.         CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Jejflj
  988.     End If
  989.     If Dbl_Jedflj <> 0 Then                                                        '本年贷方金额累计
  990.         CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jedflj
  991.         CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Jedflj
  992.     End If
  993.     
  994.     '只有末级科目才显示数量和外币
  995.     If Bln_EndFlag Then
  996.         If Dbl_Sljflj <> 0 Then                                                     '本年借方数量累计
  997.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Sljflj
  998.         End If
  999.         If Dbl_Sldflj <> 0 Then                                                     '本年贷方数量累计
  1000.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Sldflj
  1001.         End If
  1002.     End If
  1003.     
  1004.     If Bln_EndFlag And Bln_ForeignFlag Then
  1005.         If Dbl_Wbjflj <> 0 Then                                                     '本年借方外币累计
  1006.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Wbjflj
  1007.         End If
  1008.         If Dbl_Wbdflj <> 0 Then                                                     '本年贷方外币累计
  1009.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Wbdflj
  1010.         End If
  1011.     End If
  1012. End Sub
  1014. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1015.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1016.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1017.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1018.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1019.     ReDim Bbxbt(1 To Bbxbtgs)
  1020.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1021.     If Bbbwhgs <> 0 Then
  1022.         ReDim Bbbwh(1 To Bbbwhgs)
  1023.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1024.     End If
  1025.     Bbzbt = ReportTitle
  1026.     'Bbxbt(1) = Space(2) + "科目名称：" + Me.Imgebo_FzCcode.Text + Space(5) + "供应商：" + Me.Imgebo_FzCode.Text
  1027.     Bbxbt(1) = Space(2) + "科目名称：" + Me.Imgebo_FzCcode.Text + Space(5) + "供应商：" + Me.Imgebo_FzCode.Text
  1028.     bbxbtzzxs(1) = 0                                    '报表行组织形式(0-居左 1-居中 2-居右)
  1029.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1030.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1031.     If Not bbylte Then
  1032.         Unload DY_Tybbyldy
  1033.     End If
  1034. End Sub