F_YuanGongJiBenXinXi.frm
上传用户:xiao_xia32
上传日期:2022-07-21
资源大小:1174k
文件大小:50k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  4. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  5. Begin VB.Form F_YuanGongJiBenXinXi 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "员工基本信息"
  8.    ClientHeight    =   8565
  9.    ClientLeft      =   1095
  10.    ClientTop       =   330
  11.    ClientWidth     =   9780
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   8565
  17.    ScaleWidth      =   9780
  18.    Begin TabDlg.SSTab SSTab1 
  19.       Height          =   8535
  20.       Left            =   0
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   9615
  24.       _ExtentX        =   16960
  25.       _ExtentY        =   15055
  26.       _Version        =   393216
  27.       TabHeight       =   520
  28.       TabCaption(0)   =   "编辑"
  29.       TabPicture(0)   =   "F_YuanGongJiBenXinXi.frx":0000
  30.       Tab(0).ControlEnabled=   -1  'True
  31.       Tab(0).Control(0)=   "Frame2"
  32.       Tab(0).Control(0).Enabled=   0   'False
  33.       Tab(0).Control(1)=   "Picture1"
  34.       Tab(0).Control(1).Enabled=   0   'False
  35.       Tab(0).ControlCount=   2
  36.       TabCaption(1)   =   "列表"
  37.       TabPicture(1)   =   "F_YuanGongJiBenXinXi.frx":001C
  38.       Tab(1).ControlEnabled=   0   'False
  39.       Tab(1).Control(0)=   "Frame1"
  40.       Tab(1).Control(0).Enabled=   0   'False
  41.       Tab(1).ControlCount=   1
  42.       TabCaption(2)   =   "Tab 2"
  43.       Tab(2).ControlEnabled=   0   'False
  44.       Tab(2).ControlCount=   0
  45.       Begin VB.PictureBox Picture1 
  46.          Appearance      =   0  'Flat
  47.          BorderStyle     =   0  'None
  48.          ForeColor       =   &H80000008&
  49.          Height          =   300
  50.          Left            =   2280
  51.          ScaleHeight     =   300
  52.          ScaleWidth      =   7080
  53.          TabIndex        =   116
  54.          Top             =   7920
  55.          Width           =   7080
  56.          Begin VB.CommandButton cmdCancel 
  57.             Caption         =   "取消"
  58.             Height          =   300
  59.             Left            =   5880
  60.             TabIndex        =   123
  61.             Top             =   0
  62.             Visible         =   0   'False
  63.             Width           =   1095
  64.          End
  65.          Begin VB.CommandButton cmdUpdate 
  66.             Caption         =   "保存"
  67.             Height          =   300
  68.             Left            =   4680
  69.             TabIndex        =   122
  70.             Top             =   0
  71.             Visible         =   0   'False
  72.             Width           =   1095
  73.          End
  74.          Begin VB.CommandButton cmdClose 
  75.             Caption         =   "关闭"
  76.             Height          =   300
  77.             Left            =   5880
  78.             TabIndex        =   121
  79.             Top             =   0
  80.             Width           =   1095
  81.          End
  82.          Begin VB.CommandButton cmdRefresh 
  83.             Caption         =   "刷新"
  84.             Height          =   300
  85.             Left            =   4680
  86.             TabIndex        =   120
  87.             Top             =   0
  88.             Width           =   1095
  89.          End
  90.          Begin VB.CommandButton CmdDelete 
  91.             Caption         =   "删除"
  92.             Height          =   300
  93.             Left            =   3480
  94.             TabIndex        =   119
  95.             Top             =   0
  96.             Width           =   1095
  97.          End
  98.          Begin VB.CommandButton cmdEdit 
  99.             Caption         =   "编辑"
  100.             Height          =   300
  101.             Left            =   2280
  102.             TabIndex        =   118
  103.             Top             =   0
  104.             Width           =   1095
  105.          End
  106.          Begin VB.CommandButton CmdAdd 
  107.             Caption         =   "增加"
  108.             Height          =   300
  109.             Left            =   1080
  110.             TabIndex        =   117
  111.             Top             =   0
  112.             Width           =   1095
  113.          End
  114.       End
  115.       Begin VB.Frame Frame1 
  116.          Height          =   7935
  117.          Left            =   -74880
  118.          TabIndex        =   114
  119.          Top             =   360
  120.          Width           =   9975
  121.          Begin MSDataGridLib.DataGrid DataGrid1 
  122.             Height          =   7575
  123.             Left            =   120
  124.             TabIndex        =   115
  125.             Top             =   240
  126.             Width           =   9615
  127.             _ExtentX        =   16960
  128.             _ExtentY        =   13361
  129.             _Version        =   393216
  130.             AllowUpdate     =   0   'False
  131.             HeadLines       =   1
  132.             RowHeight       =   14
  133.             BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  134.                Name            =   "MS Sans Serif"
  135.                Size            =   8.25
  136.                Charset         =   0
  137.                Weight          =   400
  138.                Underline       =   0   'False
  139.                Italic          =   0   'False
  140.                Strikethrough   =   0   'False
  141.             EndProperty
  142.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  143.                Name            =   "宋体"
  144.                Size            =   9
  145.                Charset         =   134
  146.                Weight          =   400
  147.                Underline       =   0   'False
  148.                Italic          =   0   'False
  149.                Strikethrough   =   0   'False
  150.             EndProperty
  151.             ColumnCount     =   2
  152.             BeginProperty Column00 
  153.                DataField       =   ""
  154.                Caption         =   ""
  155.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  156.                   Type            =   0
  157.                   Format          =   ""
  158.                   HaveTrueFalseNull=   0
  159.                   FirstDayOfWeek  =   0
  160.                   FirstWeekOfYear =   0
  161.                   LCID            =   2052
  162.                   SubFormatType   =   0
  163.                EndProperty
  164.             EndProperty
  165.             BeginProperty Column01 
  166.                DataField       =   ""
  167.                Caption         =   ""
  168.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  169.                   Type            =   0
  170.                   Format          =   ""
  171.                   HaveTrueFalseNull=   0
  172.                   FirstDayOfWeek  =   0
  173.                   FirstWeekOfYear =   0
  174.                   LCID            =   2052
  175.                   SubFormatType   =   0
  176.                EndProperty
  177.             EndProperty
  178.             SplitCount      =   1
  179.             BeginProperty Split0 
  180.                BeginProperty Column00 
  181.                EndProperty
  182.                BeginProperty Column01 
  183.                EndProperty
  184.             EndProperty
  185.          End
  186.       End
  187.       Begin VB.Frame Frame2 
  188.          Height          =   7455
  189.          Left            =   240
  190.          TabIndex        =   1
  191.          Top             =   360
  192.          Width           =   9135
  193.          Begin VB.TextBox txtFields 
  194.             DataField       =   "员工号"
  195.             Height          =   285
  196.             Index           =   1
  197.             Left            =   1320
  198.             TabIndex        =   44
  199.             Top             =   240
  200.             Width           =   1695
  201.          End
  202.          Begin VB.TextBox txtFields 
  203.             DataField       =   "姓名"
  204.             Height          =   285
  205.             Index           =   2
  206.             Left            =   4200
  207.             TabIndex        =   43
  208.             Top             =   240
  209.             Width           =   1695
  210.          End
  211.          Begin VB.TextBox txtFields 
  212.             DataField       =   "性别"
  213.             Height          =   285
  214.             Index           =   3
  215.             Left            =   7200
  216.             TabIndex        =   42
  217.             Top             =   240
  218.             Width           =   1695
  219.          End
  220.          Begin VB.TextBox txtFields 
  221.             DataField       =   "民族"
  222.             Height          =   285
  223.             Index           =   5
  224.             Left            =   7200
  225.             TabIndex        =   41
  226.             Top             =   960
  227.             Width           =   1695
  228.          End
  229.          Begin VB.TextBox txtFields 
  230.             DataField       =   "政治面目"
  231.             Height          =   285
  232.             Index           =   6
  233.             Left            =   1320
  234.             TabIndex        =   40
  235.             Top             =   1680
  236.             Width           =   1695
  237.          End
  238.          Begin VB.TextBox txtFields 
  239.             DataField       =   "婚姻状况"
  240.             Height          =   285
  241.             Index           =   7
  242.             Left            =   4200
  243.             TabIndex        =   39
  244.             Top             =   1680
  245.             Width           =   1695
  246.          End
  247.          Begin VB.TextBox txtFields 
  248.             DataField       =   "身份证号"
  249.             Height          =   285
  250.             Index           =   8
  251.             Left            =   7200
  252.             TabIndex        =   38
  253.             Top             =   1680
  254.             Width           =   1695
  255.          End
  256.          Begin VB.TextBox txtFields 
  257.             DataField       =   "学历"
  258.             Height          =   285
  259.             Index           =   9
  260.             Left            =   1320
  261.             TabIndex        =   37
  262.             Top             =   2040
  263.             Width           =   1695
  264.          End
  265.          Begin VB.TextBox txtFields 
  266.             DataField       =   "所学专业"
  267.             Height          =   285
  268.             Index           =   10
  269.             Left            =   4200
  270.             TabIndex        =   36
  271.             Top             =   2040
  272.             Width           =   1695
  273.          End
  274.          Begin VB.TextBox txtFields 
  275.             DataField       =   "毕业学校"
  276.             Height          =   285
  277.             Index           =   11
  278.             Left            =   7200
  279.             TabIndex        =   35
  280.             Top             =   2040
  281.             Width           =   1695
  282.          End
  283.          Begin VB.TextBox txtFields 
  284.             DataField       =   "职称"
  285.             Height          =   285
  286.             Index           =   12
  287.             Left            =   1320
  288.             TabIndex        =   34
  289.             Top             =   2400
  290.             Width           =   1695
  291.          End
  292.          Begin VB.TextBox txtFields 
  293.             DataField       =   "技术证书"
  294.             Height          =   285
  295.             Index           =   14
  296.             Left            =   7200
  297.             TabIndex        =   33
  298.             Top             =   2400
  299.             Width           =   1695
  300.          End
  301.          Begin VB.TextBox txtFields 
  302.             DataField       =   "驾驶证号"
  303.             Height          =   285
  304.             Index           =   15
  305.             Left            =   4200
  306.             TabIndex        =   32
  307.             Top             =   2760
  308.             Width           =   1695
  309.          End
  310.          Begin VB.TextBox txtFields 
  311.             DataField       =   "准驾车辆"
  312.             Height          =   285
  313.             Index           =   16
  314.             Left            =   7200
  315.             TabIndex        =   31
  316.             Top             =   2760
  317.             Width           =   1695
  318.          End
  319.          Begin VB.TextBox txtFields 
  320.             DataField       =   "有效期限"
  321.             Height          =   285
  322.             Index           =   17
  323.             Left            =   4200
  324.             TabIndex        =   30
  325.             Top             =   3120
  326.             Width           =   1695
  327.          End
  328.          Begin VB.TextBox txtFields 
  329.             DataField       =   "身高"
  330.             Height          =   285
  331.             Index           =   30
  332.             Left            =   1320
  333.             TabIndex        =   29
  334.             Top             =   600
  335.             Width           =   1695
  336.          End
  337.          Begin VB.TextBox txtFields 
  338.             DataField       =   "生育指标"
  339.             Height          =   285
  340.             Index           =   34
  341.             Left            =   1320
  342.             TabIndex        =   28
  343.             Top             =   4560
  344.             Width           =   1695
  345.          End
  346.          Begin VB.TextBox txtFields 
  347.             DataField       =   "计划生育措施"
  348.             Height          =   285
  349.             Index           =   35
  350.             Left            =   4200
  351.             TabIndex        =   27
  352.             Top             =   4560
  353.             Width           =   1695
  354.          End
  355.          Begin VB.TextBox txtFields 
  356.             DataField       =   "家庭通讯地址"
  357.             Height          =   285
  358.             Index           =   36
  359.             Left            =   1320
  360.             TabIndex        =   26
  361.             Top             =   3480
  362.             Width           =   1695
  363.          End
  364.          Begin VB.TextBox txtFields 
  365.             DataField       =   "邮编"
  366.             Height          =   285
  367.             Index           =   37
  368.             Left            =   4200
  369.             TabIndex        =   25
  370.             Top             =   3480
  371.             Width           =   1695
  372.          End
  373.          Begin VB.TextBox txtFields 
  374.             DataField       =   "电话"
  375.             Height          =   285
  376.             Index           =   38
  377.             Left            =   7200
  378.             TabIndex        =   24
  379.             Top             =   3480
  380.             Width           =   1695
  381.          End
  382.          Begin VB.TextBox txtFields 
  383.             DataField       =   "传呼机"
  384.             Height          =   285
  385.             Index           =   39
  386.             Left            =   1320
  387.             TabIndex        =   23
  388.             Top             =   3840
  389.             Width           =   1695
  390.          End
  391.          Begin VB.TextBox txtFields 
  392.             DataField       =   "移动电话"
  393.             Height          =   285
  394.             Index           =   40
  395.             Left            =   4200
  396.             TabIndex        =   22
  397.             Top             =   3840
  398.             Width           =   1695
  399.          End
  400.          Begin VB.TextBox txtFields 
  401.             DataField       =   "爱人姓名"
  402.             Height          =   285
  403.             Index           =   41
  404.             Left            =   7200
  405.             TabIndex        =   21
  406.             Top             =   3840
  407.             Width           =   1695
  408.          End
  409.          Begin VB.TextBox txtFields 
  410.             DataField       =   "爱人工作单位"
  411.             Height          =   285
  412.             Index           =   43
  413.             Left            =   4200
  414.             TabIndex        =   20
  415.             Top             =   4200
  416.             Width           =   1695
  417.          End
  418.          Begin VB.TextBox txtFields 
  419.             DataField       =   "爱人联系电话"
  420.             Height          =   285
  421.             Index           =   44
  422.             Left            =   7200
  423.             TabIndex        =   19
  424.             Top             =   4200
  425.             Width           =   1695
  426.          End
  427.          Begin VB.TextBox txtFields 
  428.             DataField       =   "独生子女姓名"
  429.             Height          =   285
  430.             Index           =   45
  431.             Left            =   7200
  432.             TabIndex        =   18
  433.             Top             =   4560
  434.             Width           =   1695
  435.          End
  436.          Begin VB.TextBox txtFields 
  437.             DataField       =   "子女性别"
  438.             Height          =   285
  439.             Index           =   47
  440.             Left            =   4200
  441.             TabIndex        =   17
  442.             Top             =   4920
  443.             Width           =   1695
  444.          End
  445.          Begin VB.TextBox txtFields 
  446.             DataField       =   "离职类型"
  447.             Height          =   285
  448.             Index           =   54
  449.             Left            =   1320
  450.             TabIndex        =   16
  451.             Top             =   9000
  452.             Width           =   1695
  453.          End
  454.          Begin VB.TextBox txtFields 
  455.             DataField       =   "籍贯"
  456.             Height          =   285
  457.             Index           =   57
  458.             Left            =   1320
  459.             TabIndex        =   15
  460.             Top             =   1320
  461.             Width           =   1695
  462.          End
  463.          Begin VB.TextBox txtFields 
  464.             DataField       =   "出生地点"
  465.             Height          =   285
  466.             Index           =   58
  467.             Left            =   4200
  468.             TabIndex        =   14
  469.             Top             =   1320
  470.             Width           =   1695
  471.          End
  472.          Begin VB.TextBox txtFields 
  473.             DataField       =   "户口所在地"
  474.             Height          =   285
  475.             Index           =   59
  476.             Left            =   7200
  477.             TabIndex        =   13
  478.             Top             =   1320
  479.             Width           =   1695
  480.          End
  481.          Begin VB.TextBox txtFields 
  482.             DataField       =   "用工类型"
  483.             Height          =   285
  484.             Index           =   23
  485.             Left            =   7200
  486.             TabIndex        =   12
  487.             Top             =   6360
  488.             Width           =   1695
  489.          End
  490.          Begin VB.TextBox txtFields 
  491.             DataField       =   "招收类型"
  492.             Height          =   285
  493.             Index           =   26
  494.             Left            =   1320
  495.             TabIndex        =   11
  496.             Top             =   6720
  497.             Width           =   1695
  498.          End
  499.          Begin VB.TextBox txtFields 
  500.             DataField       =   "人员类型一级"
  501.             Height          =   285
  502.             Index           =   27
  503.             Left            =   4200
  504.             TabIndex        =   10
  505.             Top             =   6720
  506.             Width           =   1695
  507.          End
  508.          Begin VB.TextBox txtFields 
  509.             DataField       =   "人员类型二级"
  510.             Height          =   285
  511.             Index           =   28
  512.             Left            =   7200
  513.             TabIndex        =   9
  514.             Top             =   6720
  515.             Width           =   1695
  516.          End
  517.          Begin VB.TextBox txtFields 
  518.             DataField       =   "原任职单位"
  519.             Height          =   285
  520.             Index           =   60
  521.             Left            =   1320
  522.             TabIndex        =   8
  523.             Top             =   6000
  524.             Width           =   1695
  525.          End
  526.          Begin VB.TextBox txtFields 
  527.             DataField       =   "原职务"
  528.             Height          =   285
  529.             Index           =   61
  530.             Left            =   4200
  531.             TabIndex        =   7
  532.             Top             =   6000
  533.             Width           =   1695
  534.          End
  535.          Begin VB.TextBox txtFields 
  536.             DataField       =   "体重"
  537.             Height          =   285
  538.             Index           =   31
  539.             Left            =   4200
  540.             TabIndex        =   6
  541.             Top             =   600
  542.             Width           =   1695
  543.          End
  544.          Begin VB.TextBox txtFields 
  545.             DataField       =   "血型"
  546.             Height          =   285
  547.             Index           =   32
  548.             Left            =   7200
  549.             TabIndex        =   5
  550.             Top             =   600
  551.             Width           =   1695
  552.          End
  553.          Begin VB.TextBox txtFields 
  554.             DataField       =   "健康情况"
  555.             Height          =   285
  556.             Index           =   33
  557.             Left            =   1320
  558.             TabIndex        =   4
  559.             Top             =   960
  560.             Width           =   1695
  561.          End
  562.          Begin VB.TextBox txtFields 
  563.             DataField       =   "特长"
  564.             Height          =   285
  565.             Index           =   62
  566.             Left            =   1320
  567.             TabIndex        =   3
  568.             Top             =   2760
  569.             Width           =   1695
  570.          End
  571.          Begin VB.TextBox txtFields 
  572.             DataField       =   "劳动力类型"
  573.             Height          =   285
  574.             Index           =   29
  575.             Left            =   1320
  576.             TabIndex        =   2
  577.             Top             =   7080
  578.             Width           =   1695
  579.          End
  580.          Begin MSComCtl2.DTPicker DTPicker13 
  581.             DataField       =   "档案转入时间"
  582.             Height          =   300
  583.             Left            =   1320
  584.             TabIndex        =   45
  585.             Top             =   6360
  586.             Width           =   1695
  587.             _ExtentX        =   2990
  588.             _ExtentY        =   529
  589.             _Version        =   393216
  590.             CheckBox        =   -1  'True
  591.             Format          =   66519041
  592.             CurrentDate     =   36191
  593.          End
  594.          Begin MSComCtl2.DTPicker DTPicker12 
  595.             DataField       =   "转正时间"
  596.             Height          =   300
  597.             Left            =   4200
  598.             TabIndex        =   46
  599.             Top             =   6360
  600.             Width           =   1695
  601.             _ExtentX        =   2990
  602.             _ExtentY        =   529
  603.             _Version        =   393216
  604.             CheckBox        =   -1  'True
  605.             Format          =   66519041
  606.             CurrentDate     =   36191
  607.          End
  608.          Begin MSComCtl2.DTPicker DTPicker11 
  609.             DataField       =   "进入公司时间"
  610.             Height          =   300
  611.             Left            =   7200
  612.             TabIndex        =   47
  613.             Top             =   6000
  614.             Width           =   1695
  615.             _ExtentX        =   2990
  616.             _ExtentY        =   529
  617.             _Version        =   393216
  618.             CheckBox        =   -1  'True
  619.             Format          =   66519041
  620.             CurrentDate     =   36191
  621.          End
  622.          Begin MSComCtl2.DTPicker DTPicker10 
  623.             DataField       =   "子女医疗包干结束时间"
  624.             Height          =   300
  625.             Left            =   7200
  626.             TabIndex        =   48
  627.             Top             =   5640
  628.             Width           =   1695
  629.             _ExtentX        =   2990
  630.             _ExtentY        =   529
  631.             _Version        =   393216
  632.             CheckBox        =   -1  'True
  633.             Format          =   66519041
  634.             CurrentDate     =   36191
  635.          End
  636.          Begin MSComCtl2.DTPicker DTPicker9 
  637.             DataField       =   "独生子女费结束时间"
  638.             Height          =   300
  639.             Left            =   7200
  640.             TabIndex        =   49
  641.             Top             =   5280
  642.             Width           =   1695
  643.             _ExtentX        =   2990
  644.             _ExtentY        =   529
  645.             _Version        =   393216
  646.             CheckBox        =   -1  'True
  647.             Format          =   66519041
  648.             CurrentDate     =   36191
  649.          End
  650.          Begin MSComCtl2.DTPicker DTPicker8 
  651.             DataField       =   "子女医疗包干开始时间"
  652.             Height          =   300
  653.             Left            =   3000
  654.             TabIndex        =   50
  655.             Top             =   5640
  656.             Width           =   1575
  657.             _ExtentX        =   2778
  658.             _ExtentY        =   529
  659.             _Version        =   393216
  660.             CheckBox        =   -1  'True
  661.             Format          =   66519041
  662.             CurrentDate     =   36191
  663.          End
  664.          Begin MSComCtl2.DTPicker DTPicker7 
  665.             DataField       =   "独生子女费开始时间"
  666.             Height          =   300
  667.             Left            =   3000
  668.             TabIndex        =   51
  669.             Top             =   5280
  670.             Width           =   1575
  671.             _ExtentX        =   2778
  672.             _ExtentY        =   529
  673.             _Version        =   393216
  674.             CheckBox        =   -1  'True
  675.             Format          =   66519041
  676.             CurrentDate     =   36191
  677.          End
  678.          Begin MSComCtl2.DTPicker DTPicker6 
  679.             DataField       =   "子女出生日期"
  680.             Height          =   300
  681.             Left            =   1320
  682.             TabIndex        =   52
  683.             Top             =   4920
  684.             Width           =   1695
  685.             _ExtentX        =   2990
  686.             _ExtentY        =   529
  687.             _Version        =   393216
  688.             CheckBox        =   -1  'True
  689.             Format          =   66519041
  690.             CurrentDate     =   36191
  691.          End
  692.          Begin MSComCtl2.DTPicker DTPicker5 
  693.             DataField       =   "爱人出生日期"
  694.             Height          =   300
  695.             Left            =   1320
  696.             TabIndex        =   53
  697.             Top             =   4200
  698.             Width           =   1695
  699.             _ExtentX        =   2990
  700.             _ExtentY        =   529
  701.             _Version        =   393216
  702.             CheckBox        =   -1  'True
  703.             Format          =   66519041
  704.             CurrentDate     =   36191
  705.          End
  706.          Begin MSComCtl2.DTPicker DTPicker4 
  707.             DataField       =   "参加工作时间"
  708.             Height          =   300
  709.             Left            =   7200
  710.             TabIndex        =   54
  711.             Top             =   3120
  712.             Width           =   1695
  713.             _ExtentX        =   2990
  714.             _ExtentY        =   529
  715.             _Version        =   393216
  716.             CheckBox        =   -1  'True
  717.             Format          =   66519041
  718.             CurrentDate     =   36191
  719.          End
  720.          Begin MSComCtl2.DTPicker DTPicker3 
  721.             DataField       =   "初次领证时间"
  722.             Height          =   300
  723.             Left            =   1320
  724.             TabIndex        =   55
  725.             Top             =   3120
  726.             Width           =   1695
  727.             _ExtentX        =   2990
  728.             _ExtentY        =   529
  729.             _Version        =   393216
  730.             CheckBox        =   -1  'True
  731.             Format          =   66519041
  732.             CurrentDate     =   36191
  733.          End
  734.          Begin MSComCtl2.DTPicker DTPicker2 
  735.             DataField       =   "职称评定时间"
  736.             Height          =   300
  737.             Left            =   4200
  738.             TabIndex        =   56
  739.             Top             =   2400
  740.             Width           =   1695
  741.             _ExtentX        =   2990
  742.             _ExtentY        =   529
  743.             _Version        =   393216
  744.             CheckBox        =   -1  'True
  745.             Format          =   66519041
  746.             CurrentDate     =   36191
  747.          End
  748.          Begin MSComCtl2.DTPicker DTPicker1 
  749.             DataField       =   "出生日期"
  750.             Height          =   300
  751.             Left            =   4200
  752.             TabIndex        =   57
  753.             Top             =   960
  754.             Width           =   1695
  755.             _ExtentX        =   2990
  756.             _ExtentY        =   529
  757.             _Version        =   393216
  758.             CheckBox        =   -1  'True
  759.             Format          =   66519041
  760.             CurrentDate     =   36191
  761.          End
  762.          Begin VB.Label lblLabels 
  763.             Caption         =   "初次领证时间:"
  764.             Height          =   255
  765.             Index           =   0
  766.             Left            =   120
  767.             TabIndex        =   113
  768.             Top             =   3120
  769.             Width           =   1215
  770.          End
  771.          Begin VB.Label lblLabels 
  772.             Caption         =   "员工号:"
  773.             Height          =   255
  774.             Index           =   1
  775.             Left            =   120
  776.             TabIndex        =   112
  777.             Top             =   240
  778.             Width           =   735
  779.          End
  780.          Begin VB.Label lblLabels 
  781.             Caption         =   "姓名:"
  782.             Height          =   255
  783.             Index           =   2
  784.             Left            =   3120
  785.             TabIndex        =   111
  786.             Top             =   240
  787.             Width           =   615
  788.          End
  789.          Begin VB.Label lblLabels 
  790.             Caption         =   "性别:"
  791.             Height          =   255
  792.             Index           =   3
  793.             Left            =   6000
  794.             TabIndex        =   110
  795.             Top             =   240
  796.             Width           =   615
  797.          End
  798.          Begin VB.Label lblLabels 
  799.             Caption         =   "出生日期:"
  800.             Height          =   255
  801.             Index           =   4
  802.             Left            =   3120
  803.             TabIndex        =   109
  804.             Top             =   960
  805.             Width           =   855
  806.          End
  807.          Begin VB.Label lblLabels 
  808.             Caption         =   "民族:"
  809.             Height          =   255
  810.             Index           =   5
  811.             Left            =   6000
  812.             TabIndex        =   108
  813.             Top             =   960
  814.             Width           =   615
  815.          End
  816.          Begin VB.Label lblLabels 
  817.             Caption         =   "政治面目:"
  818.             Height          =   255
  819.             Index           =   6
  820.             Left            =   120
  821.             TabIndex        =   107
  822.             Top             =   1680
  823.             Width           =   855
  824.          End
  825.          Begin VB.Label lblLabels 
  826.             Caption         =   "婚姻状况:"
  827.             Height          =   255
  828.             Index           =   7
  829.             Left            =   3120
  830.             TabIndex        =   106
  831.             Top             =   1680
  832.             Width           =   855
  833.          End
  834.          Begin VB.Label lblLabels 
  835.             Caption         =   "身份证号:"
  836.             Height          =   255
  837.             Index           =   8
  838.             Left            =   6000
  839.             TabIndex        =   105
  840.             Top             =   1680
  841.             Width           =   855
  842.          End
  843.          Begin VB.Label lblLabels 
  844.             Caption         =   "学历:"
  845.             Height          =   255
  846.             Index           =   9
  847.             Left            =   120
  848.             TabIndex        =   104
  849.             Top             =   2040
  850.             Width           =   615
  851.          End
  852.          Begin VB.Label lblLabels 
  853.             Caption         =   "所学专业:"
  854.             Height          =   255
  855.             Index           =   10
  856.             Left            =   3120
  857.             TabIndex        =   103
  858.             Top             =   2040
  859.             Width           =   855
  860.          End
  861.          Begin VB.Label lblLabels 
  862.             Caption         =   "毕业学校:"
  863.             Height          =   255
  864.             Index           =   11
  865.             Left            =   6000
  866.             TabIndex        =   102
  867.             Top             =   2040
  868.             Width           =   855
  869.          End
  870.          Begin VB.Label lblLabels 
  871.             Caption         =   "职称:"
  872.             Height          =   255
  873.             Index           =   12
  874.             Left            =   120
  875.             TabIndex        =   101
  876.             Top             =   2400
  877.             Width           =   615
  878.          End
  879.          Begin VB.Label lblLabels 
  880.             Caption         =   "职称评定时间:"
  881.             Height          =   255
  882.             Index           =   13
  883.             Left            =   3120
  884.             TabIndex        =   100
  885.             Top             =   2400
  886.             Width           =   1335
  887.          End
  888.          Begin VB.Label lblLabels 
  889.             Caption         =   "技术证书:"
  890.             Height          =   255
  891.             Index           =   14
  892.             Left            =   6000
  893.             TabIndex        =   99
  894.             Top             =   2400
  895.             Width           =   1095
  896.          End
  897.          Begin VB.Label lblLabels 
  898.             Caption         =   "驾驶证号:"
  899.             Height          =   255
  900.             Index           =   15
  901.             Left            =   3120
  902.             TabIndex        =   98
  903.             Top             =   2760
  904.             Width           =   855
  905.          End
  906.          Begin VB.Label lblLabels 
  907.             Caption         =   "准驾车辆:"
  908.             Height          =   255
  909.             Index           =   16
  910.             Left            =   6000
  911.             TabIndex        =   97
  912.             Top             =   2760
  913.             Width           =   975
  914.          End
  915.          Begin VB.Label lblLabels 
  916.             Caption         =   "有效期限:"
  917.             Height          =   255
  918.             Index           =   17
  919.             Left            =   3120
  920.             TabIndex        =   96
  921.             Top             =   3120
  922.             Width           =   855
  923.          End
  924.          Begin VB.Label lblLabels 
  925.             Caption         =   "参加工作时间:"
  926.             Height          =   255
  927.             Index           =   18
  928.             Left            =   6000
  929.             TabIndex        =   95
  930.             Top             =   3120
  931.             Width           =   1215
  932.          End
  933.          Begin VB.Label lblLabels 
  934.             Caption         =   "生育指标:"
  935.             Height          =   255
  936.             Index           =   34
  937.             Left            =   120
  938.             TabIndex        =   94
  939.             Top             =   4560
  940.             Width           =   855
  941.          End
  942.          Begin VB.Label lblLabels 
  943.             Caption         =   "计划生育措施:"
  944.             Height          =   255
  945.             Index           =   35
  946.             Left            =   3120
  947.             TabIndex        =   93
  948.             Top             =   4560
  949.             Width           =   1095
  950.          End
  951.          Begin VB.Label lblLabels 
  952.             Caption         =   "家庭通讯地址:"
  953.             Height          =   255
  954.             Index           =   36
  955.             Left            =   120
  956.             TabIndex        =   92
  957.             Top             =   3480
  958.             Width           =   1215
  959.          End
  960.          Begin VB.Label lblLabels 
  961.             Caption         =   "邮编:"
  962.             Height          =   255
  963.             Index           =   37
  964.             Left            =   3120
  965.             TabIndex        =   91
  966.             Top             =   3480
  967.             Width           =   735
  968.          End
  969.          Begin VB.Label lblLabels 
  970.             Caption         =   "电话:"
  971.             Height          =   255
  972.             Index           =   38
  973.             Left            =   6000
  974.             TabIndex        =   90
  975.             Top             =   3480
  976.             Width           =   615
  977.          End
  978.          Begin VB.Label lblLabels 
  979.             Caption         =   "传呼机:"
  980.             Height          =   255
  981.             Index           =   39
  982.             Left            =   120
  983.             TabIndex        =   89
  984.             Top             =   3840
  985.             Width           =   855
  986.          End
  987.          Begin VB.Label lblLabels 
  988.             Caption         =   "移动电话:"
  989.             Height          =   255
  990.             Index           =   40
  991.             Left            =   3120
  992.             TabIndex        =   88
  993.             Top             =   3840
  994.             Width           =   1095
  995.          End
  996.          Begin VB.Label lblLabels 
  997.             Caption         =   "爱人姓名:"
  998.             Height          =   255
  999.             Index           =   41
  1000.             Left            =   6000
  1001.             TabIndex        =   87
  1002.             Top             =   3840
  1003.             Width           =   1095
  1004.          End
  1005.          Begin VB.Label lblLabels 
  1006.             Caption         =   "爱人出生日期:"
  1007.             Height          =   255
  1008.             Index           =   42
  1009.             Left            =   120
  1010.             TabIndex        =   86
  1011.             Top             =   4200
  1012.             Width           =   1095
  1013.          End
  1014.          Begin VB.Label lblLabels 
  1015.             Caption         =   "爱人工作单位:"
  1016.             Height          =   255
  1017.             Index           =   43
  1018.             Left            =   3120
  1019.             TabIndex        =   85
  1020.             Top             =   4200
  1021.             Width           =   1095
  1022.          End
  1023.          Begin VB.Label lblLabels 
  1024.             Caption         =   "爱人联系电话:"
  1025.             Height          =   255
  1026.             Index           =   44
  1027.             Left            =   6000
  1028.             TabIndex        =   84
  1029.             Top             =   4200
  1030.             Width           =   1215
  1031.          End
  1032.          Begin VB.Label lblLabels 
  1033.             Caption         =   "独生子女姓名:"
  1034.             Height          =   255
  1035.             Index           =   45
  1036.             Left            =   6000
  1037.             TabIndex        =   83
  1038.             Top             =   4560
  1039.             Width           =   1215
  1040.          End
  1041.          Begin VB.Label lblLabels 
  1042.             Caption         =   "子女出生日期:"
  1043.             Height          =   255
  1044.             Index           =   46
  1045.             Left            =   120
  1046.             TabIndex        =   82
  1047.             Top             =   4920
  1048.             Width           =   1095
  1049.          End
  1050.          Begin VB.Label lblLabels 
  1051.             Caption         =   "子女性别:"
  1052.             Height          =   255
  1053.             Index           =   47
  1054.             Left            =   3120
  1055.             TabIndex        =   81
  1056.             Top             =   4920
  1057.             Width           =   1215
  1058.          End
  1059.          Begin VB.Label lblLabels 
  1060.             Caption         =   "独生子女费开始时间:"
  1061.             Height          =   255
  1062.             Index           =   48
  1063.             Left            =   120
  1064.             TabIndex        =   80
  1065.             Top             =   5280
  1066.             Width           =   1815
  1067.          End
  1068.          Begin VB.Label lblLabels 
  1069.             Caption         =   "独生子女费结束时间:"
  1070.             Height          =   255
  1071.             Index           =   49
  1072.             Left            =   4920
  1073.             TabIndex        =   79
  1074.             Top             =   5280
  1075.             Width           =   1815
  1076.          End
  1077.          Begin VB.Label lblLabels 
  1078.             Caption         =   "子女医疗包干开始时间:"
  1079.             Height          =   255
  1080.             Index           =   50
  1081.             Left            =   120
  1082.             TabIndex        =   78
  1083.             Top             =   5640
  1084.             Width           =   1935
  1085.          End
  1086.          Begin VB.Label lblLabels 
  1087.             Caption         =   "子女医疗包干结束时间:"
  1088.             Height          =   255
  1089.             Index           =   51
  1090.             Left            =   4920
  1091.             TabIndex        =   77
  1092.             Top             =   5640
  1093.             Width           =   1935
  1094.          End
  1095.          Begin VB.Label lblLabels 
  1096.             Caption         =   "离职类型:"
  1097.             Height          =   255
  1098.             Index           =   54
  1099.             Left            =   120
  1100.             TabIndex        =   76
  1101.             Top             =   9000
  1102.             Width           =   855
  1103.          End
  1104.          Begin VB.Label lblLabels 
  1105.             Caption         =   "籍贯:"
  1106.             Height          =   255
  1107.             Index           =   57
  1108.             Left            =   120
  1109.             TabIndex        =   75
  1110.             Top             =   1320
  1111.             Width           =   735
  1112.          End
  1113.          Begin VB.Label lblLabels 
  1114.             Caption         =   "出生地点:"
  1115.             Height          =   255
  1116.             Index           =   58
  1117.             Left            =   3120
  1118.             TabIndex        =   74
  1119.             Top             =   1320
  1120.             Width           =   975
  1121.          End
  1122.          Begin VB.Label lblLabels 
  1123.             Caption         =   "户口所在地:"
  1124.             Height          =   255
  1125.             Index           =   59
  1126.             Left            =   6000
  1127.             TabIndex        =   73
  1128.             Top             =   1320
  1129.             Width           =   975
  1130.          End
  1131.          Begin VB.Label lblLabels 
  1132.             Caption         =   "进入公司时间:"
  1133.             Height          =   255
  1134.             Index           =   19
  1135.             Left            =   6000
  1136.             TabIndex        =   72
  1137.             Top             =   6000
  1138.             Width           =   1095
  1139.          End
  1140.          Begin VB.Label lblLabels 
  1141.             Caption         =   "转正时间:"
  1142.             Height          =   255
  1143.             Index           =   20
  1144.             Left            =   3120
  1145.             TabIndex        =   71
  1146.             Top             =   6360
  1147.             Width           =   1095
  1148.          End
  1149.          Begin VB.Label lblLabels 
  1150.             Caption         =   "用工类型:"
  1151.             Height          =   255
  1152.             Index           =   23
  1153.             Left            =   6000
  1154.             TabIndex        =   70
  1155.             Top             =   6360
  1156.             Width           =   975
  1157.          End
  1158.          Begin VB.Label lblLabels 
  1159.             Caption         =   "档案转入时间:"
  1160.             Height          =   255
  1161.             Index           =   24
  1162.             Left            =   120
  1163.             TabIndex        =   69
  1164.             Top             =   6360
  1165.             Width           =   1215
  1166.          End
  1167.          Begin VB.Label lblLabels 
  1168.             Caption         =   "招收类型:"
  1169.             Height          =   255
  1170.             Index           =   26
  1171.             Left            =   120
  1172.             TabIndex        =   68
  1173.             Top             =   6720
  1174.             Width           =   1095
  1175.          End
  1176.          Begin VB.Label lblLabels 
  1177.             Caption         =   "人员类型一级:"
  1178.             Height          =   255
  1179.             Index           =   27
  1180.             Left            =   3120
  1181.             TabIndex        =   67
  1182.             Top             =   6720
  1183.             Width           =   1335
  1184.          End
  1185.          Begin VB.Label lblLabels 
  1186.             Caption         =   "人员类型二级:"
  1187.             Height          =   255
  1188.             Index           =   28
  1189.             Left            =   6000
  1190.             TabIndex        =   66
  1191.             Top             =   6720
  1192.             Width           =   1215
  1193.          End
  1194.          Begin VB.Label lblLabels 
  1195.             Caption         =   "原任职单位:"
  1196.             Height          =   255
  1197.             Index           =   60
  1198.             Left            =   120
  1199.             TabIndex        =   65
  1200.             Top             =   6000
  1201.             Width           =   975
  1202.          End
  1203.          Begin VB.Label lblLabels 
  1204.             Caption         =   "原职务:"
  1205.             Height          =   255
  1206.             Index           =   61
  1207.             Left            =   3120
  1208.             TabIndex        =   64
  1209.             Top             =   6000
  1210.             Width           =   615
  1211.          End
  1212.          Begin VB.Label lblLabels 
  1213.             Caption         =   "身高:"
  1214.             Height          =   255
  1215.             Index           =   30
  1216.             Left            =   120
  1217.             TabIndex        =   63
  1218.             Top             =   600
  1219.             Width           =   975
  1220.          End
  1221.          Begin VB.Label lblLabels 
  1222.             Caption         =   "体重:"
  1223.             Height          =   255
  1224.             Index           =   31
  1225.             Left            =   3120
  1226.             TabIndex        =   62
  1227.             Top             =   600
  1228.             Width           =   615
  1229.          End
  1230.          Begin VB.Label lblLabels 
  1231.             Caption         =   "血型:"
  1232.             Height          =   255
  1233.             Index           =   32
  1234.             Left            =   6000
  1235.             TabIndex        =   61
  1236.             Top             =   600
  1237.             Width           =   735
  1238.          End
  1239.          Begin VB.Label lblLabels 
  1240.             Caption         =   "健康情况:"
  1241.             Height          =   255
  1242.             Index           =   33
  1243.             Left            =   120
  1244.             TabIndex        =   60
  1245.             Top             =   960
  1246.             Width           =   975
  1247.          End
  1248.          Begin VB.Label lblLabels 
  1249.             Caption         =   "特长:"
  1250.             Height          =   255
  1251.             Index           =   62
  1252.             Left            =   120
  1253.             TabIndex        =   59
  1254.             Top             =   2760
  1255.             Width           =   615
  1256.          End
  1257.          Begin VB.Label lblLabels 
  1258.             Caption         =   "劳动力类型:"
  1259.             Height          =   255
  1260.             Index           =   29
  1261.             Left            =   120
  1262.             TabIndex        =   58
  1263.             Top             =   7080
  1264.             Width           =   975
  1265.          End
  1266.       End
  1267.    End
  1268. End
  1269. Attribute VB_Name = "F_YuanGongJiBenXinXi"
  1270. Attribute VB_GlobalNameSpace = False
  1271. Attribute VB_Creatable = False
  1272. Attribute VB_PredeclaredId = True
  1273. Attribute VB_Exposed = False
  1274. Dim WithEvents adoPrimaryRS As Recordset
  1275. Attribute adoPrimaryRS.VB_VarHelpID = -1
  1276. Dim mvBookMark As Variant
  1277. Dim mbEditFlag As Boolean
  1278. Dim mbAddNewFlag As Boolean
  1279. Private Sub Form_Load()
  1280. On Error Resume Next
  1281.     For Each TextBox In Me.Controls
  1282.         TextBox.Font.Name = "宋体"
  1283.         TextBox.Font.Size = 9
  1284.     Next
  1285.  
  1286.   Set adoPrimaryRS = New Recordset
  1287.   adoPrimaryRS.Open "select 员工号,姓名,性别,身高,体重,血型,健康情况,出生日期,民族,籍贯,出生地点,户口所在地,政治面目,婚姻状况,身份证号,学历,所学专业,毕业学校,职称,职称评定时间,技术证书,特长,驾驶证号,准驾车辆,初次领证时间,有效期限,参加工作时间,家庭通讯地址,邮编,电话,传呼机,移动电话,爱人姓名,爱人出生日期,爱人工作单位,爱人联系电话,生育指标,计划生育措施,独生子女姓名,子女出生日期,子女性别,独生子女费开始时间,独生子女费结束时间,子女医疗包干开始时间,子女医疗包干结束时间,原任职单位,原职务,进入公司时间,转正时间,用工类型,档案转入时间,转入单位名称,招收类型,人员类型一级,人员类型二级,劳动力类型 from 员工基本信息", db, adOpenStatic, adLockOptimistic
  1288.    Set DataGrid1.DataSource = adoPrimaryRS
  1289.   
  1290.   SetButtons True
  1291.   
  1292.   Set DTPicker1.DataSource = adoPrimaryRS
  1293.   Set DTPicker2.DataSource = adoPrimaryRS
  1294.   Set DTPicker3.DataSource = adoPrimaryRS
  1295.   Set DTPicker4.DataSource = adoPrimaryRS
  1296.   Set DTPicker5.DataSource = adoPrimaryRS
  1297.   Set DTPicker6.DataSource = adoPrimaryRS
  1298.   Set DTPicker7.DataSource = adoPrimaryRS
  1299.   Set DTPicker8.DataSource = adoPrimaryRS
  1300.   Set DTPicker9.DataSource = adoPrimaryRS
  1301.   Set DTPicker10.DataSource = adoPrimaryRS
  1302.   Set DTPicker11.DataSource = adoPrimaryRS
  1303.   
  1304.   
  1305.   Dim oText As TextBox
  1306.   'Bind the text boxes to the data provider
  1307.   For Each oText In Me.txtFields
  1308.     Set oText.DataSource = adoPrimaryRS
  1309.   Next
  1310. End Sub
  1311. Private Sub Form_Unload(Cancel As Integer)
  1312.   Screen.MousePointer = vbDefault
  1313. End Sub
  1314. Private Sub cmdAdd_Click()
  1315.   On Error GoTo AddErr
  1316.   
  1317.   
  1318.  With adoPrimaryRS
  1319.     If Not (.BOF And .EOF) Then
  1320.       mvBookMark = .Bookmark
  1321.     End If
  1322.     .AddNew
  1323.     mbAddNewFlag = True
  1324.     SetButtons False
  1325.   End With
  1326.   Exit Sub
  1327. AddErr:
  1328.   MsgBox "增加操作有错误", vbExclamation + vbOKOnly, pTitle
  1329.   
  1330. End Sub
  1331. Private Sub cmdDelete_Click()
  1332.   On Error GoTo DeleteErr
  1333.   With adoPrimaryRS
  1334.     .Delete
  1335.     .MoveNext
  1336.     If .EOF Then .MoveLast
  1337.   End With
  1338.   Exit Sub
  1339. DeleteErr:
  1340.   MsgBox "删除操作有错误", vbExclamation + vbOKOnly, pTitle
  1341. End Sub
  1342. Private Sub cmdRefresh_Click()
  1343.   'This is only needed for multi user apps
  1344.   On Error GoTo RefreshErr
  1345.   adoPrimaryRS.Requery
  1346.   Exit Sub
  1347. RefreshErr:
  1348.    MsgBox "刷新操作有错误", vbExclamation + vbOKOnly, pTitle
  1349. End Sub
  1350. Private Sub cmdEdit_Click()
  1351.   On Error GoTo EditErr
  1352.   mbEditFlag = True
  1353.   SetButtons False
  1354.   Exit Sub
  1355. EditErr:
  1356.    MsgBox "更改操作有错误", vbExclamation + vbOKOnly, pTitle
  1357. End Sub
  1358. Private Sub cmdCancel_Click()
  1359.  ' On Error Resume Next
  1360.  On Error GoTo CancelErr
  1361.   mbEditFlag = False
  1362.   mbAddNewFlag = False
  1363.   adoPrimaryRS.CancelUpdate
  1364.   If mvBookMark > 0 Then
  1365.    adoPrimaryRS.Bookmark = mvBookMark
  1366.   Else
  1367.    adoPrimaryRS.MoveFirst
  1368.   End If
  1369.  SetButtons True
  1370.   Exit Sub
  1371. CancelErr:
  1372.    
  1373.    MsgBox "取消操作有错误", vbExclamation + vbOKOnly, pTitle
  1374. End Sub
  1375. Private Sub cmdUpdate_Click()
  1376.   On Error GoTo UpdateErr
  1377.   adoPrimaryRS.UpdateBatch adAffectAll
  1378.   If mbAddNewFlag Then
  1379.     adoPrimaryRS.MoveLast              'move to the new record
  1380.   End If
  1381.   mbEditFlag = False
  1382.   mbAddNewFlag = False
  1383.   SetButtons True
  1384.   Exit Sub
  1385. UpdateErr:
  1386.    MsgBox "保存操作有错误", vbExclamation + vbOKOnly, pTitle
  1387. End Sub
  1388. Private Sub cmdClose_Click()
  1389.   RSGL.Enabled = True
  1390.   Unload Me
  1391. End Sub
  1392. Private Sub SetButtons(bVal As Boolean)
  1393. Dim oTEX As TextBox
  1394.   cmdAdd.Visible = bVal
  1395.   cmdEdit.Visible = bVal
  1396.   cmdUpdate.Visible = Not bVal
  1397.   cmdCancel.Visible = Not bVal
  1398.   cmdDelete.Visible = bVal
  1399.   cmdClose.Visible = bVal
  1400.   cmdRefresh.Visible = bVal
  1401.   If bVal Then
  1402.    Set DataGrid1.DataSource = adoPrimaryRS
  1403.   Else
  1404.    Set DataGrid1.DataSource = Nothing
  1405.   End If
  1406.   
  1407.   For Each oText In Me.txtFields
  1408.      oText.Enabled = Not bVal
  1409.   Next
  1410.   
  1411.   DTPicker1.Enabled = Not bVal
  1412.   DTPicker2.Enabled = Not bVal
  1413.   DTPicker3.Enabled = Not bVal
  1414.   DTPicker4.Enabled = Not bVal
  1415.   DTPicker5.Enabled = Not bVal
  1416.   DTPicker6.Enabled = Not bVal
  1417.   DTPicker7.Enabled = Not bVal
  1418.   DTPicker8.Enabled = Not bVal
  1419.   DTPicker9.Enabled = Not bVal
  1420.   DTPicker10.Enabled = Not bVal
  1421.   DTPicker11.Enabled = Not bVal
  1422.   
  1423.   
  1424. End Sub
  1425. Private Sub txtFields_LostFocus(Index As Integer)
  1426. If Not IsNumeric(txtFields(30).Text) And (txtFields(30).Text <> "") Then
  1427.     MsgBox "请在“身高”中输入数字", vbExclamation + vbOKOnly, pTitle
  1428.      txtFields(30).SetFocus
  1429.      txtFields(30).SelLength = Len(txtFields(30))
  1430.      txtFields(30).SelStart = 0
  1431. End If
  1432. If Not IsNumeric(txtFields(31).Text) And (txtFields(31).Text <> "") Then
  1433.     MsgBox "请在“体重”中输入数字", vbExclamation + vbOKOnly, pTitle
  1434.      txtFields(31).SetFocus
  1435.      txtFields(31).SelLength = Len(txtFields(31))
  1436.      txtFields(31).SelStart = 0
  1437. End If
  1438. End Sub