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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
F_JiBenXinXi.frm
资源名称：dbbase.rar　[点击查看]
上传用户：xiao_xia32
上传日期：2022-07-21
资源大小：1174k
文件大小：64k
源码类别：

企业管理

开发平台：

Visual Basic

F_JiBenXinXi.frm：源码内容
  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. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  6. Begin VB.Form F_JiBenXinXi 
  7.    BorderStyle     =   3  'Fixed Dialog
  8.    Caption         =   "员工基本信息"
  9.    ClientHeight    =   8625
  10.    ClientLeft      =   1095
  11.    ClientTop       =   330
  12.    ClientWidth     =   11805
  13.    ControlBox      =   0   'False
  14.    KeyPreview      =   -1  'True
  15.    LinkTopic       =   "Form1"
  16.    LockControls    =   -1  'True
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    Moveable        =   0   'False
  20.    ScaleHeight     =   8625
  21.    ScaleWidth      =   11805
  22.    StartUpPosition =   2  '屏幕中心
  23.    Begin VB.Frame Frame1 
  24.       Height          =   8655
  25.       Left            =   0
  26.       TabIndex        =   65
  27.       Top             =   0
  28.       Width           =   12015
  29.       Begin TabDlg.SSTab SSTab1 
  30.          Height          =   8655
  31.          Left            =   0
  32.          TabIndex        =   66
  33.          Top             =   0
  34.          Width           =   11805
  35.          _ExtentX        =   20823
  36.          _ExtentY        =   15266
  37.          _Version        =   393216
  38.          Tabs            =   2
  39.          TabHeight       =   520
  40.          TabCaption(0)   =   "基本信息录入"
  41.          TabPicture(0)   =   "F_JiBenXinXi.frx":0000
  42.          Tab(0).ControlEnabled=   -1  'True
  43.          Tab(0).Control(0)=   "Frame2"
  44.          Tab(0).Control(0).Enabled=   0   'False
  45.          Tab(0).Control(1)=   "Picture1"
  46.          Tab(0).Control(1).Enabled=   0   'False
  47.          Tab(0).ControlCount=   2
  48.          TabCaption(1)   =   "花名册"
  49.          TabPicture(1)   =   "F_JiBenXinXi.frx":001C
  50.          Tab(1).ControlEnabled=   0   'False
  51.          Tab(1).Control(0)=   "Frame3"
  52.          Tab(1).ControlCount=   1
  53.          Begin VB.PictureBox Picture1 
  54.             Appearance      =   0  'Flat
  55.             BorderStyle     =   0  'None
  56.             BeginProperty Font 
  57.                Name            =   "MS Sans Serif"
  58.                Size            =   8.25
  59.                Charset         =   0
  60.                Weight          =   400
  61.                Underline       =   0   'False
  62.                Italic          =   0   'False
  63.                Strikethrough   =   0   'False
  64.             EndProperty
  65.             ForeColor       =   &H80000008&
  66.             Height          =   420
  67.             Left            =   4800
  68.             ScaleHeight     =   420
  69.             ScaleWidth      =   6720
  70.             TabIndex        =   130
  71.             Top             =   8040
  72.             Width           =   6720
  73.             Begin Threed.SSCommand cmdClose 
  74.                Height          =   330
  75.                Left            =   5520
  76.                TabIndex        =   131
  77.                Top             =   0
  78.                Width           =   1095
  79.                _Version        =   65536
  80.                _ExtentX        =   1931
  81.                _ExtentY        =   573
  82.                _StockProps     =   78
  83.                Caption         =   "&Q.关 闭"
  84.                Font3D          =   1
  85.             End
  86.             Begin Threed.SSCommand CmdAdd 
  87.                Height          =   330
  88.                Left            =   720
  89.                TabIndex        =   60
  90.                Top             =   0
  91.                Width           =   1095
  92.                _Version        =   65536
  93.                _ExtentX        =   1931
  94.                _ExtentY        =   573
  95.                _StockProps     =   78
  96.                Caption         =   "&A.增 加"
  97.                Font3D          =   1
  98.             End
  99.             Begin Threed.SSCommand cmdEdit 
  100.                Height          =   330
  101.                Left            =   1920
  102.                TabIndex        =   61
  103.                Top             =   0
  104.                Width           =   1095
  105.                _Version        =   65536
  106.                _ExtentX        =   1931
  107.                _ExtentY        =   573
  108.                _StockProps     =   78
  109.                Caption         =   "&E.编 辑"
  110.                Font3D          =   1
  111.             End
  112.             Begin Threed.SSCommand CmdDelete 
  113.                Height          =   330
  114.                Left            =   3120
  115.                TabIndex        =   62
  116.                Top             =   0
  117.                Width           =   1095
  118.                _Version        =   65536
  119.                _ExtentX        =   1931
  120.                _ExtentY        =   573
  121.                _StockProps     =   78
  122.                Caption         =   "&D.删 除"
  123.                Font3D          =   1
  124.             End
  125.             Begin Threed.SSCommand cmdUpdate 
  126.                Height          =   330
  127.                Left            =   4320
  128.                TabIndex        =   132
  129.                Top             =   0
  130.                Width           =   1095
  131.                _Version        =   65536
  132.                _ExtentX        =   1931
  133.                _ExtentY        =   573
  134.                _StockProps     =   78
  135.                Caption         =   "&Y.保 存"
  136.                Font3D          =   1
  137.             End
  138.             Begin Threed.SSCommand cmdRefresh 
  139.                Height          =   330
  140.                Left            =   4320
  141.                TabIndex        =   63
  142.                Top             =   0
  143.                Width           =   1095
  144.                _Version        =   65536
  145.                _ExtentX        =   1931
  146.                _ExtentY        =   573
  147.                _StockProps     =   78
  148.                Caption         =   "&R.刷新"
  149.                Font3D          =   1
  150.             End
  151.             Begin Threed.SSCommand cmdCancel 
  152.                Height          =   330
  153.                Left            =   5520
  154.                TabIndex        =   64
  155.                Top             =   0
  156.                Width           =   1095
  157.                _Version        =   65536
  158.                _ExtentX        =   1931
  159.                _ExtentY        =   573
  160.                _StockProps     =   78
  161.                Caption         =   "&C.取消"
  162.                Font3D          =   1
  163.             End
  164.          End
  165.          Begin VB.Frame Frame3 
  166.             Height          =   7455
  167.             Left            =   -74880
  168.             TabIndex        =   121
  169.             Top             =   480
  170.             Width           =   11535
  171.             Begin MSDataGridLib.DataGrid DataGrid1 
  172.                Height          =   6975
  173.                Left            =   120
  174.                TabIndex        =   122
  175.                Top             =   360
  176.                Width           =   11295
  177.                _ExtentX        =   19923
  178.                _ExtentY        =   12303
  179.                _Version        =   393216
  180.                AllowUpdate     =   0   'False
  181.                HeadLines       =   1
  182.                RowHeight       =   14
  183.                BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  184.                   Name            =   "MS Sans Serif"
  185.                   Size            =   8.25
  186.                   Charset         =   0
  187.                   Weight          =   400
  188.                   Underline       =   0   'False
  189.                   Italic          =   0   'False
  190.                   Strikethrough   =   0   'False
  191.                EndProperty
  192.                BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  193.                   Name            =   "宋体"
  194.                   Size            =   9
  195.                   Charset         =   134
  196.                   Weight          =   400
  197.                   Underline       =   0   'False
  198.                   Italic          =   0   'False
  199.                   Strikethrough   =   0   'False
  200.                EndProperty
  201.                ColumnCount     =   2
  202.                BeginProperty Column00 
  203.                   DataField       =   ""
  204.                   Caption         =   ""
  205.                   BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  206.                      Type            =   0
  207.                      Format          =   ""
  208.                      HaveTrueFalseNull=   0
  209.                      FirstDayOfWeek  =   0
  210.                      FirstWeekOfYear =   0
  211.                      LCID            =   2052
  212.                      SubFormatType   =   0
  213.                   EndProperty
  214.                EndProperty
  215.                BeginProperty Column01 
  216.                   DataField       =   ""
  217.                   Caption         =   ""
  218.                   BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  219.                      Type            =   0
  220.                      Format          =   ""
  221.                      HaveTrueFalseNull=   0
  222.                      FirstDayOfWeek  =   0
  223.                      FirstWeekOfYear =   0
  224.                      LCID            =   2052
  225.                      SubFormatType   =   0
  226.                   EndProperty
  227.                EndProperty
  228.                SplitCount      =   1
  229.                BeginProperty Split0 
  230.                   BeginProperty Column00 
  231.                   EndProperty
  232.                   BeginProperty Column01 
  233.                   EndProperty
  234.                EndProperty
  235.             End
  236.          End
  237.          Begin VB.Frame Frame2 
  238.             Height          =   7455
  239.             Left            =   120
  240.             TabIndex        =   67
  241.             Top             =   360
  242.             Width           =   11535
  243.             Begin VB.ComboBox Combo7 
  244.                DataField       =   "劳动力类型"
  245.                Height          =   315
  246.                Left            =   5520
  247.                TabIndex        =   34
  248.                Top             =   4200
  249.                Width           =   1935
  250.             End
  251.             Begin VB.ComboBox Combo6 
  252.                Appearance      =   0  'Flat
  253.                DataField       =   "招收类型"
  254.                Height          =   300
  255.                Left            =   9120
  256.                TabIndex        =   32
  257.                Top             =   3840
  258.                Width           =   1935
  259.             End
  260.             Begin MSComCtl2.DTPicker DTPicker14 
  261.                DataField       =   "离职时间"
  262.                Height          =   300
  263.                Left            =   1920
  264.                TabIndex        =   42
  265.                Top             =   5280
  266.                Width           =   1935
  267.                _ExtentX        =   3413
  268.                _ExtentY        =   529
  269.                _Version        =   393216
  270.                CheckBox        =   -1  'True
  271.                DateIsNull      =   -1  'True
  272.                Format          =   69795841
  273.                CurrentDate     =   36279
  274.             End
  275.             Begin VB.ComboBox Combo5 
  276.                DataField       =   "子女性别"
  277.                Height          =   315
  278.                Left            =   1920
  279.                TabIndex        =   51
  280.                Top             =   6360
  281.                Width           =   1935
  282.             End
  283.             Begin VB.ComboBox Combo4 
  284.                Appearance      =   0  'Flat
  285.                DataField       =   "性别"
  286.                Height          =   300
  287.                Left            =   9120
  288.                TabIndex        =   2
  289.                Top             =   240
  290.                Width           =   1935
  291.             End
  292.             Begin VB.ComboBox Combo3 
  293.                DataField       =   "学历"
  294.                Height          =   315
  295.                Left            =   5520
  296.                TabIndex        =   7
  297.                Top             =   960
  298.                Width           =   1935
  299.             End
  300.             Begin VB.TextBox txtFields 
  301.                Appearance      =   0  'Flat
  302.                DataField       =   "离职原因"
  303.                Height          =   285
  304.                Index           =   33
  305.                Left            =   9120
  306.                TabIndex        =   41
  307.                Top             =   4920
  308.                Width           =   1935
  309.             End
  310.             Begin VB.TextBox txtFields 
  311.                Appearance      =   0  'Flat
  312.                DataField       =   "健康情况"
  313.                Height          =   285
  314.                Index           =   6
  315.                Left            =   9120
  316.                TabIndex        =   59
  317.                Top             =   7080
  318.                Width           =   1935
  319.             End
  320.             Begin VB.TextBox txtFields 
  321.                Appearance      =   0  'Flat
  322.                DataField       =   "离职档案转出单位"
  323.                Height          =   285
  324.                Index           =   26
  325.                Left            =   5520
  326.                TabIndex        =   43
  327.                Top             =   5280
  328.                Width           =   1935
  329.             End
  330.             Begin VB.TextBox txtFields 
  331.                Appearance      =   0  'Flat
  332.                DataField       =   "所在街道办事处"
  333.                Height          =   285
  334.                Index           =   19
  335.                Left            =   1920
  336.                TabIndex        =   36
  337.                Top             =   4560
  338.                Width           =   1935
  339.             End
  340.             Begin VB.ComboBox Combo2 
  341.                DataField       =   "用工类型"
  342.                Height          =   315
  343.                Left            =   1920
  344.                TabIndex        =   33
  345.                Top             =   4200
  346.                Width           =   1935
  347.             End
  348.             Begin VB.ComboBox Combo1 
  349.                DataField       =   "部门"
  350.                Height          =   315
  351.                Left            =   5520
  352.                TabIndex        =   10
  353.                Top             =   1320
  354.                Width           =   1935
  355.             End
  356.             Begin MSComCtl2.DTPicker DTPicker13 
  357.                DataField       =   "转正时间"
  358.                Height          =   300
  359.                Left            =   1920
  360.                TabIndex        =   9
  361.                Top             =   1320
  362.                Width           =   1935
  363.                _ExtentX        =   3413
  364.                _ExtentY        =   529
  365.                _Version        =   393216
  366.                CheckBox        =   -1  'True
  367.                DateIsNull      =   -1  'True
  368.                Format          =   69795841
  369.                CurrentDate     =   36195
  370.             End
  371.             Begin MSComCtl2.DTPicker DTPicker12 
  372.                DataField       =   "子女医疗包干结束时间"
  373.                Height          =   300
  374.                Left            =   5520
  375.                TabIndex        =   55
  376.                Top             =   6720
  377.                Width           =   1935
  378.                _ExtentX        =   3413
  379.                _ExtentY        =   529
  380.                _Version        =   393216
  381.                CheckBox        =   -1  'True
  382.                DateIsNull      =   -1  'True
  383.                Format          =   69795841
  384.                CurrentDate     =   36195
  385.             End
  386.             Begin VB.TextBox txtFields 
  387.                Appearance      =   0  'Flat
  388.                DataField       =   "岗位"
  389.                Height          =   285
  390.                Index           =   7
  391.                Left            =   9120
  392.                TabIndex        =   11
  393.                Top             =   1320
  394.                Width           =   1935
  395.             End
  396.             Begin MSComCtl2.DTPicker DTPicker11 
  397.                DataField       =   "进入公司时间"
  398.                Height          =   300
  399.                Left            =   9120
  400.                TabIndex        =   8
  401.                Top             =   960
  402.                Width           =   1935
  403.                _ExtentX        =   3413
  404.                _ExtentY        =   529
  405.                _Version        =   393216
  406.                CheckBox        =   -1  'True
  407.                DateIsNull      =   -1  'True
  408.                Format          =   69795841
  409.                CurrentDate     =   36191
  410.             End
  411.             Begin MSComCtl2.DTPicker DTPicker10 
  412.                DataField       =   "档案转入时间"
  413.                Height          =   300
  414.                Left            =   5520
  415.                TabIndex        =   31
  416.                Top             =   3840
  417.                Width           =   1935
  418.                _ExtentX        =   3413
  419.                _ExtentY        =   529
  420.                _Version        =   393216
  421.                CheckBox        =   -1  'True
  422.                DateIsNull      =   -1  'True
  423.                Format          =   69795841
  424.                CurrentDate     =   36191
  425.             End
  426.             Begin MSComCtl2.DTPicker DTPicker9 
  427.                DataField       =   "子女医疗包干开始时间"
  428.                Height          =   300
  429.                Left            =   1920
  430.                TabIndex        =   54
  431.                Top             =   6720
  432.                Width           =   1935
  433.                _ExtentX        =   3413
  434.                _ExtentY        =   529
  435.                _Version        =   393216
  436.                CheckBox        =   -1  'True
  437.                DateIsNull      =   -1  'True
  438.                Format          =   69795841
  439.                CurrentDate     =   36191
  440.             End
  441.             Begin MSComCtl2.DTPicker DTPicker8 
  442.                DataField       =   "独生子女费结束时间"
  443.                Height          =   300
  444.                Left            =   9120
  445.                TabIndex        =   53
  446.                Top             =   6360
  447.                Width           =   1935
  448.                _ExtentX        =   3413
  449.                _ExtentY        =   529
  450.                _Version        =   393216
  451.                CheckBox        =   -1  'True
  452.                DateIsNull      =   -1  'True
  453.                Format          =   69795841
  454.                CurrentDate     =   36191
  455.             End
  456.             Begin MSComCtl2.DTPicker DTPicker7 
  457.                DataField       =   "独生子女费开始时间"
  458.                Height          =   300
  459.                Left            =   5520
  460.                TabIndex        =   52
  461.                Top             =   6360
  462.                Width           =   1935
  463.                _ExtentX        =   3413
  464.                _ExtentY        =   529
  465.                _Version        =   393216
  466.                CheckBox        =   -1  'True
  467.                DateIsNull      =   -1  'True
  468.                Format          =   69795841
  469.                CurrentDate     =   36191
  470.             End
  471.             Begin MSComCtl2.DTPicker DTPicker6 
  472.                DataField       =   "子女出生日期"
  473.                Height          =   300
  474.                Left            =   9120
  475.                TabIndex        =   50
  476.                Top             =   6000
  477.                Width           =   1935
  478.                _ExtentX        =   3413
  479.                _ExtentY        =   529
  480.                _Version        =   393216
  481.                CheckBox        =   -1  'True
  482.                DateIsNull      =   -1  'True
  483.                Format          =   69795841
  484.                CurrentDate     =   36191
  485.             End
  486.             Begin MSComCtl2.DTPicker DTPicker5 
  487.                Height          =   300
  488.                Left            =   1920
  489.                TabIndex        =   45
  490.                Top             =   5640
  491.                Width           =   1935
  492.                _ExtentX        =   3413
  493.                _ExtentY        =   529
  494.                _Version        =   393216
  495.                CheckBox        =   -1  'True
  496.                DateIsNull      =   -1  'True
  497.                Format          =   69795841
  498.                CurrentDate     =   36191
  499.             End
  500.             Begin MSComCtl2.DTPicker DTPicker4 
  501.                DataField       =   "参加工作时间"
  502.                Height          =   300
  503.                Left            =   5520
  504.                TabIndex        =   28
  505.                Top             =   3480
  506.                Width           =   1935
  507.                _ExtentX        =   3413
  508.                _ExtentY        =   529
  509.                _Version        =   393216
  510.                CheckBox        =   -1  'True
  511.                DateIsNull      =   -1  'True
  512.                Format          =   69795841
  513.                CurrentDate     =   36191
  514.             End
  515.             Begin MSComCtl2.DTPicker DTPicker3 
  516.                DataField       =   "初次领证时间"
  517.                Height          =   300
  518.                Left            =   5520
  519.                TabIndex        =   25
  520.                Top             =   3120
  521.                Width           =   1935
  522.                _ExtentX        =   3413
  523.                _ExtentY        =   529
  524.                _Version        =   393216
  525.                CheckBox        =   -1  'True
  526.                DateIsNull      =   -1  'True
  527.                Format          =   69795841
  528.                CurrentDate     =   36191
  529.             End
  530.             Begin MSComCtl2.DTPicker DTPicker2 
  531.                DataField       =   "职称评定时间"
  532.                Height          =   300
  533.                Left            =   5520
  534.                TabIndex        =   22
  535.                Top             =   2760
  536.                Width           =   1935
  537.                _ExtentX        =   3413
  538.                _ExtentY        =   529
  539.                _Version        =   393216
  540.                CheckBox        =   -1  'True
  541.                DateIsNull      =   -1  'True
  542.                Format          =   69795841
  543.                CurrentDate     =   36191
  544.             End
  545.             Begin MSComCtl2.DTPicker DTPicker1 
  546.                DataField       =   "出生日期"
  547.                Height          =   300
  548.                Left            =   1920
  549.                TabIndex        =   3
  550.                Top             =   600
  551.                Width           =   1935
  552.                _ExtentX        =   3413
  553.                _ExtentY        =   529
  554.                _Version        =   393216
  555.                CheckBox        =   -1  'True
  556.                DateIsNull      =   -1  'True
  557.                Format          =   69795841
  558.                CurrentDate     =   36191
  559.             End
  560.             Begin VB.TextBox txtFields 
  561.                Appearance      =   0  'Flat
  562.                DataField       =   "生育指标"
  563.                Height          =   285
  564.                Index           =   36
  565.                Left            =   1920
  566.                TabIndex        =   48
  567.                Top             =   6000
  568.                Width           =   1935
  569.             End
  570.             Begin VB.TextBox txtFields 
  571.                Appearance      =   0  'Flat
  572.                DataField       =   "爱人联系电话"
  573.                Height          =   285
  574.                Index           =   35
  575.                Left            =   9120
  576.                TabIndex        =   47
  577.                Top             =   5640
  578.                Width           =   1935
  579.             End
  580.             Begin VB.TextBox txtFields 
  581.                Appearance      =   0  'Flat
  582.                DataField       =   "爱人工作单位"
  583.                Height          =   285
  584.                Index           =   34
  585.                Left            =   5520
  586.                TabIndex        =   46
  587.                Top             =   5640
  588.                Width           =   1935
  589.             End
  590.             Begin VB.TextBox txtFields 
  591.                Appearance      =   0  'Flat
  592.                DataField       =   "爱人姓名"
  593.                Height          =   285
  594.                Index           =   32
  595.                Left            =   9120
  596.                TabIndex        =   44
  597.                Top             =   5280
  598.                Width           =   1935
  599.             End
  600.             Begin VB.TextBox txtFields 
  601.                Appearance      =   0  'Flat
  602.                DataField       =   "移动电话"
  603.                Height          =   285
  604.                Index           =   31
  605.                Left            =   5520
  606.                TabIndex        =   40
  607.                Top             =   4920
  608.                Width           =   1935
  609.             End
  610.             Begin VB.TextBox txtFields 
  611.                Appearance      =   0  'Flat
  612.                DataField       =   "传呼机"
  613.                Height          =   285
  614.                Index           =   30
  615.                Left            =   1920
  616.                TabIndex        =   39
  617.                Top             =   4920
  618.                Width           =   1935
  619.             End
  620.             Begin VB.TextBox txtFields 
  621.                Appearance      =   0  'Flat
  622.                DataField       =   "电话"
  623.                Height          =   285
  624.                Index           =   29
  625.                Left            =   9120
  626.                TabIndex        =   38
  627.                Top             =   4560
  628.                Width           =   1935
  629.             End
  630.             Begin VB.TextBox txtFields 
  631.                Appearance      =   0  'Flat
  632.                DataField       =   "邮编"
  633.                Height          =   285
  634.                Index           =   28
  635.                Left            =   5520
  636.                TabIndex        =   37
  637.                Top             =   4560
  638.                Width           =   1935
  639.             End
  640.             Begin VB.TextBox txtFields 
  641.                Appearance      =   0  'Flat
  642.                DataField       =   "家庭通讯地址"
  643.                Height          =   285
  644.                Index           =   27
  645.                Left            =   9120
  646.                TabIndex        =   35
  647.                Top             =   4200
  648.                Width           =   1935
  649.             End
  650.             Begin VB.TextBox txtFields 
  651.                Appearance      =   0  'Flat
  652.                DataField       =   "有效期限"
  653.                Height          =   285
  654.                Index           =   25
  655.                Left            =   1920
  656.                TabIndex        =   27
  657.                Top             =   3480
  658.                Width           =   1935
  659.             End
  660.             Begin VB.TextBox txtFields 
  661.                Appearance      =   0  'Flat
  662.                DataField       =   "准驾车辆"
  663.                Height          =   285
  664.                Index           =   23
  665.                Left            =   1920
  666.                TabIndex        =   24
  667.                Top             =   3120
  668.                Width           =   1935
  669.             End
  670.             Begin VB.TextBox txtFields 
  671.                Appearance      =   0  'Flat
  672.                DataField       =   "驾驶证号"
  673.                Height          =   285
  674.                Index           =   22
  675.                Left            =   9120
  676.                TabIndex        =   23
  677.                Top             =   2760
  678.                Width           =   1935
  679.             End
  680.             Begin VB.TextBox txtFields 
  681.                Appearance      =   0  'Flat
  682.                DataField       =   "人员类型二级"
  683.                Height          =   285
  684.                Index           =   54
  685.                Left            =   1920
  686.                TabIndex        =   57
  687.                TabStop         =   0   'False
  688.                Top             =   7080
  689.                Width           =   1935
  690.             End
  691.             Begin VB.TextBox txtFields 
  692.                Appearance      =   0  'Flat
  693.                DataField       =   "人员类型一级"
  694.                Height          =   285
  695.                Index           =   53
  696.                Left            =   9120
  697.                TabIndex        =   56
  698.                Top             =   6720
  699.                Width           =   1935
  700.             End
  701.             Begin VB.TextBox txtFields 
  702.                Appearance      =   0  'Flat
  703.                DataField       =   "原职务"
  704.                Height          =   285
  705.                Index           =   46
  706.                Left            =   1920
  707.                TabIndex        =   30
  708.                Top             =   3840
  709.                Width           =   1935
  710.             End
  711.             Begin VB.TextBox txtFields 
  712.                Appearance      =   0  'Flat
  713.                DataField       =   "原任职单位"
  714.                Height          =   285
  715.                Index           =   45
  716.                Left            =   9120
  717.                TabIndex        =   29
  718.                Top             =   3480
  719.                Width           =   1935
  720.             End
  721.             Begin VB.TextBox txtFields 
  722.                Appearance      =   0  'Flat
  723.                DataField       =   "独生子女姓名"
  724.                Height          =   285
  725.                Index           =   38
  726.                Left            =   5520
  727.                TabIndex        =   49
  728.                Top             =   6000
  729.                Width           =   1935
  730.             End
  731.             Begin VB.TextBox txtFields 
  732.                Appearance      =   0  'Flat
  733.                DataField       =   "特长"
  734.                Height          =   285
  735.                Index           =   21
  736.                Left            =   5520
  737.                TabIndex        =   58
  738.                Top             =   7080
  739.                Width           =   1935
  740.             End
  741.             Begin VB.TextBox txtFields 
  742.                Appearance      =   0  'Flat
  743.                DataField       =   "技术证书"
  744.                Height          =   285
  745.                Index           =   20
  746.                Left            =   9120
  747.                TabIndex        =   26
  748.                Top             =   3120
  749.                Width           =   1935
  750.             End
  751.             Begin VB.TextBox txtFields 
  752.                Appearance      =   0  'Flat
  753.                DataField       =   "职称"
  754.                Height          =   285
  755.                Index           =   18
  756.                Left            =   1920
  757.                TabIndex        =   21
  758.                Top             =   2760
  759.                Width           =   1935
  760.             End
  761.             Begin VB.TextBox txtFields 
  762.                Appearance      =   0  'Flat
  763.                DataField       =   "毕业学校"
  764.                Height          =   285
  765.                Index           =   17
  766.                Left            =   9120
  767.                TabIndex        =   20
  768.                Top             =   2400
  769.                Width           =   1935
  770.             End
  771.             Begin VB.TextBox txtFields 
  772.                Appearance      =   0  'Flat
  773.                DataField       =   "所学专业"
  774.                Height          =   285
  775.                Index           =   16
  776.                Left            =   5520
  777.                TabIndex        =   19
  778.                Top             =   2400
  779.                Width           =   1935
  780.             End
  781.             Begin VB.TextBox txtFields 
  782.                Appearance      =   0  'Flat
  783.                DataField       =   "身份证号"
  784.                Height          =   285
  785.                Index           =   14
  786.                Left            =   1920
  787.                TabIndex        =   18
  788.                Top             =   2400
  789.                Width           =   1935
  790.             End
  791.             Begin VB.TextBox txtFields 
  792.                Appearance      =   0  'Flat
  793.                DataField       =   "婚姻状况"
  794.                Height          =   285
  795.                Index           =   13
  796.                Left            =   9120
  797.                TabIndex        =   5
  798.                Top             =   600
  799.                Width           =   1935
  800.             End
  801.             Begin VB.TextBox txtFields 
  802.                Appearance      =   0  'Flat
  803.                DataField       =   "政治面目"
  804.                Height          =   285
  805.                Index           =   12
  806.                Left            =   1920
  807.                TabIndex        =   6
  808.                Top             =   960
  809.                Width           =   1935
  810.             End
  811.             Begin VB.TextBox txtFields 
  812.                Appearance      =   0  'Flat
  813.                DataField       =   "户口所在地"
  814.                Height          =   285
  815.                Index           =   11
  816.                Left            =   9120
  817.                TabIndex        =   17
  818.                Top             =   2040
  819.                Width           =   1935
  820.             End
  821.             Begin VB.TextBox txtFields 
  822.                Appearance      =   0  'Flat
  823.                DataField       =   "出生地点"
  824.                Height          =   285
  825.                Index           =   10
  826.                Left            =   5520
  827.                TabIndex        =   16
  828.                Top             =   2040
  829.                Width           =   1935
  830.             End
  831.             Begin VB.TextBox txtFields 
  832.                Appearance      =   0  'Flat
  833.                DataField       =   "籍贯"
  834.                Height          =   285
  835.                Index           =   9
  836.                Left            =   1920
  837.                TabIndex        =   15
  838.                Top             =   2040
  839.                Width           =   1935
  840.             End
  841.             Begin VB.TextBox txtFields 
  842.                Appearance      =   0  'Flat
  843.                DataField       =   "民族"
  844.                Height          =   285
  845.                Index           =   8
  846.                Left            =   5520
  847.                TabIndex        =   4
  848.                Top             =   600
  849.                Width           =   1935
  850.             End
  851.             Begin VB.TextBox txtFields 
  852.                Appearance      =   0  'Flat
  853.                DataField       =   "血型"
  854.                Height          =   285
  855.                Index           =   5
  856.                Left            =   1920
  857.                TabIndex        =   12
  858.                Top             =   1680
  859.                Width           =   1935
  860.             End
  861.             Begin VB.TextBox txtFields 
  862.                Appearance      =   0  'Flat
  863.                DataField       =   "体重"
  864.                Height          =   285
  865.                Index           =   4
  866.                Left            =   9120
  867.                TabIndex        =   14
  868.                Top             =   1680
  869.                Width           =   1935
  870.             End
  871.             Begin VB.TextBox txtFields 
  872.                Appearance      =   0  'Flat
  873.                DataField       =   "身高"
  874.                Height          =   285
  875.                Index           =   3
  876.                Left            =   5520
  877.                TabIndex        =   13
  878.                Top             =   1680
  879.                Width           =   1935
  880.             End
  881.             Begin VB.TextBox txtFields 
  882.                Appearance      =   0  'Flat
  883.                DataField       =   "姓名"
  884.                Height          =   285
  885.                Index           =   1
  886.                Left            =   5520
  887.                TabIndex        =   1
  888.                Top             =   240
  889.                Width           =   1935
  890.             End
  891.             Begin VB.TextBox txtFields 
  892.                Appearance      =   0  'Flat
  893.                DataField       =   "员工号"
  894.                Height          =   285
  895.                Index           =   0
  896.                Left            =   1920
  897.                TabIndex        =   0
  898.                Top             =   240
  899.                Width           =   1935
  900.             End
  901.             Begin VB.Label lblLabels 
  902.                Caption         =   "离职原因"
  903.                Height          =   255
  904.                Index           =   37
  905.                Left            =   7800
  906.                TabIndex        =   129
  907.                Top             =   4920
  908.                Width           =   975
  909.             End
  910.             Begin VB.Label lblLabels 
  911.                Caption         =   "健康情况"
  912.                Height          =   255
  913.                Index           =   6
  914.                Left            =   7800
  915.                TabIndex        =   128
  916.                Top             =   7080
  917.                Width           =   735
  918.             End
  919.             Begin VB.Label lblLabels 
  920.                Caption         =   "离职档案转出单位"
  921.                Height          =   255
  922.                Index           =   60
  923.                Left            =   3960
  924.                TabIndex        =   127
  925.                Top             =   5280
  926.                Width           =   1455
  927.             End
  928.             Begin VB.Label lblLabels 
  929.                Caption         =   "离职时间"
  930.                Height          =   255
  931.                Index           =   59
  932.                Left            =   120
  933.                TabIndex        =   126
  934.                Top             =   5280
  935.                Width           =   855
  936.             End
  937.             Begin VB.Label lblLabels 
  938.                Caption         =   "所在街道办事处"
  939.                Height          =   255
  940.                Index           =   58
  941.                Left            =   120
  942.                TabIndex        =   125
  943.                Top             =   4560
  944.                Width           =   1815
  945.             End
  946.             Begin VB.Label lblLabels 
  947.                Caption         =   "部  门"
  948.                Height          =   255
  949.                Index           =   57
  950.                Left            =   3960
  951.                TabIndex        =   124
  952.                Top             =   1320
  953.                Width           =   1815
  954.             End
  955.             Begin VB.Label lblLabels 
  956.                Caption         =   "岗  位"
  957.                Height          =   255
  958.                Index           =   56
  959.                Left            =   7800
  960.                TabIndex        =   123
  961.                Top             =   1320
  962.                Width           =   1815
  963.             End
  964.             Begin VB.Label lblLabels 
  965.                Caption         =   "生育指标"
  966.                Height          =   255
  967.                Index           =   36
  968.                Left            =   120
  969.                TabIndex        =   120
  970.                Top             =   6000
  971.                Width           =   975
  972.             End
  973.             Begin VB.Label lblLabels 
  974.                Caption         =   "爱人联系电话"
  975.                Height          =   255
  976.                Index           =   35
  977.                Left            =   7800
  978.                TabIndex        =   119
  979.                Top             =   5640
  980.                Width           =   1215
  981.             End
  982.             Begin VB.Label lblLabels 
  983.                Caption         =   "爱人工作单位"
  984.                Height          =   255
  985.                Index           =   34
  986.                Left            =   3960
  987.                TabIndex        =   118
  988.                Top             =   5640
  989.                Width           =   1455
  990.             End
  991.             Begin VB.Label lblLabels 
  992.                Caption         =   "爱人出生日期"
  993.                Height          =   255
  994.                Index           =   33
  995.                Left            =   120
  996.                TabIndex        =   117
  997.                Top             =   5640
  998.                Width           =   1815
  999.             End
  1000.             Begin VB.Label lblLabels 
  1001.                Caption         =   "爱人姓名"
  1002.                Height          =   255
  1003.                Index           =   32
  1004.                Left            =   7800
  1005.                TabIndex        =   116
  1006.                Top             =   5280
  1007.                Width           =   975
  1008.             End
  1009.             Begin VB.Label lblLabels 
  1010.                Caption         =   "移动电话"
  1011.                Height          =   255
  1012.                Index           =   31
  1013.                Left            =   3960
  1014.                TabIndex        =   115
  1015.                Top             =   4920
  1016.                Width           =   855
  1017.             End
  1018.             Begin VB.Label lblLabels 
  1019.                Caption         =   "传呼机"
  1020.                Height          =   255
  1021.                Index           =   30
  1022.                Left            =   120
  1023.                TabIndex        =   114
  1024.                Top             =   4920
  1025.                Width           =   615
  1026.             End
  1027.             Begin VB.Label lblLabels 
  1028.                Caption         =   "电  话"
  1029.                Height          =   255
  1030.                Index           =   29
  1031.                Left            =   7800
  1032.                TabIndex        =   113
  1033.                Top             =   4560
  1034.                Width           =   1215
  1035.             End
  1036.             Begin VB.Label lblLabels 
  1037.                Caption         =   "邮  编"
  1038.                Height          =   255
  1039.                Index           =   28
  1040.                Left            =   3960
  1041.                TabIndex        =   112
  1042.                Top             =   4560
  1043.                Width           =   615
  1044.             End
  1045.             Begin VB.Label lblLabels 
  1046.                Caption         =   "家庭通讯地址"
  1047.                Height          =   255
  1048.                Index           =   27
  1049.                Left            =   7800
  1050.                TabIndex        =   111
  1051.                Top             =   4200
  1052.                Width           =   1215
  1053.             End
  1054.             Begin VB.Label lblLabels 
  1055.                Caption         =   "参加工作时间"
  1056.                Height          =   255
  1057.                Index           =   26
  1058.                Left            =   3960
  1059.                TabIndex        =   110
  1060.                Top             =   3480
  1061.                Width           =   1215
  1062.             End
  1063.             Begin VB.Label lblLabels 
  1064.                Caption         =   "有效期限"
  1065.                Height          =   255
  1066.                Index           =   25
  1067.                Left            =   120
  1068.                TabIndex        =   109
  1069.                Top             =   3480
  1070.                Width           =   1815
  1071.             End
  1072.             Begin VB.Label lblLabels 
  1073.                Caption         =   "初次领证时间"
  1074.                Height          =   255
  1075.                Index           =   24
  1076.                Left            =   3960
  1077.                TabIndex        =   108
  1078.                Top             =   3120
  1079.                Width           =   1815
  1080.             End
  1081.             Begin VB.Label lblLabels 
  1082.                Caption         =   "准驾车辆"
  1083.                Height          =   255
  1084.                Index           =   23
  1085.                Left            =   120
  1086.                TabIndex        =   107
  1087.                Top             =   3120
  1088.                Width           =   855
  1089.             End
  1090.             Begin VB.Label lblLabels 
  1091.                Caption         =   "驾驶证号"
  1092.                Height          =   255
  1093.                Index           =   22
  1094.                Left            =   7800
  1095.                TabIndex        =   106
  1096.                Top             =   2760
  1097.                Width           =   735
  1098.             End
  1099.             Begin VB.Label lblLabels 
  1100.                Caption         =   "劳动力类型"
  1101.                Height          =   255
  1102.                Index           =   55
  1103.                Left            =   3960
  1104.                TabIndex        =   105
  1105.                Top             =   4200
  1106.                Width           =   1815
  1107.             End
  1108.             Begin VB.Label lblLabels 
  1109.                Caption         =   "人员类型二级"
  1110.                Height          =   255
  1111.                Index           =   54
  1112.                Left            =   120
  1113.                TabIndex        =   104
  1114.                Top             =   7080
  1115.                Width           =   1815
  1116.             End
  1117.             Begin VB.Label lblLabels 
  1118.                Caption         =   "人员类型一级"
  1119.                Height          =   255
  1120.                Index           =   53
  1121.                Left            =   7680
  1122.                TabIndex        =   103
  1123.                Top             =   6720
  1124.                Width           =   1815
  1125.             End
  1126.             Begin VB.Label lblLabels 
  1127.                Caption         =   "招收类型"
  1128.                Height          =   255
  1129.                Index           =   52
  1130.                Left            =   7800
  1131.                TabIndex        =   102
  1132.                Top             =   3840
  1133.                Width           =   1815
  1134.             End
  1135.             Begin VB.Label lblLabels 
  1136.                Caption         =   "档案转入时间"
  1137.                Height          =   255
  1138.                Index           =   50
  1139.                Left            =   3960
  1140.                TabIndex        =   101
  1141.                Top             =   3840
  1142.                Width           =   1215
  1143.             End
  1144.             Begin VB.Label lblLabels 
  1145.                Caption         =   "用工类型"
  1146.                Height          =   255
  1147.                Index           =   49
  1148.                Left            =   120
  1149.                TabIndex        =   100
  1150.                Top             =   4200
  1151.                Width           =   855
  1152.             End
  1153.             Begin VB.Label lblLabels 
  1154.                Caption         =   "转正时间"
  1155.                Height          =   255
  1156.                Index           =   48
  1157.                Left            =   120
  1158.                TabIndex        =   99
  1159.                Top             =   1320
  1160.                Width           =   1815
  1161.             End
  1162.             Begin VB.Label lblLabels 
  1163.                Caption         =   "进入公司时间"
  1164.                Height          =   255
  1165.                Index           =   47
  1166.                Left            =   7800
  1167.                TabIndex        =   98
  1168.                Top             =   960
  1169.                Width           =   1815
  1170.             End
  1171.             Begin VB.Label lblLabels 
  1172.                Caption         =   "原职务"
  1173.                Height          =   255
  1174.                Index           =   46
  1175.                Left            =   120
  1176.                TabIndex        =   97
  1177.                Top             =   3840
  1178.                Width           =   735
  1179.             End
  1180.             Begin VB.Label lblLabels 
  1181.                Caption         =   "原任职单位"
  1182.                Height          =   255
  1183.                Index           =   45
  1184.                Left            =   7800
  1185.                TabIndex        =   96
  1186.                Top             =   3480
  1187.                Width           =   1815
  1188.             End
  1189.             Begin VB.Label lblLabels 
  1190.                Caption         =   "子女医疗包干结束时间"
  1191.                Height          =   255
  1192.                Index           =   44
  1193.                Left            =   3840
  1194.                TabIndex        =   95
  1195.                Top             =   6720
  1196.                Width           =   1815
  1197.             End
  1198.             Begin VB.Label lblLabels 
  1199.                Caption         =   "子女医疗包干开始时间"
  1200.                Height          =   255
  1201.                Index           =   43
  1202.                Left            =   120
  1203.                TabIndex        =   94
  1204.                Top             =   6720
  1205.                Width           =   1935
  1206.             End
  1207.             Begin VB.Label lblLabels 
  1208.                Caption         =   "独生子女费结束时间"
  1209.                Height          =   255
  1210.                Index           =   42
  1211.                Left            =   7440
  1212.                TabIndex        =   93
  1213.                Top             =   6360
  1214.                Width           =   1695
  1215.             End
  1216.             Begin VB.Label lblLabels 
  1217.                Caption         =   "独生子女费开始时间"
  1218.                Height          =   255
  1219.                Index           =   41
  1220.                Left            =   3960
  1221.                TabIndex        =   92
  1222.                Top             =   6360
  1223.                Width           =   1815
  1224.             End
  1225.             Begin VB.Label lblLabels 
  1226.                Caption         =   "子女性别"
  1227.                Height          =   255
  1228.                Index           =   40
  1229.                Left            =   120
  1230.                TabIndex        =   91
  1231.                Top             =   6360
  1232.                Width           =   1815
  1233.             End
  1234.             Begin VB.Label lblLabels 
  1235.                Caption         =   "子女出生日期"
  1236.                Height          =   255
  1237.                Index           =   39
  1238.                Left            =   7800
  1239.                TabIndex        =   90
  1240.                Top             =   6000
  1241.                Width           =   1215
  1242.             End
  1243.             Begin VB.Label lblLabels 
  1244.                Caption         =   "独生子女姓名"
  1245.                Height          =   255
  1246.                Index           =   38
  1247.                Left            =   3960
  1248.                TabIndex        =   89
  1249.                Top             =   6000
  1250.                Width           =   1215
  1251.             End
  1252.             Begin VB.Label lblLabels 
  1253.                Caption         =   "特  长"
  1254.                Height          =   255
  1255.                Index           =   21
  1256.                Left            =   3960
  1257.                TabIndex        =   88
  1258.                Top             =   7080
  1259.                Width           =   735
  1260.             End
  1261.             Begin VB.Label lblLabels 
  1262.                Caption         =   "技术证书"
  1263.                Height          =   255
  1264.                Index           =   20
  1265.                Left            =   7800
  1266.                TabIndex        =   87
  1267.                Top             =   3120
  1268.                Width           =   855
  1269.             End
  1270.             Begin VB.Label lblLabels 
  1271.                Caption         =   "职称评定时间"
  1272.                Height          =   255
  1273.                Index           =   19
  1274.                Left            =   3960
  1275.                TabIndex        =   86
  1276.                Top             =   2760
  1277.                Width           =   1095
  1278.             End
  1279.             Begin VB.Label lblLabels 
  1280.                Caption         =   "职  称"
  1281.                Height          =   255
  1282.                Index           =   18
  1283.                Left            =   120
  1284.                TabIndex        =   85
  1285.                Top             =   2760
  1286.                Width           =   855
  1287.             End
  1288.             Begin VB.Label lblLabels 
  1289.                Caption         =   "毕业学校"
  1290.                Height          =   255
  1291.                Index           =   17
  1292.                Left            =   7800
  1293.                TabIndex        =   84
  1294.                Top             =   2400
  1295.                Width           =   1095
  1296.             End
  1297.             Begin VB.Label lblLabels 
  1298.                Caption         =   "所学专业"
  1299.                Height          =   255
  1300.                Index           =   16
  1301.                Left            =   3960
  1302.                TabIndex        =   83
  1303.                Top             =   2400
  1304.                Width           =   855
  1305.             End
  1306.             Begin VB.Label lblLabels 
  1307.                Caption         =   "学  历"
  1308.                Height          =   255
  1309.                Index           =   15
  1310.                Left            =   3960
  1311.                TabIndex        =   82
  1312.                Top             =   960
  1313.                Width           =   975
  1314.             End
  1315.             Begin VB.Label lblLabels 
  1316.                Caption         =   "身份证号"
  1317.                Height          =   255
  1318.                Index           =   14
  1319.                Left            =   120
  1320.                TabIndex        =   81
  1321.                Top             =   2400
  1322.                Width           =   1815
  1323.             End
  1324.             Begin VB.Label lblLabels 
  1325.                Caption         =   "婚姻状况"
  1326.                Height          =   255
  1327.                Index           =   13
  1328.                Left            =   7800
  1329.                TabIndex        =   80
  1330.                Top             =   600
  1331.                Width           =   855
  1332.             End
  1333.             Begin VB.Label lblLabels 
  1334.                Caption         =   "政治面目"
  1335.                Height          =   255
  1336.                Index           =   12
  1337.                Left            =   120
  1338.                TabIndex        =   79
  1339.                Top             =   960
  1340.                Width           =   1815
  1341.             End
  1342.             Begin VB.Label lblLabels 
  1343.                Caption         =   "户口所在地"
  1344.                Height          =   255
  1345.                Index           =   11
  1346.                Left            =   7800
  1347.                TabIndex        =   78
  1348.                Top             =   2040
  1349.                Width           =   1215
  1350.             End
  1351.             Begin VB.Label lblLabels 
  1352.                Caption         =   "出生地点"
  1353.                Height          =   255
  1354.                Index           =   10
  1355.                Left            =   3960
  1356.                TabIndex        =   77
  1357.                Top             =   2040
  1358.                Width           =   1815
  1359.             End
  1360.             Begin VB.Label lblLabels 
  1361.                Caption         =   "籍  贯"
  1362.                Height          =   255
  1363.                Index           =   9
  1364.                Left            =   120
  1365.                TabIndex        =   76
  1366.                Top             =   2040
  1367.                Width           =   615
  1368.             End
  1369.             Begin VB.Label lblLabels 
  1370.                Caption         =   "民  族"
  1371.                Height          =   255
  1372.                Index           =   8
  1373.                Left            =   3960
  1374.                TabIndex        =   75
  1375.                Top             =   600
  1376.                Width           =   615
  1377.             End
  1378.             Begin VB.Label lblLabels 
  1379.                Caption         =   "出生日期"
  1380.                Height          =   255
  1381.                Index           =   7
  1382.                Left            =   120
  1383.                TabIndex        =   74
  1384.                Top             =   600
  1385.                Width           =   975
  1386.             End
  1387.             Begin VB.Label lblLabels 
  1388.                Caption         =   "血  型"
  1389.                Height          =   255
  1390.                Index           =   5
  1391.                Left            =   120
  1392.                TabIndex        =   73
  1393.                Top             =   1680
  1394.                Width           =   615
  1395.             End
  1396.             Begin VB.Label lblLabels 
  1397.                Caption         =   "体  重"
  1398.                Height          =   255
  1399.                Index           =   4
  1400.                Left            =   7800
  1401.                TabIndex        =   72
  1402.                Top             =   1680
  1403.                Width           =   615
  1404.             End
  1405.             Begin VB.Label lblLabels 
  1406.                Caption         =   "身  高"
  1407.                Height          =   255
  1408.                Index           =   3
  1409.                Left            =   3960
  1410.                TabIndex        =   71
  1411.                Top             =   1680
  1412.                Width           =   615
  1413.             End
  1414.             Begin VB.Label lblLabels 
  1415.                Caption         =   "性  别"
  1416.                Height          =   255
  1417.                Index           =   2
  1418.                Left            =   7800
  1419.                TabIndex        =   70
  1420.                Top             =   240
  1421.                Width           =   615
  1422.             End
  1423.             Begin VB.Label lblLabels 
  1424.                Caption         =   "姓  名"
  1425.                Height          =   255
  1426.                Index           =   1
  1427.                Left            =   3960
  1428.                TabIndex        =   69
  1429.                Top             =   240
  1430.                Width           =   615
  1431.             End
  1432.             Begin VB.Label lblLabels 
  1433.                Caption         =   "员工号"
  1434.                Height          =   255
  1435.                Index           =   0
  1436.                Left            =   120
  1437.                TabIndex        =   68
  1438.                Top             =   300
  1439.                Width           =   615
  1440.             End
  1441.          End
  1442.       End
  1443.    End
  1444. End
  1445. Attribute VB_Name = "F_JiBenXinXi"
  1446. Attribute VB_GlobalNameSpace = False
  1447. Attribute VB_Creatable = False
  1448. Attribute VB_PredeclaredId = True
  1449. Attribute VB_Exposed = False
  1450. Dim WithEvents adoPrimaryRS As Recordset
  1451. Attribute adoPrimaryRS.VB_VarHelpID = -1
  1452. Dim mvBookMark As Variant
  1453. Dim mbEditFlag As Boolean
  1454. Dim mbAddNewFlag As Boolean
  1455. Dim SqlBuMen As String
  1457. Private Sub Combo1_KeyPress(KeyAscii As Integer)
  1458. If KeyAscii = vbKeyReturn Then
  1459.     SendKeys "{TAB}"
  1460. End If
  1461. End Sub
  1463. Private Sub Combo2_KeyPress(KeyAscii As Integer)
  1464. If KeyAscii = vbKeyReturn Then
  1465.     SendKeys "{TAB}"
  1466. End If
  1467. End Sub
  1469. Private Sub Combo3_KeyPress(KeyAscii As Integer)
  1470. If KeyAscii = vbKeyReturn Then
  1471.     SendKeys "{TAB}"
  1472. End If
  1473. End Sub
  1475. Private Sub Combo4_KeyPress(KeyAscii As Integer)
  1476. If KeyAscii = vbKeyReturn Then
  1477.     SendKeys "{TAB}"
  1478. End If
  1479. End Sub
  1481. Private Sub Combo5_KeyPress(KeyAscii As Integer)
  1482. If KeyAscii = vbKeyReturn Then
  1483.     SendKeys "{TAB}"
  1484. End If
  1485. End Sub
  1487. Private Sub Combo6_KeyPress(KeyAscii As Integer)
  1488. If KeyAscii = vbKeyReturn Then
  1489.     SendKeys "{TAB}"
  1490. End If
  1491. End Sub
  1493. Private Sub Combo7_KeyPress(KeyAscii As Integer)
  1494. If KeyAscii = vbKeyReturn Then
  1495.     SendKeys "{TAB}"
  1496. End If
  1497. End Sub
  1499. Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
  1500. If KeyAscii = vbKeyReturn Then
  1501.     SendKeys "{TAB}"
  1502. End If
  1503. End Sub
  1505. Private Sub DTPicker10_KeyPress(KeyAscii As Integer)
  1506. If KeyAscii = vbKeyReturn Then
  1507.     SendKeys "{TAB}"
  1508. End If
  1509. End Sub
  1511. Private Sub DTPicker11_KeyPress(KeyAscii As Integer)
  1512. If KeyAscii = vbKeyReturn Then
  1513.     SendKeys "{TAB}"
  1514. End If
  1515. End Sub
  1518. Private Sub DTPicker12_KeyPress(KeyAscii As Integer)
  1519. If KeyAscii = vbKeyReturn Then
  1520.     SendKeys "{TAB}"
  1521. End If
  1522. End Sub
  1524. Private Sub DTPicker13_KeyPress(KeyAscii As Integer)
  1525. If KeyAscii = vbKeyReturn Then
  1526.     SendKeys "{TAB}"
  1527. End If
  1528. End Sub
  1531. Private Sub DTPicker14_KeyPress(KeyAscii As Integer)
  1532. If KeyAscii = vbKeyReturn Then
  1533.     SendKeys "{TAB}"
  1534. End If
  1535. End Sub
  1537. Private Sub DTPicker2_KeyPress(KeyAscii As Integer)
  1538. If KeyAscii = vbKeyReturn Then
  1539.     SendKeys "{TAB}"
  1540. End If
  1541. End Sub
  1543. Private Sub DTPicker3_KeyPress(KeyAscii As Integer)
  1544. If KeyAscii = vbKeyReturn Then
  1545.     SendKeys "{TAB}"
  1546. End If
  1547. End Sub
  1549. Private Sub DTPicker4_KeyPress(KeyAscii As Integer)
  1550. If KeyAscii = vbKeyReturn Then
  1551.     SendKeys "{TAB}"
  1552. End If
  1553. End Sub
  1555. Private Sub DTPicker5_KeyPress(KeyAscii As Integer)
  1556. If KeyAscii = vbKeyReturn Then
  1557.     SendKeys "{TAB}"
  1558. End If
  1559. End Sub
  1561. Private Sub DTPicker6_KeyPress(KeyAscii As Integer)
  1562. If KeyAscii = vbKeyReturn Then
  1563.     SendKeys "{TAB}"
  1564. End If
  1565. End Sub
  1567. Private Sub DTPicker7_KeyPress(KeyAscii As Integer)
  1568. If KeyAscii = vbKeyReturn Then
  1569.     SendKeys "{TAB}"
  1570. End If
  1571. End Sub
  1573. Private Sub DTPicker8_KeyPress(KeyAscii As Integer)
  1574. If KeyAscii = vbKeyReturn Then
  1575.     SendKeys "{TAB}"
  1576. End If
  1577. End Sub
  1579. Private Sub DTPicker9_KeyPress(KeyAscii As Integer)
  1580. If KeyAscii = vbKeyReturn Then
  1581.     SendKeys "{TAB}"
  1582. End If
  1583. End Sub
  1585. Private Sub Form_Load()
  1586.  On Error Resume Next
  1587.     For Each TextBox In Me.Controls
  1588.         TextBox.Font.Name = "宋体"
  1589.         TextBox.Font.Size = 9
  1590.     Next
  1591.  Set adoPrimaryRS = New Recordset
  1592.   adoPrimaryRS.Open "select * from 员工基本信息", db, adOpenStatic, adLockOptimistic
  1593.   Set DataGrid1.DataSource = adoPrimaryRS
  1594.   
  1595.   SetButtons True
  1596.   
  1597.   Set DTPicker1.DataSource = adoPrimaryRS
  1598.   Set DTPicker2.DataSource = adoPrimaryRS
  1599.   Set DTPicker3.DataSource = adoPrimaryRS
  1600.   Set DTPicker4.DataSource = adoPrimaryRS
  1601.   Set DTPicker5.DataSource = adoPrimaryRS
  1602.   Set DTPicker6.DataSource = adoPrimaryRS
  1603.   Set DTPicker7.DataSource = adoPrimaryRS
  1604.   Set DTPicker8.DataSource = adoPrimaryRS
  1605.   Set DTPicker9.DataSource = adoPrimaryRS
  1606.   Set DTPicker10.DataSource = adoPrimaryRS
  1607.   Set DTPicker11.DataSource = adoPrimaryRS
  1608.   Set DTPicker12.DataSource = adoPrimaryRS
  1609.   Set DTPicker13.DataSource = adoPrimaryRS
  1610.   Set DTPicker14.DataSource = adoPrimaryRS
  1611.   Set Combo1.DataSource = adoPrimaryRS
  1612.   Set Combo2.DataSource = adoPrimaryRS
  1613.   Set Combo3.DataSource = adoPrimaryRS
  1614.   Set Combo4.DataSource = adoPrimaryRS
  1615.   Set Combo5.DataSource = adoPrimaryRS
  1616.   Set Combo6.DataSource = adoPrimaryRS
  1617.   Set Combo7.DataSource = adoPrimaryRS
  1618.   Dim oText As TextBox
  1619.   'Bind the text boxes to the data provider
  1620.   For Each oText In Me.txtFields
  1621.     Set oText.DataSource = adoPrimaryRS
  1622.   Next
  1623.   
  1624.  SqlBuMen = "select  distinct 部门名称 from 部门维护表"
  1625.   Set RsBuMen = db.Execute(SqlBuMen)
  1626.    
  1627.   While Not RsBuMen.EOF
  1628.      Combo1.AddItem Trim(RsBuMen("部门名称"))
  1629.     RsBuMen.MoveNext
  1631.   Wend
  1633. Combo2.AddItem "正式工"
  1634. Combo2.AddItem "临时工"
  1635. Combo2.AddItem "聘退人员"
  1637. Combo3.AddItem "博士"
  1638. Combo3.AddItem "硕士"
  1639. Combo3.AddItem "大学"
  1640. Combo3.AddItem "大专"
  1641. Combo3.AddItem "高中"
  1642. Combo3.AddItem "职高"
  1643. Combo3.AddItem "中技"
  1644. Combo3.AddItem "初中"
  1646. Combo4.AddItem "男"
  1647. Combo4.AddItem "女"
  1648. Combo5.AddItem "男"
  1649. Combo5.AddItem "女"
  1651. Combo6.AddItem "从农村招收"
  1652. Combo6.AddItem "从城镇招收"
  1653. Combo6.AddItem "复员转业军人"
  1654. Combo6.AddItem "大学中专技校毕业生"
  1655. Combo6.AddItem "本市外单位调入"
  1656. Combo6.AddItem "外省自治区直辖市调入"
  1657. Combo6.AddItem "其他"
  1659. Combo7.AddItem "工人和学徒"
  1660. Combo7.AddItem "工程技术人员"
  1661. Combo7.AddItem "管理人员"
  1662. Combo7.AddItem "服务人员"
  1663. Combo7.AddItem "其他人员"
  1664. End Sub
  1666. Private Sub Form_Unload(Cancel As Integer)
  1667.   Screen.MousePointer = vbDefault
  1668. End Sub
  1670. Private Sub cmdAdd_Click()
  1671.   On Error GoTo AddErr
  1672.   With adoPrimaryRS
  1673.     If Not (.BOF And .EOF) Then
  1674.       mvBookMark = .Bookmark
  1675.     End If
  1676.     .AddNew
  1677.     mbAddNewFlag = True
  1678.     SetButtons False
  1679.   End With
  1680.   On Error GoTo 0
  1681.   Exit Sub
  1682. AddErr:
  1683.   MsgBox "增加操作有错误", vbExclamation + vbOKOnly, pTitle
  1684. End Sub
  1686. Private Sub cmdDelete_Click()
  1687.   On Error GoTo DeleteErr
  1688.   If MsgBox("是否确认删除员工信息？", vbYesNo + vbQuestion, "系统提示") = vbNo Then Exit Sub
  1689.   With adoPrimaryRS
  1690.     .Delete
  1691.     .MoveNext
  1692.     If .EOF Then .MoveLast
  1693.   End With
  1694.   On Error GoTo 0
  1695.   Exit Sub
  1696. DeleteErr:
  1697.   MsgBox "删除操作有错误", vbExclamation + vbOKOnly, pTitle
  1698. End Sub
  1700. Private Sub cmdRefresh_Click()
  1701.   'This is only needed for multi user apps
  1702.   On Error GoTo RefreshErr
  1703.   adoPrimaryRS.Requery
  1704.   Exit Sub
  1705. RefreshErr:
  1706.    MsgBox "刷新操作有错误", vbExclamation + vbOKOnly, pTitle
  1707. End Sub
  1709. Private Sub cmdEdit_Click()
  1710.   On Error GoTo EditErr
  1711.   mbEditFlag = True
  1712.   SetButtons False
  1713.   On Error GoTo 0
  1714.   Exit Sub
  1715. EditErr:
  1716.    MsgBox "更改操作有错误", vbExclamation + vbOKOnly, pTitle
  1717. End Sub
  1718. Private Sub cmdCancel_Click()
  1719.  ' On Error Resume Next
  1720.  On Error GoTo CancelErr
  1723.   mbEditFlag = False
  1724.   mbAddNewFlag = False
  1725.   adoPrimaryRS.CancelUpdate
  1727.   If mvBookMark > 0 Then
  1728.    adoPrimaryRS.Bookmark = mvBookMark
  1729.   Else
  1730.    adoPrimaryRS.MoveFirst
  1731.   End If
  1732.  SetButtons True
  1733.   Exit Sub
  1734. CancelErr:
  1735.    
  1736.    MsgBox "取消操作有错误", vbExclamation + vbOKOnly, pTitle
  1737. End Sub
  1739. Private Sub cmdUpdate_Click()
  1740.   On Error GoTo UpdateErr
  1741.   If MsgBox("是否确认此操作？", vbYesNo + vbQuestion, "系统提示") = vbNo Then Exit Sub
  1742.   adoPrimaryRS.UpdateBatch adAffectAll
  1744.   If mbAddNewFlag Then
  1745.     adoPrimaryRS.MoveLast              'move to the new record
  1746.   End If
  1748.   mbEditFlag = False
  1749.   mbAddNewFlag = False
  1750.   SetButtons True
  1751.   
  1752.   On Error GoTo 0
  1753.   Exit Sub
  1754. UpdateErr:
  1755.    MsgBox "保存操作有错误", vbExclamation + vbOKOnly, pTitle
  1756. End Sub
  1758. Private Sub cmdClose_Click()
  1759.   
  1760.   RSGL.Enabled = True
  1761.   Unload Me
  1762. End Sub
  1764. Private Sub SetButtons(bVal As Boolean)
  1765. Dim oTEX As TextBox
  1766.   CmdAdd.Visible = bVal
  1767.   cmdEdit.Visible = bVal
  1768.   cmdUpdate.Visible = Not bVal
  1769.   cmdCancel.Visible = Not bVal
  1770.   CmdDelete.Visible = bVal
  1771.   cmdClose.Visible = bVal
  1772.   cmdRefresh.Visible = bVal
  1773.   If bVal Then
  1774.    Set DataGrid1.DataSource = adoPrimaryRS
  1775.   Else
  1776.    Set DataGrid1.DataSource = Nothing
  1777.   End If
  1778.   
  1779.   For Each oText In Me.txtFields
  1780.      oText.Enabled = Not bVal
  1781.   Next
  1782.   
  1783.   DTPicker1.Enabled = Not bVal
  1784.   DTPicker2.Enabled = Not bVal
  1785.   DTPicker3.Enabled = Not bVal
  1786.   DTPicker4.Enabled = Not bVal
  1787.   DTPicker5.Enabled = Not bVal
  1788.   DTPicker6.Enabled = Not bVal
  1789.   DTPicker7.Enabled = Not bVal
  1790.   DTPicker8.Enabled = Not bVal
  1791.   DTPicker9.Enabled = Not bVal
  1792.   DTPicker10.Enabled = Not bVal
  1793.   DTPicker11.Enabled = Not bVal
  1794.   DTPicker12.Enabled = Not bVal
  1795.   DTPicker13.Enabled = Not bVal
  1796.   DTPicker14.Enabled = Not bVal
  1797.   Combo1.Enabled = Not bVal
  1798.   Combo2.Enabled = Not bVal
  1799.   Combo3.Enabled = Not bVal
  1800.   Combo4.Enabled = Not bVal
  1801.   Combo5.Enabled = Not bVal
  1802.   Combo6.Enabled = Not bVal
  1803.   Combo7.Enabled = Not bVal
  1805. End Sub
  1807. Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)
  1808. If KeyAscii = vbKeyReturn Then
  1809.     SendKeys "{TAB}"
  1810. End If
  1811. End Sub
  1813. Private Sub txtFields_LostFocus(Index As Integer)
  1814. If Not IsNumeric(txtFields(3).Text) And (txtFields(3).Text <> "") Then
  1815.     MsgBox "请在“身高”中输入数字", vbExclamation + vbOKOnly, pTitle
  1816.      txtFields(3).SetFocus
  1817.      txtFields(3).SelLength = Len(txtFields(3))
  1818.      txtFields(3).SelStart = 0
  1819. End If
  1821. If Not IsNumeric(txtFields(4).Text) And (txtFields(4).Text <> "") Then
  1822.     MsgBox "请在“体重”中输入数字", vbExclamation + vbOKOnly, pTitle
  1823.      txtFields(4).SetFocus
  1824.      txtFields(4).SelLength = Len(txtFields(4))
  1825.      txtFields(4).SelStart = 0
  1826. End If
  1827. End Sub