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

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

企业管理

开发平台：

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