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

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

企业管理

开发平台：

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 KF_FrmInoutSum 
  5.    Caption         =   "收发类别汇总表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   1219003
  11.    Icon            =   "统计分析_收发类别汇总.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   11820
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   525
  20.       Left            =   9330
  21.       TabIndex        =   3
  22.       Top             =   30
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   926
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   926
  28.       Appearance      =   1
  29.       Style           =   1
  30.       ImageList       =   "ImageList2"
  31.       _Version        =   393216
  32.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  33.          NumButtons      =   3
  34.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  35.             Caption         =   "保存格式"
  36.             Key             =   "bcgs"
  37.             ImageKey        =   "bcgs"
  38.          EndProperty
  39.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  40.             Caption         =   "默认列宽"
  41.             Key             =   "hfmrgs"
  42.             ImageKey        =   "mrlk"
  43.          EndProperty
  44.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  45.             Caption         =   "显示项目"
  46.             Key             =   "szxsxm"
  47.             ImageKey        =   "xsxm"
  48.          EndProperty
  49.       EndProperty
  50.    End
  51.    Begin VB.PictureBox Pic_Title 
  52.       BackColor       =   &H00FFFFFF&
  53.       Height          =   1050
  54.       Left            =   0
  55.       Picture         =   "统计分析_收发类别汇总.frx":1042
  56.       ScaleHeight     =   990
  57.       ScaleWidth      =   11715
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11775
  61.       Begin VB.Label Label1 
  62.          AutoSize        =   -1  'True
  63.          BackStyle       =   0  'Transparent
  64.          Caption         =   "仓库名称:"
  65.          Height          =   195
  66.          Left            =   3450
  67.          TabIndex        =   6
  68.          Top             =   720
  69.          Width           =   765
  70.       End
  71.       Begin VB.Label Label2 
  72.          AutoSize        =   -1  'True
  73.          BackStyle       =   0  'Transparent
  74.          Caption         =   "日期范围:"
  75.          Height          =   195
  76.          Left            =   8340
  77.          TabIndex        =   5
  78.          Top             =   735
  79.          Width           =   765
  80.       End
  81.       Begin VB.Label Label3 
  82.          AutoSize        =   -1  'True
  83.          BackStyle       =   0  'Transparent
  84.          Caption         =   "仓库编码:"
  85.          Height          =   195
  86.          Left            =   675
  87.          TabIndex        =   4
  88.          Top             =   720
  89.          Width           =   765
  90.       End
  91.       Begin VB.Label Lab_Title 
  92.          BackColor       =   &H80000018&
  93.          BackStyle       =   0  'Transparent
  94.          Caption         =   "收发类别汇总表"
  95.          BeginProperty Font 
  96.             Name            =   "宋体"
  97.             Size            =   12
  98.             Charset         =   134
  99.             Weight          =   700
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          ForeColor       =   &H00000000&
  105.          Height          =   300
  106.          Index           =   4
  107.          Left            =   480
  108.          TabIndex        =   2
  109.          Top             =   210
  110.          Width           =   2715
  111.       End
  112.    End
  113.    Begin VB.Timer Timer1 
  114.       Enabled         =   0   'False
  115.       Interval        =   1
  116.       Left            =   7620
  117.       Top             =   90
  118.    End
  119.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  120.       Height          =   7365
  121.       Left            =   0
  122.       TabIndex        =   0
  123.       Top             =   1650
  124.       Width           =   11775
  125.       _cx             =   5080
  126.       _cy             =   5080
  127.       Appearance      =   1
  128.       BorderStyle     =   1
  129.       Enabled         =   -1  'True
  130.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  131.          Name            =   "宋体"
  132.          Size            =   9
  133.          Charset         =   134
  134.          Weight          =   400
  135.          Underline       =   0   'False
  136.          Italic          =   0   'False
  137.          Strikethrough   =   0   'False
  138.       EndProperty
  139.       MousePointer    =   0
  140.       BackColor       =   16777215
  141.       ForeColor       =   -2147483640
  142.       BackColorFixed  =   13826538
  143.       ForeColorFixed  =   -2147483630
  144.       BackColorSel    =   -2147483635
  145.       ForeColorSel    =   -2147483634
  146.       BackColorBkg    =   -2147483636
  147.       BackColorAlternate=   16777215
  148.       GridColor       =   -2147483633
  149.       GridColorFixed  =   -2147483632
  150.       TreeColor       =   -2147483632
  151.       FloodColor      =   192
  152.       SheetBorder     =   -2147483642
  153.       FocusRect       =   1
  154.       HighLight       =   1
  155.       AllowSelection  =   -1  'True
  156.       AllowBigSelection=   -1  'True
  157.       AllowUserResizing=   0
  158.       SelectionMode   =   0
  159.       GridLines       =   1
  160.       GridLinesFixed  =   2
  161.       GridLineWidth   =   1
  162.       Rows            =   50
  163.       Cols            =   10
  164.       FixedRows       =   1
  165.       FixedCols       =   1
  166.       RowHeightMin    =   0
  167.       RowHeightMax    =   0
  168.       ColWidthMin     =   0
  169.       ColWidthMax     =   0
  170.       ExtendLastCol   =   0   'False
  171.       FormatString    =   ""
  172.       ScrollTrack     =   0   'False
  173.       ScrollBars      =   3
  174.       ScrollTips      =   0   'False
  175.       MergeCells      =   0
  176.       MergeCompare    =   0
  177.       AutoResize      =   -1  'True
  178.       AutoSizeMode    =   0
  179.       AutoSearch      =   0
  180.       AutoSearchDelay =   2
  181.       MultiTotals     =   -1  'True
  182.       SubtotalPosition=   1
  183.       OutlineBar      =   0
  184.       OutlineCol      =   0
  185.       Ellipsis        =   0
  186.       ExplorerBar     =   0
  187.       PicturesOver    =   0   'False
  188.       FillStyle       =   0
  189.       RightToLeft     =   0   'False
  190.       PictureType     =   0
  191.       TabBehavior     =   0
  192.       OwnerDraw       =   0
  193.       Editable        =   0
  194.       ShowComboButton =   1
  195.       WordWrap        =   0   'False
  196.       TextStyle       =   0
  197.       TextStyleFixed  =   0
  198.       OleDragMode     =   0
  199.       OleDropMode     =   0
  200.       DataMode        =   0
  201.       VirtualData     =   -1  'True
  202.       DataMember      =   ""
  203.       ComboSearch     =   3
  204.       AutoSizeMouse   =   -1  'True
  205.       FrozenRows      =   0
  206.       FrozenCols      =   0
  207.       AllowUserFreezing=   0
  208.       BackColorFrozen =   0
  209.       ForeColorFrozen =   0
  210.       WallPaperAlignment=   9
  211.       AccessibleName  =   ""
  212.       AccessibleDescription=   ""
  213.       AccessibleValue =   ""
  214.       AccessibleRole  =   24
  215.       Begin MSComctlLib.ImageList ImageList2 
  216.          Left            =   0
  217.          Top             =   0
  218.          _ExtentX        =   1005
  219.          _ExtentY        =   1005
  220.          BackColor       =   -2147483643
  221.          ImageWidth      =   16
  222.          ImageHeight     =   16
  223.          MaskColor       =   12632256
  224.          _Version        =   393216
  225.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  226.             NumListImages   =   40
  227.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  228.                Picture         =   "统计分析_收发类别汇总.frx":1FAC4
  229.                Key             =   "sz"
  230.             EndProperty
  231.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  232.                Picture         =   "统计分析_收发类别汇总.frx":1FE5E
  233.                Key             =   "dy"
  234.             EndProperty
  235.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  236.                Picture         =   "统计分析_收发类别汇总.frx":201F8
  237.                Key             =   "yl"
  238.             EndProperty
  239.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  240.                Picture         =   "统计分析_收发类别汇总.frx":20592
  241.                Key             =   "xg"
  242.             EndProperty
  243.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  244.                Picture         =   "统计分析_收发类别汇总.frx":2092C
  245.                Key             =   "zh"
  246.             EndProperty
  247.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  248.                Picture         =   "统计分析_收发类别汇总.frx":20CC6
  249.                Key             =   "sh"
  250.             EndProperty
  251.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  252.                Picture         =   "统计分析_收发类别汇总.frx":21060
  253.                Key             =   "bc"
  254.             EndProperty
  255.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  256.                Picture         =   "统计分析_收发类别汇总.frx":213FA
  257.                Key             =   "fq"
  258.             EndProperty
  259.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  260.                Picture         =   "统计分析_收发类别汇总.frx":21794
  261.                Key             =   "bz"
  262.             EndProperty
  263.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  264.                Picture         =   "统计分析_收发类别汇总.frx":21B2E
  265.                Key             =   "tc"
  266.             EndProperty
  267.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  268.                Picture         =   "统计分析_收发类别汇总.frx":21EC8
  269.                Key             =   "bcgs"
  270.             EndProperty
  271.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  272.                Picture         =   "统计分析_收发类别汇总.frx":22262
  273.                Key             =   "mrlk"
  274.             EndProperty
  275.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  276.                Picture         =   "统计分析_收发类别汇总.frx":225FC
  277.                Key             =   "xsxm"
  278.             EndProperty
  279.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  280.                Picture         =   "统计分析_收发类别汇总.frx":22996
  281.                Key             =   "first"
  282.             EndProperty
  283.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  284.                Picture         =   "统计分析_收发类别汇总.frx":22D30
  285.                Key             =   "prev"
  286.             EndProperty
  287.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  288.                Picture         =   "统计分析_收发类别汇总.frx":230CA
  289.                Key             =   "next"
  290.             EndProperty
  291.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  292.                Picture         =   "统计分析_收发类别汇总.frx":23464
  293.                Key             =   "last"
  294.             EndProperty
  295.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  296.                Picture         =   "统计分析_收发类别汇总.frx":237FE
  297.                Key             =   "xx"
  298.             EndProperty
  299.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  300.                Picture         =   "统计分析_收发类别汇总.frx":23B98
  301.                Key             =   "define"
  302.             EndProperty
  303.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  304.                Picture         =   "统计分析_收发类别汇总.frx":23F32
  305.                Key             =   "exec"
  306.             EndProperty
  307.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  308.                Picture         =   "统计分析_收发类别汇总.frx":242CC
  309.                Key             =   "xz"
  310.             EndProperty
  311.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  312.                Picture         =   "统计分析_收发类别汇总.frx":24666
  313.                Key             =   "sc"
  314.             EndProperty
  315.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  316.                Picture         =   "统计分析_收发类别汇总.frx":24A00
  317.                Key             =   "sx"
  318.             EndProperty
  319.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  320.                Picture         =   "统计分析_收发类别汇总.frx":24D9A
  321.                Key             =   "cx"
  322.             EndProperty
  323.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  324.                Picture         =   "统计分析_收发类别汇总.frx":25134
  325.                Key             =   "zd"
  326.             EndProperty
  327.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  328.                Picture         =   "统计分析_收发类别汇总.frx":254CE
  329.                Key             =   "dz"
  330.             EndProperty
  331.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  332.                Picture         =   "统计分析_收发类别汇总.frx":25868
  333.                Key             =   "ph"
  334.             EndProperty
  335.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  336.                Picture         =   "统计分析_收发类别汇总.frx":25C02
  337.                Key             =   "fz"
  338.             EndProperty
  339.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  340.                Picture         =   "统计分析_收发类别汇总.frx":25F9C
  341.                Key             =   "dw"
  342.             EndProperty
  343.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  344.                Picture         =   "统计分析_收发类别汇总.frx":26336
  345.                Key             =   "hf"
  346.             EndProperty
  347.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  348.                Picture         =   "统计分析_收发类别汇总.frx":266D0
  349.                Key             =   "pz"
  350.             EndProperty
  351.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  352.                Picture         =   "统计分析_收发类别汇总.frx":26A6A
  353.                Key             =   "check"
  354.             EndProperty
  355.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  356.                Picture         =   "统计分析_收发类别汇总.frx":26E04
  357.                Key             =   "qs"
  358.             EndProperty
  359.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  360.                Picture         =   "统计分析_收发类别汇总.frx":2719E
  361.                Key             =   "fullcheck"
  362.             EndProperty
  363.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  364.                Picture         =   "统计分析_收发类别汇总.frx":27538
  365.                Key             =   "qq"
  366.             EndProperty
  367.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  368.                Picture         =   "统计分析_收发类别汇总.frx":278D2
  369.                Key             =   "bcw"
  370.             EndProperty
  371.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  372.                Picture         =   "统计分析_收发类别汇总.frx":27C6C
  373.                Key             =   "ye"
  374.             EndProperty
  375.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  376.                Picture         =   "统计分析_收发类别汇总.frx":28006
  377.                Key             =   ""
  378.             EndProperty
  379.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  380.                Picture         =   "统计分析_收发类别汇总.frx":283A0
  381.                Key             =   "frist"
  382.             EndProperty
  383.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  384.                Picture         =   "统计分析_收发类别汇总.frx":2873A
  385.                Key             =   "dj"
  386.             EndProperty
  387.          EndProperty
  388.       End
  389.    End
  390.    Begin MSComctlLib.ImageList ImageList1 
  391.       Left            =   7110
  392.       Top             =   0
  393.       _ExtentX        =   1005
  394.       _ExtentY        =   1005
  395.       BackColor       =   -2147483643
  396.       ImageWidth      =   16
  397.       ImageHeight     =   16
  398.       MaskColor       =   12632256
  399.       _Version        =   393216
  400.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  401.          NumListImages   =   17
  402.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  403.             Picture         =   "统计分析_收发类别汇总.frx":28AD4
  404.             Key             =   "sz"
  405.          EndProperty
  406.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  407.             Picture         =   "统计分析_收发类别汇总.frx":28E6E
  408.             Key             =   "dy"
  409.          EndProperty
  410.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  411.             Picture         =   "统计分析_收发类别汇总.frx":29208
  412.             Key             =   "yl"
  413.          EndProperty
  414.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  415.             Picture         =   "统计分析_收发类别汇总.frx":295A2
  416.             Key             =   "cx"
  417.          EndProperty
  418.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  419.             Picture         =   "统计分析_收发类别汇总.frx":2993C
  420.             Key             =   "dj"
  421.          EndProperty
  422.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  423.             Picture         =   "统计分析_收发类别汇总.frx":29CD6
  424.             Key             =   "sx"
  425.          EndProperty
  426.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  427.             Picture         =   "统计分析_收发类别汇总.frx":2A070
  428.             Key             =   "first"
  429.          EndProperty
  430.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  431.             Picture         =   "统计分析_收发类别汇总.frx":2A40A
  432.             Key             =   "prev"
  433.          EndProperty
  434.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  435.             Picture         =   "统计分析_收发类别汇总.frx":2A7A4
  436.             Key             =   "next"
  437.          EndProperty
  438.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  439.             Picture         =   "统计分析_收发类别汇总.frx":2AB3E
  440.             Key             =   "last"
  441.          EndProperty
  442.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  443.             Picture         =   "统计分析_收发类别汇总.frx":2AED8
  444.             Key             =   "bz"
  445.          EndProperty
  446.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  447.             Picture         =   "统计分析_收发类别汇总.frx":2B272
  448.             Key             =   "tc"
  449.          EndProperty
  450.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.             Picture         =   "统计分析_收发类别汇总.frx":2B60C
  452.             Key             =   "bcgs"
  453.          EndProperty
  454.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.             Picture         =   "统计分析_收发类别汇总.frx":2B9A6
  456.             Key             =   "mrlk"
  457.          EndProperty
  458.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.             Picture         =   "统计分析_收发类别汇总.frx":2BD40
  460.             Key             =   "xsxm"
  461.          EndProperty
  462.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.             Picture         =   "统计分析_收发类别汇总.frx":2C0DA
  464.             Key             =   "mx"
  465.          EndProperty
  466.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.             Picture         =   "统计分析_收发类别汇总.frx":2C474
  468.             Key             =   "hz"
  469.          EndProperty
  470.       EndProperty
  471.    End
  472.    Begin MSComctlLib.Toolbar SzToolbar 
  473.       Align           =   1  'Align Top
  474.       Height          =   555
  475.       Left            =   0
  476.       TabIndex        =   7
  477.       Top             =   0
  478.       Width           =   11820
  479.       _ExtentX        =   20849
  480.       _ExtentY        =   979
  481.       ButtonWidth     =   820
  482.       ButtonHeight    =   926
  483.       AllowCustomize  =   0   'False
  484.       Appearance      =   1
  485.       Style           =   1
  486.       ImageList       =   "ImageList1"
  487.       _Version        =   393216
  488.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  489.          NumButtons      =   17
  490.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  491.             Caption         =   "设置"
  492.             Key             =   "ymsz"
  493.             ImageKey        =   "sz"
  494.          EndProperty
  495.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  496.             Caption         =   "打印"
  497.             Key             =   "dy"
  498.             ImageKey        =   "dy"
  499.          EndProperty
  500.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  501.             Caption         =   "预览"
  502.             Key             =   "yl"
  503.             ImageKey        =   "yl"
  504.          EndProperty
  505.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  506.             Style           =   3
  507.          EndProperty
  508.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  509.             Caption         =   "查询"
  510.             Key             =   "cx"
  511.             ImageKey        =   "cx"
  512.          EndProperty
  513.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  514.             Object.Visible         =   0   'False
  515.             Caption         =   "刷新"
  516.             Key             =   "sx"
  517.             ImageKey        =   "sx"
  518.          EndProperty
  519.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  520.             Style           =   3
  521.          EndProperty
  522.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  523.             Caption         =   "汇总"
  524.             Key             =   "Sum"
  525.             ImageKey        =   "hz"
  526.          EndProperty
  527.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  528.             Enabled         =   0   'False
  529.             Caption         =   "明细"
  530.             Key             =   "List"
  531.             ImageKey        =   "mx"
  532.          EndProperty
  533.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  534.             Style           =   3
  535.          EndProperty
  536.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  537.             Caption         =   "首张"
  538.             Key             =   "first"
  539.             ImageKey        =   "first"
  540.          EndProperty
  541.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  542.             Caption         =   "上张"
  543.             Key             =   "prev"
  544.             ImageKey        =   "prev"
  545.          EndProperty
  546.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  547.             Caption         =   "下张"
  548.             Key             =   "next"
  549.             ImageKey        =   "next"
  550.          EndProperty
  551.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  552.             Caption         =   "末张"
  553.             Key             =   "last"
  554.             ImageKey        =   "last"
  555.          EndProperty
  556.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  557.             Style           =   3
  558.          EndProperty
  559.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  560.             Caption         =   "帮助"
  561.             Key             =   "bz"
  562.             ImageKey        =   "bz"
  563.          EndProperty
  564.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  565.             Caption         =   "退出"
  566.             Key             =   "fh"
  567.             ImageKey        =   "tc"
  568.          EndProperty
  569.       EndProperty
  570.       BorderStyle     =   1
  571.    End
  572. End
  573. Attribute VB_Name = "KF_FrmInoutSum"
  574. Attribute VB_GlobalNameSpace = False
  575. Attribute VB_Creatable = False
  576. Attribute VB_PredeclaredId = True
  577. Attribute VB_Exposed = False
  578. '**************************************************************************
  579. '*    模 块 名 称 :收发类别汇总
  580. '*    功 能 描 述 :
  581. '*    程序员姓名  :赵宇光
  582. '*    最后修改人  :张万成
  583. '*    最后修改时间:2001/12/14
  584. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  585. '**************************************************************************
  586. Dim ReportTitle As String                '报表主标题
  588. '以下为固定使用变量
  589. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  590. Dim GridCode As String                   '显示网格网格代码
  591. Dim GridInf() As Variant                 '整个网格设置信息
  592. Dim Tsxx As String                       '系统提示信息
  593. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  594. Dim Sjhgd As Double                      '网格数据行高度
  595. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  596. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  597. Dim GridStr()  As String                 '网格列信息(字符型)
  598. Dim GridInt() As Integer                 '网格列信息(整型)
  599. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  601. Dim Xtyear As Integer, Period As Integer
  602. Dim Rec_WH As New Recordset
  603. Dim Str_Class1 As String
  604. Dim Str_Class2 As String
  605. Dim Str_Mate As String
  606. Dim Str_OpType As String
  607. Dim fixIn As Integer, fixOut As Integer
  610. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  611.     On Error Resume Next
  612.     With CxbbGrid
  613.         .Width = Me.Width - 160
  614.         .Height = Me.Height - .Top - 400
  615.     End With
  616.     With Pic_Title
  617.         .Width = Me.Width - 160
  618.     End With
  619.     
  620.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  622. End Sub
  624. Private Sub Form_Load()                                                   '窗体装入
  625.   
  626.     '调入打印页面设置窗体
  627.     ReportTitle = "收发类别汇总表"
  628.     XtReportCode = "kf_inoutSum"
  629.     Load Dyymctbl
  630.       
  631.     '调整标题栏及网格、格式工具条位置(Fixed)
  632.     Pic_Title.Left = 40
  633.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  634.     CxbbGrid.Left = Pic_Title.Left
  635.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  636.      
  637.     '调 入 网 格(Fixed)
  638.     GridCode = "kf_inoutSum"
  639.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  640.       
  641.     Qslz = GridInf(1)
  642.     Sjhgd = GridInf(2)
  643.     Sfxshjwg = GridInf(7)
  644.     Szzls = CxbbGrid.Cols - 1
  646. End Sub
  648. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  650.     '卸载条件窗体
  651.     KF_FrmInoutSumQuery.UnloadCheck.Value = 1
  652.     Unload KF_FrmInoutSumQuery
  653.     
  654.     '卸载打印页面设置窗体
  655.     Unload Dyymctbl
  657. End Sub
  659. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  660.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  661. End Sub
  663. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  664.   
  665.     Select Case Button.Key
  666.         Case "bcgs"                                          '保存表格格式
  667.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  668.         Case "hfmrgs"                                        '恢复默认格式
  669.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  670.         Case "szxsxm"                                        '设置显示项目
  671.             Call Szxsxm(CxbbGrid, GridCode)
  672.     End Select
  674. End Sub
  676. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  677. Select Case Button.Key
  678.     Case "ymsz"                                          '页面设置
  679.         Dyymctbl.Show 1
  680.     Case "yl"                                            '预 览
  681.         Call bbyl(True)
  682.     Case "dy"                                            '打 印
  683.         Call bbyl(False)
  684.     Case "cx"                                            '查 询
  685.         KF_FrmInoutSumQuery.Show 1
  686.     Case "Sum"                                           '汇总
  687.         Call HuiZong
  688.         SzToolbar.Buttons("Sum").Enabled = False
  689.         SzToolbar.Buttons("List").Enabled = True
  690.     Case "List"                                           '明细
  691.         SzToolbar.Buttons("List").Enabled = False
  692.         SzToolbar.Buttons("Sum").Enabled = True
  693.         If Rec_WH.State = 1 Then
  694.             If Rec_WH.RecordCount <> 0 Then
  695.                 If Rec_WH.EOF Then
  696.                     Rec_WH.MoveLast
  697.                 ElseIf Rec_WH.BOF Then
  698.                     Rec_WH.MoveFirst
  699.                 End If
  700.                 Call Show_Tab(Rec_WH)
  701.             End If
  702.         End If
  703.     Case "first"
  704.         Call First
  705.     Case "last"
  706.         Call Last
  707.     Case "prev"
  708.         Call Prev
  709.     Case "next"
  710.         Call Sub_next
  711.     Case "sx"                                            '刷 新
  712.         If Rec_WH.State = 1 Then
  713.           If Rec_WH.RecordCount <> 0 Then
  714.             If Rec_WH.EOF Then
  715.                 Rec_WH.MoveLast
  716.             ElseIf Rec_WH.BOF Then
  717.                 Rec_WH.MoveFirst
  718.             End If
  719.             Call Sub_Query
  720.           End If
  721.         End If
  722.     Case "bz"                                            '帮 助
  723.         Call F1bz
  724.     Case "fh"                                            '退 出
  725.         Unload Me
  726. End Select
  727. End Sub
  729. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  730.     
  731.     Timer1.Enabled = False
  732.     Xt_Wait.Show
  733.     Xt_Wait.Refresh
  734.    
  735.     '加快显示速度
  737.     '生成查询结果
  738.     Call Sub_Query
  739.     
  740.     Xt_Wait.Hide
  742. End Sub
  743. Private Sub Sub_Query()                                    '生成查询结果
  744.     Dim Sqlstr As String                        '查询字符串
  745.     Dim Coljsq As Long                          '网格列计数器
  746.     Dim jsqte As Long                        '临时动态计数器
  747.     Dim Str_WH As String
  748.     Dim str_WH1 As String
  749.     Dim Str_QueryCondi As String             '用户录入查询条件
  751.  '以下为用户自定义部分[
  752.      Str_QueryCondi = ""
  753.      Str_Mate = ""
  754.      With KF_FrmInoutSumQuery
  755.     
  756.          Str_Class1 = "select distinct inoutclassname from kf_v_inoutclass where inoutflag=1"
  757.          Str_Class2 = "select distinct inoutclassname from kf_v_inoutclass where inoutflag=0"
  758.          Str_WH = "select distinct whcode,whname from KF_V_InOutClass   where 1=1 "
  759.          str_WH1 = "select distinct whcode,whname from KF_V_ledger   where 1=1 "
  760.          
  761.          For jsqte = 1 To 5
  762.             Select Case jsqte
  763.               
  764.                Case 1  '会计期间
  765.                 If Trim(.Combo_Kjqj2.Text) <> "" Then
  766.                     Xtyear = Val(Mid(Trim(.Combo_Kjqj2.Text), 1, 4))
  767.                     Period = Val(Mid(Trim(.Combo_Kjqj2.Text), 6))
  768.                     Str_QueryCondi = Str_QueryCondi & " and kjyear=" & Xtyear & " and Period between " & Val(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
  769.                 End If
  770.               
  771.               Case 2   '仓库
  772.                  If Trim(.LrText(0).Text) <> "" Then
  773.                     Str_QueryCondi = Str_QueryCondi & " and whcode='" & Trim(.LrText(0).Tag) & "'"
  774.                  End If
  775.              
  776.               Case 3   '物料分类
  777.                 If Trim(.LrText(1).Text) <> "" Then
  778.                     Str_QueryCondi = Str_QueryCondi & " and invsortcode LIKE '" & Trim(.LrText(1).Tag) & "%'"
  779.                     Str_Mate = " and invsortcode LIKE '" & Trim(.LrText(1).Tag) & "%'"
  780.                 End If
  781.                 
  782.               Case 4   '物料编码
  783.                 If Trim(.LrText(2).Tag) <> "" Then
  784.                     Str_QueryCondi = Str_QueryCondi & " and mnumber='" & Trim(.LrText(2).Tag) & "'"
  785.                     Str_Mate = " and mnumber='" & Trim(.LrText(2).Tag) & "'"
  786.                 End If
  787.               Case 5
  788.                 If Trim(.LrText(3).Text & "") <> "" Then
  789.                     Str_Mate = " AND InOutClassName='" & Trim(.LrText(3).Text) & "'"
  790.                 End If
  791.             End Select
  792.         Next jsqte
  793.      End With
  794.     Str_WH = Str_WH & Str_QueryCondi & Str_OpType
  795.     str_WH1 = str_WH1 & Str_QueryCondi
  796.     Str_Class1 = Str_Class1 & Str_QueryCondi & Str_OpType
  797.     Str_Class2 = Str_Class2 & Str_QueryCondi & Str_OpType
  798.  
  799.     Set Rec_WH = Cw_DataEnvi.DataConnect.Execute(Str_WH)
  800.     
  801.     If Not Rec_WH.EOF Then
  802.         Rec_WH.MoveFirst
  803.         Call Show_Tab(Rec_WH)
  804.     Else
  805.         Label3 = "仓库编码: " & KF_FrmInoutSumQuery.LrText(0).Text
  806.         Label1 = "仓库名称: " & KF_FrmInoutSumQuery.LrText(0).Tag
  807.         Label2 = "日期范围: " & Trim(KF_FrmInoutSumQuery.Combo_Kjqj1.Text) & "----" & Trim(KF_FrmInoutSumQuery.Combo_Kjqj2.Text)
  808.         
  809.         CxbbGrid.Clear 1
  810.         CxbbGrid.Rows = CxbbGrid.FixedRows
  811.         fixIn = 0
  812.         finout = 0
  813.     End If
  814. End Sub
  815. Private Sub FillGrid(str1 As String, str2 As String)
  816.     Dim Rec_Class1 As New Recordset
  817.     Set Rec_Class1 = Cw_DataEnvi.DataConnect.Execute(str1 & " and whcode='" & Trim(Rec_WH.Fields("whcode")) & "'")
  818.     Dim Rec_Class2 As New Recordset
  819.     Set Rec_Class2 = Cw_DataEnvi.DataConnect.Execute(str2 & " and whcode='" & Trim(Rec_WH.Fields("whcode")) & "'")
  820.      
  821.     fixIn = Rec_Class1.RecordCount
  822.     fixOut = Rec_Class2.RecordCount
  823.      With CxbbGrid
  824.         .BackColorFixed = &H8000000F    'Dbl_BackColorFixed                           '固定行背景色 ('&H80000018)
  825.         .Cols = Qslz + 8 + Rec_Class1.RecordCount + Rec_Class2.RecordCount
  826.         .AllowUserResizing = flexResizeBoth
  827.         .SelectionMode = flexSelectionByRow
  828.         .ExplorerBar = flexExNone                                  '网格列是否可移动及排序
  829.         .ScrollTips = True
  830.         .WordWrap = True
  831.         
  832.         For jsq = Qslz To .Cols - 1
  833.             .ColHidden(jsq) = False
  834.         Next jsq
  835.         
  836.         '填 充 网 格 标 题
  837.         For Rowjsq = 0 To .FixedRows - 1
  838.             .MergeRow(Rowjsq) = True
  839.             .RowHeight(Rowjsq) = Sjhgd * 1.8
  840.             .TextMatrix(Rowjsq, Qslz) = "物料编码"
  841.             .TextMatrix(Rowjsq, Qslz + 1) = "物料名称"
  842.             .TextMatrix(Rowjsq, Qslz + 2) = "规格型号"
  843.             .TextMatrix(Rowjsq, Qslz + 3) = "计量单位"
  844.             Coljsq = Qslz + 4
  845.             If Not Rec_Class1.EOF Then
  846.                 Rec_Class1.MoveFirst
  847.                 For Coljsq = (Qslz + 4) To (.Cols - 5 - Rec_Class2.RecordCount)
  848.                     .TextMatrix(Rowjsq, Coljsq) = Trim(Rec_Class1.Fields("inoutclassname")) & "数量"
  849.                     .ColWidth(Coljsq) = Sjhgd * 6
  850.                     Rec_Class1.MoveNext
  851.                 Next Coljsq
  852.             End If
  853.             .TextMatrix(Rowjsq, Coljsq) = "无入库类别数量"
  854.             .TextMatrix(Rowjsq, Coljsq + 1) = "合计入库数量"
  855.             If Not Rec_Class2.EOF Then
  856.                 Rec_Class2.MoveFirst
  857.                 For Coljsq = (Qslz + 6 + Rec_Class1.RecordCount) To (.Cols - 3)
  858.                     .TextMatrix(Rowjsq, Coljsq) = Trim(Rec_Class2.Fields("inoutclassname")) & "数量"
  859.                     .ColWidth(Coljsq) = Sjhgd * 6
  860.                     Rec_Class2.MoveNext
  861.                 Next Coljsq
  862.             End If
  863.             .TextMatrix(Rowjsq, (.Cols - 2)) = "无出库类别数量"
  864.             .TextMatrix(Rowjsq, (.Cols - 1)) = "合计出库数量"
  865.         Next Rowjsq
  866.         
  867.         '数 据 网 格 高 度
  868.         For Rowjsq = .FixedRows To .Rows - 1
  869.             .RowHeight(Rowjsq) = Sjhgd
  870.         Next Rowjsq
  871.         
  872.         '定 义 录 入 字 段 属 性
  873.         For Coljsq = (Qslz + 3) To .Cols - 1
  874.             .MergeCol(Coljsq) = True
  875.             .ColAlignment(Coljsq) = flexAlignRightTop
  876.             .FixedAlignment(Coljsq) = flexAlignGeneral
  877.         Next Coljsq
  878.         For Coljsq = 0 To .Cols - 1
  879.             If .TextMatrix(0, Coljsq) = "合计入库数量" Or .TextMatrix(0, Coljsq) = "合计出库数量" Then
  880.                 .ColWidth(Coljsq) = Sjhgd * 6
  881.             End If
  882.         Next Coljsq
  883.         .ColWidth(.Cols - 1) = Sjhgd * 6
  884.         .ColWidth(.Cols - 2) = Sjhgd * 6
  885.     End With
  886. End Sub
  888. Private Sub Show_Tab(Rec_Temp As Recordset)
  889.     Dim Str_QC As String
  890.     Dim rec_start As New Recordset
  891.     Dim In_Count As Double
  892.     Dim Out_Count As Double
  893.     Dim Str_Bill As String
  894.     Dim Rec_Mate As Recordset
  895.     Dim str_temp As String
  896.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  897.     
  898.     Call FillGrid(Str_Class1, Str_Class2)
  899.     Label3 = "仓库编码: " & Trim(Rec_Temp.Fields("whcode"))
  900.     Label1 = "仓库名称: " & Trim(Rec_Temp.Fields("whname"))
  901.     Label2 = "日期范围: " & Trim(KF_FrmInoutSumQuery.Combo_Kjqj1.Text) & "----" & Trim(KF_FrmInoutSumQuery.Combo_Kjqj2.Text)
  902.     
  903.     CxbbGrid.Redraw = False
  904.     CxbbGrid.Rows = CxbbGrid.FixedRows
  905.         jsqte = CxbbGrid.Rows
  906.             Str_Bill = "select a.* " & _
  907.                         "from (SELECT SUM(factreceiptquan)AS In_count,SUM(factissuequan)AS Out_count,mnumber,inoutclasscode, " & _
  908.                         "(select inoutclassname from gy_inoutclass where inoutclasscode=KF_V_InOutClass.inoutclasscode)as inoutclassname , " & _
  909.                         "(select mname from gy_material where mnumber=KF_V_InOutClass.mnumber)as mname,(select model from gy_material where KF_V_InOutClass.mnumber=gy_material.mnumber) as model, " & _
  910.                         "(select primaryunitname from gy_material where KF_V_InOutClass.mnumber=gy_material.mnumber) as primaryunitname From KF_V_InOutClass " & _
  911.                         "where whcode='" & Trim(Rec_Temp.Fields("whcode")) & "'  and kjyear=" & Xtyear & " and period between " & Val(Mid(Trim(KF_FrmInoutSumQuery.Combo_Kjqj1.Text), 6)) & " and " & Val(Mid(Trim(KF_FrmInoutSumQuery.Combo_Kjqj2.Text), 6)) & Str_Mate & "  GROUP BY mnumber, inoutclasscode)a order by mnumber"
  913.             
  914.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Str_Bill)
  915.             Dim Sum_In As Double, Sum_Out As Double
  916.             Sum_In = 0
  917.             Sum_Out = 0
  919.             If Not Rec_Query.EOF Then
  920.                 Rec_Query.MoveFirst
  921.                 CxbbGrid.AddItem ""
  922.                 CxbbGrid.TextMatrix(jsqte, Qslz) = Trim(Rec_Query.Fields("mnumber"))                    '物料编码
  923.                 CxbbGrid.TextMatrix(jsqte, Qslz + 1) = Trim(Rec_Query.Fields("mname"))                  '物料名称
  924.                 CxbbGrid.TextMatrix(jsqte, Qslz + 2) = Trim(Rec_Query.Fields("model"))                  '规格型号
  925.                 CxbbGrid.TextMatrix(jsqte, Qslz + 3) = Trim(Rec_Query.Fields("primaryunitname"))        '计量单位
  926.                 CxbbGrid.RowHeight(jsqte) = Sjhgd
  927.                 Do While Not Rec_Query.EOF
  928.                     If Trim(Rec_Query.Fields("mnumber")) = Trim(CxbbGrid.TextMatrix(jsqte, Qslz)) Then  '将行转换成列
  929.                         If IsNull(Rec_Query.Fields("inoutclassname")) Then
  930.                             If Val(Rec_Query.Fields("In_count") & "") <> 0 Then
  931.                                 CxbbGrid.ColHidden(CxbbGrid.Cols - fixOut - 4) = False
  932.                                 CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - fixOut - 4)) = Val(Rec_Query.Fields("In_count") & "")        '入库数量
  933.                                 Sum_In = Sum_In + Val(Rec_Query.Fields("In_count") & "")
  934.                             End If
  935.                             
  936.                             If Val(Rec_Query.Fields("out_count") & "") <> 0 Then
  937.                                 CxbbGrid.ColHidden(CxbbGrid.Cols - 2) = False
  938.                                 CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - 2)) = Val(Rec_Query.Fields("Out_count") & "")                '出库数量
  939.                                 Sum_Out = Sum_Out + Val(Rec_Query.Fields("Out_count") & "")
  940.                             End If
  941.                         End If
  942.                             For Coljsq = (Qslz + 4) To CxbbGrid.Cols - 2
  943.                                 If Trim(Rec_Query.Fields("inoutclassname")) & "数量" = Trim(CxbbGrid.TextMatrix(0, Coljsq)) Then
  944.                                     If Val(Rec_Query.Fields("In_count") & "") <> 0 Then
  945.                                         CxbbGrid.TextMatrix(jsqte, Coljsq) = Val(Rec_Query.Fields("In_count") & "")                       '入库数量
  946.                                         Sum_In = Sum_In + Val(Rec_Query.Fields("In_count"))
  947.                                     Else
  948.                                         CxbbGrid.TextMatrix(jsqte, Coljsq) = Val(Rec_Query.Fields("Out_count") & "")                     '出库数量
  949.                                         Sum_Out = Sum_Out + Val(Rec_Query.Fields("Out_count") & "")
  950.                                     End If
  951.                                 End If
  952.                             Next
  953.                             CxbbGrid.TextMatrix(jsqte, CxbbGrid.Cols - 1) = Sum_Out
  954.                             CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - fixOut - 3)) = Sum_In
  955.                             Rec_Query.MoveNext
  956.                     Else
  957.                         Sum_In = 0
  958.                         Sum_Out = 0
  959.                         jsqte = jsqte + 1
  960.                         CxbbGrid.AddItem ""
  961.                         CxbbGrid.TextMatrix(jsqte, Qslz) = Trim(Rec_Query.Fields("mnumber"))                    '物料编码
  962.                         CxbbGrid.TextMatrix(jsqte, Qslz + 1) = Trim(Rec_Query.Fields("mname"))                  '物料名称
  963.                         CxbbGrid.TextMatrix(jsqte, Qslz + 2) = Trim(Rec_Query.Fields("model"))                  '规格型号
  964.                         CxbbGrid.TextMatrix(jsqte, Qslz + 3) = Trim(Rec_Query.Fields("primaryunitname"))        '计量单位
  965.                         CxbbGrid.RowHeight(jsqte) = Sjhgd
  966.                         If IsNull(Rec_Query.Fields("inoutclassname")) Then
  967.                             If Val(Rec_Query.Fields("In_count") & "") <> 0 Then
  968.                                 CxbbGrid.ColHidden(CxbbGrid.Cols - fixOut - 4) = False
  969.                                 CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - fixOut - 4)) = Val(Rec_Query.Fields("In_count") & "")            '入库数量
  970.                                 Sum_In = Sum_In + Val(Rec_Query.Fields("In_count"))
  971.                             End If
  972.                             
  973.                             If Val(Rec_Query.Fields("out_count")) <> 0 Then
  974.                                 CxbbGrid.ColHidden(CxbbGrid.Cols - 2) = False
  975.                                 CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - 2)) = Val(Rec_Query.Fields("Out_count") & "")                     '出库数量
  976.                                 Sum_Out = Sum_Out + Val(Rec_Query.Fields("Out_count"))
  977.                             End If
  978.                         End If
  979.                             For Coljsq = (Qslz + 4) To CxbbGrid.Cols - 2
  980.                                 If Trim(Rec_Query.Fields("inoutclassname")) & "数量" = Trim(CxbbGrid.TextMatrix(0, Coljsq)) Then
  981.                                     If Val(Rec_Query.Fields("In_count") & "") <> 0 Then
  982.                                         CxbbGrid.TextMatrix(jsqte, Coljsq) = Val(Rec_Query.Fields("In_count") & "")                          '入库数量
  983.                                         Sum_In = Sum_In + Val(Rec_Query.Fields("In_count") & "")
  984.                                     Else
  985.                                         CxbbGrid.TextMatrix(jsqte, Coljsq) = Val(Rec_Query.Fields("Out_count") & "")                         '出库数量
  986.                                         Sum_Out = Sum_Out + Val(Rec_Query.Fields("Out_count") & "")
  987.                                     End If
  988.                                 End If
  989.                             Next
  990.                             CxbbGrid.TextMatrix(jsqte, CxbbGrid.Cols - 1) = Sum_Out
  991.                             CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - fixOut - 3)) = Sum_In
  992.                             Rec_Query.MoveNext
  993.                     End If
  994.                 Loop
  995.             End If
  996.             
  997.     Call SLGSH
  998.     CxbbGrid.Redraw = True
  999.     If Not SzToolbar.Buttons("Sum").Enabled Then
  1000.         Call HuiZong
  1001.     End If
  1002.     
  1003. End Sub
  1004. Private Sub SLGSH()             '数据格式化
  1005.     With CxbbGrid
  1006.         For hjsq = .FixedRows To .Rows - 1
  1007.             For ljsq = Qslz + 4 To .Cols - 1
  1008.                 .TextMatrix(hjsq, ljsq) = Format(Trim(.TextMatrix(hjsq, ljsq)), "#,##0." + String(Xtslxsws, "0"))
  1009.                 
  1010.                 If Val(.TextMatrix(hjsq, ljsq)) = 0 Then
  1011.                     .TextMatrix(hjsq, ljsq) = ""
  1012.                 End If
  1013.             Next ljsq
  1014.         Next hjsq
  1015.     End With
  1016. End Sub
  1018. Private Sub HuiZong()           '汇总数据
  1019.     With CxbbGrid
  1020.         If fixIn > 0 Then
  1021.             For jsq = (Qslz + 4) To (Qslz + 4 + fixIn)
  1022.                 .ColHidden(jsq) = True
  1023.             Next
  1024.         End If
  1025.         If fixOut > 0 Then
  1026.             For jsq = (Qslz + 6 + fixIn) To (.Cols - 2)
  1027.                 .ColHidden(jsq) = True
  1028.             Next
  1029.         End If
  1030.     
  1031.     End With
  1032. End Sub
  1035. Private Sub First()
  1036.     If Rec_WH.State = 1 Then
  1037.         If Rec_WH.RecordCount > 0 Then
  1038.             Rec_WH.MoveFirst
  1039.             Call Show_Tab(Rec_WH)
  1040.         End If
  1041.     End If
  1042. End Sub
  1043. Private Sub Last()
  1044.     If Rec_WH.State = 1 Then
  1045.         If Rec_WH.RecordCount > 0 Then
  1046.             Rec_WH.MoveLast
  1047.             Call Show_Tab(Rec_WH)
  1048.         End If
  1049.     End If
  1050. End Sub
  1051. Private Sub Prev()
  1052.     If Rec_WH.State = 1 Then
  1053.         If Rec_WH.RecordCount > 0 Then
  1054.             If Rec_WH.EOF Then
  1055.                 Rec_WH.MovePrevious
  1056.             End If
  1057.             If Not Rec_WH.BOF Then
  1058.                 Rec_WH.MovePrevious
  1059.                 If Not Rec_WH.BOF Then
  1060.                     Call Show_Tab(Rec_WH)
  1061.                 End If
  1062.             End If
  1063.         End If
  1064.     End If
  1065. End Sub
  1066. Private Sub Sub_next()
  1067.     If Rec_WH.State = 1 Then
  1068.         If Rec_WH.RecordCount > 0 Then
  1069.             If Rec_WH.BOF Then
  1070.                 Rec_WH.MoveNext
  1071.             End If
  1072.             If Not Rec_WH.EOF Then
  1073.                 Rec_WH.MoveNext
  1074.                 If Not Rec_WH.EOF Then
  1075.                     Call Show_Tab(Rec_WH)
  1076.                 End If
  1077.             End If
  1078.         End If
  1079.     End If
  1080. End Sub
  1082. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1083.     
  1084.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1085.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1086.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1087.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1088.     ReDim Bbxbt(1 To Bbxbtgs)
  1089.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1090.     If Bbbwhgs <> 0 Then
  1091.         ReDim Bbbwh(1 To Bbbwhgs)
  1092.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1093.     End If
  1094.     Bbzbt = ReportTitle
  1095.     Bbxbt(1) = ""
  1096.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1097.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1098.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1099.     If Not bbylte Then
  1100.         Unload DY_Tybbyldy
  1101.     End If
  1103. End Sub