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

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

企业管理

开发平台：

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 BOM_BOMDefine 
  5.    BackColor       =   &H00E9F4FA&
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "产品配方定义"
  8.    ClientHeight    =   6240
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   11355
  12.    Icon            =   "配方管理 _配方定义.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   6240
  18.    ScaleWidth      =   11355
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  '屏幕中心
  21.    Begin VB.ComboBox YdCombo 
  22.       Height          =   300
  23.       Left            =   9000
  24.       Style           =   2  'Dropdown List
  25.       TabIndex        =   5
  26.       Top             =   960
  27.       Visible         =   0   'False
  28.       Width           =   1155
  29.    End
  30.    Begin VB.CommandButton Ydcommand1 
  31.       Height          =   300
  32.       Left            =   10680
  33.       Picture         =   "配方管理 _配方定义.frx":1042
  34.       Style           =   1  'Graphical
  35.       TabIndex        =   4
  36.       TabStop         =   0   'False
  37.       Top             =   600
  38.       Visible         =   0   'False
  39.       Width           =   300
  40.    End
  41.    Begin VB.TextBox Ydtext 
  42.       BackColor       =   &H80000018&
  43.       BorderStyle     =   0  'None
  44.       Height          =   330
  45.       Left            =   7710
  46.       MultiLine       =   -1  'True
  47.       TabIndex        =   3
  48.       Top             =   960
  49.       Visible         =   0   'False
  50.       Width           =   1185
  51.    End
  52.    Begin VB.CommandButton Ydcommand 
  53.       Height          =   300
  54.       Left            =   10680
  55.       Picture         =   "配方管理 _配方定义.frx":13CC
  56.       Style           =   1  'Graphical
  57.       TabIndex        =   2
  58.       TabStop         =   0   'False
  59.       Top             =   990
  60.       Visible         =   0   'False
  61.       Width           =   300
  62.    End
  63.    Begin VB.TextBox LrText 
  64.       ForeColor       =   &H00000000&
  65.       Height          =   300
  66.       Index           =   0
  67.       Left            =   1020
  68.       TabIndex        =   0
  69.       Text            =   "0"
  70.       Top             =   1500
  71.       Width           =   1650
  72.    End
  73.    Begin VSFlex8Ctl.VSFlexGrid WglrGrid 
  74.       Height          =   3345
  75.       Left            =   120
  76.       TabIndex        =   6
  77.       Top             =   2280
  78.       Width           =   10680
  79.       _cx             =   5080
  80.       _cy             =   5080
  81.       Appearance      =   1
  82.       BorderStyle     =   1
  83.       Enabled         =   -1  'True
  84.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  85.          Name            =   "宋体"
  86.          Size            =   9
  87.          Charset         =   134
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       MousePointer    =   0
  94.       BackColor       =   16777215
  95.       ForeColor       =   -2147483640
  96.       BackColorFixed  =   12640511
  97.       ForeColorFixed  =   -2147483630
  98.       BackColorSel    =   -2147483643
  99.       ForeColorSel    =   -2147483640
  100.       BackColorBkg    =   16777215
  101.       BackColorAlternate=   16777215
  102.       GridColor       =   -2147483633
  103.       GridColorFixed  =   -2147483632
  104.       TreeColor       =   -2147483632
  105.       FloodColor      =   192
  106.       SheetBorder     =   -2147483642
  107.       FocusRect       =   1
  108.       HighLight       =   1
  109.       AllowSelection  =   0   'False
  110.       AllowBigSelection=   0   'False
  111.       AllowUserResizing=   0
  112.       SelectionMode   =   0
  113.       GridLines       =   1
  114.       GridLinesFixed  =   2
  115.       GridLineWidth   =   1
  116.       Rows            =   5000
  117.       Cols            =   10
  118.       FixedRows       =   1
  119.       FixedCols       =   0
  120.       RowHeightMin    =   0
  121.       RowHeightMax    =   0
  122.       ColWidthMin     =   0
  123.       ColWidthMax     =   0
  124.       ExtendLastCol   =   0   'False
  125.       FormatString    =   ""
  126.       ScrollTrack     =   0   'False
  127.       ScrollBars      =   3
  128.       ScrollTips      =   0   'False
  129.       MergeCells      =   0
  130.       MergeCompare    =   0
  131.       AutoResize      =   -1  'True
  132.       AutoSizeMode    =   0
  133.       AutoSearch      =   0
  134.       AutoSearchDelay =   2
  135.       MultiTotals     =   -1  'True
  136.       SubtotalPosition=   1
  137.       OutlineBar      =   0
  138.       OutlineCol      =   0
  139.       Ellipsis        =   0
  140.       ExplorerBar     =   0
  141.       PicturesOver    =   0   'False
  142.       FillStyle       =   0
  143.       RightToLeft     =   0   'False
  144.       PictureType     =   0
  145.       TabBehavior     =   0
  146.       OwnerDraw       =   0
  147.       Editable        =   0
  148.       ShowComboButton =   1
  149.       WordWrap        =   -1  'True
  150.       TextStyle       =   0
  151.       TextStyleFixed  =   0
  152.       OleDragMode     =   0
  153.       OleDropMode     =   0
  154.       DataMode        =   0
  155.       VirtualData     =   -1  'True
  156.       DataMember      =   ""
  157.       ComboSearch     =   3
  158.       AutoSizeMouse   =   -1  'True
  159.       FrozenRows      =   0
  160.       FrozenCols      =   0
  161.       AllowUserFreezing=   0
  162.       BackColorFrozen =   0
  163.       ForeColorFrozen =   0
  164.       WallPaperAlignment=   9
  165.       AccessibleName  =   ""
  166.       AccessibleDescription=   ""
  167.       AccessibleValue =   ""
  168.       AccessibleRole  =   24
  169.       Begin VSFlex8Ctl.VSFlexGrid HjGrid 
  170.          Height          =   885
  171.          Left            =   0
  172.          TabIndex        =   7
  173.          Top             =   2400
  174.          Width           =   7545
  175.          _cx             =   5080
  176.          _cy             =   5080
  177.          Appearance      =   1
  178.          BorderStyle     =   0
  179.          Enabled         =   -1  'True
  180.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  181.             Name            =   "宋体"
  182.             Size            =   9
  183.             Charset         =   134
  184.             Weight          =   400
  185.             Underline       =   0   'False
  186.             Italic          =   0   'False
  187.             Strikethrough   =   0   'False
  188.          EndProperty
  189.          MousePointer    =   0
  190.          BackColor       =   14671839
  191.          ForeColor       =   -2147483640
  192.          BackColorFixed  =   -2147483633
  193.          ForeColorFixed  =   -2147483630
  194.          BackColorSel    =   -2147483643
  195.          ForeColorSel    =   -2147483640
  196.          BackColorBkg    =   16777215
  197.          BackColorAlternate=   14671839
  198.          GridColor       =   -2147483633
  199.          GridColorFixed  =   -2147483632
  200.          TreeColor       =   -2147483632
  201.          FloodColor      =   192
  202.          SheetBorder     =   -2147483642
  203.          FocusRect       =   1
  204.          HighLight       =   1
  205.          AllowSelection  =   0   'False
  206.          AllowBigSelection=   0   'False
  207.          AllowUserResizing=   0
  208.          SelectionMode   =   0
  209.          GridLines       =   1
  210.          GridLinesFixed  =   2
  211.          GridLineWidth   =   1
  212.          Rows            =   5000
  213.          Cols            =   10
  214.          FixedRows       =   1
  215.          FixedCols       =   0
  216.          RowHeightMin    =   0
  217.          RowHeightMax    =   0
  218.          ColWidthMin     =   0
  219.          ColWidthMax     =   0
  220.          ExtendLastCol   =   0   'False
  221.          FormatString    =   ""
  222.          ScrollTrack     =   0   'False
  223.          ScrollBars      =   3
  224.          ScrollTips      =   0   'False
  225.          MergeCells      =   0
  226.          MergeCompare    =   0
  227.          AutoResize      =   -1  'True
  228.          AutoSizeMode    =   0
  229.          AutoSearch      =   0
  230.          AutoSearchDelay =   2
  231.          MultiTotals     =   -1  'True
  232.          SubtotalPosition=   1
  233.          OutlineBar      =   0
  234.          OutlineCol      =   0
  235.          Ellipsis        =   0
  236.          ExplorerBar     =   0
  237.          PicturesOver    =   0   'False
  238.          FillStyle       =   0
  239.          RightToLeft     =   0   'False
  240.          PictureType     =   0
  241.          TabBehavior     =   0
  242.          OwnerDraw       =   0
  243.          Editable        =   0
  244.          ShowComboButton =   1
  245.          WordWrap        =   -1  'True
  246.          TextStyle       =   0
  247.          TextStyleFixed  =   0
  248.          OleDragMode     =   0
  249.          OleDropMode     =   0
  250.          DataMode        =   0
  251.          VirtualData     =   -1  'True
  252.          DataMember      =   ""
  253.          ComboSearch     =   3
  254.          AutoSizeMouse   =   -1  'True
  255.          FrozenRows      =   0
  256.          FrozenCols      =   0
  257.          AllowUserFreezing=   0
  258.          BackColorFrozen =   0
  259.          ForeColorFrozen =   0
  260.          WallPaperAlignment=   9
  261.          AccessibleName  =   ""
  262.          AccessibleDescription=   ""
  263.          AccessibleValue =   ""
  264.          AccessibleRole  =   24
  265.       End
  266.    End
  267.    Begin MSComctlLib.ImageList ImageList1 
  268.       Left            =   240
  269.       Top             =   720
  270.       _ExtentX        =   1005
  271.       _ExtentY        =   1005
  272.       BackColor       =   -2147483643
  273.       ImageWidth      =   16
  274.       ImageHeight     =   16
  275.       MaskColor       =   12632256
  276.       _Version        =   393216
  277.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  278.          NumListImages   =   38
  279.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  280.             Picture         =   "配方管理 _配方定义.frx":1756
  281.             Key             =   "sz"
  282.          EndProperty
  283.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  284.             Picture         =   "配方管理 _配方定义.frx":1AF0
  285.             Key             =   "dy"
  286.          EndProperty
  287.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  288.             Picture         =   "配方管理 _配方定义.frx":1E8A
  289.             Key             =   "yl"
  290.          EndProperty
  291.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  292.             Picture         =   "配方管理 _配方定义.frx":2224
  293.             Key             =   "xg"
  294.          EndProperty
  295.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  296.             Picture         =   "配方管理 _配方定义.frx":25BE
  297.             Key             =   "zh"
  298.          EndProperty
  299.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  300.             Picture         =   "配方管理 _配方定义.frx":2958
  301.             Key             =   "sh"
  302.          EndProperty
  303.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  304.             Picture         =   "配方管理 _配方定义.frx":2CF2
  305.             Key             =   "bc"
  306.          EndProperty
  307.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  308.             Picture         =   "配方管理 _配方定义.frx":308C
  309.             Key             =   "fq"
  310.          EndProperty
  311.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  312.             Picture         =   "配方管理 _配方定义.frx":3426
  313.             Key             =   "bz"
  314.          EndProperty
  315.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  316.             Picture         =   "配方管理 _配方定义.frx":37C0
  317.             Key             =   "tc"
  318.          EndProperty
  319.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  320.             Picture         =   "配方管理 _配方定义.frx":3B5A
  321.             Key             =   "bcgs"
  322.          EndProperty
  323.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  324.             Picture         =   "配方管理 _配方定义.frx":3EF4
  325.             Key             =   "mrlk"
  326.          EndProperty
  327.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  328.             Picture         =   "配方管理 _配方定义.frx":428E
  329.             Key             =   "xsxm"
  330.          EndProperty
  331.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  332.             Picture         =   "配方管理 _配方定义.frx":4628
  333.             Key             =   "first"
  334.          EndProperty
  335.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  336.             Picture         =   "配方管理 _配方定义.frx":49C2
  337.             Key             =   "prev"
  338.          EndProperty
  339.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  340.             Picture         =   "配方管理 _配方定义.frx":4D5C
  341.             Key             =   "next"
  342.          EndProperty
  343.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  344.             Picture         =   "配方管理 _配方定义.frx":50F6
  345.             Key             =   "last"
  346.          EndProperty
  347.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  348.             Picture         =   "配方管理 _配方定义.frx":5490
  349.             Key             =   "xx"
  350.          EndProperty
  351.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  352.             Picture         =   "配方管理 _配方定义.frx":582A
  353.             Key             =   "define"
  354.          EndProperty
  355.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  356.             Picture         =   "配方管理 _配方定义.frx":5BC4
  357.             Key             =   "exec"
  358.          EndProperty
  359.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  360.             Picture         =   "配方管理 _配方定义.frx":5F5E
  361.             Key             =   "xz"
  362.          EndProperty
  363.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  364.             Picture         =   "配方管理 _配方定义.frx":62F8
  365.             Key             =   "sc"
  366.          EndProperty
  367.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  368.             Picture         =   "配方管理 _配方定义.frx":6692
  369.             Key             =   "sx"
  370.          EndProperty
  371.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  372.             Picture         =   "配方管理 _配方定义.frx":6A2C
  373.             Key             =   "cx"
  374.          EndProperty
  375.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  376.             Picture         =   "配方管理 _配方定义.frx":6DC6
  377.             Key             =   "zd"
  378.          EndProperty
  379.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  380.             Picture         =   "配方管理 _配方定义.frx":7160
  381.             Key             =   "dz"
  382.          EndProperty
  383.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  384.             Picture         =   "配方管理 _配方定义.frx":74FA
  385.             Key             =   "ph"
  386.          EndProperty
  387.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  388.             Picture         =   "配方管理 _配方定义.frx":7894
  389.             Key             =   "fz"
  390.          EndProperty
  391.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  392.             Picture         =   "配方管理 _配方定义.frx":7C2E
  393.             Key             =   "dw"
  394.          EndProperty
  395.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  396.             Picture         =   "配方管理 _配方定义.frx":7FC8
  397.             Key             =   "hf"
  398.          EndProperty
  399.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  400.             Picture         =   "配方管理 _配方定义.frx":8362
  401.             Key             =   "pz"
  402.          EndProperty
  403.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  404.             Picture         =   "配方管理 _配方定义.frx":86FC
  405.             Key             =   "check"
  406.          EndProperty
  407.          BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  408.             Picture         =   "配方管理 _配方定义.frx":8A96
  409.             Key             =   "qs"
  410.          EndProperty
  411.          BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  412.             Picture         =   "配方管理 _配方定义.frx":8E30
  413.             Key             =   "fullcheck"
  414.          EndProperty
  415.          BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  416.             Picture         =   "配方管理 _配方定义.frx":91CA
  417.             Key             =   "qq"
  418.          EndProperty
  419.          BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  420.             Picture         =   "配方管理 _配方定义.frx":9564
  421.             Key             =   "bcw"
  422.          EndProperty
  423.          BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  424.             Picture         =   "配方管理 _配方定义.frx":98FE
  425.             Key             =   "ye"
  426.          EndProperty
  427.          BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  428.             Picture         =   "配方管理 _配方定义.frx":9C98
  429.             Key             =   "Copy"
  430.          EndProperty
  431.       EndProperty
  432.    End
  433.    Begin MSComctlLib.Toolbar Tlb_Action 
  434.       Align           =   1  'Align Top
  435.       Height          =   555
  436.       Left            =   0
  437.       TabIndex        =   1
  438.       Top             =   0
  439.       Width           =   11355
  440.       _ExtentX        =   20029
  441.       _ExtentY        =   979
  442.       ButtonWidth     =   820
  443.       ButtonHeight    =   926
  444.       AllowCustomize  =   0   'False
  445.       Wrappable       =   0   'False
  446.       Appearance      =   1
  447.       Style           =   1
  448.       ImageList       =   "ImageList1"
  449.       _Version        =   393216
  450.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  451.          NumButtons      =   23
  452.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  453.             Caption         =   "打印"
  454.             Key             =   "dy"
  455.             Object.ToolTipText     =   "打印当前单据或Ctrl+P"
  456.             ImageKey        =   "dy"
  457.          EndProperty
  458.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  459.             Caption         =   "预览"
  460.             Key             =   "yl"
  461.             ImageKey        =   "yl"
  462.          EndProperty
  463.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  464.             Key             =   "fgh0"
  465.             Style           =   3
  466.          EndProperty
  467.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  468.             Caption         =   "新增"
  469.             Key             =   "xz"
  470.             Object.ToolTipText     =   "新增加一张单据或F5"
  471.             ImageKey        =   "xz"
  472.          EndProperty
  473.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  474.             Caption         =   "修改"
  475.             Key             =   "xg"
  476.             Object.ToolTipText     =   "修改当前单据或F3"
  477.             ImageKey        =   "xg"
  478.          EndProperty
  479.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  480.             Caption         =   "删除"
  481.             Key             =   "sc"
  482.             Object.ToolTipText     =   "删除当前单据"
  483.             ImageKey        =   "sc"
  484.          EndProperty
  485.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  486.             Key             =   "fgh1"
  487.             Style           =   3
  488.          EndProperty
  489.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  490.             Caption         =   "增行"
  491.             Key             =   "zh"
  492.             Object.ToolTipText     =   "插入一行或Insert"
  493.             ImageKey        =   "zh"
  494.          EndProperty
  495.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  496.             Caption         =   "删行"
  497.             Key             =   "sh"
  498.             Object.ToolTipText     =   "删除当前记录行或Delete"
  499.             ImageKey        =   "sh"
  500.          EndProperty
  501.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  502.             Key             =   "fgh2"
  503.             Style           =   3
  504.          EndProperty
  505.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  506.             Caption         =   "保存"
  507.             Key             =   "bc"
  508.             Object.ToolTipText     =   "保存单据或F6"
  509.             ImageKey        =   "bc"
  510.          EndProperty
  511.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  512.             Caption         =   "放弃"
  513.             Key             =   "fq"
  514.             Object.ToolTipText     =   "放弃此次操作"
  515.             ImageKey        =   "fq"
  516.          EndProperty
  517.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  518.             Key             =   "fgh3"
  519.             Style           =   3
  520.          EndProperty
  521.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  522.             Caption         =   "审核"
  523.             Key             =   "shsh"
  524.             ImageKey        =   "check"
  525.          EndProperty
  526.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  527.             Caption         =   "弃审"
  528.             Key             =   "shqs"
  529.             ImageKey        =   "qs"
  530.          EndProperty
  531.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  532.             Key             =   "fgh4"
  533.             Style           =   3
  534.          EndProperty
  535.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  536.             Caption         =   "首张"
  537.             Key             =   "first"
  538.             ImageKey        =   "first"
  539.          EndProperty
  540.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  541.             Caption         =   "上张"
  542.             Key             =   "prev"
  543.             ImageKey        =   "prev"
  544.          EndProperty
  545.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  546.             Caption         =   "下张"
  547.             Key             =   "next"
  548.             ImageKey        =   "next"
  549.          EndProperty
  550.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  551.             Caption         =   "末张"
  552.             Key             =   "last"
  553.             ImageKey        =   "last"
  554.          EndProperty
  555.          BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  556.             Key             =   "fgh5"
  557.             Style           =   3
  558.          EndProperty
  559.          BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  560.             Caption         =   "帮助"
  561.             Key             =   "bz"
  562.             ImageKey        =   "bz"
  563.          EndProperty
  564.          BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  565.             Caption         =   "退出"
  566.             Key             =   "fh"
  567.             ImageKey        =   "tc"
  568.          EndProperty
  569.       EndProperty
  570.       BorderStyle     =   1
  571.    End
  572.    Begin VB.Label TsLabel 
  573.       Alignment       =   1  'Right Justify
  574.       AutoSize        =   -1  'True
  575.       BackStyle       =   0  'Transparent
  576.       Caption         =   "单据号："
  577.       Height          =   180
  578.       Index           =   0
  579.       Left            =   240
  580.       TabIndex        =   14
  581.       Top             =   1560
  582.       Width           =   765
  583.    End
  584.    Begin VB.Label Lab_Checker 
  585.       Appearance      =   0  'Flat
  586.       BackColor       =   &H80000005&
  587.       BackStyle       =   0  'Transparent
  588.       ForeColor       =   &H00000000&
  589.       Height          =   225
  590.       Left            =   7170
  591.       TabIndex        =   13
  592.       Top             =   6360
  593.       Width           =   735
  594.    End
  595.    Begin VB.Label Lab_Bill 
  596.       Appearance      =   0  'Flat
  597.       BackColor       =   &H80000005&
  598.       BackStyle       =   0  'Transparent
  599.       ForeColor       =   &H00000000&
  600.       Height          =   225
  601.       Left            =   9030
  602.       TabIndex        =   12
  603.       Top             =   6330
  604.       Width           =   735
  605.    End
  606.    Begin VB.Label Lab_OperStatus 
  607.       BackColor       =   &H000080FF&
  608.       Caption         =   "1"
  609.       Height          =   345
  610.       Left            =   10290
  611.       TabIndex        =   11
  612.       Top             =   960
  613.       Visible         =   0   'False
  614.       Width           =   345
  615.    End
  616.    Begin VB.Label Lab_Djclzt 
  617.       BackColor       =   &H0000FFFF&
  618.       Caption         =   "1"
  619.       ForeColor       =   &H00808080&
  620.       Height          =   255
  621.       Left            =   10320
  622.       TabIndex        =   10
  623.       Top             =   600
  624.       Visible         =   0   'False
  625.       Width           =   285
  626.    End
  627.    Begin VB.Label Lab_BillId 
  628.       AutoSize        =   -1  'True
  629.       BackColor       =   &H0080C0FF&
  630.       Height          =   270
  631.       Left            =   7680
  632.       TabIndex        =   9
  633.       Top             =   600
  634.       Visible         =   0   'False
  635.       Width           =   2490
  636.    End
  637.    Begin VB.Label Lab_Title 
  638.       AutoSize        =   -1  'True
  639.       BackColor       =   &H80000018&
  640.       BackStyle       =   0  'Transparent
  641.       Caption         =   "单据标题自动调整"
  642.       BeginProperty Font 
  643.          Name            =   "宋体"
  644.          Size            =   15
  645.          Charset         =   134
  646.          Weight          =   700
  647.          Underline       =   0   'False
  648.          Italic          =   0   'False
  649.          Strikethrough   =   0   'False
  650.       EndProperty
  651.       ForeColor       =   &H00000000&
  652.       Height          =   300
  653.       Left            =   4440
  654.       TabIndex        =   8
  655.       Top             =   840
  656.       Width           =   2520
  657.    End
  658. End
  659. Attribute VB_Name = "BOM_BOMDefine"
  660. Attribute VB_GlobalNameSpace = False
  661. Attribute VB_Creatable = False
  662. Attribute VB_PredeclaredId = True
  663. Attribute VB_Exposed = False
  664. '***********************************************************************************************************
  665. '*    模 块 名 称 :配方管理--配方定义
  666. '*    功 能 描 述 :此功能模块主要完成配方的单据录入、修改、删除、预览打印等。
  667. '*    程序员姓名  :乔进
  668. '*    最后修改人  :乔进
  669. '*    最后修改时间:2001/11/20
  670. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  671. '*
  672. '*    1.每次调入外部功能窗体，均要加锁ChangeLock=True,窗体关闭后解锁ChangeLock=false
  673. '*                                    TextValiLock=True             TextValiLock=false
  674. '*
  675. '*    2.Lab_OperStatus 用此标签来标识单据录入状态(默认值为1) "1"-浏览 "2"-新增 "3"-修改
  676. '*
  677. '*    3.Lab_Djclzt 用此标签来标识单据处理状态(默认值为1) "1"-填制单据  "2"-查询单据列表
  678. '*
  679. '*    4.原则:只要单据能够存盘(无论修改或新增)则其必须接受完整性及有效性规则检查
  680. '***********************************************************************************************************
  681.  
  682. '[以下为根据实际情况设置变量
  683. Dim Bln_BillChange As Boolean                   '标识单据是否发生改动
  684. Dim Rec_Query As New ADODB.Recordset            '单据组查询结果动态集(保存当前单据组ID)
  685. Public Str_QueryCondi As String                 '单据组查询条件(接收单据列表传递查询条件)
  686. Dim RecTemp As New ADODB.Recordset
  687. Dim Str_RightEdit As String
  688. Dim Str_RightAudit As String
  691. ']
  693. '以下为固定使用变量(单据)
  694. Dim BillCode As String                          '单据设计编码(索引号)
  695. Dim Var_Bill() As Variant                       '用来返回单据设计信息
  696. Dim ReportTitle As String                       '报表主标题
  697. Dim Tsxx As String                              '系统提示信息
  699. '以下为固定使用变量(网格)
  700. Dim Cxnrrec As New ADODB.Recordset              '显示查询内容动态集
  701. Dim Dyymctbl As New DY_Dyymsz                   '打印页面窗体变量
  702. Dim GridCode As String                          '显示网格网格代码
  703. Dim GridInf() As Variant                        '整个网格设置信息
  704. Dim Pmbcsjhs As Long                            '屏幕网格保持数据行数(大于等于1)
  705. Dim Fzxwghs As Integer                          '辅助项网格行数(包括合计行)
  706. Dim Sfxshjwg As Boolean                         '是否显示合计网格
  707. Dim Qslz As Long                                '网格隐藏(非操作显示)列数
  708. Dim Sjhgd As Double                             '网格数据行高度
  709. Dim GridBoolean() As Boolean                    '网格列信息(布尔型)
  710. Dim GridStr()  As String                        '网格列信息(字符型)
  711. Dim GridInt() As Integer                        '网格列信息(整型)
  712. Dim Sfblbzkd As Boolean                         '是否保留帮助宽度(字段提供帮助时,是否为按钮保留空间)
  713. Dim Dqlrwgh As Long                             '当前录入数据网格行
  714. Dim Dqlrwgl As Long                             '当前录入数据网格列
  715. Dim Dqlkwgh As Long                             '刚刚离开网格行(不一定为录入行)
  716. Dim Dqlkwgl As Long                             '刚刚离开网格列
  717. Dim Dqtoprow As Long                            '当前录入状态时最上端可视行
  718. Dim Dqleftcol As Long                           '当前录入状态时最左端可视列
  719. Dim Zdlrqnr As String                           '字段录入修改前内容(用来判断内容是否修改)
  720. Dim Wbkbhlock As Boolean                        '文本框改变值锁
  721. Dim Changelock As Boolean                       '网格行列改变控制锁(用来区别用户改变.程序改变)
  722. Dim Gdtlock As Boolean                          '滚动条滚动控制(用来区别用户改变.程序改变)
  723. Dim Yxxpdlock As Boolean                        '字段有效性判断锁(内容不修改不需进行字段有效性判断)
  724. Dim Hyxxpdlock As Boolean                       '行有效性判断锁(字段内容不修改不需进行行有效性判断)
  725. Dim Valilock As Boolean                         '文本框失去焦点是否进行有效性控制(TRUE 为锁定*限用网格录入)
  726. Dim Shsfts As Boolean                           '删除记录行是否提示
  727. Dim Szzls As Integer                            '网格信息数组最大下标值(网格列数-1)
  729. '以下为固定使用变量(文本框)
  730. Dim Textvar() As Variant                        '存储变体型文本框信息
  731. Dim Textboolean() As Boolean                    '存储布尔型文本框信息
  732. Dim Textint() As Integer                        '存储整型文本框信息
  733. Dim Textstr() As String                         '存储字符型文本框信息
  734. Dim Max_Text_Index As Integer                   '最大录入文本框索引值
  735. Dim TextGroupCode As String                     '文本框录入分组编码
  736. Dim TextValiLock As Boolean                     '文本框失去焦点是否进行有效性控制判断
  737. Dim TextValiJudgeLock() As Boolean              '文本框录入有效性判断控制锁
  738. Dim TextChangeLock As Boolean                   '文本框内容变换控制锁
  739.     
  740.  
  742. Private Sub Form_KeyPress(KeyAscii As Integer)      '控 制 焦 点 转 移
  743.     
  744.     Dim jdzygs As Integer
  745.     jdzygs = Max_Text_Index + 1                                   '在单据录入中,此焦点转移控制值一定小于等于文本框个数,否则网格回车键将不支持.
  746.     Select Case KeyAscii
  747.         Case vbKeyReturn
  748.             If Kjjdzy(jdzygs) Then
  749.                 KeyAscii = 0
  750.             End If
  751.         Case 39           '屏蔽字符"'"
  752.             KeyAscii = 0
  753.     End Select
  755. End Sub
  757. Private Sub Form_Load()                                                        '窗 体 装 入
  759.     '初始化各种锁值(Fixed)
  760.     Changelock = False             '网格行列改变控制锁
  761.     Gdtlock = False                '滚动条滚动控制
  762.     Yxxpdlock = True               '字段有效性判断锁
  763.     Hyxxpdlock = True              '行有效性判断锁
  764.     Wbkbhlock = False              '文本框内容改变锁
  765.     Screen.MousePointer = 11
  766.     '调入单据信息(需要修改BillCode)
  767.     BillCode = "2401"
  768.     Call Sub_ReadBillInfo(BillCode, Me, Var_Bill())
  769.     Lab_Title = Var_Bill(2)
  770.     Lab_Title.Move (Me.Width - Lab_Title.Width) / 2, 800
  771.     
  772.     '报表编码
  773.     XtReportCode = Var_Bill(5)
  774.     Load Dyymctbl
  775.   
  776.     '以下为文本框处理程序(Fixed)
  777.     TextGroupCode = Var_Bill(3)
  778.  
  779.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())  '读入文本框录入信息
  780.     Call Wbkcsh
  781.   
  782.     '调入网格并记录一些网格信息(Fixed)
  783.     GridCode = Var_Bill(4)         '网格属性编码
  784.     Call BzWgcsh(WglrGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  785.       
  786.     Qslz = GridInf(1)
  787.     Sjhgd = GridInf(2)
  788.     Fzxwghs = GridInf(4)
  789.     Sfblbzkd = GridInf(5)
  790.     Shsfts = GridInf(6)
  791.     Sfxshjwg = GridInf(7)
  792.     Szzls = WglrGrid.Cols - 1
  793.     Pmbcsjhs = Int((WglrGrid.Height - WglrGrid.FixedRows * WglrGrid.RowHeight(0)) / Sjhgd) - Fzxwghs - 1
  794.       
  795.     For jsqte = WglrGrid.FixedRows To WglrGrid.Rows - 1
  796.         WglrGrid.RowHeight(jsqte) = Sjhgd
  797.     Next jsqte
  798.     
  799.     '初始化合计网格(Fixed)
  800.     Call Cshhjwg
  801.   
  802.     '单据变动置为False(Fixed)
  803.     Bln_BillChange = False
  804.     Lab_Djclzt.Caption = Xtcdcs
  805.     Call Sjcsh(Trim(Lab_Djclzt.Caption))
  806.     Screen.MousePointer = 0
  807.     
  808.     Str_RightEdit = "MRP_BOMMaintenance_Edit"
  809.     Str_RightAudit = "MRP_BOMMaintenance_Audit"
  810.     
  811.     BOM_BOMDefine.HelpContextID = 2412001
  812. End Sub
  814. Private Sub Form_Unload(Cancel As Integer)           '窗体卸载
  815.     '是否保存已修改单据
  816.      Dim YAnswer As Integer
  817.      If Lab_OperStatus.Caption = "2" Or Lab_OperStatus.Caption = "3" Then
  818.          Tsxx = "单据尚未保存,是否退出?"
  819.          YAnswer = Xtxxts(Tsxx, 2, 2)
  820.          If YAnswer <> 1 Then
  821.              Cancel = 1
  822.              Exit Sub
  823.          End If
  824.      End If
  825.     '卸载打印页面窗体
  826.     Unload Dyymctbl
  827.  
  828.     '判断单据是否发生变化,并返回相应标识
  829.     If Bln_BillChange Then
  830.         Xtfhcs = "1"
  831.     Else
  832.         Xtfhcs = "0"
  833.     End If
  834.    
  835. End Sub
  837. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  838.   
  839.     Select Case Button.Key
  840.         Case "bcgs"                                          '保存表格格式
  841.             Call Bcwggs(WglrGrid, GridCode, GridStr())
  842.         Case "hfmrgs"                                        '恢复默认格式
  843.             Call Hfmrgs(WglrGrid, GridCode, GridStr())
  844.         Case "szxsxm"                                        '设置显示项目
  845.             Call Szxsxm(WglrGrid, GridCode)
  846.     End Select
  848. End Sub
  851. Private Sub Sjcsh(Str_Pzclzt As String)              '数据初始化模块(根据实际情况)
  852.     
  853.     Dim Sqlstr As String       '查询单据列表条件
  855.     '[>>根据实际情况初始化
  856.     Select Case Str_Pzclzt
  857.         Case "1"   '填制单据
  858.             '设置工具条显示
  859.             With Tlb_Action
  860.                  
  861.                 .Buttons("xz").Visible = True             '新增
  862.                 .Buttons("xg").Visible = True             '修改
  863.                 .Buttons("sc").Visible = True             '删除
  864.                 .Buttons("fgh0").Visible = True           '分隔行
  865.                 .Buttons("zh").Visible = True             '增行
  866.                 .Buttons("sh").Visible = True             '删行
  867.                 .Buttons("fgh1").Visible = True           '分隔行
  868.                 .Buttons("bc").Visible = True             '保存
  869.                 .Buttons("fq").Visible = True             '放弃
  870.                 .Buttons("shsh").Visible = False           '审核
  871.                 .Buttons("shqs").Visible = False           '弃审
  872.                 .Buttons("fgh4").Visible = False           '分隔行
  873.                 .Buttons("first").Visible = False          '首张
  874.                 .Buttons("prev").Visible = False           '上张
  875.                 .Buttons("next").Visible = False           '下张
  876.                 .Buttons("last").Visible = False           '末张
  877.                 .Buttons("fgh5").Visible = False           '分割行
  878.             End With
  879.  
  880.  
  881.             
  882.             '调入用户查询结果动态集
  883.             Sqlstr = "SELECT Distinct BOMMainID From MRP_BOMMain Where MakeDate='" & Xtrq & "'  ORDER BY BOMMainID"
  884.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  885.       
  886.             '处理新增状态
  887.             Sub_OperStatus (10)
  888.             '新增单据
  889.             Call Sub_AddBill
  890.         Case "2"   '查询单据(单据列表)
  891.             '设置工具条显示
  892.             With Tlb_Action
  893.                 .Buttons("xz").Visible = False             '新增
  894.                 .Buttons("xg").Visible = True             '修改
  895.                 .Buttons("sc").Visible = True             '删除
  896.                 .Buttons("fgh0").Visible = True           '分隔行
  897.                 .Buttons("zh").Visible = True             '增行
  898.                 .Buttons("sh").Visible = True             '删行
  899.                 .Buttons("fgh1").Visible = True           '分隔行
  900.                 .Buttons("bc").Visible = True             '保存
  901.                 .Buttons("fq").Visible = True             '放弃
  902.                 .Buttons("shsh").Visible = False           '审核
  903.                 .Buttons("shqs").Visible = False           '弃审
  904.                 .Buttons("fgh4").Visible = False           '分隔行
  905.                 .Buttons("first").Visible = True          '首张
  906.                 .Buttons("prev").Visible = True           '上张
  907.                 .Buttons("next").Visible = True           '下张
  908.                 .Buttons("last").Visible = True           '末张
  909.                 .Buttons("fgh5").Visible = True           '分割行
  910.             End With
  911.             Lab_BillId.Caption = XT_BillID
  912.             Str_QueryCondi = Xtcdcsfz
  913.             Call Sub_ShowBill
  914.             Call Sub_OperStatus("10")
  915.       
  916.             '调入用户查询结果动态集
  917.                         
  918.             Sqlstr = "Select Distinct BOMMainID From MRP_V_BOMList a " & Str_QueryCondi & " Order by BOMMainID"
  919.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  920.             Rec_Query.Find "BOMMainID=" & Val(Lab_BillId.Caption)
  921.         Case "3"   '审核
  922.             '设置工具条显示
  923.             With Tlb_Action
  924.                 .Buttons("xz").Visible = False             '新增
  925.                 .Buttons("xg").Visible = False             '修改
  926.                 .Buttons("sc").Visible = False             '删除
  927.                 .Buttons("fgh0").Visible = False           '分隔行
  928.                 .Buttons("zh").Visible = False             '增行
  929.                 .Buttons("sh").Visible = False             '删行
  930.                 .Buttons("fgh1").Visible = False           '分隔行
  931.                 .Buttons("bc").Visible = False             '保存
  932.                 .Buttons("fq").Visible = False             '放弃
  933.                 .Buttons("shsh").Visible = True           '审核
  934.                 .Buttons("shqs").Visible = True           '弃审
  935.                 .Buttons("fgh2").Visible = False           '分隔行
  936.                 .Buttons("fgh4").Visible = True           '分隔行
  937.                 .Buttons("first").Visible = True          '首张
  938.                 .Buttons("prev").Visible = True           '上张
  939.                 .Buttons("next").Visible = True           '下张
  940.                 .Buttons("last").Visible = True           '末张
  941.                 .Buttons("fgh5").Visible = True           '分割行
  942.   
  943.             End With
  944.             Lab_BillId.Caption = XT_BillID
  945.             Str_QueryCondi = Xtcdcsfz
  946.             Call Sub_ShowBill
  947.             Call Sub_OperStatus("10")
  948.             '设置操作状态为浏览
  949.             Lab_OperStatus.Caption = "1"
  951.             '录入文本框
  952.             For jsqte = Max_Text_Index To 0 Step -1
  953.             LrText(jsqte).Enabled = False
  954.             
  955.             Sqlstr = "Select Distinct BOMMainID From MRP_V_BOMList a " & Str_QueryCondi & " Order by BOMMainID"
  956.             Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  957.             Rec_Query.Find "BOMMainID=" & Val(Lab_BillId.Caption)
  958.             
  959.         Next jsqte
  960.     End Select
  961.   
  962.     '<<]
  963.   
  964. End Sub
  966. Private Sub Sub_ShowBill()                                          '根据当前单据ID显示整张单据内容
  968.     '过程默认参数为当前窗体中单据ID:Lab_BillID
  969.     Dim Sqlstr As String                           '临时使用字符串
  970.     Dim RecTemp As New ADODB.Recordset             '临时使用动态集
  971.     Dim jsqte As Long                              '临时计数器
  972.     
  973.     Screen.MousePointer = 11
  974.     '禁止网格刷新动作,为加快网格显示速度(Fixed)
  975.     WglrGrid.Redraw = False
  976.     
  977.     '本张单据查询字符串
  978.     Sqlstr = "Select * From MRP_V_BOMList Where BOMMainID ='" & Trim(Lab_BillId.Caption) & "'  Order by BOMSubID"
  979.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  980.       
  981.     With RecTemp
  982.         WglrGrid.Rows = WglrGrid.FixedRows
  983.         If .EOF Then
  984.             For jsqte = 0 To Max_Text_Index
  985.                 LrText(jsqte).Text = ""
  986.                 LrText(ag).Text = ""
  987.             Next jsqte
  988.             WglrGrid.Clear 1
  989.             Call Sub_AdjustGrid
  990.             WglrGrid.Redraw = True
  991.             Screen.MousePointer = 0
  992.             Exit Sub
  993.         Else
  994.             '[>>显示单据头
  995.             TextChangeLock = True     '文本框加锁
  996.             LrText(0).Text = Trim(.Fields("BOMNumber"))                                              'BOM单号
  997.             LrText(1).Text = Trim(.Fields("MNumber_Main"))                                           '产品编码
  998.             LrText(2).Text = Trim(.Fields("MName_Main") & "")                                        '产品名称
  999.             LrText(3).Text = Trim(.Fields("Model_Main") & "")                                        '规格型号
  1000.             LrText(4).Text = Trim(.Fields("PrimaryUnitName_Main") & "")                              '计量单位
  1001.             LrText(5).Text = Format(Trim(.Fields("MakeDate")), "yyyy-mm-dd")                         '制单日期
  1002.             LrText(6).Text = IIf(.Fields("State") = 0, "未审核", "审核")                             '状态
  1003.             LrText(7).Text = Trim(.Fields("DeptName") & "")                                          '生产部门
  1004.             LrText(7).Tag = Trim(.Fields("DeptCode") & "")                                           '生产部门
  1005.             LrText(8).Text = Format(Trim(.Fields("ProPercent") & ""), "#0.00#")                      '成品率
  1006.             LrText(9).Text = Trim(.Fields("Maker") & "")                                             '审核人
  1007.             TextChangeLock = False    '文本框解锁
  1008.             '<<]
  1009.         End If
  1010.         jsqte = WglrGrid.FixedRows
  1011.         Do While Not .EOF
  1012.             WglrGrid.AddItem ""
  1013.             '[>>显示单据分录
  1014.             WglrGrid.TextMatrix(jsqte, 0) = "*"                                                                            '数据有效行标识(必填)
  1015.             WglrGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("MNumber_Sub") & "")                  '物料编码
  1016.             WglrGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("MName_Sub") & "")                    '物料名称
  1017.             WglrGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Model_Sub") & "")                    '物料规格
  1018.             WglrGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName_Sub") & "")          '单位
  1019.             WglrGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")                       '仓库名称
  1020.             WglrGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("WhCode") & "")                       '仓库编码
  1021.             WglrGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("RationNum") & "")                    '定额数量
  1022.             WglrGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("WastePercent") & "")                 '损耗率
  1023.             '<<]
  1024.                    
  1025.             WglrGrid.RowHeight(jsqte) = Sjhgd
  1026.             .MoveNext
  1027.             jsqte = jsqte + 1
  1028.         Loop
  1029.     End With
  1030.  
  1031.             
  1032.     '调整网格(Fixed)
  1033.     Call Sub_AdjustGrid
  1034.       
  1035.     '计算合计数据(Fixed)
  1036.     For jsqte = Qslz To WglrGrid.Cols - 1
  1037.         Call Sjhj(jsqte)
  1038.     Next jsqte
  1039.     
  1040.     '将网格刷新解禁(Fixed)
  1041.     WglrGrid.Redraw = True
  1042.        
  1043.     '设置审核弃审按钮状态
  1044.     Call Sub_CheckStatus
  1045.        
  1046.     Screen.MousePointer = 0
  1047. End Sub
  1049. Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)             '用户点击工具条
  1050.      
  1051.     '屏蔽文本框,下拉组合框有效性判断
  1052.     Valilock = True
  1053.      
  1054.     '屏蔽网格失去焦点产生的有效性判断
  1055.     Changelock = True
  1056.          
  1057.     Select Case Button.Key
  1058.         Case "yl"                                            '预 览
  1059.             If Fun_Drfrmyxxpd Then
  1060.                 BillGridPrint WglrGrid, LrText, GridStr(), Szzls, GridCode, TextGroupCode, XtReportCode, False, , False
  1061.             End If
  1062.         Case "dy"                                            '打 印
  1063.             If Fun_Drfrmyxxpd Then
  1064.                 Dim yhAnswer As Integer      '打印提示
  1065.                 
  1066.                 '用户确认是否打印单据
  1067.                 Tsxx = "请确认是否打印当前单据?"
  1068.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  1069.                 If yhAnswer = 2 Then
  1070.                     Exit Sub
  1071.                 End If
  1072.                 BillGridPrint WglrGrid, LrText, GridStr(), Szzls, GridCode, TextGroupCode, XtReportCode, True, , False
  1073.             End If
  1074.         Case "xz"                                            '新 增
  1075.             Call Sub_AddBill
  1076.         Case "xg"                                            '修 改
  1077.             Call Sub_EditBill
  1078.         Case "sc"                                            '删 除
  1079.             Call Sub_DeleteBill
  1080.         Case "zh"                                            '增 行
  1081.             Call zjlrfl
  1082.         Case "sh"                                            '删 行
  1083.             Call Scdqfl
  1084.         Case "bc"                                            '保 存
  1085.             If Fun_Drfrmyxxpd Then
  1086.                 Call Sub_SaveBill
  1087.             End If
  1088.         Case "fq"                                            '放 弃
  1089.             Call Sub_AbandonBill
  1090.         Case "shsh"                                          '审 核
  1091.             Call Sub_Checkbill
  1092.         Case "shqs"                                          '弃 审
  1093.             Call Sub_AbandonCheck
  1094.         Case "first"                                         '首 张
  1095.             Call Sub_First
  1096.         Case "prev"                                          '上 张
  1097.             Call Sub_Prev
  1098.         Case "next"                                          '下 张
  1099.             Call Sub_Next
  1100.         Case "last"                                          '末 张
  1101.             Call Sub_Last
  1102.         Case "bz"                                            '帮 助
  1103.             Call F1bz
  1104.         Case "fh"                                            '退 出
  1105.             If Fun_Drfrmyxxpd Then Unload Me
  1106.  
  1107.     End Select
  1108.        
  1109.     '解 锁
  1110.     Valilock = False
  1111.     Changelock = False
  1112.     TextChangeLock = False
  1113.         
  1114. End Sub
  1116. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)     '支持热键操作
  1117.     
  1118.     Select Case KeyCode
  1119.         Case vbKeyF5          '增加单据
  1120.             If Tlb_Action.Buttons("xz").Enabled And Tlb_Action.Buttons("xz").Visible Then
  1121.                 Call Sub_AddBill
  1122.             End If
  1123.         Case vbKeyF3          '修改单据
  1124.             If Tlb_Action.Buttons("xg").Enabled And Tlb_Action.Buttons("xg").Visible Then
  1125.                 Call Sub_EditBill
  1126.             End If
  1127.         Case vbKeyF6          '保存单据
  1128.             If Tlb_Action.Buttons("bc").Enabled And Tlb_Action.Buttons("bc").Visible Then
  1129.                 If Fun_Drfrmyxxpd Then Call Sub_SaveBill
  1130.             End If
  1131.     End Select
  1133. End Sub
  1135. Private Sub Sub_OperStatus(Str_Status As String)                 '工具条依据不同状态所进行的变化
  1136.     
  1137.     With Tlb_Action
  1138.         Select Case Str_Status
  1139.             Case "10"   '浏览((列表)调入单据处理时的进入状态、(列表)新增状态时放弃录入)
  1140.                 '工具条
  1141.                 .Buttons("dy").Enabled = True       '打印
  1142.                 .Buttons("yl").Enabled = True       '预览
  1143.                 .Buttons("xz").Enabled = True       '新增
  1144.                 .Buttons("xg").Enabled = True       '修改
  1145.                 .Buttons("sc").Enabled = True       '删除
  1146.                 .Buttons("zh").Enabled = False      '增行
  1147.                 .Buttons("sh").Enabled = False      '删行
  1148.                 .Buttons("bc").Enabled = False      '保存
  1149.                 .Buttons("fq").Enabled = False      '放弃
  1150.                 .Buttons("first").Enabled = True    '首张
  1151.                 .Buttons("prev").Enabled = True     '上张
  1152.                 .Buttons("next").Enabled = True     '下张
  1153.                 .Buttons("last").Enabled = True     '末张
  1154.                 .Buttons("bz").Enabled = True       '帮助
  1155.                 .Buttons("fh").Enabled = True       '退出
  1156.         
  1157.                 '设置审核弃审按钮状态
  1158.                 Call Sub_CheckStatus
  1159.         
  1160.                 '设置文本框录入状态
  1161.                 Call Sub_LrtextStatus(False)
  1162.             Case "20"   '新增单据(（录入）新增一张单据 、（列表）新增一张单据)
  1163.                 '工具条
  1164.                 .Buttons("dy").Enabled = False      '打印
  1165.                 .Buttons("yl").Enabled = False      '预览
  1166.                 .Buttons("xz").Enabled = False      '新增
  1167.                 .Buttons("xg").Enabled = False      '修改
  1168.                 .Buttons("sc").Enabled = False      '删除
  1169.                 .Buttons("zh").Enabled = True       '增行
  1170.                 .Buttons("sh").Enabled = True       '删行
  1171.                 .Buttons("bc").Enabled = True       '保存
  1172.                 .Buttons("fq").Enabled = True       '放弃
  1173.                 .Buttons("shsh").Enabled = False    '审核
  1174.                 .Buttons("shqs").Enabled = False    '弃审
  1175.                 .Buttons("first").Enabled = False   '首张
  1176.                 .Buttons("prev").Enabled = False    '上张
  1177.                 .Buttons("next").Enabled = False    '下张
  1178.                 .Buttons("last").Enabled = False    '末张
  1179.                 .Buttons("bz").Enabled = True       '帮助
  1180.                 .Buttons("fh").Enabled = True       '退出
  1181.                 
  1182.                 '设置文本框录入状态
  1183.                 Call Sub_LrtextStatus(True)
  1184.             Case "30"   '修改(（录入）调入修改功能、（列表）调入修改功能)
  1185.                 '工具条
  1186.                 .Buttons("dy").Enabled = False      '打印
  1187.                 .Buttons("yl").Enabled = False      '预览
  1188.                 .Buttons("xz").Enabled = False      '新增
  1189.                 .Buttons("xg").Enabled = False      '修改
  1190.                 .Buttons("sc").Enabled = False      '删除
  1191.                 .Buttons("zh").Enabled = True       '增行
  1192.                 .Buttons("sh").Enabled = True       '删行
  1193.                 .Buttons("bc").Enabled = True       '保存
  1194.                 .Buttons("fq").Enabled = True       '放弃
  1195.                 .Buttons("shsh").Enabled = False    '审核
  1196.                 .Buttons("shqs").Enabled = False    '弃审
  1197.                 .Buttons("first").Enabled = False   '首张
  1198.                 .Buttons("prev").Enabled = False    '上张
  1199.                 .Buttons("next").Enabled = False    '下张
  1200.                 .Buttons("last").Enabled = False    '末张
  1201.                 .Buttons("bz").Enabled = True       '帮助
  1202.                 .Buttons("fh").Enabled = True       '退出
  1203.                 
  1204.                 '设置文本框录入状态
  1205.                 Call Sub_LrtextStatus(True)
  1207.         End Select
  1208.     End With
  1210. End Sub
  1212. Private Sub Sub_LrtextStatus(TextEnabled As Boolean)                            '设置录入文本框状态
  1214.     '录入文本框状态设置
  1215.     If TextEnabled Then
  1216.         For jsqte = Max_Text_Index To 0 Step -1
  1217.             '判断文本框是否可编辑
  1218.             If Textboolean(jsqte, 5) Then
  1219.                 LrText(jsqte).Enabled = True
  1220.             Else
  1221.                 LrText(jsqte).Enabled = False
  1222.             End If
  1223.         Next jsqte
  1224.     Else
  1225.         For jsqte = Max_Text_Index To 0 Step -1
  1226.             LrText(jsqte).Enabled = False
  1227.         Next jsqte
  1228.     End If
  1230. End Sub
  1232. Private Sub Sub_CheckStatus()                                       '设置审核弃审按钮状态(亦可设置其他动作按钮状态)
  1233.     
  1234.     '根据当前单据状态来确定审核弃审按钮状态
  1235.     If Trim(LrText(6) & "") = "未审核" Then
  1236.         Tlb_Action.Buttons("shsh").Enabled = True      '审核
  1237.         Tlb_Action.Buttons("shqs").Enabled = False      '弃审
  1238.     ElseIf Trim(LrText(6) & "") = "审核" Then
  1239.         Tlb_Action.Buttons("shsh").Enabled = False      '审核
  1240.         Tlb_Action.Buttons("shqs").Enabled = True     '弃审
  1241.     End If
  1242.     
  1243. End Sub
  1245. Private Sub Wbkcl()                                                 '文本框录入之前处理(根据实际情况)
  1246.     
  1247.     Dim xswbrr As String
  1248.     With WglrGrid
  1249.         Zdlrqnr = Trim(.Text)
  1250.         xswbrr = Trim(.Text)
  1251.         If GridBoolean(.Col, 3) Then   '列表框录入
  1252.             '填充列表框程序
  1253.             Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
  1254.         Else
  1255.             Wbkbhlock = True
  1256.        
  1257.             '====以下为用户自定义
  1258.             Ydtext.Text = xswbrr
  1259.             '====以上为用户自定义
  1260.          
  1261.             Wbkbhlock = False
  1262.             Ydtext.SelStart = Len(Ydtext.Text)
  1263.         End If
  1264.     End With
  1266. End Sub
  1268. Private Function sjzdyxxpd(Dqpdwgh As Long, Dqpdwgl As Long) As Boolean       '录入数据字段有效性判断,同时进行字段录入事后处理
  1269.  
  1270.     '函数参数:Dqpdwgh, Dqpdwgl 当前要判断网格单元所处行列值
  1272.     Dim Str_JudgeText As String                 '临时有效性判断字段内容
  1273.     Dim Coljsq As Long                          '临时列计数器
  1274.     Dim RecTemp As New ADODB.Recordset          '临时使用动态集
  1275.     Dim Sqlstr As String                        '临时使用查询字符串
  1277.     With WglrGrid
  1278.         '非录入状态或非数据行则其有效性为合法
  1279.         If Yxxpdlock Or .Row < .FixedRows Then
  1280.             sjzdyxxpd = True
  1281.             Exit Function
  1282.         End If
  1283.         
  1284.         '取得当前要判断字段内容
  1285.         Str_JudgeText = Trim(.TextMatrix(Dqpdwgh, Dqpdwgl))
  1286.       
  1287.         '根据不同字段进行相应的处理(依据其逻辑编号)
  1288.         Select Case GridStr(Dqpdwgl, 1)
  1289.             '[>>以下为自定义部分
  1290.             Case "001"                   '物料编码
  1291.                 If Not Trim(Str_JudgeText) = "" Then
  1292.                     '1.放置字段有效性判断
  1293.                     
  1294.                     Sqlstr = "Select MNumber ,MName ,Model,PrimaryUnitName     From Gy_Material   Where MNumber='" & Trim(Str_JudgeText) & "' And StopFlag=0  And IsPurchase=1 "
  1295.                     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1296.                     If RecTemp.EOF Then
  1297.                         Tsxx = "无此物料编码!"
  1298.                         GoTo Lrcwcl
  1299.                     End If
  1300.                     If Str_JudgeText = Trim(LrText(1)) Then
  1301.                         Tsxx = "物料编码和父项产品编码重复!"
  1302.                         GoTo Lrcwcl
  1303.                     End If
  1304.                     
  1305.                     For Cnt = WglrGrid.FixedRows To WglrGrid.Rows - 1
  1306.                         If Dqpdwgh <> Cnt And .TextMatrix(Cnt, Sydz("000", GridStr(), Szzls)) = "*" Then
  1307.                             If Trim(.TextMatrix(Cnt, Sydz("001", GridStr(), Szzls))) = Str_JudgeText Then
  1308.                                 Tsxx = "子项物料编码重复!"
  1309.                                 GoTo Lrcwcl
  1310.                             End If
  1311.                         End If
  1312.                     Next Cnt
  1313.                     
  1314.                     '2.放置字段事后处理程序
  1315.                     .TextMatrix(Dqpdwgh, Sydz("001", GridStr(), Szzls)) = Trim(RecTemp.Fields("MNumber") & "")           '显示存货编码
  1316.                     .TextMatrix(Dqpdwgh, Sydz("002", GridStr(), Szzls)) = Trim(RecTemp.Fields("MName") & "")             '显示存货名称
  1317.                     .TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = Trim(RecTemp.Fields("Model") & "")             '显示存货规格型号
  1318.                     .TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = RecTemp.Fields("PrimaryUnitName")              '单位
  1319.                     
  1320.                 Else
  1321.                     '3.清空相关字段
  1322.                     .TextMatrix(Dqpdwgh, Sydz("002", GridStr(), Szzls)) = ""                                             '存货名称
  1323.                     .TextMatrix(Dqpdwgh, Sydz("003", GridStr(), Szzls)) = ""                                             '存货规格型号
  1324.                     .TextMatrix(Dqpdwgh, Sydz("004", GridStr(), Szzls)) = ""
  1325.                 End If
  1326.             Case "005"          '存放仓库
  1327.                 If Not Trim(Str_JudgeText) = "" Then
  1328.                     '1.放置字段有效性判断
  1329.                     Sqlstr = "Select WhCode,WhName From Gy_Warehouse Where WhCode ='" & Trim(Str_JudgeText) & "' Or WhName='" & Trim(Str_JudgeText) & "' "
  1330.                     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1331.                     If RecTemp.EOF Then
  1332.                         Tsxx = "无此仓库编码!"
  1333.                         GoTo Lrcwcl
  1334.                     End If
  1335.                     '2.放置字段事后处理程序
  1336.                     .TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls)) = Trim(RecTemp.Fields("WhName") & "")            '仓库名称
  1337.                     .TextMatrix(Dqpdwgh, Sydz("006", GridStr(), Szzls)) = Trim(RecTemp.Fields("WhCode") & "")            '仓库编码
  1338.                    
  1339.                 Else
  1340.                     '3.清空相关字段
  1341.                     .TextMatrix(Dqpdwgh, Sydz("005", GridStr(), Szzls)) = ""                                             '存货名称
  1342.                     .TextMatrix(Dqpdwgh, Sydz("006", GridStr(), Szzls)) = ""                                             '存货规格型号
  1343.  
  1344.                 End If
  1345.             Case "007"          '定额数量
  1346.                 '1.放置字段有效性判断
  1347.                 If Str_JudgeText <> "" Then
  1348.                     If Not IsNumeric(Str_JudgeText) Then
  1349.                         Tsxx = "非法数字录入!"
  1350.                         GoTo Lrcwcl
  1351.                     ElseIf Val(Str_JudgeText) <= 0 Then
  1352.                         Tsxx = "定额数量不能小于等于零!"
  1353.                         GoTo Lrcwcl
  1354.                         
  1355.                     End If
  1356.                 End If
  1357.                 '2.放置字段事后处理程序
  1358.             Case "008"          '损耗率
  1359.                 '1.放置字段有效性判断
  1360.                 If Str_JudgeText <> "" Then
  1361.                     If Not IsNumeric(Str_JudgeText) Then
  1362.                         Tsxx = "非法数字录入!"
  1363.                         GoTo Lrcwcl
  1364.                     ElseIf Val(Str_JudgeText) > 100 Or Val(Str_JudgeText) < 0 Then
  1365.                         Tsxx = "损耗率只能大于等于0并且小于等于100 !"
  1366.                         GoTo Lrcwcl
  1367.                     End If
  1369.                 End If
  1370.                 '2.放置字段事后处理程序
  1371.  
  1372.                 '<<以上为自定义部分]
  1373.         End Select
  1374.         
  1375.         '字段录入正确后为零字段清空(Fixed)
  1376.         Call Qkwlzd(Dqpdwgh, Dqpdwgl)
  1377.      
  1378.         '字段录入正确后进行数据合计(Fixed)
  1379.         For Coljsq = Qslz To .Cols - 1
  1380.             Call Sjhj(Coljsq)
  1381.         Next Coljsq
  1382.      
  1383.         '字段有效性判断通过,将字段有效性判断加锁直至再次改变(Fixed)
  1384.         sjzdyxxpd = True
  1385.         Yxxpdlock = True
  1386.         Exit Function
  1387.     End With
  1388.   
  1389. Lrcwcl:    '录入错误处理
  1390.     With WglrGrid
  1391.   
  1392.         '给出错误提示信息
  1393.         Call Xtxxts(Tsxx, 0, 1)
  1394.           
  1395.         '返回网格错误位置(ChangeLock避免再次引发RowColChange有效性判断),装入录入载体
  1396.         Changelock = True
  1397.         .Select Dqpdwgh, Dqpdwgl
  1398.         Changelock = False
  1399.         Call xswbk
  1400.           
  1401.         '函数返回False
  1402.         sjzdyxxpd = False
  1403.         Exit Function
  1404.     End With
  1406. End Function
  1408. Private Sub Sub_JoinCount(Lng_CountRow As Long, Lng_CountCol As Long)       '当网格列值发生改变时,处理网格列之间的关联计算(可选)
  1409.   
  1410.   '过程参数:Lng_CountRow,Lng_CountCol 网格改变内容所处行列值
  1411.    
  1412.     With WglrGrid
  1413.         Select Case GridStr(Lng_CountCol, 1)         '判断网格列对应逻辑编号
  1414.                
  1415.             '[>>以下为自定义部分
  1416.             '<<以上为自定义部分]
  1417.         End Select
  1418.     End With
  1420. End Sub
  1422. Private Function Sjhzyxxpd(ByVal Yxxpdh As Long) As Boolean                     '录入数据行有效性判断,同时进行行处理
  1423.  
  1424.     '函数参数:Yxxpdh 要进行有效性判断的网格数据行的行值
  1426.     Dim Lrywlz As Long                            '录入有误网格列值
  1427.     Dim RecTemp As New ADODB.Recordset            '临时使用动态集
  1428.     
  1429.     With WglrGrid
  1430.         '判断行为空(行中所有可编辑列数据均为空或为零)和无效数据行则清除当前行
  1431.         If .Rows <= .FixedRows Then Exit Function   ' 如果没有记录，则退出
  1432.         If .TextMatrix(Yxxpdh, 0) <> "*" Then
  1433.             Sjhzyxxpd = True
  1434.             Exit Function
  1435.         Else
  1436.             If pdhwk(Yxxpdh) And Yxxpdh + 1 <= .Rows - 1 Then
  1437.                 '当要判断行处于网格末行时才允许删行,否则要进行有效性判断
  1438.                 If .TextMatrix(Yxxpdh + 1, 0) <> "*" Then
  1439.                     Changelock = True
  1440.                     .RemoveItem Yxxpdh
  1441.                     If .Rows < Pmbcsjhs + .FixedRows + Fzxwghs + 1 Then
  1442.                         .AddItem ""
  1443.                         .RowHeight(.Rows - 1) = Sjhgd
  1444.                     End If
  1445.                     Changelock = False
  1446.                     Sjhzyxxpd = True
  1447.                     Exit Function
  1448.                 End If
  1449.             End If
  1450.         End If
  1451.   
  1452.         '行没有发生变化则不进行有效性判断
  1453.         If Hyxxpdlock Then
  1454.             Sjhzyxxpd = True
  1455.             Exit Function
  1456.         End If
  1457.   
  1458.         '[>>以下为自定义部分
  1459.     
  1460.         '1.放置行有效性判断程序
  1461.            
  1462.         '1.1首先进行单个不能为空或不能为零判断(Fixed)
  1463.         For jsqte = Qslz To .Cols - 1
  1464.             
  1465.             '字段不能为空
  1466.             If GridInt(jsqte, 5) = 1 Then
  1467.                 If Len(Trim(.TextMatrix(Yxxpdh, jsqte))) = 0 Then
  1468.                     Tsxx = GridStr(jsqte, 2)
  1469.                     Lrywlz = jsqte
  1470.                     GoTo Lrcwcl
  1471.                     Exit For
  1472.                 End If
  1473.             End If
  1474.             
  1475.             '字段不能为零
  1476.             If GridInt(jsqte, 5) = 2 Then
  1477.                 If Val(Trim(.TextMatrix(Yxxpdh, jsqte))) = 0 Then
  1478.                     Tsxx = GridStr(jsqte, 2)
  1479.                     Lrywlz = jsqte
  1480.                     GoTo Lrcwcl
  1481.                     Exit For
  1482.                 End If
  1483.             End If
  1484.         Next jsqte
  1485.         
  1486.         '1.2进行其他有效性判断,编写格式同1.1
  1487.             
  1488.         '2.放置行处理程序(当数据行通过有效性判断)
  1490.         '以上为自定义部分<<]
  1491.     End With    'WglrGrid
  1493.     '如果此行通过行有效性判断则加锁,直至此行数据再次发生变化
  1494.     Sjhzyxxpd = True
  1495.     Hyxxpdlock = True
  1496.     Exit Function
  1498. Lrcwcl:      '录入错误处理
  1499.     With WglrGrid
  1500.   
  1501.         '给出错误提示信息
  1502.         Call Xtxxts(Tsxx, 0, 1)
  1503.       
  1504.         '返回网格错误位置 (ChangeLock避免再次引发RowColChange有效性判断), 装入录入载体
  1505.         Changelock = True
  1506.         .Select Yxxpdh, Lrywlz
  1507.         Changelock = False
  1508.         Call xswbk
  1509.     
  1510.         '函数返回False
  1511.         Sjhzyxxpd = False
  1512.         Exit Function
  1513.     End With
  1515. End Function
  1517. Private Sub Sub_AddBill()                                                '新增一张单据
  1518.     
  1519.     Dim RecTemp As New ADODB.Recordset            '临时使用动态集
  1520.     Dim jsqte As Long                             '临时计数器
  1521.    
  1522.     On Error Resume Next
  1523.    
  1524.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1525.        Exit Sub
  1526.     End If
  1527.    
  1528.     '设置操作状态为新增(Fixed)
  1529.     Lab_OperStatus.Caption = "2"
  1530.        
  1531.     '设置工具条状态(Fixed)
  1532.     Call Sub_OperStatus("20")
  1533.    
  1534.     '清空VouchID(Fixed)
  1535.     Lab_BillId.Caption = ""
  1536.       
  1537.     '录入文本框清除内容
  1538.     For jsqte = Max_Text_Index To 0 Step -1
  1539.         LrText(jsqte).Tag = ""
  1540.         LrText(jsqte).Text = ""
  1541.     Next jsqte
  1542.    
  1543.     '[>>
  1544.     '设置可以修改的文本框
  1545.     For jsqte = 0 To Max_Text_Index
  1546.         LrText(jsqte).Enabled = True
  1547.         LrText(jsqte).Text = ""
  1548.         LrText(jsqte).Tag = ""
  1549.     Next jsqte
  1550.     LrText(2).Enabled = False
  1551.     LrText(3).Enabled = False
  1552.     LrText(4).Enabled = False
  1553.     LrText(5).Enabled = False
  1554.     LrText(6).Enabled = False
  1555.     LrText(9).Enabled = False
  1556.     
  1557.     '显示制单人,清空审核人,此处还可以设置录入默认值如自动生成单据号、默认单据录入日期注意加锁
  1558.     LrText(9).Text = Xtczy
  1559.     LrText(6).Text = "未审核"
  1560.     LrText(8).Text = Fun_ConvDec(NumberType, 100)
  1561.        
  1562.        
  1563.     '设置订单日期默认为系统业务日期
  1564.     TextChangeLock = True
  1565.     LrText(5).Text = Format(Xtrq, "yyyy-mm-dd")
  1566.     TextChangeLock = False
  1567.     '<<]
  1568.    
  1569.     '重置网格(Fixed)
  1570.     With WglrGrid
  1571.         .Rows = Pmbcsjhs + .FixedRows + Fzxwghs + 1
  1572.         For jsqte = .FixedRows To .Rows - 1
  1573.             .RowHeight(jsqte) = Sjhgd
  1574.         Next jsqte
  1575.         WglrGrid.Clear 1
  1576.         Changelock = True
  1577.         .Select .FixedRows, Qslz
  1578.         Changelock = False
  1579.     End With
  1580.    
  1581.     '计算合计数据(清零)(Fixed)
  1582.     For jsqte = Qslz To WglrGrid.Cols - 1
  1583.         Call Sjhj(jsqte)
  1584.     Next jsqte
  1585.     
  1586.     '让第一个录入项得到焦点(Fixed)
  1587.     LrText(0).SetFocus
  1588.    
  1589. End Sub
  1591. Private Sub Sub_EditBill()                                                '修改一张单据
  1592.    
  1593.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  1594.    
  1595.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1596.        Exit Sub
  1597.     End If
  1598.    
  1599.     '非有效单据不予进行修改动作
  1600.     If Val(Lab_BillId.Caption) = 0 Then
  1601.         Exit Sub
  1602.     End If
  1603.    
  1604.     '判断当前单据是否允许修改
  1605.     If Not Fun_AllowEdit Then
  1606.         Exit Sub
  1607.     End If
  1608.    
  1609.     '设置操作状态为修改
  1610.     Lab_OperStatus.Caption = "3"
  1611.    
  1612.     '设置工具条状态
  1613.     Call Sub_OperStatus("30")
  1614.     
  1615.     '设置可以修改的文本框
  1616.     LrText(0).Enabled = False
  1617.     LrText(1).Enabled = False
  1618.     LrText(2).Enabled = False
  1619.     LrText(3).Enabled = False
  1620.     LrText(4).Enabled = False
  1621.     LrText(5).Enabled = False
  1622.     LrText(6).Enabled = False
  1623.     LrText(9).Enabled = False
  1624.     
  1625.     
  1626.     '显示制单人
  1627.     LrText(9).Text = Xtczy
  1628.     '显示制单日期
  1629.     LrText(5).Text = Format(Xtrq, "yyyy-mm-dd")
  1630.    
  1631. End Sub
  1633. Private Sub Sub_DeleteBill()                                               '删除当前单据
  1634.     Dim YAnswer As Integer               '确认是否删除当前单据
  1635.     Dim jsqte As Long                    '临时使用计数器
  1636.    
  1637.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1638.        Exit Sub
  1639.     End If
  1640.    
  1641.     '非有效单据不予进行删除动作
  1642.     If Val(Lab_BillId.Caption) = 0 Then
  1643.         Exit Sub
  1644.     End If
  1645.    
  1646.     Tsxx = "请确认是否删除当前单据?"
  1647.     YAnswer = Xtxxts(Tsxx, 2, 2)
  1648.    
  1649.     If YAnswer = 1 Then
  1650.    
  1651.         '判断当前单据是否允许删除
  1652.         If Not Fun_AllowEdit Then
  1653.             Exit Sub
  1654.         End If
  1655.       
  1656.         '进行事务处理
  1657.         On Error GoTo Swcwcl
  1658.         Cw_DataEnvi.DataConnect.BeginTrans
  1659.    
  1660.         '1.删除单据所有内容
  1661.         Sqlstr = "Delete MRP_BOMSub Where  BOMMainID='" & Trim(Lab_BillId.Caption) & "' "
  1662.         Cw_DataEnvi.DataConnect.Execute (Sqlstr)
  1663.         Sqlstr = "Delete MRP_BOMMain Where  BOMMainID='" & Trim(Lab_BillId.Caption) & "' "
  1664.         Cw_DataEnvi.DataConnect.Execute (Sqlstr)
  1665.        
  1666.         Cw_DataEnvi.DataConnect.CommitTrans
  1667.       
  1668.         '标识单据发生改动
  1669.         Bln_BillChange = True
  1670.   
  1671.         '单据ID置0
  1672.         Lab_BillId.Caption = 0
  1673.     Else
  1674.         Exit Sub
  1675.     End If
  1676.     
  1677.    '删除单据后重置状态
  1678.     
  1679.     '1.显示下一张单据
  1680.     Call Sub_Next
  1681.         
  1682.     '2.如果无下一张单据则搜索上一张单据
  1683.     If Val(Lab_BillId.Caption) = 0 Then
  1684.         Call Sub_Prev
  1685.     End If
  1686.         
  1687.     '3.如无单据则置单据为空状态
  1688.     If Val(Lab_BillId.Caption) = 0 Then
  1689.         '清除录入文本框
  1690.         For jsqte = Max_Text_Index To 0 Step -1
  1691.             LrText(jsqte).Tag = ""
  1692.             LrText(jsqte).Text = ""
  1693.         Next jsqte
  1694.     
  1695.         '重置网格(Fixed)
  1696.         With WglrGrid
  1697.             .Rows = Pmbcsjhs + .FixedRows + Fzxwghs + 1
  1698.             For jsqte = .FixedRows To .Rows - 1
  1699.                 .RowHeight(jsqte) = Sjhgd
  1700.             Next jsqte
  1701.             WglrGrid.Clear 1
  1702.             Changelock = True
  1703.             .Select .FixedRows, Qslz
  1704.             Changelock = False
  1705.         End With
  1706.     
  1707.         '计算合计数据(清零)(Fixed)
  1708.         For jsqte = Qslz To WglrGrid.Cols - 1
  1709.             Call Sjhj(jsqte)
  1710.         Next jsqte
  1711.     
  1712.         '设置操作状态为浏览
  1713.         Lab_OperStatus = "1"
  1714.         Call Sub_OperStatus("10")
  1715.     End If
  1717.     Rec_Query.Requery
  1718.     Rec_Query.Find "BOMMainID=" & Val(Lab_BillId.Caption)
  1719.     Exit Sub
  1720.    
  1721. Swcwcl:          '单据删除时出现错误
  1722.     Cw_DataEnvi.DataConnect.RollbackTrans
  1723.     Tsxx = "单据删除过程中出现未知错误,程序自动恢复保存前状态!"
  1724.     Call Xtxxts(Tsxx, 0, 1)
  1725.     Exit Sub
  1727. End Sub
  1729. Private Sub Sub_AbandonBill()                                              '放弃对当前单据的操作
  1730.  
  1731.     Dim jsqte As Long                    '临时使用计数器
  1732.   
  1733.     '先关闭录入载体(Fixed)
  1734.     Changelock = True
  1735.     Valilock = True
  1736.     Call Ycwbk
  1737.     Changelock = False
  1738.     Valilock = False
  1740.     '如果单据有效则重新显示当前单据,置单据为空状态
  1741.     If Not Rec_Query.EOF Then
  1742.         Ydcommand1.Visible = False
  1743.         Lab_BillId.Caption = Rec_Query.Fields("BOMMainID")
  1744.         Call Sub_ShowBill
  1745.     Else
  1746.         Ydcommand1.Visible = False
  1747.         '单据ID置为0
  1748.         Lab_BillId.Caption = 0
  1749.      
  1750.         '清除录入文本框
  1751.         For jsqte = Max_Text_Index To 0 Step -1
  1752.             LrText(jsqte).Tag = ""
  1753.             LrText(jsqte).Text = ""
  1754.         Next jsqte
  1756.         '重置网格(Fixed)
  1757.         With WglrGrid
  1758.             .Rows = Pmbcsjhs + .FixedRows + Fzxwghs + 1