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

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

企业管理

开发平台：

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 CL_AveragePrice 
  5.    Caption         =   "平均单价列表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   130403
  11.    Icon            =   "处理_平均单价计算.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   8595
  15.    ScaleWidth      =   11820
  16.    Begin VB.PictureBox Pic_Title 
  17.       BackColor       =   &H00FFFFFF&
  18.       Height          =   1095
  19.       Left            =   0
  20.       Picture         =   "处理_平均单价计算.frx":1042
  21.       ScaleHeight     =   1035
  22.       ScaleWidth      =   11715
  23.       TabIndex        =   0
  24.       Top             =   570
  25.       Width           =   11775
  26.       Begin VB.Label Lab_Title 
  27.          BackColor       =   &H80000018&
  28.          BackStyle       =   0  'Transparent
  29.          Caption         =   "平均单价列表"
  30.          BeginProperty Font 
  31.             Name            =   "宋体"
  32.             Size            =   12
  33.             Charset         =   134
  34.             Weight          =   700
  35.             Underline       =   0   'False
  36.             Italic          =   0   'False
  37.             Strikethrough   =   0   'False
  38.          EndProperty
  39.          ForeColor       =   &H00000000&
  40.          Height          =   300
  41.          Index           =   4
  42.          Left            =   480
  43.          TabIndex        =   6
  44.          Top             =   210
  45.          Width           =   1575
  46.       End
  47.       Begin VB.Label lbl_TitleMess 
  48.          BackStyle       =   0  'Transparent
  49.          Caption         =   "月份:"
  50.          Height          =   225
  51.          Index           =   0
  52.          Left            =   480
  53.          TabIndex        =   5
  54.          Top             =   750
  55.          Width           =   465
  56.       End
  57.       Begin VB.Label lbl_TitleText 
  58.          BackStyle       =   0  'Transparent
  59.          Caption         =   "Label2"
  60.          Height          =   225
  61.          Index           =   0
  62.          Left            =   990
  63.          TabIndex        =   4
  64.          Top             =   750
  65.          Width           =   1305
  66.       End
  67.       Begin VB.Label lbl_TitleMess 
  68.          BackStyle       =   0  'Transparent
  69.          Caption         =   "仓库:"
  70.          Height          =   225
  71.          Index           =   1
  72.          Left            =   2610
  73.          TabIndex        =   3
  74.          Top             =   750
  75.          Width           =   465
  76.       End
  77.       Begin VB.Label lbl_TitleText 
  78.          BackStyle       =   0  'Transparent
  79.          Caption         =   "Label4"
  80.          Height          =   225
  81.          Index           =   1
  82.          Left            =   3120
  83.          TabIndex        =   2
  84.          Top             =   750
  85.          Width           =   4395
  86.       End
  87.       Begin VB.Label lbl_GridCode 
  88.          Height          =   255
  89.          Left            =   2340
  90.          TabIndex        =   1
  91.          Top             =   210
  92.          Visible         =   0   'False
  93.          Width           =   975
  94.       End
  95.    End
  96.    Begin VB.Timer Timer1 
  97.       Enabled         =   0   'False
  98.       Interval        =   1
  99.       Left            =   7620
  100.       Top             =   90
  101.    End
  102.    Begin MSComctlLib.Toolbar GsToolbar 
  103.       Height          =   525
  104.       Left            =   9360
  105.       TabIndex        =   7
  106.       Top             =   30
  107.       Width           =   2475
  108.       _ExtentX        =   4366
  109.       _ExtentY        =   926
  110.       ButtonWidth     =   1455
  111.       ButtonHeight    =   926
  112.       Appearance      =   1
  113.       Style           =   1
  114.       ImageList       =   "ImageList1"
  115.       _Version        =   393216
  116.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  117.          NumButtons      =   3
  118.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  119.             Caption         =   "保存格式"
  120.             Key             =   "bcgs"
  121.             ImageKey        =   "bcgs"
  122.          EndProperty
  123.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  124.             Caption         =   "默认列宽"
  125.             Key             =   "hfmrgs"
  126.             ImageKey        =   "mrlk"
  127.          EndProperty
  128.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  129.             Caption         =   "显示项目"
  130.             Key             =   "szxsxm"
  131.             ImageKey        =   "xsxm"
  132.          EndProperty
  133.       EndProperty
  134.    End
  135.    Begin MSComctlLib.ImageList ImageList1 
  136.       Left            =   3900
  137.       Top             =   780
  138.       _ExtentX        =   1005
  139.       _ExtentY        =   1005
  140.       BackColor       =   -2147483643
  141.       ImageWidth      =   16
  142.       ImageHeight     =   16
  143.       MaskColor       =   12632256
  144.       _Version        =   393216
  145.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  146.          NumListImages   =   32
  147.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  148.             Picture         =   "处理_平均单价计算.frx":35106
  149.             Key             =   "sz"
  150.          EndProperty
  151.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  152.             Picture         =   "处理_平均单价计算.frx":354A0
  153.             Key             =   "dy"
  154.          EndProperty
  155.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  156.             Picture         =   "处理_平均单价计算.frx":3583A
  157.             Key             =   "yl"
  158.          EndProperty
  159.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  160.             Picture         =   "处理_平均单价计算.frx":35BD4
  161.             Key             =   "xg"
  162.          EndProperty
  163.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  164.             Picture         =   "处理_平均单价计算.frx":35F6E
  165.             Key             =   "zh"
  166.          EndProperty
  167.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  168.             Picture         =   "处理_平均单价计算.frx":36308
  169.             Key             =   "sh"
  170.          EndProperty
  171.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  172.             Picture         =   "处理_平均单价计算.frx":366A2
  173.             Key             =   "bc"
  174.          EndProperty
  175.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  176.             Picture         =   "处理_平均单价计算.frx":36A3C
  177.             Key             =   "fq"
  178.          EndProperty
  179.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  180.             Picture         =   "处理_平均单价计算.frx":36DD6
  181.             Key             =   "bz"
  182.          EndProperty
  183.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  184.             Picture         =   "处理_平均单价计算.frx":37170
  185.             Key             =   "tc"
  186.          EndProperty
  187.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  188.             Picture         =   "处理_平均单价计算.frx":3750A
  189.             Key             =   "bcgs"
  190.          EndProperty
  191.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  192.             Picture         =   "处理_平均单价计算.frx":378A4
  193.             Key             =   "mrlk"
  194.          EndProperty
  195.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  196.             Picture         =   "处理_平均单价计算.frx":37C3E
  197.             Key             =   "xsxm"
  198.          EndProperty
  199.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  200.             Picture         =   "处理_平均单价计算.frx":37FD8
  201.             Key             =   "first"
  202.          EndProperty
  203.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  204.             Picture         =   "处理_平均单价计算.frx":38372
  205.             Key             =   "prev"
  206.          EndProperty
  207.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  208.             Picture         =   "处理_平均单价计算.frx":3870C
  209.             Key             =   "next"
  210.          EndProperty
  211.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  212.             Picture         =   "处理_平均单价计算.frx":38AA6
  213.             Key             =   "last"
  214.          EndProperty
  215.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  216.             Picture         =   "处理_平均单价计算.frx":38E40
  217.             Key             =   "xx"
  218.          EndProperty
  219.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  220.             Picture         =   "处理_平均单价计算.frx":391DA
  221.             Key             =   "define"
  222.          EndProperty
  223.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  224.             Picture         =   "处理_平均单价计算.frx":39574
  225.             Key             =   "exec"
  226.          EndProperty
  227.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  228.             Picture         =   "处理_平均单价计算.frx":3990E
  229.             Key             =   "xz"
  230.          EndProperty
  231.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  232.             Picture         =   "处理_平均单价计算.frx":39CA8
  233.             Key             =   "sc"
  234.          EndProperty
  235.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  236.             Picture         =   "处理_平均单价计算.frx":3A042
  237.             Key             =   "sx"
  238.          EndProperty
  239.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  240.             Picture         =   "处理_平均单价计算.frx":3A3DC
  241.             Key             =   "cx"
  242.          EndProperty
  243.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  244.             Picture         =   "处理_平均单价计算.frx":3A776
  245.             Key             =   "zd"
  246.          EndProperty
  247.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  248.             Picture         =   "处理_平均单价计算.frx":3AB10
  249.             Key             =   "dz"
  250.          EndProperty
  251.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  252.             Picture         =   "处理_平均单价计算.frx":3AEAA
  253.             Key             =   "ph"
  254.          EndProperty
  255.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  256.             Picture         =   "处理_平均单价计算.frx":3B244
  257.             Key             =   "fz"
  258.          EndProperty
  259.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  260.             Picture         =   "处理_平均单价计算.frx":3B5DE
  261.             Key             =   "dw"
  262.          EndProperty
  263.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  264.             Picture         =   "处理_平均单价计算.frx":3B978
  265.             Key             =   "hf"
  266.          EndProperty
  267.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  268.             Picture         =   "处理_平均单价计算.frx":3BD12
  269.             Key             =   "pz"
  270.          EndProperty
  271.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  272.             Picture         =   "处理_平均单价计算.frx":3C0AC
  273.             Key             =   "check"
  274.          EndProperty
  275.       EndProperty
  276.    End
  277.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  278.       Height          =   7305
  279.       Left            =   0
  280.       TabIndex        =   8
  281.       Top             =   1710
  282.       Width           =   11775
  283.       _cx             =   5080
  284.       _cy             =   5080
  285.       Appearance      =   1
  286.       BorderStyle     =   1
  287.       Enabled         =   -1  'True
  288.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  289.          Name            =   "宋体"
  290.          Size            =   9
  291.          Charset         =   134
  292.          Weight          =   400
  293.          Underline       =   0   'False
  294.          Italic          =   0   'False
  295.          Strikethrough   =   0   'False
  296.       EndProperty
  297.       MousePointer    =   0
  298.       BackColor       =   16777215
  299.       ForeColor       =   -2147483640
  300.       BackColorFixed  =   13826538
  301.       ForeColorFixed  =   -2147483630
  302.       BackColorSel    =   -2147483635
  303.       ForeColorSel    =   -2147483634
  304.       BackColorBkg    =   -2147483636
  305.       BackColorAlternate=   16777215
  306.       GridColor       =   -2147483633
  307.       GridColorFixed  =   -2147483632
  308.       TreeColor       =   -2147483632
  309.       FloodColor      =   192
  310.       SheetBorder     =   -2147483642
  311.       FocusRect       =   1
  312.       HighLight       =   1
  313.       AllowSelection  =   -1  'True
  314.       AllowBigSelection=   -1  'True
  315.       AllowUserResizing=   0
  316.       SelectionMode   =   0
  317.       GridLines       =   1
  318.       GridLinesFixed  =   2
  319.       GridLineWidth   =   1
  320.       Rows            =   50
  321.       Cols            =   10
  322.       FixedRows       =   1
  323.       FixedCols       =   1
  324.       RowHeightMin    =   0
  325.       RowHeightMax    =   0
  326.       ColWidthMin     =   0
  327.       ColWidthMax     =   0
  328.       ExtendLastCol   =   0   'False
  329.       FormatString    =   ""
  330.       ScrollTrack     =   0   'False
  331.       ScrollBars      =   3
  332.       ScrollTips      =   0   'False
  333.       MergeCells      =   0
  334.       MergeCompare    =   0
  335.       AutoResize      =   -1  'True
  336.       AutoSizeMode    =   0
  337.       AutoSearch      =   0
  338.       AutoSearchDelay =   2
  339.       MultiTotals     =   -1  'True
  340.       SubtotalPosition=   0
  341.       OutlineBar      =   0
  342.       OutlineCol      =   0
  343.       Ellipsis        =   0
  344.       ExplorerBar     =   0
  345.       PicturesOver    =   0   'False
  346.       FillStyle       =   0
  347.       RightToLeft     =   0   'False
  348.       PictureType     =   0
  349.       TabBehavior     =   0
  350.       OwnerDraw       =   0
  351.       Editable        =   0
  352.       ShowComboButton =   1
  353.       WordWrap        =   0   'False
  354.       TextStyle       =   0
  355.       TextStyleFixed  =   0
  356.       OleDragMode     =   0
  357.       OleDropMode     =   0
  358.       DataMode        =   0
  359.       VirtualData     =   -1  'True
  360.       DataMember      =   ""
  361.       ComboSearch     =   3
  362.       AutoSizeMouse   =   -1  'True
  363.       FrozenRows      =   0
  364.       FrozenCols      =   0
  365.       AllowUserFreezing=   0
  366.       BackColorFrozen =   0
  367.       ForeColorFrozen =   0
  368.       WallPaperAlignment=   9
  369.       AccessibleName  =   ""
  370.       AccessibleDescription=   ""
  371.       AccessibleValue =   ""
  372.       AccessibleRole  =   24
  373.       Begin MSComctlLib.ImageList ImageList2 
  374.          Left            =   0
  375.          Top             =   0
  376.          _ExtentX        =   1005
  377.          _ExtentY        =   1005
  378.          BackColor       =   -2147483643
  379.          ImageWidth      =   16
  380.          ImageHeight     =   16
  381.          MaskColor       =   12632256
  382.          _Version        =   393216
  383.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  384.             NumListImages   =   40
  385.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  386.                Picture         =   "处理_平均单价计算.frx":3C446
  387.                Key             =   "sz"
  388.             EndProperty
  389.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  390.                Picture         =   "处理_平均单价计算.frx":3C4A4
  391.                Key             =   "dy"
  392.             EndProperty
  393.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  394.                Picture         =   "处理_平均单价计算.frx":3C502
  395.                Key             =   "yl"
  396.             EndProperty
  397.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  398.                Picture         =   "处理_平均单价计算.frx":3C560
  399.                Key             =   "xg"
  400.             EndProperty
  401.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  402.                Picture         =   "处理_平均单价计算.frx":3C5BE
  403.                Key             =   "zh"
  404.             EndProperty
  405.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  406.                Picture         =   "处理_平均单价计算.frx":3C61C
  407.                Key             =   "sh"
  408.             EndProperty
  409.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  410.                Picture         =   "处理_平均单价计算.frx":3C67A
  411.                Key             =   "bc"
  412.             EndProperty
  413.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  414.                Picture         =   "处理_平均单价计算.frx":3C6D8
  415.                Key             =   "fq"
  416.             EndProperty
  417.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  418.                Picture         =   "处理_平均单价计算.frx":3C736
  419.                Key             =   "bz"
  420.             EndProperty
  421.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  422.                Picture         =   "处理_平均单价计算.frx":3C794
  423.                Key             =   "tc"
  424.             EndProperty
  425.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  426.                Picture         =   "处理_平均单价计算.frx":3C7F2
  427.                Key             =   "bcgs"
  428.             EndProperty
  429.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  430.                Picture         =   "处理_平均单价计算.frx":3C850
  431.                Key             =   "mrlk"
  432.             EndProperty
  433.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  434.                Picture         =   "处理_平均单价计算.frx":3C8AE
  435.                Key             =   "xsxm"
  436.             EndProperty
  437.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  438.                Picture         =   "处理_平均单价计算.frx":3C90C
  439.                Key             =   "first"
  440.             EndProperty
  441.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.                Picture         =   "处理_平均单价计算.frx":3C96A
  443.                Key             =   "prev"
  444.             EndProperty
  445.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.                Picture         =   "处理_平均单价计算.frx":3C9C8
  447.                Key             =   "next"
  448.             EndProperty
  449.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.                Picture         =   "处理_平均单价计算.frx":3CA26
  451.                Key             =   "last"
  452.             EndProperty
  453.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.                Picture         =   "处理_平均单价计算.frx":3CA84
  455.                Key             =   "xx"
  456.             EndProperty
  457.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.                Picture         =   "处理_平均单价计算.frx":3CAE2
  459.                Key             =   "define"
  460.             EndProperty
  461.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.                Picture         =   "处理_平均单价计算.frx":3CB40
  463.                Key             =   "exec"
  464.             EndProperty
  465.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.                Picture         =   "处理_平均单价计算.frx":3CB9E
  467.                Key             =   "xz"
  468.             EndProperty
  469.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.                Picture         =   "处理_平均单价计算.frx":3CBFC
  471.                Key             =   "sc"
  472.             EndProperty
  473.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.                Picture         =   "处理_平均单价计算.frx":3CC5A
  475.                Key             =   "sx"
  476.             EndProperty
  477.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.                Picture         =   "处理_平均单价计算.frx":3CCB8
  479.                Key             =   "cx"
  480.             EndProperty
  481.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.                Picture         =   "处理_平均单价计算.frx":3CD16
  483.                Key             =   "zd"
  484.             EndProperty
  485.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  486.                Picture         =   "处理_平均单价计算.frx":3CD74
  487.                Key             =   "dz"
  488.             EndProperty
  489.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  490.                Picture         =   "处理_平均单价计算.frx":3CDD2
  491.                Key             =   "ph"
  492.             EndProperty
  493.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  494.                Picture         =   "处理_平均单价计算.frx":3CE30
  495.                Key             =   "fz"
  496.             EndProperty
  497.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  498.                Picture         =   "处理_平均单价计算.frx":3CE8E
  499.                Key             =   "dw"
  500.             EndProperty
  501.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  502.                Picture         =   "处理_平均单价计算.frx":3CEEC
  503.                Key             =   "hf"
  504.             EndProperty
  505.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  506.                Picture         =   "处理_平均单价计算.frx":3CF4A
  507.                Key             =   "pz"
  508.             EndProperty
  509.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  510.                Picture         =   "处理_平均单价计算.frx":3CFA8
  511.                Key             =   "check"
  512.             EndProperty
  513.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  514.                Picture         =   "处理_平均单价计算.frx":3D006
  515.                Key             =   "qs"
  516.             EndProperty
  517.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  518.                Picture         =   "处理_平均单价计算.frx":3D064
  519.                Key             =   "fullcheck"
  520.             EndProperty
  521.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  522.                Picture         =   "处理_平均单价计算.frx":3D0C2
  523.                Key             =   "qq"
  524.             EndProperty
  525.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  526.                Picture         =   "处理_平均单价计算.frx":3D120
  527.                Key             =   "bcw"
  528.             EndProperty
  529.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  530.                Picture         =   "处理_平均单价计算.frx":3D17E
  531.                Key             =   "ye"
  532.             EndProperty
  533.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  534.                Picture         =   "处理_平均单价计算.frx":3D1DC
  535.                Key             =   ""
  536.             EndProperty
  537.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  538.                Picture         =   "处理_平均单价计算.frx":3D23A
  539.                Key             =   "frist"
  540.             EndProperty
  541.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  542.                Picture         =   "处理_平均单价计算.frx":3D298
  543.                Key             =   "dj"
  544.             EndProperty
  545.          EndProperty
  546.       End
  547.    End
  548.    Begin MSComctlLib.Toolbar SzToolbar 
  549.       Align           =   1  'Align Top
  550.       Height          =   555
  551.       Left            =   0
  552.       TabIndex        =   9
  553.       Top             =   0
  554.       Width           =   11820
  555.       _ExtentX        =   20849
  556.       _ExtentY        =   979
  557.       ButtonWidth     =   820
  558.       ButtonHeight    =   926
  559.       AllowCustomize  =   0   'False
  560.       Appearance      =   1
  561.       Style           =   1
  562.       ImageList       =   "ImageList1"
  563.       _Version        =   393216
  564.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  565.          NumButtons      =   8
  566.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  567.             Caption         =   "设置"
  568.             Key             =   "ymsz"
  569.             ImageKey        =   "sz"
  570.          EndProperty
  571.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  572.             Caption         =   "打印"
  573.             Key             =   "dy"
  574.             ImageKey        =   "dy"
  575.          EndProperty
  576.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  577.             Caption         =   "预览"
  578.             Key             =   "yl"
  579.             ImageKey        =   "yl"
  580.          EndProperty
  581.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  582.             Style           =   3
  583.          EndProperty
  584.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  585.             Caption         =   "查询"
  586.             Key             =   "cx"
  587.             ImageKey        =   "cx"
  588.          EndProperty
  589.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  590.             Style           =   3
  591.          EndProperty
  592.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  593.             Caption         =   "帮助"
  594.             Key             =   "bz"
  595.             ImageKey        =   "bz"
  596.          EndProperty
  597.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  598.             Caption         =   "退出"
  599.             Key             =   "fh"
  600.             ImageKey        =   "tc"
  601.          EndProperty
  602.       EndProperty
  603.       BorderStyle     =   1
  604.    End
  605. End
  606. Attribute VB_Name = "CL_AveragePrice"
  607. Attribute VB_GlobalNameSpace = False
  608. Attribute VB_Creatable = False
  609. Attribute VB_PredeclaredId = True
  610. Attribute VB_Exposed = False
  611. '**************************************************************************
  612. '*    模 块 名 称 :平均单价列表
  613. '*    功 能 描 述 :
  614. '*    程序员姓名  :杨波
  615. '*    最后修改人  :杨波
  616. '*    最后修改时间:2001/12/5
  617. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  618. '**************************************************************************
  619. Dim ReportTitle As String                '报表主标题
  620. Dim Str_QueryCondi As String             '用户录入查询条件
  621. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  623. '以下为固定使用变量
  624. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  625. Dim GridCode As String                   '显示网格网格代码
  626. Dim GridInf() As Variant                 '整个网格设置信息
  627. Dim Tsxx As String                       '系统提示信息
  628. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  629. Dim Sjhgd As Double                      '网格数据行高度
  630. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  631. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  632. Dim GridStr()  As String                 '网格列信息(字符型)
  633. Dim GridInt() As Integer                 '网格列信息(整型)
  634. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  637. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  638.     On Error Resume Next
  639.     With CxbbGrid
  640.         .Width = Me.Width - 160
  641.         .Height = Me.Height - .Top - 400
  642.     End With
  643.     With Pic_Title
  644.         .Width = Me.Width - 160
  645.     End With
  646.     
  647.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  649. End Sub
  651. Private Sub Form_Load()                                                   '窗体装入
  652.   
  653.     '调入打印页面设置窗体
  654.     ReportTitle = "平均单价列表"
  655.     XtReportCode = "Chhs_AveragePrice"
  656.     Load Dyymctbl
  657.       
  658.     '调整标题栏及网格、格式工具条位置(Fixed)
  659.     Pic_Title.Left = 40
  660.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  661.     CxbbGrid.Left = Pic_Title.Left
  662.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  663.      
  664.     '调 入 网 格(Fixed)
  665.     GridCode = "Chhs_AveragePrice2"
  666.     lbl_GridCode = GridCode
  667.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  668.       
  669.     Qslz = GridInf(1)
  670.     Sjhgd = GridInf(2)
  671.     Sfxshjwg = GridInf(7)
  672.     Szzls = CxbbGrid.Cols - 1
  673.     
  674.     Lbl_TitleText(0) = ""
  675.     Lbl_TitleText(1) = ""
  677. End Sub
  679. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  681.     '卸载条件窗体
  682.     CL_AveragePriceFind.UnloadCheck.Value = 1
  683.     Unload CL_AveragePriceFind
  684.     
  685.     '卸载打印页面设置窗体
  686.     Unload Dyymctbl
  688. End Sub
  690. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  691.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  692. End Sub
  694. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  695.   
  696.     Select Case Button.Key
  697.         Case "bcgs"                                          '保存表格格式
  698.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  699.         Case "hfmrgs"                                        '恢复默认格式
  700.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  701.         Case "szxsxm"                                        '设置显示项目
  702.             Call Szxsxm(CxbbGrid, GridCode)
  703.     End Select
  705. End Sub
  709. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  710.     
  711.     Select Case Button.Key
  712.         Case "ymsz"                                          '页面设置
  713.             Dyymctbl.Show 1
  714.         Case "yl"                                            '预 览
  715.             Call bbyl(True)
  716.         Case "dy"                                            '打 印
  717.             Call bbyl(False)
  718.         Case "cx"                                            '查 询
  719.             CL_AveragePriceFind.Show 1
  720.         Case "bz"                                            '帮 助
  721.             Call F1bz
  722.         Case "fh"                                            '退 出
  723.            Unload Me
  724.     End Select
  726. End Sub
  728. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  729.     
  730.     Timer1.Enabled = False
  731.     Xt_Wait.Show
  732.     Xt_Wait.Refresh
  733.     
  734.     '调 入 网 格
  735.     If Not GridCode = lbl_GridCode Then
  736.         GridCode = lbl_GridCode
  737.         Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  738.           
  739.         Qslz = GridInf(1)
  740.         Sjhgd = GridInf(2)
  741.         Sfxshjwg = GridInf(7)
  742.         Szzls = CxbbGrid.Cols - 1
  743.     End If
  744.     
  745.     '加快显示速度
  746.     CxbbGrid.Redraw = False
  747.  
  748.     '生成查询结果
  749.     Call Sub_Query
  750.    
  751.     CxbbGrid.Redraw = True
  752.     
  753.     Xt_Wait.Hide
  755. End Sub
  757. Private Sub Sub_Query()                                     '生成查询结果(Define)
  758.     
  759.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  760.     Dim Coljsq As Long                          '网格列计数器
  761.     Dim Jsqte As Integer                        '临时动态计数器
  762.     
  763.     Dim Rec_Queryfz As New ADODB.Recordset
  764.     Dim SumInQuan As Double                     '入库合计数量
  765.     Dim SumInMoney As Double                    '入库合计金额
  766.     Dim SumOutQuan As Double                    '发出合计数量
  767.     Dim SumOutMoney As Double                   '发出合计金额
  768.     Dim Avgprice As Double                      '平均单价
  769.     Dim SqlStr As String
  770.     Dim FindRow As Long
  771.     
  772.     '以下为自定义部分[
  773.     
  774.     With CL_AveragePriceFind
  775.      
  776.         '生成查询条件
  777.         Str_QueryCondi = " WHERE KjYear='" & Xtyear & "' and Period='" & .Com_Month.ItemData(.Com_Month.ListIndex) & "' "
  778.         
  779.         For Jsqte = 1 To 3
  780.             Select Case Jsqte
  781.                 Case 1  '仓库
  782.                     Str_QueryCondi = Str_QueryCondi + " and a.WhCode='" & Trim(.LrText(0).Tag) & "'"
  783.                 Case 2  '存货名称
  784.                     If Trim(.LrText(1).Text) <> "" Then
  785.                         Str_QueryCondi = Str_QueryCondi + " and a.MNumber >= '" & Trim(.LrText(1).Text) & "'"
  786.                     End If
  787.                 Case 3  '存货名称
  788.                     If Trim(.LrText(2).Text) <> "" Then
  789.                         Str_QueryCondi = Str_QueryCondi + " and a.MNumber <= '" & Trim(.LrText(2).Text) & "'"
  790.                     End If
  791.             End Select
  792.         Next Jsqte
  793.         
  794.     End With
  795.         
  796.     With CxbbGrid
  797.     
  798.         .Rows = .FixedRows
  799.         If lbl_GridCode = "Chhs_AveragePrice2" Then    '当前月份
  800.             SqlStr = "SELECT MNumber,MName,Model,StartQuan,StartMoney FROM Chhs_V_Mate a " + Str_QueryCondi + " ORDER BY Chhs_V_Mate.MNumber"
  801.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  802.             
  803.             Do While Not Rec_Query.EOF
  804.                 .AddItem ""
  805.                 Jsqte = .Rows - 1
  806.                 .RowHeight(Jsqte) = Sjhgd
  807.                 
  808.                 .TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MNumber") & "")    '存货编码
  809.                 .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MName") & "")      '存货名称
  810.                 .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(Rec_Query.Fields("Model") & "")      '规格型号
  811.                 If Not Rec_Query.Fields("StartQuan") = 0 Then
  812.                     .TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Rec_Query.Fields("StartQuan")         '期初数量
  813.                 End If
  814.                 If Not Rec_Query.Fields("StartMoney") = 0 Then
  815.                     .TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Rec_Query.Fields("StartMoney")        '期初金额
  816.                 End If
  817.                 
  818.                 Rec_Query.MoveNext
  819.             Loop
  820.        
  821.        
  822.             '收发记录表 填充出入数量、金额
  823.             If SFjezt Then                           '系统处理实发金额字填
  824.                 SqlStr = "SELECT MNumber,MName,Model,SUM(FactReceiptQuan) AS SumInQuan, " & _
  825.                     " SUM(Emoney) AS SumInMoney,SUM(FactIssueQuan) AS SumOutQuan, " & _
  826.                     " SUM(IssueMoney) AS SumOutMoney FROM Chhs_V_InOut a " + Str_QueryCondi & _
  827.                     " and (a.InOutFlag=1 or (a.InOutFlag=0 and a.IssueMoney<>0)) " & _
  828.                     " GROUP BY MNumber,MName,Model ORDER BY MNumber"
  829.             Else
  830.                 SqlStr = "SELECT MNumber,MName,Model,SUM(FactReceiptQuan) AS SumInQuan, " & _
  831.                     " SUM(Emoney) AS SumInMoney,SUM(FactIssueQuan) AS SumOutQuan, " & _
  832.                     " SUM(IssueMoney) AS SumOutMoney  FROM Chhs_V_InOut a " + Str_QueryCondi & _
  833.                     " and a.InOutFlag=1 GROUP BY MNumber,MName, Model ORDER BY MNumber"
  834.             End If
  835.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  836.             
  837.             Do While Not Rec_Query.EOF
  838.         
  839.                 '查询相同的物料
  840.                 FindRow = .FindRow(Trim(Rec_Query.Fields("MNumber")), .FixedRows, 0)
  841.               
  842.                 If FindRow > 0 Then
  843.                     Jsqte = FindRow
  844.                 Else
  845.                     .AddItem ""
  846.                     Jsqte = .Rows - 1
  847.                     .RowHeight(Jsqte) = Sjhgd
  848.                     
  849.                     .TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MNumber") & "")   '存货编码
  850.                     .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MName") & "")     '存货名称
  851.                     .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(Rec_Query.Fields("Model") & "")     '规格型号
  852.                 End If
  853.               
  854.                 If Not Val(Rec_Query.Fields("SumInQuan")) = 0 Then
  855.                     .TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Val(Rec_Query.Fields("SumInQuan"))       '本月入库数量
  856.                 End If
  857.                 If Not Val(Rec_Query.Fields("SumInMoney")) = 0 Then
  858.                     .TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Val(Rec_Query.Fields("SumInMoney"))      '本月入库金额
  859.                 End If
  860.               
  861.                 If Not Val(Rec_Query.Fields("SumOutQuan")) = 0 Then
  862.                     .TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Val(Rec_Query.Fields("SumOutQuan"))      '本月出库调整数量
  863.                 End If
  864.                 If Not Val(Rec_Query.Fields("SumOutMoney")) = 0 Then
  865.                     .TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Val(Rec_Query.Fields("SumOutMoney"))     '本月出库调整金额
  866.                 End If
  867.                 
  868.                 Rec_Query.MoveNext
  869.             Loop
  870.                 
  871.             
  872.             '计算平均单价
  873.             For Jsqte = .FixedRows To .Rows - 1
  874.                 
  875.                 SumInMoney = 0
  876.                 SumInQuan = 0
  877.                 SumOutMoney = 0
  878.                 SumOutQuan = 0
  879.                 Avgprice = 0
  880.         
  881.                 '出入库调整单、暂估单
  882.                 If Xtclzg Then          '平均单价计算是否包括暂估
  883.                     SqlStr = "SELECT Sum(InQuan) as SumInQuan,Sum(InMoney) as SumInMoney," & _
  884.                              " Sum(OutQuan) as SumOutQuan,Sum(OutMoney) as SumOutMoney FROM Chhs_List a" + Str_QueryCondi & _
  885.                              " and a.MNumber='" & Trim(.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls))) & "' " & _
  886.                              " and StartFlag=0 and BillCode in ('1301','1302','1304','1305','1306')"
  887.                 Else
  888.                     SqlStr = "SELECT Sum(InQuan) as SumInQuan,Sum(InMoney) as SumInMoney," & _
  889.                              " Sum(OutQuan) as SumOutQuan,Sum(OutMoney) as SumOutMoney FROM Chhs_List a" + Str_QueryCondi & _
  890.                              " and a.MNumber='" & Trim(.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls))) & "' " & _
  891.                              " and StartFlag=0 and BillCode in ('1301','1302')"
  892.                 End If
  893.                 Set Rec_Queryfz = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  894.              
  895.                 If Not Rec_Queryfz.EOF Then
  896.                     If Not IsNull(Rec_Queryfz.Fields("SumInQuan")) Then
  897.                         .TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Val(.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls))) + Val(Rec_Queryfz.Fields("SumInQuan"))         '本月入库数量
  898.                     End If
  899.                     If Not IsNull(Rec_Queryfz.Fields("SumInMoney")) Then
  900.                         .TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Val(.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls))) + Val(Rec_Queryfz.Fields("SumInMoney"))        '本月入库金额
  901.                     End If
  902.                     If Not IsNull(Rec_Queryfz.Fields("SumOutQuan")) Then
  903.                         .TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Val(.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls))) + Val(Rec_Queryfz.Fields("SumOutQuan"))        '本月出库调整数量
  904.                     End If
  905.                     If Not IsNull(Rec_Queryfz.Fields("SumOutMoney")) Then
  906.                         .TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Val(.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls))) + Val(Rec_Queryfz.Fields("SumOutMoney"))       '本月出库调整金额
  907.                     End If
  908.                 End If
  909.                 
  910.                 SumInQuan = Val(.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls))) + Val(.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)))
  911.                 SumInMoney = Val(.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls))) + Val(.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)))
  912.                 SumOutQuan = Val(.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)))
  913.                 SumOutMoney = Val(.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)))
  914.                 If Not SumInQuan - SumOutQuan = 0 Then
  915.                     Avgprice = (SumInMoney - SumOutMoney) / (SumInQuan - SumOutQuan)
  916.                 End If
  917.                 
  918.                 If Not Avgprice = 0 Then
  919.                     .TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Avgprice
  920.                 End If
  921.                 If SumInQuan = 0 Then
  922.                     .TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = ""
  923.                 End If
  924.                 If SumInMoney = 0 Then
  925.                     .TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = ""
  926.                 End If
  927.                 If SumOutQuan = 0 Then
  928.                     .TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = ""
  929.                 End If
  930.                 If SumOutMoney = 0 Then
  931.                     .TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = ""
  932.                 End If
  933.              
  934.             Next Jsqte
  935.     
  936.         Else                        '以前月份和期末处理完毕,在总帐视图中取数据（以前在总帐中取数据）
  937.     
  938.             SqlStr = "SELECT MNumber,MName,StartMoney,InMoney,OutMoney,OutPrice FROM Chhs_V_Mate a" + Str_QueryCondi + "AND OutPrice<>0 ORDER BY Chhs_V_Mate.MNumber"
  939.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  940.             
  941.             Do While Not Rec_Query.EOF
  942.                 .AddItem ""
  943.                 Jsqte = .Rows - 1
  944.                 .TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MNumber") & "")
  945.                 .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(Rec_Query.Fields("MName"))
  946.                 .TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Val(Rec_Query.Fields("StartMoney")) + Val(Rec_Query.Fields("InMoney")) - Val(Rec_Query.Fields("OutMoney"))
  947.                 .TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Val(Rec_Query.Fields("OutPrice"))
  948.                 .RowHeight(Jsqte) = Sjhgd
  949.                 Rec_Query.MoveNext
  950.             Loop
  951.         End If
  952.         
  953.     End With
  954.     
  955.     Set Rec_Query = Nothing
  956.     Set Rec_Queryfz = Nothing
  957.     ']以上为用户自定义部分
  959. End Sub
  961. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  962.     
  963.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  964.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  965.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  966.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  967.     ReDim Bbxbt(1 To Bbxbtgs)
  968.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  969.     If Bbbwhgs <> 0 Then
  970.         ReDim Bbbwh(1 To Bbbwhgs)
  971.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  972.     End If
  973.     Bbzbt = ReportTitle
  974.     Bbxbt(1) = Fun_FormatOutPut("月份:" + Lbl_TitleText(0), 30)
  975.     Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut("仓库:" + Lbl_TitleText(1), 30)
  976.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  977.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  978.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  979.     If Not bbylte Then
  980.         Unload DY_Tybbyldy
  981.     End If
  983. End Sub