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

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

企业管理

开发平台：

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