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

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

企业管理

开发平台：

Visual Basic

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