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

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

企业管理

开发平台：

Visual Basic

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