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

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

企业管理

开发平台：

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