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

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

企业管理

开发平台：

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 Balance_KF_MateInList 
  5.    Caption         =   "材料入库单列表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   8880
  10.    HelpContextID   =   1215004
  11.    Icon            =   "结算_材料入库单列表查询结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   8880
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   525
  20.       Left            =   9330
  21.       TabIndex        =   3
  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       =   "ImageList2"
  31.       _Version        =   393216
  32.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  33.          NumButtons      =   3
  34.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  35.             Caption         =   "保存格式"
  36.             Key             =   "bcgs"
  37.             ImageKey        =   "bcgs"
  38.          EndProperty
  39.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  40.             Caption         =   "默认列宽"
  41.             Key             =   "hfmrgs"
  42.             ImageKey        =   "mrlk"
  43.          EndProperty
  44.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  45.             Caption         =   "显示项目"
  46.             Key             =   "szxsxm"
  47.             ImageKey        =   "xsxm"
  48.          EndProperty
  49.       EndProperty
  50.    End
  51.    Begin VB.PictureBox Pic_Title 
  52.       BackColor       =   &H00FFFFFF&
  53.       Height          =   825
  54.       Left            =   0
  55.       Picture         =   "结算_材料入库单列表查询结果.frx":1042
  56.       ScaleHeight     =   765
  57.       ScaleWidth      =   11715
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11775
  61.       Begin VB.Label Lab_Title 
  62.          AutoSize        =   -1  'True
  63.          BackColor       =   &H80000018&
  64.          BackStyle       =   0  'Transparent
  65.          Caption         =   "材料入库单列表"
  66.          BeginProperty Font 
  67.             Name            =   "宋体"
  68.             Size            =   12
  69.             Charset         =   134
  70.             Weight          =   700
  71.             Underline       =   0   'False
  72.             Italic          =   0   'False
  73.             Strikethrough   =   0   'False
  74.          EndProperty
  75.          ForeColor       =   &H00000000&
  76.          Height          =   240
  77.          Index           =   4
  78.          Left            =   480
  79.          TabIndex        =   2
  80.          Top             =   210
  81.          Width           =   1785
  82.       End
  83.    End
  84.    Begin VB.Timer Timer1 
  85.       Enabled         =   0   'False
  86.       Interval        =   1
  87.       Left            =   7950
  88.       Top             =   60
  89.    End
  90.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  91.       Height          =   7545
  92.       Left            =   0
  93.       TabIndex        =   0
  94.       Top             =   1440
  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   =   3
  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 VB.TextBox TxtRq 
  187.          Height          =   270
  188.          Left            =   240
  189.          TabIndex        =   5
  190.          Top             =   7110
  191.          Visible         =   0   'False
  192.          Width           =   405
  193.       End
  194.       Begin MSComctlLib.ImageList ImageList2 
  195.          Left            =   0
  196.          Top             =   0
  197.          _ExtentX        =   1005
  198.          _ExtentY        =   1005
  199.          BackColor       =   -2147483643
  200.          ImageWidth      =   16
  201.          ImageHeight     =   16
  202.          MaskColor       =   12632256
  203.          _Version        =   393216
  204.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  205.             NumListImages   =   40
  206.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.                Picture         =   "结算_材料入库单列表查询结果.frx":1DF82
  208.                Key             =   "sz"
  209.             EndProperty
  210.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  211.                Picture         =   "结算_材料入库单列表查询结果.frx":1E31C
  212.                Key             =   "dy"
  213.             EndProperty
  214.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  215.                Picture         =   "结算_材料入库单列表查询结果.frx":1E6B6
  216.                Key             =   "yl"
  217.             EndProperty
  218.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  219.                Picture         =   "结算_材料入库单列表查询结果.frx":1EA50
  220.                Key             =   "xg"
  221.             EndProperty
  222.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.                Picture         =   "结算_材料入库单列表查询结果.frx":1EDEA
  224.                Key             =   "zh"
  225.             EndProperty
  226.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.                Picture         =   "结算_材料入库单列表查询结果.frx":1F184
  228.                Key             =   "sh"
  229.             EndProperty
  230.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  231.                Picture         =   "结算_材料入库单列表查询结果.frx":1F51E
  232.                Key             =   "bc"
  233.             EndProperty
  234.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  235.                Picture         =   "结算_材料入库单列表查询结果.frx":1F8B8
  236.                Key             =   "fq"
  237.             EndProperty
  238.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  239.                Picture         =   "结算_材料入库单列表查询结果.frx":1FC52
  240.                Key             =   "bz"
  241.             EndProperty
  242.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  243.                Picture         =   "结算_材料入库单列表查询结果.frx":1FFEC
  244.                Key             =   "tc"
  245.             EndProperty
  246.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "结算_材料入库单列表查询结果.frx":20386
  248.                Key             =   "bcgs"
  249.             EndProperty
  250.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "结算_材料入库单列表查询结果.frx":20720
  252.                Key             =   "mrlk"
  253.             EndProperty
  254.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "结算_材料入库单列表查询结果.frx":20ABA
  256.                Key             =   "xsxm"
  257.             EndProperty
  258.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "结算_材料入库单列表查询结果.frx":20E54
  260.                Key             =   "first"
  261.             EndProperty
  262.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "结算_材料入库单列表查询结果.frx":211EE
  264.                Key             =   "prev"
  265.             EndProperty
  266.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "结算_材料入库单列表查询结果.frx":21588
  268.                Key             =   "next"
  269.             EndProperty
  270.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.                Picture         =   "结算_材料入库单列表查询结果.frx":21922
  272.                Key             =   "last"
  273.             EndProperty
  274.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.                Picture         =   "结算_材料入库单列表查询结果.frx":21CBC
  276.                Key             =   "xx"
  277.             EndProperty
  278.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "结算_材料入库单列表查询结果.frx":22056
  280.                Key             =   "define"
  281.             EndProperty
  282.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "结算_材料入库单列表查询结果.frx":223F0
  284.                Key             =   "exec"
  285.             EndProperty
  286.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "结算_材料入库单列表查询结果.frx":2278A
  288.                Key             =   "xz"
  289.             EndProperty
  290.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "结算_材料入库单列表查询结果.frx":22B24
  292.                Key             =   "sc"
  293.             EndProperty
  294.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "结算_材料入库单列表查询结果.frx":22EBE
  296.                Key             =   "sx"
  297.             EndProperty
  298.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "结算_材料入库单列表查询结果.frx":23258
  300.                Key             =   "cx"
  301.             EndProperty
  302.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "结算_材料入库单列表查询结果.frx":235F2
  304.                Key             =   "zd"
  305.             EndProperty
  306.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "结算_材料入库单列表查询结果.frx":2398C
  308.                Key             =   "dz"
  309.             EndProperty
  310.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "结算_材料入库单列表查询结果.frx":23D26
  312.                Key             =   "ph"
  313.             EndProperty
  314.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "结算_材料入库单列表查询结果.frx":240C0
  316.                Key             =   "fz"
  317.             EndProperty
  318.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "结算_材料入库单列表查询结果.frx":2445A
  320.                Key             =   "dw"
  321.             EndProperty
  322.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "结算_材料入库单列表查询结果.frx":247F4
  324.                Key             =   "hf"
  325.             EndProperty
  326.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "结算_材料入库单列表查询结果.frx":24B8E
  328.                Key             =   "pz"
  329.             EndProperty
  330.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "结算_材料入库单列表查询结果.frx":24F28
  332.                Key             =   "check"
  333.             EndProperty
  334.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "结算_材料入库单列表查询结果.frx":252C2
  336.                Key             =   "qs"
  337.             EndProperty
  338.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "结算_材料入库单列表查询结果.frx":2565C
  340.                Key             =   "fullcheck"
  341.             EndProperty
  342.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "结算_材料入库单列表查询结果.frx":259F6
  344.                Key             =   "qq"
  345.             EndProperty
  346.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "结算_材料入库单列表查询结果.frx":25D90
  348.                Key             =   "bcw"
  349.             EndProperty
  350.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "结算_材料入库单列表查询结果.frx":2612A
  352.                Key             =   "ye"
  353.             EndProperty
  354.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "结算_材料入库单列表查询结果.frx":264C4
  356.                Key             =   ""
  357.             EndProperty
  358.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  359.                Picture         =   "结算_材料入库单列表查询结果.frx":2685E
  360.                Key             =   "frist"
  361.             EndProperty
  362.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  363.                Picture         =   "结算_材料入库单列表查询结果.frx":26BF8
  364.                Key             =   "dj"
  365.             EndProperty
  366.          EndProperty
  367.       End
  368.    End
  369.    Begin MSComctlLib.Toolbar SzToolbar 
  370.       Align           =   1  'Align Top
  371.       Height          =   555
  372.       Left            =   0
  373.       TabIndex        =   4
  374.       Top             =   0
  375.       Width           =   8880
  376.       _ExtentX        =   15663
  377.       _ExtentY        =   979
  378.       ButtonWidth     =   820
  379.       ButtonHeight    =   926
  380.       AllowCustomize  =   0   'False
  381.       Appearance      =   1
  382.       Style           =   1
  383.       ImageList       =   "ImageList1"
  384.       _Version        =   393216
  385.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  386.          NumButtons      =   15
  387.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  388.             Caption         =   "设置"
  389.             Key             =   "ymsz"
  390.             ImageKey        =   "sz"
  391.          EndProperty
  392.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  393.             Caption         =   "打印"
  394.             Key             =   "dy"
  395.             ImageKey        =   "dy"
  396.          EndProperty
  397.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  398.             Caption         =   "预览"
  399.             Key             =   "yl"
  400.             ImageKey        =   "yl"
  401.          EndProperty
  402.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  403.             Style           =   3
  404.          EndProperty
  405.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  406.             Caption         =   "查询"
  407.             Key             =   "cx"
  408.             ImageKey        =   "cx"
  409.          EndProperty
  410.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  411.             Caption         =   "单据"
  412.             Key             =   "Bill"
  413.             ImageKey        =   "pz"
  414.          EndProperty
  415.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  416.             Style           =   3
  417.          EndProperty
  418.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  419.             Enabled         =   0   'False
  420.             Object.Visible         =   0   'False
  421.             Caption         =   "新增"
  422.             Key             =   "xz"
  423.             ImageKey        =   "xz"
  424.          EndProperty
  425.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  426.             Enabled         =   0   'False
  427.             Object.Visible         =   0   'False
  428.             Caption         =   "删除"
  429.             Key             =   "sc"
  430.             ImageKey        =   "sc"
  431.          EndProperty
  432.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  433.             Enabled         =   0   'False
  434.             Object.Visible         =   0   'False
  435.             Style           =   3
  436.          EndProperty
  437.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  438.             Enabled         =   0   'False
  439.             Object.Visible         =   0   'False
  440.             Caption         =   "核销"
  441.             Key             =   "hx"
  442.             ImageKey        =   "xx"
  443.          EndProperty
  444.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  445.             Enabled         =   0   'False
  446.             Object.Visible         =   0   'False
  447.             Caption         =   "弃销"
  448.             Key             =   "qx"
  449.             ImageKey        =   "fq"
  450.          EndProperty
  451.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  452.             Enabled         =   0   'False
  453.             Object.Visible         =   0   'False
  454.             Style           =   3
  455.          EndProperty
  456.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  457.             Caption         =   "帮助"
  458.             Key             =   "bz"
  459.             ImageKey        =   "bz"
  460.          EndProperty
  461.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  462.             Caption         =   "退出"
  463.             Key             =   "fh"
  464.             ImageKey        =   "tc"
  465.          EndProperty
  466.       EndProperty
  467.       BorderStyle     =   1
  468.       Begin MSComctlLib.ImageList ImageList1 
  469.          Left            =   8340
  470.          Top             =   30
  471.          _ExtentX        =   1005
  472.          _ExtentY        =   1005
  473.          BackColor       =   -2147483643
  474.          ImageWidth      =   16
  475.          ImageHeight     =   16
  476.          MaskColor       =   12632256
  477.          _Version        =   393216
  478.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  479.             NumListImages   =   32
  480.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  481.                Picture         =   "结算_材料入库单列表查询结果.frx":26F92
  482.                Key             =   "sz"
  483.             EndProperty
  484.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  485.                Picture         =   "结算_材料入库单列表查询结果.frx":2732C
  486.                Key             =   "dy"
  487.             EndProperty
  488.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  489.                Picture         =   "结算_材料入库单列表查询结果.frx":276C6
  490.                Key             =   "yl"
  491.             EndProperty
  492.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  493.                Picture         =   "结算_材料入库单列表查询结果.frx":27A60
  494.                Key             =   "xg"
  495.             EndProperty
  496.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  497.                Picture         =   "结算_材料入库单列表查询结果.frx":27DFA
  498.                Key             =   "zh"
  499.             EndProperty
  500.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  501.                Picture         =   "结算_材料入库单列表查询结果.frx":28194
  502.                Key             =   "sh"
  503.             EndProperty
  504.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  505.                Picture         =   "结算_材料入库单列表查询结果.frx":2852E
  506.                Key             =   "bc"
  507.             EndProperty
  508.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  509.                Picture         =   "结算_材料入库单列表查询结果.frx":288C8
  510.                Key             =   "fq"
  511.             EndProperty
  512.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  513.                Picture         =   "结算_材料入库单列表查询结果.frx":28C62
  514.                Key             =   "bz"
  515.             EndProperty
  516.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  517.                Picture         =   "结算_材料入库单列表查询结果.frx":28FFC
  518.                Key             =   "tc"
  519.             EndProperty
  520.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  521.                Picture         =   "结算_材料入库单列表查询结果.frx":29396
  522.                Key             =   "bcgs"
  523.             EndProperty
  524.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  525.                Picture         =   "结算_材料入库单列表查询结果.frx":29730
  526.                Key             =   "mrlk"
  527.             EndProperty
  528.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  529.                Picture         =   "结算_材料入库单列表查询结果.frx":29ACA
  530.                Key             =   "xsxm"
  531.             EndProperty
  532.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  533.                Picture         =   "结算_材料入库单列表查询结果.frx":29E64
  534.                Key             =   "first"
  535.             EndProperty
  536.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  537.                Picture         =   "结算_材料入库单列表查询结果.frx":2A1FE
  538.                Key             =   "prev"
  539.             EndProperty
  540.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  541.                Picture         =   "结算_材料入库单列表查询结果.frx":2A598
  542.                Key             =   "next"
  543.             EndProperty
  544.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  545.                Picture         =   "结算_材料入库单列表查询结果.frx":2A932
  546.                Key             =   "last"
  547.             EndProperty
  548.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  549.                Picture         =   "结算_材料入库单列表查询结果.frx":2ACCC
  550.                Key             =   "xx"
  551.             EndProperty
  552.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  553.                Picture         =   "结算_材料入库单列表查询结果.frx":2B066
  554.                Key             =   "define"
  555.             EndProperty
  556.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  557.                Picture         =   "结算_材料入库单列表查询结果.frx":2B400
  558.                Key             =   "exec"
  559.             EndProperty
  560.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  561.                Picture         =   "结算_材料入库单列表查询结果.frx":2B79A
  562.                Key             =   "xz"
  563.             EndProperty
  564.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  565.                Picture         =   "结算_材料入库单列表查询结果.frx":2BB34
  566.                Key             =   "sc"
  567.             EndProperty
  568.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  569.                Picture         =   "结算_材料入库单列表查询结果.frx":2BECE
  570.                Key             =   "sx"
  571.             EndProperty
  572.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  573.                Picture         =   "结算_材料入库单列表查询结果.frx":2C268
  574.                Key             =   "cx"
  575.             EndProperty
  576.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  577.                Picture         =   "结算_材料入库单列表查询结果.frx":2C602
  578.                Key             =   "zd"
  579.             EndProperty
  580.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  581.                Picture         =   "结算_材料入库单列表查询结果.frx":2C99C
  582.                Key             =   "dz"
  583.             EndProperty
  584.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  585.                Picture         =   "结算_材料入库单列表查询结果.frx":2CD36
  586.                Key             =   "ph"
  587.             EndProperty
  588.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  589.                Picture         =   "结算_材料入库单列表查询结果.frx":2D0D0
  590.                Key             =   "fz"
  591.             EndProperty
  592.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  593.                Picture         =   "结算_材料入库单列表查询结果.frx":2D46A
  594.                Key             =   "dw"
  595.             EndProperty
  596.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  597.                Picture         =   "结算_材料入库单列表查询结果.frx":2D804
  598.                Key             =   "hf"
  599.             EndProperty
  600.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  601.                Picture         =   "结算_材料入库单列表查询结果.frx":2DB9E
  602.                Key             =   "pz"
  603.             EndProperty
  604.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  605.                Picture         =   "结算_材料入库单列表查询结果.frx":2DF38
  606.                Key             =   "check"
  607.             EndProperty
  608.          EndProperty
  609.       End
  610.    End
  611. End
  612. Attribute VB_Name = "Balance_KF_MateInList"
  613. Attribute VB_GlobalNameSpace = False
  614. Attribute VB_Creatable = False
  615. Attribute VB_PredeclaredId = True
  616. Attribute VB_Exposed = False
  617. '**************************************************************************
  618. '*    模 块 名 称 :材料入库单列表
  619. '*    功 能 描 述 :
  620. '*    程序员姓名  :周化江
  621. '*    最后修改人  :周化江
  622. '*    最后修改时间:2001/10/06
  623. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  624. '**************************************************************************
  625. Dim ReportTitle As String                '报表主标题
  626. Dim Str_QueryCondi As String             '用户录入查询条件
  627. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  629. '以下为固定使用变量
  630. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  631. Dim GridCode As String                   '显示网格网格代码
  632. Dim GridInf() As Variant                 '整个网格设置信息
  633. Dim Tsxx As String                       '系统提示信息
  634. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  635. Dim Sjhgd As Double                      '网格数据行高度
  636. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  637. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  638. Dim GridStr()  As String                 '网格列信息(字符型)
  639. Dim GridInt() As Integer                 '网格列信息(整型)
  640. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  641. Public StrTemp1 As String
  642. Public StrTemp2 As String
  643. Public strWhCode As String
  644. Public strMnumber As String
  646. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  647.     On Error Resume Next
  648.     With CxbbGrid
  649.         .Width = Me.Width - 160
  650.         .Height = Me.Height - .Top - 400
  651.     End With
  652.     With Pic_Title
  653.         .Width = Me.Width - 160
  654.     End With
  655.     
  656.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  658. End Sub
  660. Private Sub Form_Load()                                                   '窗体装入
  661.   
  662.     '调入打印页面设置窗体
  663.     ReportTitle = "材料入库单列表"
  664.     XtReportCode = "KF_MateInCxjg"
  665.     Load Dyymctbl
  666.       
  667.     '调整标题栏及网格、格式工具条位置(Fixed)
  668.     Pic_Title.Left = 40
  669.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  670.     CxbbGrid.Left = Pic_Title.Left
  671.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  672.      
  673.     '调 入 网 格(Fixed)
  674.     GridCode = "KF_BalanceMateInList"
  675.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  676.       
  677.     Qslz = GridInf(1)
  678.     Sjhgd = GridInf(2)
  679.     Sfxshjwg = GridInf(7)
  680.     Szzls = CxbbGrid.Cols - 1
  682. End Sub
  684. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  686.     '卸载条件窗体
  687.     Balance_KF_MateInQuery.UnloadCheck.Value = 1
  688.     Unload Balance_KF_MateInQuery
  689.     
  690.     '卸载打印页面设置窗体
  691.     Unload Dyymctbl
  693. End Sub
  695. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  696.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  697. End Sub
  699. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  700.   
  701.     Select Case Button.Key
  702.         Case "bcgs"                                          '保存表格格式
  703.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  704.         Case "hfmrgs"                                        '恢复默认格式
  705.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  706.         Case "szxsxm"                                        '设置显示项目
  707.             Call Szxsxm(CxbbGrid, GridCode)
  708.     End Select
  710. End Sub
  712. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  713. Dim Rowjsq As Long
  714.     
  715.     Select Case Button.Key
  716.         Case "ymsz"                                          '页面设置
  717.             Dyymctbl.Show 1
  718.         Case "yl"                                            '预 览
  719.             Call bbyl(True)
  720.         Case "dy"                                            '打 印
  721.             Call bbyl(False)
  722.         Case "cx"                                            '查 询
  723.             Balance_KF_MateInQuery.Show 1
  724.         Case "Bill"                                          '单 据
  725.             Call CxbbGrid_DblClick
  726.         Case "bz"                                            '帮 助
  727.             Call F1bz
  728.         Case "fh"                                            '退 出
  729.            Unload Me
  730.     End Select
  732. End Sub
  734. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  735.     
  736.     Timer1.Enabled = False
  737.     Xt_Wait.Show
  738.     Xt_Wait.Refresh
  739.    
  740.     '加快显示速度
  741.     CxbbGrid.Redraw = False
  742.  
  743.     '生成查询结果
  744.     Call Sub_Query(0)
  745.    
  746.     CxbbGrid.Redraw = True
  747.     
  748.     Xt_Wait.Hide
  750. End Sub
  752. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  753.     
  754.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  756.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  757.     Dim Coljsq As Long                          '网格列计数器
  758.     Dim jsqte As Long                        '临时动态计数器
  760.     '以下为自定义部分[
  761.  
  762.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  763.         With Balance_KF_MateInQuery
  764.          
  765.             '生成查询条件
  766.             Str_QueryCondi = " where 1=1 "
  767.             For jsqte = 0 To 12
  768.                 Select Case jsqte
  769.                     Case 0  '查询日期范围(起始)
  770.                         If Trim(.LrText(0).Text) <> "" Then
  771.                             Str_QueryCondi = Str_QueryCondi & " And BillDate>=convert(datetime,'" & Trim(.LrText(0).Text) & "')"
  772.                         End If
  773.                     Case 1  '查询日期范围(终止)
  774.                         If Trim(.LrText(1).Text) <> "" Then
  775.                             Str_QueryCondi = Str_QueryCondi & " And BillDate<= convert(datetime,'" & Trim(.LrText(1).Text) & "')"
  776.                         End If
  777.                     Case 2                  '单据号
  778.                         If Trim(.LrText(2).Text) <> "" Then
  779.                             Str_QueryCondi = Str_QueryCondi & " And BillNum>='" & Trim(.LrText(2).Text) & "'"
  780.                         End If
  781.                     Case 3                  '单据号
  782.                         If Trim(.LrText(3).Text) <> "" Then
  783.                             Str_QueryCondi = Str_QueryCondi & " And BillNum<='" & Trim(.LrText(3).Text) & "'"
  784.                         End If
  785.                     Case 4                  '仓库
  786.                         If Trim(.LrText(4).Tag) <> "" Then
  787.                             Str_QueryCondi = Str_QueryCondi & " And WhCode='" & Trim(.LrText(4).Tag) & "'"
  788.                         Else
  789.                             Str_QueryCondi = Str_QueryCondi & " and (whcode in (select WhCode from KF_V_WhLimit where czybm='" & Xtczybm & "') or whcode='')"
  790.                         End If
  791.                     Case 5                  '部门
  792.                         If Trim(.LrText(6).Text) <> "" Then
  793.                             Str_QueryCondi = Str_QueryCondi & " and deptCode ='" & Trim(.LrText(6).Tag) & "'"
  794.                         End If
  795.                     Case 6                  '物料分类
  796.                         If Trim(.LrText(6).Text) <> "" Then
  797.                             Str_QueryCondi = Str_QueryCondi & " and InvSortCode like '" & Trim(.LrText(6).Tag) & "%'"
  798.                         End If
  799.                     Case 7                  '物料编码
  800.                         If Trim(.LrText(7).Text) <> "" Then
  801.                             Str_QueryCondi = Str_QueryCondi & " and MNumber = '" & Trim(.LrText(7).Text) & "'"
  802.                         End If
  803.                     Case 8                  '数量
  804.                         If Trim(.LrText(10).Text) <> "" Then
  805.                             Str_QueryCondi = Str_QueryCondi & " And FactReceiptQuan>=" & Val(.LrText(10).Text)
  806.                         End If
  807.                     Case 9                  '数量
  808.                         If Trim(.LrText(11).Text) <> "" Then
  809.                             Str_QueryCondi = Str_QueryCondi & " And FactReceiptQuan<=" & Val(.LrText(11).Text)
  810.                         End If
  811.                     Case 10                 '金额
  812.                         If Trim(.LrText(8).Text) <> "" Then
  813.                             Str_QueryCondi = Str_QueryCondi & " And EMoney>=" & Val(.LrText(8).Text)
  814.                         End If
  815.                     Case 11                 '金额
  816.                         If Trim(.LrText(9).Text) <> "" Then
  817.                             Str_QueryCondi = Str_QueryCondi & " And EMoney<=" & Val(.LrText(9).Text)
  818.                         End If
  819.                     Case 12   '审核状态
  820.                         If Not .OptCheck(0).Value Then
  821.                             If .OptCheck(1).Value Then
  822.                                 Str_QueryCondi = Str_QueryCondi & " and   ltrim(rtrim(isnull(KfChecker,'')))='' "
  823.                             Else
  824.                                 Str_QueryCondi = Str_QueryCondi & " and  ltrim(rtrim(isnull(KfChecker,'')))<>'' "
  825.                             End If
  826.                         End If
  827.                 End Select
  828.             Next jsqte
  829.         End With
  830.     Else
  831.         '1-"刷新"查询
  832.         If Str_QueryCondi = "" Then
  833.             Str_QueryCondi = " where 1=2 "
  834.         End If
  835.     End If
  836.      
  837.     Sqlstr = "SELECT * From KF_V_MateIn " & Str_QueryCondi & " Order By  KF_V_MateIn.InOutMainID"
  839.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  840.     With Rec_Query
  841.         CxbbGrid.Rows = CxbbGrid.FixedRows
  842.         jsqte = CxbbGrid.FixedRows
  843.         Do While Not .EOF
  844.             CxbbGrid.AddItem ""
  845.             '[>>自定义填充内容
  846.             CxbbGrid.TextMatrix(jsqte, 0) = Val(.Fields("InOutMainID"))
  847.             CxbbGrid.TextMatrix(jsqte, 1) = Val(.Fields("InvoiceID") & "")
  848.             CxbbGrid.TextMatrix(jsqte, 3) = Trim(.Fields("suppliercode"))
  849.             CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")
  850.             CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")
  851.             CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")
  852.             CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("suppliername") & "")
  853.             CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")
  854.             CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("maker") & "")
  855.             CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("KfChecker") & "")
  856.             CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("ChalkItupMan") & "")
  857.             CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")
  858.             CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("MName") & "")
  859.             CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("Model") & "")
  860.             If .Fields("FactReceiptQuan") <> 0 Then
  861.                 CxbbGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = .Fields("FactReceiptQuan")
  862.             End If
  863.             If .Fields("price") <> 0 Then
  864.                 CxbbGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = .Fields("price")
  865.             End If
  866.             If .Fields("emoney") <> 0 Then
  867.                 CxbbGrid.TextMatrix(jsqte, Sydz("014", GridStr(), Szzls)) = .Fields("emoney")
  868.             End If
  869.             If .Fields("planprice") <> 0 Then
  870.                 CxbbGrid.TextMatrix(jsqte, Sydz("015", GridStr(), Szzls)) = .Fields("planprice")
  871.             End If
  872.             If .Fields("planmoney") <> 0 Then
  873.                 CxbbGrid.TextMatrix(jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("planmoney")
  874.             End If
  876.             '<<]
  877.             '设置数据行高度(Fixed)
  878.             CxbbGrid.RowHeight(jsqte) = Sjhgd
  879.      
  880.             '动态集指针加1,同时将计数器加1(Fixed)
  881.             .MoveNext
  882.             jsqte = jsqte + 1
  883.         Loop
  884.     End With
  885.      CxbbGrid.SelectionMode = flexSelectionListBox
  886.     ']以上为用户自定义部分
  888. End Sub
  890. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  891.     
  892.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  893.     '当第一次查询结果为空时,判断总记录行是否与固定行数相同,如相同则出现错误(双表头出现此情况)
  894.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  895.         Exit Sub
  896.     End If
  897.     '非数据行退出
  898.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  899.         Exit Sub
  900.     End If
  902.     Sqlstr = "SELECT InOutMainID From gy_inOutMain Where InOutMainID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  903.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  904.     With RecTemp
  905.         If .EOF Then
  906.             Tsxx = "此材料入库单已被其他用户删除!"
  907.             Call Xtxxts(Tsxx, 0, 4)
  908.             Exit Sub
  909.         Else
  910.             '调入单据处理窗体
  911.                XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  912.                 Xtcdcsfz = Str_QueryCondi
  913.                 
  914.                 '设置单据处理为列表查询(修改)状态
  915.                 Xtcdcs = "2"
  916.             With Balance_KF_MateIn
  917.                 
  918.                 '填充查询单据标识
  919.                
  920.                 .Show 1
  921.             End With
  922.             If Xtfhcs = "1" Then
  923.                 Tsxx = "材料入库单发生变化,是否刷新材料入库单列表?"
  924.                 Yhanswer = Xtxxts(Tsxx, 2, 2)
  925.                 If Yhanswer = 1 Then
  926.                     Xt_Wait.Show
  927.                     Xt_Wait.Refresh
  928.    
  929.                     '加快显示速度
  930.                     CxbbGrid.Redraw = False
  931.  
  932.                     '生成查询结果
  933.                     Call Sub_Query(1)
  934.    
  935.                     CxbbGrid.Redraw = True
  936.                     Xt_Wait.Hide
  937.                 End If
  938.             End If
  939.         End If
  940.     End With
  942. End Sub
  944. Private Sub Sub_AddBill()                                              '新增单据
  945.     If Judge_NowDate = False Then Exit Sub
  946.     
  947.     With Balance_KF_MateIn
  948.    
  949.         '设置单据处理为填制单据状态
  950.         Xtcdcs = "1"
  951.          
  952.         .Show 1
  953.     End With
  954.        
  955.     If Xtfhcs = "1" Then
  956.         Tsxx = "材料入库单发生变化,是否刷新材料入库单列表?"
  957.         Yhanswer = Xtxxts(Tsxx, 2, 2)
  958.         If Yhanswer = 1 Then
  959.             Xt_Wait.Show
  960.             Xt_Wait.Refresh
  961.    
  962.             '加快显示速度
  963.             CxbbGrid.Redraw = False
  964.  
  965.             '生成查询结果
  966.             Call Sub_Query(1)
  967.    
  968.             CxbbGrid.Redraw = True
  969.             Xt_Wait.Hide
  970.         End If
  971.     End If
  972.    
  973. End Sub
  975. Private Sub Sub_DeleteBill()                                            '删除选中当前材料入库单
  976.     
  977.     Dim YAnswer As Integer
  978.     Dim Lng_BillID As Long           '单据标识
  979.     
  980.     '当第一次查询结果为空时,判断总记录行是否与固定行数相同,如相同则出现错误(双表头出现此情况)
  981.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  982.         Exit Sub
  983.     End If
  984.     '非数据行退出
  985.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  986.         Exit Sub
  987.     End If
  988.   
  989.     Tsxx = "请确认是否删除当前材料入库单?"
  990.     Yhanswer = Xtxxts(Tsxx, 2, 2)
  991.   
  992.     If Yhanswer = 1 Then
  993.         '1.判断当前材料入库单是否允许删除
  994.         If Not Fun_AllowDelete Then
  995.             Exit Sub
  996.         End If
  997.   
  998.         '2.删除单据所有内容
  999.         Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1000.         On Error GoTo Swcwcl
  1001.         Cw_DataEnvi.DataConnect.BeginTrans
  1002.         Cw_DataEnvi.DataConnect.Execute ("Delete gy_inOutSub Where InOutMainID=" & Lng_BillID)         '删除单据子表内容
  1003.         Cw_DataEnvi.DataConnect.Execute ("Delete gy_inOutMain Where InOutMainID=" & Lng_BillID)        '删除单据主表内容
  1004.         
  1005.         Cw_DataEnvi.DataConnect.CommitTrans
  1006.       
  1007.         '删除网格中单据数据
  1008.         jsqte = CxbbGrid.FixedRows
  1009.         Do While jsqte <= CxbbGrid.Rows - 1
  1010.             If Val(CxbbGrid.TextMatrix(jsqte, 0)) = Lng_BillID Then
  1011.                 CxbbGrid.RemoveItem (jsqte)
  1012.             Else
  1013.                 jsqte = jsqte + 1
  1014.             End If
  1015.         Loop
  1016.     Else
  1017.         Exit Sub
  1018.     End If
  1019.     Exit Sub
  1020. Swcwcl:
  1021.     Cw_DataEnvi.DataConnect.RollbackTrans
  1022.     Tsxx = "删除材料入库单过程中出现未知错误,程序自动恢复删除前状态!"
  1023.     Call Xtxxts(Tsxx, 0, 1)
  1024.     Exit Sub
  1025.   
  1026. End Sub
  1028. Private Function Fun_AllowDelete() As Boolean                                        '判断当前单据是否允许删除
  1029.   
  1030.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  1031.     Dim Sqlstr As String                   '查询字符串
  1032.     Dim Lng_BillID As Long                 '单据ID
  1033.   
  1034.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1035.     Sqlstr = "Select kfChecker,ChalkItupMan From gy_inOutMain Where InOutMainID=" & Lng_BillID
  1036.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1037.     With RecTemp
  1038.         If Not .EOF Then
  1039.             If Trim(.Fields("kfChecker") & "") <> "" Or Trim(.Fields("ChalkItupMan") & "") <> "" Then
  1040.                 Tsxx = "材料入库单已审核或记帐,不能删除!"
  1041.                 Call Xtxxts(Tsxx, 0, 4)
  1042.                 Exit Function
  1043.             End If
  1044.             End If
  1045.     End With
  1046.     Fun_AllowDelete = True
  1047.   
  1048. End Function
  1050. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1051.     
  1052.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1053.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1054.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1055.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1056.     ReDim Bbxbt(1 To Bbxbtgs)
  1057.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1058.     If Bbbwhgs <> 0 Then
  1059.         ReDim Bbbwh(1 To Bbbwhgs)
  1060.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1061.     End If
  1062.     Bbzbt = ReportTitle
  1063.     Bbxbt(1) = ""
  1064.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1065.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1066.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1067.     If Not bbylte Then
  1068.         Unload DY_Tybbyldy
  1069.     End If
  1071. End Sub