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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form Cask_Estrade 
  5.    Caption         =   "包装物台帐"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   1716002
  11.    Icon            =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   11820
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   525
  20.       Left            =   9330
  21.       TabIndex        =   3
  22.       Top             =   30
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   926
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   926
  28.       Appearance      =   1
  29.       Style           =   1
  30.       ImageList       =   "ImageList2"
  31.       _Version        =   393216
  32.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  33.          NumButtons      =   3
  34.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  35.             Caption         =   "保存格式"
  36.             Key             =   "bcgs"
  37.             ImageKey        =   "bcgs"
  38.          EndProperty
  39.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  40.             Caption         =   "默认列宽"
  41.             Key             =   "hfmrgs"
  42.             ImageKey        =   "mrlk"
  43.          EndProperty
  44.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  45.             Caption         =   "显示项目"
  46.             Key             =   "szxsxm"
  47.             ImageKey        =   "xsxm"
  48.          EndProperty
  49.       EndProperty
  50.    End
  51.    Begin VB.PictureBox Pic_Title 
  52.       BackColor       =   &H00FFFFFF&
  53.       Height          =   1125
  54.       Left            =   0
  55.       Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":08CA
  56.       ScaleHeight     =   1065
  57.       ScaleWidth      =   11715
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11775
  61.       Begin VB.Label Label6 
  62.          AutoSize        =   -1  'True
  63.          BackStyle       =   0  'Transparent
  64.          Height          =   180
  65.          Left            =   7290
  66.          TabIndex        =   10
  67.          Top             =   780
  68.          Width           =   90
  69.       End
  70.       Begin VB.Label Label5 
  71.          AutoSize        =   -1  'True
  72.          BackStyle       =   0  'Transparent
  73.          Caption         =   "计量单位:"
  74.          Height          =   180
  75.          Left            =   6450
  76.          TabIndex        =   9
  77.          Top             =   780
  78.          Width           =   810
  79.       End
  80.       Begin VB.Label Label4 
  81.          AutoSize        =   -1  'True
  82.          BackStyle       =   0  'Transparent
  83.          Height          =   180
  84.          Left            =   3900
  85.          TabIndex        =   8
  86.          Top             =   780
  87.          Width           =   90
  88.       End
  89.       Begin VB.Label Label3 
  90.          AutoSize        =   -1  'True
  91.          BackStyle       =   0  'Transparent
  92.          Caption         =   "包装物名称:"
  93.          Height          =   180
  94.          Left            =   2880
  95.          TabIndex        =   7
  96.          Top             =   780
  97.          Width           =   990
  98.       End
  99.       Begin VB.Label Label2 
  100.          AutoSize        =   -1  'True
  101.          BackStyle       =   0  'Transparent
  102.          Height          =   180
  103.          Left            =   1320
  104.          TabIndex        =   6
  105.          Top             =   780
  106.          Width           =   90
  107.       End
  108.       Begin VB.Label Label1 
  109.          AutoSize        =   -1  'True
  110.          BackStyle       =   0  'Transparent
  111.          Caption         =   "包装物编码:"
  112.          Height          =   180
  113.          Left            =   300
  114.          TabIndex        =   5
  115.          Top             =   780
  116.          Width           =   990
  117.       End
  118.       Begin VB.Label Lab_Title 
  119.          AutoSize        =   -1  'True
  120.          BackColor       =   &H80000018&
  121.          BackStyle       =   0  'Transparent
  122.          Caption         =   "包装物台帐"
  123.          BeginProperty Font 
  124.             Name            =   "宋体"
  125.             Size            =   12
  126.             Charset         =   134
  127.             Weight          =   700
  128.             Underline       =   0   'False
  129.             Italic          =   0   'False
  130.             Strikethrough   =   0   'False
  131.          EndProperty
  132.          ForeColor       =   &H00000000&
  133.          Height          =   240
  134.          Index           =   4
  135.          Left            =   480
  136.          TabIndex        =   2
  137.          Top             =   210
  138.          Width           =   1275
  139.       End
  140.    End
  141.    Begin VB.Timer Timer1 
  142.       Enabled         =   0   'False
  143.       Interval        =   1
  144.       Left            =   7620
  145.       Top             =   90
  146.    End
  147.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  148.       Height          =   7185
  149.       Left            =   0
  150.       TabIndex        =   0
  151.       Top             =   1830
  152.       Width           =   11775
  153.       _cx             =   5080
  154.       _cy             =   5080
  155.       Appearance      =   1
  156.       BorderStyle     =   1
  157.       Enabled         =   -1  'True
  158.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  159.          Name            =   "宋体"
  160.          Size            =   9
  161.          Charset         =   134
  162.          Weight          =   400
  163.          Underline       =   0   'False
  164.          Italic          =   0   'False
  165.          Strikethrough   =   0   'False
  166.       EndProperty
  167.       MousePointer    =   0
  168.       BackColor       =   16777215
  169.       ForeColor       =   -2147483640
  170.       BackColorFixed  =   13826538
  171.       ForeColorFixed  =   -2147483630
  172.       BackColorSel    =   -2147483635
  173.       ForeColorSel    =   -2147483634
  174.       BackColorBkg    =   -2147483636
  175.       BackColorAlternate=   16777215
  176.       GridColor       =   -2147483633
  177.       GridColorFixed  =   -2147483632
  178.       TreeColor       =   -2147483632
  179.       FloodColor      =   192
  180.       SheetBorder     =   -2147483642
  181.       FocusRect       =   1
  182.       HighLight       =   1
  183.       AllowSelection  =   -1  'True
  184.       AllowBigSelection=   -1  'True
  185.       AllowUserResizing=   0
  186.       SelectionMode   =   0
  187.       GridLines       =   1
  188.       GridLinesFixed  =   2
  189.       GridLineWidth   =   1
  190.       Rows            =   50
  191.       Cols            =   10
  192.       FixedRows       =   1
  193.       FixedCols       =   1
  194.       RowHeightMin    =   0
  195.       RowHeightMax    =   0
  196.       ColWidthMin     =   0
  197.       ColWidthMax     =   0
  198.       ExtendLastCol   =   0   'False
  199.       FormatString    =   ""
  200.       ScrollTrack     =   0   'False
  201.       ScrollBars      =   3
  202.       ScrollTips      =   0   'False
  203.       MergeCells      =   0
  204.       MergeCompare    =   0
  205.       AutoResize      =   -1  'True
  206.       AutoSizeMode    =   0
  207.       AutoSearch      =   0
  208.       AutoSearchDelay =   2
  209.       MultiTotals     =   -1  'True
  210.       SubtotalPosition=   0
  211.       OutlineBar      =   0
  212.       OutlineCol      =   0
  213.       Ellipsis        =   0
  214.       ExplorerBar     =   0
  215.       PicturesOver    =   0   'False
  216.       FillStyle       =   0
  217.       RightToLeft     =   0   'False
  218.       PictureType     =   0
  219.       TabBehavior     =   0
  220.       OwnerDraw       =   0
  221.       Editable        =   0
  222.       ShowComboButton =   1
  223.       WordWrap        =   0   'False
  224.       TextStyle       =   0
  225.       TextStyleFixed  =   0
  226.       OleDragMode     =   0
  227.       OleDropMode     =   0
  228.       DataMode        =   0
  229.       VirtualData     =   -1  'True
  230.       DataMember      =   ""
  231.       ComboSearch     =   3
  232.       AutoSizeMouse   =   -1  'True
  233.       FrozenRows      =   0
  234.       FrozenCols      =   0
  235.       AllowUserFreezing=   0
  236.       BackColorFrozen =   0
  237.       ForeColorFrozen =   0
  238.       WallPaperAlignment=   9
  239.       AccessibleName  =   ""
  240.       AccessibleDescription=   ""
  241.       AccessibleValue =   ""
  242.       AccessibleRole  =   24
  243.       Begin MSComctlLib.ImageList ImageList2 
  244.          Left            =   0
  245.          Top             =   0
  246.          _ExtentX        =   1005
  247.          _ExtentY        =   1005
  248.          BackColor       =   -2147483643
  249.          ImageWidth      =   16
  250.          ImageHeight     =   16
  251.          MaskColor       =   12632256
  252.          _Version        =   393216
  253.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  254.             NumListImages   =   40
  255.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  256.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3498E
  257.                Key             =   "sz"
  258.             EndProperty
  259.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  260.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":34D28
  261.                Key             =   "dy"
  262.             EndProperty
  263.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  264.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":350C2
  265.                Key             =   "yl"
  266.             EndProperty
  267.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  268.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3545C
  269.                Key             =   "xg"
  270.             EndProperty
  271.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  272.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":357F6
  273.                Key             =   "zh"
  274.             EndProperty
  275.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  276.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":35B90
  277.                Key             =   "sh"
  278.             EndProperty
  279.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  280.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":35F2A
  281.                Key             =   "bc"
  282.             EndProperty
  283.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  284.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":362C4
  285.                Key             =   "fq"
  286.             EndProperty
  287.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  288.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3665E
  289.                Key             =   "bz"
  290.             EndProperty
  291.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  292.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":369F8
  293.                Key             =   "tc"
  294.             EndProperty
  295.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  296.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":36D92
  297.                Key             =   "bcgs"
  298.             EndProperty
  299.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  300.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3712C
  301.                Key             =   "mrlk"
  302.             EndProperty
  303.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  304.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":374C6
  305.                Key             =   "xsxm"
  306.             EndProperty
  307.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  308.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":37860
  309.                Key             =   "first"
  310.             EndProperty
  311.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  312.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":37BFA
  313.                Key             =   "prev"
  314.             EndProperty
  315.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  316.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":37F94
  317.                Key             =   "next"
  318.             EndProperty
  319.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  320.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3832E
  321.                Key             =   "last"
  322.             EndProperty
  323.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  324.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":386C8
  325.                Key             =   "xx"
  326.             EndProperty
  327.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  328.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":38A62
  329.                Key             =   "define"
  330.             EndProperty
  331.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  332.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":38DFC
  333.                Key             =   "exec"
  334.             EndProperty
  335.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  336.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":39196
  337.                Key             =   "xz"
  338.             EndProperty
  339.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  340.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":39530
  341.                Key             =   "sc"
  342.             EndProperty
  343.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  344.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":398CA
  345.                Key             =   "sx"
  346.             EndProperty
  347.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  348.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":39C64
  349.                Key             =   "cx"
  350.             EndProperty
  351.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  352.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":39FFE
  353.                Key             =   "zd"
  354.             EndProperty
  355.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  356.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3A398
  357.                Key             =   "dz"
  358.             EndProperty
  359.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  360.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3A732
  361.                Key             =   "ph"
  362.             EndProperty
  363.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  364.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3AACC
  365.                Key             =   "fz"
  366.             EndProperty
  367.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  368.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3AE66
  369.                Key             =   "dw"
  370.             EndProperty
  371.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  372.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3B200
  373.                Key             =   "hf"
  374.             EndProperty
  375.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  376.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3B59A
  377.                Key             =   "pz"
  378.             EndProperty
  379.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  380.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3B934
  381.                Key             =   "check"
  382.             EndProperty
  383.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  384.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3BCCE
  385.                Key             =   "qs"
  386.             EndProperty
  387.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  388.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3C068
  389.                Key             =   "fullcheck"
  390.             EndProperty
  391.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  392.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3C402
  393.                Key             =   "qq"
  394.             EndProperty
  395.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  396.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3C79C
  397.                Key             =   "bcw"
  398.             EndProperty
  399.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  400.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3CB36
  401.                Key             =   "ye"
  402.             EndProperty
  403.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  404.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3CED0
  405.                Key             =   ""
  406.             EndProperty
  407.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  408.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3D26A
  409.                Key             =   "frist"
  410.             EndProperty
  411.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  412.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3D604
  413.                Key             =   "dj"
  414.             EndProperty
  415.          EndProperty
  416.       End
  417.    End
  418.    Begin MSComctlLib.Toolbar SzToolbar 
  419.       Align           =   1  'Align Top
  420.       Height          =   555
  421.       Left            =   0
  422.       TabIndex        =   4
  423.       Top             =   0
  424.       Width           =   11820
  425.       _ExtentX        =   20849
  426.       _ExtentY        =   979
  427.       ButtonWidth     =   820
  428.       ButtonHeight    =   926
  429.       AllowCustomize  =   0   'False
  430.       Appearance      =   1
  431.       Style           =   1
  432.       ImageList       =   "ImageList1"
  433.       _Version        =   393216
  434.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  435.          NumButtons      =   14
  436.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  437.             Caption         =   "设置"
  438.             Key             =   "ymsz"
  439.             ImageKey        =   "sz"
  440.          EndProperty
  441.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  442.             Caption         =   "打印"
  443.             Key             =   "dy"
  444.             ImageKey        =   "dy"
  445.          EndProperty
  446.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  447.             Caption         =   "预览"
  448.             Key             =   "yl"
  449.             ImageKey        =   "yl"
  450.          EndProperty
  451.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  452.             Style           =   3
  453.          EndProperty
  454.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  455.             Caption         =   "查询"
  456.             Key             =   "cx"
  457.             ImageKey        =   "cx"
  458.          EndProperty
  459.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  460.             Caption         =   "单据"
  461.             Key             =   "Bill"
  462.             ImageKey        =   "pz"
  463.          EndProperty
  464.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  465.             Style           =   3
  466.          EndProperty
  467.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  468.             Caption         =   "首张"
  469.             Key             =   "first"
  470.             ImageKey        =   "first"
  471.          EndProperty
  472.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  473.             Caption         =   "上张"
  474.             Key             =   "prev"
  475.             ImageKey        =   "prev"
  476.          EndProperty
  477.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  478.             Caption         =   "下张"
  479.             Key             =   "next"
  480.             ImageKey        =   "next"
  481.          EndProperty
  482.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  483.             Caption         =   "末张"
  484.             Key             =   "last"
  485.             ImageKey        =   "last"
  486.          EndProperty
  487.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  488.             Style           =   3
  489.          EndProperty
  490.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  491.             Caption         =   "帮助"
  492.             Key             =   "bz"
  493.             ImageKey        =   "bz"
  494.          EndProperty
  495.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  496.             Caption         =   "退出"
  497.             Key             =   "fh"
  498.             ImageKey        =   "tc"
  499.          EndProperty
  500.       EndProperty
  501.       BorderStyle     =   1
  502.       Begin MSComctlLib.ImageList ImageList1 
  503.          Left            =   6990
  504.          Top             =   30
  505.          _ExtentX        =   1005
  506.          _ExtentY        =   1005
  507.          BackColor       =   -2147483643
  508.          ImageWidth      =   16
  509.          ImageHeight     =   16
  510.          MaskColor       =   12632256
  511.          _Version        =   393216
  512.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  513.             NumListImages   =   32
  514.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3D99E
  516.                Key             =   "sz"
  517.             EndProperty
  518.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3DD38
  520.                Key             =   "dy"
  521.             EndProperty
  522.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  523.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3E0D2
  524.                Key             =   "yl"
  525.             EndProperty
  526.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  527.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3E46C
  528.                Key             =   "xg"
  529.             EndProperty
  530.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  531.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3E806
  532.                Key             =   "zh"
  533.             EndProperty
  534.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  535.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3EBA0
  536.                Key             =   "sh"
  537.             EndProperty
  538.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  539.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3EF3A
  540.                Key             =   "bc"
  541.             EndProperty
  542.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  543.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3F2D4
  544.                Key             =   "fq"
  545.             EndProperty
  546.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  547.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3F66E
  548.                Key             =   "bz"
  549.             EndProperty
  550.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  551.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3FA08
  552.                Key             =   "tc"
  553.             EndProperty
  554.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  555.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":3FDA2
  556.                Key             =   "bcgs"
  557.             EndProperty
  558.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  559.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":4013C
  560.                Key             =   "mrlk"
  561.             EndProperty
  562.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  563.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":404D6
  564.                Key             =   "xsxm"
  565.             EndProperty
  566.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  567.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":40870
  568.                Key             =   "first"
  569.             EndProperty
  570.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  571.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":40C0A
  572.                Key             =   "prev"
  573.             EndProperty
  574.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  575.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":40FA4
  576.                Key             =   "next"
  577.             EndProperty
  578.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  579.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":4133E
  580.                Key             =   "last"
  581.             EndProperty
  582.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  583.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":416D8
  584.                Key             =   "xx"
  585.             EndProperty
  586.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  587.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":41A72
  588.                Key             =   "define"
  589.             EndProperty
  590.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  591.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":41E0C
  592.                Key             =   "exec"
  593.             EndProperty
  594.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  595.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":421A6
  596.                Key             =   "xz"
  597.             EndProperty
  598.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  599.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":42540
  600.                Key             =   "sc"
  601.             EndProperty
  602.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  603.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":428DA
  604.                Key             =   "sx"
  605.             EndProperty
  606.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  607.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":42C74
  608.                Key             =   "cx"
  609.             EndProperty
  610.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  611.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":4300E
  612.                Key             =   "zd"
  613.             EndProperty
  614.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  615.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":433A8
  616.                Key             =   "dz"
  617.             EndProperty
  618.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  619.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":43742
  620.                Key             =   "ph"
  621.             EndProperty
  622.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  623.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":43ADC
  624.                Key             =   "fz"
  625.             EndProperty
  626.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  627.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":43E76
  628.                Key             =   "dw"
  629.             EndProperty
  630.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  631.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":44210
  632.                Key             =   "hf"
  633.             EndProperty
  634.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  635.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":445AA
  636.                Key             =   "pz"
  637.             EndProperty
  638.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  639.                Picture         =   "包装物管理系统_帐簿统计_包装物台帐查询结果.frx":44944
  640.                Key             =   "check"
  641.             EndProperty
  642.          EndProperty
  643.       End
  644.    End
  645. End
  646. Attribute VB_Name = "Cask_Estrade"
  647. Attribute VB_GlobalNameSpace = False
  648. Attribute VB_Creatable = False
  649. Attribute VB_PredeclaredId = True
  650. Attribute VB_Exposed = False
  651. '**************************************************************************
  652. '*    模 块 名 称 :包装物台帐
  653. '*    功 能 描 述 :
  654. '*    程序员姓名  :邹力
  655. '*    最后修改人  :
  656. '*    最后修改时间:2001/12/11
  657. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  658. '**************************************************************************
  659. Dim ReportTitle As String                '报表主标题
  660. Dim Str_QueryCondi As String             '用户录入查询条件
  661. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  663. '以下为固定使用变量
  664. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  665. Dim GridCode As String                   '显示网格网格代码
  666. Dim GridInf() As Variant                 '整个网格设置信息
  667. Dim Tsxx As String                       '系统提示信息
  668. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  669. Dim Sjhgd As Double                      '网格数据行高度
  670. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  671. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  672. Dim GridStr()  As String                 '网格列信息(字符型)
  673. Dim GridInt() As Integer                 '网格列信息(整型)
  674. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  676. Dim RecStr_Query As New ADODB.Recordset        '查询结果动态集
  677. Dim QueryStr As String
  678. Dim Temp1 As String
  679. Dim Temp2 As String
  681. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  682.     On Error Resume Next
  683.     With CxbbGrid
  684.         .Width = Me.Width - 160
  685.         .Height = Me.Height - .Top - 400
  686.     End With
  687.     With Pic_Title
  688.         .Width = Me.Width - 160
  689.     End With
  690.     
  691.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  693. End Sub
  695. Private Sub Form_Load()                                                   '窗体装入
  696.   
  697.     '调入打印页面设置窗体
  698.     ReportTitle = "包装物台帐"
  699.     XtReportCode = "Cask_Estrade"
  700.     Load Dyymctbl
  701.       
  702.     '调整标题栏及网格、格式工具条位置(Fixed)
  703.     Pic_Title.Left = 40
  704.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  705.     CxbbGrid.Left = Pic_Title.Left
  706.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  707.      
  708.     '调 入 网 格(Fixed)
  709.     GridCode = "Cask_Estrade"
  710.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  711.       
  712.     Qslz = GridInf(1)
  713.     Sjhgd = GridInf(2)
  714.     Sfxshjwg = GridInf(7)
  715.     Szzls = CxbbGrid.Cols - 1
  717. End Sub
  719. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  721.     '卸载条件窗体
  722.     Cask_EstradeQuery.UnloadCheck.Value = 1
  723.     Unload Cask_EstradeQuery
  724.     
  725.     '卸载打印页面设置窗体
  726.     Unload Dyymctbl
  728. End Sub
  730. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  731.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  732. End Sub
  734. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  735.   
  736.     Select Case Button.Key
  737.         Case "bcgs"                                          '保存表格格式
  738.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  739.         Case "hfmrgs"                                        '恢复默认格式
  740.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  741.         Case "szxsxm"                                        '设置显示项目
  742.             Call Szxsxm(CxbbGrid, GridCode)
  743.     End Select
  745. End Sub
  747. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  748.     
  749.     Select Case Button.Key
  750.         Case "ymsz"                                          '页面设置
  751.             Dyymctbl.Show 1
  752.         Case "yl"                                            '预 览
  753.             Call bbyl(True)
  754.         Case "dy"                                            '打 印
  755.             Call bbyl(False)
  756.         Case "cx"                                            '查 询
  757.             Cask_EstradeQuery.Show 1
  758.         Case "Bill"                                          '单 据
  759.             Call CxbbGrid_DblClick
  760.         Case "first"                                         '首 张
  761.             Call Sub_First
  762.         Case "prev"                                          '上 张
  763.             Call Sub_Prev
  764.         Case "next"                                          '下 张
  765.             Call Sub_Next
  766.         Case "last"                                          '末 张
  767.             Call Sub_Last
  768.         Case "bz"                                            '帮 助
  769.             Call F1bz
  770.         Case "fh"                                            '退 出
  771.            Unload Me
  772.     End Select
  774. End Sub
  776. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  777.     
  778.     Timer1.Enabled = False
  779.     Xt_Wait.Show
  780.     Xt_Wait.Refresh
  781.    
  782.     '加快显示速度
  783.     CxbbGrid.Redraw = False
  784.  
  785.     '生成查询结果
  786.     Call Sub_Query(0)
  787.    
  788.     CxbbGrid.Redraw = True
  789.     
  790.     Xt_Wait.Hide
  792. End Sub
  794. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  795.     
  796.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  798.     
  799.     Dim Coljsq As Long                          '网格列计数器
  800.     Dim Jsqte As Long                         '临时动态计数器
  802.     '以下为自定义部分[
  803.     Temp1 = Trim("'" + Replace(Trim(Cask_EstradeQuery.Combo_Kjqj1.Text), ".", "-") + "-01'")
  804.     Sqlstr = "SELECT * FROM Gy_Kjrlb where  KjYear=" & Val(Mid(Trim(Cask_EstradeQuery.Combo_Kjqj2.Text), 1, 4)) & " and  Period=" & Val(Mid(Trim(Cask_EstradeQuery.Combo_Kjqj2.Text), 6, 7))
  805.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  806.     
  807.     Temp2 = Trim("'" & Cxnrrec!ZZRQ & "'")
  808.     
  809.     
  810.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  811.         With Cask_EstradeQuery
  812.          
  813.             '生成查询条件
  814.             Str_QueryCondi = " where HIDate between " & Temp1 & " and " & Temp2
  815.             QueryStr = ""
  816.             For Jsqte = 0 To 4
  817.                 Select Case Jsqte
  818.                     Case 1  '包装物
  819.                         If Trim(.LrText(0).Text) <> "" Then
  820.                             Str_QueryCondi = Str_QueryCondi & " and WrappageCode = '" & Trim(.LrText(0).Tag) & "'"
  821.                             QueryStr = QueryStr & "WrappageCode = '" & Trim(.LrText(0).Tag) & "'"
  822.                         End If
  823.                      Case 2  '仓库
  824.                         If Trim(.LrText(1).Text) <> "" Then
  825.                             Str_QueryCondi = Str_QueryCondi & " And WhCode='" & Trim(.LrText(1).Tag) & "'"
  826.                             If QueryStr <> "" Then
  827.                                 QueryStr = QueryStr & " And WhCode='" & Trim(.LrText(1).Tag) & "'"
  828.                             Else
  829.                                 QueryStr = QueryStr & "WhCode='" & Trim(.LrText(1).Tag) & "'"
  830.                             End If
  831.                         End If
  832.                    Case 3  '类别
  833.                         If Trim(.LrText(2).Text) <> "" Then
  834.                             Str_QueryCondi = Str_QueryCondi & " And SortCode='" & Trim(.LrText(2).Tag) & "'"
  835.                             If QueryStr <> "" Then
  836.                                 QueryStr = QueryStr & " And SortCode='" & Trim(.LrText(2).Tag) & "'"
  837.                             Else
  838.                                 QueryStr = QueryStr & " SortCode='" & Trim(.LrText(2).Tag) & "'"
  839.                             End If
  840.                         End If
  841.                     Case 4  '状态
  842.                         If Trim(.LrText(3).Text) <> "" Then
  843.                             Str_QueryCondi = Str_QueryCondi & " and StatusName= '" & Trim(.LrText(3).Text) & "'"
  844.                             If QueryStr <> "" Then
  845.                                 QueryStr = QueryStr & " and StatusName= '" & Trim(.LrText(3).Text) & "'"
  846.                             Else
  847.                                 QueryStr = QueryStr & "StatusName= '" & Trim(.LrText(3).Text) & "'"
  848.                             End If
  849.                         End If
  850.                 End Select
  851.             Next Jsqte
  852.         End With
  853.     Else
  854.         '1-"刷新"查询
  855.         If Str_QueryCondi = "" Then
  856.             Str_QueryCondi = " where 1=2 "
  857.         End If
  858.     End If
  860.     Sqlstr = "SELECT DISTINCT WrappageCode FROM Cask_V_HarvestIssue " & Str_QueryCondi & " Order By WrappageCode"
  861.     Set RecStr_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  862.     If Not RecStr_Query.EOF Then
  863.         Call ShowValue
  864.     Else
  865.         If Trim(Cask_EstradeQuery.LrText(0).Text) <> "" Then
  866.             Sqlstr = "SELECT Cask_Wrappage.*,Cask_Sort.SortName,Gy_UnitSet.UnitName  " & _
  867.                     "FROM Cask_Wrappage LEFT OUTER JOIN Cask_Sort ON Cask_Wrappage.SortCode =" & _
  868.                     "Cask_Sort.SortCode LEFT OUTER JOIN Gy_UnitSet ON Cask_Wrappage.UnitCode =" & _
  869.                     "Gy_UnitSet.UnitCode where WrappageCode = '" & Trim(Cask_EstradeQuery.LrText(0).Tag) & "'"
  870.             Set RecStr_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  871.             Label2.Caption = Trim(RecStr_Query!WrappageCode & "")      '包装物编码
  872.             Label4.Caption = Trim(RecStr_Query!WrappageName & "")      '包装物名称
  873.             Label6.Caption = Trim(RecStr_Query!UnitName & "")          '计量单位
  874.         Else
  875.             Label2.Caption = ""      '包装物编码
  876.             Label4.Caption = ""      '包装物名称
  877.             Label6.Caption = ""      '计量单位
  878.         End If
  879.         CxbbGrid.Rows = CxbbGrid.FixedRows
  880.     End If
  881. End Sub
  882. Private Sub ShowValue()
  883.     Dim SqlStrTemp1 As String
  884.     Dim SqlStrTemp2 As String
  885.     Dim TempS As String
  886.     Dim TempRecordset As ADODB.Recordset
  887.     Dim SumQuan(5) As Double
  888.     Dim GridID(3) As Long
  889.     
  890.     Sqlstr = "SELECT Cask_Wrappage.WrappageCode,Cask_Wrappage.WrappageName,Gy_UnitSet.UnitName FROM Cask_Wrappage LEFT OUTER JOIN " & _
  891.             "Gy_UnitSet ON Cask_Wrappage.UnitCode = Gy_UnitSet.UnitCode where  WrappageCode='" & Trim(RecStr_Query!WrappageCode) & "' Order By WrappageCode"
  892.     Set TempRecordset = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  894.     Label2.Caption = Trim(TempRecordset!WrappageCode & "")      '包装物编码
  895.     Label4.Caption = Trim(TempRecordset!WrappageName & "")      '包装物名称
  896.     Label6.Caption = Trim(TempRecordset!UnitName & "")          '计量单位
  897.     
  898.     If QueryStr <> "" Then
  899.         SqlStrTemp1 = Temp1 + " and " + QueryStr + " and WrappageCode='" & Trim(RecStr_Query!WrappageCode) & "'"
  900.         SqlStrTemp2 = "HIDate between " & Temp1 & " And " & Temp2 & " and " + QueryStr + " and WrappageCode='" & Trim(RecStr_Query!WrappageCode) & "'"
  901.         TempS = QueryStr + " and WrappageCode='" & Trim(RecStr_Query!WrappageCode) & "'"
  902.     Else
  903.         SqlStrTemp1 = Temp1 + " and WrappageCode='" & Trim(RecStr_Query!WrappageCode) & "'"
  904.         TempS = "WrappageCode='" & Trim(RecStr_Query!WrappageCode) & "'"
  905.         SqlStrTemp2 = "HIDate between " & Temp1 & " And " & Temp2 & " and WrappageCode='" & Trim(RecStr_Query!WrappageCode) & "'"
  906.     End If
  907.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute("Cask_SP_Estrade """ & TempS & """,""< " + SqlStrTemp1 + """,""" + SqlStrTemp2 + """")
  908.     
  909.     With Rec_Query
  910.         CxbbGrid.Rows = CxbbGrid.FixedRows
  911.         Jsqte = CxbbGrid.FixedRows
  912.         Do While Not .EOF
  913.             CxbbGrid.AddItem ""
  914.             '[>>自定义填充内容
  915.             CxbbGrid.TextMatrix(Jsqte, 1) = IIf(!BillCode & "" = "", -1, !BillCode)                                               '单据ID
  916.             CxbbGrid.TextMatrix(Jsqte, 2) = IIf(!BillType & "" = "", -1, !BillType)                                               '单据类型
  917.             If Trim(!HIDate & "") <> "" Then CxbbGrid.TextMatrix(Jsqte, 0) = Mid(Format(Trim(!HIDate & ""), "yyyy-mm-dd"), 1, 7)
  918.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Format(Trim(!HIDate & ""), "yyyy-mm-dd")                  '日期
  919.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(!BillNum & "")                                       '单据号
  920.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(!WhName & "")                                        '仓库
  921.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(!ZYName & "")                                        '摘要
  922.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = IIf(Val(!AmountIn) = 0, "", !AmountIn)                    '入库数量
  923.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = IIf(Val(!AmountOut) = 0, "", !AmountOut)                  '出库数量
  924.             If Jsqte = CxbbGrid.FixedRows Then
  925.                 CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = IIf(Val(!StartQuan) = 0, "", !StartQuan)              '结存数量
  926.             Else
  927.                 CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = IIf(Val(!AmountIn) + Val(CxbbGrid.ValueMatrix(Jsqte - 1, Sydz("007", GridStr(), Szzls))) - Val(!AmountOut) = 0, "", Val(!AmountIn) + Val(CxbbGrid.ValueMatrix(Jsqte - 1, Sydz("007", GridStr(), Szzls))) - Val(!AmountOut)) '结存数量
  928.             End If
  929.             '<<]
  930.             '设置数据行高度(Fixed)
  931.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  932.      
  933.             '动态集指针加1,同时将计数器加1(Fixed)
  934.             .MoveNext
  935.             Jsqte = Jsqte + 1
  936.         Loop
  937.         
  938.         CxbbGrid.Subtotal flexSTSum, 0, Sydz("005", GridStr(), Szzls), , , , , "1"
  939.         CxbbGrid.Subtotal flexSTSum, 0, Sydz("006", GridStr(), Szzls), , , , , "1"
  940.         CxbbGrid.Subtotal flexSTSum, 0, Sydz("007", GridStr(), Szzls), , , , , "1"
  941.         GridID(0) = Sydz("005", GridStr(), Szzls)
  942.         GridID(1) = Sydz("006", GridStr(), Szzls)
  943.         GridID(2) = Sydz("007", GridStr(), Szzls)
  944.         
  945.         For i = CxbbGrid.FixedRows + 1 To CxbbGrid.Rows - 1
  946.             If Trim(CxbbGrid.TextMatrix(i, 0)) = "1" Then GridID(3) = GridID(3) + 1
  947.             '设置数据行高度(Fixed)
  948.             CxbbGrid.RowHeight(i) = Sjhgd
  949.         Next i
  950.             SumQuan(0) = Val(CxbbGrid.ValueMatrix(CxbbGrid.FixedRows, GridID(2)))
  951.         For i = CxbbGrid.FixedRows + 1 To CxbbGrid.Rows - 1 + GridID(3)
  952.             If Trim(CxbbGrid.TextMatrix(i, 0)) = "1" Then
  953.                 CxbbGrid.TextMatrix(i, Sydz("004", GridStr(), Szzls)) = "本月合计"
  954.                 If Val(CxbbGrid.TextMatrix(i, GridID(0))) = 0 Then CxbbGrid.TextMatrix(i, GridID(0)) = ""        '入库数量
  955.                 If Val(CxbbGrid.TextMatrix(i, GridID(1))) = 0 Then CxbbGrid.TextMatrix(i, GridID(1)) = ""        '出库数量
  956.                 SumQuan(1) = Val(CxbbGrid.ValueMatrix(i, GridID(0)))
  957.                 SumQuan(2) = Val(CxbbGrid.ValueMatrix(i, GridID(1)))
  958.                 If i = CxbbGrid.FixedRows + 1 Then
  959.                     CxbbGrid.TextMatrix(i, GridID(2)) = IIf(SumQuan(0) + SumQuan(1) - SumQuan(2) = 0, "", SumQuan(0) + SumQuan(1) - SumQuan(2))  '结存数量
  960.                 Else
  961.                     CxbbGrid.TextMatrix(i, GridID(2)) = IIf(Val(CxbbGrid.ValueMatrix(i - 1, GridID(2))) + SumQuan(1) - SumQuan(2) = 0, "", Val(CxbbGrid.ValueMatrix(i - 1, GridID(2))) + SumQuan(1) - SumQuan(2)) '结存数量
  962.                 End If
  963.                 
  964.                 SumQuan(3) = SumQuan(3) + Val(CxbbGrid.ValueMatrix(i, GridID(0)))
  965.                 SumQuan(4) = SumQuan(4) + Val(CxbbGrid.ValueMatrix(i, GridID(1)))
  966.                 CxbbGrid.TextMatrix(i, GridID(2)) = Val(CxbbGrid.ValueMatrix(i - 1, GridID(2)))
  967.                 SumQuan(5) = Val(CxbbGrid.ValueMatrix(i - 1, GridID(2)))
  968.                 i = i + 1
  969.                 If i = CxbbGrid.Rows - 1 Then
  970.                     CxbbGrid.Rows = CxbbGrid.Rows + 1
  971.                 Else
  972.                     CxbbGrid.AddItem "", i
  973.                 End If
  974.                 '设置数据行高度(Fixed)
  975.                 CxbbGrid.RowHeight(i) = Sjhgd
  977.                 CxbbGrid.TextMatrix(i, 0) = "-2"
  978.                 CxbbGrid.TextMatrix(i, Sydz("004", GridStr(), Szzls)) = "本年累计"
  979.                 CxbbGrid.TextMatrix(i, GridID(0)) = IIf(Val(SumQuan(3)) = 0, "", SumQuan(3))         '入库数量
  980.                 CxbbGrid.TextMatrix(i, GridID(1)) = IIf(Val(SumQuan(4)) = 0, "", SumQuan(4))         '出库数量
  981.                 CxbbGrid.TextMatrix(i, GridID(2)) = IIf(Val(SumQuan(5)) = 0, "", SumQuan(5))         '结存数量
  982.             End If
  983.         Next i
  984.     End With
  986.     ']以上为用户自定义部分
  988. End Sub
  990. '选择首张,上张,下张,末张(此4个过程只需用您的单据ID字段名替换"BillNum"即可)
  991. Private Sub Sub_First()             '首 张
  992.     
  993.     With RecStr_Query
  994.         If .RecordCount = 0 Then
  995.             Exit Sub
  996.         End If
  997.         .MoveFirst
  998.         Call ShowValue
  999.     End With
  1001. End Sub
  1003. Private Sub Sub_Prev()             '上 张
  1004.     
  1005.     With RecStr_Query
  1006.         If .RecordCount = 0 Then
  1007.             Exit Sub
  1008.         End If
  1009.         .MovePrevious
  1010.         If Not .BOF Then
  1011.         Else
  1012.             .MoveNext
  1013.         End If
  1014.         Call ShowValue
  1015.     End With
  1017. End Sub
  1019. Private Sub Sub_Next()             '下 张
  1020.     With RecStr_Query
  1021.         If .RecordCount = 0 Then
  1022.             Exit Sub
  1023.         End If
  1024.         .MoveNext
  1025.         If Not .EOF Then
  1026.         Else
  1027.             .MovePrevious
  1028.         End If
  1029.         Call ShowValue
  1030.     End With
  1032. End Sub
  1034. Private Sub Sub_Last()              '末 张
  1035.     
  1036.     With RecStr_Query
  1037.         If .RecordCount = 0 Then
  1038.             Exit Sub
  1039.         End If
  1040.         .MoveLast
  1041.         Call ShowValue
  1042.     End With
  1044. End Sub
  1045.     
  1047. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  1048.     
  1049.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  1050.     Dim FromTemp As Long                '临时使用动态集
  1052.     '非数据行退出
  1053.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = 0 Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = -1 Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 1 Then
  1054.         Exit Sub
  1055.     End If
  1057.     Sqlstr = "SELECT BillCode From Cask_HarvestIssueMain Where BillCode=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 1))
  1058.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1059.     With RecTemp
  1060.         If .EOF Then
  1061.             Tsxx = "此单据已被其他用户删除!"
  1062.             Call Xtxxts(Tsxx, 0, 4)
  1063.             Exit Sub
  1064.         Else
  1065.             FromTemp = CxbbGrid.TextMatrix(CxbbGrid.Row, 2)
  1066.             
  1067.             '填充查询单据标识
  1068.             Cask_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 1)
  1069.             Xtcdcsfz = Str_QueryCondi
  1070.              '设置单据处理为列表查询(修改)状态
  1071.             Xtcdcs = "3"
  1072.            
  1073.             '调入单据处理窗体
  1074.              Select Case FromTemp
  1075.                 Case 1
  1076.                     Cask_StartInput.Show 1
  1077.                 Case 2, 4
  1078.                     Cask_Harvest.Show 1
  1079.                 Case 3, 5
  1080.                     Cask_Issue.Show 1
  1081.             End Select
  1082.             If Xtfhcs = "1" Then
  1083.                 Tsxx = "出库单发生变化,是否刷新出库单列表?"
  1084.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  1085.                 If yhAnswer = 1 Then
  1086.                     Xt_Wait.Show
  1087.                     Xt_Wait.Refresh
  1088.    
  1089.                     '加快显示速度
  1090.                     CxbbGrid.Redraw = False
  1091.  
  1092.                     '生成查询结果
  1093.                     Call Sub_Query(1)
  1094.    
  1095.                     CxbbGrid.Redraw = True
  1096.                     Xt_Wait.Hide
  1097.                 End If
  1098.             End If
  1099.         End If
  1100.     End With
  1102. End Sub
  1104. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1105.     
  1106.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1107.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1108.     Bbxbtgs = 2                                          '报 表 小 标 题 行 数
  1109.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1110.     ReDim Bbxbt(1 To Bbxbtgs)
  1111.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1112.     If Bbbwhgs <> 0 Then
  1113.         ReDim Bbbwh(1 To Bbbwhgs)
  1114.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1115.     End If
  1116.     Bbzbt = ReportTitle
  1117.       
  1118.     Bbxbt(2) = Space(5) + Trim(Label1.Caption) + Fun_FormatOutPut(Trim(Label2), 20)
  1119.     Bbxbt(2) = Bbxbt(2) + Trim(Label3.Caption) + Fun_FormatOutPut(Trim(Label4), 30)
  1120.     Bbxbt(2) = Bbxbt(2) + Trim(Label5.Caption) + Fun_FormatOutPut(Trim(Label6), 10)
  1121.     Bbxbt(1) = ""
  1122.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1123.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1124.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1125.     If Not bbylte Then
  1126.         Unload DY_Tybbyldy
  1127.     End If
  1129. End Sub