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

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

企业管理

开发平台：

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 Tr_VehicleFile 
  7.    BorderStyle     =   1  'Fixed Single
  8.    Caption         =   "车辆档案"
  9.    ClientHeight    =   7095
  10.    ClientLeft      =   45
  11.    ClientTop       =   330
  12.    ClientWidth     =   9375
  13.    Icon            =   "基础设置_车辆档案.frx":0000
  14.    KeyPreview      =   -1  'True
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   7095
  19.    ScaleWidth      =   9375
  20.    StartUpPosition =   1  '所有者中心
  21.    Begin TabDlg.SSTab StTab 
  22.       Height          =   6435
  23.       Left            =   30
  24.       TabIndex        =   16
  25.       Top             =   660
  26.       Width           =   9360
  27.       _ExtentX        =   16510
  28.       _ExtentY        =   11351
  29.       _Version        =   393216
  30.       Style           =   1
  31.       Tabs            =   2
  32.       TabHeight       =   520
  33.       TabCaption(0)   =   "列表视图"
  34.       TabPicture(0)   =   "基础设置_车辆档案.frx":1042
  35.       Tab(0).ControlEnabled=   -1  'True
  36.       Tab(0).Control(0)=   "CzxsGrid"
  37.       Tab(0).Control(0).Enabled=   0   'False
  38.       Tab(0).ControlCount=   1
  39.       TabCaption(1)   =   "单张视图"
  40.       TabPicture(1)   =   "基础设置_车辆档案.frx":105E
  41.       Tab(1).ControlEnabled=   0   'False
  42.       Tab(1).Control(0)=   "Frame1"
  43.       Tab(1).ControlCount=   1
  44.       Begin VB.Frame Frame1 
  45.          Height          =   5925
  46.          Left            =   -74880
  47.          TabIndex        =   17
  48.          Top             =   360
  49.          Width           =   9105
  50.          Begin VB.TextBox LrText 
  51.             Height          =   300
  52.             Index           =   14
  53.             Left            =   1410
  54.             TabIndex        =   14
  55.             Text            =   "14"
  56.             Top             =   3090
  57.             Width           =   2610
  58.          End
  59.          Begin VB.CommandButton Ydcommand1 
  60.             Height          =   300
  61.             Index           =   10
  62.             Left            =   4020
  63.             Picture         =   "基础设置_车辆档案.frx":107A
  64.             Style           =   1  'Graphical
  65.             TabIndex        =   38
  66.             Top             =   2310
  67.             Visible         =   0   'False
  68.             Width           =   300
  69.          End
  70.          Begin VB.CheckBox Chk_Scrap 
  71.             Alignment       =   1  'Right Justify
  72.             Caption         =   "停用："
  73.             Height          =   285
  74.             Left            =   4560
  75.             TabIndex        =   37
  76.             Top             =   3120
  77.             Width           =   1365
  78.          End
  79.          Begin VB.TextBox LrText 
  80.             Height          =   300
  81.             Index           =   13
  82.             Left            =   5745
  83.             TabIndex        =   13
  84.             Text            =   "13"
  85.             Top             =   2670
  86.             Width           =   2610
  87.          End
  88.          Begin VB.TextBox LrText 
  89.             Height          =   300
  90.             Index           =   1
  91.             Left            =   5745
  92.             TabIndex        =   1
  93.             Text            =   "1"
  94.             Top             =   330
  95.             Width           =   2610
  96.          End
  97.          Begin VB.TextBox LrText 
  98.             Height          =   300
  99.             Index           =   3
  100.             Left            =   5745
  101.             TabIndex        =   3
  102.             Text            =   "3"
  103.             Top             =   720
  104.             Width           =   2610
  105.          End
  106.          Begin VB.TextBox LrText 
  107.             Height          =   300
  108.             Index           =   5
  109.             Left            =   5745
  110.             TabIndex        =   5
  111.             Text            =   "5"
  112.             Top             =   1110
  113.             Width           =   2610
  114.          End
  115.          Begin VB.TextBox LrText 
  116.             Height          =   300
  117.             Index           =   7
  118.             Left            =   5745
  119.             TabIndex        =   7
  120.             Text            =   "7"
  121.             Top             =   1500
  122.             Width           =   2610
  123.          End
  124.          Begin VB.TextBox LrText 
  125.             Height          =   300
  126.             Index           =   9
  127.             Left            =   5745
  128.             TabIndex        =   9
  129.             Text            =   "9"
  130.             Top             =   1890
  131.             Width           =   2610
  132.          End
  133.          Begin VB.TextBox LrText 
  134.             Height          =   300
  135.             Index           =   11
  136.             Left            =   5745
  137.             TabIndex        =   11
  138.             Text            =   "11"
  139.             Top             =   2280
  140.             Width           =   2610
  141.          End
  142.          Begin VB.TextBox LrText 
  143.             Height          =   300
  144.             Index           =   0
  145.             Left            =   1410
  146.             TabIndex        =   0
  147.             Text            =   "0"
  148.             Top             =   330
  149.             Width           =   2610
  150.          End
  151.          Begin VB.TextBox LrText 
  152.             Height          =   300
  153.             Index           =   2
  154.             Left            =   1410
  155.             TabIndex        =   2
  156.             Text            =   "2"
  157.             Top             =   720
  158.             Width           =   2610
  159.          End
  160.          Begin VB.CommandButton Ydcommand1 
  161.             Height          =   300
  162.             Index           =   0
  163.             Left            =   4020
  164.             Picture         =   "基础设置_车辆档案.frx":1404
  165.             Style           =   1  'Graphical
  166.             TabIndex        =   19
  167.             Top             =   720
  168.             Visible         =   0   'False
  169.             Width           =   300
  170.          End
  171.          Begin VB.CommandButton QxCommand 
  172.             Cancel          =   -1  'True
  173.             Caption         =   "取消(&C)"
  174.             Height          =   300
  175.             Left            =   7235
  176.             TabIndex        =   18
  177.             Top             =   3870
  178.             Width           =   1120
  179.          End
  180.          Begin VB.CommandButton BcCommand 
  181.             Caption         =   "保存(&S)"
  182.             Height          =   300
  183.             Left            =   6030
  184.             TabIndex        =   15
  185.             Top             =   3870
  186.             Width           =   1120
  187.          End
  188.          Begin VB.TextBox LrText 
  189.             Height          =   300
  190.             Index           =   12
  191.             Left            =   1410
  192.             TabIndex        =   12
  193.             Text            =   "12"
  194.             Top             =   2700
  195.             Width           =   2610
  196.          End
  197.          Begin VB.TextBox LrText 
  198.             Height          =   300
  199.             Index           =   4
  200.             Left            =   1410
  201.             TabIndex        =   4
  202.             Text            =   "4"
  203.             Top             =   1125
  204.             Width           =   2610
  205.          End
  206.          Begin VB.TextBox LrText 
  207.             Height          =   300
  208.             Index           =   6
  209.             Left            =   1410
  210.             TabIndex        =   6
  211.             Text            =   "6"
  212.             Top             =   1515
  213.             Width           =   2610
  214.          End
  215.          Begin VB.TextBox LrText 
  216.             Height          =   300
  217.             Index           =   8
  218.             Left            =   1410
  219.             TabIndex        =   8
  220.             Text            =   "8"
  221.             Top             =   1905
  222.             Width           =   2610
  223.          End
  224.          Begin VB.TextBox LrText 
  225.             Height          =   300
  226.             Index           =   10
  227.             Left            =   1410
  228.             TabIndex        =   10
  229.             Text            =   "10"
  230.             Top             =   2295
  231.             Width           =   2610
  232.          End
  233.          Begin VB.Label TsLabel 
  234.             AutoSize        =   -1  'True
  235.             Caption         =   "车辆所有权:"
  236.             Height          =   180
  237.             Index           =   8
  238.             Left            =   4560
  239.             TabIndex        =   39
  240.             Top             =   1170
  241.             Width           =   990
  242.          End
  243.          Begin VB.Label TsLabel 
  244.             AutoSize        =   -1  'True
  245.             Caption         =   "备注:"
  246.             Height          =   180
  247.             Index           =   14
  248.             Left            =   555
  249.             TabIndex        =   36
  250.             Top             =   3180
  251.             Width           =   450
  252.          End
  253.          Begin VB.Label TsLabel 
  254.             AutoSize        =   -1  'True
  255.             Caption         =   "车辆类型:"
  256.             Height          =   180
  257.             Index           =   13
  258.             Left            =   4560
  259.             TabIndex        =   35
  260.             Top             =   390
  261.             Width           =   810
  262.          End
  263.          Begin VB.Label TsLabel 
  264.             AutoSize        =   -1  'True
  265.             Caption         =   "车辆使用性质:"
  266.             Height          =   180
  267.             Index           =   12
  268.             Left            =   4560
  269.             TabIndex        =   34
  270.             Top             =   780
  271.             Width           =   1170
  272.          End
  273.          Begin VB.Label TsLabel 
  274.             AutoSize        =   -1  'True
  275.             Caption         =   "自重:"
  276.             Height          =   180
  277.             Index           =   11
  278.             Left            =   555
  279.             TabIndex        =   33
  280.             Top             =   1590
  281.             Width           =   450
  282.          End
  283.          Begin VB.Label TsLabel 
  284.             AutoSize        =   -1  'True
  285.             Caption         =   "原值:"
  286.             Height          =   180
  287.             Index           =   10
  288.             Left            =   555
  289.             TabIndex        =   32
  290.             Top             =   1980
  291.             Width           =   450
  292.          End
  293.          Begin VB.Label TsLabel 
  294.             AutoSize        =   -1  'True
  295.             Caption         =   "出厂日期:"
  296.             Height          =   180
  297.             Index           =   9
  298.             Left            =   555
  299.             TabIndex        =   31
  300.             Top             =   2385
  301.             Width           =   810
  302.          End
  303.          Begin VB.Label TsLabel 
  304.             AutoSize        =   -1  'True
  305.             Caption         =   "制造单位:"
  306.             Height          =   180
  307.             Index           =   7
  308.             Left            =   555
  309.             TabIndex        =   30
  310.             Top             =   2775
  311.             Width           =   810
  312.          End
  313.          Begin VB.Label TsLabel 
  314.             AutoSize        =   -1  'True
  315.             Caption         =   "车号:"
  316.             Height          =   180
  317.             Index           =   0
  318.             Left            =   555
  319.             TabIndex        =   26
  320.             Top             =   390
  321.             Width           =   450
  322.          End
  323.          Begin VB.Label TsLabel 
  324.             AutoSize        =   -1  'True
  325.             Caption         =   "车辆等级:"
  326.             Height          =   180
  327.             Index           =   1
  328.             Left            =   555
  329.             TabIndex        =   25
  330.             Top             =   795
  331.             Width           =   810
  332.          End
  333.          Begin VB.Label TsLabel 
  334.             AutoSize        =   -1  'True
  335.             Caption         =   "车辆状况:"
  336.             Height          =   180
  337.             Index           =   2
  338.             Left            =   555
  339.             TabIndex        =   24
  340.             Top             =   1185
  341.             Width           =   810
  342.          End
  343.          Begin VB.Label TsLabel 
  344.             AutoSize        =   -1  'True
  345.             Caption         =   "载重:"
  346.             Height          =   180
  347.             Index           =   3
  348.             Left            =   4560
  349.             TabIndex        =   23
  350.             Top             =   1560
  351.             Width           =   450
  352.          End
  353.          Begin VB.Label TsLabel 
  354.             AutoSize        =   -1  'True
  355.             Caption         =   "年折旧率:"
  356.             Height          =   180
  357.             Index           =   4
  358.             Left            =   4560
  359.             TabIndex        =   22
  360.             Top             =   1950
  361.             Width           =   810
  362.          End
  363.          Begin VB.Label TsLabel 
  364.             AutoSize        =   -1  'True
  365.             Caption         =   "使用年限:"
  366.             Height          =   180
  367.             Index           =   5
  368.             Left            =   4560
  369.             TabIndex        =   21
  370.             Top             =   2340
  371.             Width           =   810
  372.          End
  373.          Begin VB.Label TsLabel 
  374.             AutoSize        =   -1  'True
  375.             Caption         =   "产权单位:"
  376.             Height          =   180
  377.             Index           =   6
  378.             Left            =   4560
  379.             TabIndex        =   20
  380.             Top             =   2730
  381.             Width           =   810
  382.          End
  383.       End
  384.       Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
  385.          Height          =   5925
  386.          Left            =   90
  387.          TabIndex        =   27
  388.          Top             =   390
  389.          Width           =   9165
  390.          _ExtentX        =   16166
  391.          _ExtentY        =   10451
  392.          Appearance      =   1
  393.          BorderStyle     =   1
  394.          Enabled         =   -1  'True
  395.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  396.             Name            =   "宋体"
  397.             Size            =   9
  398.             Charset         =   134
  399.             Weight          =   400
  400.             Underline       =   0   'False
  401.             Italic          =   0   'False
  402.             Strikethrough   =   0   'False
  403.          EndProperty
  404.          MousePointer    =   0
  405.          BackColor       =   -2147483643
  406.          ForeColor       =   -2147483640
  407.          BackColorFixed  =   -2147483633
  408.          ForeColorFixed  =   -2147483630
  409.          BackColorSel    =   -2147483635
  410.          ForeColorSel    =   -2147483634
  411.          BackColorBkg    =   8421504
  412.          BackColorAlternate=   -2147483643
  413.          GridColor       =   -2147483633
  414.          GridColorFixed  =   -2147483632
  415.          TreeColor       =   -2147483632
  416.          FloodColor      =   192
  417.          SheetBorder     =   -2147483642
  418.          FocusRect       =   1
  419.          HighLight       =   1
  420.          AllowSelection  =   -1  'True
  421.          AllowBigSelection=   -1  'True
  422.          AllowUserResizing=   0
  423.          SelectionMode   =   0
  424.          GridLines       =   1
  425.          GridLinesFixed  =   2
  426.          GridLineWidth   =   1
  427.          Rows            =   5000
  428.          Cols            =   10
  429.          FixedRows       =   1
  430.          FixedCols       =   0
  431.          RowHeightMin    =   0
  432.          RowHeightMax    =   0
  433.          ColWidthMin     =   0
  434.          ColWidthMax     =   0
  435.          ExtendLastCol   =   0   'False
  436.          FormatString    =   ""
  437.          ScrollTrack     =   0   'False
  438.          ScrollBars      =   3
  439.          ScrollTips      =   0   'False
  440.          MergeCells      =   0
  441.          MergeCompare    =   0
  442.          AutoResize      =   -1  'True
  443.          AutoSizeMode    =   0
  444.          AutoSearch      =   0
  445.          MultiTotals     =   -1  'True
  446.          SubtotalPosition=   1
  447.          OutlineBar      =   0
  448.          OutlineCol      =   0
  449.          Ellipsis        =   0
  450.          ExplorerBar     =   0
  451.          PicturesOver    =   0   'False
  452.          FillStyle       =   0
  453.          RightToLeft     =   0   'False
  454.          PictureType     =   0
  455.          TabBehavior     =   0
  456.          OwnerDraw       =   0
  457.          Editable        =   0   'False
  458.          ShowComboButton =   -1  'True
  459.          WordWrap        =   0   'False
  460.          TextStyle       =   0
  461.          TextStyleFixed  =   0
  462.          OleDragMode     =   0
  463.          OleDropMode     =   0
  464.          DataMode        =   0
  465.          VirtualData     =   -1  'True
  466.       End
  467.    End
  468.    Begin MSComctlLib.Toolbar SzToolbar 
  469.       Align           =   1  'Align Top
  470.       Height          =   570
  471.       Left            =   0
  472.       TabIndex        =   28
  473.       Top             =   0
  474.       Width           =   9375
  475.       _ExtentX        =   16536
  476.       _ExtentY        =   1005
  477.       ButtonWidth     =   820
  478.       ButtonHeight    =   953
  479.       AllowCustomize  =   0   'False
  480.       Appearance      =   1
  481.       Style           =   1
  482.       ImageList       =   "ImageList1"
  483.       _Version        =   393216
  484.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  485.          NumButtons      =   12
  486.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  487.             Caption         =   "设置"
  488.             Key             =   "ymsz"
  489.             ImageKey        =   "sz"
  490.          EndProperty
  491.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  492.             Caption         =   "打印"
  493.             Key             =   "dy"
  494.             Object.ToolTipText     =   "点击或按Ctrl+P打印表格"
  495.             ImageKey        =   "dy"
  496.          EndProperty
  497.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  498.             Caption         =   "预览"
  499.             Key             =   "yl"
  500.             ImageKey        =   "yl"
  501.          EndProperty
  502.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  503.             Style           =   3
  504.          EndProperty
  505.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  506.             Caption         =   "增加"
  507.             Key             =   "zj"
  508.             Object.ToolTipText     =   "点击或按Ctrl+A增加记录"
  509.             ImageKey        =   "xz"
  510.          EndProperty
  511.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  512.             Caption         =   "修改"
  513.             Key             =   "xg"
  514.             ImageKey        =   "xg"
  515.          EndProperty
  516.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  517.             Caption         =   "删除"
  518.             Key             =   "sc"
  519.             Object.ToolTipText     =   "点击或按Ctrl+D删除当前记录"
  520.             ImageKey        =   "sc"
  521.          EndProperty
  522.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  523.             Style           =   3
  524.          EndProperty
  525.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  526.             Caption         =   "刷新"
  527.             Key             =   "sx"
  528.             ImageKey        =   "sx"
  529.          EndProperty
  530.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  531.             Style           =   3
  532.          EndProperty
  533.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  534.             Caption         =   "帮助"
  535.             Key             =   "bz"
  536.             ImageKey        =   "bz"
  537.          EndProperty
  538.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  539.             Caption         =   "退出"
  540.             Key             =   "fh"
  541.             ImageKey        =   "tc"
  542.          EndProperty
  543.       EndProperty
  544.       BorderStyle     =   1
  545.       Begin MSComctlLib.Toolbar GsToolbar 
  546.          Height          =   540
  547.          Left            =   6870
  548.          TabIndex        =   29
  549.          Top             =   0
  550.          Width           =   2475
  551.          _ExtentX        =   4366
  552.          _ExtentY        =   953
  553.          ButtonWidth     =   1455
  554.          ButtonHeight    =   953
  555.          AllowCustomize  =   0   'False
  556.          Appearance      =   1
  557.          Style           =   1
  558.          ImageList       =   "ImageList1"
  559.          _Version        =   393216
  560.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  561.             NumButtons      =   3
  562.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  563.                Caption         =   "保存格式"
  564.                Key             =   "bcgs"
  565.                ImageKey        =   "bcgs"
  566.             EndProperty
  567.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  568.                Caption         =   "默认列宽"
  569.                Key             =   "hfmrgs"
  570.                ImageKey        =   "mrlk"
  571.             EndProperty
  572.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  573.                Caption         =   "显示项目"
  574.                Key             =   "szxsxm"
  575.                ImageKey        =   "xsxm"
  576.             EndProperty
  577.          EndProperty
  578.       End
  579.    End
  580.    Begin MSComctlLib.ImageList ImageList1 
  581.       Left            =   0
  582.       Top             =   420
  583.       _ExtentX        =   1005
  584.       _ExtentY        =   1005
  585.       BackColor       =   -2147483643
  586.       ImageWidth      =   16
  587.       ImageHeight     =   16
  588.       MaskColor       =   12632256
  589.       _Version        =   393216
  590.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  591.          NumListImages   =   29
  592.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  593.             Picture         =   "基础设置_车辆档案.frx":178E
  594.             Key             =   "sz"
  595.          EndProperty
  596.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  597.             Picture         =   "基础设置_车辆档案.frx":1B28
  598.             Key             =   "dy"
  599.          EndProperty
  600.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  601.             Picture         =   "基础设置_车辆档案.frx":1EC2
  602.             Key             =   "yl"
  603.          EndProperty
  604.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  605.             Picture         =   "基础设置_车辆档案.frx":225C
  606.             Key             =   "xg"
  607.          EndProperty
  608.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  609.             Picture         =   "基础设置_车辆档案.frx":25F6
  610.             Key             =   "zh"
  611.          EndProperty
  612.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  613.             Picture         =   "基础设置_车辆档案.frx":2990
  614.             Key             =   "sh"
  615.          EndProperty
  616.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  617.             Picture         =   "基础设置_车辆档案.frx":2D2A
  618.             Key             =   "bc"
  619.          EndProperty
  620.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  621.             Picture         =   "基础设置_车辆档案.frx":30C4
  622.             Key             =   "fq"
  623.          EndProperty
  624.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  625.             Picture         =   "基础设置_车辆档案.frx":345E
  626.             Key             =   "bz"
  627.          EndProperty
  628.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  629.             Picture         =   "基础设置_车辆档案.frx":37F8
  630.             Key             =   "tc"
  631.          EndProperty
  632.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  633.             Picture         =   "基础设置_车辆档案.frx":3B92
  634.             Key             =   "bcgs"
  635.          EndProperty
  636.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  637.             Picture         =   "基础设置_车辆档案.frx":3F2C
  638.             Key             =   "mrlk"
  639.          EndProperty
  640.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  641.             Picture         =   "基础设置_车辆档案.frx":42C6
  642.             Key             =   "xsxm"
  643.          EndProperty
  644.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  645.             Picture         =   "基础设置_车辆档案.frx":4660
  646.             Key             =   "first"
  647.          EndProperty
  648.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  649.             Picture         =   "基础设置_车辆档案.frx":49FA
  650.             Key             =   "prev"
  651.          EndProperty
  652.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  653.             Picture         =   "基础设置_车辆档案.frx":4D94
  654.             Key             =   "next"
  655.          EndProperty
  656.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  657.             Picture         =   "基础设置_车辆档案.frx":512E
  658.             Key             =   "last"
  659.          EndProperty
  660.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  661.             Picture         =   "基础设置_车辆档案.frx":54C8
  662.             Key             =   "xx"
  663.          EndProperty
  664.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  665.             Picture         =   "基础设置_车辆档案.frx":5862
  666.             Key             =   "define"
  667.          EndProperty
  668.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  669.             Picture         =   "基础设置_车辆档案.frx":5BFC
  670.             Key             =   "exec"
  671.          EndProperty
  672.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  673.             Picture         =   "基础设置_车辆档案.frx":5F96
  674.             Key             =   "xz"
  675.          EndProperty
  676.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  677.             Picture         =   "基础设置_车辆档案.frx":6330
  678.             Key             =   "sc"
  679.          EndProperty
  680.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  681.             Picture         =   "基础设置_车辆档案.frx":66CA
  682.             Key             =   "sx"
  683.          EndProperty
  684.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  685.             Picture         =   "基础设置_车辆档案.frx":6A64
  686.             Key             =   "cx"
  687.          EndProperty
  688.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  689.             Picture         =   "基础设置_车辆档案.frx":6DFE
  690.             Key             =   "zd"
  691.          EndProperty
  692.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  693.             Picture         =   "基础设置_车辆档案.frx":7198
  694.             Key             =   "dz"
  695.          EndProperty
  696.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  697.             Picture         =   "基础设置_车辆档案.frx":7532
  698.             Key             =   "ph"
  699.          EndProperty
  700.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  701.             Picture         =   "基础设置_车辆档案.frx":78CC
  702.             Key             =   "fz"
  703.          EndProperty
  704.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  705.             Picture         =   "基础设置_车辆档案.frx":7C66
  706.             Key             =   "dw"
  707.          EndProperty
  708.       EndProperty
  709.    End
  710. End
  711. Attribute VB_Name = "Tr_VehicleFile"
  712. Attribute VB_GlobalNameSpace = False
  713. Attribute VB_Creatable = False
  714. Attribute VB_PredeclaredId = True
  715. Attribute VB_Exposed = False
  716. '**********************************************************
  717. '*    模 块 名 称 :车辆档案设置
  718. '*    功 能 描 述 :设置企业的车辆档案
  719. '*    程序员姓名  :孙宝龙
  720. '*    最后修改人  :孙宝龙
  721. '*    最后修改时间:2001/12/06
  722. '*    备        注:封版(*所有自定义部分程序均用[>> <<]括起)
  723. '**********************************************************
  724. Dim StopFlag As Integer                  '停用标志判断
  725. Dim Int_Empty As Integer
  726. Dim Rec_CodeSet As New ADODB.Recordset   '编码设置表
  727. Dim jdzygs As Integer                    '控件焦点转移个数
  728. Dim Lrzt As Integer                      '录入状态标志(0-非录入状态 1-增加 2-修改)
  729. Dim ReportTitle As String                '报表主标题
  730. Dim Str_RightEdit As String              '编辑(新增、修改、删除)权限索引
  732. '以下为固定使用变量(网格)
  733. Dim Cxnrrec As New ADODB.Recordset       '显示查询内容动态集
  734. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  735. Dim GridCode As String                   '显示网格网格代码
  736. Dim GridInf() As Variant                 '整个网格设置信息
  737. Dim Tsxx As String                       '系统提示信息
  738. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  739. Dim Sjhgd As Double                      '网格数据行高度
  740. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  741. Dim GridStr()  As String                 '网格列信息(字符型)
  742. Dim GridInt() As Integer                 '网格列信息(整型)
  743. Dim szzls As Integer                     '数组总列数(网格列数-1)
  745. '以下为固定使用变量(文本框)
  746. Dim Textvar() As Variant                 '存储变体型文本框信息
  747. Dim Textboolean() As Boolean             '存储布尔型文本框信息
  748. Dim Textint() As Integer                 '存储整型文本框信息
  749. Dim Textstr() As String                  '存储字符型文本框信息
  750. Dim Max_Text_Index As Integer            '最大录入文本框索引值
  751. Dim TextGroupCode As String              '文本框录入分组编码
  752. Dim TextValiLock As Boolean              '文本框失去焦点是否进行有效性控制判断
  753. Dim TextValiJudgeLock() As Boolean       '文本框录入有效性判断控制锁
  754. Dim CurTextIndex As Integer              '当前文本框索引值
  755. Dim TextChangeLock As Boolean            '文本框内容变换控制锁
  756. Dim Bln_Cancel As Boolean                '取消按钮信息传递
  760. Private Sub Chk_Scrap_Click()
  761.    If Int_Empty = 1 Then Exit Sub
  762.    If StopFlag = 1 Then Exit Sub
  763.     If Chk_Scrap.Value = 1 Then
  764.         Tsxx = "确认要停用这辆车吗?"
  765.         If Xtxxts(Tsxx, 1, 2) = 6 Then
  766.             For jsqte = 0 To Max_Text_Index
  767.                 LrText(jsqte).Enabled = False
  768.                 If Textboolean(jsqte, 1) Then
  769.                   Ydcommand1(jsqte).Enabled = False
  770.                 End If
  771.             Next jsqte
  772.         Else
  773.             StopFlag = 1
  774.             Chk_Scrap.Value = 0
  775.             StopFlag = 0
  776.             Exit Sub
  777.         End If
  778.     Else
  779.         Tsxx = "确认这辆车不停用吗?"
  780.         If Xtxxts(Tsxx, 1, 2) = 6 Then
  781.            For jsqte = 0 To Max_Text_Index
  782.                 LrText(jsqte).Enabled = True
  783.                 If Textboolean(jsqte, 1) Then
  784.                   Ydcommand1(jsqte).Enabled = True
  785.                 End If
  786.             Next jsqte
  787.             If Lrzt = 1 Then
  788.                LrText(0).SetFocus
  789.             Else
  790.                LrText(1).SetFocus
  791.                LrText(0).Enabled = False
  792.             End If
  793.         Else
  794.             StopFlag = 1
  795.             Chk_Scrap.Value = 1
  796.             StopFlag = 0
  797.             Exit Sub
  798.         End If
  799.     End If
  800.     Int_Empty = 0
  801. End Sub
  803. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
  805.     jdzygs = 16
  806.     
  807.     Select Case KeyAscii
  808.         Case vbKeyReturn
  809.             If Kjjdzy(jdzygs) Then
  810.                 KeyAscii = 0
  811.             End If
  812.         Case 39           '屏蔽"'"
  813.             KeyAscii = 0
  814.     End Select
  815.    
  816. End Sub
  818. Private Sub Form_Load()
  819.   
  820.     '打印报表标题信息
  821.     ReportTitle = "车 辆 档 案"
  822.      
  823.     '调入打印页面设置窗体
  824.     XtReportCode = "Tr_VehicleFile"
  825.     Load Dyymctbl
  826.     
  827.     '以下为文本框处理程序(读入文本框录入信息)
  828.     TextGroupCode = "Tr_VehicleFile"
  829.     Call Drwbkxx(TextGroupCode, Textvar(), Textboolean(), Textint(), Textstr())
  830.     Call Wbkcsh
  831.     
  832.     '调入网格设置信息
  833.     GridCode = "Tr_VehicleFile"
  834.     Call BzWgcsh(CzxsGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  835.     Qslz = GridInf(1)
  836.     Sjhgd = GridInf(2)
  837.     szzls = CzxsGrid.Cols - 1
  838.     
  839.     '填 充 网 格
  840.     Call Cxnrtcwg
  841.        
  842.     '初始化ToolBar,Tab卡状态
  843.     StTab.Tab = 0
  844.     StTab.TabEnabled(1) = False
  845.     Frame1.Enabled = False
  846.     
  847.     '设置为非录入状态
  848.     Lrzt = 0
  849.      '[<<自定义
  850.     StopFlag = 0
  851.     '>>]
  852.     
  853.     '编辑(新增、修改、删除)权限索引
  854.     Str_RightEdit = "Tr_VehicleFile_Edit"
  855.     
  856.  End Sub
  857.  
  858. Private Sub Cxnrtcwg()                               '查询内容填充网格
  860.     Dim Sqlstr As String              '查询连接串
  861.     Dim jsqte As Long                '查询临时使用变量
  862.   
  863.     '为加快显示速度,将网格刷新动作冻结
  864.     CzxsGrid.Redraw = False
  865.   
  866.     '[>>查询连接串
  867.     Sqlstr = "SELECT Tr_V_VehicleFile.* FROM Tr_V_VehicleFile Order By VehicleNum"
  868.     '<<]
  869.     Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  870.     
  871.     With Cxnrrec
  872.         CzxsGrid.Rows = CzxsGrid.FixedRows
  873.         If .EOF And .BOF Then
  874.             CzxsGrid.Redraw = True
  875.             Exit Sub
  876.         End If
  877.         jsqte = CzxsGrid.FixedRows
  878.         Do While Not .EOF
  879.             CzxsGrid.AddItem ""
  880.             Call Jltcwg(Cxnrrec, jsqte)                              '调入填充网格子过程
  881.             CzxsGrid.RowHeight(jsqte) = Sjhgd                        '设置网格高度
  882.             .MoveNext
  883.             jsqte = jsqte + 1
  884.         Loop
  885.     End With
  886.   
  887.     '将网格刷新动作解冻
  888.     CzxsGrid.Redraw = True
  889.     
  890. End Sub
  892. Private Sub Jltcwg(Jlbrec As ADODB.Recordset, Rowjsq As Long)           '记录内容填充网格
  894.     '[>>以下为自定义部分
  895.     With Jlbrec
  896.        
  897.         CzxsGrid.TextMatrix(Rowjsq, Sydz("001", GridStr(), szzls)) = Trim(.Fields("VehicleNum") & "")               '车号
  898.         CzxsGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), szzls)) = Trim(.Fields("TypeName") & "")                 '存货名称
  899.         CzxsGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), szzls)) = Trim(.Fields("NowGradeName") & "")             '车辆等级
  900.         CzxsGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), szzls)) = Trim(.Fields("UseNatureName") & "")            '车辆使用性质
  901.         CzxsGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), szzls)) = Trim(.Fields("SituationName") & "")            '车辆状况
  902.         CzxsGrid.TextMatrix(Rowjsq, Sydz("006", GridStr(), szzls)) = Trim(.Fields("OwnerShipName") & "")            '车辆所有权
  903.         If .Fields("SelfWeight") <> 0 Then                                                                          '自重
  904.             CzxsGrid.TextMatrix(Rowjsq, Sydz("007", GridStr(), szzls)) = .Fields("SelfWeight")
  905.         Else
  906.             CzxsGrid.TextMatrix(Rowjsq, Sydz("007", GridStr(), szzls)) = ""
  907.         End If
  908.         If .Fields("LoadWeight") <> 0 Then                                                                          '载重
  909.             CzxsGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), szzls)) = .Fields("LoadWeight")
  910.         Else
  911.             CzxsGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), szzls)) = ""
  912.         End If
  913.         If .Fields("FormerValue") <> 0 Then                                                                         '原值
  914.             CzxsGrid.TextMatrix(Rowjsq, Sydz("009", GridStr(), szzls)) = .Fields("FormerValue")
  915.         Else
  916.             CzxsGrid.TextMatrix(Rowjsq, Sydz("009", GridStr(), szzls)) = ""
  917.         End If
  918.         If .Fields("YearOld") <> 0 Then                                                                             '年折旧率
  919.             CzxsGrid.TextMatrix(Rowjsq, Sydz("010", GridStr(), szzls)) = .Fields("YearOld")
  920.         Else
  921.             CzxsGrid.TextMatrix(Rowjsq, Sydz("010", GridStr(), szzls)) = ""
  922.         End If
  923.         If Not IsNull(.Fields("Outdays")) Then                                                                        '出厂日期
  924.             CzxsGrid.TextMatrix(Rowjsq, Sydz("011", GridStr(), szzls)) = Format(Trim(.Fields("Outdays")), "yyyy-mm-dd")
  925.         Else
  926.             CzxsGrid.TextMatrix(Rowjsq, Sydz("011", GridStr(), szzls)) = ""
  927.         End If
  928.         If .Fields("UseYear") <> 0 Then                                                                             '使用年限
  929.             CzxsGrid.TextMatrix(Rowjsq, Sydz("012", GridStr(), szzls)) = .Fields("UseYear")
  930.         Else
  931.             CzxsGrid.TextMatrix(Rowjsq, Sydz("012", GridStr(), szzls)) = ""
  932.         End If
  933.         CzxsGrid.TextMatrix(Rowjsq, Sydz("013", GridStr(), szzls)) = Trim(.Fields("MadeIn") & "")
  934.         CzxsGrid.TextMatrix(Rowjsq, Sydz("014", GridStr(), szzls)) = Trim(.Fields("RightUnit") & "")
  935.         CzxsGrid.TextMatrix(Rowjsq, Sydz("015", GridStr(), szzls)) = Trim(.Fields("Remark") & "")
  936.         If Trim(.Fields("IfScrap")) = True Then
  937.             CzxsGrid.TextMatrix(Rowjsq, Sydz("016", GridStr(), szzls)) = "停用"             '是否停用
  938.         Else
  939.             CzxsGrid.TextMatrix(Rowjsq, Sydz("016", GridStr(), szzls)) = "未停用"
  940.         End If
  941.        
  942.     End With
  943.     '以上为自定义部分<<]
  944.     
  945. End Sub
  947. Private Sub Form_Unload(Cancel As Integer)             '窗体卸载
  949.     Set Cxnrrec = Nothing
  950.     Set Rec_CodeSet = Nothing
  951.     Unload Dyymctbl
  952.    
  953. End Sub
  955. Private Function Bclrsj() As Boolean                   '判断录入数据有效性,并保存数据
  957.     Dim jsqte As Integer
  958.   
  959.     '对文本框录入内容进行为零和为空判断(固定不变)
  960.     With Rec_CodeSet
  961.         For jsqte = 0 To Max_Text_Index
  962.             If Textint(jsqte, 8) = 1 Then     '字段不能为空
  963.                 If Len(Trim(LrText(jsqte).Text)) = 0 Then
  964.                     Tsxx = Textstr(jsqte, 7) & "不能为空!"
  965.                     Call Xtxxts(Tsxx, 0, 1)
  966.                     LrText(jsqte).SetFocus
  967.                     Bclrsj = False
  968.                     Exit Function
  969.                 End If
  970.             Else
  971.                 If Textint(jsqte, 8) = 2 Then   '字段不能为零
  972.                     If Val(Trim(LrText(jsqte).Text)) = 0 Then
  973.                         Tsxx = Textstr(jsqte, 7) & "不能为零!"
  974.                         Call Xtxxts(Tsxx, 0, 1)
  975.                         LrText(jsqte).SetFocus
  976.                         Bclrsj = False
  977.                         Exit Function
  978.                     End If
  979.                 End If
  980.             End If
  981.         Next jsqte
  982.     
  983.         '对需要进行事后判断的文本框录入内容进行有效性判断 (固定不变)
  984.         For jsqte = 0 To Max_Text_Index
  985.             If Textint(jsqte, 9) = 0 Or Textint(jsqte, 9) = 2 Then
  986.                 If Not TextYxxpd(jsqte) Then
  987.                     Exit Function
  988.                 End If
  989.             End If
  990.         Next jsqte
  991.    
  992.         If Lrzt = 1 Then  '增 加
  993.         
  994.             '[>>判断编码是否重复
  995.             If .State = 1 Then
  996.                 Set Rec_CodeSet = Nothing
  997.                 .Close
  998.             End If
  999.             .Open "SELECT * FROM Tr_VehicleFile WHERE VehicleNum= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1000.             
  1001.             If Not .EOF Then
  1002.                 Tsxx = "车号重复!"
  1003.                 Call Xtxxts(Tsxx, 0, 1)
  1004.                 LrText(0).SetFocus
  1005.                 Bclrsj = False
  1006.                 Exit Function
  1007.             End If
  1008.            
  1009.     
  1010.     
  1011.             '判断记录内容无误后,将记录内容写入数据表
  1012.             On Error GoTo Swcwcl
  1014.             Cw_DataEnvi.DataConnect.BeginTrans
  1015.    
  1016.             .AddNew
  1017.                 .Fields("VehicleNum") = Trim(LrText(0).Text)          '车号
  1018.                 .Fields("TypeCode") = Trim(LrText(1).Tag)             '车辆类型
  1019.                 .Fields("NowGradeCode") = Trim(LrText(2).Tag)         '车辆等级
  1020.                 .Fields("UseNatureCode") = Trim(LrText(3).Tag)        '车辆使用性质
  1021.                 .Fields("SituationCode") = Trim(LrText(4).Tag)        '车辆状况
  1022.                 .Fields("OwnerShipCode") = Trim(LrText(5).Tag)        '车辆所有权
  1023.                 .Fields("SelfWeight") = Val(LrText(6).Text)           '自重
  1024.                 .Fields("LoadWeight") = Val(LrText(7).Text)           '载重
  1025.                 .Fields("FormerValue") = Val(LrText(8).Text)          '原值
  1026.                 .Fields("YearOld") = Val(LrText(9).Text)              '年折旧率
  1027.                 If Trim(LrText(10).Text) <> "" Then
  1028.                   .Fields("Outdays") = Format(Trim(LrText(10).Text), "yyyy-mm-dd")        '出厂日期
  1029.                 Else
  1030.                   .Fields("Outdays") = Null
  1031.                 End If
  1032.                 .Fields("UseYear") = Val(LrText(11).Text)             '使用年限
  1033.                 If Trim(LrText(12).Text) <> "" Then
  1034.                   .Fields("MadeIn") = Trim(LrText(12).Text)           '制造单位
  1035.                 Else
  1036.                   .Fields("MadeIn") = Null
  1037.                 End If
  1038.                 If Trim(LrText(13).Text) <> "" Then
  1039.                   .Fields("RightUnit") = Trim(LrText(13).Text)        '产权单位
  1040.                 Else
  1041.                   .Fields("RightUnit") = Null
  1042.                 End If
  1043.                 If Trim(LrText(14).Text) <> "" Then
  1044.                   .Fields("Remark") = Trim(LrText(14).Text)        '产权单位
  1045.                 Else
  1046.                   .Fields("Remark") = Null
  1047.                 End If
  1048.                 If Chk_Scrap.Value = 1 Then                           '停用标记
  1049.                    .Fields("IfScrap") = 1
  1050.                 Else
  1051.                    .Fields("IfScrap") = 0
  1052.                 End If
  1053.                 
  1054.             .Update
  1055.             
  1056.             Cw_DataEnvi.DataConnect.CommitTrans
  1057.    
  1058.             '将记录加入网格
  1059.             Sqlstr = "SELECT * FROM Tr_V_VehicleFile WHERE VehicleNum= '" + Trim(LrText(0).Text) + "'"
  1060.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1061.             
  1062.             With CzxsGrid
  1063.                 .AddItem ""
  1064.                 .RowHeight(.Rows - 1) = Sjhgd
  1065.                 .Select .Rows - 1, Qslz
  1066.                 Call Jltcwg(Cxnrrec, .Rows - 1)
  1067.             End With
  1068.    
  1069.             Tsxx = "保存完毕!"
  1070.             Call Xtxxts(Tsxx, 0, 4)
  1071.             Int_Empty = 1
  1072.             Call Cshlrxx(1)
  1073.             For jsqte = 0 To Max_Text_Index
  1074.                 LrText(jsqte).Enabled = True
  1075.                 If Textboolean(jsqte, 1) Then
  1076.                   Ydcommand1(jsqte).Enabled = True
  1077.                 End If
  1078.             Next jsqte
  1079.             LrText(0).SetFocus
  1080.             Int_Empty = 1
  1081.               Chk_Scrap.Value = 0
  1082.             Int_Empty = 0
  1083.             '将网格按编码排序
  1084.             With CzxsGrid
  1085.                 .Col = Sydz("001", GridStr(), szzls)
  1086.                 CzxsGrid.Sort = flexSortStringAscending
  1087.             End With
  1088.             '<<]
  1089.     
  1090.         Else  '否则为修改记录
  1091.  
  1092.         
  1093.             On Error GoTo Swcwcl
  1094.         
  1095.             Cw_DataEnvi.DataConnect.BeginTrans
  1096.          
  1097.             If .State = 1 Then
  1098.               Set Rec_CodeSet = Nothing
  1099.               .Close
  1100.             End If
  1101.             .Open "SELECT * FROM Tr_VehicleFile WHERE VehicleNum= '" + Trim(LrText(0).Text) + "'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1102.              
  1103.             If Not .EOF Then
  1104.                 .Fields("TypeCode") = Trim(LrText(1).Tag)             '车辆类型
  1105.                 .Fields("NowGradeCode") = Trim(LrText(2).Tag)         '车辆等级
  1106.                 .Fields("UseNatureCode") = Trim(LrText(3).Tag)        '车辆使用性质
  1107.                 .Fields("SituationCode") = Trim(LrText(4).Tag)        '车辆状况
  1108.                 .Fields("OwnerShipCode") = Trim(LrText(5).Tag)        '车辆所有权
  1109.                 .Fields("SelfWeight") = Val(LrText(6).Text)           '自重
  1110.                 .Fields("LoadWeight") = Val(LrText(7).Text)           '载重
  1111.                 .Fields("FormerValue") = Val(LrText(8).Text)          '原值
  1112.                 .Fields("YearOld") = Val(LrText(9).Text)              '年折旧率
  1113.                 If Trim(LrText(10).Text) <> "" Then
  1114.                   .Fields("Outdays") = Format(Trim(LrText(10).Text), "yyyy-mm-dd")        '出厂日期
  1115.                 Else
  1116.                   .Fields("Outdays") = Null
  1117.                 End If
  1118.                 .Fields("UseYear") = Val(LrText(11).Text)             '使用年限
  1119.                 If Trim(LrText(12).Text) <> "" Then
  1120.                   .Fields("MadeIn") = Trim(LrText(12).Text)           '制造单位
  1121.                 Else
  1122.                   .Fields("MadeIn") = Null
  1123.                 End If
  1124.                 If Trim(LrText(13).Text) <> "" Then
  1125.                   .Fields("RightUnit") = Trim(LrText(13).Text)        '产权单位
  1126.                 Else
  1127.                   .Fields("RightUnit") = Null
  1128.                 End If
  1129.                 If Trim(LrText(14).Text) <> "" Then
  1130.                   .Fields("Remark") = Trim(LrText(14).Text)        '产权单位
  1131.                 Else
  1132.                   .Fields("Remark") = Null
  1133.                 End If
  1134.                 If Chk_Scrap.Value = 1 Then                           '停用标记
  1135.                    .Fields("IfScrap") = 1
  1136.                 Else
  1137.                    .Fields("IfScrap") = 0
  1138.                 End If
  1139.                 .Update
  1140.             End If
  1141.             
  1142.             Cw_DataEnvi.DataConnect.CommitTrans
  1143.             
  1144.             '刷新当前网格
  1145.             Sqlstr = "SELECT * FROM Tr_V_VehicleFile WHERE VehicleNum= '" + Trim(LrText(0).Text) + "'"
  1146.             Set Cxnrrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1147.             
  1148.             If Not Cxnrrec.EOF Then
  1149.                 With CzxsGrid
  1150.                     Call Jltcwg(Cxnrrec, .Row)
  1151.                 End With
  1152.             Else
  1153.                 Tsxx = "该记录已经被其他人删除,请刷新当前数据!"
  1154.                 Call Xtxxts(Tsxx, 0, 4)
  1155.                 Exit Function
  1156.             End If
  1158.         End If
  1159.      
  1160.         '保存记录成功,函数返回真值
  1161.         Bclrsj = True
  1162.         Exit Function
  1163.     End With
  1164.  
  1165. Swcwcl:
  1166. '
  1167.     If Err.Number = -2147217887 Then
  1168.       Cw_DataEnvi.DataConnect.RollbackTrans
  1169.       Tsxx = "数值录入不规范!"
  1170.       Call Xtxxts(Tsxx, 0, 1)
  1171.       Set Rec_CodeSet = Nothing
  1172.       Exit Function
  1173.     Else
  1174.       Cw_DataEnvi.DataConnect.RollbackTrans
  1175.       Tsxx = "存盘过程中出现错误,程序自动恢复保存前状态!"
  1176.       Call Xtxxts(Tsxx, 0, 1)
  1177.       Exit Function
  1178.     End If
  1179. End Function
  1181. Private Function Cshlrxx(lrztxx As Integer) As Boolean              '初始化录入字段信息
  1183.     TextChangeLock = True       '关闭文本框Chang事件
  1184.     
  1185.     If lrztxx = 1 Then
  1186.     
  1187.         '增加新记录时将文本框清空
  1188.         For jsqte = 0 To Max_Text_Index
  1189.             If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  1190.                 LrText(jsqte).Text = ""
  1191.                 LrText(jsqte).Tag = ""
  1192.             End If
  1193.             TextValiJudgeLock(jsqte) = True
  1194.         Next jsqte
  1195.         
  1196.         '[>>
  1197.         '在此处可添加新增记录时初始化设置
  1198. '        Chk_Scrap.Value = 0
  1199. '        StopFlag = 1
  1200.         '<<]
  1201.     Else
  1202.     
  1203.         '修改记录时根据记录关键字(编码)从数据表中读入其他字段内容
  1204.         With RecTemp
  1205.         
  1206.             Sqlstr = "SELECT Tr_V_VehicleFile.* FROM Tr_V_VehicleFile Where VehicleNum='" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), szzls))) & "'"
  1207.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1208.        
  1209.             '记录如存在则读入其内容,否则提示记录已被其他人删除
  1210.             If Not RecTemp.EOF Then
  1211.                 LrText(0).Text = Trim(.Fields("VehicleNum") & "")                '车号
  1212.                 LrText(1).Text = Trim(.Fields("TypeName") & "")                  '车辆类型
  1213.                 LrText(1).Tag = Trim(.Fields("TypeCode") & "")
  1214.                 LrText(2).Text = Trim(.Fields("NowGradeName") & "")              '车辆等级
  1215.                 LrText(2).Tag = Trim(.Fields("NowGradeCode") & "")
  1216.                 LrText(3).Text = Trim(.Fields("UseNatureName") & "")             '车辆使用性质
  1217.                 LrText(3).Tag = Trim(.Fields("UseNatureCode") & "")
  1218.                 LrText(4).Text = Trim(.Fields("SituationName") & "")             '车辆状况
  1219.                 LrText(4).Tag = Trim(.Fields("SituationCode") & "")
  1220.                 LrText(5).Text = Trim(.Fields("OwnerShipName") & "")             '车辆所有权
  1221.                 LrText(5).Tag = Trim(.Fields("OwnerShipCode") & "")
  1222.                 If .Fields("SelfWeight") <> 0 Then                                                                          '自重
  1223.                     LrText(6).Text = .Fields("SelfWeight")
  1224.                 Else
  1225.                     LrText(6).Text = ""
  1226.                 End If
  1227.                 If .Fields("LoadWeight") <> 0 Then                                                                          '载重
  1228.                     LrText(7).Text = .Fields("LoadWeight")
  1229.                 Else
  1230.                     LrText(7).Text = ""
  1231.                 End If
  1232.                 If .Fields("FormerValue") <> 0 Then                                                                         '原值
  1233.                     LrText(8).Text = .Fields("FormerValue")
  1234.                 Else
  1235.                     LrText(8).Text = ""
  1236.                 End If
  1237.          
  1238.                 If .Fields("YearOld") <> 0 Then                                                                             '年折旧率
  1239.                     LrText(9).Text = .Fields("YearOld")
  1240.                 Else
  1241.                     LrText(9).Text = ""
  1242.                 End If
  1243.                 
  1244.                 If Not IsNull(.Fields("Outdays")) Then                                                                        '出厂日期
  1245.                     LrText(10).Text = Format(Trim(.Fields("Outdays")), "yyyy-mm-dd")
  1246.                 Else
  1247.                     LrText(10).Text = ""
  1248.                 End If
  1249.            
  1250.                 If .Fields("UseYear") <> 0 Then                                                                             '使用年限
  1251.                     LrText(11).Text = .Fields("UseYear")
  1252.                 Else
  1253.                     LrText(11).Text = ""
  1254.                 End If
  1255.             
  1256.                 If Not IsNull(.Fields("MadeIn")) Then                                                                         '制造单位
  1257.                     LrText(12).Text = Trim(.Fields("MadeIn") & "")
  1258.                 Else
  1259.                     LrText(12).Text = ""
  1260.                 End If
  1261.     
  1262.                 If Not IsNull(.Fields("RightUnit")) Then                                                                      '产权单位
  1263.                     LrText(13).Text = Trim(.Fields("RightUnit") & "")
  1264.                 Else
  1265.                     LrText(13).Text = ""
  1266.                 End If
  1267.                 
  1268.                 If Not IsNull(.Fields("Remark")) Then                                                                         '备注
  1269.                     LrText(14).Text = Trim(.Fields("Remark") & "")
  1270.                 Else
  1271.                     LrText(14).Text = ""
  1272.                 End If
  1273.           
  1274.             
  1275.                 Chk_Scrap.Enabled = True
  1276.                 If .Fields("IfScrap") Then                                                                                  '停用标记
  1277.                    StopFlag = 1
  1278.                    Chk_Scrap.Value = 1
  1279.                    StopFlag = 0
  1280.                 Else
  1281.                    StopFlag = 1
  1282.                    Chk_Scrap.Value = 0
  1283.                    StopFlag = 0
  1284.                 End If
  1285.             Else
  1286.                 Tsxx = "该记录已经被其他人删除,请刷新当前数据!"
  1287.                 Call Xtxxts(Tsxx, 0, 4)
  1288.                 Call Cancel
  1289.                 TextChangeLock = False
  1290.                 Exit Function
  1291.             End If
  1292.             
  1293.         End With
  1294.         
  1295.     End If
  1296.     
  1297.     Cshlrxx = True
  1298.     TextChangeLock = False
  1299.     
  1300. End Function
  1302. Private Sub Scdqjl()                 '删 除 当 前 记 录
  1304.     Dim yhAnswer As Integer
  1305.     
  1306.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1307.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1308.         Exit Sub
  1309.     End If
  1310.     
  1311.     '非数据行不能删除
  1312.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1313.         Exit Sub
  1314.     End If
  1315.   
  1316.     '用户确认是否删除记录
  1317.     Tsxx = "请确认是否删除当前记录?"
  1318.     yhAnswer = Xtxxts(Tsxx, 2, 2)
  1319.     
  1320.     If yhAnswer = 2 Then
  1321.         Exit Sub
  1322.     End If
  1323.   
  1324.     On Error GoTo Cwcl
  1325.   
  1326.     Cw_DataEnvi.DataConnect.BeginTrans
  1327.   
  1328.     '[以下需自定义部分
  1329.     Cw_DataEnvi.DataConnect.Execute "delete Tr_VehicleFile where VehicleNum = '" + Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), szzls))) + "'"
  1330.     '以上为自定义部分]
  1331.   
  1332.     Cw_DataEnvi.DataConnect.CommitTrans
  1333.     
  1334.     CzxsGrid.RemoveItem CzxsGrid.Row
  1335.   
  1336.     Exit Sub
  1337.   
  1338. Cwcl:
  1340.     Cw_DataEnvi.DataConnect.RollbackTrans
  1341.     
  1342.     If Err.Number = -2147217873 Then              '(-2147217873 为SQL Server 2000通过建立外键产生的错误号)
  1343.         Tsxx = "此车已经被使用,不能删除!"
  1344.         Call Xtxxts(Tsxx, 0, 1)
  1345.         Exit Sub
  1346.     Else
  1347.         Tsxx = "出现未知情况,该编码不能被删除!"
  1348.         Call Xtxxts(Tsxx, 0, 1)
  1349.         Exit Sub
  1350.     End If
  1351.     
  1352. End Sub
  1354. '*******************以下区域为编写自定义过程区域**********************
  1357. '*******************以上区域为编写自定义过程区域**********************
  1359. '*******************************以下为基本处理程序(固定不变)*******************************************'
  1360. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  1362.     If Shift = 2 Then
  1363.         Select Case UCase(Chr(KeyCode))
  1364.             Case "P"                                                                          'Ctrl+P 打印
  1365.                 If SzToolbar.Buttons("dy").Visible And SzToolbar.Buttons("dy").Enabled Then
  1366.                     Call bbyl(False)
  1367.                 End If
  1368.             Case "A"                                                                          'Ctrl+A 增加
  1369.                 '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1370.                 If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1371.                     Exit Sub
  1372.                 End If
  1373.                 If SzToolbar.Buttons("zj").Visible And SzToolbar.Buttons("zj").Enabled Then
  1374.                     Call Toolbjzt
  1375.                     Lrzt = 1
  1376.                     Call Cshlrxx(Lrzt)
  1377.                     For jsqte = 0 To Max_Text_Index
  1378.                         LrText(jsqte).Enabled = True
  1379.                         If Textboolean(jsqte, 1) Then
  1380.                            Ydcommand1(jsqte).Enabled = True
  1381.                         End If
  1382.                     Next jsqte
  1383.                     LrText(0).Enabled = True
  1384.                     LrText(0).SetFocus
  1385.                 End If
  1386.             Case "D"                                                                          'Ctrl+D 删除
  1387.                 If SzToolbar.Buttons("sc").Visible And SzToolbar.Buttons("sc").Enabled Then
  1388.                     Call Scdqjl
  1389.                 End If
  1390.         End Select
  1391.     End If
  1392.   
  1393. End Sub
  1395. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  1397.     Select Case Button.Key
  1398.         Case "ymsz"                                          '页面设置
  1399.             Dyymctbl.Show 1
  1400.         Case "yl"                                            '预 览
  1401.             Call bbyl(True)
  1402.         Case "dy"                                            '打 印
  1403.              Call bbyl(False)
  1404.         Case "zj"                                            '增 加
  1405.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1406.             If Not Security_Log(Str_RightEdit, Xtczybm, 1, True) Then
  1407.                 Exit Sub
  1408.             End If
  1409.             Call Toolbjzt
  1410.             Lrzt = 1
  1411.             Call Cshlrxx(Lrzt)
  1412.             For jsqte = 0 To Max_Text_Index
  1413.                 LrText(jsqte).Enabled = True
  1414.                 If Textboolean(jsqte, 1) Then
  1415.                   Ydcommand1(jsqte).Enabled = True
  1416.                 End If
  1417.             Next jsqte
  1418.             LrText(0).SetFocus
  1419.         Case "xg"                                            '修 改
  1420.             Call Xgdqjl
  1421.         Case "sc"                                            '删 除
  1422.             Call Scdqjl
  1423.         Case "sx"                                            '刷 新
  1424.             Call Cxnrtcwg
  1425.         Case "bz"                                            '帮 助
  1426.             Call F1bz
  1427.         Case "fh"                                            '退 出
  1428.             Unload Me
  1429.     End Select
  1430.     
  1431. End Sub
  1433. Private Sub CzxsGrid_DblClick()                                         '修改当前编码记录
  1435.     Call Xgdqjl
  1436.     
  1437. End Sub
  1439. Private Sub Xgdqjl()                                                    '修改当前编码记录
  1440.     Dim Findrec As New ADODB.Recordset
  1441.     Dim Sqlstr As String
  1442.     
  1443.     '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  1444.     If Not Security_Log(Str_RightEdit, Xtczybm, 1, True, False) Then
  1445.         BcCommand.Enabled = False
  1446.     End If
  1447.         
  1448.     If CzxsGrid.Row < CzxsGrid.FixedRows Then
  1449.         Exit Sub
  1450.     End If
  1451.     
  1452.     Call Toolbjzt
  1453.     Lrzt = 2
  1454.     
  1455.     If Cshlrxx(Lrzt) Then
  1456.         Sqlstr = "SELECT Tr_V_VehicleFile.* FROM Tr_V_VehicleFile Where VehicleNum='" & Trim(CzxsGrid.TextMatrix(CzxsGrid.Row, Sydz("001", GridStr(), szzls))) & "'and ifscrap=1"
  1457.         Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1458.         If Findrec.EOF Then
  1459.             For jsqte = 0 To Max_Text_Index
  1460.                 LrText(jsqte).Enabled = True
  1461.                 If Textboolean(jsqte, 1) Then
  1462.                   Ydcommand1(jsqte).Enabled = True
  1463.                 End If
  1464.             Next jsqte
  1465.             LrText(1).SetFocus
  1466.             LrText(0).Enabled = False
  1467.         Else
  1468.             For jsqte = 0 To Max_Text_Index
  1469.                 LrText(jsqte).Enabled = False
  1470.                 If Textboolean(jsqte, 1) Then
  1471.                   Ydcommand1(jsqte).Enabled = False
  1472.                 End If
  1473.             Next jsqte
  1474.         End If
  1475.     End If
  1476.   
  1477. End Sub
  1479. Private Sub Toolbjzt()                                                  'Toolbar状态(编辑状态)
  1481.     StTab.TabEnabled(1) = True
  1482.     StTab.Tab = 1
  1483.     Frame1.Enabled = True
  1484.     StTab.TabEnabled(0) = False
  1485.     CzxsGrid.Enabled = False
  1486.     
  1487.     With SzToolbar
  1488.         .Buttons("ymsz").Enabled = False
  1489.         .Buttons("dy").Enabled = False
  1490.         .Buttons("yl").Enabled = False
  1491.         .Buttons("zj").Enabled = False
  1492.         .Buttons("xg").Enabled = False
  1493.         .Buttons("sc").Enabled = False
  1494.         .Buttons("sx").Enabled = False
  1495.     End With
  1496.   
  1497. End Sub
  1499. Private Sub Toolfbjzt()                                                 'Toolbar状态(非编辑状态)
  1501.     StTab.TabEnabled(0) = True
  1502.     StTab.Tab = 0
  1503.     CzxsGrid.Enabled = True
  1504.     Frame1.Enabled = False
  1505.     StTab.TabEnabled(1) = False
  1506.     Lrzt = 0
  1507.     
  1508.     With SzToolbar
  1509.         .Buttons("ymsz").Enabled = True
  1510.         .Buttons("dy").Enabled = True
  1511.         .Buttons("yl").Enabled = True
  1512.         .Buttons("zj").Enabled = True
  1513.         .Buttons("xg").Enabled = True
  1514.         .Buttons("sc").Enabled = True
  1515.         .Buttons("sx").Enabled = True
  1516.     End With
  1517.   
  1518. End Sub
  1520. Private Sub BcCommand_Click()                                           '保 存
  1522.     If Not Bclrsj Then
  1523.         Exit Sub
  1524.     End If
  1525.     
  1526.     If Lrzt = 2 Then
  1527.         Call Toolfbjzt
  1528.     End If
  1529.   
  1530. End Sub
  1532. Private Sub QxCommand_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)       '取消
  1533.   
  1534.     '避免执行Click程序
  1535.     Bln_Cancel = True
  1536.     
  1537.     Call Cancel
  1538.   
  1539. End Sub
  1541. Private Sub QxCommand_Click()                                           '取消
  1543.     If Bln_Cancel Then
  1544.         Bln_Cancel = False
  1545.         Exit Sub
  1546.     End If
  1547.     
  1548.     Call Cancel
  1549.     
  1550. End Sub
  1552. Private Sub Cancel()                                                    '取消
  1554.     '文本框加锁
  1555.     For jsqte = 0 To Max_Text_Index
  1556.         TextValiJudgeLock(jsqte) = True
  1557.     Next jsqte
  1558.     
  1559.     Call Toolfbjzt
  1560.   
  1561. End Sub
  1563. Private Sub CzxsGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  1564.   
  1565.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  1566.   
  1567. End Sub
  1569. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  1571.     Select Case Button.Key
  1572.         Case "bcgs"                                       '保存表格格式
  1573.             Call Bcwggs(CzxsGrid, GridCode, GridStr())
  1574.         Case "hfmrgs"                                     '恢复默认格式
  1575.             Call Hfmrgs(CzxsGrid, GridCode, GridStr())
  1576.         Case "szxsxm"                                     '设置显示项目
  1577.             Call Szxsxm(CzxsGrid, GridCode)
  1578.     End Select
  1579.     
  1580. End Sub
  1582. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1584.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1585.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1586.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1587.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1588.     ReDim Bbxbt(1 To Bbxbtgs)
  1589.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1590.     
  1591.     If Bbbwhgs <> 0 Then
  1592.         ReDim Bbbwh(1 To Bbbwhgs)
  1593.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1594.     End If
  1595.     
  1596.     Bbzbt = ReportTitle
  1597.     Bbxbt(1) = " "
  1598.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1599.   
  1600.     Call Scyxsjb(CzxsGrid)                               '生成报表数据
  1601.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1602.     
  1603.     If Not bbylte Then
  1604.         Unload DY_Tybbyldy
  1605.     End If
  1606.     
  1607. End Sub
  1609. '************以下为文本框录入处理程序(固定不变部分)*************'
  1611. Private Sub Wbklrwbcl(Index As Integer)    '文本框录入事后处理程序
  1612.   
  1613.     '以下为依据实际情况自定义部分[
  1614.     
  1615.         '在此填写文本框录入事后处理程序
  1616.      
  1617.     ']以上为依据实际情况自定义部分
  1618.   
  1619. End Sub
  1621. Private Sub LrText_Change(Index As Integer)
  1623.     '屏蔽程序改变控制
  1624.     If TextChangeLock Then
  1625.         Exit Sub
  1626.     End If
  1627.     
  1628.     TextValiJudgeLock(Index) = False    '打开有效性判断锁
  1629.     
  1630.     '限制字段录入长度
  1631.           
  1632.     TextChangeLock = True  '加锁(防止执行Lrtext_Change)
  1633.      
  1634.     Select Case Textint(Index, 1)
  1635.         Case 8, 11       '金额型
  1636.             Call Sjgskz(LrText(Index), Xtjezws - Xtjexsws - 1, Xtjexsws)
  1637.         Case 9, 12       '数量型
  1638.             Call Sjgskz(LrText(Index), Xtslzws - Xtslxsws - 1, Xtslxsws)
  1639.         Case 10          '单价型
  1640.             Call Sjgskz(LrText(Index), Xtdjzws - Xtdjxsws - 1, Xtdjxsws)
  1641.         Case Else        '其他小数类型控制
  1642.             If Textint(Index, 6) <> 0 Or Textint(Index, 7) <> 0 Then
  1643.                 Call Sjgskz(LrText(Index), Textint(Index, 6), Textint(Index, 7))
  1644.             End If
  1645.     End Select
  1646.         
  1647.     TextChangeLock = False '解锁
  1648.    
  1649. End Sub
  1651. Private Sub LrText_GotFocus(Index As Integer)                                                 '文本框得到焦点,显示相应信息
  1652.    
  1653.     Call TextShow(Index)
  1654.     CurTextIndex = Index
  1655.     LrText(Index).SelStart = Len(LrText(Index))
  1656.    
  1657. End Sub
  1659. Private Sub LrText_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)            '字段按F2键提供帮助
  1660.    
  1661.     Select Case KeyCode
  1662.         Case vbKeyF2
  1663.             Call Text_Help(Index)
  1664.     End Select
  1665.    
  1666. End Sub
  1668. Private Sub LrText_KeyPress(Index As Integer, KeyAscii As Integer)                            '文本框录入事中控制
  1669.    
  1670.     Call InputFieldLimit(LrText(Index), Textint(Index, 1), KeyAscii)
  1672. End Sub
  1674. Private Sub LrText_LostFocus(Index As Integer)                                                '文本框失去焦点
  1676.     '显示相应信息但不能进行有效性判断
  1677.   
  1678. End Sub
  1680. Private Sub Ydcommand1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)     '按钮提供帮助
  1681.    
  1682.     Call Text_Help(Index)
  1683.     
  1684. End Sub
  1686. Private Sub Text_Help(Index As Integer)                                                       '录入字段帮助
  1687.   
  1688.     If Not Textboolean(Index, 1) Then
  1689.         Exit Sub
  1690.     End If
  1691.      
  1692.     '调用帮助
  1693.     Call Drbmhelp(Textint(Index, 2), Textstr(Index, 4), Trim(LrText(Index).Text))
  1694.   
  1695.     '根据设置选择显示编码和名称,并进行存储
  1696.     If Len(Xtfhcs) <> 0 Then
  1697.         If Textint(Index, 3) = 1 Then
  1698.             LrText(Index).Text = Xtfhcsfz
  1699.             LrText(Index).Tag = Xtfhcs
  1700.         Else
  1701.             LrText(Index).Text = Xtfhcs
  1702.             LrText(Index).Tag = Xtfhcsfz
  1703.         End If
  1704.     End If
  1705.    
  1706.     LrText(Index).SetFocus
  1707.     
  1708. End Sub
  1710. Private Sub TextShow(Index As Integer)        '文本框得到焦点,显示相应信息
  1712.     '填写文本框得到焦点,进行相应信息处理程序
  1713.    
  1714. End Sub
  1716. Private Sub Wbkcsh()                          '录入文本框初始化
  1718.     Dim jsqte As Long
  1719.   
  1720.     '最大录入文本框索引值
  1721.     Max_Text_Index = Textvar(1)
  1722.   
  1723.     ReDim TextValiJudgeLock(Max_Text_Index)
  1724.   
  1725.     For jsqte = 0 To Max_Text_Index
  1726.         If Len(Trim(Textstr(jsqte, 1))) <> 0 Then
  1727.             If Textboolean(jsqte, 1) Then
  1728.                 If jsqte <> 0 And Not Textboolean(jsqte, 3) Then
  1729.                     Load Ydcommand1(jsqte)
  1730.                 End If
  1731.                 Ydcommand1(jsqte).Visible = True
  1732.                 Ydcommand1(jsqte).Move LrText(jsqte).Left + LrText(jsqte).Width, LrText(jsqte).Top
  1733.             End If
  1734.             
  1735.             TextChangeLock = True
  1736.             LrText(jsqte).Text = ""
  1737.             LrText(jsqte).Tag = ""
  1738.             
  1739.             If Textint(jsqte, 5) <> 0 Then
  1740.                 LrText(jsqte).MaxLength = Textint(jsqte, 5)
  1741.             End If
  1742.             
  1743.             TextChangeLock = False
  1744.         End If
  1745.        
  1746.         TextValiJudgeLock(jsqte) = True
  1747.     Next jsqte
  1748.     
  1749. End Sub
  1751. Private Function TextYxxpd(Index As Integer) As Boolean           '文本框有效性判断
  1753.     Dim Sqlstr As String
  1754.     Dim Findrec As ADODB.Recordset
  1755.   
  1756.     '文本框内容未曾改变不进行有效性判断
  1757.     If TextValiJudgeLock(Index) Then
  1758.         TextYxxpd = True
  1759.         Exit Function
  1760.     End If
  1761.   
  1762.     '文本框内容为空认为有效,并清空其Tag值
  1763.     If Trim(LrText(Index)) = "" Then
  1764.         LrText(Index).Tag = ""
  1765.         Call Wbklrwbcl(Index)
  1766.         TextValiJudgeLock(Index) = True
  1767.         TextYxxpd = True
  1768.         Exit Function
  1769.     End If
  1770.   
  1771.     '可在此加入不做有效性判断的理由
  1772.     Select Case Textint(Index, 4)
  1773.         Case 1      '编码型
  1774.             Sqlstr = Trim(Textstr(Index, 5))
  1775.             Sqlstr = Replace(Sqlstr, "@", "'" + Trim(LrText(Index).Text) + "'")
  1776.             Set Findrec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1777.             
  1778.             If Findrec.EOF Then
  1779.                 Call Xtxxts(Trim(Textstr(Index, 6)), 0, 1)
  1780.                 LrText(Index).SetFocus
  1781.                 Exit Function
  1782.             Else
  1783.                 Select Case Textint(Index, 3)
  1784.                     Case 0
  1785.                     
  1786.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1787.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1788.                         End If
  1789.                         
  1790.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1791.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1792.                         End If
  1793.                         
  1794.                     Case 1
  1795.                     
  1796.                         If Len(Trim(Textstr(Index, 3) & "")) <> 0 Then
  1797.                             LrText(Index).Text = Trim(Findrec.Fields(Trim(Textstr(Index, 3))))
  1798.                         End If
  1799.                         
  1800.                         If Len(Trim(Textstr(Index, 2))) <> 0 Then
  1801.                             LrText(Index).Tag = Trim(Findrec.Fields(Trim(Textstr(Index, 2))))
  1802.                         End If
  1803.                 End Select
  1804.             End If
  1805.             
  1806.         Case 2      '日期型
  1807.             If IsDate(LrText(Index).Text) Then
  1808.                 LrText(Index).Text = Format(LrText(Index).Text, "yyyy-mm-dd")
  1809.                 If Val(Mid(LrText(Index), 1, 4)) < 1900 Then
  1810.                     LrText(Index).Text = "1900" + Mid(LrText(Index), 5, 6)
  1811.                 End If
  1812.             Else
  1813.                 Tsxx = "非法公历日期!(格式:" + Format(Date, "yyyy-mm-dd") + ")"
  1814.                 Call Xtxxts(Tsxx, 0, 1)
  1815.                 LrText(Index).SetFocus
  1816.                 Exit Function
  1817.             End If
  1818.             
  1819.         Case 3      '其他类型
  1820.             If Index = 0 Then
  1821.                 If Len(LrText(Index).Text) <> 7 And Len(LrText(Index).Text) <> 8 Then
  1822.                      Tsxx = "车号只能是7位或8位数字或字符!"
  1823.                      Call Xtxxts(Tsxx, 0, 1)
  1824.                      LrText(Index).SetFocus
  1825.                      Exit Function
  1826.                 End If
  1827.             End If
  1828.         
  1829.     End Select
  1830.     
  1831.     '如果有效则加锁,用户不改变内容则不再进行有效性判断
  1832.     TextValiJudgeLock(Index) = True
  1834.     '调用文本框事后处理程序
  1835.     Call Wbklrwbcl(Index)
  1836.    
  1837.     '有效性判断通过则返回True
  1838.     TextYxxpd = True
  1839.    
  1840. End Function