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

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

企业管理

开发平台：

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_SumInout 
  5.    Caption         =   "收发存汇总表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   1219001
  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          =   180
  76.          Left            =   8340
  77.          TabIndex        =   5
  78.          Top             =   735
  79.          Width           =   810
  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_SumInout"
  574. Attribute VB_GlobalNameSpace = False
  575. Attribute VB_Creatable = False
  576. Attribute VB_PredeclaredId = True
  577. Attribute VB_Exposed = False
  579. '**************************************************************************
  580. '*    模 块 名 称 :收发存汇总
  581. '*    功 能 描 述 :
  582. '*    程序员姓名  :徐强
  583. '*    最后修改人  :张万成
  584. '*    最后修改时间:2001/12/10
  585. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  586. '**************************************************************************
  587. Dim ReportTitle As String                '报表主标题
  589. '以下为固定使用变量
  590. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  591. Dim GridCode As String                   '显示网格网格代码
  592. Dim GridInf() As Variant                 '整个网格设置信息
  593. Dim Tsxx As String                       '系统提示信息
  594. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  595. Dim Sjhgd As Double                      '网格数据行高度
  596. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  597. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  598. Dim GridStr()  As String                 '网格列信息(字符型)
  599. Dim GridInt() As Integer                 '网格列信息(整型)
  600. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  602. Dim Xtyear As Integer, Period As Integer
  603. Dim Rec_WH As New Recordset
  604. Dim Str_Class1 As String
  605. Dim Str_Class2 As String
  606. Dim Str_Mate As String
  607. Dim fixIn, 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_suminout"
  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_suminout"
  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
  645. End Sub
  647. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  649.     '卸载条件窗体
  650.     KF_SumInoutQuery.UnloadCheck.Value = 1
  651.     Unload KF_SumInoutQuery
  652.     
  653.     '卸载打印页面设置窗体
  654.     Unload Dyymctbl
  656. End Sub
  658. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  659.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  660. End Sub
  662. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  663.   
  664.     Select Case Button.Key
  665.         Case "bcgs"                                          '保存表格格式
  666.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  667.         Case "hfmrgs"                                        '恢复默认格式
  668.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  669.         Case "szxsxm"                                        '设置显示项目
  670.             Call Szxsxm(CxbbGrid, GridCode)
  671.     End Select
  673. End Sub
  675. 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_SumInoutQuery.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.     '加快显示速度
  736.  
  737.     '生成查询结果
  738.     Call Sub_Query
  739.    
  740.     
  741.     Xt_Wait.Hide
  743. End Sub
  744. Private Sub Sub_Query()                                    '生成查询结果
  745.     Dim Sqlstr As String                        '查询字符串
  746.     Dim Coljsq As Long                          '网格列计数器
  747.     Dim jsqte As Long                        '临时动态计数器
  748.     Dim Str_WH As String
  749.     Dim str_WH1 As String
  750.     Dim Str_QueryCondi As String             '用户录入查询条件
  752.  '以下为用户自定义部分[
  753.      Str_QueryCondi = ""
  754.      With KF_SumInoutQuery
  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.          Str_Mate = ""
  761.          
  762.          For jsqte = 1 To 4
  763.             Select Case jsqte
  764.               
  765.                Case 1  '会计期间
  766.                 If Trim(.Combo_Kjqj2.Text) <> "" Then
  767.                     Xtyear = S2N(Mid(Trim(.Combo_Kjqj2.Text), 1, 4))
  768.                     Period = S2N(Mid(Trim(.Combo_Kjqj2.Text), 6))
  769.                     Str_QueryCondi = Str_QueryCondi & " and kjyear=" & Xtyear & " and Period between " & S2N(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
  770.                 End If
  771.               
  772.               Case 2   '仓库
  773.                  If Trim(.LrText(0).Text) <> "" Then
  774.                     Str_QueryCondi = Str_QueryCondi & " and whcode='" & Trim(.LrText(0).Tag) & "'"
  775.                  End If
  776.              
  777.               Case 3   '物料分类
  778.                 If Trim(.LrText(1).Text) <> "" Then
  779.                     Str_QueryCondi = Str_QueryCondi & " and invsortcode LIKE '" & Trim(.LrText(1).Tag) & "%'"
  780.                     Str_Mate = " and invsortcode LIKE '" & Trim(.LrText(1).Tag) & "%'"
  782.                 End If
  783.                 
  784.               Case 4   '物料编码
  785.                 If Trim(.LrText(2).Tag) <> "" Then
  786.                     Str_QueryCondi = Str_QueryCondi & " and mnumber='" & Trim(.LrText(2).Tag) & "'"
  787.                     Str_Mate = Str_Mate & " and mnumber='" & Trim(.LrText(2).Tag) & "'"
  788.                 End If
  789.             End Select
  790.         Next jsqte
  791.      End With
  792.     Str_WH = Str_WH & Str_QueryCondi
  793.     str_WH1 = str_WH1 & Str_QueryCondi
  794.     Str_Class1 = Str_Class1 & Str_QueryCondi
  795.     Str_Class2 = Str_Class2 & Str_QueryCondi
  796.  
  797.     Set Rec_WH = Cw_DataEnvi.DataConnect.Execute(Str_WH & " union " & str_WH1)
  798.     
  799.     If Not Rec_WH.EOF Then
  800.         Rec_WH.MoveFirst
  801.         Call Show_Tab(Rec_WH)
  802.     Else
  803.         Label3 = "仓库编码: " & KF_SumInoutQuery.LrText(0).Text
  804.         Label1 = "仓库名称: " & KF_SumInoutQuery.LrText(0).Tag
  805.         Label2 = "会计期间: " & Trim(KF_SumInoutQuery.Combo_Kjqj1.Text) & "----" & Trim(KF_SumInoutQuery.Combo_Kjqj2.Text)
  806.         
  807.         CxbbGrid.Clear 1
  808.         CxbbGrid.Rows = CxbbGrid.FixedRows
  809.         
  810.         fixIn = 0
  811.         fixOut = 0
  812.     End If
  813. End Sub
  814. Private Sub FillGrid(str1 As String, str2 As String)
  815.     Dim Rec_Class1 As New Recordset
  816.     Set Rec_Class1 = Cw_DataEnvi.DataConnect.Execute(str1 & " and whcode='" & Trim(Rec_WH.Fields("whcode")) & "'")
  817.     Dim Rec_Class2 As New Recordset
  818.     Set Rec_Class2 = Cw_DataEnvi.DataConnect.Execute(str2 & " and whcode='" & Trim(Rec_WH.Fields("whcode")) & "'")
  819.      
  820.     fixIn = Rec_Class1.RecordCount
  821.     fixOut = Rec_Class2.RecordCount
  822.      With CxbbGrid
  823.         .BackColorFixed = &H8000000F    'Dbl_BackColorFixed                           '固定行背景色 ('&H80000018)
  824.         .Cols = Qslz + 10 + Rec_Class1.RecordCount + Rec_Class2.RecordCount
  825.         .AllowUserResizing = flexResizeBoth
  826.         .SelectionMode = flexSelectionByRow
  827.         .ExplorerBar = flexExNone                                  '网格列是否可移动及排序
  828.         .ScrollTips = True
  829.         .WordWrap = True
  830.         
  831.         For jsq = Qslz To .Cols - 1
  832.             .ColHidden(jsq) = False
  833.         Next jsq
  834.         
  835.         '填 充 网 格 标 题
  836.         For Rowjsq = 0 To .FixedRows - 1
  837.             .MergeRow(Rowjsq) = True
  838.             .RowHeight(Rowjsq) = Sjhgd * 1.8
  839.             .TextMatrix(Rowjsq, Qslz) = "物料编码"
  840.             .TextMatrix(Rowjsq, Qslz + 1) = "物料名称"
  841.             .TextMatrix(Rowjsq, Qslz + 2) = "规格型号"
  842.             .TextMatrix(Rowjsq, Qslz + 3) = "计量单位"
  843.             .TextMatrix(Rowjsq, Qslz + 4) = "期初数量"
  844.             Coljsq = Qslz + 5
  845.             If Not Rec_Class1.EOF Then
  846.                 Rec_Class1.MoveFirst
  847.                 For Coljsq = (Qslz + 5) To (.Cols - 6 - 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 + 7 + Rec_Class1.RecordCount) To (.Cols - 4)
  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 - 3)) = "无出库类别数量"
  864.             .TextMatrix(Rowjsq, (.Cols - 2)) = "合计出库数量"
  865.             .TextMatrix(Rowjsq, (.Cols - 1)) = "结存数量"
  866.         Next Rowjsq
  867.         
  868.         '数 据 网 格 高 度
  869.         For Rowjsq = .FixedRows To .Rows - 1
  870.             .RowHeight(Rowjsq) = Sjhgd
  871.         Next Rowjsq
  872.         
  873.         '定 义 录 入 字 段 属 性
  874.         For Coljsq = (Qslz + 4) To .Cols - 1
  875.             .MergeCol(Coljsq) = True
  876.             .ColAlignment(Coljsq) = flexAlignRightTop
  877.             .FixedAlignment(Coljsq) = flexAlignGeneral
  878.         Next Coljsq
  879.         For Coljsq = 0 To .Cols - 1
  880.             If .TextMatrix(0, Coljsq) = "合计入库数量" Or .TextMatrix(0, Coljsq) = "合计出库数量" Then
  881.                 .ColWidth(Coljsq) = Sjhgd * 6
  882.             End If
  883.         Next Coljsq
  884.         .ColWidth(.Cols - 1) = Sjhgd * 6
  885.         .ColWidth(.Cols - 3) = Sjhgd * 6
  886.     End With
  887. End Sub
  889. Private Sub Show_Tab(Rec_Temp As Recordset)
  890.     Dim Str_QC As String
  891.     Dim rec_start As New Recordset
  892.     Dim In_Count As Double
  893.     Dim Out_Count As Double
  894.     Dim Str_Bill As String
  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_SumInoutQuery.Combo_Kjqj1.Text) & "----" & Trim(KF_SumInoutQuery.Combo_Kjqj2.Text)
  902.     
  903.     CxbbGrid.Redraw = False
  904.     CxbbGrid.Rows = CxbbGrid.FixedRows
  905.     
  906.         jsqte = CxbbGrid.Rows
  907.             Str_Bill = "select a.*,isnull((SELECT SUM(startquan) FROM KF_V_Ledger WHERE kjyear=" & Xtyear & " and period =" & S2N(Mid(Trim(KF_SumInoutQuery.Combo_Kjqj1.Text), 6)) & " AND mnumber =a.mnumber and whcode='" & Trim(Rec_Temp.Fields("whcode")) & "' group by mnumber),0)as startquan " & _
  908.                         "from (SELECT SUM(factreceiptquan)AS In_count,SUM(factissuequan)AS Out_count,mnumber,inoutclasscode, " & _
  909.                         "(select inoutclassname from gy_inoutclass where inoutclasscode=KF_V_InOutClass.inoutclasscode)as inoutclassname , " & _
  910.                         "(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, " & _
  911.                         "(select primaryunitname from gy_material where KF_V_InOutClass.mnumber=gy_material.mnumber) as primaryunitname From KF_V_InOutClass " & _
  912.                         "where whcode='" & Trim(Rec_Temp.Fields("whcode")) & "'  and kjyear=" & Xtyear & " and period between " & S2N(Mid(Trim(KF_SumInoutQuery.Combo_Kjqj1.Text), 6)) & " and " & S2N(Mid(Trim(KF_SumInoutQuery.Combo_Kjqj2.Text), 6)) & Str_Mate & "  GROUP BY mnumber, inoutclasscode)a order by mnumber"
  914.             
  915.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Str_Bill)
  916.             Dim Sum_In As Double, Sum_Out As Double
  917.             Sum_In = 0
  918.             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.TextMatrix(jsqte, Qslz + 4) = S2N(Rec_Query.Fields("startquan"))           '期初数量
  927.                 CxbbGrid.RowHeight(jsqte) = Sjhgd
  928.                 Do While Not Rec_Query.EOF
  929.                     If Trim(Rec_Query.Fields("mnumber")) = Trim(CxbbGrid.TextMatrix(jsqte, Qslz)) Then  '将行转换成列
  930.                         If IsNull(Rec_Query.Fields("inoutclassname")) Then
  931.                               If S2N(Rec_Query.Fields("In_count")) <> 0 Then
  932.                                 CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - fixOut - 5)) = S2N(Rec_Query.Fields("In_count"))        '入库数量
  933.                                 Sum_In = Sum_In + S2N(Rec_Query.Fields("In_count"))
  934.                             End If
  935.                             
  936.                             If S2N(Rec_Query.Fields("out_count")) <> 0 Then
  937.                                 CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - 3)) = S2N(Rec_Query.Fields("Out_count"))                '出库数量
  938.                                 Sum_Out = Sum_Out + S2N(Rec_Query.Fields("Out_count"))
  939.                             End If
  940.                         End If
  941.                             For Coljsq = (Qslz + 5) To CxbbGrid.Cols - 3
  942.                                 If Trim(Rec_Query.Fields("inoutclassname")) & "数量" = Trim(CxbbGrid.TextMatrix(0, Coljsq)) Then
  943.                                     If S2N(Rec_Query.Fields("In_count") & "") <> 0 Then
  944.                                         CxbbGrid.TextMatrix(jsqte, Coljsq) = S2N(Rec_Query.Fields("In_count"))                      '入库数量
  945.                                         Sum_In = Sum_In + S2N(Rec_Query.Fields("In_count"))
  946.                                     Else
  947.                                         CxbbGrid.TextMatrix(jsqte, Coljsq) = S2N(Rec_Query.Fields("Out_count"))                     '出库数量
  948.                                         Sum_Out = Sum_Out + S2N(Rec_Query.Fields("Out_count"))
  949.                                     End If
  950.                                 End If
  951.                             Next
  952.                             CxbbGrid.TextMatrix(jsqte, CxbbGrid.Cols - 2) = Sum_Out
  953.                             CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - fixOut - 4)) = Sum_In
  954.                             CxbbGrid.TextMatrix(jsqte, CxbbGrid.Cols - 1) = S2N(CxbbGrid.TextMatrix(jsqte, Qslz + 4)) + Sum_In - Sum_Out        '结存数量
  956.                             Rec_Query.MoveNext
  957.                     Else
  958.                         Sum_In = 0
  959.                         Sum_Out = 0
  960.                         jsqte = jsqte + 1
  961.                         CxbbGrid.AddItem ""
  962.                         CxbbGrid.TextMatrix(jsqte, Qslz) = Trim(Rec_Query.Fields("mnumber"))                                '物料编码
  963.                         CxbbGrid.TextMatrix(jsqte, Qslz + 1) = Trim(Rec_Query.Fields("mname"))                              '物料名称
  964.                         CxbbGrid.TextMatrix(jsqte, Qslz + 2) = Trim(Rec_Query.Fields("model"))                              '规格型号
  965.                         CxbbGrid.TextMatrix(jsqte, Qslz + 3) = Trim(Rec_Query.Fields("primaryunitname"))                    '计量单位
  966.                         CxbbGrid.TextMatrix(jsqte, Qslz + 4) = S2N(Rec_Query.Fields("startquan"))                           '期初数量
  967.                         CxbbGrid.RowHeight(jsqte) = Sjhgd
  968.                         If IsNull(Rec_Query.Fields("inoutclassname")) Then
  969.                               If S2N(Rec_Query.Fields("In_count")) <> 0 Then
  970.                                 CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - fixOut - 5)) = S2N(Rec_Query.Fields("In_count"))    '入库数量
  971.                                 Sum_In = Sum_In + S2N(Rec_Query.Fields("In_count"))
  972.                             End If
  973.                             
  974.                             If S2N(Rec_Query.Fields("out_count")) <> 0 Then
  975.                                 CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - 3)) = S2N(Rec_Query.Fields("Out_count"))            '出库数量
  976.                                 
  977.                                 Sum_Out = Sum_Out + S2N(Rec_Query.Fields("Out_count"))
  978.                             End If
  979.                         End If
  980.                             For Coljsq = (Qslz + 5) To CxbbGrid.Cols - 3
  981.                                 If Trim(Rec_Query.Fields("inoutclassname")) & "数量" = Trim(CxbbGrid.TextMatrix(0, Coljsq)) Then
  982.                                     If S2N(Rec_Query.Fields("In_count")) <> 0 Then
  983.                                         CxbbGrid.TextMatrix(jsqte, Coljsq) = S2N(Rec_Query.Fields("In_count"))                  '入库数量
  984.                                         Sum_In = Sum_In + S2N(Rec_Query.Fields("In_count"))
  985.                                     Else
  986.                                         CxbbGrid.TextMatrix(jsqte, Coljsq) = S2N(Rec_Query.Fields("Out_count"))                 '出库数量
  987.                                         Sum_Out = Sum_Out + S2N(Rec_Query.Fields("Out_count"))
  988.                                     End If
  989.                                 End If
  990.                             Next
  991.                             CxbbGrid.TextMatrix(jsqte, CxbbGrid.Cols - 2) = Sum_Out
  992.                             CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - fixOut - 4)) = Sum_In
  993.                             CxbbGrid.TextMatrix(jsqte, CxbbGrid.Cols - 1) = S2N(CxbbGrid.TextMatrix(jsqte, Qslz + 4)) + Sum_In - Sum_Out    '结存数量
  994.                             Rec_Query.MoveNext
  995.                     End If
  996.                 Loop
  997.             Else
  998.                 Str_QC = "SELECT SUM(startquan) AS startquan,  mnumber, whname, mname, primaryunitname, model" & _
  999.                     " FROM KF_V_Ledger WHERE kjyear=" & Xtyear & " and period =" & S2N(Mid(Trim(KF_SumInoutQuery.Combo_Kjqj1.Text), 6)) & "  and whcode='" & Trim(Rec_Temp.Fields("whcode")) & "'" & _
  1000.                     " GROUP BY  mnumber, whname, mname, primaryunitname, model"
  1001.                 
  1002.                 Set rec_start = Cw_DataEnvi.DataConnect.Execute(Str_QC)
  1003.                 If Not rec_start.EOF Then
  1004.                     CxbbGrid.AddItem ""
  1005.                     CxbbGrid.TextMatrix(jsqte, Qslz) = Trim(rec_start.Fields("mnumber"))            '物料编码
  1006.                     CxbbGrid.TextMatrix(jsqte, Qslz + 1) = Trim(rec_start.Fields("mname"))          '物料名称
  1007.                     CxbbGrid.TextMatrix(jsqte, Qslz + 2) = Trim(rec_start.Fields("model"))          '规格型号
  1008.                     CxbbGrid.TextMatrix(jsqte, Qslz + 3) = Trim(rec_start.Fields("primaryunitname"))    '计量单位
  1009.                     CxbbGrid.TextMatrix(jsqte, Qslz + 4) = 0
  1010.                     CxbbGrid.TextMatrix(jsqte, Qslz + 4) = Trim(rec_start.Fields("startquan"))      '期初数量
  1011.                     CxbbGrid.RowHeight(jsqte) = Sjhgd
  1012.                     CxbbGrid.TextMatrix(jsqte, CxbbGrid.Cols - 2) = Sum_Out
  1013.                     CxbbGrid.TextMatrix(jsqte, (CxbbGrid.Cols - fixOut - 4)) = Sum_In
  1014.                     CxbbGrid.TextMatrix(jsqte, CxbbGrid.Cols - 1) = S2N(CxbbGrid.TextMatrix(jsqte, Qslz + 4)) + Sum_In - Sum_Out    '结存数量
  1015.                     jsqte = jsqte + 1
  1016.                 End If
  1017.             End If
  1018.     Call SLGSH
  1019.     If Not SzToolbar.Buttons("Sum").Enabled Then
  1020.         Call HuiZong
  1021.     End If
  1022.     CxbbGrid.Redraw = True
  1023. End Sub
  1024. Private Sub SLGSH()         '数据格式化
  1025.     With CxbbGrid
  1026.         For hjsq = .FixedRows To .Rows - 1
  1027.             For ljsq = Qslz + 4 To .Cols - 1
  1028.                 .TextMatrix(hjsq, ljsq) = Format(Trim(.TextMatrix(hjsq, ljsq)), "#,##0." + String(Xtslxsws, "0"))
  1029.                 
  1030.                 If S2N(.TextMatrix(hjsq, ljsq)) = 0 Then
  1031.                     .TextMatrix(hjsq, ljsq) = ""
  1032.                 End If
  1033.             Next ljsq
  1034.         Next hjsq
  1035.     End With
  1036. End Sub
  1038. Private Sub HuiZong()       '汇总数据
  1039.     With CxbbGrid
  1040.         If fixIn > 0 Then
  1041.             For jsq = (Qslz + 5) To (Qslz + 5 + fixIn)
  1042.                 .ColHidden(jsq) = True
  1043.             Next
  1044.         End If
  1045.         If fixOut > 0 Then
  1046.             For jsq = (Qslz + 7 + fixIn) To (.Cols - 3)
  1047.                 .ColHidden(jsq) = True
  1048.             Next
  1049.         End If
  1050.     
  1051.     End With
  1052. End Sub
  1055. Private Sub First()
  1056.     If Rec_WH.State = 1 Then
  1057.         If Rec_WH.RecordCount > 0 Then
  1058.             Rec_WH.MoveFirst
  1059.             Call Show_Tab(Rec_WH)
  1060.         End If
  1061.     End If
  1062. End Sub
  1063. Private Sub Last()
  1064.     If Rec_WH.State = 1 Then
  1065.         If Rec_WH.RecordCount > 0 Then
  1066.             Rec_WH.MoveLast
  1067.             Call Show_Tab(Rec_WH)
  1068.         End If
  1069.     End If
  1070. End Sub
  1071. Private Sub Prev()
  1072.     If Rec_WH.State = 1 Then
  1073.         If Rec_WH.RecordCount > 0 Then
  1074.             If Rec_WH.EOF Then
  1075.                 Rec_WH.MovePrevious
  1076.             End If
  1077.             If Not Rec_WH.BOF Then
  1078.                 Rec_WH.MovePrevious
  1079.                 If Not Rec_WH.BOF Then
  1080.                     Call Show_Tab(Rec_WH)
  1081.                 End If
  1082.             End If
  1083.         End If
  1084.     End If
  1085. End Sub
  1086. Private Sub Sub_next()
  1087.     If Rec_WH.State = 1 Then
  1088.         If Rec_WH.RecordCount > 0 Then
  1089.             If Rec_WH.BOF Then
  1090.                 Rec_WH.MoveNext
  1091.             End If
  1092.             If Not Rec_WH.EOF Then
  1093.                 Rec_WH.MoveNext
  1094.                 If Not Rec_WH.EOF Then
  1095.                     Call Show_Tab(Rec_WH)
  1096.                 End If
  1097.             End If
  1098.         End If
  1099.     End If
  1100. End Sub
  1102. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1103.     
  1104.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1105.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1106.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1107.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1108.     ReDim Bbxbt(1 To Bbxbtgs)
  1109.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1110.     If Bbbwhgs <> 0 Then
  1111.         ReDim Bbbwh(1 To Bbbwhgs)
  1112.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1113.     End If
  1114.     Bbzbt = ReportTitle
  1115.     Bbxbt(1) = ""
  1116.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1117.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1118.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1119.     If Not bbylte Then
  1120.         Unload DY_Tybbyldy
  1121.     End If
  1123. End Sub