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

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

企业管理

开发平台：

Visual Basic

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