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

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

企业管理

开发平台：

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 Cg_IntegrationList 
  5.    Caption         =   "综合统计分析"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   1109004
  11.    Icon            =   "采购系统_综合统计查询结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   11820
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   525
  20.       Left            =   9405
  21.       TabIndex        =   3
  22.       Top             =   15
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   926
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   926
  28.       Appearance      =   1
  29.       Style           =   1
  30.       ImageList       =   "ImageList2"
  31.       _Version        =   393216
  32.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  33.          NumButtons      =   3
  34.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  35.             Caption         =   "保存格式"
  36.             Key             =   "bcgs"
  37.             ImageKey        =   "bcgs"
  38.          EndProperty
  39.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  40.             Caption         =   "默认列宽"
  41.             Key             =   "hfmrgs"
  42.             ImageKey        =   "mrlk"
  43.          EndProperty
  44.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  45.             Caption         =   "显示项目"
  46.             Key             =   "szxsxm"
  47.             ImageKey        =   "xsxm"
  48.          EndProperty
  49.       EndProperty
  50.    End
  51.    Begin VB.PictureBox Pic_Title 
  52.       BackColor       =   &H00FFFFFF&
  53.       Height          =   1365
  54.       Left            =   30
  55.       Picture         =   "采购系统_综合统计查询结果.frx":1042
  56.       ScaleHeight     =   1305
  57.       ScaleWidth      =   11775
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11835
  61.       Begin VB.Label Lbl_Tslabel 
  62.          AutoSize        =   -1  'True
  63.          BackStyle       =   0  'Transparent
  64.          Caption         =   "统计方式:"
  65.          Height          =   180
  66.          Index           =   6
  67.          Left            =   8460
  68.          TabIndex        =   18
  69.          Top             =   990
  70.          Width           =   810
  71.       End
  72.       Begin VB.Label Lbl_Xslabel 
  73.          BackStyle       =   0  'Transparent
  74.          Height          =   180
  75.          Index           =   6
  76.          Left            =   9390
  77.          TabIndex        =   17
  78.          Top             =   990
  79.          Width           =   1275
  80.       End
  81.       Begin VB.Label Lbl_Xslabel 
  82.          BackStyle       =   0  'Transparent
  83.          Height          =   180
  84.          Index           =   5
  85.          Left            =   5130
  86.          TabIndex        =   16
  87.          Top             =   990
  88.          Width           =   1275
  89.       End
  90.       Begin VB.Label Lbl_Tslabel 
  91.          AutoSize        =   -1  'True
  92.          BackStyle       =   0  'Transparent
  93.          Caption         =   "业务员:"
  94.          Height          =   180
  95.          Index           =   5
  96.          Left            =   4320
  97.          TabIndex        =   15
  98.          Top             =   990
  99.          Width           =   630
  100.       End
  101.       Begin VB.Label Lbl_Xslabel 
  102.          BackStyle       =   0  'Transparent
  103.          Height          =   180
  104.          Index           =   4
  105.          Left            =   840
  106.          TabIndex        =   14
  107.          Top             =   990
  108.          Width           =   1275
  109.       End
  110.       Begin VB.Label Lbl_Tslabel 
  111.          AutoSize        =   -1  'True
  112.          BackStyle       =   0  'Transparent
  113.          Caption         =   "部门:"
  114.          Height          =   180
  115.          Index           =   4
  116.          Left            =   240
  117.          TabIndex        =   13
  118.          Top             =   990
  119.          Width           =   450
  120.       End
  121.       Begin VB.Label Lbl_Tslabel 
  122.          BackStyle       =   0  'Transparent
  123.          Caption         =   "—"
  124.          BeginProperty Font 
  125.             Name            =   "宋体"
  126.             Size            =   26.25
  127.             Charset         =   134
  128.             Weight          =   400
  129.             Underline       =   0   'False
  130.             Italic          =   0   'False
  131.             Strikethrough   =   0   'False
  132.          EndProperty
  133.          Height          =   315
  134.          Index           =   1
  135.          Left            =   2070
  136.          TabIndex        =   12
  137.          Top             =   540
  138.          Width           =   525
  139.       End
  140.       Begin VB.Label Lbl_Tslabel 
  141.          AutoSize        =   -1  'True
  142.          BackStyle       =   0  'Transparent
  143.          Caption         =   "物料名称:"
  144.          Height          =   180
  145.          Index           =   3
  146.          Left            =   8460
  147.          TabIndex        =   11
  148.          Top             =   690
  149.          Width           =   810
  150.       End
  151.       Begin VB.Label Lbl_Xslabel 
  152.          BackStyle       =   0  'Transparent
  153.          Height          =   180
  154.          Index           =   3
  155.          Left            =   9390
  156.          TabIndex        =   10
  157.          Top             =   690
  158.          Width           =   1275
  159.       End
  160.       Begin VB.Label Lbl_Xslabel 
  161.          BackStyle       =   0  'Transparent
  162.          Height          =   180
  163.          Index           =   2
  164.          Left            =   5130
  165.          TabIndex        =   9
  166.          Top             =   690
  167.          Width           =   3015
  168.       End
  169.       Begin VB.Label Lbl_Tslabel 
  170.          AutoSize        =   -1  'True
  171.          BackStyle       =   0  'Transparent
  172.          Caption         =   "供应商:"
  173.          Height          =   180
  174.          Index           =   2
  175.          Left            =   4320
  176.          TabIndex        =   8
  177.          Top             =   690
  178.          Width           =   630
  179.       End
  180.       Begin VB.Label Lbl_Xslabel 
  181.          BackStyle       =   0  'Transparent
  182.          Height          =   180
  183.          Index           =   1
  184.          Left            =   2790
  185.          TabIndex        =   7
  186.          Top             =   720
  187.          Width           =   885
  188.       End
  189.       Begin VB.Label Lbl_Xslabel 
  190.          BackStyle       =   0  'Transparent
  191.          Height          =   180
  192.          Index           =   0
  193.          Left            =   840
  194.          TabIndex        =   6
  195.          Top             =   720
  196.          Width           =   1035
  197.       End
  198.       Begin VB.Label Lbl_Tslabel 
  199.          AutoSize        =   -1  'True
  200.          BackStyle       =   0  'Transparent
  201.          Caption         =   "日期:"
  202.          Height          =   180
  203.          Index           =   0
  204.          Left            =   240
  205.          TabIndex        =   5
  206.          Top             =   720
  207.          Width           =   450
  208.       End
  209.       Begin VB.Label Lab_Title 
  210.          BackColor       =   &H80000018&
  211.          BackStyle       =   0  'Transparent
  212.          Caption         =   "综合统计分析"
  213.          BeginProperty Font 
  214.             Name            =   "宋体"
  215.             Size            =   12
  216.             Charset         =   134
  217.             Weight          =   700
  218.             Underline       =   0   'False
  219.             Italic          =   0   'False
  220.             Strikethrough   =   0   'False
  221.          EndProperty
  222.          ForeColor       =   &H00000000&
  223.          Height          =   300
  224.          Index           =   4
  225.          Left            =   480
  226.          TabIndex        =   2
  227.          Top             =   210
  228.          Width           =   2715
  229.       End
  230.    End
  231.    Begin VB.Timer Timer1 
  232.       Enabled         =   0   'False
  233.       Interval        =   1
  234.       Left            =   7620
  235.       Top             =   90
  236.    End
  237.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  238.       Height          =   6915
  239.       Left            =   30
  240.       TabIndex        =   0
  241.       Top             =   1980
  242.       Width           =   11835
  243.       _cx             =   5080
  244.       _cy             =   5080
  245.       Appearance      =   1
  246.       BorderStyle     =   1
  247.       Enabled         =   -1  'True
  248.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  249.          Name            =   "宋体"
  250.          Size            =   9
  251.          Charset         =   134
  252.          Weight          =   400
  253.          Underline       =   0   'False
  254.          Italic          =   0   'False
  255.          Strikethrough   =   0   'False
  256.       EndProperty
  257.       MousePointer    =   0
  258.       BackColor       =   16777215
  259.       ForeColor       =   -2147483640
  260.       BackColorFixed  =   13826538
  261.       ForeColorFixed  =   -2147483630
  262.       BackColorSel    =   -2147483635
  263.       ForeColorSel    =   -2147483634
  264.       BackColorBkg    =   -2147483636
  265.       BackColorAlternate=   16777215
  266.       GridColor       =   -2147483633
  267.       GridColorFixed  =   -2147483632
  268.       TreeColor       =   -2147483632
  269.       FloodColor      =   192
  270.       SheetBorder     =   -2147483642
  271.       FocusRect       =   1
  272.       HighLight       =   1
  273.       AllowSelection  =   -1  'True
  274.       AllowBigSelection=   -1  'True
  275.       AllowUserResizing=   0
  276.       SelectionMode   =   0
  277.       GridLines       =   1
  278.       GridLinesFixed  =   2
  279.       GridLineWidth   =   1
  280.       Rows            =   50
  281.       Cols            =   10
  282.       FixedRows       =   1
  283.       FixedCols       =   1
  284.       RowHeightMin    =   0
  285.       RowHeightMax    =   0
  286.       ColWidthMin     =   0
  287.       ColWidthMax     =   0
  288.       ExtendLastCol   =   0   'False
  289.       FormatString    =   ""
  290.       ScrollTrack     =   0   'False
  291.       ScrollBars      =   3
  292.       ScrollTips      =   0   'False
  293.       MergeCells      =   0
  294.       MergeCompare    =   0
  295.       AutoResize      =   -1  'True
  296.       AutoSizeMode    =   0
  297.       AutoSearch      =   0
  298.       AutoSearchDelay =   2
  299.       MultiTotals     =   -1  'True
  300.       SubtotalPosition=   1
  301.       OutlineBar      =   0
  302.       OutlineCol      =   0
  303.       Ellipsis        =   0
  304.       ExplorerBar     =   0
  305.       PicturesOver    =   0   'False
  306.       FillStyle       =   0
  307.       RightToLeft     =   0   'False
  308.       PictureType     =   0
  309.       TabBehavior     =   0
  310.       OwnerDraw       =   0
  311.       Editable        =   0
  312.       ShowComboButton =   1
  313.       WordWrap        =   0   'False
  314.       TextStyle       =   0
  315.       TextStyleFixed  =   0
  316.       OleDragMode     =   0
  317.       OleDropMode     =   0
  318.       DataMode        =   0
  319.       VirtualData     =   -1  'True
  320.       DataMember      =   ""
  321.       ComboSearch     =   3
  322.       AutoSizeMouse   =   -1  'True
  323.       FrozenRows      =   0
  324.       FrozenCols      =   0
  325.       AllowUserFreezing=   0
  326.       BackColorFrozen =   0
  327.       ForeColorFrozen =   0
  328.       WallPaperAlignment=   9
  329.       AccessibleName  =   ""
  330.       AccessibleDescription=   ""
  331.       AccessibleValue =   ""
  332.       AccessibleRole  =   24
  333.       Begin MSComctlLib.ImageList ImageList2 
  334.          Left            =   0
  335.          Top             =   0
  336.          _ExtentX        =   1005
  337.          _ExtentY        =   1005
  338.          BackColor       =   -2147483643
  339.          ImageWidth      =   16
  340.          ImageHeight     =   16
  341.          MaskColor       =   12632256
  342.          _Version        =   393216
  343.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  344.             NumListImages   =   40
  345.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  346.                Picture         =   "采购系统_综合统计查询结果.frx":35106
  347.                Key             =   "sz"
  348.             EndProperty
  349.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  350.                Picture         =   "采购系统_综合统计查询结果.frx":354A0
  351.                Key             =   "dy"
  352.             EndProperty
  353.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  354.                Picture         =   "采购系统_综合统计查询结果.frx":3583A
  355.                Key             =   "yl"
  356.             EndProperty
  357.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  358.                Picture         =   "采购系统_综合统计查询结果.frx":35BD4
  359.                Key             =   "xg"
  360.             EndProperty
  361.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  362.                Picture         =   "采购系统_综合统计查询结果.frx":35F6E
  363.                Key             =   "zh"
  364.             EndProperty
  365.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  366.                Picture         =   "采购系统_综合统计查询结果.frx":36308
  367.                Key             =   "sh"
  368.             EndProperty
  369.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  370.                Picture         =   "采购系统_综合统计查询结果.frx":366A2
  371.                Key             =   "bc"
  372.             EndProperty
  373.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  374.                Picture         =   "采购系统_综合统计查询结果.frx":36A3C
  375.                Key             =   "fq"
  376.             EndProperty
  377.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  378.                Picture         =   "采购系统_综合统计查询结果.frx":36DD6
  379.                Key             =   "bz"
  380.             EndProperty
  381.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  382.                Picture         =   "采购系统_综合统计查询结果.frx":37170
  383.                Key             =   "tc"
  384.             EndProperty
  385.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  386.                Picture         =   "采购系统_综合统计查询结果.frx":3750A
  387.                Key             =   "bcgs"
  388.             EndProperty
  389.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  390.                Picture         =   "采购系统_综合统计查询结果.frx":378A4
  391.                Key             =   "mrlk"
  392.             EndProperty
  393.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  394.                Picture         =   "采购系统_综合统计查询结果.frx":37C3E
  395.                Key             =   "xsxm"
  396.             EndProperty
  397.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  398.                Picture         =   "采购系统_综合统计查询结果.frx":37FD8
  399.                Key             =   "first"
  400.             EndProperty
  401.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  402.                Picture         =   "采购系统_综合统计查询结果.frx":38372
  403.                Key             =   "prev"
  404.             EndProperty
  405.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  406.                Picture         =   "采购系统_综合统计查询结果.frx":3870C
  407.                Key             =   "next"
  408.             EndProperty
  409.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  410.                Picture         =   "采购系统_综合统计查询结果.frx":38AA6
  411.                Key             =   "last"
  412.             EndProperty
  413.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  414.                Picture         =   "采购系统_综合统计查询结果.frx":38E40
  415.                Key             =   "xx"
  416.             EndProperty
  417.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  418.                Picture         =   "采购系统_综合统计查询结果.frx":391DA
  419.                Key             =   "define"
  420.             EndProperty
  421.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  422.                Picture         =   "采购系统_综合统计查询结果.frx":39574
  423.                Key             =   "exec"
  424.             EndProperty
  425.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  426.                Picture         =   "采购系统_综合统计查询结果.frx":3990E
  427.                Key             =   "xz"
  428.             EndProperty
  429.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  430.                Picture         =   "采购系统_综合统计查询结果.frx":39CA8
  431.                Key             =   "sc"
  432.             EndProperty
  433.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  434.                Picture         =   "采购系统_综合统计查询结果.frx":3A042
  435.                Key             =   "sx"
  436.             EndProperty
  437.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  438.                Picture         =   "采购系统_综合统计查询结果.frx":3A3DC
  439.                Key             =   "cx"
  440.             EndProperty
  441.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.                Picture         =   "采购系统_综合统计查询结果.frx":3A776
  443.                Key             =   "zd"
  444.             EndProperty
  445.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.                Picture         =   "采购系统_综合统计查询结果.frx":3AB10
  447.                Key             =   "dz"
  448.             EndProperty
  449.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.                Picture         =   "采购系统_综合统计查询结果.frx":3AEAA
  451.                Key             =   "ph"
  452.             EndProperty
  453.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.                Picture         =   "采购系统_综合统计查询结果.frx":3B244
  455.                Key             =   "fz"
  456.             EndProperty
  457.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.                Picture         =   "采购系统_综合统计查询结果.frx":3B5DE
  459.                Key             =   "dw"
  460.             EndProperty
  461.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.                Picture         =   "采购系统_综合统计查询结果.frx":3B978
  463.                Key             =   "hf"
  464.             EndProperty
  465.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.                Picture         =   "采购系统_综合统计查询结果.frx":3BD12
  467.                Key             =   "pz"
  468.             EndProperty
  469.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.                Picture         =   "采购系统_综合统计查询结果.frx":3C0AC
  471.                Key             =   "check"
  472.             EndProperty
  473.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.                Picture         =   "采购系统_综合统计查询结果.frx":3C446
  475.                Key             =   "qs"
  476.             EndProperty
  477.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.                Picture         =   "采购系统_综合统计查询结果.frx":3C7E0
  479.                Key             =   "fullcheck"
  480.             EndProperty
  481.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.                Picture         =   "采购系统_综合统计查询结果.frx":3CB7A
  483.                Key             =   "qq"
  484.             EndProperty
  485.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  486.                Picture         =   "采购系统_综合统计查询结果.frx":3CF14
  487.                Key             =   "bcw"
  488.             EndProperty
  489.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  490.                Picture         =   "采购系统_综合统计查询结果.frx":3D2AE
  491.                Key             =   "ye"
  492.             EndProperty
  493.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  494.                Picture         =   "采购系统_综合统计查询结果.frx":3D648
  495.                Key             =   ""
  496.             EndProperty
  497.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  498.                Picture         =   "采购系统_综合统计查询结果.frx":3D9E2
  499.                Key             =   "frist"
  500.             EndProperty
  501.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  502.                Picture         =   "采购系统_综合统计查询结果.frx":3DD7C
  503.                Key             =   "dj"
  504.             EndProperty
  505.          EndProperty
  506.       End
  507.    End
  508.    Begin MSComctlLib.Toolbar SzToolbar 
  509.       Align           =   1  'Align Top
  510.       Height          =   555
  511.       Left            =   0
  512.       TabIndex        =   4
  513.       Top             =   0
  514.       Width           =   11820
  515.       _ExtentX        =   20849
  516.       _ExtentY        =   979
  517.       ButtonWidth     =   820
  518.       ButtonHeight    =   926
  519.       AllowCustomize  =   0   'False
  520.       Appearance      =   1
  521.       Style           =   1
  522.       ImageList       =   "ImageList1"
  523.       _Version        =   393216
  524.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  525.          NumButtons      =   12
  526.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  527.             Caption         =   "设置"
  528.             Key             =   "ymsz"
  529.             ImageKey        =   "sz"
  530.          EndProperty
  531.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  532.             Caption         =   "打印"
  533.             Key             =   "dy"
  534.             ImageKey        =   "dy"
  535.          EndProperty
  536.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  537.             Caption         =   "预览"
  538.             Key             =   "yl"
  539.             ImageKey        =   "yl"
  540.          EndProperty
  541.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  542.             Style           =   3
  543.          EndProperty
  544.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  545.             Caption         =   "查询"
  546.             Key             =   "cx"
  547.             ImageKey        =   "cx"
  548.          EndProperty
  549.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  550.             Enabled         =   0   'False
  551.             Object.Visible         =   0   'False
  552.             Caption         =   "单据"
  553.             Key             =   "Bill"
  554.             ImageKey        =   "pz"
  555.          EndProperty
  556.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  557.             Enabled         =   0   'False
  558.             Object.Visible         =   0   'False
  559.             Style           =   3
  560.          EndProperty
  561.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  562.             Enabled         =   0   'False
  563.             Object.Visible         =   0   'False
  564.             Caption         =   "新增"
  565.             Key             =   "xz"
  566.             ImageKey        =   "xz"
  567.          EndProperty
  568.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  569.             Enabled         =   0   'False
  570.             Object.Visible         =   0   'False
  571.             Caption         =   "删除"
  572.             Key             =   "sc"
  573.             ImageKey        =   "sc"
  574.          EndProperty
  575.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  576.             Style           =   3
  577.          EndProperty
  578.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  579.             Caption         =   "帮助"
  580.             Key             =   "bz"
  581.             ImageKey        =   "bz"
  582.          EndProperty
  583.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  584.             Caption         =   "退出"
  585.             Key             =   "fh"
  586.             ImageKey        =   "tc"
  587.          EndProperty
  588.       EndProperty
  589.       BorderStyle     =   1
  590.       Begin MSComctlLib.ImageList ImageList1 
  591.          Left            =   6990
  592.          Top             =   30
  593.          _ExtentX        =   1005
  594.          _ExtentY        =   1005
  595.          BackColor       =   -2147483643
  596.          ImageWidth      =   16
  597.          ImageHeight     =   16
  598.          MaskColor       =   12632256
  599.          _Version        =   393216
  600.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  601.             NumListImages   =   32
  602.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  603.                Picture         =   "采购系统_综合统计查询结果.frx":3E116
  604.                Key             =   "sz"
  605.             EndProperty
  606.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  607.                Picture         =   "采购系统_综合统计查询结果.frx":3E4B0
  608.                Key             =   "dy"
  609.             EndProperty
  610.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  611.                Picture         =   "采购系统_综合统计查询结果.frx":3E84A
  612.                Key             =   "yl"
  613.             EndProperty
  614.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  615.                Picture         =   "采购系统_综合统计查询结果.frx":3EBE4
  616.                Key             =   "xg"
  617.             EndProperty
  618.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  619.                Picture         =   "采购系统_综合统计查询结果.frx":3EF7E
  620.                Key             =   "zh"
  621.             EndProperty
  622.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  623.                Picture         =   "采购系统_综合统计查询结果.frx":3F318
  624.                Key             =   "sh"
  625.             EndProperty
  626.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  627.                Picture         =   "采购系统_综合统计查询结果.frx":3F6B2
  628.                Key             =   "bc"
  629.             EndProperty
  630.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  631.                Picture         =   "采购系统_综合统计查询结果.frx":3FA4C
  632.                Key             =   "fq"
  633.             EndProperty
  634.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  635.                Picture         =   "采购系统_综合统计查询结果.frx":3FDE6
  636.                Key             =   "bz"
  637.             EndProperty
  638.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  639.                Picture         =   "采购系统_综合统计查询结果.frx":40180
  640.                Key             =   "tc"
  641.             EndProperty
  642.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  643.                Picture         =   "采购系统_综合统计查询结果.frx":4051A
  644.                Key             =   "bcgs"
  645.             EndProperty
  646.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  647.                Picture         =   "采购系统_综合统计查询结果.frx":408B4
  648.                Key             =   "mrlk"
  649.             EndProperty
  650.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  651.                Picture         =   "采购系统_综合统计查询结果.frx":40C4E
  652.                Key             =   "xsxm"
  653.             EndProperty
  654.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  655.                Picture         =   "采购系统_综合统计查询结果.frx":40FE8
  656.                Key             =   "first"
  657.             EndProperty
  658.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  659.                Picture         =   "采购系统_综合统计查询结果.frx":41382
  660.                Key             =   "prev"
  661.             EndProperty
  662.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  663.                Picture         =   "采购系统_综合统计查询结果.frx":4171C
  664.                Key             =   "next"
  665.             EndProperty
  666.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  667.                Picture         =   "采购系统_综合统计查询结果.frx":41AB6
  668.                Key             =   "last"
  669.             EndProperty
  670.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  671.                Picture         =   "采购系统_综合统计查询结果.frx":41E50
  672.                Key             =   "xx"
  673.             EndProperty
  674.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  675.                Picture         =   "采购系统_综合统计查询结果.frx":421EA
  676.                Key             =   "define"
  677.             EndProperty
  678.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  679.                Picture         =   "采购系统_综合统计查询结果.frx":42584
  680.                Key             =   "exec"
  681.             EndProperty
  682.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  683.                Picture         =   "采购系统_综合统计查询结果.frx":4291E
  684.                Key             =   "xz"
  685.             EndProperty
  686.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  687.                Picture         =   "采购系统_综合统计查询结果.frx":42CB8
  688.                Key             =   "sc"
  689.             EndProperty
  690.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  691.                Picture         =   "采购系统_综合统计查询结果.frx":43052
  692.                Key             =   "sx"
  693.             EndProperty
  694.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  695.                Picture         =   "采购系统_综合统计查询结果.frx":433EC
  696.                Key             =   "cx"
  697.             EndProperty
  698.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  699.                Picture         =   "采购系统_综合统计查询结果.frx":43786
  700.                Key             =   "zd"
  701.             EndProperty
  702.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  703.                Picture         =   "采购系统_综合统计查询结果.frx":43B20
  704.                Key             =   "dz"
  705.             EndProperty
  706.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  707.                Picture         =   "采购系统_综合统计查询结果.frx":43EBA
  708.                Key             =   "ph"
  709.             EndProperty
  710.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  711.                Picture         =   "采购系统_综合统计查询结果.frx":44254
  712.                Key             =   "fz"
  713.             EndProperty
  714.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  715.                Picture         =   "采购系统_综合统计查询结果.frx":445EE
  716.                Key             =   "dw"
  717.             EndProperty
  718.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  719.                Picture         =   "采购系统_综合统计查询结果.frx":44988
  720.                Key             =   "hf"
  721.             EndProperty
  722.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  723.                Picture         =   "采购系统_综合统计查询结果.frx":44D22
  724.                Key             =   "pz"
  725.             EndProperty
  726.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  727.                Picture         =   "采购系统_综合统计查询结果.frx":450BC
  728.                Key             =   "check"
  729.             EndProperty
  730.          EndProperty
  731.       End
  732.    End
  733. End
  734. Attribute VB_Name = "Cg_IntegrationList"
  735. Attribute VB_GlobalNameSpace = False
  736. Attribute VB_Creatable = False
  737. Attribute VB_PredeclaredId = True
  738. Attribute VB_Exposed = False
  739. '**************************************************************************
  740. '*    模 块 名 称 :综合统计分析
  741. '*    功 能 描 述 :
  742. '*    程序员姓名  :李海祥
  743. '*    最后修改人  :李海祥
  744. '*    最后修改时间:2001/10/06
  745. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  746. '**************************************************************************
  747. Dim ReportTitle As String                '报表主标题
  748. Dim Str_QueryCondi As String             '用户录入查询条件
  749. Dim Str_QueryInvoice As String           '发票查询条件
  750. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  752. '以下为固定使用变量
  753. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  754. Dim GridCode As String                   '显示网格网格代码
  755. Dim GridInf() As Variant                 '整个网格设置信息
  756. Dim Tsxx As String                       '系统提示信息
  757. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  758. Dim Sjhgd As Double                      '网格数据行高度
  759. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  760. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  761. Dim GridStr()  As String                 '网格列信息(字符型)
  762. Dim GridInt() As Integer                 '网格列信息(整型)
  763. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  765. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  766.     On Error Resume Next
  767.     With CxbbGrid
  768.         .Width = Me.Width - 160
  769.         .Height = Me.Height - .Top - 400
  770.     End With
  771.     With Pic_Title
  772.         .Width = Me.Width - 160
  773.     End With
  774.     
  775.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  777. End Sub
  779. Private Sub Form_Load()                                                   '窗体装入
  780.   
  781.     '调入打印页面设置窗体
  782.     ReportTitle = "综合统计分析"
  783.     XtReportCode = "Cg_Integration"
  784.     Load Dyymctbl
  785.       
  786.     '调整标题栏及网格、格式工具条位置(Fixed)
  787.     Pic_Title.Left = 40
  788.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  789.     CxbbGrid.Left = Pic_Title.Left
  790.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  791.      
  792.     '调 入 网 格(Fixed)
  793.     GridCode = "Cg_Integration1"
  794.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  795.       
  796.     Qslz = GridInf(1)
  797.     Sjhgd = GridInf(2)
  798.     Sfxshjwg = GridInf(7)
  799.     Szzls = CxbbGrid.Cols - 1
  801. End Sub
  803. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  805.     '卸载条件窗体
  806.     Cg_IntegrationQuery.UnloadCheck.Value = 1
  807.     Unload Cg_IntegrationQuery
  808.     
  809.     '卸载打印页面设置窗体
  810.     Unload Dyymctbl
  812. End Sub
  814. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  815.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  816. End Sub
  818. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  819.   
  820.     Select Case Button.Key
  821.         Case "bcgs"                                          '保存表格格式
  822.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  823.         Case "hfmrgs"                                        '恢复默认格式
  824.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  825.         Case "szxsxm"                                        '设置显示项目
  826.             Call Szxsxm(CxbbGrid, GridCode)
  827.     End Select
  829. End Sub
  831. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  832.     
  833.     Select Case Button.Key
  834.         Case "ymsz"                                          '页面设置
  835.             Dyymctbl.Show 1
  836.         Case "yl"                                            '预 览
  837.             Call bbyl(True)
  838.         Case "dy"                                            '打 印
  839.             Call bbyl(False)
  840.         Case "cx"                                            '查 询
  841.             Cg_IntegrationQuery.Show 1
  842.         Case "bz"                                            '帮 助
  843.             Call F1bz
  844.         Case "fh"                                            '退 出
  845.            Unload Me
  846.     End Select
  848. End Sub
  850. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  851.     
  852.     Timer1.Enabled = False
  853.     Xt_Wait.Show
  854.     Xt_Wait.Refresh
  855.    
  856.     '加快显示速度
  857.     CxbbGrid.Redraw = False
  858.  
  859.     '生成查询结果
  860.     Call Sub_Query
  861.    
  862.     CxbbGrid.Redraw = True
  863.     
  864.     Xt_Wait.Hide
  866. End Sub
  868. Private Sub Sub_Query()                                     '生成查询结果(Define)
  869.     
  870.     
  871.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  872.     Dim Coljsq As Long                          '网格列计数器
  873.     Dim jsqte As Long                           '临时动态计数器
  874.     Dim Int_Tjfs As Integer                     '统计方式
  875.     '以下为自定义部分[
  876.      Dim Number As Long
  877.     Dim Str_Query1 As String
  878.     Dim Str_Query2 As String
  879.     Str_Query1 = ""
  880.     Str_Query2 = ""
  881.     
  882.     With Cg_IntegrationQuery
  883.         '生成查询条件
  884.         Str_QueryCondi = " where Checker<>'' "
  885.         Str_QueryInvoice = " where Checker<>'' "
  886.         For jsqte = 1 To 9
  887.             Select Case jsqte
  888.                 Case 1  '日期(起)
  889.                     If Trim(.LrText(0).Text) <> "" Then
  890.                         Str_QueryCondi = Str_QueryCondi & " And PurReciptDate >='" & Trim(.LrText(0).Text) & "'"
  891.                         Str_QueryInvoice = Str_QueryInvoice & " And InvoiceDate >='" & Trim(.LrText(0).Text) & "'"
  892.                         Me.Lbl_Xslabel(0).Caption = Trim(.LrText(0).Text)
  893.                     Else
  894.                         Me.Lbl_Xslabel(0).Caption = ""
  895.                     End If
  896.                 Case 2  '日期(止)
  897.                     If Trim(.LrText(1).Text) <> "" Then
  898.                         Str_QueryCondi = Str_QueryCondi & " and PurReciptDate <='" & Trim(.LrText(1).Text) & "'"
  899.                         Str_QueryInvoice = Str_QueryInvoice & " and InvoiceDate <='" & Trim(.LrText(1).Text) & "'"
  900.                         Me.Lbl_Xslabel(1).Caption = Trim(.LrText(1).Text)
  901.                     Else
  902.                         Me.Lbl_Xslabel(1).Caption = ""
  903.                     End If
  904.                 Case 3  '供应商
  905.                     If Trim(.LrText(2).Text) <> "" Then
  906.                         Str_QueryCondi = Str_QueryCondi & " and SupplierCode =  '" & Trim(.LrText(2).Tag) & "'"
  907.                         Str_QueryInvoice = Str_QueryInvoice & " and SupplierCode =  '" & Trim(.LrText(2).Tag) & "'"
  908.                         Me.Lbl_Xslabel(2).Caption = Trim(.LrText(2).Text)
  909.                     Else
  910.                         Me.Lbl_Xslabel(2).Caption = ""
  911.                     End If
  912.                 
  913.                 Case 4  '采购物料分类
  914.                     If Trim(.LrText(3).Text) <> "" Then
  916.                         Str_Query1 = " and PurSortCode like '" & Trim(.LrText(3).Tag) & "%'"
  917.                     End If
  918.                 Case 5  '物料名称
  919.                     If Trim(.LrText(4).Text) <> "" Then
  921.                         Str_Query1 = Str_Query1 & " and MNumber = '" & Trim(.LrText(4).Tag) & "'"
  922.                         Me.Lbl_Xslabel(3).Caption = Trim(.LrText(4).Text)
  923.                     Else
  924.                         Me.Lbl_Xslabel(3).Caption = ""
  925.                     End If
  926.                 Case 6  '部门
  927.                     If Trim(.LrText(5).Text) <> "" Then
  929.                         Str_Query1 = Str_Query1 & " And DeptCode='" & Trim(.LrText(5).Tag) & "'"
  930.                         Me.Lbl_Xslabel(4).Caption = Trim(.LrText(5).Text)
  931.                     Else
  932.                         Me.Lbl_Xslabel(4).Caption = ""
  933.                     End If
  934.                 Case 7  '业务员
  935.                     If Trim(.LrText(6).Text) <> "" Then
  936.                         Str_Query2 = Str_Query2 & " And PersonCode='" & Trim(.LrText(6).Tag) & "'"
  937.                         Me.Lbl_Xslabel(5).Caption = Trim(.LrText(6).Text)
  938.                     Else
  939.                         Me.Lbl_Xslabel(5).Caption = ""
  940.                     End If
  941.                 Case 8  '运输方式
  942.                     If Trim(.LrText(7).Text) <> "" Then
  943.                         Str_Query2 = Str_Query2 & " And TransferWayCode='" & Trim(.LrText(7).Tag) & "'"
  944.                     End If
  945.                 Case 9  '统计方式
  946.                     If .Opt_Tjfs(0).Value Then
  947.                         Int_Tjfs = 0
  948.                         Me.Lbl_Xslabel(6).Caption = "按供应商"
  949.                     ElseIf .Opt_Tjfs(1).Value Then
  950.                         Int_Tjfs = 1
  951.                         Me.Lbl_Xslabel(6).Caption = "按部门"
  952.                     ElseIf .Opt_Tjfs(2).Value Then
  953.                         Int_Tjfs = 2
  954.                         Me.Lbl_Xslabel(6).Caption = "按业务员"
  955.                     Else
  956.                         Int_Tjfs = 3
  957.                         Me.Lbl_Xslabel(6).Caption = "按物料"
  958.                     End If
  959.             End Select
  960.         Next jsqte
  961.     End With
  962.     
  963.     Select Case Int_Tjfs
  964.         Case 0
  965.             '重新调入网格
  966.             GridCode = "Cg_Integration1"
  967.             Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  968.         
  969.             Qslz = GridInf(1)
  970.             Sjhgd = GridInf(2)
  971.             Sfxshjwg = GridInf(7)
  972.             Szzls = CxbbGrid.Cols - 1
  973.             '查询记录
  974.             If Trim(Str_Query1) <> "" And Trim(Str_Query2) <> "" Then
  975.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,""" & Str_Query1 & """,""" & Str_Query2 & """,1"
  976.             ElseIf Trim(Str_Query1) = "" And Trim(Str_Query2) <> "" Then
  977.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,'',""" & Str_Query2 & """,1"
  978.             ElseIf Trim(Str_Query1) <> "" And Trim(Str_Query2) = "" Then
  979.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,""" & Str_Query1 & """,'',1"
  980.             Else
  981.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,'','',1"
  982.             End If
  983.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  984.             With Rec_Query
  985.                CxbbGrid.Rows = CxbbGrid.FixedRows
  986.                jsqte = CxbbGrid.FixedRows
  987.                Do While Not .EOF
  988.                   If jsqte >= CxbbGrid.Rows Then
  989.                      CxbbGrid.AddItem ""
  990.                   End If
  991.                        '[>>自定义填充内容
  992.                                                                    
  993.                     CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("SupplierCode") & "")              '供应商编码
  994.                     CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")              '供应商名称
  995.                     CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")                   '物料编码
  996.                     CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                     '物料名称
  997.                     CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                     '规格型号
  998.                     CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("PurUnitName") & "")               '计量单位
  999.                     CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("SumReciptQuan") & "")             '收料数量
  1000.                     CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("TotalReciptMoney") & "")          '收料金额
  1001.                     CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("SumInvoiceQuan") & "")            '发票数量
  1002.                     CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("TotalInvoiceMoneyYb") & "")       '发票金额原币
  1003.                     CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("TotalInvoiceMoneyBb") & "")       '发票金额本币
  1004.                     '<<]
  1005.                     '设置数据行高度(Fixed)
  1006.                     CxbbGrid.RowHeight(jsqte) = Sjhgd
  1007.              
  1008.                     '动态集指针加1,同时将计数器加1(Fixed)
  1009.                     .MoveNext
  1010.                     jsqte = jsqte + 1
  1011.                 Loop
  1012.             End With
  1013.         Case 1
  1014.             '重新调入网格
  1015.             GridCode = "Cg_Integration2"
  1016.             Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  1017.         
  1018.             Qslz = GridInf(1)
  1019.             Sjhgd = GridInf(2)
  1020.             Sfxshjwg = GridInf(7)
  1021.             Szzls = CxbbGrid.Cols - 1
  1022.             '查询记录
  1023.             If Trim(Str_Query1) <> "" And Trim(Str_Query2) <> "" Then
  1024.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,""" & Str_Query1 & """,""" & Str_Query2 & """,2"
  1025.             ElseIf Trim(Str_Query1) = "" And Trim(Str_Query2) <> "" Then
  1026.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,'',""" & Str_Query2 & """,2"
  1027.             ElseIf Trim(Str_Query1) <> "" And Trim(Str_Query2) = "" Then
  1028.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,""" & Str_Query1 & """,'',2"
  1029.             Else
  1030.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,'','',2"
  1031.             End If
  1032.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1033.             With Rec_Query
  1034.                CxbbGrid.Rows = CxbbGrid.FixedRows
  1035.                jsqte = CxbbGrid.FixedRows
  1036.                Do While Not .EOF
  1037.                   If jsqte >= CxbbGrid.Rows Then
  1038.                      CxbbGrid.AddItem ""
  1039.                   End If
  1040.                        '[>>自定义填充内容
  1041.                                                                    
  1042.                     CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("DeptCode") & "")              '部门编码
  1043.                     CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")              '部门名称
  1044.                     CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")               '物料编码
  1045.                     CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                 '物料名称
  1046.                     CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                 '规格型号
  1047.                     CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("PurUnitName") & "")           '计量单位
  1048.                     CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("SumReciptQuan") & "")         '收料数量
  1049.                     CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("TotalReciptMoney") & "")      '收料金额
  1050.                     CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("SumInvoiceQuan") & "")        '发票数量
  1051.                     CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("TotalInvoiceMoneyYb") & "")   '发票金额原币
  1052.                     CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("TotalInvoiceMoneyBb") & "")   '发票金额本币
  1053.                     '<<]
  1054.                     '设置数据行高度(Fixed)
  1055.                     CxbbGrid.RowHeight(jsqte) = Sjhgd
  1056.              
  1057.                     '动态集指针加1,同时将计数器加1(Fixed)
  1058.                     .MoveNext
  1059.                     jsqte = jsqte + 1
  1060.                 Loop
  1061.             End With
  1062.         Case 2
  1063.             '重新调入网格
  1064.             GridCode = "Cg_Integration3"
  1065.             Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  1066.         
  1067.             Qslz = GridInf(1)
  1068.             Sjhgd = GridInf(2)
  1069.             Sfxshjwg = GridInf(7)
  1070.             Szzls = CxbbGrid.Cols - 1
  1071.             '查询记录
  1072.             If Trim(Str_Query1) <> "" And Trim(Str_Query2) <> "" Then
  1073.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,""" & Str_Query1 & """,""" & Str_Query2 & """,3"
  1074.             ElseIf Trim(Str_Query1) = "" And Trim(Str_Query2) <> "" Then
  1075.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,'',""" & Str_Query2 & """,3"
  1076.             ElseIf Trim(Str_Query1) <> "" And Trim(Str_Query2) = "" Then
  1077.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,""" & Str_Query1 & """,'',3"
  1078.             Else
  1079.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,'','',3"
  1080.             End If
  1081.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1082.             With Rec_Query
  1083.                CxbbGrid.Rows = CxbbGrid.FixedRows
  1084.                jsqte = CxbbGrid.FixedRows
  1085.                Do While Not .EOF
  1086.                   If jsqte >= CxbbGrid.Rows Then
  1087.                      CxbbGrid.AddItem ""
  1088.                   End If
  1089.                        '[>>自定义填充内容
  1090.                                                                    
  1091.                     CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("PersonCode") & "")            '业务员编码
  1092.                     CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")            '业务员名称
  1093.                     CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")               '物料编码
  1094.                     CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                 '物料名称
  1095.                     CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                 '规格型号
  1096.                     CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("PurUnitName") & "")           '计量单位
  1097.                     CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("SumReciptQuan") & "")         '收料数量
  1098.                     CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("TotalReciptMoney") & "")      '收料金额
  1099.                     CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("SumInvoiceQuan") & "")        '发票数量
  1100.                     CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("TotalInvoiceMoneyYb") & "")   '发票金额原币
  1101.                     CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("TotalInvoiceMoneyBb") & "")   '发票金额本币
  1102.                     '<<]
  1103.                     '设置数据行高度(Fixed)
  1104.                     CxbbGrid.RowHeight(jsqte) = Sjhgd
  1105.              
  1106.                     '动态集指针加1,同时将计数器加1(Fixed)
  1107.                     .MoveNext
  1108.                     jsqte = jsqte + 1
  1109.                 Loop
  1110.             End With
  1111.         Case 3
  1112.             '重新调入网格
  1113.             GridCode = "Cg_Integration4"
  1114.             Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  1115.         
  1116.             Qslz = GridInf(1)
  1117.             Sjhgd = GridInf(2)
  1118.             Sfxshjwg = GridInf(7)
  1119.             Szzls = CxbbGrid.Cols - 1
  1120.             '查询记录
  1121.             If Trim(Str_Query1) <> "" And Trim(Str_Query2) <> "" Then
  1122.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,""" & Str_Query1 & """,""" & Str_Query2 & """,4"
  1123.             ElseIf Trim(Str_Query1) = "" And Trim(Str_Query2) <> "" Then
  1124.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,'',""" & Str_Query2 & """,4"
  1125.             ElseIf Trim(Str_Query1) <> "" And Trim(Str_Query2) = "" Then
  1126.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,""" & Str_Query1 & """,'',4"
  1127.             Else
  1128.                 Sqlstr = "CG_SP_Integration """ & Str_QueryCondi & """,""" & Str_QueryInvoice & """,'','',4"
  1129.             End If
  1130.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1131.             With Rec_Query
  1132.                CxbbGrid.Rows = CxbbGrid.FixedRows
  1133.                jsqte = CxbbGrid.FixedRows
  1134.                Do While Not .EOF
  1135.                   If jsqte >= CxbbGrid.Rows Then
  1136.                      CxbbGrid.AddItem ""
  1137.                   End If
  1138.                        '[>>自定义填充内容
  1139.                     CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")                   '物料编码
  1140.                     CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                     '物料名称
  1141.                     CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                     '规格型号
  1142.                     CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("PurUnitName") & "")               '计量单位
  1143.                     CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("SumReciptQuan") & "")             '收料数量
  1144.                     CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("TotalReciptMoney") & "")          '收料金额
  1145.                     CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("SumInvoiceQuan") & "")            '发票数量
  1146.                     CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("TotalInvoiceMoneyYb") & "")       '发票金额原币
  1147.                     CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("TotalInvoiceMoneyBb") & "")       '发票金额本币
  1148.                     '<<]
  1149.                     '设置数据行高度(Fixed)
  1150.                     CxbbGrid.RowHeight(jsqte) = Sjhgd
  1151.              
  1152.                     '动态集指针加1,同时将计数器加1(Fixed)
  1153.                     .MoveNext
  1154.                     jsqte = jsqte + 1
  1155.                 Loop
  1156.             End With
  1157.         
  1158.     End Select
  1159. ''''''''''    ']以上为用户自定义部分
  1161. End Sub
  1163. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1164.     
  1165.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1166.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1167.     Bbxbtgs = 3                                             '报 表 小 标 题 行 数
  1168.     Bbbwhgs = 0                                             '报 表 表 尾 行 数
  1169.     ReDim Bbxbt(1 To Bbxbtgs)
  1170.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1171.     If Bbbwhgs <> 0 Then
  1172.         ReDim Bbbwh(1 To Bbbwhgs)
  1173.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1174.     End If
  1175.     Bbzbt = ReportTitle
  1176.     Bbxbt(1) = ""
  1177.     Bbxbt(2) = Space(4) + Fun_FormatOutPut(Me.Lbl_Tslabel(0) + Me.Lbl_Xslabel(0), 10)
  1178.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Me.Lbl_Tslabel(1) + Me.Lbl_Xslabel(1), 20) + Fun_FormatOutPut(Me.Lbl_Tslabel(2) + Me.Lbl_Xslabel(2), 20)
  1179.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Me.Lbl_Tslabel(3) + Me.Lbl_Xslabel(3), 20)
  1180.     Bbxbt(3) = Space(4) + Fun_FormatOutPut(Me.Lbl_Tslabel(4) + Me.Lbl_Xslabel(4), 20)
  1181.     Bbxbt(3) = Bbxbt(3) + Fun_FormatOutPut(Me.Lbl_Tslabel(5) + Me.Lbl_Xslabel(5), 20)
  1182.     Bbxbt(3) = Bbxbt(3) + Fun_FormatOutPut(Me.Lbl_Tslabel(6) + Me.Lbl_Xslabel(6), 20)
  1183.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1184.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1185.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1186.     If Not bbylte Then
  1187.         Unload DY_Tybbyldy
  1188.     End If
  1190. End Sub