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

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

企业管理

开发平台：

Visual Basic

i-：源码内容
  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 Zbfx_List 
  5.    Caption         =   "明细帐"
  6.    ClientHeight    =   6975
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11565
  10.    HelpContextID   =   130501
  11.    Icon            =   "帐簿分析_明细帐.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   6975
  16.    ScaleWidth      =   11565
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.ImageCombo Com_Mnumber 
  19.       Height          =   315
  20.       Left            =   1140
  21.       TabIndex        =   8
  22.       Top             =   1380
  23.       Width           =   3645
  24.       _ExtentX        =   6429
  25.       _ExtentY        =   556
  26.       _Version        =   393216
  27.       ForeColor       =   -2147483640
  28.       BackColor       =   -2147483643
  29.    End
  30.    Begin VB.Timer Timer1 
  31.       Enabled         =   0   'False
  32.       Interval        =   1
  33.       Left            =   7620
  34.       Top             =   90
  35.    End
  36.    Begin MSComctlLib.Toolbar GsToolbar 
  37.       Height          =   525
  38.       Left            =   9330
  39.       TabIndex        =   2
  40.       Top             =   30
  41.       Width           =   2475
  42.       _ExtentX        =   4366
  43.       _ExtentY        =   926
  44.       ButtonWidth     =   1455
  45.       ButtonHeight    =   926
  46.       Appearance      =   1
  47.       Style           =   1
  48.       ImageList       =   "ImageList2"
  49.       _Version        =   393216
  50.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  51.          NumButtons      =   3
  52.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  53.             Caption         =   "保存格式"
  54.             Key             =   "bcgs"
  55.             ImageKey        =   "bcgs"
  56.          EndProperty
  57.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  58.             Caption         =   "默认列宽"
  59.             Key             =   "hfmrgs"
  60.             ImageKey        =   "mrlk"
  61.          EndProperty
  62.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  63.             Caption         =   "显示项目"
  64.             Key             =   "szxsxm"
  65.             ImageKey        =   "xsxm"
  66.          EndProperty
  67.       EndProperty
  68.    End
  69.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  70.       Height          =   7155
  71.       Left            =   0
  72.       TabIndex        =   3
  73.       Top             =   1860
  74.       Width           =   11775
  75.       _cx             =   5080
  76.       _cy             =   5080
  77.       Appearance      =   1
  78.       BorderStyle     =   1
  79.       Enabled         =   -1  'True
  80.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  81.          Name            =   "宋体"
  82.          Size            =   9
  83.          Charset         =   134
  84.          Weight          =   400
  85.          Underline       =   0   'False
  86.          Italic          =   0   'False
  87.          Strikethrough   =   0   'False
  88.       EndProperty
  89.       MousePointer    =   0
  90.       BackColor       =   16777215
  91.       ForeColor       =   -2147483640
  92.       BackColorFixed  =   13826538
  93.       ForeColorFixed  =   -2147483630
  94.       BackColorSel    =   -2147483635
  95.       ForeColorSel    =   -2147483634
  96.       BackColorBkg    =   -2147483636
  97.       BackColorAlternate=   16777215
  98.       GridColor       =   -2147483633
  99.       GridColorFixed  =   -2147483632
  100.       TreeColor       =   -2147483632
  101.       FloodColor      =   192
  102.       SheetBorder     =   -2147483642
  103.       FocusRect       =   1
  104.       HighLight       =   1
  105.       AllowSelection  =   -1  'True
  106.       AllowBigSelection=   -1  'True
  107.       AllowUserResizing=   0
  108.       SelectionMode   =   0
  109.       GridLines       =   1
  110.       GridLinesFixed  =   2
  111.       GridLineWidth   =   1
  112.       Rows            =   50
  113.       Cols            =   10
  114.       FixedRows       =   1
  115.       FixedCols       =   1
  116.       RowHeightMin    =   0
  117.       RowHeightMax    =   0
  118.       ColWidthMin     =   0
  119.       ColWidthMax     =   0
  120.       ExtendLastCol   =   0   'False
  121.       FormatString    =   ""
  122.       ScrollTrack     =   0   'False
  123.       ScrollBars      =   3
  124.       ScrollTips      =   0   'False
  125.       MergeCells      =   0
  126.       MergeCompare    =   0
  127.       AutoResize      =   -1  'True
  128.       AutoSizeMode    =   0
  129.       AutoSearch      =   0
  130.       AutoSearchDelay =   2
  131.       MultiTotals     =   -1  'True
  132.       SubtotalPosition=   1
  133.       OutlineBar      =   0
  134.       OutlineCol      =   0
  135.       Ellipsis        =   0
  136.       ExplorerBar     =   0
  137.       PicturesOver    =   0   'False
  138.       FillStyle       =   0
  139.       RightToLeft     =   0   'False
  140.       PictureType     =   0
  141.       TabBehavior     =   0
  142.       OwnerDraw       =   0
  143.       Editable        =   0
  144.       ShowComboButton =   1
  145.       WordWrap        =   0   'False
  146.       TextStyle       =   0
  147.       TextStyleFixed  =   0
  148.       OleDragMode     =   0
  149.       OleDropMode     =   0
  150.       DataMode        =   0
  151.       VirtualData     =   -1  'True
  152.       DataMember      =   ""
  153.       ComboSearch     =   3
  154.       AutoSizeMouse   =   -1  'True
  155.       FrozenRows      =   0
  156.       FrozenCols      =   0
  157.       AllowUserFreezing=   0
  158.       BackColorFrozen =   0
  159.       ForeColorFrozen =   0
  160.       WallPaperAlignment=   9
  161.       AccessibleName  =   ""
  162.       AccessibleDescription=   ""
  163.       AccessibleValue =   ""
  164.       AccessibleRole  =   24
  165.       Begin MSComctlLib.ImageList ImageList2 
  166.          Left            =   0
  167.          Top             =   0
  168.          _ExtentX        =   1005
  169.          _ExtentY        =   1005
  170.          BackColor       =   -2147483643
  171.          ImageWidth      =   16
  172.          ImageHeight     =   16
  173.          MaskColor       =   12632256
  174.          _Version        =   393216
  175.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  176.             NumListImages   =   40
  177.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  178.                Picture         =   "帐簿分析_明细帐.frx":1042
  179.                Key             =   "sz"
  180.             EndProperty
  181.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  182.                Picture         =   "帐簿分析_明细帐.frx":13DC
  183.                Key             =   "dy"
  184.             EndProperty
  185.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  186.                Picture         =   "帐簿分析_明细帐.frx":1776
  187.                Key             =   "yl"
  188.             EndProperty
  189.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  190.                Picture         =   "帐簿分析_明细帐.frx":1B10
  191.                Key             =   "xg"
  192.             EndProperty
  193.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  194.                Picture         =   "帐簿分析_明细帐.frx":1EAA
  195.                Key             =   "zh"
  196.             EndProperty
  197.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  198.                Picture         =   "帐簿分析_明细帐.frx":2244
  199.                Key             =   "sh"
  200.             EndProperty
  201.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  202.                Picture         =   "帐簿分析_明细帐.frx":25DE
  203.                Key             =   "bc"
  204.             EndProperty
  205.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  206.                Picture         =   "帐簿分析_明细帐.frx":2978
  207.                Key             =   "fq"
  208.             EndProperty
  209.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  210.                Picture         =   "帐簿分析_明细帐.frx":2D12
  211.                Key             =   "bz"
  212.             EndProperty
  213.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  214.                Picture         =   "帐簿分析_明细帐.frx":30AC
  215.                Key             =   "tc"
  216.             EndProperty
  217.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  218.                Picture         =   "帐簿分析_明细帐.frx":3446
  219.                Key             =   "bcgs"
  220.             EndProperty
  221.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  222.                Picture         =   "帐簿分析_明细帐.frx":37E0
  223.                Key             =   "mrlk"
  224.             EndProperty
  225.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  226.                Picture         =   "帐簿分析_明细帐.frx":3B7A
  227.                Key             =   "xsxm"
  228.             EndProperty
  229.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  230.                Picture         =   "帐簿分析_明细帐.frx":3F14
  231.                Key             =   "first"
  232.             EndProperty
  233.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  234.                Picture         =   "帐簿分析_明细帐.frx":42AE
  235.                Key             =   "prev"
  236.             EndProperty
  237.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  238.                Picture         =   "帐簿分析_明细帐.frx":4648
  239.                Key             =   "next"
  240.             EndProperty
  241.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  242.                Picture         =   "帐簿分析_明细帐.frx":49E2
  243.                Key             =   "last"
  244.             EndProperty
  245.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  246.                Picture         =   "帐簿分析_明细帐.frx":4D7C
  247.                Key             =   "xx"
  248.             EndProperty
  249.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  250.                Picture         =   "帐簿分析_明细帐.frx":5116
  251.                Key             =   "define"
  252.             EndProperty
  253.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  254.                Picture         =   "帐簿分析_明细帐.frx":54B0
  255.                Key             =   "exec"
  256.             EndProperty
  257.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  258.                Picture         =   "帐簿分析_明细帐.frx":584A
  259.                Key             =   "xz"
  260.             EndProperty
  261.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  262.                Picture         =   "帐簿分析_明细帐.frx":5BE4
  263.                Key             =   "sc"
  264.             EndProperty
  265.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  266.                Picture         =   "帐簿分析_明细帐.frx":5F7E
  267.                Key             =   "sx"
  268.             EndProperty
  269.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  270.                Picture         =   "帐簿分析_明细帐.frx":6318
  271.                Key             =   "cx"
  272.             EndProperty
  273.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  274.                Picture         =   "帐簿分析_明细帐.frx":66B2
  275.                Key             =   "zd"
  276.             EndProperty
  277.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  278.                Picture         =   "帐簿分析_明细帐.frx":6A4C
  279.                Key             =   "dz"
  280.             EndProperty
  281.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  282.                Picture         =   "帐簿分析_明细帐.frx":6DE6
  283.                Key             =   "ph"
  284.             EndProperty
  285.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  286.                Picture         =   "帐簿分析_明细帐.frx":7180
  287.                Key             =   "fz"
  288.             EndProperty
  289.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  290.                Picture         =   "帐簿分析_明细帐.frx":751A
  291.                Key             =   "dw"
  292.             EndProperty
  293.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  294.                Picture         =   "帐簿分析_明细帐.frx":78B4
  295.                Key             =   "hf"
  296.             EndProperty
  297.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  298.                Picture         =   "帐簿分析_明细帐.frx":7C4E
  299.                Key             =   "pz"
  300.             EndProperty
  301.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  302.                Picture         =   "帐簿分析_明细帐.frx":7FE8
  303.                Key             =   "check"
  304.             EndProperty
  305.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  306.                Picture         =   "帐簿分析_明细帐.frx":8382
  307.                Key             =   "qs"
  308.             EndProperty
  309.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  310.                Picture         =   "帐簿分析_明细帐.frx":871C
  311.                Key             =   "fullcheck"
  312.             EndProperty
  313.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  314.                Picture         =   "帐簿分析_明细帐.frx":8AB6
  315.                Key             =   "qq"
  316.             EndProperty
  317.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  318.                Picture         =   "帐簿分析_明细帐.frx":8E50
  319.                Key             =   "bcw"
  320.             EndProperty
  321.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  322.                Picture         =   "帐簿分析_明细帐.frx":91EA
  323.                Key             =   "ye"
  324.             EndProperty
  325.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  326.                Picture         =   "帐簿分析_明细帐.frx":9584
  327.                Key             =   ""
  328.             EndProperty
  329.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  330.                Picture         =   "帐簿分析_明细帐.frx":991E
  331.                Key             =   "frist"
  332.             EndProperty
  333.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  334.                Picture         =   "帐簿分析_明细帐.frx":9CB8
  335.                Key             =   "dj"
  336.             EndProperty
  337.          EndProperty
  338.       End
  339.    End
  340.    Begin MSComctlLib.Toolbar SzToolbar 
  341.       Align           =   1  'Align Top
  342.       Height          =   555
  343.       Left            =   0
  344.       TabIndex        =   4
  345.       Top             =   0
  346.       Width           =   11565
  347.       _ExtentX        =   20399
  348.       _ExtentY        =   979
  349.       ButtonWidth     =   820
  350.       ButtonHeight    =   926
  351.       AllowCustomize  =   0   'False
  352.       Appearance      =   1
  353.       Style           =   1
  354.       ImageList       =   "ImageList1"
  355.       _Version        =   393216
  356.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  357.          NumButtons      =   16
  358.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  359.             Caption         =   "设置"
  360.             Key             =   "ymsz"
  361.             ImageKey        =   "sz"
  362.          EndProperty
  363.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  364.             Caption         =   "打印"
  365.             Key             =   "dy"
  366.             ImageKey        =   "dy"
  367.          EndProperty
  368.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  369.             Caption         =   "预览"
  370.             Key             =   "yl"
  371.             ImageKey        =   "yl"
  372.          EndProperty
  373.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  374.             Style           =   3
  375.          EndProperty
  376.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  377.             Caption         =   "查询"
  378.             Key             =   "cx"
  379.             ImageKey        =   "cx"
  380.          EndProperty
  381.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  382.             Style           =   4
  383.          EndProperty
  384.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  385.             Caption         =   "单据"
  386.             Key             =   "Bill"
  387.             ImageKey        =   "pz"
  388.          EndProperty
  389.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  390.             Caption         =   "凭证"
  391.             Key             =   "pz"
  392.             ImageKey        =   "dj"
  393.          EndProperty
  394.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  395.             Style           =   4
  396.          EndProperty
  397.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  398.             Caption         =   "明细"
  399.             Key             =   "mx"
  400.             Object.ToolTipText     =   "显示入库、出库、结存"
  401.             ImageKey        =   "mx"
  402.          EndProperty
  403.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  404.             Caption         =   "汇总"
  405.             Key             =   "hz"
  406.             Object.ToolTipText     =   "显示差异汇总"
  407.             ImageKey        =   "hz"
  408.          EndProperty
  409.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  410.             Caption         =   "差异"
  411.             Key             =   "cy"
  412.             Object.ToolTipText     =   "显示差异"
  413.             ImageKey        =   "cy"
  414.          EndProperty
  415.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  416.             Caption         =   "综合"
  417.             Key             =   "zh"
  418.             Object.ToolTipText     =   "显示入库、出库、结存、差异"
  419.             ImageKey        =   "zhh"
  420.          EndProperty
  421.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  422.             Key             =   "fg"
  423.             Style           =   4
  424.          EndProperty
  425.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  426.             Caption         =   "帮助"
  427.             Key             =   "bz"
  428.             ImageKey        =   "bz"
  429.          EndProperty
  430.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  431.             Caption         =   "退出"
  432.             Key             =   "fh"
  433.             ImageKey        =   "tc"
  434.          EndProperty
  435.       EndProperty
  436.       BorderStyle     =   1
  437.       Begin MSComctlLib.ImageList ImageList1 
  438.          Left            =   6990
  439.          Top             =   30
  440.          _ExtentX        =   1005
  441.          _ExtentY        =   1005
  442.          BackColor       =   -2147483643
  443.          ImageWidth      =   16
  444.          ImageHeight     =   16
  445.          MaskColor       =   12632256
  446.          _Version        =   393216
  447.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  448.             NumListImages   =   38
  449.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.                Picture         =   "帐簿分析_明细帐.frx":A052
  451.                Key             =   "sz"
  452.             EndProperty
  453.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.                Picture         =   "帐簿分析_明细帐.frx":A3EC
  455.                Key             =   "dy"
  456.             EndProperty
  457.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.                Picture         =   "帐簿分析_明细帐.frx":A786
  459.                Key             =   "yl"
  460.             EndProperty
  461.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.                Picture         =   "帐簿分析_明细帐.frx":AB20
  463.                Key             =   "xg"
  464.             EndProperty
  465.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.                Picture         =   "帐簿分析_明细帐.frx":AEBA
  467.                Key             =   "zh"
  468.             EndProperty
  469.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.                Picture         =   "帐簿分析_明细帐.frx":B254
  471.                Key             =   "sh"
  472.             EndProperty
  473.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.                Picture         =   "帐簿分析_明细帐.frx":B5EE
  475.                Key             =   "bc"
  476.             EndProperty
  477.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.                Picture         =   "帐簿分析_明细帐.frx":B988
  479.                Key             =   "fq"
  480.             EndProperty
  481.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.                Picture         =   "帐簿分析_明细帐.frx":BD22
  483.                Key             =   "bz"
  484.             EndProperty
  485.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  486.                Picture         =   "帐簿分析_明细帐.frx":C0BC
  487.                Key             =   "tc"
  488.             EndProperty
  489.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  490.                Picture         =   "帐簿分析_明细帐.frx":C456
  491.                Key             =   "bcgs"
  492.             EndProperty
  493.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  494.                Picture         =   "帐簿分析_明细帐.frx":C7F0
  495.                Key             =   "mrlk"
  496.             EndProperty
  497.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  498.                Picture         =   "帐簿分析_明细帐.frx":CB8A
  499.                Key             =   "xsxm"
  500.             EndProperty
  501.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  502.                Picture         =   "帐簿分析_明细帐.frx":CF24
  503.                Key             =   "first"
  504.             EndProperty
  505.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  506.                Picture         =   "帐簿分析_明细帐.frx":D2BE
  507.                Key             =   "prev"
  508.             EndProperty
  509.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  510.                Picture         =   "帐簿分析_明细帐.frx":D658
  511.                Key             =   "next"
  512.             EndProperty
  513.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  514.                Picture         =   "帐簿分析_明细帐.frx":D9F2
  515.                Key             =   "last"
  516.             EndProperty
  517.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  518.                Picture         =   "帐簿分析_明细帐.frx":DD8C
  519.                Key             =   "xx"
  520.             EndProperty
  521.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  522.                Picture         =   "帐簿分析_明细帐.frx":E126
  523.                Key             =   "define"
  524.             EndProperty
  525.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  526.                Picture         =   "帐簿分析_明细帐.frx":E4C0
  527.                Key             =   "exec"
  528.             EndProperty
  529.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  530.                Picture         =   "帐簿分析_明细帐.frx":E85A
  531.                Key             =   "xz"
  532.             EndProperty
  533.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  534.                Picture         =   "帐簿分析_明细帐.frx":EBF4
  535.                Key             =   "sc"
  536.             EndProperty
  537.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  538.                Picture         =   "帐簿分析_明细帐.frx":EF8E
  539.                Key             =   "sx"
  540.             EndProperty
  541.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  542.                Picture         =   "帐簿分析_明细帐.frx":F328
  543.                Key             =   "cx"
  544.             EndProperty
  545.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  546.                Picture         =   "帐簿分析_明细帐.frx":F6C2
  547.                Key             =   "zd"
  548.             EndProperty
  549.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  550.                Picture         =   "帐簿分析_明细帐.frx":FA5C
  551.                Key             =   "dz"
  552.             EndProperty
  553.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  554.                Picture         =   "帐簿分析_明细帐.frx":FDF6
  555.                Key             =   "ph"
  556.             EndProperty
  557.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  558.                Picture         =   "帐簿分析_明细帐.frx":10190
  559.                Key             =   "fz"
  560.             EndProperty
  561.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  562.                Picture         =   "帐簿分析_明细帐.frx":1052A
  563.                Key             =   "dw"
  564.             EndProperty
  565.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  566.                Picture         =   "帐簿分析_明细帐.frx":108C4
  567.                Key             =   "hf"
  568.             EndProperty
  569.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  570.                Picture         =   "帐簿分析_明细帐.frx":10C5E
  571.                Key             =   "pz"
  572.             EndProperty
  573.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  574.                Picture         =   "帐簿分析_明细帐.frx":10FF8
  575.                Key             =   "check"
  576.             EndProperty
  577.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  578.                Picture         =   "帐簿分析_明细帐.frx":11392
  579.                Key             =   "mx"
  580.             EndProperty
  581.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  582.                Picture         =   "帐簿分析_明细帐.frx":1172C
  583.                Key             =   "jz"
  584.             EndProperty
  585.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  586.                Picture         =   "帐簿分析_明细帐.frx":11AC6
  587.                Key             =   "hz"
  588.             EndProperty
  589.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  590.                Picture         =   "帐簿分析_明细帐.frx":11E60
  591.                Key             =   "dj"
  592.             EndProperty
  593.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  594.                Picture         =   "帐簿分析_明细帐.frx":121FA
  595.                Key             =   "cy"
  596.             EndProperty
  597.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  598.                Picture         =   "帐簿分析_明细帐.frx":12594
  599.                Key             =   "zhh"
  600.             EndProperty
  601.          EndProperty
  602.       End
  603.    End
  604.    Begin VB.PictureBox Pic_Title 
  605.       BackColor       =   &H00FFFFFF&
  606.       Height          =   1245
  607.       Left            =   0
  608.       Picture         =   "帐簿分析_明细帐.frx":1292E
  609.       ScaleHeight     =   1185
  610.       ScaleWidth      =   11715
  611.       TabIndex        =   0
  612.       Top             =   570
  613.       Width           =   11775
  614.       Begin VB.Label Lbl_TitleMess 
  615.          AutoSize        =   -1  'True
  616.          BackStyle       =   0  'Transparent
  617.          Caption         =   "仓库:"
  618.          Height          =   180
  619.          Index           =   2
  620.          Left            =   8430
  621.          TabIndex        =   10
  622.          Top             =   840
  623.          Width           =   450
  624.       End
  625.       Begin VB.Label Lbl_TitleText 
  626.          AutoSize        =   -1  'True
  627.          BackStyle       =   0  'Transparent
  628.          Caption         =   "仓库"
  629.          ForeColor       =   &H00000000&
  630.          Height          =   195
  631.          Index           =   1
  632.          Left            =   8970
  633.          TabIndex        =   9
  634.          Top             =   840
  635.          Width           =   360
  636.       End
  637.       Begin VB.Label Lbl_TitleText 
  638.          AutoSize        =   -1  'True
  639.          BackStyle       =   0  'Transparent
  640.          Caption         =   "仓库"
  641.          ForeColor       =   &H00000000&
  642.          Height          =   195
  643.          Index           =   0
  644.          Left            =   5850
  645.          TabIndex        =   7
  646.          Top             =   840
  647.          Width           =   360
  648.       End
  649.       Begin VB.Label Lbl_TitleMess 
  650.          AutoSize        =   -1  'True
  651.          BackStyle       =   0  'Transparent
  652.          Caption         =   "存货:"
  653.          Height          =   195
  654.          Index           =   0
  655.          Left            =   570
  656.          TabIndex        =   6
  657.          Top             =   840
  658.          Width           =   405
  659.       End
  660.       Begin VB.Label Lbl_TitleMess 
  661.          AutoSize        =   -1  'True
  662.          BackStyle       =   0  'Transparent
  663.          Caption         =   "规格型号:"
  664.          Height          =   195
  665.          Index           =   1
  666.          Left            =   5010
  667.          TabIndex        =   5
  668.          Top             =   840
  669.          Width           =   765
  670.       End
  671.       Begin VB.Label Lab_Title 
  672.          AutoSize        =   -1  'True
  673.          BackColor       =   &H80000018&
  674.          BackStyle       =   0  'Transparent
  675.          Caption         =   "明细帐"
  676.          BeginProperty Font 
  677.             Name            =   "宋体"
  678.             Size            =   12
  679.             Charset         =   134
  680.             Weight          =   700
  681.             Underline       =   0   'False
  682.             Italic          =   0   'False
  683.             Strikethrough   =   0   'False
  684.          EndProperty
  685.          ForeColor       =   &H00000000&
  686.          Height          =   240
  687.          Index           =   0
  688.          Left            =   480
  689.          TabIndex        =   1
  690.          Top             =   210
  691.          Width           =   765
  692.       End
  693.    End
  694.    Begin VSFlex8Ctl.VSFlexGrid CyhzGrid 
  695.       Height          =   7155
  696.       Left            =   930
  697.       TabIndex        =   11
  698.       Top             =   960
  699.       Width           =   11775
  700.       _cx             =   5080
  701.       _cy             =   5080
  702.       Appearance      =   1
  703.       BorderStyle     =   1
  704.       Enabled         =   -1  'True
  705.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  706.          Name            =   "宋体"
  707.          Size            =   9
  708.          Charset         =   134
  709.          Weight          =   400
  710.          Underline       =   0   'False
  711.          Italic          =   0   'False
  712.          Strikethrough   =   0   'False
  713.       EndProperty
  714.       MousePointer    =   0
  715.       BackColor       =   16777215
  716.       ForeColor       =   -2147483640
  717.       BackColorFixed  =   13826538
  718.       ForeColorFixed  =   -2147483630
  719.       BackColorSel    =   -2147483635
  720.       ForeColorSel    =   -2147483634
  721.       BackColorBkg    =   -2147483636
  722.       BackColorAlternate=   16777215
  723.       GridColor       =   -2147483633
  724.       GridColorFixed  =   -2147483632
  725.       TreeColor       =   -2147483632
  726.       FloodColor      =   192
  727.       SheetBorder     =   -2147483642
  728.       FocusRect       =   1
  729.       HighLight       =   1
  730.       AllowSelection  =   -1  'True
  731.       AllowBigSelection=   -1  'True
  732.       AllowUserResizing=   0
  733.       SelectionMode   =   0
  734.       GridLines       =   1
  735.       GridLinesFixed  =   2
  736.       GridLineWidth   =   1
  737.       Rows            =   50
  738.       Cols            =   10
  739.       FixedRows       =   1
  740.       FixedCols       =   1
  741.       RowHeightMin    =   0
  742.       RowHeightMax    =   0
  743.       ColWidthMin     =   0
  744.       ColWidthMax     =   0
  745.       ExtendLastCol   =   0   'False
  746.       FormatString    =   ""
  747.       ScrollTrack     =   0   'False
  748.       ScrollBars      =   3
  749.       ScrollTips      =   0   'False
  750.       MergeCells      =   0
  751.       MergeCompare    =   0
  752.       AutoResize      =   -1  'True
  753.       AutoSizeMode    =   0
  754.       AutoSearch      =   0
  755.       AutoSearchDelay =   2
  756.       MultiTotals     =   -1  'True
  757.       SubtotalPosition=   1
  758.       OutlineBar      =   0
  759.       OutlineCol      =   0
  760.       Ellipsis        =   0
  761.       ExplorerBar     =   0
  762.       PicturesOver    =   0   'False
  763.       FillStyle       =   0
  764.       RightToLeft     =   0   'False
  765.       PictureType     =   0
  766.       TabBehavior     =   0
  767.       OwnerDraw       =   0
  768.       Editable        =   0
  769.       ShowComboButton =   1
  770.       WordWrap        =   0   'False
  771.       TextStyle       =   0
  772.       TextStyleFixed  =   0
  773.       OleDragMode     =   0
  774.       OleDropMode     =   0
  775.       DataMode        =   0
  776.       VirtualData     =   -1  'True
  777.       DataMember      =   ""
  778.       ComboSearch     =   3
  779.       AutoSizeMouse   =   -1  'True
  780.       FrozenRows      =   0
  781.       FrozenCols      =   0
  782.       AllowUserFreezing=   0
  783.       BackColorFrozen =   0
  784.       ForeColorFrozen =   0
  785.       WallPaperAlignment=   9
  786.       AccessibleName  =   ""
  787.       AccessibleDescription=   ""
  788.       AccessibleValue =   ""
  789.       AccessibleRole  =   24
  790.       Begin MSComctlLib.ImageList ImageList3 
  791.          Left            =   0
  792.          Top             =   0
  793.          _ExtentX        =   1005
  794.          _ExtentY        =   1005
  795.          BackColor       =   -2147483643
  796.          ImageWidth      =   16
  797.          ImageHeight     =   16
  798.          MaskColor       =   12632256
  799.          _Version        =   393216
  800.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  801.             NumListImages   =   40
  802.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  803.                Picture         =   "帐簿分析_明细帐.frx":469F2
  804.                Key             =   "sz"
  805.             EndProperty
  806.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  807.                Picture         =   "帐簿分析_明细帐.frx":46D8C
  808.                Key             =   "dy"
  809.             EndProperty
  810.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  811.                Picture         =   "帐簿分析_明细帐.frx":47126
  812.                Key             =   "yl"
  813.             EndProperty
  814.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  815.                Picture         =   "帐簿分析_明细帐.frx":474C0
  816.                Key             =   "xg"
  817.             EndProperty
  818.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  819.                Picture         =   "帐簿分析_明细帐.frx":4785A
  820.                Key             =   "zh"
  821.             EndProperty
  822.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  823.                Picture         =   "帐簿分析_明细帐.frx":47BF4
  824.                Key             =   "sh"
  825.             EndProperty
  826.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  827.                Picture         =   "帐簿分析_明细帐.frx":47F8E
  828.                Key             =   "bc"
  829.             EndProperty
  830.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  831.                Picture         =   "帐簿分析_明细帐.frx":48328
  832.                Key             =   "fq"
  833.             EndProperty
  834.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  835.                Picture         =   "帐簿分析_明细帐.frx":486C2
  836.                Key             =   "bz"
  837.             EndProperty
  838.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  839.                Picture         =   "帐簿分析_明细帐.frx":48A5C
  840.                Key             =   "tc"
  841.             EndProperty
  842.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  843.                Picture         =   "帐簿分析_明细帐.frx":48DF6
  844.                Key             =   "bcgs"
  845.             EndProperty
  846.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  847.                Picture         =   "帐簿分析_明细帐.frx":49190
  848.                Key             =   "mrlk"
  849.             EndProperty
  850.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  851.                Picture         =   "帐簿分析_明细帐.frx":4952A
  852.                Key             =   "xsxm"
  853.             EndProperty
  854.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  855.                Picture         =   "帐簿分析_明细帐.frx":498C4
  856.                Key             =   "first"
  857.             EndProperty
  858.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  859.                Picture         =   "帐簿分析_明细帐.frx":49C5E
  860.                Key             =   "prev"
  861.             EndProperty
  862.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  863.                Picture         =   "帐簿分析_明细帐.frx":49FF8
  864.                Key             =   "next"
  865.             EndProperty
  866.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  867.                Picture         =   "帐簿分析_明细帐.frx":4A392
  868.                Key             =   "last"
  869.             EndProperty
  870.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  871.                Picture         =   "帐簿分析_明细帐.frx":4A72C
  872.                Key             =   "xx"
  873.             EndProperty
  874.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  875.                Picture         =   "帐簿分析_明细帐.frx":4AAC6
  876.                Key             =   "define"
  877.             EndProperty
  878.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  879.                Picture         =   "帐簿分析_明细帐.frx":4AE60
  880.                Key             =   "exec"
  881.             EndProperty
  882.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  883.                Picture         =   "帐簿分析_明细帐.frx":4B1FA
  884.                Key             =   "xz"
  885.             EndProperty
  886.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  887.                Picture         =   "帐簿分析_明细帐.frx":4B594
  888.                Key             =   "sc"
  889.             EndProperty
  890.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  891.                Picture         =   "帐簿分析_明细帐.frx":4B92E
  892.                Key             =   "sx"
  893.             EndProperty
  894.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  895.                Picture         =   "帐簿分析_明细帐.frx":4BCC8
  896.                Key             =   "cx"
  897.             EndProperty
  898.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  899.                Picture         =   "帐簿分析_明细帐.frx":4C062
  900.                Key             =   "zd"
  901.             EndProperty
  902.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  903.                Picture         =   "帐簿分析_明细帐.frx":4C3FC
  904.                Key             =   "dz"
  905.             EndProperty
  906.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  907.                Picture         =   "帐簿分析_明细帐.frx":4C796
  908.                Key             =   "ph"
  909.             EndProperty
  910.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  911.                Picture         =   "帐簿分析_明细帐.frx":4CB30
  912.                Key             =   "fz"
  913.             EndProperty
  914.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  915.                Picture         =   "帐簿分析_明细帐.frx":4CECA
  916.                Key             =   "dw"
  917.             EndProperty
  918.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  919.                Picture         =   "帐簿分析_明细帐.frx":4D264
  920.                Key             =   "hf"
  921.             EndProperty
  922.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  923.                Picture         =   "帐簿分析_明细帐.frx":4D5FE
  924.                Key             =   "pz"
  925.             EndProperty
  926.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  927.                Picture         =   "帐簿分析_明细帐.frx":4D998
  928.                Key             =   "check"
  929.             EndProperty
  930.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  931.                Picture         =   "帐簿分析_明细帐.frx":4DD32
  932.                Key             =   "qs"
  933.             EndProperty
  934.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  935.                Picture         =   "帐簿分析_明细帐.frx":4E0CC
  936.                Key             =   "fullcheck"
  937.             EndProperty
  938.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  939.                Picture         =   "帐簿分析_明细帐.frx":4E466
  940.                Key             =   "qq"
  941.             EndProperty
  942.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  943.                Picture         =   "帐簿分析_明细帐.frx":4E800
  944.                Key             =   "bcw"
  945.             EndProperty
  946.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  947.                Picture         =   "帐簿分析_明细帐.frx":4EB9A
  948.                Key             =   "ye"
  949.             EndProperty
  950.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  951.                Picture         =   "帐簿分析_明细帐.frx":4EF34
  952.                Key             =   ""
  953.             EndProperty
  954.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  955.                Picture         =   "帐簿分析_明细帐.frx":4F2CE
  956.                Key             =   "frist"
  957.             EndProperty
  958.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  959.                Picture         =   "帐簿分析_明细帐.frx":4F668
  960.                Key             =   "dj"
  961.             EndProperty
  962.          EndProperty
  963.       End
  964.    End
  965. End
  966. Attribute VB_Name = "Zbfx_List"
  967. Attribute VB_GlobalNameSpace = False
  968. Attribute VB_Creatable = False
  969. Attribute VB_PredeclaredId = True
  970. Attribute VB_Exposed = False
  971. '**************************************************************************
  972. '*    模 块 名 称 :明细帐
  973. '*    功 能 描 述 :
  974. '*    程序员姓名  :白凤英
  975. '*    最后修改人  :白凤英
  976. '*    最后修改时间:2001/12/13
  977. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  978. '**************************************************************************
  979. Dim GridColHide() As Boolean             '网格列隐藏
  980. Dim mMnumber As String                   '存货编码
  981. Dim mMon As Integer                      '起始月份
  982. Dim mWhcode As String                    '仓库编码
  984. Dim ReportTitle As String                '报表主标题
  985. Dim Str_QueryCondi As String             '用户录入查询条件
  986. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  988. '以下为固定使用变量
  989. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  990. Dim GridCode As String                   '显示网格网格代码
  991. Dim GridInf() As Variant                 '整个网格设置信息
  992. Dim Tsxx As String                       '系统提示信息
  993. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  994. Dim Sjhgd As Double                      '网格数据行高度
  995. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  996. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  997. Dim GridStr()  As String                 '网格列信息(字符型)
  998. Dim GridInt() As Integer                 '网格列信息(整型)
  999. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  1001. Private Sub Com_Mnumber_Click()        '存货列表
  1002.     
  1003.     Dim strCode As String
  1004.     
  1005.     Xt_Wait.Show
  1006.     Xt_Wait.Refresh
  1007.     strCode = Mid(Com_Mnumber.ComboItems.Item(Com_Mnumber.SelectedItem.Index).Key, 2, 20)
  1008.     mMnumber = strCode
  1009.     Lbl_TitleText(0) = Com_Mnumber.ComboItems.Item(Com_Mnumber.SelectedItem.Index).Tag
  1010.     Call Sub_Query(1, strCode)
  1011.     Unload Xt_Wait
  1012.     
  1013. End Sub
  1015. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  1016.     On Error Resume Next
  1017.     With CxbbGrid
  1018.         .Width = Me.Width - 160
  1019.         .Height = Me.Height - .Top - 400
  1020.         CyhzGrid.Width = .Width
  1021.         CyhzGrid.Height = .Height
  1022.         CyhzGrid.Left = .Left
  1023.         CyhzGrid.Top = .Top
  1024.     End With
  1025.     With Pic_Title
  1026.         .Width = Me.Width - 160
  1027.     End With
  1028.     
  1029.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  1031. End Sub
  1033. Private Sub Form_Load()                                                   '窗体装入
  1034.   
  1035.     '调入打印页面设置窗体
  1036.     ReportTitle = "明细帐"
  1037.     XtReportCode = "Chhs_List"
  1038.     Load Dyymctbl
  1039.       
  1040.     '调整标题栏及网格、格式工具条位置(Fixed)
  1041.     Pic_Title.Left = 40
  1042.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  1043.     CxbbGrid.Left = Pic_Title.Left
  1044.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  1045.      
  1046.     '调 入 网 格(Fixed)
  1047.     GridCode = "Chhs_Cyhz"
  1048.     Call BzWgcsh(CyhzGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  1049.     
  1050.     '调 入 网 格(Fixed)
  1051.     GridCode = "Chhs_List"
  1052.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  1053.       
  1054.     Qslz = GridInf(1)
  1055.     Sjhgd = GridInf(2)
  1056.     Sfxshjwg = GridInf(7)
  1057.     Szzls = CxbbGrid.Cols - 1
  1058.         
  1059.     ReDim GridColHide(CxbbGrid.Cols)
  1060.     For Jsqte = Qslz To CxbbGrid.Cols - 1
  1061.         GridColHide(Jsqte) = CxbbGrid.ColHidden(Jsqte)
  1062.     Next Jsqte
  1064.     '清除表头内容
  1065.     Lbl_TitleText(0) = ""
  1066.     Lbl_TitleText(1) = ""
  1068. End Sub
  1070. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  1072.     '卸载条件窗体
  1073.     Zbfx_ListCond.UnloadCheck.Value = 1
  1074.     Unload Zbfx_ListCond
  1075.     
  1076.     '卸载打印页面设置窗体
  1077.     Unload Dyymctbl
  1079. End Sub
  1081. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  1082.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  1083. End Sub
  1085. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  1086.   
  1087.     Select Case Button.Key
  1088.         Case "bcgs"                                          '保存表格格式
  1089.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  1090.         Case "hfmrgs"                                        '恢复默认格式
  1091.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  1092.         Case "szxsxm"                                        '设置显示项目
  1093.             Call Szxsxm(CxbbGrid, GridCode)
  1094.     End Select
  1096. End Sub
  1098. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1099.     
  1100.     Select Case Button.Key
  1101.         Case "ymsz"                                          '页面设置
  1102.             Dyymctbl.Show 1
  1103.         Case "yl"                                            '预 览
  1104.             Call bbyl(True)
  1105.         Case "dy"                                            '打 印
  1106.             Call bbyl(False)
  1107.         Case "cx"                                            '查 询
  1108.             Zbfx_ListCond.Show 1
  1109.             'Call Szxsxm(CxbbGrid, GridCode)
  1110.         Case "Bill"                                          '单 据
  1111.             Call CxbbGrid_DblClick
  1112.         Case "pz"                                            '凭 证
  1113.             Call Sub_Pz
  1114.         Case "mx"                                            '明 细
  1115.             Call Sub_Mx
  1116.         Case "hz"                                            '汇 总
  1117.             Call Sub_Hz
  1118.         Case "cy"                                            '记 帐
  1119.             Call Sub_Cy
  1120.         Case "zh"                                            '恢 复
  1121.             Call Sub_Zh
  1122.         Case "bz"                                            '帮 助
  1123.             Call F1bz
  1124.         Case "fh"                                            '退 出
  1125.            Unload Me
  1126.     End Select
  1128. End Sub
  1130. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  1131.     
  1132.     Timer1.Enabled = False
  1133.     Xt_Wait.Show
  1134.     Xt_Wait.Refresh
  1135.     
  1136.     With SzToolbar
  1137.         If Lbl_TitleText(0).Tag = "计划价法" Then
  1138.             .Buttons("mx").Enabled = True
  1139.             .Buttons("hz").Enabled = True
  1140.             .Buttons("cy").Enabled = True
  1141.             .Buttons("zh").Enabled = True
  1142.         Else
  1143.             .Buttons("mx").Enabled = False
  1144.             .Buttons("hz").Enabled = False
  1145.             .Buttons("cy").Enabled = False
  1146.             .Buttons("zh").Enabled = False
  1147.         End If
  1148.     End With
  1149.     
  1150.     For Jsqte = Qslz To CxbbGrid.Cols - 1
  1151.         CxbbGrid.ColHidden(Jsqte) = GridColHide(Jsqte)
  1152.     Next Jsqte
  1153.     
  1154.     '加快显示速度
  1155.     CxbbGrid.Redraw = False
  1157.     '生成查询结果
  1158.     Call Sub_Query(0, "")
  1159.    
  1160.     CxbbGrid.Redraw = True
  1161.     
  1162.     Xt_Wait.Hide
  1164. End Sub
  1166. Private Sub Sub_Query(Int_QueryType As Integer, Mnumber As String)                              '生成查询结果(Define)
  1167.     
  1168.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  1170.     Dim Rec_Query As Recordset                  '查询结果动态集
  1171.     Dim Rowjsq As Long                          '网格行计数器
  1172.     Dim Coljsq As Long                          '网格列计数器
  1173.     Dim Jsqte As Long                        '临时动态计数器
  1174.     Dim Str1 As String
  1175.     Dim NewCombox As ComboItem
  1176.     Dim FindRow As Long
  1177.     
  1178.     '以下为自定义部分[
  1179.  
  1180.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  1181.         With Zbfx_ListCond
  1182.          
  1183.             '生成查询条件
  1184.             Str_QueryCondi = " where kjyear= " & Xtyear
  1185.             For Jsqte = 0 To 5
  1186.                 Select Case Jsqte
  1187.                     Case 0  '月份（起始）
  1188.                         Str_QueryCondi = Str_QueryCondi & " And a.period>= '" & .Com_QsMon.ItemData(.Com_QsMon.ListIndex) & "'"
  1189.                         mMon = .Com_QsMon.ItemData(.Com_QsMon.ListIndex)
  1190.                     Case 1  '月份(终止)
  1191.                         Str_QueryCondi = Str_QueryCondi & " And a.period<= '" & .Com_JzMon.ItemData(.Com_JzMon.ListIndex) & "'"
  1192.                     Case 2  '仓库
  1193.                         Str_QueryCondi = Str_QueryCondi & " And a.whcode='" & Trim(.LrText(0).Tag) & "'"
  1194.                         mWhcode = Trim(.LrText(0).Tag)
  1195.                     Case 3  '存货分类(Like)
  1196.                         If Trim(.LrText(1).Text) <> "" Then
  1197.                             Str_QueryCondi = Str_QueryCondi & " And a.invsortcode like '" & Trim(.LrText(1).Tag) & "%'"
  1198.                         End If
  1199.                     Case 4  '查询存货范围(起始)
  1200.                         If Trim(.LrText(2).Text) <> "" Then
  1201.                             Str_QueryCondi = Str_QueryCondi & " And a.mnumber>='" & Trim(.LrText(2).Text) & "'"
  1202.                         End If
  1203.                     Case 5  '查询存货范围(终止)
  1204.                         If Trim(.LrText(3).Text) <> "" Then
  1205.                             Str_QueryCondi = Str_QueryCondi & " And a.mnumber<= '" & Trim(.LrText(3).Text) & "'"
  1206.                         End If
  1207.                 End Select
  1208.             Next Jsqte
  1209.         End With
  1210.     
  1211.         '填充存货列表
  1212.         SqlStr = "SELECT Distinct Mnumber,Mname,Model FROM Chhs_V_List a " & Trim(Str_QueryCondi)
  1213.         Xtbmczdm = SqlStr
  1214.         Com_Mnumber.Enabled = True
  1215.         Call FillImageCombo(Com_Mnumber, "Chhs_List", 0)
  1216.         If Com_Mnumber.ComboItems.count > 0 And Xtcdcs = "Chhs_List" Then
  1217.             Xtcdcs = ""
  1218.             Mnumber = Mid(Com_Mnumber.ComboItems.Item(Val(Xtcdcsfz)).Key, 2, 20)
  1219.             Com_Mnumber.ComboItems.Item(Val(Xtcdcsfz)).Selected = True
  1220.             Lbl_TitleText(0) = Com_Mnumber.ComboItems.Item(Com_Mnumber.SelectedItem.Index).Tag
  1221.             Lbl_TitleText(1) = Zbfx_ListCond.LrText(0).Text
  1222.             mMnumber = Mnumber
  1223.         ElseIf Com_Mnumber.ComboItems.count > 0 Then
  1224.             Mnumber = Mid(Com_Mnumber.ComboItems.Item(1).Key, 2, 20)
  1225.             mMnumber = Mnumber
  1226.         Else
  1227.             Com_Mnumber.Text = ""
  1228.         End If
  1229.     Else
  1230.         If Str_QueryCondi = "" Then
  1231.             Str_QueryCondi = " where 1=2"
  1232.         End If
  1233.     End If
  1234.      
  1235.     CxbbGrid.Rows = CxbbGrid.FixedRows
  1236.      
  1237.      '填充期初数据
  1238.     SqlStr = "SELECT * FROM Chhs_Mate where kjyear=" & Xtyear & " and period=" & mMon & _
  1239.               " and whcode='" & mWhcode & "' and mnumber='" & Mnumber & "' "
  1240.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1241.     
  1242.     CxbbGrid.AddItem ""
  1243.     Jsqte = CxbbGrid.Rows - 1
  1244.     CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1245.     CxbbGrid.TextMatrix(Jsqte, 0) = mMon + 1
  1246.     CxbbGrid.TextMatrix(Jsqte, 1) = mMon
  1247.     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = " 期初结存"
  1248.     If Not Rec_Query.EOF Then
  1249.         CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Rec_Query.Fields("StartQuan") + 0
  1250.         If Rec_Query.Fields("StartPrice") <> 0 Then                                                                     '计划单价
  1251.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Rec_Query.Fields("StartPrice") + 0
  1252.         End If
  1253.         CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Rec_Query.Fields("StartMoney") + 0
  1254.         CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Rec_Query.Fields("StartDiff") + 0
  1255.     Else
  1256.         CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = "0"
  1257.         CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = "0"
  1258.     End If
  1259.     
  1260.     '日常单据
  1261.     SqlStr = "SELECT * FROM Chhs_V_List a " & Trim(Str_QueryCondi) & _
  1262.               " and a.mnumber='" & Mnumber & "'and a.startflag=0 Order By a.BillDate,a.InOutflag desc,a.ListId"
  1263.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1264.     With Rec_Query
  1265.         
  1266.         Do While Not .EOF
  1267.     
  1268.             CxbbGrid.AddItem ""
  1269.             Jsqte = CxbbGrid.Rows - 1
  1270.             '[>>自定义填充内容
  1271.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("period") + 1
  1272.             CxbbGrid.TextMatrix(Jsqte, 1) = .Fields("period")
  1273.             If .Fields("InoutMainId") <> 0 Then
  1274.                 CxbbGrid.TextMatrix(Jsqte, 2) = .Fields("InoutMainId")                                            'ID(主要用来查询定位用)
  1275.             Else
  1276.                 CxbbGrid.TextMatrix(Jsqte, 2) = .Fields("InoutAdjustMainId")                                            'ID(主要用来查询定位用)
  1277.             End If
  1278.             CxbbGrid.TextMatrix(Jsqte, 3) = Trim(.Fields("BillCode"))                                                    '单据编码
  1279.             CxbbGrid.TextMatrix(Jsqte, 4) = Trim(.Fields("vouchid"))                                                    '单据编码
  1280.             If Trim(.Fields("billcode")) = "1307" Then
  1281.                 CxbbGrid.RowHidden(Jsqte) = True
  1282.             End If
  1283.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")              '单据号
  1284.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Format(.Fields("ChalkDate"), "yyyy-mm-dd") '记帐日期
  1285.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")  '入库日期
  1286.             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")         '供应商
  1287.             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("cusname") & "")              '客户
  1288.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Trim(.Fields("Deptname") & "")             '部门
  1289.             CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Trim(.Fields("InoutClassName") & "")       '收发类别
  1290.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")           '业务员
  1291.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                '制单人
  1292.             CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")              '审核人
  1293.             CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = Trim(.Fields("ChalkitupMan") & "")         '记帐人
  1294.             CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = Trim(.Fields("billname") & "")               '备注
  1295.             CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = Trim(.Fields("remark") & "")               '备注
  1296.             
  1297.             If .Fields("inoutFlag") Then        '入库
  1298.                 If .Fields("InQuan") <> 0 Then                                                                           '数量
  1299.                     CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = .Fields("InQuan") + 0
  1300.                 End If
  1301.                 If .Fields("InPrice") <> 0 Then                                                                      '计划单价
  1302.                     CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = .Fields("InPrice") + 0
  1303.                 End If
  1304.                 If .Fields("InMoney") <> 0 Then                                                                      '计划金额
  1305.                     CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = .Fields("InMoney") + 0
  1306.                 End If
  1307.             Else                                '出库
  1308.                 If Trim(.Fields("billcode")) = "1303" Then
  1309.                     If .Fields("OutQuan") <> 0 Then                                                                           '数量
  1310.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = 0 - .Fields("OutQuan")
  1311.                     End If
  1312.                     If .Fields("OutPrice") <> 0 Then                                                                          '实际单价
  1313.                         CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = .Fields("OutPrice")
  1314.                     End If
  1315.                     If .Fields("OutMoney") <> 0 Then                                                                         '实际金额
  1316.                         CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = 0 - .Fields("OutMoney")
  1317.                     End If
  1318.                 Else
  1319.                     If .Fields("OutQuan") <> 0 Then                                                                           '数量
  1320.                         CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = .Fields("OutQuan") + 0
  1321.                     End If
  1322.                     If .Fields("OutPrice") <> 0 Then                                                                          '实际单价
  1323.                         CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = .Fields("OutPrice") + 0
  1324.                     End If
  1325.                     If .Fields("OutMoney") <> 0 Then                                                                         '实际金额
  1326.                         CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = .Fields("OutMoney") + 0
  1327.                     End If
  1328.                 End If
  1329.             End If
  1330.             
  1331.             '差异
  1332.             If .Fields("JfDiff") <> 0 Then                                                                               '借方差异
  1333.                 CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = .Fields("JfDiff") + 0
  1334.             End If
  1335.             If .Fields("DfDiff") <> 0 Then                                                                               '贷方差异
  1336.                 CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("DfDiff") + 0
  1337.             End If
  1338.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("015", GridStr(), Szzls))) + Val(.Fields("jfdiff")) - Val(.Fields("dfdiff"))
  1339.             If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls))) = 0 Then
  1340.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = ""
  1341.             End If
  1342.             
  1343.             '结存
  1344.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("010", GridStr(), Szzls))) + Val(.Fields("inquan")) - Val(.Fields("outquan"))
  1345.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("012", GridStr(), Szzls))) + Val(.Fields("inmoney")) - Val(.Fields("outmoney"))
  1346.             If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls))) <> 0 Then
  1347.                 CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls))) / Val(CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)))
  1348.             End If
  1349.             If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls))) = 0 Then
  1350.                 CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = ""
  1351.             End If
  1352.             
  1353.             '<<]
  1354.             '设置数据行高度(Fixed)
  1355.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1356.      
  1357.             '动态集指针加1,同时将计数器加1(Fixed)
  1358.             .MoveNext
  1359.             Jsqte = Jsqte + 1
  1360.         Loop
  1361.     End With
  1362.     
  1363.     
  1364.     '输入合计
  1365.     With CxbbGrid
  1366.         
  1367.         If .Rows = .FixedRows + 1 Then Exit Sub
  1368.         
  1369.         If .TextMatrix(.FixedRows, 1) <> .TextMatrix(.FixedRows + 1, 1) Then
  1370.             .TextMatrix(.FixedRows, 0) = .TextMatrix(.FixedRows + 1, 0)
  1371.             .TextMatrix(.FixedRows, 1) = .TextMatrix(.FixedRows + 1, 1)
  1372.         End If
  1373.         
  1374.         If Zbfx_ListCond.Che_Sum.Value <> 0 Then
  1375.            .SubtotalPosition = flexSTBelow
  1376.            For Jsqte = Qslz To .Cols - 1
  1377.                 If GridBoolean(Jsqte, 4) Then
  1378.                      .Subtotal flexSTSum, 0, Jsqte, , &HF7F3EC, , , , , True
  1379.                      .Subtotal flexSTSum, 1, Jsqte, , &HF7F3EC, , , , , True
  1380.                 End If
  1381.            Next
  1383.            For Jsqte = .FixedRows To .Rows - 1
  1384.                 If .IsSubtotal(Jsqte) Then
  1385.                     .TextMatrix(Jsqte, 0) = .TextMatrix(Jsqte - 1, 0)
  1386.                     .TextMatrix(Jsqte, 1) = .TextMatrix(Jsqte - 1, 1)
  1387.                     If .IsSubtotal(Jsqte - 1) Then
  1388.                         .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本年累计"
  1389.                         For Rowjsq = .FixedRows To Jsqte - 1
  1390.                             If .IsSubtotal(Rowjsq) And .TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "本年累计" Then
  1391.                                 For Coljsq = Qslz To .Cols - 1
  1392.                                     If GridBoolean(Coljsq, 4) Then
  1393.                                         If .TextMatrix(.FixedRows - 1, Coljsq) = "数量" Then
  1394.                                             .TextMatrix(Jsqte, Coljsq) = Val(Format(.TextMatrix(Jsqte, Coljsq), "#####." + String(Xtslxsws, "#"))) + Val(Format(.TextMatrix(Rowjsq - 1, Coljsq), "####." + String(Xtslxsws, "#")))
  1395.                                         Else
  1396.                                             .TextMatrix(Jsqte, Coljsq) = Val(Format(.TextMatrix(Jsqte, Coljsq), "#####." + String(Xtjexsws, "#"))) + Val(Format(.TextMatrix(Rowjsq - 1, Coljsq), "####." + String(Xtjexsws, "#")))
  1397.                                         End If
  1398.                                     End If
  1399.                                 Next Coljsq
  1400.                             End If
  1401.                         Next Rowjsq
  1402.                     Else
  1403.                         .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = .TextMatrix(Jsqte, 1) + "月合计"
  1404.                     End If
  1405.                     For Coljsq = Qslz To .Cols - 1
  1406.                         If Val(.TextMatrix(Jsqte, Coljsq)) = 0 And GridBoolean(Coljsq, 4) Then
  1407.                             .TextMatrix(Jsqte, Coljsq) = ""
  1408.                         End If
  1409.                     Next
  1410.                     .RowHeight(Jsqte) = Sjhgd
  1411.                     
  1412.                 End If
  1413.            Next
  1414.         End If
  1415.     End With
  1416.     
  1417.     ']以上为用户自定义部分
  1418.     
  1419.     Set Rec_Query = Nothing
  1421. End Sub
  1423. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  1424.     
  1425.     Dim Rectemp As New ADODB.Recordset               '临时使用动态集
  1427.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1428.     
  1429.     '非数据行退出
  1430.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 2)) = 0 Then
  1431.         Exit Sub
  1432.     End If
  1433.     
  1434.     If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 3)) = "1301" Or Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 3)) = "1302" Then
  1435.         SqlStr = "SELECT InOutAdjustMainId From Chhs_InOutAdjustMain Where InOutAdjustMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 2)) + 0
  1436.     ElseIf Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 3)) = "1303" Then
  1437.         SqlStr = "SELECT PlanAdjustMainId From Chhs_PlanAdjustMain Where PlanAdjustMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 2)) + 0
  1438.     ElseIf Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 3)) = "1307" Then
  1439.         SqlStr = "SELECT DiffBillId From Chhs_DiffBill Where DiffBillId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 2)) + 0
  1440.     Else
  1441.         SqlStr = "SELECT InOutMainId From Gy_InOutMain Where InOutMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 2)) + 0
  1442.     End If
  1443.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1444.     With Rectemp
  1445.         If .EOF Then
  1446.             Tsxx = "此单据已被其他用户删除!"
  1447.             Call Xtxxts(Tsxx, 0, 4)
  1448.             Exit Sub
  1449.         Else
  1450.             
  1451.              '填充查询单据标识
  1452.             XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 2)
  1453.             Xtcdcsfz = Str_QueryCondi
  1454.             
  1455.             '设置单据处理为列表查询(修改)状态
  1456.             Xtcdcs = "3"
  1457.             
  1458.            '调入单据处理窗体
  1459.             Select Case Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 3))
  1460.                 Case "1202"
  1461.                     DJ_ProdInBill.Show 1
  1462.                 Case "1203"
  1463.                     DJ_OtherInBill.Show 1
  1464.                 Case "1204"
  1465.                     DJ_MateOutBill.Show 1
  1466.                 Case "1205"
  1467.                     DJ_SellOutBill.Show 1
  1468.                 Case "1206"
  1469.                     DJ_OtherOutBill.Show 1
  1470.                 Case "1212"
  1471.                     DJ_MateInBill.Show 1
  1472.                 Case "1304"
  1473.                     Xtcdcsfz = " startflag=0 and kjyear=" & PGKjYear & " and period =" & Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1))
  1474.                     Eval_BlueBill.Show 1
  1475.                 Case "1305"
  1476.                     Xtcdcsfz = " startflag=0 and kjyear=" & PGKjYear & " and period =" & Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1))
  1477.                     Eval_RedBill.Show 1
  1478.                 Case "1301"
  1479.                     DJ_AdjustInbill.Show 1
  1480.                 Case "1302"
  1481.                     DJ_AdjustOutBill.Show 1
  1482.                 Case "1303"
  1483.                     Xtcdcs = "0"
  1484.                     Xtcdcsfz = XT_BillID
  1485.                     DJ_AdjustPlan.Show 1
  1486.                 Case "1307"
  1487.                     CL_DiscrepancyChange.lbl_Tstext(0) = CStr(Xtyear) + "." + CxbbGrid.TextMatrix(CxbbGrid.Row, 1)
  1488.                     CL_DiscrepancyChange.lbl_Tstext(0).Tag = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 1))
  1489.                     CL_DiscrepancyChange.Query_Cond = "Chhs_V_DiffBill.whcode='" & Lbl_TitleText(1).Tag & "' and Chhs_v_DiffBill.kjyear=" & Xtyear
  1490.                     CL_DiscrepancyChange.Show 1
  1491.             End Select
  1492.         End If
  1493.     End With
  1495. End Sub
  1497. Private Sub Sub_Mx()                                             '明细
  1498.     
  1499.     If Com_Mnumber.ComboItems.count = 0 Then Exit Sub
  1500.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1501.     
  1502.     Lab_Title(0) = "明细帐"
  1503.     Lbl_TitleMess(0).Visible = True
  1504.     Lbl_TitleMess(1).Visible = True
  1505.     Lbl_TitleText(0).Visible = True
  1506.     Com_Mnumber.Visible = True
  1507.     
  1508.     '初始隐藏列
  1509.     For Jsqte = Qslz To CxbbGrid.Cols - 1
  1510.           CxbbGrid.ColHidden(Jsqte) = GridColHide(Jsqte)
  1511.     Next Jsqte
  1512.     
  1513.     CyhzGrid.Visible = False
  1514.     CxbbGrid.Visible = True
  1515.     
  1516.     With CxbbGrid
  1517.         .ColHidden(Sydz("003", GridStr(), Szzls)) = False
  1518.         .ColHidden(Sydz("004", GridStr(), Szzls)) = False
  1519.         .ColHidden(Sydz("005", GridStr(), Szzls)) = False
  1520.         .ColHidden(Sydz("006", GridStr(), Szzls)) = False
  1521.         .ColHidden(Sydz("007", GridStr(), Szzls)) = False
  1522.         .ColHidden(Sydz("008", GridStr(), Szzls)) = False
  1523.         .ColHidden(Sydz("009", GridStr(), Szzls)) = False
  1524.         .ColHidden(Sydz("010", GridStr(), Szzls)) = False
  1525.         .ColHidden(Sydz("011", GridStr(), Szzls)) = False
  1526.         .ColHidden(Sydz("012", GridStr(), Szzls)) = False
  1527.         .ColHidden(Sydz("013", GridStr(), Szzls)) = True
  1528.         .ColHidden(Sydz("014", GridStr(), Szzls)) = True
  1529.         .ColHidden(Sydz("015", GridStr(), Szzls)) = True
  1530.     End With
  1531.     
  1532.     Call Sub_Query(1, mMnumber)
  1533.     
  1534.     With SzToolbar
  1535.         .Buttons("ymsz").Enabled = True
  1536.         .Buttons("dy").Enabled = True
  1537.         .Buttons("yl").Enabled = True
  1538.         .Buttons("cx").Enabled = True
  1539.         .Buttons("Bill").Enabled = True
  1540.         .Buttons("pz").Enabled = True
  1541.         .Buttons("cy").Enabled = True
  1542.         .Buttons("zh").Enabled = True
  1543.         .Buttons("mx").Enabled = True
  1544.     End With
  1546. End Sub
  1548. Private Sub Sub_Hz()                                            '汇总
  1549. Dim Rec_Query As Recordset
  1550. Dim FindRow As Integer
  1552.     If Com_Mnumber.ComboItems.count = 0 Then Exit Sub
  1553.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1554.       
  1555.     With SzToolbar
  1556.         .Buttons("ymsz").Enabled = False
  1557.         .Buttons("dy").Enabled = False
  1558.         .Buttons("yl").Enabled = False
  1559.         .Buttons("cx").Enabled = False
  1560.         .Buttons("Bill").Enabled = False
  1561.         .Buttons("pz").Enabled = False
  1562.         .Buttons("cy").Enabled = False
  1563.         .Buttons("zh").Enabled = False
  1564.         .Buttons("mx").Enabled = True
  1565.     End With
  1566.       
  1567.     Lab_Title(0) = "差异汇总列表"
  1568.     Lbl_TitleMess(0).Visible = False
  1569.     Lbl_TitleMess(1).Visible = False
  1570.     Lbl_TitleText(0).Visible = False
  1571.     Com_Mnumber.Visible = False
  1572.       
  1573.     CxbbGrid.Visible = False
  1574.     CyhzGrid.Visible = True
  1575.     
  1576.     CyhzGrid.Rows = CyhzGrid.FixedRows
  1577.     
  1578.      '填充期初数据
  1579.     SqlStr = "SELECT * FROM Chhs_V_Mate a " & Trim(Str_QueryCondi) & _
  1580.               "  and period=" & mMon & " Order By a.mnumber"
  1581.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1582.     With Rec_Query
  1583.         Do While Not .EOF
  1584.             CyhzGrid.AddItem ""
  1585.             Jsqte = CyhzGrid.Rows - 1
  1586.             CyhzGrid.RowHeight(Jsqte) = Sjhgd
  1587.             CyhzGrid.TextMatrix(Jsqte, 0) = Trim(Rec_Query.Fields("mnumber") & "")
  1588.             CyhzGrid.TextMatrix(Jsqte, 1) = Trim(Rec_Query.Fields("mname") & "")
  1589.             CyhzGrid.TextMatrix(Jsqte, 2) = Trim(Rec_Query.Fields("model") & "")
  1590.             If Rec_Query.Fields("StartDiff") <> 0 Then                                                                      '计划金额
  1591.                 CyhzGrid.TextMatrix(Jsqte, 3) = Rec_Query.Fields("StartDiff") + 0
  1592.                 CyhzGrid.TextMatrix(Jsqte, 6) = Rec_Query.Fields("StartDiff") + 0
  1593.             End If
  1594.             Rec_Query.MoveNext
  1595.         Loop
  1596.     End With
  1597.     
  1598.     '日常数据
  1599.     SqlStr = "SELECT mnumber,mname,model,sum(jfdiff) as sumjfdiff,sum(dfdiff) as sumdfdiff FROM Chhs_V_list a " & Trim(Str_QueryCondi) & _
  1600.               " and a.startflag=0 group by mnumber,mname,model Order By a.mnumber"
  1601.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1602.     With Rec_Query
  1603.         Do While Not .EOF
  1604.             FindRow = CyhzGrid.FindRow(Trim(Rec_Query.Fields("mnumber")), , 0)
  1605.             If FindRow > 0 Then
  1606.                 Jsqte = FindRow
  1607.             Else
  1608.                 CyhzGrid.AddItem ""
  1609.                 Jsqte = CyhzGrid.Rows - 1
  1610.                 CyhzGrid.RowHeight(Jsqte) = Sjhgd
  1611.             End If
  1612.             CyhzGrid.TextMatrix(Jsqte, 0) = Trim(Rec_Query.Fields("mnumber") & "")
  1613.             CyhzGrid.TextMatrix(Jsqte, 1) = Trim(Rec_Query.Fields("mname") & "")
  1614.             CyhzGrid.TextMatrix(Jsqte, 2) = Trim(Rec_Query.Fields("model") & "")
  1615.             If Rec_Query.Fields("sumjfdiff") <> 0 Then                                                                      '计划金额
  1616.                 CyhzGrid.TextMatrix(Jsqte, 4) = Rec_Query.Fields("sumjfdiff") + 0
  1617.             End If
  1618.             If Rec_Query.Fields("sumdfdiff") <> 0 Then                                                                      '计划金额
  1619.                 CyhzGrid.TextMatrix(Jsqte, 5) = Rec_Query.Fields("sumdfdiff") + 0
  1620.             End If
  1621.             CyhzGrid.TextMatrix(Jsqte, 6) = Val(CyhzGrid.TextMatrix(Jsqte, 3)) + Val(CyhzGrid.TextMatrix(Jsqte, 4)) - Val(CyhzGrid.TextMatrix(Jsqte, 5))
  1622.             If Val(CyhzGrid.TextMatrix(Jsqte, 6)) = 0 Then
  1623.                 CyhzGrid.TextMatrix(Jsqte, 6) = ""
  1624.             End If
  1625.             Rec_Query.MoveNext
  1626.         Loop
  1627.     End With
  1628. End Sub
  1630. Private Sub Sub_Cy()               '差异
  1631. Dim FindRow As Integer
  1633.     If Com_Mnumber.ComboItems.count = 0 Then Exit Sub
  1634.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1635.     
  1636.     '初始隐藏列
  1637.     For Jsqte = Qslz To CxbbGrid.Cols - 1
  1638.           CxbbGrid.ColHidden(Jsqte) = GridColHide(Jsqte)
  1639.     Next Jsqte
  1640.     
  1641.     Lab_Title(0) = "明细差异帐"
  1642.     
  1643.     With CxbbGrid
  1644.         .ColHidden(Sydz("004", GridStr(), Szzls)) = True
  1645.         .ColHidden(Sydz("005", GridStr(), Szzls)) = True
  1646.         .ColHidden(Sydz("006", GridStr(), Szzls)) = True
  1647.         .ColHidden(Sydz("007", GridStr(), Szzls)) = True
  1648.         .ColHidden(Sydz("008", GridStr(), Szzls)) = True
  1649.         .ColHidden(Sydz("009", GridStr(), Szzls)) = True
  1650.         .ColHidden(Sydz("010", GridStr(), Szzls)) = True
  1651.         .ColHidden(Sydz("011", GridStr(), Szzls)) = True
  1652.         .ColHidden(Sydz("012", GridStr(), Szzls)) = True
  1653.         .ColHidden(Sydz("013", GridStr(), Szzls)) = False
  1654.         .ColHidden(Sydz("014", GridStr(), Szzls)) = False
  1655.         .ColHidden(Sydz("015", GridStr(), Szzls)) = False
  1656.     End With
  1657.     
  1658.     For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
  1659.         CxbbGrid.RowHidden(Jsqte) = False
  1660.     Next Jsqte
  1661. End Sub
  1663. Private Sub Sub_Zh()               '综合
  1665.     If Com_Mnumber.ComboItems.count = 0 Then Exit Sub
  1666.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  1667.     
  1668.     '初始隐藏列
  1669.     For Jsqte = Qslz To CxbbGrid.Cols - 1
  1670.           CxbbGrid.ColHidden(Jsqte) = GridColHide(Jsqte)
  1671.     Next Jsqte
  1672.     
  1673.     Lab_Title(0) = "明细帐"
  1674.     
  1675.     CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False
  1676.     CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False
  1677.     CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False
  1678.     
  1679.     For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
  1680.         CxbbGrid.RowHidden(Jsqte) = False
  1681.     Next Jsqte
  1683. End Sub
  1685. Private Sub Sub_Pz()             '凭证
  1686.     Dim Rectemp As New ADODB.Recordset               '临时使用动态集
  1687.     
  1688.     If Com_Mnumber.ComboItems.count = 0 Then Exit Sub
  1690.     '非数据行退出
  1691.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 4)) = 0 Then
  1692.         Exit Sub
  1693.     End If
  1694.     
  1695.     SqlStr = "SELECT VouchId FROM chhs_VouchSub Where VouchId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 4))
  1696.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1697.     With Rectemp
  1698.         If .EOF Then
  1699.             Tsxx = "此凭证已被其他用户删除!"
  1700.             Call Xtxxts(Tsxx, 0, 4)
  1701.             Exit Sub
  1702.         Else
  1703.             
  1704.            '调入单据处理窗体
  1705.            Load CL_PzFrm
  1706.            CL_PzFrm.LoadMassage = 1
  1707.            CL_PzFrm.Lab_Pzclzt = "1"
  1708.            CL_PzFrm.lbl_Tag.Caption = "2"
  1709.            CL_PzFrm.Lab_VouchId.Caption = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 4))
  1710.            CL_PzFrm.Timer1.Enabled = True
  1711.            CL_PzFrm.Show 1
  1712.         End If
  1713.     End With
  1715. End Sub
  1717. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1718.     
  1719.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1720.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1721.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1722.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1723.     ReDim Bbxbt(1 To Bbxbtgs)
  1724.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1725.     If Bbbwhgs <> 0 Then
  1726.         ReDim Bbbwh(1 To Bbbwhgs)
  1727.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1728.     End If
  1729.     Bbzbt = Lab_Title(0)
  1730.     Bbxbt(1) = Fun_FormatOutPut("存货:" + Trim(Com_Mnumber.Text), 40)
  1731.     Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut("规格型号:" + Trim(Lbl_TitleText(0)), 40)
  1732.     Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut("仓库:" + Trim(Lbl_TitleText(1)), 20)
  1733.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1734.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1735.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1736.     If Not bbylte Then
  1737.         Unload DY_Tybbyldy
  1738.     End If
  1740. End Sub