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

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

企业管理

开发平台：

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_FrmGliad 
  5.    Caption         =   "帐簿分析_库存流水帐"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   8880
  10.    HelpContextID   =   1217001
  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          =   825
  54.       Left            =   0
  55.       Picture         =   "帐簿分析_库存流水帐查询结果.frx":1042
  56.       ScaleHeight     =   765
  57.       ScaleWidth      =   11715
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11775
  61.       Begin VB.Label Lab_Title 
  62.          AutoSize        =   -1  'True
  63.          BackColor       =   &H80000018&
  64.          BackStyle       =   0  'Transparent
  65.          Caption         =   "库存流水帐"
  66.          BeginProperty Font 
  67.             Name            =   "宋体"
  68.             Size            =   12
  69.             Charset         =   134
  70.             Weight          =   700
  71.             Underline       =   0   'False
  72.             Italic          =   0   'False
  73.             Strikethrough   =   0   'False
  74.          EndProperty
  75.          ForeColor       =   &H00000000&
  76.          Height          =   240
  77.          Index           =   4
  78.          Left            =   480
  79.          TabIndex        =   2
  80.          Top             =   210
  81.          Width           =   1275
  82.       End
  83.    End
  84.    Begin VB.Timer Timer1 
  85.       Enabled         =   0   'False
  86.       Interval        =   1
  87.       Left            =   7620
  88.       Top             =   90
  89.    End
  90.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  91.       Height          =   7545
  92.       Left            =   0
  93.       TabIndex        =   0
  94.       Top             =   1470
  95.       Width           =   11775
  96.       _cx             =   5080
  97.       _cy             =   5080
  98.       Appearance      =   1
  99.       BorderStyle     =   1
  100.       Enabled         =   -1  'True
  101.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  102.          Name            =   "宋体"
  103.          Size            =   9
  104.          Charset         =   134
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       MousePointer    =   0
  111.       BackColor       =   16777215
  112.       ForeColor       =   -2147483640
  113.       BackColorFixed  =   13826538
  114.       ForeColorFixed  =   -2147483630
  115.       BackColorSel    =   -2147483635
  116.       ForeColorSel    =   -2147483634
  117.       BackColorBkg    =   -2147483636
  118.       BackColorAlternate=   16777215
  119.       GridColor       =   -2147483633
  120.       GridColorFixed  =   -2147483632
  121.       TreeColor       =   -2147483632
  122.       FloodColor      =   192
  123.       SheetBorder     =   -2147483642
  124.       FocusRect       =   1
  125.       HighLight       =   1
  126.       AllowSelection  =   -1  'True
  127.       AllowBigSelection=   -1  'True
  128.       AllowUserResizing=   0
  129.       SelectionMode   =   0
  130.       GridLines       =   1
  131.       GridLinesFixed  =   2
  132.       GridLineWidth   =   1
  133.       Rows            =   50
  134.       Cols            =   10
  135.       FixedRows       =   1
  136.       FixedCols       =   1
  137.       RowHeightMin    =   0
  138.       RowHeightMax    =   0
  139.       ColWidthMin     =   0
  140.       ColWidthMax     =   0
  141.       ExtendLastCol   =   0   'False
  142.       FormatString    =   ""
  143.       ScrollTrack     =   0   'False
  144.       ScrollBars      =   3
  145.       ScrollTips      =   0   'False
  146.       MergeCells      =   0
  147.       MergeCompare    =   0
  148.       AutoResize      =   -1  'True
  149.       AutoSizeMode    =   0
  150.       AutoSearch      =   0
  151.       AutoSearchDelay =   2
  152.       MultiTotals     =   -1  'True
  153.       SubtotalPosition=   1
  154.       OutlineBar      =   0
  155.       OutlineCol      =   0
  156.       Ellipsis        =   0
  157.       ExplorerBar     =   0
  158.       PicturesOver    =   0   'False
  159.       FillStyle       =   0
  160.       RightToLeft     =   0   'False
  161.       PictureType     =   0
  162.       TabBehavior     =   0
  163.       OwnerDraw       =   0
  164.       Editable        =   0
  165.       ShowComboButton =   1
  166.       WordWrap        =   0   'False
  167.       TextStyle       =   0
  168.       TextStyleFixed  =   0
  169.       OleDragMode     =   0
  170.       OleDropMode     =   0
  171.       DataMode        =   0
  172.       VirtualData     =   -1  'True
  173.       DataMember      =   ""
  174.       ComboSearch     =   3
  175.       AutoSizeMouse   =   -1  'True
  176.       FrozenRows      =   0
  177.       FrozenCols      =   0
  178.       AllowUserFreezing=   0
  179.       BackColorFrozen =   0
  180.       ForeColorFrozen =   0
  181.       WallPaperAlignment=   9
  182.       AccessibleName  =   ""
  183.       AccessibleDescription=   ""
  184.       AccessibleValue =   ""
  185.       AccessibleRole  =   24
  186.       Begin MSComctlLib.ImageList ImageList2 
  187.          Left            =   0
  188.          Top             =   0
  189.          _ExtentX        =   1005
  190.          _ExtentY        =   1005
  191.          BackColor       =   -2147483643
  192.          ImageWidth      =   16
  193.          ImageHeight     =   16
  194.          MaskColor       =   12632256
  195.          _Version        =   393216
  196.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  197.             NumListImages   =   40
  198.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  199.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":1FAC4
  200.                Key             =   "sz"
  201.             EndProperty
  202.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  203.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":1FE5E
  204.                Key             =   "dy"
  205.             EndProperty
  206.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":201F8
  208.                Key             =   "yl"
  209.             EndProperty
  210.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  211.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":20592
  212.                Key             =   "xg"
  213.             EndProperty
  214.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  215.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2092C
  216.                Key             =   "zh"
  217.             EndProperty
  218.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  219.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":20CC6
  220.                Key             =   "sh"
  221.             EndProperty
  222.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":21060
  224.                Key             =   "bc"
  225.             EndProperty
  226.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":213FA
  228.                Key             =   "fq"
  229.             EndProperty
  230.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  231.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":21794
  232.                Key             =   "bz"
  233.             EndProperty
  234.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  235.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":21B2E
  236.                Key             =   "tc"
  237.             EndProperty
  238.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  239.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":21EC8
  240.                Key             =   "bcgs"
  241.             EndProperty
  242.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  243.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":22262
  244.                Key             =   "mrlk"
  245.             EndProperty
  246.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":225FC
  248.                Key             =   "xsxm"
  249.             EndProperty
  250.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":22996
  252.                Key             =   "first"
  253.             EndProperty
  254.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":22D30
  256.                Key             =   "prev"
  257.             EndProperty
  258.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":230CA
  260.                Key             =   "next"
  261.             EndProperty
  262.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":23464
  264.                Key             =   "last"
  265.             EndProperty
  266.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":237FE
  268.                Key             =   "xx"
  269.             EndProperty
  270.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":23B98
  272.                Key             =   "define"
  273.             EndProperty
  274.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":23F32
  276.                Key             =   "exec"
  277.             EndProperty
  278.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":242CC
  280.                Key             =   "xz"
  281.             EndProperty
  282.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":24666
  284.                Key             =   "sc"
  285.             EndProperty
  286.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":24A00
  288.                Key             =   "sx"
  289.             EndProperty
  290.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":24D9A
  292.                Key             =   "cx"
  293.             EndProperty
  294.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":25134
  296.                Key             =   "zd"
  297.             EndProperty
  298.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":254CE
  300.                Key             =   "dz"
  301.             EndProperty
  302.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":25868
  304.                Key             =   "ph"
  305.             EndProperty
  306.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":25C02
  308.                Key             =   "fz"
  309.             EndProperty
  310.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":25F9C
  312.                Key             =   "dw"
  313.             EndProperty
  314.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":26336
  316.                Key             =   "hf"
  317.             EndProperty
  318.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":266D0
  320.                Key             =   "pz"
  321.             EndProperty
  322.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":26A6A
  324.                Key             =   "check"
  325.             EndProperty
  326.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":26E04
  328.                Key             =   "qs"
  329.             EndProperty
  330.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2719E
  332.                Key             =   "fullcheck"
  333.             EndProperty
  334.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":27538
  336.                Key             =   "qq"
  337.             EndProperty
  338.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":278D2
  340.                Key             =   "bcw"
  341.             EndProperty
  342.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":27C6C
  344.                Key             =   "ye"
  345.             EndProperty
  346.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":28006
  348.                Key             =   ""
  349.             EndProperty
  350.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":283A0
  352.                Key             =   "frist"
  353.             EndProperty
  354.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2873A
  356.                Key             =   "dj"
  357.             EndProperty
  358.          EndProperty
  359.       End
  360.    End
  361.    Begin MSComctlLib.Toolbar SzToolbar 
  362.       Align           =   1  'Align Top
  363.       Height          =   555
  364.       Left            =   0
  365.       TabIndex        =   4
  366.       Top             =   0
  367.       Width           =   8880
  368.       _ExtentX        =   15663
  369.       _ExtentY        =   979
  370.       ButtonWidth     =   820
  371.       ButtonHeight    =   926
  372.       AllowCustomize  =   0   'False
  373.       Appearance      =   1
  374.       Style           =   1
  375.       ImageList       =   "ImageList1"
  376.       _Version        =   393216
  377.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  378.          NumButtons      =   9
  379.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  380.             Caption         =   "设置"
  381.             Key             =   "ymsz"
  382.             ImageKey        =   "sz"
  383.          EndProperty
  384.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  385.             Caption         =   "打印"
  386.             Key             =   "dy"
  387.             ImageKey        =   "dy"
  388.          EndProperty
  389.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  390.             Caption         =   "预览"
  391.             Key             =   "yl"
  392.             ImageKey        =   "yl"
  393.          EndProperty
  394.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  395.             Style           =   3
  396.          EndProperty
  397.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  398.             Caption         =   "查询"
  399.             Key             =   "cx"
  400.             ImageKey        =   "cx"
  401.          EndProperty
  402.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  403.             Caption         =   "单据"
  404.             Key             =   "Bill"
  405.             ImageKey        =   "pz"
  406.          EndProperty
  407.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  408.             Style           =   3
  409.          EndProperty
  410.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  411.             Caption         =   "帮助"
  412.             Key             =   "bz"
  413.             ImageKey        =   "bz"
  414.          EndProperty
  415.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  416.             Caption         =   "退出"
  417.             Key             =   "fh"
  418.             ImageKey        =   "tc"
  419.          EndProperty
  420.       EndProperty
  421.       BorderStyle     =   1
  422.       Begin MSComctlLib.ImageList ImageList1 
  423.          Left            =   6990
  424.          Top             =   30
  425.          _ExtentX        =   1005
  426.          _ExtentY        =   1005
  427.          BackColor       =   -2147483643
  428.          ImageWidth      =   16
  429.          ImageHeight     =   16
  430.          MaskColor       =   12632256
  431.          _Version        =   393216
  432.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  433.             NumListImages   =   32
  434.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  435.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":28AD4
  436.                Key             =   "sz"
  437.             EndProperty
  438.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  439.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":28E6E
  440.                Key             =   "dy"
  441.             EndProperty
  442.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  443.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":29208
  444.                Key             =   "yl"
  445.             EndProperty
  446.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  447.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":295A2
  448.                Key             =   "xg"
  449.             EndProperty
  450.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2993C
  452.                Key             =   "zh"
  453.             EndProperty
  454.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":29CD6
  456.                Key             =   "sh"
  457.             EndProperty
  458.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2A070
  460.                Key             =   "bc"
  461.             EndProperty
  462.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2A40A
  464.                Key             =   "fq"
  465.             EndProperty
  466.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2A7A4
  468.                Key             =   "bz"
  469.             EndProperty
  470.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2AB3E
  472.                Key             =   "tc"
  473.             EndProperty
  474.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2AED8
  476.                Key             =   "bcgs"
  477.             EndProperty
  478.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2B272
  480.                Key             =   "mrlk"
  481.             EndProperty
  482.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2B60C
  484.                Key             =   "xsxm"
  485.             EndProperty
  486.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2B9A6
  488.                Key             =   "first"
  489.             EndProperty
  490.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2BD40
  492.                Key             =   "prev"
  493.             EndProperty
  494.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2C0DA
  496.                Key             =   "next"
  497.             EndProperty
  498.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2C474
  500.                Key             =   "last"
  501.             EndProperty
  502.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2C80E
  504.                Key             =   "xx"
  505.             EndProperty
  506.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2CBA8
  508.                Key             =   "define"
  509.             EndProperty
  510.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2CF42
  512.                Key             =   "exec"
  513.             EndProperty
  514.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2D2DC
  516.                Key             =   "xz"
  517.             EndProperty
  518.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2D676
  520.                Key             =   "sc"
  521.             EndProperty
  522.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  523.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2DA10
  524.                Key             =   "sx"
  525.             EndProperty
  526.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  527.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2DDAA
  528.                Key             =   "cx"
  529.             EndProperty
  530.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  531.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2E144
  532.                Key             =   "zd"
  533.             EndProperty
  534.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  535.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2E4DE
  536.                Key             =   "dz"
  537.             EndProperty
  538.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  539.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2E878
  540.                Key             =   "ph"
  541.             EndProperty
  542.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  543.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2EC12
  544.                Key             =   "fz"
  545.             EndProperty
  546.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  547.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2EFAC
  548.                Key             =   "dw"
  549.             EndProperty
  550.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  551.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2F346
  552.                Key             =   "hf"
  553.             EndProperty
  554.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  555.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2F6E0
  556.                Key             =   "pz"
  557.             EndProperty
  558.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  559.                Picture         =   "帐簿分析_库存流水帐查询结果.frx":2FA7A
  560.                Key             =   "check"
  561.             EndProperty
  562.          EndProperty
  563.       End
  564.    End
  565. End
  566. Attribute VB_Name = "KF_FrmGliad"
  567. Attribute VB_GlobalNameSpace = False
  568. Attribute VB_Creatable = False
  569. Attribute VB_PredeclaredId = True
  570. Attribute VB_Exposed = False
  571. '**************************************************************************
  572. '*    模 块 名 称 :流水帐
  573. '*    功 能 描 述 :
  574. '*    程序员姓名  :张万成
  575. '*    最后修改人  :张万成
  576. '*    最后修改时间:2001/12/06
  577. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  578. '**************************************************************************
  579. Dim ReportTitle As String                '报表主标题
  580. Dim Str_QueryCondi As String             '用户录入查询条件
  581. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  583. '以下为固定使用变量
  584. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  585. Dim GridCode As String                   '显示网格网格代码
  586. Dim GridInf() As Variant                 '整个网格设置信息
  587. Dim Tsxx As String                       '系统提示信息
  588. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  589. Dim Sjhgd As Double                      '网格数据行高度
  590. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  591. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  592. Dim GridStr()  As String                 '网格列信息(字符型)
  593. Dim GridInt() As Integer                 '网格列信息(整型)
  594. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  596. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  597.     On Error Resume Next
  598.     With CxbbGrid
  599.         .Width = Me.Width - 160
  600.         .Height = Me.Height - .Top - 400
  601.     End With
  602.     With Pic_Title
  603.         .Width = Me.Width - 160
  604.     End With
  605.     
  606.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  608. End Sub
  610. Private Sub Form_Load()                                                   '窗体装入
  611.   
  612.     '调入打印页面设置窗体
  613.     ReportTitle = "库存流水帐"
  614.     XtReportCode = "KF_Gliad"
  615.     Load Dyymctbl
  616.       
  617.     '调整标题栏及网格、格式工具条位置(Fixed)
  618.     Pic_Title.Left = 40
  619.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  620.     CxbbGrid.Left = Pic_Title.Left
  621.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  622.      
  623.     '调 入 网 格(Fixed)
  624.     GridCode = "Kf_Gliad"
  625.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  626.       
  627.     Qslz = GridInf(1)
  628.     Sjhgd = GridInf(2)
  629.     Sfxshjwg = GridInf(7)
  630.     Szzls = CxbbGrid.Cols - 1
  632. End Sub
  634. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  636.     '卸载条件窗体
  637.     KF_FrmGliadCxtj.UnloadCheck.Value = 1
  638.     Unload KF_FrmGliadCxtj
  639.     
  640.     '卸载打印页面设置窗体
  641.     Unload Dyymctbl
  643. End Sub
  645. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  646.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  647. End Sub
  649. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  650.   
  651.     Select Case Button.Key
  652.         Case "bcgs"                                          '保存表格格式
  653.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  654.         Case "hfmrgs"                                        '恢复默认格式
  655.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  656.         Case "szxsxm"                                        '设置显示项目
  657.             Call Szxsxm(CxbbGrid, GridCode)
  658.     End Select
  660. End Sub
  662. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  663.     
  664.     Select Case Button.Key
  665.         Case "ymsz"                                          '页面设置
  666.             Dyymctbl.Show 1
  667.         Case "yl"                                            '预 览
  668.             Call bbyl(True)
  669.         Case "dy"                                            '打 印
  670.             Call bbyl(False)
  671.         Case "cx"                                            '查 询
  672.             KF_FrmGliadCxtj.Show 1
  673.         Case "Bill"                                          '单 据
  674.             Call CxbbGrid_DblClick
  675.         Case "bz"                                            '帮 助
  676.             Call F1bz
  677.         Case "fh"                                            '退 出
  678.            Unload Me
  679.     End Select
  681. End Sub
  683. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  684.     
  685.     Timer1.Enabled = False
  686.     Xt_Wait.Show
  687.     Xt_Wait.Refresh
  688.    
  689.     '加快显示速度
  690.     CxbbGrid.Redraw = False
  691.  
  692.     '生成查询结果
  693.     Call Sub_Query(0)
  694.    
  695.     CxbbGrid.Redraw = True
  696.     
  697.     Xt_Wait.Hide
  699. End Sub
  701. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  702.     
  703.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  705.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  706.     Dim Coljsq As Long                          '网格列计数器
  707.     Dim jsqte As Integer                        '临时动态计数器
  708.     Dim InMoney As Double
  709.     Dim OutMoney As Double
  710.     
  711.     '以下为自定义部分[
  713.         With KF_FrmGliadCxtj
  714.          
  715.             '生成查询条件
  716.             Str_QueryCondi = " where 1=1 "
  717.             For jsqte = 0 To 17
  718.                 Select Case jsqte
  719.                     Case 0      '仓库
  720.                         If Trim(.LrText(0).Tag) <> "" Then
  721.                             Str_QueryCondi = Str_QueryCondi & " And WhCode='" & Trim(.LrText(0).Tag) & "'"
  722.                         Else
  723.                             Str_QueryCondi = Str_QueryCondi & " and (whcode in (select WhCode from KF_V_WhLimit where czybm='" & Xtczybm & "') or whcode='')"
  724.                         End If
  725.                         
  726.                     Case 1             '开始日期--------结束日期
  727.                         If Trim(.LrText(3).Text) <> "" Then
  728.                             If Trim(.LrText(4).Text) <> "" Then
  729.                                 Str_QueryCondi = Str_QueryCondi & " and billdate between '" & CDate(Trim(.LrText(3).Text)) & "' and '" & CDate(Trim(.LrText(4).Text)) & "'"
  730.                             Else
  731.                                 Str_QueryCondi = Str_QueryCondi & " and billdate>='" & CDate(Trim(.LrText(3).Text)) & "'"
  732.                             End If
  733.                         Else
  734.                            If Trim(.LrText(4).Text) <> "" Then
  735.                               Str_QueryCondi = Str_QueryCondi & " and billdate<='" & CDate(Trim(.LrText(4).Text)) & "'"
  736.                            Else
  737.                            End If
  738.                         End If
  739.                     Case 2                  '单据号
  740.                         If Trim(.LrText(1).Text) <> "" Then
  741.                             Str_QueryCondi = Str_QueryCondi & " And BillNum>='" & Trim(.LrText(1).Text) & "'"
  742.                         End If
  743.                     Case 3                  '单据号
  744.                         If Trim(.LrText(2).Text) <> "" Then
  745.                             Str_QueryCondi = Str_QueryCondi & " And BillNum<='" & Trim(.LrText(2).Text) & "'"
  746.                         End If
  747.                     
  748.                     Case 4                  '物料分类
  749.                         If Trim(.LrText(5).Text) <> "" Then
  750.                             Str_QueryCondi = Str_QueryCondi & " and InvSortCode like '" & Trim(.LrText(5).Tag) & "%'"
  751.                         End If
  752.                     Case 5                 '物料编码
  753.                         If Trim(.LrText(6).Text) <> "" Then
  754.                             Str_QueryCondi = Str_QueryCondi & " and MNumber = '" & Trim(.LrText(6).Text) & "'"
  755.                         End If
  756.                     Case 6                  '收发类别
  757.                         If Trim(.LrText(7).Tag) <> "" Then
  758.                             Str_QueryCondi = Str_QueryCondi & " and InOutClassCode ='" & Trim(.LrText(7).Tag) & "'"
  759.                         End If
  760.                     Case 7                  '客户
  761.                         If Trim(.LrText(8).Text) <> "" Then
  762.                             Str_QueryCondi = Str_QueryCondi & " And CusCode='" & Trim(.LrText(8).Tag) & "'"
  763.                         End If
  764.                     Case 8                  '供应商
  765.                         If Trim(.LrText(9).Text) <> "" Then
  766.                             Str_QueryCondi = Str_QueryCondi & " And SupplierCode='" & Trim(.LrText(9).Tag) & "'"
  767.                         End If
  768.                     Case 9                  '部门
  769.                         If Trim(.LrText(10).Text) <> "" Then
  770.                             Str_QueryCondi = Str_QueryCondi & " and deptCode ='" & Trim(.LrText(10).Tag) & "'"
  771.                         End If
  772.                     Case 10                 '人员
  773.                         If Trim(.LrText(11).Text) <> "" Then
  774.                             Str_QueryCondi = Str_QueryCondi & " And PersonCode='" & Trim(.LrText(11).Tag) & "'"
  775.                         End If
  776.                     Case 11                 '批次
  777.                         If Trim(.LrText(12).Text) <> "" Then
  778.                             Str_QueryCondi = Str_QueryCondi & " And BatchNum='" & Trim(.LrText(12).Text) & "'"
  779.                         End If
  780.                     Case 12              '货区
  781.                         If Trim(.LrText(13).Text) <> "" Then
  782.                             Str_QueryCondi = Str_QueryCondi & " And MArea='" & Trim(.LrText(13).Tag) & "'"
  783.                         End If
  784.                     Case 13              '成本对象
  785.                         If Trim(.LrText(14).Text) <> "" Then
  786.                             Str_QueryCondi = Str_QueryCondi & " And costobjectcode='" & Trim(.LrText(14).Tag) & "'"
  787.                         End If
  788.                     Case 14              '工程
  789.                         If Trim(.LrText(15).Text) <> "" Then
  790.                             Str_QueryCondi = Str_QueryCondi & " And Projectcode='" & Trim(.LrText(15).Tag) & "'"
  791.                         End If
  792.                     Case 15             '审核状态
  793.                         If Not .Opt_Check(0).Value Then
  794.                             If .Opt_Check(1).Value Then
  795.                                 Str_QueryCondi = Str_QueryCondi & " and  KfChecker='' "
  796.                             Else
  797.                                 Str_QueryCondi = Str_QueryCondi & " and  KfChecker<>'' "
  798.                             End If
  799.                         End If
  800.                     Case 16             'Maker
  801.                         If Trim(.LrText(16).Text) <> "" Then
  802.                                 Str_QueryCondi = Str_QueryCondi & " and  Maker='" & Trim(.LrText(16).Text) & "'"
  803.                         End If
  804.                     Case 17             '单据类型
  805.                          Dim StrType As String
  806.                             StrType = ""
  807.                              For i = 0 To .Check1.count - 1
  808.                                 If .Check1(i).Value = 1 Then
  809.                                  StrType = StrType & "'" & Trim(CStr(.Check1(i).Tag)) & "',"
  810.                                 End If
  811.                              Next i
  812.                              If StrType <> "" Then
  813.                                 StrType = Mid(StrType, 1, Len(StrType) - 1)
  814.                                 Str_QueryCondi = Str_QueryCondi & " and BillCode in (" & StrType & ")"
  815.                              Else
  816.                                 Str_QueryCondi = Str_QueryCondi & "  and 1=2"
  817.                              End If
  818.                 End Select
  819.             Next jsqte
  820.         End With
  821.      
  822.     Sqlstr = "SELECT * From KF_V_InOut " & Str_QueryCondi & " Order By  KF_V_InOut.InOutMainID"
  824.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  825.     
  826.     OutMoney = 0
  827.     InMoney = 0
  828.     With Rec_Query
  829.         CxbbGrid.Rows = CxbbGrid.FixedRows
  830.         jsqte = CxbbGrid.FixedRows
  831.         Do While Not .EOF
  832.             CxbbGrid.AddItem ""
  833.             '[>>自定义填充内容
  834.             CxbbGrid.TextMatrix(jsqte, 0) = Val(.Fields("InOutMainID"))
  835.             
  836.             CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")   '单据日期
  837.             CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")                '仓库
  838.             CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")               '单据号
  839.             CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")              '部门
  840.             CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("OperBillNum") & "")           '业务单号
  841.             CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")               '物料编码
  842.             CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                 '物料名称
  843.             CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                 '规格型号
  844.             CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("batchnum") & "")              '批次
  845.             CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("MareaName") & "")             '货区
  846.             
  847.             If .Fields("FactReceiptQuan") <> 0 Then
  848.                 CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = .Fields("FactReceiptQuan")              '入库数量
  849.                 If .Fields("price") <> 0 Then
  850.                     CxbbGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = .Fields("price")                    '价格
  851.                 End If
  852.                 If .Fields("emoney") <> 0 Then
  853.                     CxbbGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = .Fields("emoney")                   '金额
  854.                     InMoney = InMoney + Val(.Fields("emoney"))
  855.                 End If
  856.             End If
  857.             
  858.            If .Fields("FactIssueQuan") <> 0 Then
  859.                 CxbbGrid.TextMatrix(jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("FactIssueQuan")                '出库数量
  860.                 If .Fields("price") <> 0 Then
  861.                     CxbbGrid.TextMatrix(jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("price")                    '价格
  862.                 End If
  863.                 If .Fields("issuemoney") <> 0 Then
  864.                     CxbbGrid.TextMatrix(jsqte, Sydz("019", GridStr(), Szzls)) = .Fields("issuemoney")               '金额
  865.                     OutMoney = OutMoney + Val(.Fields("issuemoney"))
  866.                 End If
  867.             End If
  868.             CxbbGrid.TextMatrix(jsqte, Sydz("024", GridStr(), Szzls)) = Trim(.Fields("suppliername") & "")          '供应商
  869.             CxbbGrid.TextMatrix(jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("maker") & "")                 '制单人
  870.             CxbbGrid.TextMatrix(jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("KfChecker") & "")             '审核人
  871.             CxbbGrid.TextMatrix(jsqte, Sydz("016", GridStr(), Szzls)) = Trim(.Fields("ChalkItupMan") & "")          '记帐人
  872.             CxbbGrid.TextMatrix(jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("InOutClassName") & "")        '收发类别
  873.             CxbbGrid.TextMatrix(jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("CusName") & "")               '客户
  874.             CxbbGrid.TextMatrix(jsqte, Sydz("022", GridStr(), Szzls)) = Trim(.Fields("ProjectName") & "")           '工程
  875.             CxbbGrid.TextMatrix(jsqte, Sydz("023", GridStr(), Szzls)) = Trim(.Fields("CostObjectName") & "")        '成本对象
  876.             
  877.             '<<]
  878.             '设置数据行高度(Fixed)
  879.             CxbbGrid.RowHeight(jsqte) = Sjhgd
  880.      
  881.             '动态集指针加1,同时将计数器加1(Fixed)
  882.             .MoveNext
  883.             jsqte = jsqte + 1
  884.         Loop
  885.     End With
  886.      CxbbGrid.AddItem ""
  887.      CxbbGrid.TextMatrix(jsqte, Qslz) = "合计"
  888.      CxbbGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = IIf(InMoney = 0, "", InMoney)
  889.      CxbbGrid.TextMatrix(jsqte, Sydz("019", GridStr(), Szzls)) = IIf(OutMoney = 0, "", OutMoney)
  890.     ']以上为用户自定义部分
  892. End Sub
  894. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  895.     
  896.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  898.     '当第一次查询结果为空时,判断总记录行是否与固定行数相同,如相同则出现错误(双表头出现此情况)
  899.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  900.         Exit Sub
  901.     End If
  902.     '非数据行退出
  903.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  904.         Exit Sub
  905.     End If
  907.     Sqlstr = "SELECT InOutMainID,BillCode From gy_inOutMain Where InOutMainID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  908.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  909.     With RecTemp
  910.         If .EOF Then
  911.             Tsxx = "此单据已被其他用户删除!"
  912.             Call Xtxxts(Tsxx, 0, 4)
  913.             Exit Sub
  914.         Else
  915.             '调入单据处理窗体
  916.                XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  917.                 Xtcdcsfz = Str_QueryCondi
  918.                 
  919.                 '设置单据处理为列表查询(修改)状态
  920.                 Xtcdcs = "3"
  921.              Select Case Trim(.Fields("BillCode"))
  922.                 Case "1201"
  923.                     With KF_FrmStockIn
  924.                         '填充查询单据标识
  925.                         .Show 1
  926.                     End With
  927.                 Case "1202"
  928.                     With KF_FrmProductIn
  929.                         '填充查询单据标识
  930.                         .Show 1
  931.                     End With
  932.                 Case "1203"
  933.                     With KF_FrmOtherIn
  934.                         '填充查询单据标识
  935.                         .Show 1
  936.                     End With
  937.                 Case "1204"
  938.                     With KF_FrmMateOut
  939.                         '填充查询单据标识
  940.                         .Show 1
  941.                     End With
  942.                 Case "1205"
  943.                     With KF_FrmSellOut
  944.                         '填充查询单据标识
  945.                         .Show 1
  946.                     End With
  947.                 Case "1206"
  948.                     With KF_FrmOtherOut
  949.                         '填充查询单据标识
  950.                         .Show 1
  951.                     End With
  952.              End Select
  953.             If Xtfhcs = "1" Then
  954.                 Tsxx = "单据发生变化,是否刷新单据列表?"
  955.                 Yhanswer = Xtxxts(Tsxx, 2, 2)
  956.                 If Yhanswer = 1 Then
  957.                     Xt_Wait.Show
  958.                     Xt_Wait.Refresh
  959.    
  960.                     '加快显示速度
  961.                     CxbbGrid.Redraw = False
  962.  
  963.                     '生成查询结果
  964.                     Call Sub_Query(1)
  965.    
  966.                     CxbbGrid.Redraw = True
  967.                     Xt_Wait.Hide
  968.                 End If
  969.             End If
  970.         End If
  971.     End With
  973. End Sub
  975. Private Sub Sub_AddBill()                                              '新增单据
  976.    
  977.     With KF_FrmGliad
  978.    
  979.         '设置单据处理为填制单据状态
  980.         Xtcdcs = "1"
  981.          
  982.         .Show 1
  983.     End With
  984.        
  985.     If Xtfhcs = "1" Then
  986.         Tsxx = "单据发生变化,是否刷新单据列表?"
  987.         Yhanswer = Xtxxts(Tsxx, 2, 2)
  988.         If Yhanswer = 1 Then
  989.             Xt_Wait.Show
  990.             Xt_Wait.Refresh
  991.    
  992.             '加快显示速度
  993.             CxbbGrid.Redraw = False
  994.  
  995.             '生成查询结果
  996.             Call Sub_Query(1)
  997.    
  998.             CxbbGrid.Redraw = True
  999.             Xt_Wait.Hide
  1000.         End If
  1001.     End If
  1002.    
  1003. End Sub
  1005. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1006.     
  1007.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1008.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1009.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1010.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1011.     ReDim Bbxbt(1 To Bbxbtgs)
  1012.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1013.     If Bbbwhgs <> 0 Then
  1014.         ReDim Bbbwh(1 To Bbbwhgs)
  1015.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1016.     End If
  1017.     Bbzbt = ReportTitle
  1018.     Bbxbt(1) = ""
  1019.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1020.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1021.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1022.     If Not bbylte Then
  1023.         Unload DY_Tybbyldy
  1024.     End If
  1026. End Sub