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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form LB_MateInBillList 
  5.    Caption         =   "材料入库单列表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   13030201
  11.    Icon            =   "单据列表_材料入库单列表.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   11820
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   525
  20.       Left            =   9360
  21.       TabIndex        =   4
  22.       Top             =   30
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   926
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   926
  28.       Appearance      =   1
  29.       Style           =   1
  30.       ImageList       =   "ImageList1"
  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 MSComctlLib.ImageList ImageList1 
  52.       Left            =   3900
  53.       Top             =   780
  54.       _ExtentX        =   1005
  55.       _ExtentY        =   1005
  56.       BackColor       =   -2147483643
  57.       ImageWidth      =   16
  58.       ImageHeight     =   16
  59.       MaskColor       =   12632256
  60.       _Version        =   393216
  61.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  62.          NumListImages   =   32
  63.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  64.             Picture         =   "单据列表_材料入库单列表.frx":1042
  65.             Key             =   "sz"
  66.          EndProperty
  67.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  68.             Picture         =   "单据列表_材料入库单列表.frx":13DC
  69.             Key             =   "dy"
  70.          EndProperty
  71.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  72.             Picture         =   "单据列表_材料入库单列表.frx":1776
  73.             Key             =   "yl"
  74.          EndProperty
  75.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  76.             Picture         =   "单据列表_材料入库单列表.frx":1B10
  77.             Key             =   "xg"
  78.          EndProperty
  79.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  80.             Picture         =   "单据列表_材料入库单列表.frx":1EAA
  81.             Key             =   "zh"
  82.          EndProperty
  83.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  84.             Picture         =   "单据列表_材料入库单列表.frx":2244
  85.             Key             =   "sh"
  86.          EndProperty
  87.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  88.             Picture         =   "单据列表_材料入库单列表.frx":25DE
  89.             Key             =   "bc"
  90.          EndProperty
  91.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  92.             Picture         =   "单据列表_材料入库单列表.frx":2978
  93.             Key             =   "fq"
  94.          EndProperty
  95.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  96.             Picture         =   "单据列表_材料入库单列表.frx":2D12
  97.             Key             =   "bz"
  98.          EndProperty
  99.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  100.             Picture         =   "单据列表_材料入库单列表.frx":30AC
  101.             Key             =   "tc"
  102.          EndProperty
  103.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  104.             Picture         =   "单据列表_材料入库单列表.frx":3446
  105.             Key             =   "bcgs"
  106.          EndProperty
  107.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  108.             Picture         =   "单据列表_材料入库单列表.frx":37E0
  109.             Key             =   "mrlk"
  110.          EndProperty
  111.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  112.             Picture         =   "单据列表_材料入库单列表.frx":3B7A
  113.             Key             =   "xsxm"
  114.          EndProperty
  115.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  116.             Picture         =   "单据列表_材料入库单列表.frx":3F14
  117.             Key             =   "first"
  118.          EndProperty
  119.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  120.             Picture         =   "单据列表_材料入库单列表.frx":42AE
  121.             Key             =   "prev"
  122.          EndProperty
  123.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  124.             Picture         =   "单据列表_材料入库单列表.frx":4648
  125.             Key             =   "next"
  126.          EndProperty
  127.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  128.             Picture         =   "单据列表_材料入库单列表.frx":49E2
  129.             Key             =   "last"
  130.          EndProperty
  131.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  132.             Picture         =   "单据列表_材料入库单列表.frx":4D7C
  133.             Key             =   "xx"
  134.          EndProperty
  135.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  136.             Picture         =   "单据列表_材料入库单列表.frx":5116
  137.             Key             =   "define"
  138.          EndProperty
  139.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  140.             Picture         =   "单据列表_材料入库单列表.frx":54B0
  141.             Key             =   "exec"
  142.          EndProperty
  143.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  144.             Picture         =   "单据列表_材料入库单列表.frx":584A
  145.             Key             =   "xz"
  146.          EndProperty
  147.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  148.             Picture         =   "单据列表_材料入库单列表.frx":5BE4
  149.             Key             =   "sc"
  150.          EndProperty
  151.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  152.             Picture         =   "单据列表_材料入库单列表.frx":5F7E
  153.             Key             =   "sx"
  154.          EndProperty
  155.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  156.             Picture         =   "单据列表_材料入库单列表.frx":6318
  157.             Key             =   "cx"
  158.          EndProperty
  159.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  160.             Picture         =   "单据列表_材料入库单列表.frx":66B2
  161.             Key             =   "zd"
  162.          EndProperty
  163.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  164.             Picture         =   "单据列表_材料入库单列表.frx":6A4C
  165.             Key             =   "dz"
  166.          EndProperty
  167.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  168.             Picture         =   "单据列表_材料入库单列表.frx":6DE6
  169.             Key             =   "ph"
  170.          EndProperty
  171.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  172.             Picture         =   "单据列表_材料入库单列表.frx":7180
  173.             Key             =   "fz"
  174.          EndProperty
  175.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  176.             Picture         =   "单据列表_材料入库单列表.frx":751A
  177.             Key             =   "dw"
  178.          EndProperty
  179.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  180.             Picture         =   "单据列表_材料入库单列表.frx":78B4
  181.             Key             =   "hf"
  182.          EndProperty
  183.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  184.             Picture         =   "单据列表_材料入库单列表.frx":7C4E
  185.             Key             =   "pz"
  186.          EndProperty
  187.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  188.             Picture         =   "单据列表_材料入库单列表.frx":7FE8
  189.             Key             =   "check"
  190.          EndProperty
  191.       EndProperty
  192.    End
  193.    Begin VB.PictureBox Pic_Title 
  194.       BackColor       =   &H00FFFFFF&
  195.       Height          =   825
  196.       Left            =   0
  197.       Picture         =   "单据列表_材料入库单列表.frx":8382
  198.       ScaleHeight     =   765
  199.       ScaleWidth      =   11715
  200.       TabIndex        =   1
  201.       Top             =   570
  202.       Width           =   11775
  203.       Begin VB.Label Lab_Title 
  204.          BackColor       =   &H80000018&
  205.          BackStyle       =   0  'Transparent
  206.          Caption         =   "材料入库单列表"
  207.          BeginProperty Font 
  208.             Name            =   "宋体"
  209.             Size            =   12
  210.             Charset         =   134
  211.             Weight          =   700
  212.             Underline       =   0   'False
  213.             Italic          =   0   'False
  214.             Strikethrough   =   0   'False
  215.          EndProperty
  216.          ForeColor       =   &H00000000&
  217.          Height          =   300
  218.          Index           =   4
  219.          Left            =   480
  220.          TabIndex        =   2
  221.          Top             =   210
  222.          Width           =   2715
  223.       End
  224.    End
  225.    Begin VB.Timer Timer1 
  226.       Enabled         =   0   'False
  227.       Interval        =   1
  228.       Left            =   7620
  229.       Top             =   90
  230.    End
  231.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  232.       Height          =   7545
  233.       Left            =   0
  234.       TabIndex        =   0
  235.       Top             =   1470
  236.       Width           =   11775
  237.       _cx             =   5080
  238.       _cy             =   5080
  239.       Appearance      =   1
  240.       BorderStyle     =   1
  241.       Enabled         =   -1  'True
  242.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  243.          Name            =   "宋体"
  244.          Size            =   9
  245.          Charset         =   134
  246.          Weight          =   400
  247.          Underline       =   0   'False
  248.          Italic          =   0   'False
  249.          Strikethrough   =   0   'False
  250.       EndProperty
  251.       MousePointer    =   0
  252.       BackColor       =   16777215
  253.       ForeColor       =   -2147483640
  254.       BackColorFixed  =   13826538
  255.       ForeColorFixed  =   -2147483630
  256.       BackColorSel    =   -2147483635
  257.       ForeColorSel    =   -2147483634
  258.       BackColorBkg    =   -2147483636
  259.       BackColorAlternate=   16777215
  260.       GridColor       =   -2147483633
  261.       GridColorFixed  =   -2147483632
  262.       TreeColor       =   -2147483632
  263.       FloodColor      =   192
  264.       SheetBorder     =   -2147483642
  265.       FocusRect       =   1
  266.       HighLight       =   1
  267.       AllowSelection  =   -1  'True
  268.       AllowBigSelection=   -1  'True
  269.       AllowUserResizing=   0
  270.       SelectionMode   =   0
  271.       GridLines       =   1
  272.       GridLinesFixed  =   2
  273.       GridLineWidth   =   1
  274.       Rows            =   50
  275.       Cols            =   10
  276.       FixedRows       =   1
  277.       FixedCols       =   1
  278.       RowHeightMin    =   0
  279.       RowHeightMax    =   0
  280.       ColWidthMin     =   0
  281.       ColWidthMax     =   0
  282.       ExtendLastCol   =   0   'False
  283.       FormatString    =   ""
  284.       ScrollTrack     =   0   'False
  285.       ScrollBars      =   3
  286.       ScrollTips      =   0   'False
  287.       MergeCells      =   0
  288.       MergeCompare    =   0
  289.       AutoResize      =   -1  'True
  290.       AutoSizeMode    =   0
  291.       AutoSearch      =   0
  292.       AutoSearchDelay =   2
  293.       MultiTotals     =   -1  'True
  294.       SubtotalPosition=   0
  295.       OutlineBar      =   0
  296.       OutlineCol      =   0
  297.       Ellipsis        =   0
  298.       ExplorerBar     =   0
  299.       PicturesOver    =   0   'False
  300.       FillStyle       =   0
  301.       RightToLeft     =   0   'False
  302.       PictureType     =   0
  303.       TabBehavior     =   0
  304.       OwnerDraw       =   0
  305.       Editable        =   0
  306.       ShowComboButton =   1
  307.       WordWrap        =   0   'False
  308.       TextStyle       =   0
  309.       TextStyleFixed  =   0
  310.       OleDragMode     =   0
  311.       OleDropMode     =   0
  312.       DataMode        =   0
  313.       VirtualData     =   -1  'True
  314.       DataMember      =   ""
  315.       ComboSearch     =   3
  316.       AutoSizeMouse   =   -1  'True
  317.       FrozenRows      =   0
  318.       FrozenCols      =   0
  319.       AllowUserFreezing=   0
  320.       BackColorFrozen =   0
  321.       ForeColorFrozen =   0
  322.       WallPaperAlignment=   9
  323.       AccessibleName  =   ""
  324.       AccessibleDescription=   ""
  325.       AccessibleValue =   ""
  326.       AccessibleRole  =   24
  327.       Begin MSComctlLib.ImageList ImageList2 
  328.          Left            =   0
  329.          Top             =   0
  330.          _ExtentX        =   1005
  331.          _ExtentY        =   1005
  332.          BackColor       =   -2147483643
  333.          ImageWidth      =   16
  334.          ImageHeight     =   16
  335.          MaskColor       =   12632256
  336.          _Version        =   393216
  337.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  338.             NumListImages   =   40
  339.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  340.                Picture         =   "单据列表_材料入库单列表.frx":252C2
  341.                Key             =   "sz"
  342.             EndProperty
  343.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  344.                Picture         =   "单据列表_材料入库单列表.frx":25320
  345.                Key             =   "dy"
  346.             EndProperty
  347.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  348.                Picture         =   "单据列表_材料入库单列表.frx":2537E
  349.                Key             =   "yl"
  350.             EndProperty
  351.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  352.                Picture         =   "单据列表_材料入库单列表.frx":253DC
  353.                Key             =   "xg"
  354.             EndProperty
  355.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  356.                Picture         =   "单据列表_材料入库单列表.frx":2543A
  357.                Key             =   "zh"
  358.             EndProperty
  359.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  360.                Picture         =   "单据列表_材料入库单列表.frx":25498
  361.                Key             =   "sh"
  362.             EndProperty
  363.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  364.                Picture         =   "单据列表_材料入库单列表.frx":254F6
  365.                Key             =   "bc"
  366.             EndProperty
  367.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  368.                Picture         =   "单据列表_材料入库单列表.frx":25554
  369.                Key             =   "fq"
  370.             EndProperty
  371.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  372.                Picture         =   "单据列表_材料入库单列表.frx":255B2
  373.                Key             =   "bz"
  374.             EndProperty
  375.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  376.                Picture         =   "单据列表_材料入库单列表.frx":25610
  377.                Key             =   "tc"
  378.             EndProperty
  379.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  380.                Picture         =   "单据列表_材料入库单列表.frx":2566E
  381.                Key             =   "bcgs"
  382.             EndProperty
  383.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  384.                Picture         =   "单据列表_材料入库单列表.frx":256CC
  385.                Key             =   "mrlk"
  386.             EndProperty
  387.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  388.                Picture         =   "单据列表_材料入库单列表.frx":2572A
  389.                Key             =   "xsxm"
  390.             EndProperty
  391.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  392.                Picture         =   "单据列表_材料入库单列表.frx":25788
  393.                Key             =   "first"
  394.             EndProperty
  395.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  396.                Picture         =   "单据列表_材料入库单列表.frx":257E6
  397.                Key             =   "prev"
  398.             EndProperty
  399.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  400.                Picture         =   "单据列表_材料入库单列表.frx":25844
  401.                Key             =   "next"
  402.             EndProperty
  403.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  404.                Picture         =   "单据列表_材料入库单列表.frx":258A2
  405.                Key             =   "last"
  406.             EndProperty
  407.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  408.                Picture         =   "单据列表_材料入库单列表.frx":25900
  409.                Key             =   "xx"
  410.             EndProperty
  411.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  412.                Picture         =   "单据列表_材料入库单列表.frx":2595E
  413.                Key             =   "define"
  414.             EndProperty
  415.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  416.                Picture         =   "单据列表_材料入库单列表.frx":259BC
  417.                Key             =   "exec"
  418.             EndProperty
  419.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  420.                Picture         =   "单据列表_材料入库单列表.frx":25A1A
  421.                Key             =   "xz"
  422.             EndProperty
  423.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  424.                Picture         =   "单据列表_材料入库单列表.frx":25A78
  425.                Key             =   "sc"
  426.             EndProperty
  427.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  428.                Picture         =   "单据列表_材料入库单列表.frx":25AD6
  429.                Key             =   "sx"
  430.             EndProperty
  431.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  432.                Picture         =   "单据列表_材料入库单列表.frx":25B34
  433.                Key             =   "cx"
  434.             EndProperty
  435.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  436.                Picture         =   "单据列表_材料入库单列表.frx":25B92
  437.                Key             =   "zd"
  438.             EndProperty
  439.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  440.                Picture         =   "单据列表_材料入库单列表.frx":25BF0
  441.                Key             =   "dz"
  442.             EndProperty
  443.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  444.                Picture         =   "单据列表_材料入库单列表.frx":25C4E
  445.                Key             =   "ph"
  446.             EndProperty
  447.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.                Picture         =   "单据列表_材料入库单列表.frx":25CAC
  449.                Key             =   "fz"
  450.             EndProperty
  451.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.                Picture         =   "单据列表_材料入库单列表.frx":25D0A
  453.                Key             =   "dw"
  454.             EndProperty
  455.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  456.                Picture         =   "单据列表_材料入库单列表.frx":25D68
  457.                Key             =   "hf"
  458.             EndProperty
  459.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  460.                Picture         =   "单据列表_材料入库单列表.frx":25DC6
  461.                Key             =   "pz"
  462.             EndProperty
  463.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  464.                Picture         =   "单据列表_材料入库单列表.frx":25E24
  465.                Key             =   "check"
  466.             EndProperty
  467.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.                Picture         =   "单据列表_材料入库单列表.frx":25E82
  469.                Key             =   "qs"
  470.             EndProperty
  471.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.                Picture         =   "单据列表_材料入库单列表.frx":25EE0
  473.                Key             =   "fullcheck"
  474.             EndProperty
  475.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  476.                Picture         =   "单据列表_材料入库单列表.frx":25F3E
  477.                Key             =   "qq"
  478.             EndProperty
  479.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  480.                Picture         =   "单据列表_材料入库单列表.frx":25F9C
  481.                Key             =   "bcw"
  482.             EndProperty
  483.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  484.                Picture         =   "单据列表_材料入库单列表.frx":25FFA
  485.                Key             =   "ye"
  486.             EndProperty
  487.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.                Picture         =   "单据列表_材料入库单列表.frx":26058
  489.                Key             =   ""
  490.             EndProperty
  491.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.                Picture         =   "单据列表_材料入库单列表.frx":260B6
  493.                Key             =   "frist"
  494.             EndProperty
  495.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.                Picture         =   "单据列表_材料入库单列表.frx":26114
  497.                Key             =   "dj"
  498.             EndProperty
  499.          EndProperty
  500.       End
  501.    End
  502.    Begin MSComctlLib.Toolbar SzToolbar 
  503.       Align           =   1  'Align Top
  504.       Height          =   555
  505.       Left            =   0
  506.       TabIndex        =   3
  507.       Top             =   0
  508.       Width           =   11820
  509.       _ExtentX        =   20849
  510.       _ExtentY        =   979
  511.       ButtonWidth     =   820
  512.       ButtonHeight    =   926
  513.       AllowCustomize  =   0   'False
  514.       Appearance      =   1
  515.       Style           =   1
  516.       ImageList       =   "ImageList1"
  517.       _Version        =   393216
  518.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  519.          NumButtons      =   12
  520.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  521.             Caption         =   "设置"
  522.             Key             =   "ymsz"
  523.             ImageKey        =   "sz"
  524.          EndProperty
  525.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  526.             Caption         =   "打印"
  527.             Key             =   "dy"
  528.             ImageKey        =   "dy"
  529.          EndProperty
  530.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  531.             Caption         =   "预览"
  532.             Key             =   "yl"
  533.             ImageKey        =   "yl"
  534.          EndProperty
  535.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  536.             Style           =   3
  537.          EndProperty
  538.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  539.             Caption         =   "查询"
  540.             Key             =   "cx"
  541.             ImageKey        =   "cx"
  542.          EndProperty
  543.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  544.             Caption         =   "单据"
  545.             Key             =   "Bill"
  546.             ImageKey        =   "pz"
  547.          EndProperty
  548.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  549.             Style           =   3
  550.          EndProperty
  551.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  552.             Caption         =   "新增"
  553.             Key             =   "xz"
  554.             ImageKey        =   "xz"
  555.          EndProperty
  556.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  557.             Caption         =   "删除"
  558.             Key             =   "sc"
  559.             ImageKey        =   "sc"
  560.          EndProperty
  561.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  562.             Style           =   3
  563.          EndProperty
  564.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  565.             Caption         =   "帮助"
  566.             Key             =   "bz"
  567.             ImageKey        =   "bz"
  568.          EndProperty
  569.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  570.             Caption         =   "退出"
  571.             Key             =   "fh"
  572.             ImageKey        =   "tc"
  573.          EndProperty
  574.       EndProperty
  575.       BorderStyle     =   1
  576.    End
  577. End
  578. Attribute VB_Name = "LB_MateInBillList"
  579. Attribute VB_GlobalNameSpace = False
  580. Attribute VB_Creatable = False
  581. Attribute VB_PredeclaredId = True
  582. Attribute VB_Exposed = False
  583. '**************************************************************************
  584. '*    模 块 名 称 :材料入库单列表
  585. '*    功 能 描 述 :
  586. '*    程序员姓名  :杨波
  587. '*    最后修改人  :杨波
  588. '*    最后修改时间:2001/11/21
  589. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  590. '**************************************************************************
  591. Dim ReportTitle As String                '报表主标题
  592. Dim Str_QueryCondi As String             '用户录入查询条件
  593. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  595. '以下为固定使用变量
  596. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  597. Dim GridCode As String                   '显示网格网格代码
  598. Dim GridInf() As Variant                 '整个网格设置信息
  599. Dim Tsxx As String                       '系统提示信息
  600. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  601. Dim Sjhgd As Double                      '网格数据行高度
  602. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  603. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  604. Dim GridStr()  As String                 '网格列信息(字符型)
  605. Dim GridInt() As Integer                 '网格列信息(整型)
  606. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  608. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  609.     On Error Resume Next
  610.     With CxbbGrid
  611.         .Width = Me.Width - 160
  612.         .Height = Me.Height - .Top - 400
  613.     End With
  614.     With Pic_Title
  615.         .Width = Me.Width - 160
  616.     End With
  617.     
  618.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  620. End Sub
  622. Private Sub Form_Load()                                                   '窗体装入
  623.   
  624.     '调入打印页面设置窗体
  625.     ReportTitle = "材料入库单列表"
  626.     XtReportCode = "Chhs_MateInList"
  627.     Load Dyymctbl
  628.       
  629.     '调整标题栏及网格、格式工具条位置(Fixed)
  630.     Pic_Title.Left = 40
  631.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  632.     CxbbGrid.Left = Pic_Title.Left
  633.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  634.      
  635.     '调 入 网 格(Fixed)
  636.     GridCode = "Chhs_MateInBillList"
  637.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  638.       
  639.     Qslz = GridInf(1)
  640.     Sjhgd = GridInf(2)
  641.     Sfxshjwg = GridInf(7)
  642.     Szzls = CxbbGrid.Cols - 1
  643.     
  644.     '材料入库单库存管理系统生成
  645.     If ClrkdKfsc Then
  646.         SzToolbar.Buttons("xz").Enabled = False
  647.         SzToolbar.Buttons("sc").Enabled = False
  648.     End If
  649.     
  650. End Sub
  652. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  654.     '卸载条件窗体
  655.     LBCX_MateInBillListFind.UnloadCheck.Value = 1
  656.     Unload LBCX_MateInBillListFind
  657.     
  658.     '卸载打印页面设置窗体
  659.     Unload Dyymctbl
  661. End Sub
  663. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  664.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  665. End Sub
  667. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  668.   
  669.     Select Case Button.Key
  670.         Case "bcgs"                                          '保存表格格式
  671.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  672.         Case "hfmrgs"                                        '恢复默认格式
  673.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  674.         Case "szxsxm"                                        '设置显示项目
  675.             Call Szxsxm(CxbbGrid, GridCode)
  676.     End Select
  678. End Sub
  680. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  681.     
  682.     Select Case Button.Key
  683.         Case "ymsz"                                          '页面设置
  684.             Dyymctbl.Show 1
  685.         Case "yl"                                            '预 览
  686.             Call bbyl(True)
  687.         Case "dy"                                            '打 印
  688.             Call bbyl(False)
  689.         Case "cx"                                            '查 询
  690.             LBCX_MateInBillListFind.Show 1
  691.         Case "Bill"                                          '单 据
  692.             Call CxbbGrid_DblClick
  693.         Case "xz"                                            '新 增
  694.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  695.             If Not Security_Log("Chhs_MateInEdit", Xtczybm, 1, True) Then
  696.                 Exit Sub
  697.             End If
  698.             Call Sub_AddBill
  699.         Case "sc"                                            '删 除
  700.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  701.             If Not Security_Log("Chhs_MateInEdit", Xtczybm, 1, True) Then
  702.                 Exit Sub
  703.             End If
  704.             Call Sub_DeleteBill
  705.         Case "bz"                                            '帮 助
  706.             Call F1bz
  707.         Case "fh"                                            '退 出
  708.            Unload Me
  709.     End Select
  711. End Sub
  713. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  714.     
  715.     Timer1.Enabled = False
  716.     Xt_Wait.Show
  717.     Xt_Wait.Refresh
  718.    
  719.     '加快显示速度
  720.     CxbbGrid.Redraw = False
  721.  
  722.     '生成查询结果
  723.     Call Sub_Query(0)
  724.    
  725.     CxbbGrid.Redraw = True
  726.     
  727.     Xt_Wait.Hide
  729. End Sub
  731. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  732.     
  733.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  735.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  736.     Dim Coljsq As Long                          '网格列计数器
  737.     Dim Jsqte As Integer                        '临时动态计数器
  738.     
  739.     '以下为自定义部分[
  740.  
  741.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  742.     
  743.         With LBCX_MateInBillListFind
  744.          
  745.             '生成查询条件
  747.             Str_QueryCondi = " where 1=1 and Gy_Whlimit.Czybm='" & Xtczybm & "'"
  748.             
  749.             For Jsqte = 0 To 20
  750.             
  751.                 Select Case Jsqte
  752.                     
  753.                     Case 0  '仓库
  754.                         If Trim(.LrText(0).Tag) <> "" Then
  755.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.WhCode='" & Trim(.LrText(0).Tag) & "'"
  756.                         End If
  757.                         
  758.                     Case 1  '单据号（开始）
  759.                         If Trim(.LrText(1).Text) <> "" Then
  760.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.BillNum>='" & Trim(.LrText(1).Text) & "'"
  761.                         End If
  762.                         
  763.                     Case 2  '单据号（终止）
  764.                         If Trim(.LrText(2).Text) <> "" Then
  765.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.BillNum<='" & Trim(.LrText(2).Text) & "'"
  766.                         End If
  767.                         
  768.                     Case 3  '查询日期范围(起始)
  769.                         If Trim(.LrText(3).Text) <> "" Then
  770.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.BillDate>=' " & Trim(.LrText(3).Text) & "'"
  771.                         End If
  772.                         
  773.                     Case 4  '查询日期范围(终止)
  774.                         If Trim(.LrText(4).Text) <> "" Then
  775.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.BillDate<= ' " & Trim(.LrText(4).Text) & "'"
  776.                         End If
  777.                         
  778.                     Case 5  '存货（开始）
  779.                         If Trim(.LrText(5).Text) <> "" Then
  780.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.MNumber>= '" & Trim(.LrText(5).Text) & "'"
  781.                         End If
  782.                         
  783.                     Case 6  '存货（终止）
  784.                         If Trim(.LrText(6).Text) <> "" Then
  785.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.MNumber<= '" & Trim(.LrText(6).Text) & "'"
  786.                         End If
  787.                         
  788.                     Case 7  '供应商
  789.                         If Trim(.LrText(7).Tag) <> "" Then
  790.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.SupplierCode='" & Trim(.LrText(7).Tag) & "'"
  791.                         End If
  792.                         
  793.                     Case 8  '部门
  794.                         If Trim(.LrText(8).Tag) <> "" Then
  795.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.DeptCode='" & Trim(.LrText(8).Tag) & "'"
  796.                         End If
  797.                         
  798.                     Case 9  '入库类别
  799.                         If Trim(.LrText(9).Tag) <> "" Then
  800.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.InOutClassCode='" & Trim(.LrText(9).Tag) & "'"
  801.                         End If
  802.                     
  803.                     Case 10  '记帐状态
  804.                         If Not .Opt_Check(0).Value Then
  805.                             If .Opt_Check(1).Value Then
  806.                                 Str_QueryCondi = Str_QueryCondi & " and  Chhs_V_MateInBill.ChalkitupMan<>'' "
  807.                             Else
  808.                                 Str_QueryCondi = Str_QueryCondi & " and  Chhs_V_MateInBill.ChalkitupMan='' "
  809.                             End If
  810.                         End If
  811.                         
  812.                     Case 11  '采购类型
  813.                         If Trim(.LrText(10).Tag) <> "" Then
  814.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.PurTypeCode='" & Trim(.LrText(10).Tag) & "'"
  815.                         End If
  816.                         
  817.                     Case 12  '数量（开始）
  818.                         If Trim(.LrText(11).Text) <> "" Then
  819.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.FactReceiptQuan>=" & Val(.LrText(11).Text) & ""
  820.                         End If
  821.                         
  822.                     Case 13  '数量（终止）
  823.                         If Trim(.LrText(12).Text) <> "" Then
  824.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.FactReceiptQuan<=" & Val(.LrText(12).Text) & ""
  825.                         End If
  826.                         
  827.                     Case 14  '金额（开始）
  828.                         If Trim(.LrText(13).Text) <> "" Then
  829.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.EMoney>=" & Val(.LrText(13).Text) & ""
  830.                         End If
  831.                     
  832.                     Case 15  '金额（终止）
  833.                         If Trim(.LrText(14).Text) <> "" Then
  834.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.EMoney<=" & Val(.LrText(14).Text) & ""
  835.                         End If
  836.                         
  837.                     Case 16  '业务员
  838.                         If Trim(.LrText(15).Tag) <> "" Then
  839.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.PersonCode='" & Trim(.LrText(15).Tag) & "'"
  840.                         End If
  841.                     
  842.                     Case 17  '制单人
  843.                         If Trim(.LrText(16).Text) <> "" Then
  844.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.Maker='" & Trim(.LrText(16).Text) & "'"
  845.                         End If
  846.                     
  847.                     Case 18  '审核人
  848.                         If Trim(.LrText(17).Text) <> "" Then
  849.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.ChhsChecker='" & Trim(.LrText(17).Text) & "'"
  850.                         End If
  851.                     
  852.                     Case 19  '记帐人
  853.                         If Trim(.LrText(18).Text) <> "" Then
  854.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.ChalkitupMan='" & Trim(.LrText(18).Text) & "'"
  855.                         End If
  856.                         
  857.                     Case 20  '存货分类
  858.                         If Trim(.LrText(19).Text) <> "" Then
  859.                             Str_QueryCondi = Str_QueryCondi & " And Chhs_V_MateInBill.InvSortCode like '" & Trim(.LrText(19).Tag) & "%'"
  860.                         End If
  861.                         
  862.                 End Select
  863.                 
  864.             Next Jsqte
  865.             
  866.         End With
  867.         
  868.     Else
  869.     
  870.         '1-"刷新"查询
  871.         If Str_QueryCondi = "" Then
  872.             Str_QueryCondi = " where 1=2 "
  873.         End If
  874.         
  875.     End If
  876.      
  877.     SqlStr = "SELECT * FROM Chhs_V_MateInBill LEFT OUTER JOIN Gy_Whlimit ON Chhs_V_MateInBill.WhCode = Gy_Whlimit.WhCode " + "" & Str_QueryCondi & "" + " and Gy_Whlimit.Czybm='" & Xtczybm & "' Order By Chhs_V_MateInBill.BillDate,Chhs_V_MateInBill.InOutMainId,Chhs_V_MateInBill.InOutSubId"
  879.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  880.     
  881.     With Rec_Query
  882.     
  883.         CxbbGrid.Rows = CxbbGrid.FixedRows
  884.         
  885.         Jsqte = CxbbGrid.FixedRows
  886.         
  887.         If Rec_Query.RecordCount = 0 Then
  888.             SzToolbar.Buttons("Bill").Enabled = False
  889.             SzToolbar.Buttons("sc").Enabled = False
  890.         Else
  891.             SzToolbar.Buttons("Bill").Enabled = True
  892.             If Not ClrkdKfsc Then
  893.                 SzToolbar.Buttons("sc").Enabled = True
  894.             End If
  895.         End If
  896.         
  897.         Do While Not .EOF
  898.         
  899.             CxbbGrid.AddItem ""
  900.             
  901.             '[>>自定义填充内容
  902.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("InOutMainId")                                                 'MainID
  903.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")
  904.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")               '仓库
  905.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")  '日期
  906.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")         '供应商
  907.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")             '部门
  908.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("InOutClassName") & "")       '入库类别
  909.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("PurTypeName") & "")          '采购类型
  910.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")           '业务员
  911.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                '制单人
  912.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("ChhsChecker") & "")          '审核人
  913.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("ChalkitupMan") & "")         '记帐人
  914.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")              '存货编码
  915.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                '存货名称
  916.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                '规格型号
  917.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")      '计量单位
  918.             If .Fields("FactReceiptQuan") <> 0 Then                                                                '数量
  919.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("FactReceiptQuan")
  920.             End If
  921.             If .Fields("FactReceiptQuan") < 0 Then
  922.                 CxbbGrid.Cell(flexcpForeColor, Jsqte, Qslz, Jsqte, CxbbGrid.Cols - 1) = &HFF&
  923.             End If
  924.             If .Fields("PlanPrice") <> 0 Then                                                                      '计划单价
  925.                 CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("PlanPrice")
  926.             End If
  927.             If .Fields("PlanMoney") <> 0 Then                                                                      '计划金额
  928.                 CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = .Fields("PlanMoney")
  929.             End If
  930.             If .Fields("Price") <> 0 Then                                                                          '单价
  931.                 CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = .Fields("Price")
  932.             End If
  933.             If .Fields("EMoney") <> 0 Then                                                                         '金额
  934.                 CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = .Fields("EMoney")
  935.             End If
  936.             '<<]
  937.             '设置数据行高度(Fixed)
  938.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  939.      
  940.             '动态集指针加1,同时将计数器加1(Fixed)
  941.             .MoveNext
  942.             Jsqte = Jsqte + 1
  943.         Loop
  944.         
  945.         '判断是否输出合计
  946.         If LBCX_MateInBillListFind.Chk_Sum.Value = 1 Then
  947.             CxbbGrid.BackColorAlternate = &H80000005
  948.             CxbbGrid.Subtotal flexSTSum, 0, Sydz("015", GridStr(), Szzls), , &HF7F3EC, , , "合计"
  949.             CxbbGrid.Subtotal flexSTSum, 0, Sydz("017", GridStr(), Szzls), , &HF7F3EC, , , "合计"
  950.             CxbbGrid.Subtotal flexSTSum, 0, Sydz("019", GridStr(), Szzls), , &HF7F3EC, , , "合计"
  951.         End If
  952.         
  953.         '调整网格
  954.         For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
  955.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  956.             If CxbbGrid.TextMatrix(Jsqte, 0) = "合计" Then
  957.                 CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = "  合计"
  958.                 CxbbGrid.TextMatrix(Jsqte, 0) = CxbbGrid.TextMatrix(Jsqte - 1, 0)
  959.             End If
  960.             If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls))) = 0 Then
  961.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = ""
  962.             End If
  963.             If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls))) = 0 Then
  964.                 CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = ""
  965.             End If
  966.             If Val(CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls))) = 0 Then
  967.                 CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = ""
  968.             End If
  969.         Next Jsqte
  970.         
  971.     End With
  973.     ']以上为用户自定义部分
  975. End Sub
  977. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  978.     
  979.     Dim Rectemp As New ADODB.Recordset               '临时使用动态集
  981.     '非数据行退出
  982.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  983.         Exit Sub
  984.     End If
  986.     SqlStr = "SELECT InOutMainId From GY_InOutMain Where InOutMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  987.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  988.     
  989.     With Rectemp
  990.         If .EOF Then
  991.             Tsxx = "此材料入库单已被其他用户删除!"
  992.             Call Xtxxts(Tsxx, 0, 4)
  993.             Exit Sub
  994.         Else
  995.             '调入单据处理窗体
  996.             With DJ_MateInBill
  997.                 
  998.                 '填充查询单据标识
  999.                 XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  1000.                 Xtcdcsfz = Str_QueryCondi
  1001.                 
  1002.                 '设置单据处理为列表查询(修改)状态
  1003.                 Xtcdcs = "2"
  1004.                 .Show 1
  1005.                 
  1006.             End With
  1007.             If Xtfhcs = "1" Then
  1008.                 Tsxx = "材料入库单发生变化,是否刷新材料入库单列表?"
  1009.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  1010.                 If yhAnswer = 1 Then
  1011.                     Xt_Wait.Show
  1012.                     Xt_Wait.Refresh
  1013.    
  1014.                     '加快显示速度
  1015.                     CxbbGrid.Redraw = False
  1016.  
  1017.                     '生成查询结果
  1018.                     Call Sub_Query(1)
  1019.    
  1020.                     CxbbGrid.Redraw = True
  1021.                     Xt_Wait.Hide
  1022.                 End If
  1023.             End If
  1024.         End If
  1025.     End With
  1027. End Sub
  1029. Private Sub Sub_AddBill()                                              '新增单据
  1030.    
  1031.     With DJ_MateInBill
  1032.    
  1033.         '设置单据处理为填制单据状态
  1034.         Xtcdcs = "1"
  1035.         .Show 1
  1036.         
  1037.     End With
  1038.        
  1039.     If Xtfhcs = "1" Then
  1040.         Tsxx = "材料入库单发生变化,是否刷新材料入库单列表?"
  1041.         yhAnswer = Xtxxts(Tsxx, 2, 2)
  1042.         If yhAnswer = 1 Then
  1043.             Xt_Wait.Show
  1044.             Xt_Wait.Refresh
  1045.    
  1046.             '加快显示速度
  1047.             CxbbGrid.Redraw = False
  1048.  
  1049.             '生成查询结果
  1050.             Call Sub_Query(1)
  1051.    
  1052.             CxbbGrid.Redraw = True
  1053.             Xt_Wait.Hide
  1054.         End If
  1055.     End If
  1056.    
  1057. End Sub
  1059. Private Sub Sub_DeleteBill()                                            '删除选中当前销售订单
  1060.     
  1061.     Dim YAnswer As Integer
  1062.     Dim Lng_BillID As Long           '单据标识
  1063.   
  1064.     '非数据行退出
  1065.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  1066.         Exit Sub
  1067.     End If
  1068.   
  1069.     Tsxx = "请确认是否删除当前材料入库单?"
  1070.     yhAnswer = Xtxxts(Tsxx, 2, 2)
  1071.   
  1072.     If yhAnswer = 1 Then
  1073.         '1.判断当前材料入库单是否允许删除
  1074.         If Not Fun_AllowDelete Then
  1075.             Exit Sub
  1076.         End If
  1077.   
  1078.         '2.删除单据所有内容
  1079.         Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1080.         On Error GoTo Swcwcl
  1081.         Cw_DataEnvi.DataConnect.BeginTrans
  1082.         Cw_DataEnvi.DataConnect.Execute ("Delete GY_InOutMain Where InOutMainId=" & Lng_BillID)        '删除单据主表内容
  1083.         Cw_DataEnvi.DataConnect.Execute ("Delete GY_InOutSub Where InOutMainId=" & Lng_BillID)         '删除单据子表内容
  1084.         Cw_DataEnvi.DataConnect.CommitTrans
  1085.       
  1086.         '删除网格中单据数据
  1087.         Jsqte = CxbbGrid.FixedRows
  1088.         Do While Jsqte <= CxbbGrid.Rows - 1
  1089.             If Val(CxbbGrid.TextMatrix(Jsqte, 0)) = Lng_BillID Then
  1090.                 CxbbGrid.RemoveItem (Jsqte)
  1091.             Else
  1092.                 Jsqte = Jsqte + 1
  1093.             End If
  1094.         Loop
  1095.     Else
  1096.         Exit Sub
  1097.     End If
  1098.     Exit Sub
  1099. Swcwcl:
  1100.     Cw_DataEnvi.DataConnect.RollbackTrans
  1101.     Tsxx = "删除材料入库单过程中出现未知错误,程序自动恢复删除前状态!"
  1102.     Call Xtxxts(Tsxx, 0, 1)
  1103.     Exit Sub
  1104.   
  1105. End Sub
  1107. Private Function Fun_AllowDelete() As Boolean                                        '判断当前单据是否允许删除
  1108.   
  1109.     Dim Rectemp As New ADODB.Recordset     '临时使用动态集
  1110.     Dim SqlStr As String                   '查询字符串
  1111.     Dim Lng_BillID As Long                 '单据ID
  1112.   
  1113.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1114.     SqlStr = "Select ChhsChecker,ChalkitupMan From GY_InOutMain Where InOutMainId=" & Lng_BillID
  1115.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  1116.     With Rectemp
  1117.         If Not .EOF Then
  1118.             If Trim(.Fields("ChhsChecker") & "") <> "" Or Trim(.Fields("ChalkitupMan") & "") <> "" Then
  1119.                 Tsxx = "该材料入库单已审核或已记帐确认,不能删除!"
  1120.                 Call Xtxxts(Tsxx, 0, 4)
  1121.                 Exit Function
  1122.             End If
  1123.             End If
  1124.     End With
  1125.     Fun_AllowDelete = True
  1126.   
  1127. End Function
  1129. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1130.     
  1131.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1132.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1133.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1134.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1135.     ReDim Bbxbt(1 To Bbxbtgs)
  1136.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1137.     If Bbbwhgs <> 0 Then
  1138.         ReDim Bbbwh(1 To Bbbwhgs)
  1139.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1140.     End If
  1141.     Bbzbt = ReportTitle
  1142.     Bbxbt(1) = ""
  1143.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1144.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1145.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1146.     If Not bbylte Then
  1147.         Unload DY_Tybbyldy
  1148.     End If
  1150. End Sub