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

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

企业管理

开发平台：

Visual Basic

i-：源码内容
  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_FrmStockAcc 
  5.    Caption         =   "帐簿分析_库存台帐"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   8880
  10.    HelpContextID   =   1217002
  11.    Icon            =   "帐簿分析_库存台帐查询结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   8880
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   540
  20.       Left            =   9330
  21.       TabIndex        =   3
  22.       Top             =   30
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   953
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   953
  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          =   1395
  54.       Left            =   0
  55.       Picture         =   "帐簿分析_库存台帐查询结果.frx":1042
  56.       ScaleHeight     =   1335
  57.       ScaleWidth      =   11715
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11775
  61.       Begin VB.CommandButton Cmd_CancelPrint 
  62.          Caption         =   "取消打印(&C)"
  63.          Height          =   405
  64.          Left            =   7620
  65.          TabIndex        =   10
  66.          Top             =   150
  67.          Visible         =   0   'False
  68.          Width           =   1155
  69.       End
  70.       Begin VB.Label Label1 
  71.          AutoSize        =   -1  'True
  72.          BackStyle       =   0  'Transparent
  73.          Caption         =   "物料分类:"
  74.          Height          =   180
  75.          Left            =   4650
  76.          TabIndex        =   9
  77.          Top             =   750
  78.          Width           =   810
  79.       End
  80.       Begin VB.Label Label2 
  81.          AutoSize        =   -1  'True
  82.          BackStyle       =   0  'Transparent
  83.          Caption         =   "物料编码:"
  84.          Height          =   195
  85.          Left            =   1410
  86.          TabIndex        =   8
  87.          Top             =   750
  88.          Width           =   765
  89.       End
  90.       Begin VB.Label Label3 
  91.          AutoSize        =   -1  'True
  92.          BackStyle       =   0  'Transparent
  93.          Caption         =   "物料名称:"
  94.          Height          =   195
  95.          Left            =   1410
  96.          TabIndex        =   7
  97.          Top             =   1050
  98.          Width           =   765
  99.       End
  100.       Begin VB.Label Label4 
  101.          AutoSize        =   -1  'True
  102.          BackStyle       =   0  'Transparent
  103.          Caption         =   "规格型号:"
  104.          Height          =   195
  105.          Left            =   4650
  106.          TabIndex        =   6
  107.          Top             =   1050
  108.          Width           =   765
  109.       End
  110.       Begin VB.Label Label5 
  111.          AutoSize        =   -1  'True
  112.          BackStyle       =   0  'Transparent
  113.          Caption         =   "计量单位:"
  114.          Height          =   195
  115.          Left            =   7050
  116.          TabIndex        =   5
  117.          Top             =   1050
  118.          Width           =   765
  119.       End
  120.       Begin VB.Label Lab_Title 
  121.          BackColor       =   &H80000018&
  122.          BackStyle       =   0  'Transparent
  123.          Caption         =   "库存台帐"
  124.          BeginProperty Font 
  125.             Name            =   "宋体"
  126.             Size            =   12
  127.             Charset         =   134
  128.             Weight          =   700
  129.             Underline       =   0   'False
  130.             Italic          =   0   'False
  131.             Strikethrough   =   0   'False
  132.          EndProperty
  133.          ForeColor       =   &H00000000&
  134.          Height          =   300
  135.          Index           =   4
  136.          Left            =   480
  137.          TabIndex        =   2
  138.          Top             =   210
  139.          Width           =   2715
  140.       End
  141.    End
  142.    Begin VB.Timer Timer1 
  143.       Enabled         =   0   'False
  144.       Interval        =   1
  145.       Left            =   7620
  146.       Top             =   90
  147.    End
  148.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  149.       Height          =   7995
  150.       Left            =   0
  151.       TabIndex        =   0
  152.       Top             =   1980
  153.       Width           =   11775
  154.       _cx             =   5080
  155.       _cy             =   5080
  156.       Appearance      =   1
  157.       BorderStyle     =   1
  158.       Enabled         =   -1  'True
  159.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  160.          Name            =   "宋体"
  161.          Size            =   9
  162.          Charset         =   134
  163.          Weight          =   400
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       MousePointer    =   0
  169.       BackColor       =   16777215
  170.       ForeColor       =   -2147483640
  171.       BackColorFixed  =   13826538
  172.       ForeColorFixed  =   -2147483630
  173.       BackColorSel    =   -2147483635
  174.       ForeColorSel    =   -2147483634
  175.       BackColorBkg    =   -2147483636
  176.       BackColorAlternate=   16777215
  177.       GridColor       =   -2147483633
  178.       GridColorFixed  =   -2147483632
  179.       TreeColor       =   -2147483632
  180.       FloodColor      =   192
  181.       SheetBorder     =   -2147483642
  182.       FocusRect       =   1
  183.       HighLight       =   1
  184.       AllowSelection  =   -1  'True
  185.       AllowBigSelection=   -1  'True
  186.       AllowUserResizing=   0
  187.       SelectionMode   =   0
  188.       GridLines       =   1
  189.       GridLinesFixed  =   2
  190.       GridLineWidth   =   1
  191.       Rows            =   50
  192.       Cols            =   10
  193.       FixedRows       =   1
  194.       FixedCols       =   1
  195.       RowHeightMin    =   0
  196.       RowHeightMax    =   0
  197.       ColWidthMin     =   0
  198.       ColWidthMax     =   0
  199.       ExtendLastCol   =   0   'False
  200.       FormatString    =   ""
  201.       ScrollTrack     =   0   'False
  202.       ScrollBars      =   3
  203.       ScrollTips      =   0   'False
  204.       MergeCells      =   0
  205.       MergeCompare    =   0
  206.       AutoResize      =   -1  'True
  207.       AutoSizeMode    =   0
  208.       AutoSearch      =   0
  209.       AutoSearchDelay =   2
  210.       MultiTotals     =   -1  'True
  211.       SubtotalPosition=   0
  212.       OutlineBar      =   0
  213.       OutlineCol      =   0
  214.       Ellipsis        =   0
  215.       ExplorerBar     =   0
  216.       PicturesOver    =   0   'False
  217.       FillStyle       =   0
  218.       RightToLeft     =   0   'False
  219.       PictureType     =   0
  220.       TabBehavior     =   0
  221.       OwnerDraw       =   0
  222.       Editable        =   0
  223.       ShowComboButton =   1
  224.       WordWrap        =   0   'False
  225.       TextStyle       =   0
  226.       TextStyleFixed  =   0
  227.       OleDragMode     =   0
  228.       OleDropMode     =   0
  229.       DataMode        =   0
  230.       VirtualData     =   -1  'True
  231.       DataMember      =   ""
  232.       ComboSearch     =   3
  233.       AutoSizeMouse   =   -1  'True
  234.       FrozenRows      =   0
  235.       FrozenCols      =   0
  236.       AllowUserFreezing=   0
  237.       BackColorFrozen =   0
  238.       ForeColorFrozen =   0
  239.       WallPaperAlignment=   9
  240.       AccessibleName  =   ""
  241.       AccessibleDescription=   ""
  242.       AccessibleValue =   ""
  243.       AccessibleRole  =   24
  244.       Begin MSComctlLib.ImageList ImageList2 
  245.          Left            =   0
  246.          Top             =   0
  247.          _ExtentX        =   1005
  248.          _ExtentY        =   1005
  249.          BackColor       =   -2147483643
  250.          ImageWidth      =   16
  251.          ImageHeight     =   16
  252.          MaskColor       =   12632256
  253.          _Version        =   393216
  254.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  255.             NumListImages   =   41
  256.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  257.                Picture         =   "帐簿分析_库存台帐查询结果.frx":1FAC4
  258.                Key             =   "sz"
  259.             EndProperty
  260.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  261.                Picture         =   "帐簿分析_库存台帐查询结果.frx":1FE5E
  262.                Key             =   "dy"
  263.             EndProperty
  264.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  265.                Picture         =   "帐簿分析_库存台帐查询结果.frx":201F8
  266.                Key             =   "yl"
  267.             EndProperty
  268.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  269.                Picture         =   "帐簿分析_库存台帐查询结果.frx":20592
  270.                Key             =   "xg"
  271.             EndProperty
  272.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  273.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2092C
  274.                Key             =   "zh"
  275.             EndProperty
  276.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  277.                Picture         =   "帐簿分析_库存台帐查询结果.frx":20CC6
  278.                Key             =   "sh"
  279.             EndProperty
  280.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  281.                Picture         =   "帐簿分析_库存台帐查询结果.frx":21060
  282.                Key             =   "bc"
  283.             EndProperty
  284.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  285.                Picture         =   "帐簿分析_库存台帐查询结果.frx":213FA
  286.                Key             =   "fq"
  287.             EndProperty
  288.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  289.                Picture         =   "帐簿分析_库存台帐查询结果.frx":21794
  290.                Key             =   "bz"
  291.             EndProperty
  292.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  293.                Picture         =   "帐簿分析_库存台帐查询结果.frx":21B2E
  294.                Key             =   "tc"
  295.             EndProperty
  296.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  297.                Picture         =   "帐簿分析_库存台帐查询结果.frx":21EC8
  298.                Key             =   "bcgs"
  299.             EndProperty
  300.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  301.                Picture         =   "帐簿分析_库存台帐查询结果.frx":22262
  302.                Key             =   "mrlk"
  303.             EndProperty
  304.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  305.                Picture         =   "帐簿分析_库存台帐查询结果.frx":225FC
  306.                Key             =   "xsxm"
  307.             EndProperty
  308.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  309.                Picture         =   "帐簿分析_库存台帐查询结果.frx":22996
  310.                Key             =   "first"
  311.             EndProperty
  312.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  313.                Picture         =   "帐簿分析_库存台帐查询结果.frx":22D30
  314.                Key             =   "prev"
  315.             EndProperty
  316.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  317.                Picture         =   "帐簿分析_库存台帐查询结果.frx":230CA
  318.                Key             =   "next"
  319.             EndProperty
  320.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  321.                Picture         =   "帐簿分析_库存台帐查询结果.frx":23464
  322.                Key             =   "last"
  323.             EndProperty
  324.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  325.                Picture         =   "帐簿分析_库存台帐查询结果.frx":237FE
  326.                Key             =   "xx"
  327.             EndProperty
  328.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  329.                Picture         =   "帐簿分析_库存台帐查询结果.frx":23B98
  330.                Key             =   "define"
  331.             EndProperty
  332.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  333.                Picture         =   "帐簿分析_库存台帐查询结果.frx":23F32
  334.                Key             =   "exec"
  335.             EndProperty
  336.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  337.                Picture         =   "帐簿分析_库存台帐查询结果.frx":242CC
  338.                Key             =   "xz"
  339.             EndProperty
  340.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  341.                Picture         =   "帐簿分析_库存台帐查询结果.frx":24666
  342.                Key             =   "sc"
  343.             EndProperty
  344.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  345.                Picture         =   "帐簿分析_库存台帐查询结果.frx":24A00
  346.                Key             =   "sx"
  347.             EndProperty
  348.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  349.                Picture         =   "帐簿分析_库存台帐查询结果.frx":24D9A
  350.                Key             =   "cx"
  351.             EndProperty
  352.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  353.                Picture         =   "帐簿分析_库存台帐查询结果.frx":25134
  354.                Key             =   "zd"
  355.             EndProperty
  356.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  357.                Picture         =   "帐簿分析_库存台帐查询结果.frx":254CE
  358.                Key             =   "dz"
  359.             EndProperty
  360.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  361.                Picture         =   "帐簿分析_库存台帐查询结果.frx":25868
  362.                Key             =   "ph"
  363.             EndProperty
  364.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  365.                Picture         =   "帐簿分析_库存台帐查询结果.frx":25C02
  366.                Key             =   "fz"
  367.             EndProperty
  368.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  369.                Picture         =   "帐簿分析_库存台帐查询结果.frx":25F9C
  370.                Key             =   "dw"
  371.             EndProperty
  372.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  373.                Picture         =   "帐簿分析_库存台帐查询结果.frx":26336
  374.                Key             =   "hf"
  375.             EndProperty
  376.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  377.                Picture         =   "帐簿分析_库存台帐查询结果.frx":266D0
  378.                Key             =   "pz"
  379.             EndProperty
  380.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  381.                Picture         =   "帐簿分析_库存台帐查询结果.frx":26A6A
  382.                Key             =   "check"
  383.             EndProperty
  384.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  385.                Picture         =   "帐簿分析_库存台帐查询结果.frx":26E04
  386.                Key             =   "qs"
  387.             EndProperty
  388.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  389.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2719E
  390.                Key             =   "fullcheck"
  391.             EndProperty
  392.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  393.                Picture         =   "帐簿分析_库存台帐查询结果.frx":27538
  394.                Key             =   "qq"
  395.             EndProperty
  396.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  397.                Picture         =   "帐簿分析_库存台帐查询结果.frx":278D2
  398.                Key             =   "bcw"
  399.             EndProperty
  400.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  401.                Picture         =   "帐簿分析_库存台帐查询结果.frx":27C6C
  402.                Key             =   "ye"
  403.             EndProperty
  404.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  405.                Picture         =   "帐簿分析_库存台帐查询结果.frx":28006
  406.                Key             =   ""
  407.             EndProperty
  408.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  409.                Picture         =   "帐簿分析_库存台帐查询结果.frx":283A0
  410.                Key             =   "frist"
  411.             EndProperty
  412.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  413.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2873A
  414.                Key             =   "dj"
  415.             EndProperty
  416.             BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  417.                Picture         =   "帐簿分析_库存台帐查询结果.frx":28AD4
  418.                Key             =   "ld"
  419.                Object.Tag             =   "连打"
  420.             EndProperty
  421.          EndProperty
  422.       End
  423.    End
  424.    Begin MSComctlLib.Toolbar SzToolbar 
  425.       Align           =   1  'Align Top
  426.       Height          =   555
  427.       Left            =   0
  428.       TabIndex        =   4
  429.       Top             =   0
  430.       Width           =   8880
  431.       _ExtentX        =   15663
  432.       _ExtentY        =   979
  433.       ButtonWidth     =   820
  434.       ButtonHeight    =   926
  435.       AllowCustomize  =   0   'False
  436.       Appearance      =   1
  437.       Style           =   1
  438.       ImageList       =   "ImageList1"
  439.       _Version        =   393216
  440.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  441.          NumButtons      =   17
  442.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  443.             Caption         =   "设置"
  444.             Key             =   "ymsz"
  445.             ImageKey        =   "sz"
  446.          EndProperty
  447.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  448.             Caption         =   "打印"
  449.             Key             =   "dy"
  450.             ImageKey        =   "dy"
  451.          EndProperty
  452.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  453.             Caption         =   "预览"
  454.             Key             =   "yl"
  455.             ImageKey        =   "yl"
  456.          EndProperty
  457.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  458.             Caption         =   "连打"
  459.             Key             =   "ld"
  460.             ImageKey        =   "ld"
  461.          EndProperty
  462.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  463.             Style           =   3
  464.          EndProperty
  465.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  466.             Caption         =   "查询"
  467.             Key             =   "cx"
  468.             ImageKey        =   "cx"
  469.          EndProperty
  470.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  471.             Caption         =   "单据"
  472.             Key             =   "Bill"
  473.             ImageKey        =   "pz"
  474.          EndProperty
  475.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  476.             Style           =   3
  477.          EndProperty
  478.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  479.             Caption         =   "摘要"
  480.             Key             =   "zy"
  481.             ImageKey        =   "define"
  482.          EndProperty
  483.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  484.             Style           =   3
  485.          EndProperty
  486.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  487.             Caption         =   "首张"
  488.             Key             =   "first"
  489.             ImageKey        =   "first"
  490.          EndProperty
  491.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  492.             Caption         =   "上张"
  493.             Key             =   "prev"
  494.             ImageKey        =   "prev"
  495.          EndProperty
  496.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  497.             Caption         =   "下张"
  498.             Key             =   "next"
  499.             ImageKey        =   "next"
  500.          EndProperty
  501.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  502.             Caption         =   "末张"
  503.             Key             =   "last"
  504.             ImageKey        =   "last"
  505.          EndProperty
  506.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  507.             Style           =   3
  508.          EndProperty
  509.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  510.             Caption         =   "帮助"
  511.             Key             =   "bz"
  512.             ImageKey        =   "bz"
  513.          EndProperty
  514.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  515.             Caption         =   "退出"
  516.             Key             =   "fh"
  517.             ImageKey        =   "tc"
  518.          EndProperty
  519.       EndProperty
  520.       BorderStyle     =   1
  521.       Begin MSComctlLib.ImageList ImageList1 
  522.          Left            =   6990
  523.          Top             =   30
  524.          _ExtentX        =   1005
  525.          _ExtentY        =   1005
  526.          BackColor       =   -2147483643
  527.          ImageWidth      =   16
  528.          ImageHeight     =   16
  529.          MaskColor       =   12632256
  530.          _Version        =   393216
  531.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  532.             NumListImages   =   33
  533.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  534.                Picture         =   "帐簿分析_库存台帐查询结果.frx":28E6E
  535.                Key             =   "sz"
  536.             EndProperty
  537.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  538.                Picture         =   "帐簿分析_库存台帐查询结果.frx":29208
  539.                Key             =   "dy"
  540.             EndProperty
  541.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  542.                Picture         =   "帐簿分析_库存台帐查询结果.frx":295A2
  543.                Key             =   "yl"
  544.             EndProperty
  545.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  546.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2993C
  547.                Key             =   "xg"
  548.             EndProperty
  549.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  550.                Picture         =   "帐簿分析_库存台帐查询结果.frx":29CD6
  551.                Key             =   "zh"
  552.             EndProperty
  553.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  554.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2A070
  555.                Key             =   "sh"
  556.             EndProperty
  557.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  558.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2A40A
  559.                Key             =   "bc"
  560.             EndProperty
  561.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  562.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2A7A4
  563.                Key             =   "fq"
  564.             EndProperty
  565.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  566.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2AB3E
  567.                Key             =   "bz"
  568.             EndProperty
  569.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  570.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2AED8
  571.                Key             =   "tc"
  572.             EndProperty
  573.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  574.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2B272
  575.                Key             =   "bcgs"
  576.             EndProperty
  577.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  578.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2B60C
  579.                Key             =   "mrlk"
  580.             EndProperty
  581.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  582.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2B9A6
  583.                Key             =   "xsxm"
  584.             EndProperty
  585.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  586.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2BD40
  587.                Key             =   "first"
  588.             EndProperty
  589.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  590.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2C0DA
  591.                Key             =   "prev"
  592.             EndProperty
  593.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  594.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2C474
  595.                Key             =   "next"
  596.             EndProperty
  597.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  598.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2C80E
  599.                Key             =   "last"
  600.             EndProperty
  601.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  602.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2CBA8
  603.                Key             =   "xx"
  604.             EndProperty
  605.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  606.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2CF42
  607.                Key             =   "define"
  608.             EndProperty
  609.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  610.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2D2DC
  611.                Key             =   "exec"
  612.             EndProperty
  613.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  614.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2D676
  615.                Key             =   "xz"
  616.             EndProperty
  617.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  618.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2DA10
  619.                Key             =   "sc"
  620.             EndProperty
  621.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  622.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2DDAA
  623.                Key             =   "sx"
  624.             EndProperty
  625.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  626.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2E144
  627.                Key             =   "cx"
  628.             EndProperty
  629.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  630.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2E4DE
  631.                Key             =   "zd"
  632.             EndProperty
  633.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  634.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2E878
  635.                Key             =   "dz"
  636.             EndProperty
  637.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  638.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2EC12
  639.                Key             =   "ph"
  640.             EndProperty
  641.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  642.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2EFAC
  643.                Key             =   "fz"
  644.             EndProperty
  645.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  646.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2F346
  647.                Key             =   "dw"
  648.             EndProperty
  649.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  650.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2F6E0
  651.                Key             =   "hf"
  652.             EndProperty
  653.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  654.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2FA7A
  655.                Key             =   "pz"
  656.             EndProperty
  657.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  658.                Picture         =   "帐簿分析_库存台帐查询结果.frx":2FE14
  659.                Key             =   "check"
  660.             EndProperty
  661.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  662.                Picture         =   "帐簿分析_库存台帐查询结果.frx":301AE
  663.                Key             =   "ld"
  664.                Object.Tag             =   "ld"
  665.             EndProperty
  666.          EndProperty
  667.       End
  668.    End
  669. End
  670. Attribute VB_Name = "KF_FrmStockAcc"
  671. Attribute VB_GlobalNameSpace = False
  672. Attribute VB_Creatable = False
  673. Attribute VB_PredeclaredId = True
  674. Attribute VB_Exposed = False
  675. '**************************************************************************
  676. '*    模 块 名 称 :库存台帐
  677. '*    功 能 描 述 :
  678. '*    程序员姓名  :张万成
  679. '*    最后修改人  :张万成
  680. '*    最后修改时间:2001/12/06
  681. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  682. '**************************************************************************
  683. Dim ReportTitle As String                '报表主标题
  684. Dim Str_QueryCondi As String             '用户录入查询条件
  685. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  686. Dim Bln_CancelPrint As Boolean           '用户是否取消打印
  687. Dim Bln_Printing As Boolean              '用户是否正在打印
  689. '以下为固定使用变量
  690. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  691. Dim GridCode As String                   '显示网格网格代码
  692. Dim GridInf() As Variant                 '整个网格设置信息
  693. Dim Tsxx As String                       '系统提示信息
  694. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  695. Dim Sjhgd As Double                      '网格数据行高度
  696. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  697. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  698. Dim GridStr()  As String                 '网格列信息(字符型)
  699. Dim GridInt() As Integer                 '网格列信息(整型)
  700. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  701. Dim adoMate As New ADODB.Recordset
  702. Dim adoQuery As New ADODB.Recordset
  703. Public Bln As Boolean
  705. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  706.     On Error Resume Next
  707.     With CxbbGrid
  708.         .Width = Me.Width - 160
  709.         .Height = Me.Height - .Top - 400
  710.     End With
  711.     With Pic_Title
  712.         .Width = Me.Width - 160
  713.     End With
  714.     
  715.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  717. End Sub
  719. Private Sub Form_Load()                                                   '窗体装入
  720.   
  721.     '调入打印页面设置窗体
  722.     ReportTitle = "库存台帐"
  723.     XtReportCode = "KF_StockAcc"
  724.     Load Dyymctbl
  725.       
  726.     '调整标题栏及网格、格式工具条位置(Fixed)
  727.     Pic_Title.Left = 40
  728.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  729.     CxbbGrid.Left = Pic_Title.Left
  730.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  731.      
  732.     '调 入 网 格(Fixed)
  733.     GridCode = "KF_StockAcc"
  734.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  735.       
  736.     Qslz = GridInf(1)
  737.     Sjhgd = GridInf(2)
  738.     Sfxshjwg = GridInf(7)
  739.     Szzls = CxbbGrid.Cols - 1
  740.     
  741.     
  743. End Sub
  745. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  747.     If Bln_Printing Then
  748.         Cancel = 1
  749.     End If
  750.         
  751.     '卸载条件窗体
  752.     KF_FrmStockAccCxtj.UnloadCheck.Value = 1
  753.     Unload KF_FrmStockAccCxtj
  754.     Unload KF_FrmDigest
  755.     '卸载打印页面设置窗体
  756.     Unload Dyymctbl
  758. End Sub
  760. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  761.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  762. End Sub
  764. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  765.   
  766.     Select Case Button.Key
  767.         Case "bcgs"                                          '保存表格格式
  768.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  769.         Case "hfmrgs"                                        '恢复默认格式
  770.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  771.         Case "szxsxm"                                        '设置显示项目
  772.             Call Szxsxm(CxbbGrid, GridCode)
  773.     End Select
  775. End Sub
  777. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  778.     
  779.     If Bln_Printing Then
  780.         Exit Sub
  781.     End If
  782.     
  783.     Select Case Button.Key
  784.         Case "ymsz"                                          '页面设置
  785.             Dyymctbl.Show 1
  786.         Case "yl"                                            '预 览
  787.             Call bbyl(True)
  788.         Case "dy"                                            '打 印
  789.             Call bbyl(False)
  790.         Case "ld"
  791.             Call Sub_Lxdy
  792.         Case "cx"                                            '查 询
  793.             KF_FrmStockAccCxtj.Show 1
  794.         Case "Bill"
  795.             Call CxbbGrid_DblClick
  796.         Case "zy"
  797.             If adoMate.State = 1 Then
  798.                 If adoMate.RecordCount > 0 Then
  799.                     KF_FrmDigest.Label1.Caption = "1"
  800.                     KF_FrmDigest.Show 1
  801.                     If Not Bln Then
  802.                         '[[
  803.                         If adoMate.EOF Then
  804.                             adoMate.MoveLast
  805.                         ElseIf adoMate.BOF Then
  806.                             adoMate.MoveFirst
  807.                         End If
  808.                         Call Show_Tab(adoMate)
  809.                         ']]
  810.                     End If
  811.                 End If
  812.             End If
  813.         Case "first"
  814.             Call First
  815.         Case "last"
  816.             Call Last
  817.         Case "prev"
  818.             Call Prev
  819.         Case "next"
  820.             Call Sub_next
  821.         Case "bz"                                            '帮 助
  822.             Call F1bz
  823.         Case "fh"                                            '退 出
  824.            Unload Me
  825.     End Select
  827. End Sub
  829. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  830.     
  831.     Timer1.Enabled = False
  832.     Xt_Wait.Show
  833.     Xt_Wait.Refresh
  834.    
  835.     '加快显示速度
  836.     CxbbGrid.Redraw = False
  837.  
  838.     '生成查询结果
  839.     Call Sub_Query(0)
  840.    
  841.     CxbbGrid.Redraw = True
  842.     
  843.     Xt_Wait.Hide
  845. End Sub
  847. Private Sub First()
  849.     If adoMate.State = 1 Then
  850.         If adoMate.RecordCount > 0 Then
  851.             adoMate.MoveFirst
  852.             intNowRec = 1
  853.             SzToolbar.Buttons("first").Enabled = False
  854.             SzToolbar.Buttons("prev").Enabled = False
  855.             SzToolbar.Buttons("next").Enabled = True
  856.             SzToolbar.Buttons("last").Enabled = True
  857.             Call Show_Tab(adoMate)
  858.         End If
  859.     End If
  860. End Sub
  861. Private Sub Last()
  862.     If adoMate.State = 1 Then
  863.         If adoMate.RecordCount > 0 Then
  864.             adoMate.MoveLast
  865.             intNowRec = conRecNum
  866.             SzToolbar.Buttons("next").Enabled = False
  867.             SzToolbar.Buttons("last").Enabled = False
  868.             SzToolbar.Buttons("first").Enabled = True
  869.             SzToolbar.Buttons("prev").Enabled = True
  870.             Call Show_Tab(adoMate)
  871.         End If
  872.     End If
  873. End Sub
  874. Private Sub Prev()
  875.     If adoMate.State = 1 Then
  876.         SzToolbar.Buttons("next").Enabled = True
  877.         SzToolbar.Buttons("last").Enabled = True
  878.         If adoMate.RecordCount > 0 Then
  879.             intNowRec = intNowRec - 1
  880.             If adoMate.EOF Then
  881.                 adoMate.MovePrevious
  882.             End If
  883.             If Not adoMate.BOF Then
  884.                 adoMate.MovePrevious
  885.                 If Not adoMate.BOF Then
  886.                     Call Show_Tab(adoMate)
  887.                 End If
  888.             End If
  889.             If adoMate.BOF Then
  890.                 SzToolbar.Buttons("first").Enabled = False
  891.                 SzToolbar.Buttons("prev").Enabled = False
  892.             End If
  893.             
  894.         End If
  895.     End If
  896. End Sub
  897. Private Sub Sub_next()
  898.     If adoMate.State = 1 Then
  899.         If adoMate.RecordCount > 0 Then
  900.             SzToolbar.Buttons("first").Enabled = True
  901.             SzToolbar.Buttons("prev").Enabled = True
  902.             intNowRec = intNowRec + 1
  903.             If adoMate.BOF Then
  904.                 adoMate.MoveNext
  905.             End If
  906.             If Not adoMate.EOF Then
  907.                 adoMate.MoveNext
  908.                 If Not adoMate.EOF Then
  909.                     Call Show_Tab(adoMate)
  910.                 End If
  911.             End If
  912.             If adoMate.EOF Then
  913.                 SzToolbar.Buttons("next").Enabled = False
  914.                 SzToolbar.Buttons("last").Enabled = False
  915.             End If
  916.         End If
  917.     End If
  919. End Sub
  921. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  922.     
  923.    Dim Sqlstr1 As String                        '查询字符串
  924.    Dim Sqlstr2 As String
  925.    Dim Sqlstr As String
  926.    Dim Coljsq As Long                          '网格列计数器
  927.    Dim jsqte As Long                        '临时动态计数器
  928.    Dim Xtyear As Integer
  929.    Dim Period As Integer
  930.    Dim adoPeriod As New ADODB.Recordset
  932.    
  933.  '以下为用户自定义部分[
  935.  With KF_FrmStockAccCxtj
  936.      
  937.      '显示查询会计期间
  939.      Sqlstr1 = "select mnumber,(select mname from gy_material where kf_v_ledger.mnumber=gy_material.mnumber) as mname, " & _
  940.                " (select model from gy_material where kf_v_ledger.mnumber=gy_material.mnumber) as model, " & _
  941.                " (select primaryunitname from gy_material where kf_v_ledger.mnumber=gy_material.mnumber) as primaryunitname, " & _
  942.                " (select invsortname from KF_V_InvSort where kf_v_ledger.mnumber=KF_V_InvSort.mnumber) as invsortname" & _
  943.                " from kf_V_ledger where 1=1 "
  944.      Sqlstr2 = "select  mnumber, (select mname from gy_material where kf_v_inout.mnumber=gy_material.mnumber) as mname, " & _
  945.                " (select model from gy_material where kf_v_inout.mnumber=gy_material.mnumber) as model, " & _
  946.                " (select primaryunitname from gy_material where kf_v_inout.mnumber=gy_material.mnumber) as primaryunitname,  " & _
  947.                " (select invsortname from KF_V_InvSort where kf_v_inout.mnumber=KF_V_InvSort.mnumber) as invsortname" & _
  948.                " from kf_v_inout where billcode<>'1212' "
  949.      
  950.      Xtyear = S2N(Mid(Trim(.Combo_Kjqj2.Text), 1, 4))
  951.      Period = S2N(Mid(Trim(.Combo_Kjqj2.Text), 6))
  952.      Str_QueryCondi = ""
  953.      Set adoPeriod = Cw_DataEnvi.DataConnect.Execute("select period from gy_kjrlb where beginflag=1 and kjyear=" & Xtyear)
  954.      
  955.      For jsqte = 1 To 5
  956.         Select Case jsqte
  957.           
  958.            Case 1  '会计期间
  959.             If Trim(.Combo_Kjqj2.Text) <> "" Then
  960.                 If Not adoPeriod.EOF Then
  961.                     If S2N(Mid(Trim(.Combo_Kjqj1.Text), 6)) < S2N(adoPeriod.Fields("period")) Then
  962.                         Sqlstr1 = Sqlstr1 & " and kjyear=" & Xtyear & " and Period between " & S2N(adoPeriod.Fields("period")) & " and " & Period
  963.                         Sqlstr2 = Sqlstr2 & " and kjyear=" & Xtyear & " and Period between " & S2N(adoPeriod.Fields("period")) & " and " & Period
  964.                         Str_QueryCondi = Str_QueryCondi & "  kjyear=" & Xtyear & " and Period between " & S2N(adoPeriod.Fields("period")) & " and " & Period
  965.                     Else
  966.                         Sqlstr1 = Sqlstr1 & " and kjyear=" & Xtyear & " and Period between " & S2N(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
  967.                         Sqlstr2 = Sqlstr2 & " and kjyear=" & Xtyear & " and Period between " & S2N(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
  968.                         Str_QueryCondi = Str_QueryCondi & "  kjyear=" & Xtyear & " and Period between " & S2N(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
  969.                     End If
  970.                 Else
  971.                     Sqlstr1 = Sqlstr1 & " and kjyear=" & Xtyear & " and Period between " & S2N(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
  972.                     Sqlstr2 = Sqlstr2 & " and kjyear=" & Xtyear & " and Period between " & S2N(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
  973.                     Str_QueryCondi = Str_QueryCondi & "  kjyear=" & Xtyear & " and Period between " & S2N(Mid(Trim(.Combo_Kjqj1.Text), 6)) & " and " & Period
  974.                 End If
  975.             End If
  976.           
  977.           Case 2   '仓库
  978.              If Trim(.LrText(0).Text) <> "" Then
  979.                 Str_WH = Trim(.LrText(0).Tag)
  980.                 Sqlstr1 = Sqlstr1 & " and whcode='" & Str_WH & "'"
  981.                 Sqlstr2 = Sqlstr2 & " and whcode='" & Str_WH & "'"
  982.                 Str_QueryCondi = Str_QueryCondi & " and whcode='" & Str_WH & "'"
  983.              Else
  984.                 Str_WH = ""
  985.              End If
  986.          
  987.           Case 3   '物料分类
  988.             If Trim(.LrText(2).Text) <> "" Then
  989.              Dim StrTemp As String
  990.                 StrTemp = "SELECT mnumber From gy_material WHERE invsortcode LIKE '" & Trim(.LrText(2).Tag) & "%'"
  991.                 Sqlstr1 = Sqlstr1 & " and mnumber in(" & StrTemp & ")"
  992.                 Sqlstr2 = Sqlstr2 & " and mnumber in(" & StrTemp & ")"
  993.                 Str_QueryCondi = Str_QueryCondi & " and invsortcode like '" & Str_WH & "%'"
  994.             End If
  995.             
  996.           Case 4   '材料
  997.             If Trim(.LrText(3).Text) <> "" Then
  998.                 Sqlstr1 = Sqlstr1 & " and mnumber='" & Trim(.LrText(3).Text) & "'"
  999.                 Sqlstr2 = Sqlstr2 & " and mnumber='" & Trim(.LrText(3).Text) & "'"
  1000.             End If
  1001.              
  1002.           Case 5   '货区
  1003.             If Trim(.LrText(1).Text) <> "" Then
  1004.                 Sqlstr1 = Sqlstr1 & " and marea='" & Trim(.LrText(1).Tag) & "'"
  1005.                 Sqlstr2 = Sqlstr2 & " and marea='" & Trim(.LrText(1).Tag) & "'"
  1006.                 Str_QueryCondi = Str_QueryCondi & " and marea='" & Trim(.LrText(1).Tag) & "'"
  1007.             End If
  1008.         End Select
  1009.     Next jsqte
  1010.  End With
  1011.  Sqlstr = Sqlstr1 & " union " & Sqlstr2 & " order by mnumber"
  1012. Set adoMate = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1014. If Not adoMate.EOF Then
  1015.  adoMate.MoveFirst
  1016.  Call Show_Tab(adoMate)
  1017. Else
  1018.  Label1 = "物料分类:   "
  1019.  Label2 = "物料编码:   " & KF_FrmStockAccCxtj.LrText(3).Text
  1020.  Label3 = "物料名称:   " & KF_FrmStockAccCxtj.Label2.Caption
  1021.  Label4 = "规格型号:   "
  1022.  Label5 = "计量单位:   "
  1024.  CxbbGrid.Clear 1
  1025.  CxbbGrid.Rows = CxbbGrid.FixedRows
  1026. End If
  1027. End Sub
  1029. Private Sub Show_Tab(adoTemp As Recordset)
  1030. Dim StrQC As String
  1031. Dim adoStart As New ADODB.Recordset
  1032. Dim InCount As Double
  1033. Dim OutCount As Double
  1034. Dim StrBill As String
  1036. Label1 = "物料分类:   " & Trim(adoTemp.Fields("invsortname"))
  1037. Label2 = "物料编码:   " & Trim(adoTemp.Fields("mnumber"))
  1038. Label3 = "物料名称:   " & Trim(adoTemp.Fields("mname"))
  1039. Label4 = "规格型号:   " & Trim(adoTemp.Fields("model"))
  1040. Label5 = "计量单位:   " & Trim(adoTemp.Fields("primaryunitname"))
  1044.  StrQC = "SELECT mnumber, SUM(startquan) AS Start_quan, SUM(receiptquan) AS In_quan, " & _
  1045.       "SUM(issuequan) As Out_quan From kf_v_ledger where " & Str_QueryCondi & " and mnumber='" & Trim(adoTemp.Fields("mnumber")) & "' group by mnumber"
  1047.  Set adoStart = Cw_DataEnvi.DataConnect.Execute(StrQC)
  1049.   StrBill = "select * from kf_v_inout where " & Str_QueryCondi & " and mnumber='" & Trim(adoTemp.Fields("mnumber")) & "' and billcode<>'1212' order by period,billdate"
  1050.  Set adoQuery = Cw_DataEnvi.DataConnect.Execute(StrBill)
  1052.  
  1053.   CxbbGrid.Rows = CxbbGrid.FixedRows
  1054.    CxbbGrid.AddItem ""
  1055.   With adoStart
  1056.     If Not .EOF Then
  1057.         CxbbGrid.TextMatrix(CxbbGrid.FixedRows, Sydz("003", GridStr(), Szzls)) = "期初结存"
  1058.         If S2N(.Fields("start_quan")) <> 0 Then
  1059.             CxbbGrid.TextMatrix(CxbbGrid.FixedRows, Sydz("007", GridStr(), Szzls)) = .Fields("start_quan")
  1060.         Else
  1061.             If adoQuery.EOF Then
  1062.                 CxbbGrid.Clear 1
  1063.                 Exit Sub
  1064.             End If
  1065.         End If
  1066.     Else
  1067.         CxbbGrid.TextMatrix(CxbbGrid.FixedRows, Sydz("003", GridStr(), Szzls)) = "期初结存"
  1068.         CxbbGrid.TextMatrix(CxbbGrid.FixedRows, Sydz("007", GridStr(), Szzls)) = ""
  1069.         If adoQuery.EOF Then
  1070.             CxbbGrid.Clear 1
  1071.             Exit Sub
  1072.         End If
  1073.     End If
  1074.   End With
  1075.  
  1076.  With adoQuery
  1077.     jsqte = CxbbGrid.FixedRows + 1
  1078.    Do While Not .EOF
  1079.   
  1080.      If jsqte >= CxbbGrid.Rows Then
  1081.      End If
  1082.         CxbbGrid.AddItem ""
  1083.         
  1084.       CxbbGrid.TextMatrix(jsqte, 0) = .Fields("period")
  1085.       CxbbGrid.TextMatrix(jsqte, 1) = S2N(.Fields("inoutmainid"))
  1086.       
  1087.      If IsNull(.Fields("billdate")) Then
  1088.         CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = ""
  1089.      Else
  1090.         CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Format(Trim(.Fields("billdate") & ""), "yyyy-mm-dd")        '日期
  1091.      End If
  1092.      
  1093.      If IsNull(.Fields("billnum")) Then
  1094.         CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = ""
  1095.      Else
  1096.         CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("billnum") & "")                               '单据号
  1097.      End If
  1098.       For j = 2 To 8
  1099.            If CxbbGrid.TextMatrix(0, j) <> "" Then                                                                              '摘要
  1100.                CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) & Trim(.Fields(Trim(CxbbGrid.TextMatrix(0, j)))) & ","
  1101.            End If
  1102.       Next j
  1103.       CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("whname"))                                       '仓库
  1104.      
  1105.      If S2N(.Fields("factreceiptquan") & "") <> 0 Then
  1106.         CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = S2N(.Fields("factreceiptquan") & "")                        '入库数量
  1107.      End If
  1108.      If S2N(.Fields("factissuequan")) <> 0 Then
  1109.          CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("factissuequan"))                             '出库数量
  1110.      End If
  1111.                                                                                                                                 '结存
  1112.      CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = S2N(CxbbGrid.TextMatrix(jsqte - 1, Sydz("007", GridStr(), Szzls))) + S2N(CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls))) - S2N(CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)))
  1113.      CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("mareaname") & "")
  1114.      
  1115.      CxbbGrid.RowHeight(jsqte) = Sjhgd
  1116.      
  1117.      jsqte = jsqte + 1
  1118.     .MoveNext
  1119.    Loop
  1120.    If S2N(.RecordCount) > 0 Then
  1121.         CxbbGrid.SubTotal flexSTSum, 0, Sydz("005", GridStr(), Szzls), , , , , "0"                                              '汇总
  1122.             If S2N(CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls))) = 0 Then
  1123.                 CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = ""
  1124.             End If
  1125.     
  1126.         CxbbGrid.SubTotal flexSTSum, 0, Sydz("006", GridStr(), Szzls), , , , , "0"
  1127.             If S2N(CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls))) = 0 Then                                          '汇总
  1128.                 CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = ""
  1129.             End If
  1130.             
  1131.       i = CxbbGrid.FixedRows
  1132.       InCount = 0
  1133.       OutCount = 0
  1134.       Do While i <= CxbbGrid.Rows - 1
  1135.        If Trim(CxbbGrid.TextMatrix(i, 0)) = "0" Then
  1136.     
  1137.             If S2N(CxbbGrid.TextMatrix(i - 1, Sydz("007", GridStr(), Szzls))) <> 0 Then
  1138.                CxbbGrid.TextMatrix(i, Sydz("007", GridStr(), Szzls)) = CxbbGrid.TextMatrix(i - 1, Sydz("007", GridStr(), Szzls))
  1139.             End If
  1140.     
  1141.             CxbbGrid.TextMatrix(i, 1) = 0
  1142.             CxbbGrid.TextMatrix(i, Sydz("003", GridStr(), Szzls)) = "本月合计"
  1143.     
  1144.             If CxbbGrid.TextMatrix(i, Sydz("005", GridStr(), Szzls)) <> "" Then
  1145.                InCount = InCount + FormatNumber(CxbbGrid.TextMatrix(i, Sydz("005", GridStr(), Szzls)), Xtslxsws)
  1146.             End If
  1147.             If CxbbGrid.TextMatrix(i, Sydz("006", GridStr(), Szzls)) <> "" Then
  1148.                OutCount = OutCount + FormatNumber(CxbbGrid.TextMatrix(i, Sydz("006", GridStr(), Szzls)), Xtslxsws)
  1149.             End If
  1150.     
  1151.             CxbbGrid.AddItem "", i + 1
  1152.             CxbbGrid.TextMatrix(i + 1, 1) = 0
  1153.             CxbbGrid.TextMatrix(i + 1, Sydz("003", GridStr(), Szzls)) = "本年累计"
  1154.     
  1155.             If S2N(CxbbGrid.TextMatrix(i, Sydz("007", GridStr(), Szzls))) <> 0 Then
  1156.                 CxbbGrid.TextMatrix(i + 1, Sydz("007", GridStr(), Szzls)) = CxbbGrid.TextMatrix(i, Sydz("007", GridStr(), Szzls))
  1157.             End If
  1158.     
  1159.             If InCount <> 0 Then
  1160.                 CxbbGrid.TextMatrix(i + 1, Sydz("005", GridStr(), Szzls)) = InCount
  1161.             End If
  1162.     
  1163.             If OutCount <> 0 Then
  1164.                 CxbbGrid.TextMatrix(i + 1, Sydz("006", GridStr(), Szzls)) = OutCount
  1165.             End If
  1166.     
  1167.         End If
  1168.          CxbbGrid.RowHeight(i) = Sjhgd
  1169.          i = i + 1
  1170.       Loop
  1171.      End If
  1172.  End With
  1173.  ']以上为用户自定义部分
  1174.    Call SLGSH
  1175. End Sub
  1177. Private Sub CxbbGrid_DblClick()          '用户双击网格调入相应单据
  1178.     Dim RecTemp As New ADODB.Recordset
  1179.   
  1180.     '当第一次查询结果为空时,判断总记录行是否与固定行数相同,如相同则出现错误(双表头出现此情况)
  1181.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  1182.         Exit Sub
  1183.     End If
  1184.     '非数据行退出
  1185.     If CxbbGrid.Row < CxbbGrid.FixedRows Then
  1186.        Exit Sub
  1187.     End If
  1188.   
  1190.     Sqlstr = "SELECT inoutmainid,billcode From kf_v_inout" & _
  1191.              " Where inoutmainid=" & S2N(CxbbGrid.TextMatrix(CxbbGrid.Row, 1))
  1193.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1194.         
  1195.     Me.MousePointer = 11
  1197.     If S2N(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) = 0 Then
  1198.          Tsxx = "此项目不能显示!"
  1199.          Call Xtxxts(Tsxx, 0, 4)
  1200.          Me.MousePointer = 1
  1201.          Exit Sub
  1202.          
  1203.     Else
  1204.  
  1205.     With RecTemp
  1207.       If .EOF Then
  1208.          Tsxx = "此单据已被其它用户删除!"
  1209.          Call Xtxxts(Tsxx, 0, 4)
  1210.          Me.MousePointer = 1
  1211.          Exit Sub
  1212.       Else
  1213.        Xtcdcs = "3"
  1214.        XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 1)
  1215.         Select Case Trim(.Fields("billcode"))
  1216.             Case "1201"
  1217.                 With KF_FrmStockIn
  1218.                     '填充查询单据标识
  1219.                     .Show 1
  1220.                 End With
  1221.             Case "1202"
  1222.                 With KF_FrmProductIn
  1223.                     '填充查询单据标识
  1224.                     .Show 1
  1225.                 End With
  1226.             Case "1203"
  1227.                 With KF_FrmOtherIn
  1228.                     '填充查询单据标识
  1229.                     .Show 1
  1230.                 End With
  1231.             Case "1204"
  1232.                 With KF_FrmMateOut
  1233.                     '填充查询单据标识
  1234.                     .Show 1
  1235.                 End With
  1236.             Case "1205"
  1237.                 With KF_FrmSellOut
  1238.                     '填充查询单据标识
  1239.                     .Show 1
  1240.                 End With
  1241.             Case "1206"
  1242.                 With KF_FrmOtherOut
  1243.                     '填充查询单据标识
  1244.                     .Show 1
  1245.                 End With
  1246.          End Select
  1247.        If Xtfhcs = "1" Then
  1248.              Tsxx = "单据发生变化,是否刷新单据列表?"
  1249.              Yhanswer = Xtxxts(Tsxx, 2, 2)
  1250.              If Yhanswer = 1 Then
  1251.                 Call Timer1_Timer
  1252.              End If
  1253.        End If
  1254.         
  1255.      End If
  1257.     End With
  1258.     Me.MousePointer = 1
  1259.  End If
  1262. End Sub
  1264. Private Sub SLGSH()
  1265.  With CxbbGrid
  1266.    For hjsq = .FixedRows To .Rows - 1
  1267.     For ljsq = Qslz + 5 To .Cols - 1
  1268.      .TextMatrix(hjsq, ljsq) = Format(Trim(.TextMatrix(hjsq, ljsq)), "#,##0." + String(Xtslxsws, "0"))
  1269.      If S2N(.TextMatrix(hjsq, ljsq)) = 0 Then
  1270.       .TextMatrix(hjsq, ljsq) = ""
  1271.      End If
  1272.     Next ljsq
  1273.    Next hjsq
  1274.  End With
  1275. End Sub
  1278. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1279.     
  1280.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1281.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1282.     Bbxbtgs = 2                                          '报 表 小 标 题 行 数
  1283.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1284.     ReDim Bbxbt(1 To Bbxbtgs)
  1285.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1286.     If Bbbwhgs <> 0 Then
  1287.         ReDim Bbbwh(1 To Bbbwhgs)
  1288.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1289.     End If
  1290.     Bbzbt = ReportTitle
  1291.     Bbxbt(1) = Space(5) + Fun_FormatOutPut(Trim(Label1), 30)
  1292.     Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut(Trim(Label2), 30)
  1293.     Bbxbt(2) = Space(5) + Fun_FormatOutPut(Trim(Label3), 30)
  1294.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Label4), 30)
  1295.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Label5), 30)
  1296.     
  1297.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1298.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1299.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1300.     If Not bbylte Then
  1301.         Unload DY_Tybbyldy
  1302.     End If
  1304. End Sub
  1306. Private Sub Sub_Lxdy()                                 '帐页连续打印(帐页每批尽量少选)
  1307.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1308.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1309.     Dim jsqte As Integer
  1310.     Dim YAnswer As Integer
  1311.     
  1312.     '[[
  1313.     If adoMate.State = 0 Then Exit Sub
  1314.     ']]
  1315.     '用户确认是否开始连续打印帐页
  1316.     Tsxx = "请确认是否开始连续打印帐页？"
  1317.     YAnswer = Xtxxts(Tsxx, 2, 2)
  1318.     If YAnswer <> 1 Then
  1319.         Exit Sub
  1320.     End If
  1321.     
  1322.     '初始化连续打印状态
  1323.     Cmd_CancelPrint.Visible = True
  1324.     Cmd_CancelPrint.SetFocus
  1325.     Cmd_CancelPrint.Refresh
  1326.     Bln_CancelPrint = False
  1327.     Bln_Printing = True
  1328.     
  1329.     '循环输出打印作业
  1330.     If adoMate.RecordCount > 0 Then
  1331.         adoMate.MoveFirst
  1332.         For jsqte = 1 To adoMate.RecordCount
  1333.             Call Show_Tab(adoMate)
  1334.             Bbxbtgs = 2                                          '报 表 小 标 题 行 数
  1335.             Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1336.             ReDim Bbxbt(1 To Bbxbtgs)
  1337.             ReDim bbxbtzzxs(1 To Bbxbtgs)
  1338.             If Bbbwhgs <> 0 Then
  1339.                 ReDim Bbbwh(1 To Bbbwhgs)
  1340.                 ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1341.             End If
  1342.             Bbzbt = ReportTitle
  1343.             Bbxbt(1) = Space(5) + Fun_FormatOutPut(Trim(Label1), 30)
  1344.             Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut(Trim(Label2), 30)
  1345.             Bbxbt(2) = Space(5) + Fun_FormatOutPut(Trim(Label3), 30)
  1346.             Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Label4), 30)
  1347.             Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Label5), 30)
  1348.             bbxbtzzxs(1) = 1                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1349.             Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1350.             Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, False, True)
  1351.             Unload DY_Tybbyldy
  1352.             DoEvents
  1353.             If Bln_CancelPrint Then
  1354.                 Bln_Printing = False
  1355.                 Exit Sub
  1356.             End If
  1357.             adoMate.MoveNext
  1358.         Next jsqte
  1359.         Bln_Printing = False
  1360.         Cmd_CancelPrint.Visible = False
  1361.     End If
  1362. End Sub
  1364. Private Sub Cmd_CancelPrint_Click()                    '取消帐页连续打印
  1365.     Bln_CancelPrint = True
  1366.     Cmd_CancelPrint.Visible = False
  1367. End Sub