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

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

企业管理

开发平台：

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_Gr_Frmslmxzjg 
  5.    Caption         =   "个人_三栏明细帐"
  6.    ClientHeight    =   7755
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11355
  10.    HelpContextID   =   5001
  11.    Icon            =   "辅助_个人_三栏明细帐查询结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   7755
  16.    ScaleWidth      =   11355
  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          =   1425
  26.       Left            =   0
  27.       Picture         =   "辅助_个人_三栏明细帐查询结果.frx":1042
  28.       ScaleHeight     =   1365
  29.       ScaleWidth      =   11535
  30.       TabIndex        =   0
  31.       Top             =   600
  32.       Width           =   11595
  33.       Begin VB.CommandButton Cmd_CancelPrint 
  34.          Caption         =   "取消打印(&C)"
  35.          Height          =   405
  36.          Left            =   8400
  37.          TabIndex        =   17
  38.          Top             =   120
  39.          Visible         =   0   'False
  40.          Width           =   1155
  41.       End
  42.       Begin VB.ComboBox Combo_AccFormat 
  43.          Height          =   300
  44.          Left            =   8970
  45.          Style           =   2  'Dropdown List
  46.          TabIndex        =   5
  47.          Top             =   1020
  48.          Width           =   1275
  49.       End
  50.       Begin MSComctlLib.ImageCombo Imgebo_FzCode 
  51.          Height          =   315
  52.          Left            =   1710
  53.          TabIndex        =   15
  54.          Top             =   990
  55.          Width           =   2745
  56.          _ExtentX        =   4842
  57.          _ExtentY        =   556
  58.          _Version        =   393216
  59.          ForeColor       =   -2147483640
  60.          BackColor       =   -2147483643
  61.          Locked          =   -1  'True
  62.       End
  63.       Begin VB.Label Lab_Ccode 
  64.          BackStyle       =   0  'Transparent
  65.          ForeColor       =   &H00000000&
  66.          Height          =   315
  67.          Left            =   1710
  68.          TabIndex        =   16
  69.          Top             =   750
  70.          Width           =   2985
  71.       End
  72.       Begin VB.Label Lab_TitleMess 
  73.          BackStyle       =   0  'Transparent
  74.          Caption         =   "科目名称:"
  75.          Height          =   225
  76.          Index           =   1
  77.          Left            =   870
  78.          TabIndex        =   14
  79.          Top             =   750
  80.          Width           =   825
  81.       End
  82.       Begin VB.Label Lab_TitleMess 
  83.          BackStyle       =   0  'Transparent
  84.          Caption         =   "往来个人:"
  85.          Height          =   225
  86.          Index           =   3
  87.          Left            =   870
  88.          TabIndex        =   13
  89.          Top             =   1050
  90.          Width           =   915
  91.       End
  92.       Begin VB.Label Lab_TitleText 
  93.          BackStyle       =   0  'Transparent
  94.          ForeColor       =   &H00000000&
  95.          Height          =   225
  96.          Index           =   1
  97.          Left            =   6000
  98.          TabIndex        =   12
  99.          Top             =   720
  100.          Width           =   1395
  101.       End
  102.       Begin VB.Label Lab_TitleMess 
  103.          BackStyle       =   0  'Transparent
  104.          Caption         =   "外币名称:"
  105.          Height          =   225
  106.          Index           =   2
  107.          Left            =   5070
  108.          TabIndex        =   11
  109.          Top             =   720
  110.          Visible         =   0   'False
  111.          Width           =   915
  112.       End
  113.       Begin VB.Label Label1 
  114.          Appearance      =   0  'Flat
  115.          BackColor       =   &H80000005&
  116.          BackStyle       =   0  'Transparent
  117.          Caption         =   "未记帐明细会计分录"
  118.          ForeColor       =   &H80000008&
  119.          Height          =   195
  120.          Index           =   2
  121.          Left            =   8520
  122.          TabIndex        =   9
  123.          Top             =   720
  124.          Width           =   1665
  125.       End
  126.       Begin VB.Label Lab_Color 
  127.          Appearance      =   0  'Flat
  128.          BackColor       =   &H00FFFFC0&
  129.          BorderStyle     =   1  'Fixed Single
  130.          ForeColor       =   &H80000008&
  131.          Height          =   195
  132.          Index           =   0
  133.          Left            =   8220
  134.          TabIndex        =   8
  135.          Top             =   720
  136.          Width           =   195
  137.       End
  138.       Begin VB.Label Lab_TitleText 
  139.          BackStyle       =   0  'Transparent
  140.          ForeColor       =   &H00000000&
  141.          Height          =   225
  142.          Index           =   0
  143.          Left            =   6030
  144.          TabIndex        =   7
  145.          Top             =   1050
  146.          Width           =   1815
  147.       End
  148.       Begin VB.Label TsLabel 
  149.          BackStyle       =   0  'Transparent
  150.          Caption         =   "帐页格式:"
  151.          Height          =   225
  152.          Index           =   7
  153.          Left            =   8100
  154.          TabIndex        =   6
  155.          Top             =   1080
  156.          Width           =   915
  157.       End
  158.       Begin VB.Label TsLabel 
  159.          BackColor       =   &H80000018&
  160.          BackStyle       =   0  'Transparent
  161.          Caption         =   "个人三栏明细帐"
  162.          BeginProperty Font 
  163.             Name            =   "宋体"
  164.             Size            =   14.25
  165.             Charset         =   134
  166.             Weight          =   700
  167.             Underline       =   0   'False
  168.             Italic          =   0   'False
  169.             Strikethrough   =   0   'False
  170.          EndProperty
  171.          ForeColor       =   &H00000000&
  172.          Height          =   330
  173.          Index           =   4
  174.          Left            =   500
  175.          TabIndex        =   2
  176.          Top             =   150
  177.          Width           =   2325
  178.       End
  179.       Begin VB.Label Lab_TitleMess 
  180.          BackStyle       =   0  'Transparent
  181.          Caption         =   "会计期间:"
  182.          Height          =   225
  183.          Index           =   0
  184.          Left            =   5070
  185.          TabIndex        =   1
  186.          Top             =   1050
  187.          Width           =   915
  188.       End
  189.    End
  190.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  191.       Height          =   5265
  192.       Left            =   30
  193.       TabIndex        =   3
  194.       Top             =   2100
  195.       Width           =   11715
  196.       _cx             =   5080
  197.       _cy             =   5080
  198.       Appearance      =   1
  199.       BorderStyle     =   1
  200.       Enabled         =   -1  'True
  201.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  202.          Name            =   "宋体"
  203.          Size            =   9
  204.          Charset         =   134
  205.          Weight          =   400
  206.          Underline       =   0   'False
  207.          Italic          =   0   'False
  208.          Strikethrough   =   0   'False
  209.       EndProperty
  210.       MousePointer    =   0
  211.       BackColor       =   16777215
  212.       ForeColor       =   -2147483640
  213.       BackColorFixed  =   12632256
  214.       ForeColorFixed  =   -2147483630
  215.       BackColorSel    =   -2147483635
  216.       ForeColorSel    =   -2147483634
  217.       BackColorBkg    =   -2147483636
  218.       BackColorAlternate=   16777215
  219.       GridColor       =   -2147483633
  220.       GridColorFixed  =   -2147483632
  221.       TreeColor       =   -2147483632
  222.       FloodColor      =   192
  223.       SheetBorder     =   -2147483642
  224.       FocusRect       =   1
  225.       HighLight       =   1
  226.       AllowSelection  =   -1  'True
  227.       AllowBigSelection=   -1  'True
  228.       AllowUserResizing=   0
  229.       SelectionMode   =   0
  230.       GridLines       =   1
  231.       GridLinesFixed  =   2
  232.       GridLineWidth   =   1
  233.       Rows            =   50
  234.       Cols            =   10
  235.       FixedRows       =   1
  236.       FixedCols       =   1
  237.       RowHeightMin    =   0
  238.       RowHeightMax    =   0
  239.       ColWidthMin     =   0
  240.       ColWidthMax     =   0
  241.       ExtendLastCol   =   0   'False
  242.       FormatString    =   ""
  243.       ScrollTrack     =   0   'False
  244.       ScrollBars      =   3
  245.       ScrollTips      =   0   'False
  246.       MergeCells      =   0
  247.       MergeCompare    =   0
  248.       AutoResize      =   -1  'True
  249.       AutoSizeMode    =   0
  250.       AutoSearch      =   0
  251.       AutoSearchDelay =   2
  252.       MultiTotals     =   -1  'True
  253.       SubtotalPosition=   1
  254.       OutlineBar      =   0
  255.       OutlineCol      =   0
  256.       Ellipsis        =   0
  257.       ExplorerBar     =   0
  258.       PicturesOver    =   0   'False
  259.       FillStyle       =   0
  260.       RightToLeft     =   0   'False
  261.       PictureType     =   0
  262.       TabBehavior     =   0
  263.       OwnerDraw       =   0
  264.       Editable        =   0
  265.       ShowComboButton =   1
  266.       WordWrap        =   0   'False
  267.       TextStyle       =   0
  268.       TextStyleFixed  =   0
  269.       OleDragMode     =   0
  270.       OleDropMode     =   0
  271.       DataMode        =   0
  272.       VirtualData     =   -1  'True
  273.       DataMember      =   ""
  274.       ComboSearch     =   3
  275.       AutoSizeMouse   =   -1  'True
  276.       FrozenRows      =   0
  277.       FrozenCols      =   0
  278.       AllowUserFreezing=   0
  279.       BackColorFrozen =   0
  280.       ForeColorFrozen =   0
  281.       WallPaperAlignment=   9
  282.       AccessibleName  =   ""
  283.       AccessibleDescription=   ""
  284.       AccessibleValue =   ""
  285.       AccessibleRole  =   24
  286.    End
  287.    Begin MSComctlLib.Toolbar SzToolbar 
  288.       Align           =   1  'Align Top
  289.       Height          =   555
  290.       Left            =   0
  291.       TabIndex        =   4
  292.       Top             =   0
  293.       Width           =   11355
  294.       _ExtentX        =   20029
  295.       _ExtentY        =   979
  296.       ButtonWidth     =   820
  297.       ButtonHeight    =   926
  298.       AllowCustomize  =   0   'False
  299.       Appearance      =   1
  300.       Style           =   1
  301.       ImageList       =   "ImageList1"
  302.       _Version        =   393216
  303.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  304.          NumButtons      =   11
  305.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  306.             Caption         =   "设置"
  307.             Key             =   "ymsz"
  308.             ImageKey        =   "sz"
  309.          EndProperty
  310.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  311.             Caption         =   "打印"
  312.             Key             =   "dy"
  313.             ImageKey        =   "dy"
  314.          EndProperty
  315.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  316.             Caption         =   "预览"
  317.             Key             =   "yl"
  318.             ImageKey        =   "yl"
  319.          EndProperty
  320.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  321.             Caption         =   "连打"
  322.             Key             =   "lxdy"
  323.             ImageIndex      =   36
  324.          EndProperty
  325.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  326.             Style           =   3
  327.          EndProperty
  328.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  329.             Caption         =   "查询"
  330.             Key             =   "cx"
  331.             ImageKey        =   "cx"
  332.          EndProperty
  333.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  334.             Style           =   3
  335.          EndProperty
  336.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  337.             Caption         =   "凭证"
  338.             Key             =   "pz"
  339.             ImageKey        =   "pz"
  340.          EndProperty
  341.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  342.             Style           =   3
  343.          EndProperty
  344.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  345.             Caption         =   "帮助"
  346.             Key             =   "bz"
  347.             ImageKey        =   "bz"
  348.          EndProperty
  349.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  350.             Caption         =   "退出"
  351.             Key             =   "fh"
  352.             ImageKey        =   "tc"
  353.          EndProperty
  354.       EndProperty
  355.       BorderStyle     =   1
  356.       Begin MSComctlLib.ImageList ImageList1 
  357.          Left            =   6000
  358.          Top             =   30
  359.          _ExtentX        =   1005
  360.          _ExtentY        =   1005
  361.          BackColor       =   -2147483643
  362.          ImageWidth      =   16
  363.          ImageHeight     =   16
  364.          MaskColor       =   12632256
  365.          _Version        =   393216
  366.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  367.             NumListImages   =   36
  368.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  369.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":35106
  370.                Key             =   "sz"
  371.             EndProperty
  372.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  373.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":354A0
  374.                Key             =   "dy"
  375.             EndProperty
  376.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  377.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3583A
  378.                Key             =   "yl"
  379.             EndProperty
  380.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  381.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":35BD4
  382.                Key             =   "xg"
  383.             EndProperty
  384.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  385.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":35F6E
  386.                Key             =   "zh"
  387.             EndProperty
  388.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  389.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":36308
  390.                Key             =   "sh"
  391.             EndProperty
  392.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  393.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":366A2
  394.                Key             =   "bc"
  395.             EndProperty
  396.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  397.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":36A3C
  398.                Key             =   "fq"
  399.             EndProperty
  400.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  401.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":36DD6
  402.                Key             =   "bz"
  403.             EndProperty
  404.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  405.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":37170
  406.                Key             =   "tc"
  407.             EndProperty
  408.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  409.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3750A
  410.                Key             =   "bcgs"
  411.             EndProperty
  412.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  413.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":378A4
  414.                Key             =   "mrlk"
  415.             EndProperty
  416.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  417.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":37C3E
  418.                Key             =   "xsxm"
  419.             EndProperty
  420.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  421.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":37FD8
  422.                Key             =   "first"
  423.             EndProperty
  424.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  425.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":38372
  426.                Key             =   "prev"
  427.             EndProperty
  428.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  429.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3870C
  430.                Key             =   "next"
  431.             EndProperty
  432.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  433.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":38AA6
  434.                Key             =   "last"
  435.             EndProperty
  436.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  437.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":38E40
  438.                Key             =   "xx"
  439.             EndProperty
  440.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  441.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":391DA
  442.                Key             =   "define"
  443.             EndProperty
  444.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  445.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":39574
  446.                Key             =   "exec"
  447.             EndProperty
  448.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  449.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3990E
  450.                Key             =   "xz"
  451.             EndProperty
  452.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  453.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":39CA8
  454.                Key             =   "sc"
  455.             EndProperty
  456.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  457.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3A042
  458.                Key             =   "sx"
  459.             EndProperty
  460.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  461.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3A3DC
  462.                Key             =   "cx"
  463.             EndProperty
  464.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  465.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3A776
  466.                Key             =   "zd"
  467.             EndProperty
  468.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  469.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3AB10
  470.                Key             =   "dz"
  471.             EndProperty
  472.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  473.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3AEAA
  474.                Key             =   "ph"
  475.             EndProperty
  476.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  477.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3B244
  478.                Key             =   "fz"
  479.             EndProperty
  480.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  481.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3B5DE
  482.                Key             =   "dw"
  483.             EndProperty
  484.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  485.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3B978
  486.                Key             =   "hf"
  487.             EndProperty
  488.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  489.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3BD12
  490.                Key             =   "pz"
  491.             EndProperty
  492.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  493.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3C0AC
  494.                Key             =   "check"
  495.             EndProperty
  496.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  497.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3C446
  498.                Key             =   "zz"
  499.             EndProperty
  500.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  501.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3C7E0
  502.                Key             =   "mx"
  503.             EndProperty
  504.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  505.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3CB7A
  506.                Key             =   "lj"
  507.             EndProperty
  508.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  509.                Picture         =   "辅助_个人_三栏明细帐查询结果.frx":3CF14
  510.                Key             =   ""
  511.             EndProperty
  512.          EndProperty
  513.       End
  514.       Begin MSComctlLib.Toolbar GsToolbar 
  515.          Height          =   525
  516.          Left            =   9660
  517.          TabIndex        =   10
  518.          Top             =   0
  519.          Width           =   1665
  520.          _ExtentX        =   2937
  521.          _ExtentY        =   926
  522.          ButtonWidth     =   1455
  523.          ButtonHeight    =   926
  524.          AllowCustomize  =   0   'False
  525.          Appearance      =   1
  526.          Style           =   1
  527.          ImageList       =   "ImageList1"
  528.          _Version        =   393216
  529.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  530.             NumButtons      =   2
  531.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  532.                Caption         =   "保存格式"
  533.                Key             =   "bcgs"
  534.                ImageKey        =   "bcgs"
  535.             EndProperty
  536.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  537.                Caption         =   "默认列宽"
  538.                Key             =   "hfmrgs"
  539.                ImageKey        =   "mrlk"
  540.             EndProperty
  541.          EndProperty
  542.       End
  543.    End
  544. End
  545. Attribute VB_Name = "ZF_Gr_Frmslmxzjg"
  546. Attribute VB_GlobalNameSpace = False
  547. Attribute VB_Creatable = False
  548. Attribute VB_PredeclaredId = True
  549. Attribute VB_Exposed = False
  550. '**********************************************************************
  551. '*    模 块 名 称 :(个人)科目三栏明细帐
  552. '*    功 能 描 述 :本功能用于查询某科目某个人在某月或某几月的明细帐情况
  553. '*                 并且能够进行立体联查凭证及总帐数据。
  554. '*    程序员姓名  : 张建忠
  555. '*    最后修改人  : 奚俊峰
  556. '*    最后修改时间:2001.12.27
  557. '*    备        注:
  558. '**********************************************************************
  559. Dim ReportTitle As String                '报表主标题
  560. Dim Bln_ConVertFlag As Boolean           '外币折算方式
  561. Dim Int_Wbhlxsws As Integer              '外币汇率小数位数
  562. Dim Bln_CancelPrint As Boolean           '用户是否取消打印
  563. Dim Bln_Printing As Boolean              '用户是否正在打印
  565. '以下为固定使用变量
  566. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  567. Dim GridCode As String                   '显示网格网格代码
  568. Dim GridInf() As Variant                 '整个网格设置信息
  569. Dim Tsxx As String                       '系统提示信息
  570. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  571. Dim Sjhgd As Double                      '网格数据行高度
  572. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  573. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  574. Dim GridStr()  As String                 '网格列信息(字符型)
  575. Dim GridInt() As Integer                 '网格列信息(整型)
  576. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  577. Dim Bln_Stop As Boolean                  '停止输出查询结果
  578. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
  579.     On Error Resume Next
  580.     With CxbbGrid
  581.         .Width = Me.Width - 160
  582.         .Height = Me.Height - .Top - 400
  583.     End With
  584.     With Pic_Title
  585.         .Width = Me.Width - 160
  586.     End With
  587.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  588. End Sub
  590. Private Sub Form_Load()                                                   '窗体装入
  591.     '调入打印页面设置窗体
  592.     XtReportCode = "Cwzz_gr_slmxz"
  593.     Load Dyymctbl
  594.     ReportTitle = "个人三栏明细帐"
  595.     
  596.     '调整标题栏及网格、格式工具条位置
  597.     Pic_Title.Left = 40
  598.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  599.     CxbbGrid.Left = Pic_Title.Left
  600.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  601.     
  602.     '调 入 网 格
  603.     GridCode = "Cwzz_gr_slmxz"
  604.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  605.     
  606.     Qslz = GridInf(1)
  607.     Sjhgd = GridInf(2)
  608.     Sfxshjwg = GridInf(7)
  609.     Szzls = CxbbGrid.Cols - 1
  610.     
  611.     '帐页格式
  612.     Call FillCombo(Combo_AccFormat, "Cwzz_zygs", "", 0)
  613.     
  614.     '调整标题位置
  615.     SetTitlePos tsLabel(4)
  616.     
  617. End Sub
  619. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  620.     '如果正在执行连续打印，则不能退出窗体
  621.     If Bln_Printing Then
  622.         Cancel = 1
  623.     End If
  624.     '卸载条件窗体
  625.     ZF_Gr_Frmslmxztj.UnloadCheck.Value = 1
  626.     Unload ZF_Gr_Frmslmxztj
  627.     '卸载打印页面设置窗体
  628.     Unload Dyymctbl
  629. End Sub
  631. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
  632.     Select Case Button.Key
  633.     Case "bcgs"                                          '保存表格格式
  634.         Call Bcwggs(CxbbGrid, GridCode, GridStr)
  635.     Case "hfmrgs"                                        '恢复默认格式
  636.         Call Hfmrgs(CxbbGrid, GridCode, GridStr)
  637.     Case "szxsxm"                                        '设置显示项目
  638.         Call Szxsxm(CxbbGrid, GridCode)
  639.     End Select
  640. End Sub
  642. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  643.     '如果正在执行连续打印，则不能执行其他功能
  644.     If Bln_Printing Then
  645.         Exit Sub
  646.     End If
  647.     Select Case Button.Key
  648.     Case "ymsz"                                          '页面设置
  649.         Dyymctbl.Show 1
  650.     Case "yl"                                            '预 览
  651.         Call bbyl(True)
  652.     Case "dy"                                            '打 印
  653.         Call bbyl(False)
  654.     Case "lxdy"                                          '连续打印
  655.         Call Sub_Lxdy
  656.     Case "cx"                                            '查 询
  657.         ZF_Gr_Frmslmxztj.Show 1
  658.     Case "pz"                                            '凭 证
  659.         Call CxbbGrid_DblClick
  660.     Case "bz"                                            '帮 助
  661.         Call F1bz
  662.     Case "fh"                                            '退 出
  663.         Unload Me
  664.     End Select
  665. End Sub
  667. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  668.     Timer1.Enabled = False
  669.     
  670.     '查询个人
  671.     Call FillImageCombo(Imgebo_FzCode, "Cwzz_person", 0)
  672.     For Jsqte = 1 To Imgebo_FzCode.ComboItems.count
  673.         If Imgebo_FzCode.ComboItems.Item(Jsqte).Key = "@" + Trim(ZF_Gr_Frmslmxztj.LrText(0).Tag) Then
  674.             Imgebo_FzCode.ComboItems.Item(Jsqte).Selected = True
  675.             Imgebo_FzCode.Refresh
  676.             Exit For
  677.         End If
  678.     Next Jsqte
  679.     Call Imgebo_FzCode_Click
  680. End Sub
  682. Private Sub Imgebo_FzCode_Click()
  683.     Timer1.Enabled = False
  684.     Xt_Wait.Show
  685.     Xt_Wait.Refresh
  686.     
  687.     '加快显示速度
  688.     CxbbGrid.Redraw = False
  689.     
  690.     '生成查询结果
  691.     Call Sub_Query
  692.     CxbbGrid.Redraw = True
  693.     Xt_Wait.Hide
  694. End Sub
  696. Private Sub Sub_Query()                                    '生成查询结果
  697.     Dim RecTemp As New ADODB.Recordset          '临时使用动态集
  698.     Dim Sqlstr As String                        '查询字符串
  699.     Dim Coljsq As Long                          '网格列计数器
  700.     Dim Jsqte As Long                           '临时动态计数器
  701.     Dim Str_Ccode As String                     '查询会计科目
  702.     Dim Str_FzCode As String                    '查询辅助个人编码
  703.     Dim Int_BPeriod As Integer                  '查询起始会计期间
  704.     Dim Int_EPeriod As Integer                  '查询终止会计期间
  705.     Dim Int_Year As Integer                     '查询会计年度
  706.     Dim Bln_IncluNotBook As Boolean             '是否包含未记帐凭证
  707.     Dim Bln_QcZeroShow As Boolean               '查询会计期间期初数据如果为零是否显示
  708.     Dim Bln_CqGcShow As Boolean                 '是否显示承前过次
  709.     Dim Int_Zdzyhs As Integer                   '正式帐页指定报表行数
  710.     Dim Bln_EndFlag As Boolean                  '判断当前科目是否为末级科目
  711.     Dim Int_DqPeriod As Integer                 '查询进行当前会计期间
  712.     Dim Bln_NotFirst As Boolean                 '是否为首次循环
  713.     Dim Bln_ForeignFlag As Boolean              '判断此科目是否外币核算
  714.     
  715.     Dim Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#   '期初金额,数量,外币
  716.     Dim Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj# '本期合计(金额,数量,外币)
  717.     Dim Dbl_Jejflj#, Dbl_Jedflj#, Dbl_Sljflj#, Dbl_Sldflj#, Dbl_Wbjflj#, Dbl_Wbdflj# '截止累计(金额,数量,外币)
  718.     Dim Dbl_Qmyete#, Dbl_Qmslte#, Dbl_Qmwbte#   '期末金额,数量,外币
  719.     '以下为用户自定义部分[
  720.     
  721.     '清除原查询数据
  722.     CxbbGrid.Rows = CxbbGrid.FixedRows
  723.     With ZF_Gr_Frmslmxztj
  724.         '得到当前查询科目,并判断是否为末级科目
  725.         Lab_Ccode.Caption = .Imgebo_FzCcode.Text
  726.         Str_Ccode = GetComboKey(.Imgebo_FzCcode, 0)
  727.         Sqlstr = "SELECT EndFlag,AccFormat,ForeignFlag,ForeignCurrName,ConVertFlag From Cwzz_AccCode Left JOIN Gy_ForeignCurrency ON" & _
  728.         " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode Where Ccode='" & Str_Ccode & "'"
  729.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  730.         If Not RecTemp.EOF Then
  731.             Bln_EndFlag = RecTemp.Fields("EndFlag")
  732.             Combo_AccFormat.Text = Trim(RecTemp.Fields("AccFormat") & "")
  733.             If RecTemp.Fields("ForeignFlag") Then
  734.                 Bln_ForeignFlag = True
  735.                 Lab_TitleMess(2).Visible = True
  736.                 Lab_TitleText(1).Caption = Trim(RecTemp.Fields("ForeignCurrName") & "")
  737.                 Bln_ConVertFlag = IIf(IsNull(RecTemp.Fields("ConVertFlag")), False, RecTemp.Fields("ConVertFlag"))
  738.             Else
  739.                 Bln_ForeignFlag = False
  740.                 Lab_TitleMess(2).Visible = False
  741.                 Lab_TitleText(1).Caption = ""
  742.             End If
  743.         End If
  744.         
  745.         '外币汇率小数位数(将来可变)
  746.         Int_Wbhlxsws = 4
  747.         
  748.         '得到查询辅助个人编码
  749.         Str_FzCode = GetComboKey(Imgebo_FzCode, 0)
  750.         
  751.         '得到查询起始和截止会计期间,并判断是否包含未记帐凭证
  752.         Int_Year = Int(Mid(.Combo_Kjqj(0).Text, 1, 4))
  753.         Int_BPeriod = Int(Mid(.Combo_Kjqj(0).Text, 6, 2))
  754.         Int_EPeriod = Int(Mid(.Combo_Kjqj(1).Text, 6, 2))
  755.         Lab_TitleText(0).Caption = .Combo_Kjqj(0).Text & "--" & .Combo_Kjqj(1).Text
  756.         
  757.         '是否包含未记帐凭证
  758.         If .Chk_NotBook.Value = 1 Then
  759.             Bln_IncluNotBook = True
  760.         Else
  761.             Bln_IncluNotBook = False
  762.         End If
  763.         
  764.         '查询会计期间期初数据如果为零是否显示
  765.         If .Chk_QcZeroShow = 1 Then
  766.             Bln_QcZeroShow = True
  767.         Else
  768.             Bln_QcZeroShow = False
  769.         End If
  770.     End With
  771.     
  772.     '初始化各种值
  773.     Dbl_Qcyete = 0
  774.     Dbl_Qcslte = 0
  775.     Dbl_Qcwbte = 0
  776.     
  777.     Dbl_Jejfhj = 0
  778.     Dbl_Jedfhj = 0
  779.     Dbl_Sljfhj = 0
  780.     Dbl_Sldfhj = 0
  781.     Dbl_Wbjfhj = 0
  782.     Dbl_Wbdfhj = 0
  783.     
  784.     Dbl_Jejflj = 0
  785.     Dbl_Jedflj = 0
  786.     Dbl_Sljflj = 0
  787.     Dbl_Sldflj = 0
  788.     Dbl_Wbjflj = 0
  789.     Dbl_Wbdflj = 0
  790.     
  791.     Jsqte = CxbbGrid.FixedRows - 1
  792.     
  793.     '1.计算期初余额(金额,数量,外币),并计算截止查询起始会计期间累计数据
  794.     Sqlstr = "SELECT Qcyehj=Isnull(Sum(Qcye),0),Qcslhj=Isnull(Sum(Qcsl),0),Qcwbhj=Isnull(Sum(Qcwb),0), " & _
  795.     " Byjfljjehj=Isnull(Sum(Byjfljje-Mjje),0),Bydfljjehj=Isnull(Sum(Bydfljje-Mdje),0),Byjfljslhj=Isnull(Sum(Byjfljsl-Mjsl),0)," & _
  796.     " Bydfljslhj=Isnull(Sum(Bydfljsl-Mdsl),0),Byjfljwbhj=Isnull(Sum(Byjfljwb-Mjwb),0),Bydfljwbhj=Isnull(Sum(Bydfljwb-Mdwb),0) " & _
  797.     " From Cwzz_AccSumassi Where Ccode like '" & Str_Ccode & "%' And PersonCode='" & Str_FzCode & "' And Year=" & Int_Year & _
  798.     " And Period=" & Int_BPeriod
  799.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  800.     If Not RecTemp.EOF Then
  801.         Dbl_Qcyete = RecTemp.Fields("Qcyehj")
  802.         Dbl_Qcslte = RecTemp.Fields("Qcslhj")
  803.         Dbl_Qcwbte = RecTemp.Fields("Qcwbhj")
  804.         
  805.         '截止累计数据需要减掉本会计期间相应记帐数据
  806.         Dbl_Jejflj = RecTemp.Fields("Byjfljjehj")
  807.         Dbl_Jedflj = RecTemp.Fields("Bydfljjehj")
  808.         Dbl_Sljflj = RecTemp.Fields("Byjfljslhj")
  809.         Dbl_Sldflj = RecTemp.Fields("Bydfljslhj")
  810.         Dbl_Wbjflj = RecTemp.Fields("Byjfljwbhj")
  811.         Dbl_Wbdflj = RecTemp.Fields("Bydfljwbhj")
  812.     End If
  813.     
  814.     '如果包含未记帐凭证则计算小于查询起始会计期间包含科目借贷方合计
  815.     If Bln_IncluNotBook Then
  816.         Sqlstr = "SELECT Jfjehj=Isnull(Sum(Jfje),0),Dfjehj=Isnull(Sum(Dfje),0),Jfslhj=Isnull(Sum(Jfsl),0),Dfslhj=Isnull(Sum(Dfsl),0) " & _
  817.         ",Wbjfjehj=Isnull(Sum(Wbjfje),0),Wbdfjehj=Isnull(Sum(Wbdfje),0) From Cwzz_V_AccVouch Where BookFlag=0 And Ccode like '" & Str_Ccode & "%' And PersonCode='" & Str_FzCode & "' And Year=" & Int_Year & _
  818.         " And Period<" & Int_BPeriod
  819.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  820.         If Not RecTemp.EOF Then
  821.             Dbl_Qcyete = Dbl_Qcyete + RecTemp.Fields("Jfjehj") - RecTemp.Fields("Dfjehj")
  822.             Dbl_Qcslte = Dbl_Qcslte + RecTemp.Fields("Jfslhj") - RecTemp.Fields("Dfslhj")
  823.             Dbl_Qcwbte = Dbl_Qcwbte + RecTemp.Fields("Wbjfjehj") - RecTemp.Fields("Wbdfjehj")
  824.             
  825.             '计算相应截止查询起始会计期间累计数据
  826.             Dbl_Jejflj = Dbl_Jejflj + RecTemp.Fields("Jfjehj")
  827.             Dbl_Jedflj = Dbl_Jedflj + RecTemp.Fields("Dfjehj")
  828.             Dbl_Sljflj = Dbl_Sljflj + RecTemp.Fields("Jfslhj")
  829.             Dbl_Sldflj = Dbl_Sldflj + RecTemp.Fields("Dfslhj")
  830.             Dbl_Wbjflj = Dbl_Wbjflj + RecTemp.Fields("Wbjfjehj")
  831.             Dbl_Wbdflj = Dbl_Wbdflj + RecTemp.Fields("Wbdfjehj")
  832.         End If
  833.     End If
  834.     If (Dbl_Qcyete <> 0 Or (Bln_EndFlag And (Dbl_Qcslte <> 0 Or dnl_qcwbte <> 0))) Or Bln_QcZeroShow Then    '如果期初数据为零,且用户选择不输出则不显示此行数据
  835.         CxbbGrid.AddItem ""
  836.         Jsqte = Jsqte + 1
  837.         
  838.         '将期初数据写入网格(第1会计期间为上年结转,其余会计期间为期初余额)
  839.         If Int_BPeriod = 1 Then
  840.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "上年结转"
  841.         Else
  842.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "期初余额"
  843.         End If
  844.         
  845.         '输出余额
  846.         Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  847.     End If
  848.     '2.读取查询会计期间范围内所有符合条件明细帐数据(以年度+会计期间),并写入网格
  849.     
  850.     Bln_NotFirst = False
  851.     
  852.     '筛选所有符合条件数据
  853.     Sqlstr = "SELECT *" & _
  854.     " From Cwzz_V_AccVouchAss Where Ccode like '" & Str_Ccode & "%' And PersonCode='" & Str_FzCode & "' And Year=" & Int_Year & _
  855.     " And Period>=" & Int_BPeriod & " And Period<=" & Int_EPeriod
  856.     If Not Bln_IncluNotBook Then
  857.         Sqlstr = Sqlstr & " And BookFlag=1"
  858.     End If
  859.     Sqlstr = Sqlstr & " Order By Year,Period,Ddate,VouchID,SerialID"
  860.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  861.     With RecTemp
  862.         Do While Not .EOF
  863.             If Bln_NotFirst Then
  864.                 '当前进行会计期间发生变化则添加本月合计及本年累计
  865.                 If .Fields("Period") <> Int_DqPeriod Then
  866.                     '显示本月合计
  867.                     If Dbl_Jejfhj <> 0 Or Dbl_Jedfhj <> 0 Or (Bln_EndFlag And (Dbl_Sljfhj <> 0 Or Dbl_Sldfhj <> 0 Or Dbl_Wbjfhj <> 0 Or Dbl_Wbdfhj <> 0)) Then
  868.                         CxbbGrid.AddItem ""
  869.                         Jsqte = Jsqte + 1
  870.                         
  871.                         '输出本月合计
  872.                         Call Sub_OutPeriodSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_Sljfhj, Dbl_Sldfhj, Dbl_Wbjfhj, Dbl_Wbdfhj)
  873.                         
  874.                         '输出余额
  875.                         Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  876.                     End If
  877.                     
  878.                     '重新初始化本月合计数据
  879.                     Dbl_Jejfhj = 0
  880.                     Dbl_Jedfhj = 0
  881.                     Dbl_Sljfhj = 0
  882.                     Dbl_Sldfhj = 0
  883.                     Dbl_Wbjfhj = 0
  884.                     Dbl_Wbdfhj = 0
  885.                     
  886.                     '显示本年累计
  887.                     If Dbl_Jejflj <> 0 Or Dbl_Jedflj <> 0 Or (Bln_EndFlag And (Dbl_Sljflj <> 0 Or Dbl_Sldflj <> 0 Or Dbl_Wbjflj <> 0 Or Dbl_Wbdflj <> 0)) Then
  888.                         CxbbGrid.AddItem ""
  889.                         Jsqte = Jsqte + 1
  890.                         
  891.                         '输出本年累计
  892.                         Call Sub_OutYearSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejflj, Dbl_Jedflj, Dbl_Sljflj, Dbl_Sldflj, Dbl_Wbjflj, Dbl_Wbdflj)
  893.                         
  894.                         '输出余额
  895.                         Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  896.                     End If
  897.                 End If        '显示本月合计,本年累计完毕
  898.             End If
  899.             Bln_NotFirst = True
  900.             
  901.             '显示明细数据
  902.             CxbbGrid.AddItem ""
  903.             Jsqte = Jsqte + 1
  904.             
  905.             '未记帐明细分录变色显示
  906.             If .Fields("BookFlag") = 0 Then
  907.                 CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(0).BackColor
  908.             End If
  909.             
  910.             '修改当前会计期间
  911.             Int_DqPeriod = .Fields("Period")
  912.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("VouchId")              '凭证ID
  913.             If IsDate(.Fields("Ddate")) Then
  914.                 CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = .Fields("Ddate")                    '日期
  915.             End If
  916.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("VouchClassCode") & "") + "-" + Mid(Trim(Str(10000 + .Fields("VouchNo"))), 2, 4) '凭证字号
  917.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Digest") & "")           '摘要
  918.             
  919.             '客户
  920.             If Trim(.Fields("CusName") & "") <> "" Then
  921.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("CusName") & "")
  922.             End If
  923.             '项目
  924.             If Trim(.Fields("ItemName") & "") <> "" Then
  925.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("ItemName") & "")
  926.             End If
  927.             
  928.             If .Fields("Jfje") <> 0 Then                                                                       '借方金额
  929.                 CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = .Fields("Jfje")
  930.                 CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = .Fields("Jfje")
  931.             End If
  932.             If .Fields("Dfje") <> 0 Then                                                                       '贷方金额
  933.                 CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = .Fields("Dfje")
  934.                 CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = .Fields("Dfje")
  935.             End If
  936.             
  937.             '只有末级科目才显示数量和外币,数量不为零则计算单价
  938.             If Bln_EndFlag Then
  939.                 If .Fields("Jfsl") <> 0 Then                                                                    '借方数量
  940.                     CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = .Fields("Jfsl")
  941.                     If .Fields("Jfje") <> 0 Then
  942.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Format(.Fields("Jfje") / .Fields("Jfsl"), "##." + String(Xtdjxsws, "0"))
  943.                     Else
  944.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Format(.Fields("Dfje") / .Fields("Jfsl"), "##." + String(Xtdjxsws, "0"))
  945.                     End If
  946.                 End If
  947.                 If .Fields("Dfsl") <> 0 Then                                                                    '贷方数量
  948.                     CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = .Fields("Dfsl")
  949.                     If .Fields("Jfje") <> 0 Then
  950.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Format(.Fields("Jfje") / .Fields("Dfsl"), "##." + String(Xtdjxsws, "0"))
  951.                     Else
  952.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Format(.Fields("Dfje") / .Fields("Dfsl"), "##." + String(Xtdjxsws, "0"))
  953.                     End If
  954.                 End If
  955.             End If
  956.             If Bln_EndFlag And Bln_ForeignFlag Then
  957.                 If .Fields("Wbjfje") <> 0 Then                                                                  '借方外币
  958.                     CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = .Fields("Wbjfje")
  959.                 End If
  960.                 If .Fields("Wbdfje") <> 0 Then                                                                  '贷方外币
  961.                     CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = .Fields("Wbdfje")
  962.                 End If
  963.                 If .Fields("AccRate") <> 0 Then                                                                 '记帐汇率
  964.                     CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Format(.Fields("AccRate"), "##." + String(Int_Wbhlxsws, "0"))
  965.                 End If
  966.             End If
  967.             '累加本月合计,本年累计数据
  968.             Dbl_Jejfhj = Dbl_Jejfhj + .Fields("Jfje")
  969.             Dbl_Jedfhj = Dbl_Jedfhj + .Fields("Dfje")
  970.             Dbl_Sljfhj = Dbl_Sljfhj + .Fields("Jfsl")
  971.             Dbl_Sldfhj = Dbl_Sldfhj + .Fields("Dfsl")
  972.             Dbl_Wbjfhj = Dbl_Wbjfhj + .Fields("Wbjfje")
  973.             Dbl_Wbdfhj = Dbl_Wbdfhj + .Fields("Wbdfje")
  974.             
  975.             Dbl_Jejflj = Dbl_Jejflj + .Fields("Jfje")
  976.             Dbl_Jedflj = Dbl_Jedflj + .Fields("Dfje")
  977.             Dbl_Sljflj = Dbl_Sljflj + .Fields("Jfsl")
  978.             Dbl_Sldflj = Dbl_Sldflj + .Fields("Dfsl")
  979.             Dbl_Wbjflj = Dbl_Wbjflj + .Fields("Wbjfje")
  980.             Dbl_Wbdflj = Dbl_Wbdflj + .Fields("Wbdfje")
  981.             '3.计算余额
  982.             Dbl_Qcyete = Dbl_Qcyete + .Fields("Jfje") - .Fields("Dfje")
  983.             Dbl_Qcslte = Dbl_Qcslte + .Fields("Jfsl") - .Fields("Dfsl")
  984.             Dbl_Qcwbte = Dbl_Qcwbte + .Fields("Wbjfje") - .Fields("Wbdfje")
  985.             
  986.             '输出余额
  987.             Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  988.             .MoveNext
  989.         Loop
  990.         '添加本月合计及本年累计
  991.         If Bln_NotFirst Then
  992.             If Dbl_Jejfhj <> 0 Or Dbl_Jedfhj <> 0 Or (Bln_EndFlag And (Dbl_Sljfhj <> 0 Or Dbl_Sldfhj <> 0 Or Dbl_Wbjfhj <> 0 Or Dbl_Wbdfhj <> 0)) Then
  993.                 CxbbGrid.AddItem ""
  994.                 Jsqte = Jsqte + 1
  995.                 
  996.                 '输出本月合计
  997.                 Call Sub_OutPeriodSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_Sljfhj, Dbl_Sldfhj, Dbl_Wbjfhj, Dbl_Wbdfhj)
  998.                 
  999.                 '输出余额
  1000.                 Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1001.             End If
  1002.             
  1003.             '显示本年累计
  1004.             If Dbl_Jejflj <> 0 Or Dbl_Jedflj <> 0 Or (Bln_EndFlag And (Dbl_Sljflj <> 0 Or Dbl_Sldflj <> 0 Or Dbl_Wbjflj <> 0 Or Dbl_Wbdflj <> 0)) Then
  1005.                 CxbbGrid.AddItem ""
  1006.                 Jsqte = Jsqte + 1
  1007.                 
  1008.                 '输出本年累计
  1009.                 Call Sub_OutYearSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejflj, Dbl_Jedflj, Dbl_Sljflj, Dbl_Sldflj, Dbl_Wbjflj, Dbl_Wbdflj)
  1010.                 
  1011.                 '输出余额
  1012.                 Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1013.             End If
  1014.             
  1015.             '如果会计期间为第12会计期间则输出结转下年
  1016.             If Int_DqPeriod = 12 Then
  1017.                 CxbbGrid.AddItem ""
  1018.                 Jsqte = Jsqte + 1
  1019.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "结转下年"
  1020.                 '输出余额
  1021.                 Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1022.             End If
  1023.         End If
  1024.     End With
  1025.     '重置网格行高
  1026.     For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
  1027.         CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1028.     Next Jsqte
  1029. End Sub
  1031. Private Sub Combo_AccFormat_Click()                    '用户选择不同帐页格式
  1032.     Dim Int_Coljsq As Integer         '网格列临时计数器
  1033.     
  1034.     '为了加快显示速度
  1035.     CxbbGrid.Redraw = False
  1036.     For Int_Coljsq = Qslz To CxbbGrid.Cols - 1
  1037.         CxbbGrid.ColHidden(Int_Coljsq) = True
  1038.     Next Int_Coljsq
  1039.     Select Case Combo_AccFormat
  1040.     Case "金额式"
  1041.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
  1042.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
  1043.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
  1044.         CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '借方.借方
  1045.         CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '贷方.贷方
  1046.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
  1047.         CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False      '余额.余额
  1048.     Case "外币金额式"
  1049.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
  1050.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
  1051.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
  1052.         CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '汇率
  1053.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.外币
  1054.         CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '借方.金额
  1055.         CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.外币
  1056.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '贷方.金额
  1057.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
  1058.         CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.外币
  1059.         CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '余额.汇率
  1060.         CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
  1061.     Case "数量金额式"
  1062.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
  1063.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
  1064.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
  1065.         CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '单价
  1066.         CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.数量
  1067.         CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '借方.金额
  1068.         CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.数量
  1069.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '贷方.金额
  1070.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
  1071.         CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
  1072.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.单价
  1073.         CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
  1074.     Case "数量外币式"
  1075.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
  1076.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
  1077.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
  1078.         CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '单价
  1079.         CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '汇率
  1080.         CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.数量
  1081.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.外币
  1082.         CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '借方.金额
  1083.         CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.数量
  1084.         CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.外币
  1085.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '贷方.金额
  1086.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
  1087.         CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
  1088.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.单价
  1089.         CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.外币
  1090.         CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '余额.汇率
  1091.         CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
  1092.     End Select
  1093.     CxbbGrid.Redraw = True
  1094. End Sub
  1096. Private Sub Sub_OutBalance(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#)          '输出余额
  1097.     If Dbl_Qcyete = 0 Then
  1098.         CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "平"          '期初方向
  1099.         If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  1100.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
  1101.         End If
  1102.         If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  1103.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcwbte
  1104.         End If
  1105.     Else
  1106.         If Dbl_Qcyete > 0 Then
  1107.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "借"
  1108.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Dbl_Qcyete
  1109.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Dbl_Qcyete
  1110.             If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  1111.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
  1112.             End If
  1113.             If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  1114.                 CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcwbte
  1115.             End If
  1116.         Else
  1117.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "贷"
  1118.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = -Dbl_Qcyete
  1119.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = -Dbl_Qcyete
  1120.             If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  1121.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = -Dbl_Qcslte
  1122.             End If
  1123.             If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  1124.                 CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = -Dbl_Qcwbte
  1125.             End If
  1126.         End If
  1127.         
  1128.         '输出单价
  1129.         If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  1130.             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Format(Dbl_Qcyete / Dbl_Qcslte, "##." + String(Xtdjxsws, "0"))
  1131.         End If
  1132.         '输出外币汇率
  1133.         If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  1134.             If Bln_ConVertFlag Then      '(外币/汇率=本位币)
  1135.                 CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format(Dbl_Qcwbte / Dbl_Qcyete, "##." + String(Int_Wbhlxsws, "0"))
  1136.             Else
  1137.                 CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format(Dbl_Qcyete / Dbl_Qcwbte, "##." + String(Int_Wbhlxsws, "0"))
  1138.             End If
  1139.         End If
  1140.     End If
  1141. End Sub
  1143. 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#)  '输出本月合计
  1144.     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1145.     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本月合计"
  1146.     If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
  1147.         CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejfhj
  1148.         CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj
  1149.     End If
  1150.     If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
  1151.         CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj
  1152.         CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedfhj
  1153.     End If
  1154.     
  1155.     '只有末级科目才显示数量和外币
  1156.     If Bln_EndFlag Then
  1157.         If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
  1158.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljfhj
  1159.         End If
  1160.         If Dbl_Sldfhj <> 0 Then                                                     '本月贷方数量合计
  1161.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldfhj
  1162.         End If
  1163.     End If
  1164.     
  1165.     If Bln_EndFlag And Bln_ForeignFlag Then
  1166.         If Dbl_Wbjfhj <> 0 Then                                                     '本月借方外币合计
  1167.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjfhj
  1168.         End If
  1169.         If Dbl_Wbdfhj <> 0 Then                                                     '本月贷方外币合计
  1170.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdfhj
  1171.         End If
  1172.     End If
  1173. End Sub
  1175. 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#)  '输出本年累计
  1176.     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1177.     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本年累计"
  1178.     If Dbl_Jejflj <> 0 Then                                                        '本年借方金额累计
  1179.         CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejflj
  1180.         CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejflj
  1181.     End If
  1182.     If Dbl_Jedflj <> 0 Then                                                        '本年贷方金额累计
  1183.         CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedflj
  1184.         CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedflj
  1185.     End If
  1186.     
  1187.     '只有末级科目才显示数量和外币
  1188.     If Bln_EndFlag Then
  1189.         If Dbl_Sljflj <> 0 Then                                                     '本年借方数量累计
  1190.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljflj
  1191.         End If
  1192.         If Dbl_Sldflj <> 0 Then                                                     '本年贷方数量累计
  1193.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldflj
  1194.         End If
  1195.     End If
  1196.     If Bln_EndFlag And Bln_ForeignFlag Then
  1197.         If Dbl_Wbjflj <> 0 Then                                                     '本年借方外币累计
  1198.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjflj
  1199.         End If
  1200.         If Dbl_Wbdflj <> 0 Then                                                     '本年贷方外币累计
  1201.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdflj
  1202.         End If
  1203.     End If
  1204. End Sub
  1206. Private Sub CxbbGrid_DblClick()          '用户双击网格调入相应凭证
  1207.     Dim RecTemp As New ADODB.Recordset
  1208.     
  1209.     With CxbbGrid
  1210.         '非数据行退出
  1211.         If CxbbGrid.Row < CxbbGrid.FixedRows Then
  1212.             Exit Sub
  1213.         End If
  1214.         If Trim(.TextMatrix(.Row, 0)) = "" Then
  1215.             Exit Sub
  1216.         End If
  1217.     End With
  1218.     Sqlstr = "SELECT VouchID From Cwzz_AccVouchMain" & _
  1219.     " Where VouchID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1220.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1221.     With RecTemp
  1222.         If .EOF Then
  1223.             Tsxx = "此凭证已被其他用户删除!"
  1224.             Call Xtxxts(Tsxx, 0, 4)
  1225.             Exit Sub
  1226.         Else
  1227.             With PZ_JzpzclFrm
  1228.                 '填充查询凭证标识
  1229.                 .Lab_VouchId = Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1230.                 
  1231.                 '设置凭证处理为列表查询状态
  1232.                 .Lab_Pzclzt.Caption = "4"
  1233.                 .Show 1
  1234.             End With
  1235.         End If
  1236.     End With
  1237. End Sub
  1239. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1240.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1241.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1242.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1243.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1244.     ReDim Bbxbt(1 To Bbxbtgs)
  1245.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1246.     If Bbbwhgs <> 0 Then
  1247.         ReDim Bbbwh(1 To Bbbwhgs)
  1248.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1249.     End If
  1250.     Bbzbt = ReportTitle
  1251.     'Bbxbt(1) = Space(2) + "科目名称：" + Me.Lab_Ccode.Caption
  1252.     Bbxbt(1) = "会计期间:" + Lab_TitleText(0) + Space(5) + "科目名称：" + Me.Lab_Ccode.Caption + Space(5) + "姓名：" + Me.Imgebo_FzCode.Text
  1253.     bbxbtzzxs(1) = 1                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1254.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1255.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1256.     If Not bbylte Then
  1257.         Unload DY_Tybbyldy
  1258.     End If
  1259. End Sub
  1261. Private Sub Sub_Lxdy()                                 '帐页连续打印
  1262.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1263.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1264.     Dim Jsqte As Long
  1265.     Dim Lng_CurrentIndex As Long
  1266.     Dim YAnswer As Integer
  1267.     '用户确认是否开始连续打印帐页
  1268.     Tsxx = "请确认是否开始连续打印帐页？"
  1269.     YAnswer = Xtxxts(Tsxx, 2, 2)
  1270.     If YAnswer <> 1 Then
  1271.         Exit Sub
  1272.     End If
  1273.     '初始化连续打印状态
  1274.     Cmd_CancelPrint.Visible = True
  1275.     Cmd_CancelPrint.SetFocus
  1276.     Cmd_CancelPrint.Refresh
  1277.     Bln_CancelPrint = False
  1278.     Bln_Printing = True
  1279.     '循环输出打印作业
  1280.     
  1281.     If Imgebo_FzCode.ComboItems.count = 0 Then GoTo Zero_Handle
  1282.     
  1283.     For Jsqte = 1 To Imgebo_FzCode.ComboItems.count
  1284.         If Imgebo_FzCode.Text = Imgebo_FzCode.ComboItems.Item(Jsqte) Then
  1285.             Lng_CurrentIndex = Jsqte
  1286.         End If
  1287.     Next Jsqte
  1288.     For Jsqte = Lng_CurrentIndex To Imgebo_FzCode.ComboItems.count
  1289.         Imgebo_FzCode.Text = Imgebo_FzCode.ComboItems.Item(Jsqte)
  1290.         Imgebo_FzCode.ComboItems.Item(Jsqte).Selected = True
  1291.         Imgebo_FzCode.Refresh
  1292.         Call Imgebo_FzCode_Click
  1293.         Bbxbtgs = 1                                          '报表小标题行数
  1294.         Bbbwhgs = 0                                          '报表表尾行数
  1295.         ReDim Bbxbt(1 To Bbxbtgs)
  1296.         ReDim bbxbtzzxs(1 To Bbxbtgs)
  1297.         If Bbbwhgs <> 0 Then
  1298.             ReDim Bbbwh(1 To Bbbwhgs)
  1299.             ReDim Bbbwhzzxs(I To Bbbwhgs)
  1300.         End If
  1301.         Bbzbt = ReportTitle
  1302.         Bbxbt(1) = "会计期间：" + Lab_TitleText(0) + Space(5) + "科目名称：" + Me.Lab_Ccode.Caption + Space(5) + "往来个人：" + Me.Imgebo_FzCode.Text
  1303.         bbxbtzzxs(1) = 1                                      '报表行组织形式（0－居左 1－居中 2－居右）
  1304.         Call Scyxsjb(CxbbGrid)                                '生成报表数据
  1305.         Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, False, True)
  1306.         Unload DY_Tybbyldy
  1307.         DoEvents
  1308.         If Bln_CancelPrint Then
  1309.             Bln_Printing = False
  1310.             Exit Sub
  1311.         End If
  1312.     Next Jsqte
  1313.     
  1314. Zero_Handle:
  1315.     Bln_Printing = False
  1316.     Cmd_CancelPrint.Visible = False
  1317. End Sub
  1319. Private Sub Cmd_CancelPrint_Click()                    '取消帐页连续打印
  1320.     Bln_CancelPrint = True
  1321.     Cmd_CancelPrint.Visible = False
  1322. End Sub