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

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

企业管理

开发平台：

Visual Basic

+：源码内容
  1. VERSION 5.00
  2. Object = "{65A39231-6133-11D1-BAA2-444553540000}#1.0#0"; "VSLIGHT6.OCX"
  3. Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  6. Begin VB.Form Stand_FrmFirst 
  7.    BorderStyle     =   3  'Fixed Dialog
  8.    Caption         =   "标准表"
  9.    ClientHeight    =   7230
  10.    ClientLeft      =   45
  11.    ClientTop       =   330
  12.    ClientWidth     =   9375
  13.    HelpContextID   =   2212012
  14.    Icon            =   "基础设置_标准表.frx":0000
  15.    KeyPreview      =   -1  'True
  16.    LinkTopic       =   "Form2"
  17.    LockControls    =   -1  'True
  18.    MaxButton       =   0   'False
  19.    MinButton       =   0   'False
  20.    ScaleHeight     =   7230
  21.    ScaleWidth      =   9375
  22.    ShowInTaskbar   =   0   'False
  23.    StartUpPosition =   2  '屏幕中心
  24.    Begin VB.Frame Frame2 
  25.       Height          =   675
  26.       Left            =   105
  27.       TabIndex        =   19
  28.       Top             =   615
  29.       Width           =   5700
  30.       Begin MSComctlLib.ImageCombo ImgCbo_Sort 
  31.          Height          =   315
  32.          Left            =   1035
  33.          TabIndex        =   20
  34.          Top             =   180
  35.          Width           =   4515
  36.          _ExtentX        =   7964
  37.          _ExtentY        =   556
  38.          _Version        =   393216
  39.          ForeColor       =   -2147483640
  40.          BackColor       =   -2147483643
  41.          Text            =   "ImageCombo1"
  42.       End
  43.       Begin VB.Label Label1 
  44.          AutoSize        =   -1  'True
  45.          BackStyle       =   0  'Transparent
  46.          Caption         =   "工资类别"
  47.          Height          =   180
  48.          Left            =   105
  49.          TabIndex        =   21
  50.          Top             =   255
  51.          Width           =   720
  52.       End
  53.    End
  54.    Begin TabDlg.SSTab StTab 
  55.       Height          =   5865
  56.       Left            =   0
  57.       TabIndex        =   9
  58.       Top             =   1365
  59.       Width           =   9360
  60.       _ExtentX        =   16510
  61.       _ExtentY        =   10345
  62.       _Version        =   393216
  63.       Style           =   1
  64.       Tabs            =   2
  65.       Tab             =   1
  66.       TabHeight       =   520
  67.       TabCaption(0)   =   "列表视图"
  68.       TabPicture(0)   =   "基础设置_标准表.frx":1042
  69.       Tab(0).ControlEnabled=   0   'False
  70.       Tab(0).Control(0)=   "CzxsGrid"
  71.       Tab(0).ControlCount=   1
  72.       TabCaption(1)   =   "单张视图"
  73.       TabPicture(1)   =   "基础设置_标准表.frx":105E
  74.       Tab(1).ControlEnabled=   -1  'True
  75.       Tab(1).Control(0)=   "Frame1"
  76.       Tab(1).Control(0).Enabled=   0   'False
  77.       Tab(1).ControlCount=   1
  78.       Begin VB.Frame Frame1 
  79.          Height          =   5445
  80.          Left            =   90
  81.          TabIndex        =   12
  82.          Top             =   315
  83.          Width           =   9165
  84.          Begin VB.TextBox LrText 
  85.             Height          =   300
  86.             Index           =   1
  87.             Left            =   1620
  88.             TabIndex        =   2
  89.             Text            =   "1"
  90.             Top             =   757
  91.             Width           =   2295
  92.          End
  93.          Begin VB.TextBox LrText 
  94.             Height          =   285
  95.             Index           =   2
  96.             Left            =   1620
  97.             TabIndex        =   3
  98.             Text            =   "2"
  99.             Top             =   1169
  100.             Width           =   2295
  101.          End
  102.          Begin VB.TextBox LrText 
  103.             Height          =   300
  104.             Index           =   3
  105.             Left            =   1620
  106.             TabIndex        =   4
  107.             Text            =   "3"
  108.             Top             =   1566
  109.             Width           =   2295
  110.          End
  111.          Begin VB.ComboBox Cbo_DeptLevel 
  112.             Height          =   300
  113.             Left            =   1620
  114.             TabIndex        =   5
  115.             Text            =   "Cbo_DeptLevel"
  116.             Top             =   1980
  117.             Width           =   2595
  118.          End
  119.          Begin VB.CheckBox Chk_UnEnable 
  120.             Caption         =   "无效"
  121.             Height          =   285
  122.             Left            =   600
  123.             TabIndex        =   6
  124.             Top             =   2415
  125.             Width           =   825
  126.          End
  127.          Begin VB.TextBox LrText 
  128.             Height          =   300
  129.             Index           =   0
  130.             Left            =   1620
  131.             TabIndex        =   1
  132.             Text            =   "0"
  133.             Top             =   345
  134.             Width           =   2595
  135.          End
  136.          Begin VB.CommandButton QxCommand 
  137.             Cancel          =   -1  'True
  138.             Caption         =   "取消(&C)"
  139.             Height          =   300
  140.             Left            =   2160
  141.             TabIndex        =   8
  142.             Top             =   2925
  143.             Width           =   1120
  144.          End
  145.          Begin VB.CommandButton BcCommand 
  146.             Caption         =   "保存(&S)"
  147.             Height          =   300
  148.             Left            =   960
  149.             TabIndex        =   7
  150.             Top             =   2925
  151.             Width           =   1120
  152.          End
  153.          Begin VB.CommandButton Ydcommand1 
  154.             Height          =   300
  155.             Index           =   0
  156.             Left            =   4500
  157.             Picture         =   "基础设置_标准表.frx":107A
  158.             Style           =   1  'Graphical
  159.             TabIndex        =   13
  160.             Top             =   3000
  161.             Visible         =   0   'False
  162.             Width           =   300
  163.          End
  164.          Begin VB.Label TsLabel 
  165.             AutoSize        =   -1  'True
  166.             Caption         =   "部门级别:"
  167.             Height          =   180
  168.             Index           =   4
  169.             Left            =   600
  170.             TabIndex        =   18
  171.             Top             =   2040
  172.             Width           =   810
  173.          End
  174.          Begin VB.Label TsLabel 
  175.             AutoSize        =   -1  'True
  176.             Caption         =   "结果项目:"
  177.             Height          =   180
  178.             Index           =   3
  179.             Left            =   600
  180.             TabIndex        =   17
  181.             Top             =   1620
  182.             Width           =   810
  183.          End
  184.          Begin VB.Label TsLabel 
  185.             AutoSize        =   -1  'True
  186.             Caption         =   "纵向项目:"
  187.             Height          =   165
  188.             Index           =   2
  189.             Left            =   600
  190.             TabIndex        =   16
  191.             Top             =   1230
  192.             Width           =   810
  193.          End
  194.          Begin VB.Label TsLabel 
  195.             AutoSize        =   -1  'True
  196.             Caption         =   "标准表名称:"
  197.             Height          =   180
  198.             Index           =   0
  199.             Left            =   600
  200.             TabIndex        =   15
  201.             Top             =   405
  202.             Width           =   990
  203.          End
  204.          Begin VB.Label TsLabel 
  205.             AutoSize        =   -1  'True
  206.             Caption         =   "横向项目:"
  207.             Height          =   180
  208.             Index           =   1
  209.             Left            =   600
  210.             TabIndex        =   14
  211.             Top             =   810
  212.             Width           =   810
  213.          End
  214.       End
  215.       Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
  216.          Height          =   5415
  217.          Left            =   -74940
  218.          TabIndex        =   0
  219.          Top             =   390
  220.          Width           =   9225
  221.          _ExtentX        =   16272
  222.          _ExtentY        =   9551
  223.          Appearance      =   1
  224.          BorderStyle     =   1
  225.          Enabled         =   -1  'True
  226.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  227.             Name            =   "宋体"
  228.             Size            =   9
  229.             Charset         =   134
  230.             Weight          =   400
  231.             Underline       =   0   'False
  232.             Italic          =   0   'False
  233.             Strikethrough   =   0   'False
  234.          EndProperty
  235.          MousePointer    =   0
  236.          BackColor       =   -2147483643
  237.          ForeColor       =   -2147483640
  238.          BackColorFixed  =   -2147483633
  239.          ForeColorFixed  =   -2147483630
  240.          BackColorSel    =   -2147483635
  241.          ForeColorSel    =   -2147483634
  242.          BackColorBkg    =   8421504
  243.          BackColorAlternate=   -2147483643
  244.          GridColor       =   -2147483633
  245.          GridColorFixed  =   -2147483632
  246.          TreeColor       =   -2147483632
  247.          FloodColor      =   192
  248.          SheetBorder     =   -2147483642
  249.          FocusRect       =   1
  250.          HighLight       =   1
  251.          AllowSelection  =   -1  'True
  252.          AllowBigSelection=   -1  'True
  253.          AllowUserResizing=   0
  254.          SelectionMode   =   0
  255.          GridLines       =   1
  256.          GridLinesFixed  =   2
  257.          GridLineWidth   =   1
  258.          Rows            =   30
  259.          Cols            =   10
  260.          FixedRows       =   0
  261.          FixedCols       =   0
  262.          RowHeightMin    =   0
  263.          RowHeightMax    =   0
  264.          ColWidthMin     =   0
  265.          ColWidthMax     =   0
  266.          ExtendLastCol   =   0   'False
  267.          FormatString    =   ""
  268.          ScrollTrack     =   0   'False
  269.          ScrollBars      =   3
  270.          ScrollTips      =   0   'False
  271.          MergeCells      =   0
  272.          MergeCompare    =   0
  273.          AutoResize      =   -1  'True
  274.          AutoSizeMode    =   0
  275.          AutoSearch      =   0
  276.          MultiTotals     =   -1  'True
  277.          SubtotalPosition=   1
  278.          OutlineBar      =   0
  279.          OutlineCol      =   0
  280.          Ellipsis        =   0
  281.          ExplorerBar     =   0
  282.          PicturesOver    =   0   'False
  283.          FillStyle       =   0
  284.          RightToLeft     =   0   'False
  285.          PictureType     =   0
  286.          TabBehavior     =   0
  287.          OwnerDraw       =   0
  288.          Editable        =   0   'False
  289.          ShowComboButton =   -1  'True
  290.          WordWrap        =   0   'False
  291.          TextStyle       =   0
  292.          TextStyleFixed  =   0
  293.          OleDragMode     =   0
  294.          OleDropMode     =   0
  295.          DataMode        =   0
  296.          VirtualData     =   -1  'True
  297.       End
  298.    End
  299.    Begin MSComctlLib.Toolbar SzToolbar 
  300.       Align           =   1  'Align Top
  301.       Height          =   570
  302.       Left            =   0
  303.       TabIndex        =   10
  304.       Top             =   0
  305.       Width           =   9375
  306.       _ExtentX        =   16536
  307.       _ExtentY        =   1005
  308.       ButtonWidth     =   820
  309.       ButtonHeight    =   953
  310.       AllowCustomize  =   0   'False
  311.       Appearance      =   1
  312.       Style           =   1
  313.       ImageList       =   "ImageList1"
  314.       _Version        =   393216
  315.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  316.          NumButtons      =   15
  317.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  318.             Caption         =   "设置"
  319.             Key             =   "ymsz"
  320.             ImageKey        =   "sz"
  321.          EndProperty
  322.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  323.             Caption         =   "打印"
  324.             Key             =   "dy"
  325.             Object.ToolTipText     =   "点击或按Ctrl+P打印表格"
  326.             ImageKey        =   "dy"
  327.          EndProperty
  328.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  329.             Caption         =   "预览"
  330.             Key             =   "yl"
  331.             ImageKey        =   "yl"
  332.          EndProperty
  333.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  334.             Style           =   3
  335.          EndProperty
  336.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  337.             Caption         =   "增加"
  338.             Key             =   "zj"
  339.             Object.ToolTipText     =   "点击或按Ctrl+A增加记录"
  340.             ImageKey        =   "xz"
  341.          EndProperty
  342.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  343.             Caption         =   "修改"
  344.             Key             =   "xg"
  345.             ImageKey        =   "xg"
  346.          EndProperty
  347.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  348.             Caption         =   "删除"
  349.             Key             =   "sc"
  350.             Object.ToolTipText     =   "点击或按Ctrl+D删除当前记录"
  351.             ImageKey        =   "sc"
  352.          EndProperty
  353.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  354.             Caption         =   "数据"
  355.             Key             =   "data"
  356.             ImageIndex      =   20
  357.          EndProperty
  358.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  359.             Caption         =   "条件"
  360.             Key             =   "condition"
  361.             ImageIndex      =   26
  362.          EndProperty
  363.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  364.             Caption         =   "导入"
  365.             Key             =   "import"
  366.             ImageIndex      =   30
  367.          EndProperty
  368.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  369.             Style           =   3
  370.          EndProperty
  371.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  372.             Caption         =   "刷新"
  373.             Key             =   "sx"
  374.             ImageKey        =   "sx"
  375.          EndProperty
  376.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  377.             Style           =   3
  378.          EndProperty
  379.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  380.             Caption         =   "帮助"
  381.             Key             =   "bz"
  382.             ImageKey        =   "bz"
  383.          EndProperty
  384.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  385.             Caption         =   "退出"
  386.             Key             =   "fh"
  387.             ImageKey        =   "tc"
  388.          EndProperty
  389.       EndProperty
  390.       BorderStyle     =   1
  391.       Begin MSComctlLib.Toolbar GsToolbar 
  392.          Height          =   540
  393.          Left            =   6870
  394.          TabIndex        =   11
  395.          Top             =   0
  396.          Width           =   2475
  397.          _ExtentX        =   4366
  398.          _ExtentY        =   953
  399.          ButtonWidth     =   1455
  400.          ButtonHeight    =   953
  401.          AllowCustomize  =   0   'False
  402.          Appearance      =   1
  403.          Style           =   1
  404.          ImageList       =   "ImageList1"
  405.          _Version        =   393216
  406.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  407.             NumButtons      =   3
  408.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  409.                Caption         =   "保存格式"
  410.                Key             =   "bcgs"
  411.                ImageKey        =   "bcgs"
  412.             EndProperty
  413.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  414.                Caption         =   "默认列宽"
  415.                Key             =   "hfmrgs"
  416.                ImageKey        =   "mrlk"
  417.             EndProperty
  418.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  419.                Caption         =   "显示项目"
  420.                Key             =   "szxsxm"
  421.                ImageKey        =   "xsxm"
  422.             EndProperty
  423.          EndProperty
  424.       End
  425.    End
  426.    Begin MSComctlLib.ImageList ImageList1 
  427.       Left            =   6555
  428.       Top             =   825
  429.       _ExtentX        =   1005
  430.       _ExtentY        =   1005
  431.       BackColor       =   -2147483643
  432.       ImageWidth      =   16
  433.       ImageHeight     =   16
  434.       MaskColor       =   12632256
  435.       _Version        =   393216
  436.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  437.          NumListImages   =   30
  438.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  439.             Picture         =   "基础设置_标准表.frx":1404
  440.             Key             =   "sz"
  441.          EndProperty
  442.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  443.             Picture         =   "基础设置_标准表.frx":179E
  444.             Key             =   "dy"
  445.          EndProperty
  446.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  447.             Picture         =   "基础设置_标准表.frx":1B38
  448.             Key             =   "yl"
  449.          EndProperty
  450.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.             Picture         =   "基础设置_标准表.frx":1ED2
  452.             Key             =   "xg"
  453.          EndProperty
  454.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.             Picture         =   "基础设置_标准表.frx":226C
  456.             Key             =   "zh"
  457.          EndProperty
  458.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.             Picture         =   "基础设置_标准表.frx":2606
  460.             Key             =   "sh"
  461.          EndProperty
  462.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.             Picture         =   "基础设置_标准表.frx":29A0
  464.             Key             =   "bc"
  465.          EndProperty
  466.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.             Picture         =   "基础设置_标准表.frx":2D3A
  468.             Key             =   "fq"
  469.          EndProperty
  470.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.             Picture         =   "基础设置_标准表.frx":30D4
  472.             Key             =   "bz"
  473.          EndProperty
  474.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.             Picture         =   "基础设置_标准表.frx":346E
  476.             Key             =   "tc"
  477.          EndProperty
  478.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.             Picture         =   "基础设置_标准表.frx":3808
  480.             Key             =   "bcgs"
  481.          EndProperty
  482.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.             Picture         =   "基础设置_标准表.frx":3BA2
  484.             Key             =   "mrlk"
  485.          EndProperty
  486.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.             Picture         =   "基础设置_标准表.frx":3F3C
  488.             Key             =   "xsxm"
  489.          EndProperty
  490.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.             Picture         =   "基础设置_标准表.frx":42D6
  492.             Key             =   "first"
  493.          EndProperty
  494.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.             Picture         =   "基础设置_标准表.frx":4670
  496.             Key             =   "prev"
  497.          EndProperty
  498.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.             Picture         =   "基础设置_标准表.frx":4A0A
  500.             Key             =   "next"
  501.          EndProperty
  502.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.             Picture         =   "基础设置_标准表.frx":4DA4
  504.             Key             =   "last"
  505.          EndProperty
  506.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.             Picture         =   "基础设置_标准表.frx":513E
  508.             Key             =   "xx"
  509.          EndProperty
  510.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.             Picture         =   "基础设置_标准表.frx":54D8
  512.             Key             =   "define"
  513.          EndProperty
  514.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.             Picture         =   "基础设置_标准表.frx":5872
  516.             Key             =   "exec"
  517.          EndProperty
  518.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.             Picture         =   "基础设置_标准表.frx":5C0C
  520.             Key             =   "xz"
  521.          EndProperty
  522.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  523.             Picture         =   "基础设置_标准表.frx":5FA6
  524.             Key             =   "sc"
  525.          EndProperty
  526.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  527.             Picture         =   "基础设置_标准表.frx":6340
  528.             Key             =   "sx"
  529.          EndProperty
  530.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  531.             Picture         =   "基础设置_标准表.frx":66DA
  532.             Key             =   "cx"
  533.          EndProperty
  534.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  535.             Picture         =   "基础设置_标准表.frx":6A74
  536.             Key             =   "zd"
  537.          EndProperty
  538.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  539.             Picture         =   "基础设置_标准表.frx":6E0E
  540.             Key             =   "dz"
  541.          EndProperty
  542.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  543.             Picture         =   "基础设置_标准表.frx":71A8
  544.             Key             =   "ph"
  545.          EndProperty
  546.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  547.             Picture         =   "基础设置_标准表.frx":7542
  548.             Key             =   "fz"
  549.          EndProperty
  550.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  551.             Picture         =   "基础设置_标准表.frx":78DC
  552.             Key             =   "dw"
  553.          EndProperty
  554.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  555.             Picture         =   "基础设置_标准表.frx":7C76
  556.             Key             =   ""
  557.          EndProperty
  558.       EndProperty
  559.    End
  560. End
  561. Attribute VB_Name = "Stand_FrmFirst"
  562. Attribute VB_GlobalNameSpace = False
  563. Attribute VB_Creatable = False
  564. Attribute VB_PredeclaredId = True
  565. Attribute VB_Exposed = False
  566. '*******************************************************
  567. '*    模 块 名 称 :标准表
  568. '*    功 能 描 述 :设置标准表及其内容、限定条件
  569. '*    程序员姓名  :田建秀
  570. '*    最后修改人  :田建秀
  571. '*    最后修改时间:2001/12/21
  572. '*    备        注:
  573. '*******************************************************
  574. Dim Rec_CodeSet As New ADODB.Recordset   '编码设置表
  575. Dim jdzygs As Integer                    '控件焦点转移个数
  576. Dim Lrzt As Integer                      '录入状态标志(0-非录入状态 1-增加 2-修改)
  577. Dim ReportTitle As String                '报表主标题
  578. Public SortId As String
  579. Dim Rsc As New ADODB.Recordset
  580. Dim Sql As String
  581. Dim i As Long
  582. Dim Str_RightEdit As String              '编辑(新增、修改、删除)权限索引
  584. '以下为固定使用变量(网格)
  585. Dim Cxnrrec As New ADODB.Recordset       '显示查询内容动态集
  586. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  587. Dim GridCode As String                   '显示网格网格代码
  588. Dim GridInf() As Variant                 '整个网格设置信息
  589. Dim Tsxx As String                       '系统提示信息
  590. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  591. Dim Sjhgd As Double                      '网格数据行高度
  592. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  593. Dim GridStr()  As String                 '网格列信息(字符型)
  594. Dim GridInt() As Integer                 '网格列信息(整型)
  595. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  597. '以下为固定使用变量(文本框)
  598. Dim Textvar() As Variant                 '存储变体型文本框信息
  599. Dim Textboolean() As Boolean             '存储布尔型文本框信息
  600. Dim Textint() As Integer                 '存储整型文本框信息
  601. Dim Textstr() As String                  '存储字符型文本框信息
  602. Dim Max_Text_Index As Integer            '最大录入文本框索引值
  603. Dim TextGroupCode As String              '文本框录入分组编码
  604. Dim TextValiLock As Boolean              '文本框失去焦点是否进行有效性控制判断
  605. Dim TextValiJudgeLock() As Boolean       '文本框录入有效性判断控制锁
  606. Dim CurTextIndex As Integer              '当前文本框索引值
  607. Dim TextChangeLock As Boolean            '文本框内容变换控制锁
  608. Dim Bln_Cancel As Boolean                '取消按钮信息传递
  610. Private Sub Cbo_DeptLevel_KeyPress(KeyAscii As Integer)
  611.     KeyAscii = 0
  612. End Sub
  614. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
  616.     jdzygs = 10
  617.     
  618.     Select Case KeyAscii
  619.         Case vbKeyReturn
  620.             If Kjjdzy(jdzygs) Then
  621.                 KeyAscii = 0
  622.             End If
  623.         Case 39           '屏蔽"'"
  624.             KeyAscii = 0
  625.    End Select
  626.    
  627. End Sub
  629. Private Sub Form_Load()
  630.   
  631.     '打印报表标题信息
  632.     ReportTitle = "的标准表"
  633.      
  634.     '调入打印页面设置窗体
  635.     XtReportCode = "Pm_StandTbl"
  636.     Load Dyymctbl
  637.     
  638.     '以下为文本框处理程序(读入文本框录入信息)
  639.     TextGroupCode = "Pm_StandTbl"
  640.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())
  641.     Call Wbkcsh
  642.     
  643.     For i = 1 To 3
  644.        LrText(i).Locked = True
  645.     Next
  646.     
  647.     LrText(2).Locked = False
  648.     
  649.     '调入网格设置信息
  650.     GridCode = "Pm_StandTbl"
  651.     Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  652.     Qslz = GridInf(1)
  653.     Sjhgd = GridInf(2)
  654.     Szzls = CzxsGrid.Cols - 1
  655.     With CzxsGrid
  656.         .TextMatrix(0, 0) = "标准表号"
  657.         .TextMatrix(0, 1) = "横向字段名"
  658.         .TextMatrix(0, 2) = "纵向字段名"
  659.         .TextMatrix(0, 3) = "结果字段名"
  660.     End With
  661.     Sql = " and czybm='" & Xtczybm & "'"
  662.     ImgCbo_Sort.Text = ""
  663.     Call DynaFillImageCombo(ImgCbo_Sort, "pm_SortEmp", 0, Sql)
  664.     SortId = GetComboKey(ImgCbo_Sort, 0)
  665.     '填 充 网 格
  666.     Call Cxnrtcwg
  667.        
  668.     '初始化toolbar,tab卡状态
  669.     StTab.Tab = 0
  670.     StTab.TabEnabled(1) = False
  671.     Frame1.Enabled = False
  672.     If Rsc.State = 1 Then Rsc.Close
  673.     Sql = "select Distinct CodeLevel from gy_Department where RsPmFlag=1 order by CodeLevel"
  674.     Set Rsc = Cw_DataEnvi.DataConnect.Execute(Sql)
  675.     With Cbo_DeptLevel
  676.         .AddItem ""
  677.         Do While Not Rsc.EOF
  678.             .AddItem (Rsc!CodeLevel)
  679.             Rsc.MoveNext
  680.         Loop
  681.         .Text = ""
  682.     End With
  683.     
  684.     '设置为非录入状态
  685.     Lrzt = 0
  686.     '编辑(新增、修改、删除)权限索引
  687.     Str_RightEdit = "Pm_StandTbl_edit"
  688. End Sub
  689.  
  690. Private Sub Cxnrtcwg()                               '查询内容填充网格
  692.     Dim Sqlstr As String              '查询连接串
  693.     Dim jsqte As Long                 '查询临时使用变量
  694.   
  695.     '为加快显示速度,将网格刷新动作冻结
  696.     CzxsGrid.Redraw = False
  697.   
  698.     '[>>查询连接串
  699.     Sqlstr = "SELECT * FROM PM_StandTBL where SortId='" & SortId & "' order by BzbNO"
  700.     '<<]
  701.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  702.     
  703.     With Cxnrrec
  704.         CzxsGrid.Rows = CzxsGrid.FixedRows
  705.         If .EOF And .BOF Then
  706.             CzxsGrid.Redraw = True
  707.             Exit Sub
  708.         End If
  709.         
  710.         jsqte = CzxsGrid.FixedRows
  711.         
  712.         Do While Not .EOF
  713.             CzxsGrid.AddItem ""
  714.             Call Jltcwg(Cxnrrec, jsqte)                              '调入填充网格子过程
  715.             CzxsGrid.RowHeight(jsqte) = Sjhgd                        '设置网格高度
  716.             .MoveNext
  717.             jsqte = jsqte + 1
  718.         Loop
  719.     End With
  720.   
  721.     '将网格刷新动作解冻
  722.     CzxsGrid.Redraw = True
  723.     
  724. End Sub
  726. Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long)           '记录内容填充网格
  728.     '[>>以下为自定义部分
  729.     With Jlbrec
  730.         CzxsGrid.TextMatrix(Rowjsq, 0) = Trim(.Fields("BzbNO") & "")            '标准表号
  731.         CzxsGrid.TextMatrix(Rowjsq, 1) = Trim(.Fields("BzbHxItem") & "")            '横向字段名
  732.         CzxsGrid.TextMatrix(Rowjsq, 2) = Trim(.Fields("BzbVxItem") & "")            '纵向字段名
  733.         CzxsGrid.TextMatrix(Rowjsq, 3) = Trim(.Fields("BzbResuItem") & "")            '结果字段名
  734.         CzxsGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BzbName") & "")            '标准表名称
  735.         If Rsc.State = 1 Then Rsc.Close
  736.         Set Rsc = Cw_DataEnvi.DataConnect.Execute("select * from Rs_Items where ltriM(rtrim(tablename)) + '.' + ltrim(rtrim(fieldname))='" & Trim(.Fields("BzbHxItem") & "") & "'")
  737.         If Not Rsc.EOF Then
  738.             CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Trim(Rsc!ChName)            '横向项目
  739.         End If
  740.         
  741.         If Rsc.State = 1 Then Rsc.Close
  742.         Set Rsc = Cw_DataEnvi.DataConnect.Execute("select * from Rs_Items where ltriM(rtrim(tablename)) + '.' + ltrim(rtrim(fieldname))='" & Trim(.Fields("BzbVxItem") & "") & "'")
  743.         If Not Rsc.EOF Then
  744.             CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = Trim(Rsc!ChName)            '纵向项目
  745.         End If
  746.         
  747.         If Rsc.State = 1 Then Rsc.Close
  748.         Set Rsc = Cw_DataEnvi.DataConnect.Execute("select * from Rs_Items where FieldName='" & Trim(.Fields("BzbResuItem") & "") & "'")
  749.         If Not Rsc.EOF Then
  750.             CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = Trim(Rsc!ChName)            '结果项目
  751.         End If
  752.         
  753.         CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = .Fields("BzbUnEnable")             '有效
  754.         
  755.         If .Fields("CodeLevel") = 0 Then
  756.             CzxsGrid.TextMatrix(Rowjsq, Sydz("006", GridStr(), Szzls)) = ""               '部门级别
  757.         Else
  758.             CzxsGrid.TextMatrix(Rowjsq, Sydz("006", GridStr(), Szzls)) = .Fields("CodeLevel") & ""
  759.         End If
  760.     End With
  761.     '以上为自定义部分<<]
  762.     
  763. End Sub
  765. Private Sub Form_Unload(Cancel As Integer)             '窗体卸载
  767.     Set Cxnrrec = Nothing
  768.     Set Rec_CodeSet = Nothing
  769.     Set Rsc = Nothing
  770.     Unload Dyymctbl
  771.    
  772. End Sub
  774. Private Function Bclrsj() As Boolean                   '判断录入数据有效性,并保存数据
  776.     Dim jsqte As Integer
  777.     Dim BzbNO As Integer
  778.     '对文本框录入内容进行为零和为空判断(固定不变)
  779.     With Rec_CodeSet
  780.     
  781.         For jsqte = 0 To Max_Text_Index
  782.             If Textint(jsqte, 8) = 1 Then     '字段不能为空
  783.                 If Len(Trim(LrText(jsqte).Text)) = 0 Then
  784.                     Tsxx = Textstr(jsqte, 7) & "不能为空!"
  785.                     Call Xtxxts(Tsxx, 0, 1)
  786.                     LrText(jsqte).SetFocus
  787.                     Bclrsj = False
  788.                     Exit Function
  789.                 End If
  790.             Else
  791.                 If Textint(jsqte, 8) = 2 Then   '字段不能为零
  792.                     If Val(Trim(LrText(jsqte).Text)) = 0 Then
  793.                         Tsxx = Textstr(jsqte, 7) & "不能为零!"
  794.                         Call Xtxxts(Tsxx, 0, 1)
  795.                         LrText(jsqte).SetFocus
  796.                         Bclrsj = False
  797.                         Exit Function
  798.                     End If
  799.                 End If
  800.             End If
  801.         Next jsqte
  802.     
  803.         '对需要进行事后判断的文本框录入内容进行有效性判断 (固定不变)
  804.         For jsqte = 0 To Max_Text_Index
  805.             If Textint(jsqte, 9) = 0 Or Textint(jsqte, 9) = 2 Then
  806.                 If Not TextYxxpd(jsqte) Then
  807.                     Exit Function
  808.                 End If
  809.             End If
  810.         Next jsqte
  811.         If Trim(SortId) = "" Then
  812.             Call Xtxxts("工资类别不能空!", 0, 1)
  813.             Exit Function
  814.         End If
  815.         If LCase(Trim(LrText(1).Tag)) = "rs_basicinfo.deptcode" Or LCase(Trim(LrText(2).Tag)) = "rs_basicinfo.deptcode" Then
  816.             If Trim(Cbo_DeptLevel.Text) = "" Then
  817.                 Call Xtxxts("部门级别不能空!", 0, 1)
  818.                 Exit Function
  819.             End If
  820.         Else
  821.             If Trim(Cbo_DeptLevel.Text) <> "" Then
  822.                 Call Xtxxts("部门级别必须空!", 0, 1)
  823.                 Exit Function
  824.             End If
  825.         End If
  826.         '横向项目、纵向项目必须是有相关项明细的项目
  827.         If LCase(Trim(LrText(1).Tag)) <> "rs_basicinfo.deptcode" And LCase(Trim(LrText(2).Tag)) <> "rs_basicinfo.deptcode" Then
  828.             If Rsc.State = 1 Then Rsc.Close
  829.             Sql = "select distinct FieldName,ChName,ItemID from Rs_Items i" & _
  830.                   " inner join Rs_CorMain  m on" & _
  831.                   " i.CorreLation =m.SortId inner join Rs_CorSub s on " & _
  832.                   " m.SortID=s.SortID Where ltriM(rtrim(tablename)) + '.' + ltrim(rtrim(fieldname))='" & Trim(LrText(1).Tag) & "'"
  833.             Set Rsc = Cw_DataEnvi.DataConnect.Execute(Sql)
  834.             If Rsc.EOF Then
  835.                 Call Xtxxts("横向项目“" & Trim(LrText(1)) & "”不存在相关项，不能建立标准表!", 0, 1)
  836.                 Exit Function
  837.             End If
  838.             
  839.             If Trim(LrText(2).Text) <> "" Then
  840.                 If Rsc.State = 1 Then Rsc.Close
  841.                 Sql = "select distinct FieldName,ChName,ItemID from Rs_Items i" & _
  842.                       " inner join Rs_CorMain  m on" & _
  843.                       " i.CorreLation =m.SortId inner join Rs_CorSub s on " & _
  844.                       " m.SortID=s.SortID Where ltriM(rtrim(tablename)) + '.' + ltrim(rtrim(fieldname))='" & Trim(LrText(2).Tag) & "'"
  845.                 Set Rsc = Cw_DataEnvi.DataConnect.Execute(Sql)
  846.                 If Rsc.EOF Then
  847.                     Call Xtxxts("纵向项目“" & Trim(LrText(2)) & "”不存在相关项，不能建立标准表!", 0, 1)
  848.                     Exit Function
  849.                 End If
  850.             End If
  851.         End If
  852.         
  853.         '结果项目必须是本类别的工资项目。
  854.         If Trim(LrText(3).Tag) = "" Then
  855.             Call Xtxxts("请按按钮选择工资项目! ", 0, 1)
  856.             Exit Function
  857.         End If
  858.         
  859.         If Lrzt = 1 Then  '增 加
  860.         
  861.             '[>>
  863.             '判断名称是否重复
  864.             If .State = 1 Then .Close
  865.             .Open "SELECT * FROM PM_StandTbl WHERE BzbName= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  866.     
  867.             If Not .EOF Then
  868.                 Tsxx = "标准表名称重复!"
  869.                 Call Xtxxts(Tsxx, 0, 1)
  870.                 LrText(1).SetFocus
  871.                 Bclrsj = False
  872.                 Exit Function
  873.             End If
  874.             If Rsc.State = 1 Then Rsc.Close
  875.             Set Rsc = Cw_DataEnvi.DataConnect.Execute("select * from PM_StandTbl order by BzbNO desc")
  876.             If Not Rsc.EOF Then
  877.                 BzbNO = Rsc!BzbNO + 1
  878.             Else
  879.                 BzbNO = 1
  880.             End If
  881.             '判断记录内容无误后,将记录内容写入数据表
  882.             On Error GoTo Swcwcl
  883.     
  884.             Cw_DataEnvi.DataConnect.BeginTrans
  885.    
  886.             .AddNew
  887.             .Fields("BzbNO") = BzbNO    '标准号
  888.             .Fields("SortId") = SortId                   '工资类别号
  889.             .Fields("BzbName") = Trim(LrText(0).Text)    '标准表名
  890.             .Fields("BzbHxItem") = Trim(LrText(1).Tag)     '横向字段名
  891.             .Fields("BzbVxItem") = Trim(LrText(2).Tag)    '纵向字段名
  892.             .Fields("BzbResuItem") = Trim(LrText(3).Tag)    '结果字段名
  893.             If Trim(Cbo_DeptLevel.Text) = "" Then
  894.                 .Fields("CodeLevel") = 0
  895.             Else
  896.                  .Fields("CodeLevel") = Trim(Cbo_DeptLevel.Text) '部门级别
  897.             End If
  898.             .Fields("BzbUnEnable") = Chk_UnEnable.Value     '有效
  899.             .Update
  900.             
  901.             Cw_DataEnvi.DataConnect.CommitTrans
  903.             '将记录加入网格
  904.             Sqlstr = "SELECT * FROM PM_StandTbl WHERE BzbNo= " & BzbNO
  905.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  906.    
  907.             With CzxsGrid
  908.                 .AddItem ""
  909.                 .RowHeight(.Rows - 1) = Sjhgd
  910.                 .Select .Rows - 1, Qslz
  911.                 Call Jltcwg(Cxnrrec, .Rows - 1)
  912.             End With
  914.             Tsxx = "保存完毕!"
  915.             Call Xtxxts(Tsxx, 0, 4)
  916.             
  917.             Call Cshlrxx(1)
  918.             LrText(0).SetFocus
  920.             '将网格按编码排序
  921.             With CzxsGrid
  922.                 .Col = 0
  923.                 CzxsGrid.Sort = flexSortStringAscending
  924.             End With
  925.             
  926.             '<<]
  927.     
  928.         Else  '否则为修改记录
  929.  
  930.             If .State = 1 Then .Close
  931.             .Open "SELECT * FROM PM_StandTbl WHERE BzbName= '" & Trim(LrText(0).Text) & "' and BzbNO<>" & Val(CzxsGrid.TextMatrix(CzxsGrid.Row, 0)), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  933.             If Not .EOF Then
  934.                 Tsxx = "标准表名称重复!"
  935.                 Call Xtxxts(Tsxx, 0, 1)
  936.                 LrText(1).SetFocus
  937.         
  938.                 Bclrsj = False
  939.                 Exit Function
  940.             End If
  942.             On Error GoTo Swcwcl
  944.             Cw_DataEnvi.DataConnect.BeginTrans
  946.             If .State = 1 Then .Close
  947.             .Open "SELECT * FROM PM_StandTbl WHERE BzbName= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  948.      
  949.             If Not .EOF Then
  950.                 .Fields("BzbUnEnable") = Chk_UnEnable    '无效
  951.                 .Update
  952.             End If
  954.              Cw_DataEnvi.DataConnect.CommitTrans
  955.    
  956.             '刷新当前网格
  957.             Sqlstr = "SELECT * FROM PM_StandTbl WHERE BzbName= '" + Trim(LrText(0).Text) + "'"
  958.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  959.    
  960.             With CzxsGrid
  961.                 Call Jltcwg(Cxnrrec, .Row)
  962.             End With
  963.    
  964.         End If
  965.      
  966.         '保存记录成功,函数返回真值
  967.         Bclrsj = True
  968.         Exit Function
  969.         
  970.     End With
  971.  
  972. Swcwcl:
  974.      Cw_DataEnvi.DataConnect.RollbackTrans
  975.      
  976.      Tsxx = "存盘过程中出现错误,程序自动恢复保存前状态!"
  977.      Call Xtxxts(Tsxx, 0, 1)
  978.      
  979.      Exit Function
  980.      
  981. End Function
  983. Private Function Cshlrxx(lrztxx As Integer) As Boolean              '初始化录入字段信息
  985.     TextChangeLock = True       '关闭文本框Chang事件
  986.     
  987.     If lrztxx = 1 Then
  988.     
  989.         '增加新记录时将文本框清空
  990.         For jsqte = 0 To Max_Text_Index
  991.             If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  992.                 LrText(jsqte).Text = ""
  993.                 LrText(jsqte).Tag = ""
  994.             End If
  995.             TextValiJudgeLock(jsqte) = True
  996.         Next jsqte
  997.        
  998.         '[>>
  999.         '在此处可添加新增记录时初始化设置
  1000.         For i = 1 To 3
  1001.            Ydcommand1(i).Enabled = True
  1002.         Next
  1003.         Cbo_DeptLevel.Enabled = True
  1004.         Cbo_DeptLevel.Text = ""
  1005.         '<<]
  1006.     Else
  1007.     
  1008.         '修改记录时根据记录关键字(编码)从数据表中读入其他字段内容
  1009.         With RecTemp
  1010.             Sqlstr = "SELECT * FROM PM_StandTbl Where BzbNO=" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, 0))
  1012.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1013.        
  1014.             '记录如存在则读入其内容,否则提示记录已被其他人删除
  1015.             If Not RecTemp.EOF Then
  1016.                 LrText(0).Text = Trim(.Fields("BzbName") & "")            '标准表名称
  1017.                 If Rsc.State = 1 Then Rsc.Close
  1018.                 Set Rsc = Cw_DataEnvi.DataConnect.Execute("select * from Rs_Items where ltriM(rtrim(tablename)) + '.' + ltrim(rtrim(fieldname))='" & Trim(.Fields("BzbHxItem") & "") & "'")
  1019.                 If Not Rsc.EOF Then
  1020.                     LrText(1).Text = Trim(Rsc!ChName)            '横向项目
  1021.                     If LCase(Trim(.Fields("BzbHxItem") & "")) = "rs_basicinfo.deptcode" Then
  1022.                         LrText(1).Tag = "rs_basicinfo.deptcode"
  1023.                     Else
  1024.                         LrText(1).Tag = Trim(.Fields("BzbHxItem") & "")
  1025.                     End If
  1026.                 End If
  1027.                 
  1028.                 If Rsc.State = 1 Then Rsc.Close
  1029.                 Set Rsc = Cw_DataEnvi.DataConnect.Execute("select * from Rs_Items where ltriM(rtrim(tablename)) + '.' + ltrim(rtrim(fieldname))='" & Trim(.Fields("BzbVxItem") & "") & "'")
  1030.                 If Not Rsc.EOF Then
  1031.                     LrText(2).Text = Trim(Rsc!ChName)            '纵向项目
  1032.                     If LCase(Trim(.Fields("BzbVxItem") & "")) = "rs_basicinfo.deptcode" Then
  1033.                         LrText(2).Tag = "rs_basicinfo.deptcode"
  1034.                     Else
  1035.                         LrText(2).Tag = Trim(.Fields("BzbVxItem") & "")
  1036.                     End If
  1037.                 Else
  1038.                    LrText(2).Text = ""
  1039.                    LrText(2).Tag = ""
  1040.                 End If
  1041.                 
  1042.                 If Rsc.State = 1 Then Rsc.Close
  1043.                 Set Rsc = Cw_DataEnvi.DataConnect.Execute("select * from Rs_Items where FieldName='" & Trim(.Fields("BzbResuItem") & "") & "'")
  1044.                 If Not Rsc.EOF Then
  1045.                      LrText(3).Text = Trim(Rsc!ChName)            '结果项目
  1046.                      LrText(3).Tag = Trim(.Fields("BzbResuItem") & "")
  1047.                 End If
  1048.                 If .Fields("BzbUnEnable") = True Then
  1049.                     Chk_UnEnable.Value = 1
  1050.                 Else
  1051.                     Chk_UnEnable.Value = 0
  1052.                 End If
  1053.                 If !CodeLevel & "" = 0 Then
  1054.                     Cbo_DeptLevel.Text = ""
  1055.                 Else
  1056.                     Cbo_DeptLevel.Text = !CodeLevel & ""
  1057.                 End If
  1058.             Else
  1059.                 Tsxx = "该记录已经被其他人删除,请刷新当前数据!"
  1060.                 Call Xtxxts(Tsxx, 0, 4)
  1061.                 Call Cancel
  1062.                 TextChangeLock = False
  1063.                 Exit Function
  1064.             End If
  1065.         End With
  1066.         For i = 1 To 3
  1067.            Ydcommand1(i).Enabled = False
  1068.         Next
  1069.         Cbo_DeptLevel.Enabled = False
  1070.     End If
  1071.     
  1072.     Cshlrxx = True
  1073.     TextChangeLock = False
  1074.     
  1075. End Function
  1077. Private Sub Scdqjl()                 '删 除 当 前 记 录
  1079.     Dim Yhanswer As Integer
  1080.   
  1081.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1082.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1083.          Exit Sub
  1084.     End If
  1085.     
  1086.     If CzxsGrid.Rows = CzxsGrid.FixedRows Then
  1087.         Exit Sub
  1088.     End If
  1089.     
  1090.     '非数据行不能删除
  1091.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1092.         Exit Sub
  1093.     End If
  1094.   
  1095.     '用户确认是否删除记录
  1096.     Tsxx = "请确认是否删除当前记录?"
  1097.     Yhanswer = Xtxxts(Tsxx, 2, 2)
  1098.     
  1099.     If Yhanswer = 2 Then
  1100.         Exit Sub
  1101.     End If
  1103.     On Error GoTo Cwcl
  1104.   
  1105.     Cw_DataEnvi.DataConnect.BeginTrans
  1107.     '[>>以下需自定义部分
  1108.     Sql = "delete PM_StandTblData where BzbNO = " & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, 0))
  1109.     Sql = Sql & "delete PM_StandTbl where BzbNO = " & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, 0))
  1110.     Cw_DataEnvi.DataConnect.Execute Sql
  1111.     '以上为自定义部分<<]
  1112.   
  1113.     Cw_DataEnvi.DataConnect.CommitTrans
  1115.     CzxsGrid.RemoveItem CzxsGrid.Row
  1117.     Exit Sub
  1118.   
  1119. Cwcl:
  1121.     Cw_DataEnvi.DataConnect.RollbackTrans
  1122.     
  1123.     If Err.Number = -2147217873 Then                '(-2147217873 为SQL Server 2000通过建立外键产生的错误号)
  1124.         Tsxx = "该编码已经被使用,不能删除!"
  1125.         Call Xtxxts(Tsxx, 0, 1)
  1126.         Exit Sub
  1127.     Else
  1128.         Tsxx = "出现未知情况,该编码不能被删除!"
  1129.         Call Xtxxts(Tsxx, 0, 1)
  1130.         Exit Sub
  1131.     End If
  1132.     
  1133. End Sub
  1135. '*******************以下区域为编写自定义过程区域**********************
  1138. '*******************以上区域为编写自定义过程区域**********************
  1140. '******************以下为基本处理程序(固定不变)************************'
  1141. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  1143.     If Shift = 2 Then
  1144.         Select Case UCase(Chr(KeyCode))
  1145.             Case "P"                                                                          'Ctrl+P 打印
  1146.                 If SzToolbar.Buttons("dy").Visible And SzToolbar.Buttons("dy").Enabled Then
  1147.                     Call bbyl(False)
  1148.                 End If
  1149.             Case "A"                                                                          'Ctrl+A 增加
  1150.                 '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1151.                 If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1152.                     Exit Sub
  1153.                 End If
  1154.                 If SzToolbar.Buttons("zj").Visible And SzToolbar.Buttons("zj").Enabled Then
  1155.                     Call Toolbjzt
  1156.                     Lrzt = 1
  1157.                     Call Cshlrxx(Lrzt)
  1158.                     LrText(0).Enabled = True
  1159.                     LrText(0).SetFocus
  1160.                 End If
  1161.             Case "D"                                                                          'Ctrl+D 删除
  1162.                 If SzToolbar.Buttons("sc").Visible And SzToolbar.Buttons("sc").Enabled Then
  1163.                     Call Scdqjl
  1164.                 End If
  1165.         End Select
  1166.     End If
  1167.     
  1168. End Sub
  1169. Private Sub ImgCbo_Sort_Click()
  1170.     SortId = GetComboKey(ImgCbo_Sort, 0)
  1171.     Call Cxnrtcwg
  1172. End Sub
  1174. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1175.    
  1176.     Select Case Button.Key
  1177.         Case "ymsz"                                          '页面设置
  1178.             Dyymctbl.Show 1
  1179.         Case "yl"                                            '预 览
  1180.             Call bbyl(True)
  1181.         Case "dy"                                            '打 印
  1182.             Call bbyl(False)
  1183.         Case "zj"                                            '增 加
  1184.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1185.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1186.                 Exit Sub
  1187.             End If
  1188.             Call Toolbjzt
  1189.             Lrzt = 1
  1190.             Call Cshlrxx(Lrzt)
  1191.             LrText(0).Enabled = True
  1192.             LrText(0).SetFocus
  1193.         Case "xg"                                            '修 改
  1194.             Call Xgdqjl
  1195.         Case "sc"                                            '删 除
  1196.             Call Scdqjl
  1197.         Case "data"
  1198.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1199.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1200.                 Stand_FrmData.Tlb_Action.Buttons("bc").Enabled = False
  1201.             End If
  1202.             With CzxsGrid
  1203.                 If .Rows = .FixedRows Then
  1204.                     Exit Sub
  1205.                 End If
  1206.             End With
  1207.             Stand_FrmData.Show 1
  1208.         Case "condition"
  1209.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1210.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1211.                 Stand_FrmLimit.Cmd_Save.Enabled = False
  1212.             End If
  1213.             With CzxsGrid
  1214.                 If .Rows = .FixedRows Then
  1215.                     Exit Sub
  1216.                 End If
  1217.             End With
  1218.             Stand_FrmLimit.Show 1
  1219.         Case "import"
  1220.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1221.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1222.                 Exit Sub
  1223.             End If
  1224.             If Rsc.State = 1 Then Rsc.Close
  1225.             Set Rsc = Cw_DataEnvi.DataConnect.Execute("select * from PM_StandTbl ")
  1226.             If Rsc.EOF Then
  1227.                 Call Xtxxts("没有标准表，无法导入!", 0, 1)
  1228.                 Exit Sub
  1229.             End If
  1230.             Stand_FrmGuide.Show 1
  1231.             Call Cxnrtcwg
  1232.         Case "data"
  1233.         Case "sx"                                            '刷 新
  1234.             Call Cxnrtcwg
  1235.         Case "bz"                                            '帮 助
  1236.             Call F1bz
  1237.         Case "fh"                                            '退 出
  1238.             Unload Me
  1239.         End Select
  1240.         
  1241. End Sub
  1243. Private Sub CzxsGrid_DblClick()                            '修改当前编码记录
  1245.     Call Xgdqjl
  1246.   
  1247. End Sub
  1249. Private Sub Xgdqjl()                                       '修改当前编码记录
  1250.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1251.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1252.         BcCommand.Enabled = False
  1253.     End If
  1254.     
  1255.     If CzxsGrid.Rows = CzxsGrid.FixedRows Then
  1256.         Exit Sub
  1257.     End If
  1258.     
  1259.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1260.         Exit Sub
  1261.     End If
  1262.     
  1263.     Call Toolbjzt
  1264.     Lrzt = 2
  1265.     
  1266.     If Cshlrxx(Lrzt) Then
  1267.         LrText(1).SetFocus
  1268.         LrText(0).Enabled = False
  1269.     End If
  1270.   
  1271. End Sub
  1273. Private Sub Toolbjzt()                                     'Toolbar状态(编辑状态)
  1275.     StTab.TabEnabled(1) = True
  1276.     StTab.Tab = 1
  1277.     Frame1.Enabled = True
  1278.     StTab.TabEnabled(0) = False
  1279.     CzxsGrid.Enabled = False
  1280.   
  1281.     With SzToolbar
  1282.         .Buttons("ymsz").Enabled = False
  1283.         .Buttons("dy").Enabled = False
  1284.         .Buttons("yl").Enabled = False
  1285.         .Buttons("zj").Enabled = False
  1286.         .Buttons("xg").Enabled = False
  1287.         .Buttons("sc").Enabled = False
  1288.         .Buttons("sx").Enabled = False
  1289.         .Buttons("data").Enabled = False
  1290.         .Buttons("condition").Enabled = False
  1291.         .Buttons("import").Enabled = False
  1292.     End With
  1293.     ImgCbo_Sort.Enabled = False
  1294. End Sub
  1296. Private Sub Toolfbjzt()                                    'Toolbar状态(非编辑状态)
  1298.     StTab.TabEnabled(0) = True
  1299.     StTab.Tab = 0
  1300.     CzxsGrid.Enabled = True
  1301.     Frame1.Enabled = False
  1302.     StTab.TabEnabled(1) = False
  1303.     Lrzt = 0
  1304.     
  1305.     With SzToolbar
  1306.         .Buttons("ymsz").Enabled = True
  1307.         .Buttons("dy").Enabled = True
  1308.         .Buttons("yl").Enabled = True
  1309.         .Buttons("zj").Enabled = True
  1310.         .Buttons("xg").Enabled = True
  1311.         .Buttons("sc").Enabled = True
  1312.         .Buttons("sx").Enabled = True
  1313.         .Buttons("data").Enabled = True
  1314.         .Buttons("condition").Enabled = True
  1315.         .Buttons("import").Enabled = True
  1316.     End With
  1317.     ImgCbo_Sort.Enabled = True
  1318. End Sub
  1320. Private Sub BcCommand_Click()                                           '保 存
  1322.     If Not Bclrsj Then
  1323.         Exit Sub
  1324.     End If
  1325.   
  1326.     If Lrzt = 2 Then
  1327.         Call Toolfbjzt
  1328.     End If
  1329.   
  1330. End Sub
  1332. Private Sub QxCommand_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)       '取消
  1333.   
  1334.     '避免执行Click程序
  1335.     Bln_Cancel = True
  1336.   
  1337.     Call Cancel
  1338.     
  1339. End Sub
  1341. Private Sub QxCommand_Click()                                                                         '取消
  1342.  
  1343.     If Bln_Cancel Then
  1344.         Bln_Cancel = False
  1345.         Exit Sub
  1346.     End If
  1347.  
  1348.     Call Cancel
  1349.     
  1350. End Sub
  1352. Private Sub Cancel()                                                                                  '取消
  1353.   
  1354.     '文本框加锁
  1355.     For jsqte = 0 To Max_Text_Index
  1356.         TextValiJudgeLock(jsqte) = True
  1357.     Next jsqte
  1358.   
  1359.     Call Toolfbjzt
  1360.     
  1361. End Sub
  1363. Private Sub CzxsGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  1364.     
  1365.     FnBln_RefreshArray Col, Position, GridStr(), GridInf()
  1367. End Sub
  1369. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  1370.     
  1371.     Select Case Button.Key
  1372.         Case "bcgs"                                       '保存表格格式
  1373.             Call Bcwggs(CzxsGrid, GridCode, GridStr())
  1374.         Case "hfmrgs"                                     '恢复默认格式
  1375.             Call Hfmrgs(CzxsGrid, GridCode, GridStr())
  1376.         Case "szxsxm"                                     '设置显示项目
  1377.             Call Szxsxm(CzxsGrid, GridCode)
  1378.     End Select
  1379.     
  1380. End Sub
  1382. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1384.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1385.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1386.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1387.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1388.     ReDim Bbxbt(1 To Bbxbtgs)
  1389.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1390.     
  1391.     If Bbbwhgs <> 0 Then
  1392.         ReDim Bbbwh(1 To Bbbwhgs)
  1393.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1394.     End If
  1395.     With CzxsGrid
  1396.        If .Rows > .FixedRows Then
  1397.             Bbzbt = Right(Trim(GetComboKey(ImgCbo_Sort, 1)), Len(Trim(GetComboKey(ImgCbo_Sort, 1))) - 4) & ReportTitle
  1398.        Else
  1399.             Bbzbt = "标准表"
  1400.        End If
  1401.     End With
  1402.     Bbxbt(1) = " "
  1403.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1404.     
  1405.     Call Scyxsjb(CzxsGrid)                               '生成报表数据
  1406.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1407.   
  1408.     If Not bbylte Then
  1409.         Unload DY_Tybbyldy
  1410.     End If
  1411.     
  1412. End Sub
  1414. '************以下为文本框录入处理程序(固定不变部分)*************'
  1416. Private Sub Wbklrwbcl(Index As Integer)    '文本框录入事后处理程序
  1418.     '以下为依据实际情况自定义部分[
  1419.   
  1420.         '在此填写文本框录入事后处理程序
  1421.    
  1422.     ']以上为依据实际情况自定义部分
  1423.     
  1424. End Sub
  1426. Private Sub LrText_Change(Index As Integer)
  1428.     '屏蔽程序改变控制
  1429.     If TextChangeLock Then
  1430.         Exit Sub
  1431.     End If
  1432.     
  1433.     TextValiJudgeLock(Index) = False    '打开有效性判断锁
  1434.     
  1435.     '限制字段录入长度
  1436.           
  1437.     TextChangeLock = True  '加锁(防止执行Lrtext_Change)
  1438.     
  1439.     Call TextChangeLimit(LrText(Index), Textint(Index, 1))  '去掉无效字符
  1440.      
  1441.     Select Case Textint(Index, 1)
  1442.         Case 8, 11      '金额型
  1443.             Call Sjgskz(LrText(Index), Xtjezws - Xtjexsws - 1, Xtjexsws)
  1444.         Case 9, 12      '数量型
  1445.             Call Sjgskz(LrText(Index), Xtslzws - Xtslxsws - 1, Xtslxsws)
  1446.         Case 10          '单价型
  1447.             Call Sjgskz(LrText(Index), Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1448.         Case Else        '其他小数类型控制
  1449.             If Textint(Index, 6) <> 0 Or Textint(Index, 7) <> 0 Then
  1450.                 Call Sjgskz(LrText(Index), Textint(Index, 6), Textint(Index, 7))
  1451.             End If
  1452.     End Select
  1453.         
  1454.     TextChangeLock = False '解锁
  1455.     
  1456. End Sub
  1458. Private Sub LrText_GotFocus(Index As Integer)                                                 '文本框得到焦点,显示相应信息
  1459.    
  1460.     Call TextShow(Index)
  1461.     CurTextIndex = Index
  1462.     LrText(Index).SelStart = Len(LrText(Index))
  1463.    
  1464. End Sub
  1466. Private Sub LrText_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)            '字段按F2键提供帮助
  1467.    
  1468.     Select Case KeyCode
  1469.          Case vbKeyF2
  1470.              Call Text_Help(Index)
  1471.     End Select
  1472.    
  1473. End Sub
  1475. Private Sub LrText_KeyPress(Index As Integer, KeyAscii As Integer)                            '文本框录入事中控制
  1476.    
  1477.     Call InputFieldLimit(LrText(Index), Textint(Index, 1), KeyAscii)
  1478.     If Index = 2 Then
  1479.         KeyAscii = 0
  1480.     End If
  1481. End Sub
  1483. Private Sub LrText_LostFocus(Index As Integer)                                                '文本框失去焦点
  1485.     '显示相应信息但不能进行有效性判断
  1486.   
  1487. End Sub
  1489. Private Sub Ydcommand1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)     '按钮提供帮助
  1490.     
  1491.     Call Text_Help(Index)
  1492.     
  1493. End Sub
  1495. Private Sub Text_Help(Index As Integer)                                                       '录入字段帮助
  1496.   
  1497.     If Not Textboolean(Index, 1) Then
  1498.         Exit Sub
  1499.     End If
  1500.    
  1501.     '调用帮助
  1502.     If Index <> 3 Then
  1503.         Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), Trim(LrText(Index).Text))
  1504.     Else
  1505.         Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), SortId)
  1506.     End If
  1507.   
  1508.     '根据设置选择显示编码和名称,并进行存储
  1509.     If Len(Xtfhcs) <> 0 Then
  1510.         If Textint(Index, 3) = 1 Then
  1511.             LrText(Index).Text = Xtfhcsfz
  1512.             LrText(Index).Tag = Xtfhcs
  1513.         Else
  1514.             LrText(Index).Text = Xtfhcs
  1515.             LrText(Index).Tag = Xtfhcsfz
  1516.         End If
  1517.     End If
  1518.    
  1519.     LrText(Index).SetFocus
  1520.     
  1521. End Sub
  1523. Private Sub TextShow(Index As Integer)        '文本框得到焦点,显示相应信息
  1525.     '填写文本框得到焦点,进行相应信息处理程序
  1526.    
  1527. End Sub
  1529. Private Sub Wbkcsh()                          '录入文本框初始化
  1531.     Dim jsqte As Integer
  1532.   
  1533.     '最大录入文本框索引值
  1534.     Max_Text_Index = Textvar(1)
  1535.   
  1536.     ReDim TextValiJudgeLock(Max_Text_Index)
  1537.     
  1538.     For jsqte = 0 To Max_Text_Index
  1539.      
  1540.         If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  1541.             If Textboolean(jsqte, 1) Then
  1542.                 If jsqte <> 0 And Not Textboolean(jsqte, 3) Then
  1543.                     Load Ydcommand1(jsqte)
  1544.                 End If
  1545.                 Ydcommand1(jsqte).Visible = True
  1546.                 Ydcommand1(jsqte).Move LrText(jsqte).Left + LrText(jsqte).Width, LrText(jsqte).Top
  1547.             End If
  1548.             TextChangeLock = True
  1549.             LrText(jsqte).Text = ""
  1550.             LrText(jsqte).Tag = ""
  1551.             
  1552.             If Textint(jsqte, 5) <> 0 Then
  1553.                 LrText(jsqte).MaxLength = Textint(jsqte, 5)
  1554.             End If
  1555.             
  1556.             TextChangeLock = False
  1557.         End If
  1558.         
  1559.         TextValiJudgeLock(jsqte) = True
  1560.     Next jsqte
  1561.     
  1562. End Sub
  1564. Private Function TextYxxpd(Index As Integer) As Boolean           '文本框有效性判断
  1566.     Dim Sqlstr As String
  1567.     Dim Findrec As ADODB.Recordset
  1568.   
  1569.     '文本框内容未曾改变不进行有效性判断
  1570.     If TextValiJudgeLock(Index) Then
  1571.         TextYxxpd = True
  1572.         Exit Function
  1573.     End If
  1574.   
  1575.     '文本框内容为空认为有效,并清空其Tag值
  1576.     If Trim(LrText(Index)) = "" Then
  1577.         LrText(Index).Tag = ""
  1578.         Call Wbklrwbcl(Index)
  1579.         TextValiJudgeLock(Index) = True
  1580.         TextYxxpd = True
  1581.         Exit Function
  1582.     End If
  1583.   
  1584.     '可在此加入不做有效性判断的理由
  1585.   
  1586.     Select Case Textint(Index, 4)
  1587.         Case 1      '编码型
  1588.             Sqlstr = Trim(Textstr(Index, 5))
  1589.             Sqlstr = Replace(Sqlstr, "@", "'" + Trim(LrText(Index).Text) + "'")
  1590.             Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1591.          
  1592.             If Findrec.EOF Then
  1593.                 Call Xtxxts(Trim(Textstr(Index, 6)), 0, 1)
  1594.                 LrText(Index).SetFocus
  1595.                 Exit Function
  1596.             Else
  1597.                 Select Case Textint(Index, 3)
  1598.                     Case 0
  1599.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1600.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1601.                         End If
  1602.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1603.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1604.                         End If
  1605.                     Case 1
  1606.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1607.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1608.                         End If
  1609.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1610.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1611.                         End If
  1612.                 End Select
  1613.             End If
  1614.             
  1615.         Case 2      '日期型
  1616.             If IsDate(LrText(Index).Text) Then
  1617.                 LrText(Index).Text = Format(LrText(Index).Text, "yyyy-mm-dd")
  1618.                 If Val(Mid(LrText(Index), 1, 4)) < 1900 Then
  1619.                     LrText(Index).Text = "1900" + Mid(LrText(Index), 5, 6)
  1620.                 End If
  1621.             Else
  1622.                 Tsxx = "非法公历日期!(格式:" + Format(Date, "yyyy-mm-dd") + ")"
  1623.                 Call Xtxxts(Tsxx, 0, 1)
  1624.                 LrText(Index).SetFocus
  1625.                 Exit Function
  1626.             End If
  1627.             
  1628.         Case 3      '其他类型
  1629.         
  1630.     End Select
  1631.     
  1632.     '如果有效则加锁,用户不改变内容则不再进行有效性判断
  1633.     TextValiJudgeLock(Index) = True
  1635.     '调用文本框事后处理程序
  1636.     Call Wbklrwbcl(Index)
  1637.    
  1638.     '有效性判断通过则返回True
  1639.     TextYxxpd = True
  1640.    
  1641. End Function