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

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

企业管理

开发平台：

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 Zbfx_InOut 
  5.    Caption         =   "出入库流水帐"
  6.    ClientHeight    =   6990
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11625
  10.    HelpContextID   =   130503
  11.    Icon            =   "帐簿分析_出入库流水帐.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   6990
  16.    ScaleWidth      =   11625
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.PictureBox Pic_Title 
  19.       BackColor       =   &H00FFFFFF&
  20.       Height          =   825
  21.       Left            =   0
  22.       Picture         =   "帐簿分析_出入库流水帐.frx":1042
  23.       ScaleHeight     =   765
  24.       ScaleWidth      =   11715
  25.       TabIndex        =   0
  26.       Top             =   570
  27.       Width           =   11775
  28.       Begin VB.Label Lab_Title 
  29.          AutoSize        =   -1  'True
  30.          BackColor       =   &H80000018&
  31.          BackStyle       =   0  'Transparent
  32.          Caption         =   "出入库流水帐"
  33.          BeginProperty Font 
  34.             Name            =   "宋体"
  35.             Size            =   12
  36.             Charset         =   134
  37.             Weight          =   700
  38.             Underline       =   0   'False
  39.             Italic          =   0   'False
  40.             Strikethrough   =   0   'False
  41.          EndProperty
  42.          ForeColor       =   &H00000000&
  43.          Height          =   240
  44.          Index           =   4
  45.          Left            =   480
  46.          TabIndex        =   1
  47.          Top             =   210
  48.          Width           =   1530
  49.       End
  50.    End
  51.    Begin VB.Timer Timer1 
  52.       Enabled         =   0   'False
  53.       Interval        =   1
  54.       Left            =   7620
  55.       Top             =   90
  56.    End
  57.    Begin MSComctlLib.Toolbar GsToolbar 
  58.       Height          =   525
  59.       Left            =   9330
  60.       TabIndex        =   2
  61.       Top             =   30
  62.       Width           =   2475
  63.       _ExtentX        =   4366
  64.       _ExtentY        =   926
  65.       ButtonWidth     =   1455
  66.       ButtonHeight    =   926
  67.       Appearance      =   1
  68.       Style           =   1
  69.       ImageList       =   "ImageList2"
  70.       _Version        =   393216
  71.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  72.          NumButtons      =   3
  73.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  74.             Caption         =   "保存格式"
  75.             Key             =   "bcgs"
  76.             ImageKey        =   "bcgs"
  77.          EndProperty
  78.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  79.             Caption         =   "默认列宽"
  80.             Key             =   "hfmrgs"
  81.             ImageKey        =   "mrlk"
  82.          EndProperty
  83.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  84.             Caption         =   "显示项目"
  85.             Key             =   "szxsxm"
  86.             ImageKey        =   "xsxm"
  87.          EndProperty
  88.       EndProperty
  89.    End
  90.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  91.       Height          =   7545
  92.       Left            =   0
  93.       TabIndex        =   3
  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":35106
  200.                Key             =   "sz"
  201.             EndProperty
  202.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  203.                Picture         =   "帐簿分析_出入库流水帐.frx":354A0
  204.                Key             =   "dy"
  205.             EndProperty
  206.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.                Picture         =   "帐簿分析_出入库流水帐.frx":3583A
  208.                Key             =   "yl"
  209.             EndProperty
  210.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  211.                Picture         =   "帐簿分析_出入库流水帐.frx":35BD4
  212.                Key             =   "xg"
  213.             EndProperty
  214.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  215.                Picture         =   "帐簿分析_出入库流水帐.frx":35F6E
  216.                Key             =   "zh"
  217.             EndProperty
  218.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  219.                Picture         =   "帐簿分析_出入库流水帐.frx":36308
  220.                Key             =   "sh"
  221.             EndProperty
  222.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.                Picture         =   "帐簿分析_出入库流水帐.frx":366A2
  224.                Key             =   "bc"
  225.             EndProperty
  226.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.                Picture         =   "帐簿分析_出入库流水帐.frx":36A3C
  228.                Key             =   "fq"
  229.             EndProperty
  230.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  231.                Picture         =   "帐簿分析_出入库流水帐.frx":36DD6
  232.                Key             =   "bz"
  233.             EndProperty
  234.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  235.                Picture         =   "帐簿分析_出入库流水帐.frx":37170
  236.                Key             =   "tc"
  237.             EndProperty
  238.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  239.                Picture         =   "帐簿分析_出入库流水帐.frx":3750A
  240.                Key             =   "bcgs"
  241.             EndProperty
  242.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  243.                Picture         =   "帐簿分析_出入库流水帐.frx":378A4
  244.                Key             =   "mrlk"
  245.             EndProperty
  246.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "帐簿分析_出入库流水帐.frx":37C3E
  248.                Key             =   "xsxm"
  249.             EndProperty
  250.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "帐簿分析_出入库流水帐.frx":37FD8
  252.                Key             =   "first"
  253.             EndProperty
  254.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "帐簿分析_出入库流水帐.frx":38372
  256.                Key             =   "prev"
  257.             EndProperty
  258.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "帐簿分析_出入库流水帐.frx":3870C
  260.                Key             =   "next"
  261.             EndProperty
  262.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "帐簿分析_出入库流水帐.frx":38AA6
  264.                Key             =   "last"
  265.             EndProperty
  266.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "帐簿分析_出入库流水帐.frx":38E40
  268.                Key             =   "xx"
  269.             EndProperty
  270.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.                Picture         =   "帐簿分析_出入库流水帐.frx":391DA
  272.                Key             =   "define"
  273.             EndProperty
  274.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.                Picture         =   "帐簿分析_出入库流水帐.frx":39574
  276.                Key             =   "exec"
  277.             EndProperty
  278.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "帐簿分析_出入库流水帐.frx":3990E
  280.                Key             =   "xz"
  281.             EndProperty
  282.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "帐簿分析_出入库流水帐.frx":39CA8
  284.                Key             =   "sc"
  285.             EndProperty
  286.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "帐簿分析_出入库流水帐.frx":3A042
  288.                Key             =   "sx"
  289.             EndProperty
  290.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "帐簿分析_出入库流水帐.frx":3A3DC
  292.                Key             =   "cx"
  293.             EndProperty
  294.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "帐簿分析_出入库流水帐.frx":3A776
  296.                Key             =   "zd"
  297.             EndProperty
  298.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "帐簿分析_出入库流水帐.frx":3AB10
  300.                Key             =   "dz"
  301.             EndProperty
  302.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "帐簿分析_出入库流水帐.frx":3AEAA
  304.                Key             =   "ph"
  305.             EndProperty
  306.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "帐簿分析_出入库流水帐.frx":3B244
  308.                Key             =   "fz"
  309.             EndProperty
  310.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "帐簿分析_出入库流水帐.frx":3B5DE
  312.                Key             =   "dw"
  313.             EndProperty
  314.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "帐簿分析_出入库流水帐.frx":3B978
  316.                Key             =   "hf"
  317.             EndProperty
  318.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "帐簿分析_出入库流水帐.frx":3BD12
  320.                Key             =   "pz"
  321.             EndProperty
  322.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "帐簿分析_出入库流水帐.frx":3C0AC
  324.                Key             =   "check"
  325.             EndProperty
  326.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "帐簿分析_出入库流水帐.frx":3C446
  328.                Key             =   "qs"
  329.             EndProperty
  330.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "帐簿分析_出入库流水帐.frx":3C7E0
  332.                Key             =   "fullcheck"
  333.             EndProperty
  334.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "帐簿分析_出入库流水帐.frx":3CB7A
  336.                Key             =   "qq"
  337.             EndProperty
  338.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "帐簿分析_出入库流水帐.frx":3CF14
  340.                Key             =   "bcw"
  341.             EndProperty
  342.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "帐簿分析_出入库流水帐.frx":3D2AE
  344.                Key             =   "ye"
  345.             EndProperty
  346.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "帐簿分析_出入库流水帐.frx":3D648
  348.                Key             =   ""
  349.             EndProperty
  350.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "帐簿分析_出入库流水帐.frx":3D9E2
  352.                Key             =   "frist"
  353.             EndProperty
  354.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "帐簿分析_出入库流水帐.frx":3DD7C
  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           =   11625
  368.       _ExtentX        =   20505
  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      =   10
  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.             Style           =   4
  404.          EndProperty
  405.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  406.             Caption         =   "单据"
  407.             Key             =   "Bill"
  408.             ImageKey        =   "pz"
  409.          EndProperty
  410.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  411.             Style           =   4
  412.          EndProperty
  413.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  414.             Caption         =   "帮助"
  415.             Key             =   "bz"
  416.             ImageKey        =   "bz"
  417.          EndProperty
  418.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  419.             Caption         =   "退出"
  420.             Key             =   "fh"
  421.             ImageKey        =   "tc"
  422.          EndProperty
  423.       EndProperty
  424.       BorderStyle     =   1
  425.       Begin MSComctlLib.ImageList ImageList1 
  426.          Left            =   6990
  427.          Top             =   30
  428.          _ExtentX        =   1005
  429.          _ExtentY        =   1005
  430.          BackColor       =   -2147483643
  431.          ImageWidth      =   16
  432.          ImageHeight     =   16
  433.          MaskColor       =   12632256
  434.          _Version        =   393216
  435.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  436.             NumListImages   =   35
  437.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  438.                Picture         =   "帐簿分析_出入库流水帐.frx":3E116
  439.                Key             =   "sz"
  440.             EndProperty
  441.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.                Picture         =   "帐簿分析_出入库流水帐.frx":3E4B0
  443.                Key             =   "dy"
  444.             EndProperty
  445.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.                Picture         =   "帐簿分析_出入库流水帐.frx":3E84A
  447.                Key             =   "yl"
  448.             EndProperty
  449.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.                Picture         =   "帐簿分析_出入库流水帐.frx":3EBE4
  451.                Key             =   "xg"
  452.             EndProperty
  453.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.                Picture         =   "帐簿分析_出入库流水帐.frx":3EF7E
  455.                Key             =   "zh"
  456.             EndProperty
  457.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.                Picture         =   "帐簿分析_出入库流水帐.frx":3F318
  459.                Key             =   "sh"
  460.             EndProperty
  461.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.                Picture         =   "帐簿分析_出入库流水帐.frx":3F6B2
  463.                Key             =   "bc"
  464.             EndProperty
  465.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.                Picture         =   "帐簿分析_出入库流水帐.frx":3FA4C
  467.                Key             =   "fq"
  468.             EndProperty
  469.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.                Picture         =   "帐簿分析_出入库流水帐.frx":3FDE6
  471.                Key             =   "bz"
  472.             EndProperty
  473.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.                Picture         =   "帐簿分析_出入库流水帐.frx":40180
  475.                Key             =   "tc"
  476.             EndProperty
  477.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.                Picture         =   "帐簿分析_出入库流水帐.frx":4051A
  479.                Key             =   "bcgs"
  480.             EndProperty
  481.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.                Picture         =   "帐簿分析_出入库流水帐.frx":408B4
  483.                Key             =   "mrlk"
  484.             EndProperty
  485.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  486.                Picture         =   "帐簿分析_出入库流水帐.frx":40C4E
  487.                Key             =   "xsxm"
  488.             EndProperty
  489.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  490.                Picture         =   "帐簿分析_出入库流水帐.frx":40FE8
  491.                Key             =   "first"
  492.             EndProperty
  493.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  494.                Picture         =   "帐簿分析_出入库流水帐.frx":41382
  495.                Key             =   "prev"
  496.             EndProperty
  497.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  498.                Picture         =   "帐簿分析_出入库流水帐.frx":4171C
  499.                Key             =   "next"
  500.             EndProperty
  501.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  502.                Picture         =   "帐簿分析_出入库流水帐.frx":41AB6
  503.                Key             =   "last"
  504.             EndProperty
  505.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  506.                Picture         =   "帐簿分析_出入库流水帐.frx":41E50
  507.                Key             =   "xx"
  508.             EndProperty
  509.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  510.                Picture         =   "帐簿分析_出入库流水帐.frx":421EA
  511.                Key             =   "define"
  512.             EndProperty
  513.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  514.                Picture         =   "帐簿分析_出入库流水帐.frx":42584
  515.                Key             =   "exec"
  516.             EndProperty
  517.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  518.                Picture         =   "帐簿分析_出入库流水帐.frx":4291E
  519.                Key             =   "xz"
  520.             EndProperty
  521.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  522.                Picture         =   "帐簿分析_出入库流水帐.frx":42CB8
  523.                Key             =   "sc"
  524.             EndProperty
  525.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  526.                Picture         =   "帐簿分析_出入库流水帐.frx":43052
  527.                Key             =   "sx"
  528.             EndProperty
  529.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  530.                Picture         =   "帐簿分析_出入库流水帐.frx":433EC
  531.                Key             =   "cx"
  532.             EndProperty
  533.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  534.                Picture         =   "帐簿分析_出入库流水帐.frx":43786
  535.                Key             =   "zd"
  536.             EndProperty
  537.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  538.                Picture         =   "帐簿分析_出入库流水帐.frx":43B20
  539.                Key             =   "dz"
  540.             EndProperty
  541.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  542.                Picture         =   "帐簿分析_出入库流水帐.frx":43EBA
  543.                Key             =   "ph"
  544.             EndProperty
  545.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  546.                Picture         =   "帐簿分析_出入库流水帐.frx":44254
  547.                Key             =   "fz"
  548.             EndProperty
  549.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  550.                Picture         =   "帐簿分析_出入库流水帐.frx":445EE
  551.                Key             =   "dw"
  552.             EndProperty
  553.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  554.                Picture         =   "帐簿分析_出入库流水帐.frx":44988
  555.                Key             =   "hf"
  556.             EndProperty
  557.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  558.                Picture         =   "帐簿分析_出入库流水帐.frx":44D22
  559.                Key             =   "pz"
  560.             EndProperty
  561.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  562.                Picture         =   "帐簿分析_出入库流水帐.frx":450BC
  563.                Key             =   "check"
  564.             EndProperty
  565.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  566.                Picture         =   "帐簿分析_出入库流水帐.frx":45456
  567.                Key             =   "mx"
  568.             EndProperty
  569.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  570.                Picture         =   "帐簿分析_出入库流水帐.frx":457F0
  571.                Key             =   "jz"
  572.             EndProperty
  573.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  574.                Picture         =   "帐簿分析_出入库流水帐.frx":45B8A
  575.                Key             =   "hz"
  576.             EndProperty
  577.          EndProperty
  578.       End
  579.    End
  580. End
  581. Attribute VB_Name = "Zbfx_InOut"
  582. Attribute VB_GlobalNameSpace = False
  583. Attribute VB_Creatable = False
  584. Attribute VB_PredeclaredId = True
  585. Attribute VB_Exposed = False
  586. '**************************************************************************
  587. '*    模 块 名 称 :出入库流水帐
  588. '*    功 能 描 述 :
  589. '*    程序员姓名  :白凤英
  590. '*    最后修改人  :白凤英
  591. '*    最后修改时间:2001/12/13
  592. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  593. '**************************************************************************
  595. Dim ReportTitle As String                '报表主标题
  596. Dim Str_QueryCondi As String             '用户录入查询条件
  597. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  599. '以下为固定使用变量
  600. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  601. Dim GridCode As String                   '显示网格网格代码
  602. Dim GridInf() As Variant                 '整个网格设置信息
  603. Dim Tsxx As String                       '系统提示信息
  604. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  605. Dim Sjhgd As Double                      '网格数据行高度
  606. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  607. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  608. Dim GridStr()  As String                 '网格列信息(字符型)
  609. Dim GridInt() As Integer                 '网格列信息(整型)
  610. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  612. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  613.     On Error Resume Next
  614.     With CxbbGrid
  615.         .Width = Me.Width - 160
  616.         .Height = Me.Height - .Top - 400
  617.     End With
  618.     With Pic_Title
  619.         .Width = Me.Width - 160
  620.     End With
  621.     
  622.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  624. End Sub
  626. Private Sub Form_Load()                                                   '窗体装入
  627.   
  628.     '调入打印页面设置窗体
  629.     ReportTitle = "出入库流水帐"
  630.     XtReportCode = "Chhs_InOut"
  631.     Load Dyymctbl
  632.       
  633.     '调整标题栏及网格、格式工具条位置(Fixed)
  634.     Pic_Title.Left = 40
  635.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  636.     CxbbGrid.Left = Pic_Title.Left
  637.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  638.      
  639.     '调 入 网 格(Fixed)
  640.     GridCode = "Chhs_InOut"
  641.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  642.       
  643.     Qslz = GridInf(1)
  644.     Sjhgd = GridInf(2)
  645.     Sfxshjwg = GridInf(7)
  646.     Szzls = CxbbGrid.Cols - 1
  648. End Sub
  650. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  652.     '卸载条件窗体
  653.     Zbfx_InOutCond.UnloadCheck.Value = 1
  654.     Unload Zbfx_InOutCond
  655.     
  656.     '卸载打印页面设置窗体
  657.     Unload Dyymctbl
  659. End Sub
  661. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  662.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  663. End Sub
  665. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  666.   
  667.     Select Case Button.Key
  668.         Case "bcgs"                                          '保存表格格式
  669.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  670.         Case "hfmrgs"                                        '恢复默认格式
  671.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  672.         Case "szxsxm"                                        '设置显示项目
  673.             Call Szxsxm(CxbbGrid, GridCode)
  674.     End Select
  676. End Sub
  678. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  679.     
  680.     Select Case Button.Key
  681.         Case "ymsz"                                          '页面设置
  682.             Dyymctbl.Show 1
  683.         Case "yl"                                            '预 览
  684.             Call bbyl(True)
  685.         Case "dy"                                            '打 印
  686.             Call bbyl(False)
  687.         Case "cx"                                            '查 询
  688.             Zbfx_InOutCond.Show 1
  689.         Case "Bill"                                          '单 据
  690.             Call CxbbGrid_DblClick
  691.         Case "bz"                                            '帮 助
  692.             Call F1bz
  693.         Case "fh"                                            '退 出
  694.            Unload Me
  695.     End Select
  697. End Sub
  699. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  700.     
  701.     Timer1.Enabled = False
  702.     Xt_Wait.Show
  703.     Xt_Wait.Refresh
  704.    
  705.     '加快显示速度
  706.     CxbbGrid.Redraw = False
  708.     '生成查询结果
  709.     Call Sub_Query
  710.    
  711.     CxbbGrid.Redraw = True
  712.     
  713.     Xt_Wait.Hide
  715. End Sub
  717. Private Sub Sub_Query()                              '生成查询结果(Define)  未记帐单据
  718.     
  719.     Dim Rec_Query As Recordset                  '查询结果动态集
  720.     Dim Coljsq As Long                          '网格列计数器
  721.     Dim Jsqte As Long                        '临时动态计数器
  722.     Dim Str1 As String
  723.     
  724.     '以下为自定义部分[
  725.  
  726.     With Zbfx_InOutCond
  727.      
  728.         '生成查询条件
  729.         Str_QueryCondi = " where kjyear= " & Xtyear
  730.         For Jsqte = 0 To 16
  731.             Select Case Jsqte
  732.                 Case 0  '仓库
  733.                     If Trim(.LrText(0).Text) <> "" Then
  734.                         Str_QueryCondi = Str_QueryCondi & " And a.whcode='" & Trim(.LrText(0).Tag) & "'"
  735.                     End If
  736.                 Case 1  '存货分类(Like)
  737.                     If Trim(.LrText(1).Text) <> "" Then
  738.                         Str_QueryCondi = Str_QueryCondi & " And a.invsortcode like '" & Trim(.LrText(1).Tag) & "%'"
  739.                     End If
  740.                 Case 2  '查询存货范围(起始)
  741.                     If Trim(.LrText(2).Text) <> "" Then
  742.                         Str_QueryCondi = Str_QueryCondi & " And a.mnumber>='" & Trim(.LrText(2).Text) & "'"
  743.                     End If
  744.                 Case 3  '查询存货范围(终止)
  745.                     If Trim(.LrText(3).Text) <> "" Then
  746.                         Str_QueryCondi = Str_QueryCondi & " And a.mnumber<= '" & Trim(.LrText(3).Text) & "'"
  747.                     End If
  748.                 Case 4  '收发类别（起始）
  749.                     If Trim(.LrText(4).Text) <> "" Then
  750.                         Str_QueryCondi = Str_QueryCondi & " and a.inoutclasscode >= '" & Trim(.LrText(4).Tag) & "'"
  751.                     End If
  752.                 Case 5  '收发类别（终止）
  753.                     If Trim(.LrText(5).Text) <> "" Then
  754.                         Str_QueryCondi = Str_QueryCondi & " and a.inoutclasscode <= '" & Trim(.LrText(5).Tag) & "'"
  755.                     End If
  756.                 Case 6  '供应商
  757.                     If Trim(.LrText(6).Text) <> "" Then
  758.                         Str_QueryCondi = Str_QueryCondi & " and a.suppliercode = '" & Trim(.LrText(6).Tag) & "'"
  759.                     End If
  760.                 Case 7  '客户
  761.                     If Trim(.LrText(7).Text) <> "" Then
  762.                         Str_QueryCondi = Str_QueryCondi & " and a.cuscode = '" & Trim(.LrText(7).Tag) & "'"
  763.                     End If
  764.                 Case 8  '部门
  765.                     If Trim(.LrText(8).Text) <> "" Then
  766.                         Str_QueryCondi = Str_QueryCondi & " and a.deptcode = '" & Trim(.LrText(8).Tag) & "'"
  767.                     End If
  768.                 Case 9  '查询单据日期范围(起始)
  769.                     If Trim(.LrText(9).Text) <> "" Then
  770.                         Str_QueryCondi = Str_QueryCondi & " And a.BillDate>='" & Trim(.LrText(9).Text) & "'"
  771.                     End If
  772.                 Case 10  '查询单据日期范围(终止)
  773.                     If Trim(.LrText(10).Text) <> "" Then
  774.                         Str_QueryCondi = Str_QueryCondi & " And a.BillDate<= '" & Trim(.LrText(10).Text) & "'"
  775.                     End If
  776.                 Case 11  '查询记帐日期范围(起始)
  777.                     If Trim(.LrText(11).Text) <> "" Then
  778.                         Str_QueryCondi = Str_QueryCondi & " And a.ChalkDate>='" & Trim(.LrText(11).Text) & "'"
  779.                     End If
  780.                 Case 12  '查询记帐日期范围(终止)
  781.                     If Trim(.LrText(12).Text) <> "" Then
  782.                         Str_QueryCondi = Str_QueryCondi & " And a.ChalkDate<= '" & Trim(.LrText(12).Text) & "'"
  783.                     End If
  784.                 Case 14  '月份（起始）
  785.                     Str_QueryCondi = Str_QueryCondi & " And a.period>= '" & .Com_QsMon.ItemData(.Com_QsMon.ListIndex) & "'"
  786.                 Case 15  '月份(终止)
  787.                     Str_QueryCondi = Str_QueryCondi & " And a.period<= '" & .Com_JzMon.ItemData(.Com_JzMon.ListIndex) & "'"
  788.                 Case 16  '记帐状态
  789.                     Str_QueryCondi = Str_QueryCondi & " and  (a.billcode in(1202,1203,1204,1205,1206,1212)) "
  790.                     If Not .Opt_Check(0).Value Then
  791.                         If .Opt_Check(1).Value Then
  792.                             Str_QueryCondi = Str_QueryCondi & " and  a.chalkitupman <>'' "
  793.                         Else
  794.                             Str_QueryCondi = Str_QueryCondi & " and  a.chalkitupman ='' "
  795.                         End If
  796.                     End If
  797.             End Select
  798.         Next Jsqte
  799.     End With
  800.      
  801.     If Not Zbfx_InOutCond.Opt_Check(1).Value Then          '收发记录表查询
  802.         SqlStr = "SELECT * FROM Chhs_V_InOut a LEFT OUTER JOIN Gy_Whlimit ON a.Whcode=Gy_Whlimit.Whcode " & _
  803.              Trim(Str_QueryCondi) & "AND Gy_Whlimit.Czybm='" & Xtczybm & "' Order By a.whcode,a.BillDate,a.InoutMainId,a.InOutSubId"
  804.     Else        '明细帐查询
  805.         SqlStr = "SELECT * FROM Chhs_V_List a LEFT OUTER JOIN Gy_Whlimit ON a.Whcode=Gy_Whlimit.Whcode " & _
  806.              Trim(Str_QueryCondi) & "AND Gy_Whlimit.Czybm='" & Xtczybm & "' Order By a.whcode,a.BillDate,a.InoutMainId,a.InOutSubId"
  807.     End If
  808.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  809.     With Rec_Query
  810.         CxbbGrid.Rows = CxbbGrid.FixedRows
  811.         Jsqte = CxbbGrid.FixedRows
  812.         Do While Not .EOF
  813.     
  814.             CxbbGrid.AddItem ""
  815.             '[>>自定义填充内容
  816.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("InoutMainId")                                            'ID(主要用来查询定位用)
  817.             CxbbGrid.TextMatrix(Jsqte, 1) = .Fields("BillCode")                                                    '单据编码
  818.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")              '单据号
  819.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")               '仓库名称
  820.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")  '入库日期
  821.             If .Fields("inoutFlag") Then
  822.                 CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")         '供应商
  823.             Else
  824.                 CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("CusName") & "")              '客户
  825.             End If
  826.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Deptname") & "")             '部门
  827.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("InoutClassName") & "")       '收发类别
  828.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")           '业务员
  829.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                '制单人
  830.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("ChalkitupMan") & "")         '记帐人
  831.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")              '存货编码
  832.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                '存货名称
  833.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                '规格型号
  834.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")      '主计量单位
  835.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("kjyear") & "")               '年度
  836.             CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Trim(.Fields("period") & "")               '月份
  837.             CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = Trim(.Fields("billname") & "")               '备注
  838.             CxbbGrid.TextMatrix(Jsqte, Sydz("026", GridStr(), Szzls)) = Trim(.Fields("remark") & "")               '备注
  839.             
  840.             If Not Zbfx_InOutCond.Opt_Check(1).Value Then          '收发记录表查询
  841.                 CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("ChhsChecker") & "")              '审核人
  842.                 If .Fields("inoutFlag") Then
  843.                     If .Fields("FactReceiptQuan") <> 0 Then                                                                           '数量
  844.                         CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("FactReceiptQuan")
  845.                     End If
  846.                     If .Fields("PlanPrice") <> 0 Then                                                                      '计划单价
  847.                         CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("PlanPrice")
  848.                     End If
  849.                     If .Fields("PlanMoney") <> 0 Then                                                                      '计划金额
  850.                         CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("PlanMoney")
  851.                     End If
  852.                     If .Fields("Price") <> 0 Then                                                                          '实际单价
  853.                         CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("Price")
  854.                     End If
  855.                     If .Fields("Emoney") <> 0 Then                                                                         '实际金额
  856.                         CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("EMoney")
  857.                     End If
  858.                 Else
  859.                     If .Fields("FactIssueQuan") <> 0 Then                                                                           '数量
  860.                         CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = .Fields("FactIssueQuan")
  861.                     End If
  862.                     If .Fields("Price") <> 0 Then                                                                          '实际单价
  863.                         CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = .Fields("Price")
  864.                     End If
  865.                     If .Fields("IssueMoney") <> 0 Then                                                                         '实际金额
  866.                         CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = .Fields("IssueMoney")
  867.                     End If
  868.                 End If
  869.             Else              '明细帐查询
  870.                 CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")              '审核人
  871.                 If .Fields("inoutFlag") Then
  872.                     If .Fields("InQuan") <> 0 Then                                                                           '数量
  873.                         CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("InQuan")
  874.                     End If
  875.                     If Trim(.Fields("pricemode")) = "计划价法" Then
  876.                         If .Fields("InPrice") <> 0 Then                                                                      '计划单价
  877.                             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("InPrice")
  878.                         End If
  879.                         If .Fields("InMoney") <> 0 Then                                                                      '计划金额
  880.                             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("InMoney")
  881.                         End If
  882.                     End If
  883.                     CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("InMoney") + .Fields("JfDiff") - .Fields("DfDiff")
  884.                     If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls))) <> 0 Then                                                                          '实际单价
  885.                         CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls))) / .Fields("InQuan")
  886.                     End If
  887.                 Else
  888.                     If .Fields("OutQuan") <> 0 Then                                                                           '数量
  889.                         CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = .Fields("OutQuan")
  890.                     End If
  891.                     If .Fields("OutPrice") <> 0 Then                                                                          '实际单价
  892.                         CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = .Fields("OutPrice")
  893.                     End If
  894.                     If .Fields("OutMoney") <> 0 Then                                                                         '实际金额
  895.                         CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = .Fields("OutMoney")
  896.                     End If
  897.                 End If
  898.             End If
  899.             '<<]
  900.             '设置数据行高度(Fixed)
  901.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  902.      
  903.             '动态集指针加1,同时将计数器加1(Fixed)
  904.             .MoveNext
  905.             Jsqte = Jsqte + 1
  906.         Loop
  907.     End With
  908.     
  909.     
  910.     '输入合计
  911.     With CxbbGrid
  912.         If .Rows = .FixedRows Then Exit Sub
  913.         
  914.         .SubtotalPosition = flexSTBelow
  915.         For Jsqte = Qslz To .Cols - 1
  916.              If GridBoolean(Jsqte, 4) Then
  917.                   .Subtotal flexSTSum, -1, Jsqte, , &HF7F3EC, , , , , True
  918.              End If
  919.         Next
  920.            
  921.         For Coljsq = Qslz To .Cols - 1
  922.             If Val(.TextMatrix(.Rows - 1, Coljsq)) = 0 And GridBoolean(Coljsq, 4) Then
  923.                 .TextMatrix(.Rows - 1, Coljsq) = ""
  924.             End If
  925.         Next
  926.         .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = "   合计 "
  927.         .RowHeight(.Rows - 1) = Sjhgd
  928.     End With
  929.     
  930.     ']以上为用户自定义部分
  931.     
  932.     Set Rec_Query = Nothing
  934. End Sub
  935. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  936.     
  937.     Dim Rectemp As New ADODB.Recordset               '临时使用动态集
  939.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  940.     
  941.     '非数据行退出
  942.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  943.         Exit Sub
  944.     End If
  945.     
  946.     SqlStr = "SELECT InOutMainId From Gy_InOutMain Where InOutMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) + 0
  947.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  948.     With Rectemp
  949.         If .EOF Then
  950.             Tsxx = "此单据已被其他用户删除!"
  951.             Call Xtxxts(Tsxx, 0, 4)
  952.             Exit Sub
  953.         Else
  954.             
  955.              '填充查询单据标识
  956.             XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  957.             Xtcdcsfz = Str_QueryCondi
  958.             
  959.             '设置单据处理为列表查询(修改)状态
  960.             Xtcdcs = "3"
  961.             
  962.            '调入单据处理窗体
  963.             Select Case Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 1))
  964.                 Case "1202"
  965.                     DJ_ProdInBill.Show 1
  966.                 Case "1203"
  967.                     DJ_OtherInBill.Show 1
  968.                 Case "1204"
  969.                     DJ_MateOutBill.Show 1
  970.                 Case "1205"
  971.                     DJ_SellOutBill.Show 1
  972.                 Case "1206"
  973.                     DJ_OtherOutBill.Show 1
  974.                 Case "1212"
  975.                     DJ_MateInBill.Show 1
  976.             End Select
  977.         End If
  978.     End With
  980. End Sub
  982. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  983.     
  984.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  985.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  986.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  987.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  988.     ReDim Bbxbt(1 To Bbxbtgs)
  989.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  990.     If Bbbwhgs <> 0 Then
  991.         ReDim Bbbwh(1 To Bbbwhgs)
  992.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  993.     End If
  994.     Bbzbt = ReportTitle
  995.     Bbxbt(1) = ""
  996.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  997.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  998.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  999.     If Not bbylte Then
  1000.         Unload DY_Tybbyldy
  1001.     End If
  1003. End Sub