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

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

企业管理

开发平台：

Visual Basic

main_rsgl_zyfz.frm：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  4. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  5. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  6. Begin VB.Form main_rsgl_zyfz 
  7.    BorderStyle     =   3  'Fixed Dialog
  8.    Caption         =   "Form1"
  9.    ClientHeight    =   5955
  10.    ClientLeft      =   45
  11.    ClientTop       =   330
  12.    ClientWidth     =   10440
  13.    Icon            =   "main_rsgl_zyfz.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   5955
  18.    ScaleWidth      =   10440
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  '屏幕中心
  21.    Begin VB.Frame Frame2 
  22.       Caption         =   "复职信息"
  23.       Height          =   660
  24.       Left            =   15
  25.       TabIndex        =   25
  26.       Top             =   3315
  27.       Width           =   10410
  28.       Begin VB.TextBox Text2 
  29.          Height          =   330
  30.          Index           =   1
  31.          Left            =   7260
  32.          TabIndex        =   31
  33.          Top             =   225
  34.          Width           =   3030
  35.       End
  36.       Begin MSComCtl2.DTPicker DTP3 
  37.          Height          =   300
  38.          Left            =   1005
  39.          TabIndex        =   29
  40.          Top             =   225
  41.          Width           =   1800
  42.          _ExtentX        =   3175
  43.          _ExtentY        =   529
  44.          _Version        =   393216
  45.          Format          =   48103425
  46.          CurrentDate     =   38698
  47.       End
  48.       Begin MSComCtl2.DTPicker DTP4 
  49.          Height          =   300
  50.          Left            =   4260
  51.          TabIndex        =   30
  52.          Top             =   225
  53.          Width           =   1800
  54.          _ExtentX        =   3175
  55.          _ExtentY        =   529
  56.          _Version        =   393216
  57.          Format          =   48103425
  58.          CurrentDate     =   38698
  59.       End
  60.       Begin VB.Label Label14 
  61.          BackStyle       =   0  'Transparent
  62.          Caption         =   "复职登记人："
  63.          Height          =   210
  64.          Left            =   6180
  65.          TabIndex        =   28
  66.          Top             =   285
  67.          Width           =   1170
  68.       End
  69.       Begin VB.Label Label13 
  70.          BackStyle       =   0  'Transparent
  71.          Caption         =   "复职登记时间："
  72.          Height          =   210
  73.          Left            =   2955
  74.          TabIndex        =   27
  75.          Top             =   285
  76.          Width           =   1305
  77.       End
  78.       Begin VB.Label Label10 
  79.          BackStyle       =   0  'Transparent
  80.          Caption         =   "复职时间："
  81.          Height          =   210
  82.          Left            =   60
  83.          TabIndex        =   26
  84.          Top             =   285
  85.          Width           =   900
  86.       End
  87.    End
  88.    Begin MSAdodcLib.Adodc Adodc1 
  89.       Height          =   330
  90.       Left            =   -1620
  91.       Top             =   3615
  92.       Visible         =   0   'False
  93.       Width           =   2040
  94.       _ExtentX        =   3598
  95.       _ExtentY        =   582
  96.       ConnectMode     =   0
  97.       CursorLocation  =   3
  98.       IsolationLevel  =   -1
  99.       ConnectionTimeout=   15
  100.       CommandTimeout  =   30
  101.       CursorType      =   3
  102.       LockType        =   3
  103.       CommandType     =   1
  104.       CursorOptions   =   0
  105.       CacheSize       =   50
  106.       MaxRecords      =   0
  107.       BOFAction       =   0
  108.       EOFAction       =   0
  109.       ConnectStringType=   1
  110.       Appearance      =   1
  111.       BackColor       =   -2147483643
  112.       ForeColor       =   -2147483640
  113.       Orientation     =   0
  114.       Enabled         =   -1
  115.       Connect         =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  116.       OLEDBString     =   "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_manpowerinfo"
  117.       OLEDBFile       =   ""
  118.       DataSourceName  =   ""
  119.       OtherAttributes =   ""
  120.       UserName        =   ""
  121.       Password        =   ""
  122.       RecordSource    =   "select * from 离职表 where 是否复职=0 order by 编号"
  123.       Caption         =   "Adodc1"
  124.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  125.          Name            =   "宋体"
  126.          Size            =   9
  127.          Charset         =   134
  128.          Weight          =   400
  129.          Underline       =   0   'False
  130.          Italic          =   0   'False
  131.          Strikethrough   =   0   'False
  132.       EndProperty
  133.       _Version        =   393216
  134.    End
  135.    Begin MSComctlLib.ImageList ImageList1 
  136.       Left            =   735
  137.       Top             =   1155
  138.       _ExtentX        =   1005
  139.       _ExtentY        =   1005
  140.       BackColor       =   -2147483643
  141.       ImageWidth      =   32
  142.       ImageHeight     =   32
  143.       MaskColor       =   12632256
  144.       _Version        =   393216
  145.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  146.          NumListImages   =   5
  147.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  148.             Picture         =   "main_rsgl_zyfz.frx":000C
  149.             Key             =   ""
  150.          EndProperty
  151.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  152.             Picture         =   "main_rsgl_zyfz.frx":0786
  153.             Key             =   ""
  154.          EndProperty
  155.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  156.             Picture         =   "main_rsgl_zyfz.frx":1460
  157.             Key             =   ""
  158.          EndProperty
  159.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  160.             Picture         =   "main_rsgl_zyfz.frx":2ABA
  161.             Key             =   ""
  162.          EndProperty
  163.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  164.             Picture         =   "main_rsgl_zyfz.frx":3394
  165.             Key             =   ""
  166.          EndProperty
  167.       EndProperty
  168.    End
  169.    Begin VB.Frame Frame1 
  170.       Caption         =   "相关人事信息"
  171.       Height          =   1800
  172.       Left            =   15
  173.       TabIndex        =   2
  174.       Top             =   1515
  175.       Width           =   10410
  176.       Begin VB.TextBox Text1 
  177.          Height          =   330
  178.          Index           =   9
  179.          Left            =   960
  180.          Locked          =   -1  'True
  181.          TabIndex        =   22
  182.          Top             =   1365
  183.          Width           =   1680
  184.       End
  185.       Begin VB.TextBox Text1 
  186.          Height          =   330
  187.          Index           =   10
  188.          Left            =   3600
  189.          Locked          =   -1  'True
  190.          TabIndex        =   21
  191.          Top             =   1365
  192.          Width           =   1425
  193.       End
  194.       Begin VB.TextBox Text1 
  195.          Height          =   330
  196.          Index           =   8
  197.          Left            =   6180
  198.          Locked          =   -1  'True
  199.          TabIndex        =   17
  200.          Top             =   990
  201.          Width           =   4095
  202.       End
  203.       Begin VB.TextBox Text1 
  204.          Height          =   330
  205.          Index           =   7
  206.          Left            =   3600
  207.          Locked          =   -1  'True
  208.          TabIndex        =   16
  209.          Top             =   990
  210.          Width           =   1425
  211.       End
  212.       Begin VB.TextBox Text1 
  213.          Height          =   330
  214.          Index           =   6
  215.          Left            =   960
  216.          Locked          =   -1  'True
  217.          TabIndex        =   15
  218.          Top             =   990
  219.          Width           =   1680
  220.       End
  221.       Begin VB.TextBox Text1 
  222.          Height          =   330
  223.          Index           =   5
  224.          Left            =   6180
  225.          Locked          =   -1  'True
  226.          TabIndex        =   10
  227.          Top             =   615
  228.          Width           =   4095
  229.       End
  230.       Begin VB.TextBox Text1 
  231.          Height          =   330
  232.          Index           =   4
  233.          Left            =   3600
  234.          Locked          =   -1  'True
  235.          TabIndex        =   9
  236.          Top             =   615
  237.          Width           =   1425
  238.       End
  239.       Begin VB.TextBox Text1 
  240.          Height          =   330
  241.          Index           =   3
  242.          Left            =   960
  243.          Locked          =   -1  'True
  244.          TabIndex        =   8
  245.          Top             =   615
  246.          Width           =   1680
  247.       End
  248.       Begin VB.TextBox Text1 
  249.          Height          =   330
  250.          Index           =   2
  251.          Left            =   6180
  252.          Locked          =   -1  'True
  253.          TabIndex        =   7
  254.          Top             =   240
  255.          Width           =   4095
  256.       End
  257.       Begin VB.TextBox Text1 
  258.          Height          =   330
  259.          Index           =   1
  260.          Left            =   3600
  261.          Locked          =   -1  'True
  262.          TabIndex        =   6
  263.          Top             =   240
  264.          Width           =   1425
  265.       End
  266.       Begin VB.TextBox Text1 
  267.          Height          =   330
  268.          Index           =   0
  269.          Left            =   960
  270.          Locked          =   -1  'True
  271.          TabIndex        =   4
  272.          Top             =   255
  273.          Width           =   1680
  274.       End
  275.       Begin VB.Label Label12 
  276.          Caption         =   "登记日期："
  277.          Height          =   195
  278.          Left            =   75
  279.          TabIndex        =   24
  280.          Top             =   1425
  281.          Width           =   930
  282.       End
  283.       Begin VB.Label Label11 
  284.          Caption         =   "调入时间："
  285.          Height          =   195
  286.          Left            =   2715
  287.          TabIndex        =   23
  288.          Top             =   1425
  289.          Width           =   960
  290.       End
  291.       Begin VB.Label Label9 
  292.          Caption         =   "基本工资："
  293.          Height          =   195
  294.          Left            =   75
  295.          TabIndex        =   20
  296.          Top             =   1080
  297.          Width           =   960
  298.       End
  299.       Begin VB.Label Label8 
  300.          Caption         =   "其他工资："
  301.          Height          =   195
  302.          Left            =   2715
  303.          TabIndex        =   19
  304.          Top             =   1080
  305.          Width           =   930
  306.       End
  307.       Begin VB.Label Label7 
  308.          Caption         =   "本单位工龄："
  309.          Height          =   195
  310.          Left            =   5070
  311.          TabIndex        =   18
  312.          Top             =   1110
  313.          Width           =   1140
  314.       End
  315.       Begin VB.Label Label6 
  316.          Caption         =   "职称："
  317.          Height          =   195
  318.          Left            =   5580
  319.          TabIndex        =   14
  320.          Top             =   720
  321.          Width           =   570
  322.       End
  323.       Begin VB.Label Label5 
  324.          Caption         =   "职务："
  325.          Height          =   195
  326.          Left            =   3075
  327.          TabIndex        =   13
  328.          Top             =   705
  329.          Width           =   540
  330.       End
  331.       Begin VB.Label Label4 
  332.          Caption         =   "工种："
  333.          Height          =   195
  334.          Left            =   420
  335.          TabIndex        =   12
  336.          Top             =   705
  337.          Width           =   570
  338.       End
  339.       Begin VB.Label Label3 
  340.          Caption         =   "部门："
  341.          Height          =   195
  342.          Left            =   5580
  343.          TabIndex        =   11
  344.          Top             =   330
  345.          Width           =   600
  346.       End
  347.       Begin VB.Label Label2 
  348.          Caption         =   "姓名："
  349.          Height          =   195
  350.          Left            =   3075
  351.          TabIndex        =   5
  352.          Top             =   315
  353.          Width           =   555
  354.       End
  355.       Begin VB.Label Label1 
  356.          Caption         =   "编号："
  357.          Height          =   195
  358.          Left            =   420
  359.          TabIndex        =   3
  360.          Top             =   315
  361.          Width           =   570
  362.       End
  363.    End
  364.    Begin MSComctlLib.Toolbar Toolbar1 
  365.       Align           =   1  'Align Top
  366.       Height          =   795
  367.       Left            =   0
  368.       TabIndex        =   0
  369.       Top             =   0
  370.       Width           =   10440
  371.       _ExtentX        =   18415
  372.       _ExtentY        =   1402
  373.       ButtonWidth     =   1138
  374.       ButtonHeight    =   1349
  375.       Appearance      =   1
  376.       Style           =   1
  377.       ImageList       =   "ImageList1"
  378.       _Version        =   393216
  379.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  380.          NumButtons      =   6
  381.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  382.             Caption         =   " 查找 "
  383.             Key             =   "find"
  384.             ImageIndex      =   1
  385.          EndProperty
  386.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  387.             Caption         =   "全部"
  388.             Key             =   "all"
  389.             ImageIndex      =   2
  390.          EndProperty
  391.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  392.             Style           =   3
  393.          EndProperty
  394.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  395.             Caption         =   "复职"
  396.             Key             =   "rehab"
  397.             ImageIndex      =   3
  398.          EndProperty
  399.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  400.             Enabled         =   0   'False
  401.             Style           =   3
  402.          EndProperty
  403.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  404.             Caption         =   "退出"
  405.             Key             =   "close"
  406.             ImageIndex      =   4
  407.          EndProperty
  408.       EndProperty
  409.       BorderStyle     =   1
  410.    End
  411.    Begin MSDataGridLib.DataGrid DataGrid1 
  412.       Bindings        =   "main_rsgl_zyfz.frx":49EE
  413.       Height          =   1905
  414.       Left            =   15
  415.       TabIndex        =   1
  416.       Top             =   3990
  417.       Width           =   10410
  418.       _ExtentX        =   18362
  419.       _ExtentY        =   3360
  420.       _Version        =   393216
  421.       AllowUpdate     =   0   'False
  422.       HeadLines       =   1
  423.       RowHeight       =   15
  424.       FormatLocked    =   -1  'True
  425.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  426.          Name            =   "宋体"
  427.          Size            =   9
  428.          Charset         =   134
  429.          Weight          =   400
  430.          Underline       =   0   'False
  431.          Italic          =   0   'False
  432.          Strikethrough   =   0   'False
  433.       EndProperty
  434.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  435.          Name            =   "宋体"
  436.          Size            =   9
  437.          Charset         =   134
  438.          Weight          =   400
  439.          Underline       =   0   'False
  440.          Italic          =   0   'False
  441.          Strikethrough   =   0   'False
  442.       EndProperty
  443.       ColumnCount     =   37
  444.       BeginProperty Column00 
  445.          DataField       =   "编号"
  446.          Caption         =   "编号"
  447.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  448.             Type            =   0
  449.             Format          =   ""
  450.             HaveTrueFalseNull=   0
  451.             FirstDayOfWeek  =   0
  452.             FirstWeekOfYear =   0
  453.             LCID            =   2052
  454.             SubFormatType   =   0
  455.          EndProperty
  456.       EndProperty
  457.       BeginProperty Column01 
  458.          DataField       =   "姓名"
  459.          Caption         =   "姓名"
  460.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  461.             Type            =   0
  462.             Format          =   ""
  463.             HaveTrueFalseNull=   0
  464.             FirstDayOfWeek  =   0
  465.             FirstWeekOfYear =   0
  466.             LCID            =   2052
  467.             SubFormatType   =   0
  468.          EndProperty
  469.       EndProperty
  470.       BeginProperty Column02 
  471.          DataField       =   "性别"
  472.          Caption         =   "性别"
  473.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  474.             Type            =   0
  475.             Format          =   ""
  476.             HaveTrueFalseNull=   0
  477.             FirstDayOfWeek  =   0
  478.             FirstWeekOfYear =   0
  479.             LCID            =   2052
  480.             SubFormatType   =   0
  481.          EndProperty
  482.       EndProperty
  483.       BeginProperty Column03 
  484.          DataField       =   "身份证号"
  485.          Caption         =   "身份证号"
  486.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  487.             Type            =   0
  488.             Format          =   ""
  489.             HaveTrueFalseNull=   0
  490.             FirstDayOfWeek  =   0
  491.             FirstWeekOfYear =   0
  492.             LCID            =   2052
  493.             SubFormatType   =   0
  494.          EndProperty
  495.       EndProperty
  496.       BeginProperty Column04 
  497.          DataField       =   "出生年月"
  498.          Caption         =   "出生年月"
  499.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  500.             Type            =   0
  501.             Format          =   ""
  502.             HaveTrueFalseNull=   0
  503.             FirstDayOfWeek  =   0
  504.             FirstWeekOfYear =   0
  505.             LCID            =   2052
  506.             SubFormatType   =   0
  507.          EndProperty
  508.       EndProperty
  509.       BeginProperty Column05 
  510.          DataField       =   "民族"
  511.          Caption         =   "民族"
  512.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  513.             Type            =   0
  514.             Format          =   ""
  515.             HaveTrueFalseNull=   0
  516.             FirstDayOfWeek  =   0
  517.             FirstWeekOfYear =   0
  518.             LCID            =   2052
  519.             SubFormatType   =   0
  520.          EndProperty
  521.       EndProperty
  522.       BeginProperty Column06 
  523.          DataField       =   "婚姻状况"
  524.          Caption         =   "婚姻状况"
  525.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  526.             Type            =   0
  527.             Format          =   ""
  528.             HaveTrueFalseNull=   0
  529.             FirstDayOfWeek  =   0
  530.             FirstWeekOfYear =   0
  531.             LCID            =   2052
  532.             SubFormatType   =   0
  533.          EndProperty
  534.       EndProperty
  535.       BeginProperty Column07 
  536.          DataField       =   "政治面貌"
  537.          Caption         =   "政治面貌"
  538.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  539.             Type            =   0
  540.             Format          =   ""
  541.             HaveTrueFalseNull=   0
  542.             FirstDayOfWeek  =   0
  543.             FirstWeekOfYear =   0
  544.             LCID            =   2052
  545.             SubFormatType   =   0
  546.          EndProperty
  547.       EndProperty
  548.       BeginProperty Column08 
  549.          DataField       =   "入党团时间"
  550.          Caption         =   "入党团时间"
  551.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  552.             Type            =   0
  553.             Format          =   ""
  554.             HaveTrueFalseNull=   0
  555.             FirstDayOfWeek  =   0
  556.             FirstWeekOfYear =   0
  557.             LCID            =   2052
  558.             SubFormatType   =   0
  559.          EndProperty
  560.       EndProperty
  561.       BeginProperty Column09 
  562.          DataField       =   "籍贯"
  563.          Caption         =   "籍贯"
  564.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  565.             Type            =   0
  566.             Format          =   ""
  567.             HaveTrueFalseNull=   0
  568.             FirstDayOfWeek  =   0
  569.             FirstWeekOfYear =   0
  570.             LCID            =   2052
  571.             SubFormatType   =   0
  572.          EndProperty
  573.       EndProperty
  574.       BeginProperty Column10 
  575.          DataField       =   "联系电话"
  576.          Caption         =   "联系电话"
  577.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  578.             Type            =   0
  579.             Format          =   ""
  580.             HaveTrueFalseNull=   0
  581.             FirstDayOfWeek  =   0
  582.             FirstWeekOfYear =   0
  583.             LCID            =   2052
  584.             SubFormatType   =   0
  585.          EndProperty
  586.       EndProperty
  587.       BeginProperty Column11 
  588.          DataField       =   "手机号码"
  589.          Caption         =   "手机号码"
  590.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  591.             Type            =   0
  592.             Format          =   ""
  593.             HaveTrueFalseNull=   0
  594.             FirstDayOfWeek  =   0
  595.             FirstWeekOfYear =   0
  596.             LCID            =   2052
  597.             SubFormatType   =   0
  598.          EndProperty
  599.       EndProperty
  600.       BeginProperty Column12 
  601.          DataField       =   "家庭地址"
  602.          Caption         =   "家庭地址"
  603.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  604.             Type            =   0
  605.             Format          =   ""
  606.             HaveTrueFalseNull=   0
  607.             FirstDayOfWeek  =   0
  608.             FirstWeekOfYear =   0
  609.             LCID            =   2052
  610.             SubFormatType   =   0
  611.          EndProperty
  612.       EndProperty
  613.       BeginProperty Column13 
  614.          DataField       =   "毕业院校"
  615.          Caption         =   "毕业院校"
  616.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  617.             Type            =   0
  618.             Format          =   ""
  619.             HaveTrueFalseNull=   0
  620.             FirstDayOfWeek  =   0
  621.             FirstWeekOfYear =   0
  622.             LCID            =   2052
  623.             SubFormatType   =   0
  624.          EndProperty
  625.       EndProperty
  626.       BeginProperty Column14 
  627.          DataField       =   "专业"
  628.          Caption         =   "专业"
  629.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  630.             Type            =   0
  631.             Format          =   ""
  632.             HaveTrueFalseNull=   0
  633.             FirstDayOfWeek  =   0
  634.             FirstWeekOfYear =   0
  635.             LCID            =   2052
  636.             SubFormatType   =   0
  637.          EndProperty
  638.       EndProperty
  639.       BeginProperty Column15 
  640.          DataField       =   "文化程度"
  641.          Caption         =   "文化程度"
  642.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  643.             Type            =   0
  644.             Format          =   ""
  645.             HaveTrueFalseNull=   0
  646.             FirstDayOfWeek  =   0
  647.             FirstWeekOfYear =   0
  648.             LCID            =   2052
  649.             SubFormatType   =   0
  650.          EndProperty
  651.       EndProperty
  652.       BeginProperty Column16 
  653.          DataField       =   "特长"
  654.          Caption         =   "特长"
  655.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  656.             Type            =   0
  657.             Format          =   ""
  658.             HaveTrueFalseNull=   0
  659.             FirstDayOfWeek  =   0
  660.             FirstWeekOfYear =   0
  661.             LCID            =   2052
  662.             SubFormatType   =   0
  663.          EndProperty
  664.       EndProperty
  665.       BeginProperty Column17 
  666.          DataField       =   "参加工作时间"
  667.          Caption         =   "参加工作时间"
  668.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  669.             Type            =   0
  670.             Format          =   ""
  671.             HaveTrueFalseNull=   0
  672.             FirstDayOfWeek  =   0
  673.             FirstWeekOfYear =   0
  674.             LCID            =   2052
  675.             SubFormatType   =   0
  676.          EndProperty
  677.       EndProperty
  678.       BeginProperty Column18 
  679.          DataField       =   "总工龄"
  680.          Caption         =   "总工龄"
  681.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  682.             Type            =   0
  683.             Format          =   ""
  684.             HaveTrueFalseNull=   0
  685.             FirstDayOfWeek  =   0
  686.             FirstWeekOfYear =   0
  687.             LCID            =   2052
  688.             SubFormatType   =   0
  689.          EndProperty
  690.       EndProperty
  691.       BeginProperty Column19 
  692.          DataField       =   "部门"
  693.          Caption         =   "部门"
  694.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  695.             Type            =   0
  696.             Format          =   ""
  697.             HaveTrueFalseNull=   0
  698.             FirstDayOfWeek  =   0
  699.             FirstWeekOfYear =   0
  700.             LCID            =   2052
  701.             SubFormatType   =   0
  702.          EndProperty
  703.       EndProperty
  704.       BeginProperty Column20 
  705.          DataField       =   "工种"
  706.          Caption         =   "工种"
  707.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  708.             Type            =   0
  709.             Format          =   ""
  710.             HaveTrueFalseNull=   0
  711.             FirstDayOfWeek  =   0
  712.             FirstWeekOfYear =   0
  713.             LCID            =   2052
  714.             SubFormatType   =   0
  715.          EndProperty
  716.       EndProperty
  717.       BeginProperty Column21 
  718.          DataField       =   "职务"
  719.          Caption         =   "职务"
  720.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  721.             Type            =   0
  722.             Format          =   ""
  723.             HaveTrueFalseNull=   0
  724.             FirstDayOfWeek  =   0
  725.             FirstWeekOfYear =   0
  726.             LCID            =   2052
  727.             SubFormatType   =   0
  728.          EndProperty
  729.       EndProperty
  730.       BeginProperty Column22 
  731.          DataField       =   "职称"
  732.          Caption         =   "职称"
  733.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  734.             Type            =   0
  735.             Format          =   ""
  736.             HaveTrueFalseNull=   0
  737.             FirstDayOfWeek  =   0
  738.             FirstWeekOfYear =   0
  739.             LCID            =   2052
  740.             SubFormatType   =   0
  741.          EndProperty
  742.       EndProperty
  743.       BeginProperty Column23 
  744.          DataField       =   "基本工资"
  745.          Caption         =   "基本工资"
  746.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  747.             Type            =   0
  748.             Format          =   ""
  749.             HaveTrueFalseNull=   0
  750.             FirstDayOfWeek  =   0
  751.             FirstWeekOfYear =   0
  752.             LCID            =   2052
  753.             SubFormatType   =   0
  754.          EndProperty
  755.       EndProperty
  756.       BeginProperty Column24 
  757.          DataField       =   "其它工资"
  758.          Caption         =   "其它工资"
  759.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  760.             Type            =   0
  761.             Format          =   ""
  762.             HaveTrueFalseNull=   0
  763.             FirstDayOfWeek  =   0
  764.             FirstWeekOfYear =   0
  765.             LCID            =   2052
  766.             SubFormatType   =   0
  767.          EndProperty
  768.       EndProperty
  769.       BeginProperty Column25 
  770.          DataField       =   "调入时间"
  771.          Caption         =   "调入时间"
  772.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  773.             Type            =   0
  774.             Format          =   ""
  775.             HaveTrueFalseNull=   0
  776.             FirstDayOfWeek  =   0
  777.             FirstWeekOfYear =   0
  778.             LCID            =   2052
  779.             SubFormatType   =   0
  780.          EndProperty
  781.       EndProperty
  782.       BeginProperty Column26 
  783.          DataField       =   "本单位工龄"
  784.          Caption         =   "本单位工龄"
  785.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  786.             Type            =   0
  787.             Format          =   ""
  788.             HaveTrueFalseNull=   0
  789.             FirstDayOfWeek  =   0
  790.             FirstWeekOfYear =   0
  791.             LCID            =   2052
  792.             SubFormatType   =   0
  793.          EndProperty
  794.       EndProperty
  795.       BeginProperty Column27 
  796.          DataField       =   "简历"
  797.          Caption         =   "简历"
  798.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  799.             Type            =   0
  800.             Format          =   ""
  801.             HaveTrueFalseNull=   0
  802.             FirstDayOfWeek  =   0
  803.             FirstWeekOfYear =   0
  804.             LCID            =   2052
  805.             SubFormatType   =   0
  806.          EndProperty
  807.       EndProperty
  808.       BeginProperty Column28 
  809.          DataField       =   "登记人"
  810.          Caption         =   "登记人"
  811.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  812.             Type            =   0
  813.             Format          =   ""
  814.             HaveTrueFalseNull=   0
  815.             FirstDayOfWeek  =   0
  816.             FirstWeekOfYear =   0
  817.             LCID            =   2052
  818.             SubFormatType   =   0
  819.          EndProperty
  820.       EndProperty
  821.       BeginProperty Column29 
  822.          DataField       =   "登记日期"
  823.          Caption         =   "登记日期"
  824.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  825.             Type            =   0
  826.             Format          =   ""
  827.             HaveTrueFalseNull=   0
  828.             FirstDayOfWeek  =   0
  829.             FirstWeekOfYear =   0
  830.             LCID            =   2052
  831.             SubFormatType   =   0
  832.          EndProperty
  833.       EndProperty
  834.       BeginProperty Column30 
  835.          DataField       =   "离职时间"
  836.          Caption         =   "离职时间"
  837.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  838.             Type            =   0
  839.             Format          =   ""
  840.             HaveTrueFalseNull=   0
  841.             FirstDayOfWeek  =   0
  842.             FirstWeekOfYear =   0
  843.             LCID            =   2052
  844.             SubFormatType   =   0
  845.          EndProperty
  846.       EndProperty
  847.       BeginProperty Column31 
  848.          DataField       =   "离职登记日期"
  849.          Caption         =   "离职登记日期"
  850.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  851.             Type            =   0
  852.             Format          =   ""
  853.             HaveTrueFalseNull=   0
  854.             FirstDayOfWeek  =   0
  855.             FirstWeekOfYear =   0
  856.             LCID            =   2052
  857.             SubFormatType   =   0
  858.          EndProperty
  859.       EndProperty
  860.       BeginProperty Column32 
  861.          DataField       =   "离职登记人"
  862.          Caption         =   "离职登记人"
  863.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  864.             Type            =   0
  865.             Format          =   ""
  866.             HaveTrueFalseNull=   0
  867.             FirstDayOfWeek  =   0
  868.             FirstWeekOfYear =   0
  869.             LCID            =   2052
  870.             SubFormatType   =   0
  871.          EndProperty
  872.       EndProperty
  873.       BeginProperty Column33 
  874.          DataField       =   "是否复职"
  875.          Caption         =   "是否复职"
  876.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  877.             Type            =   0
  878.             Format          =   ""
  879.             HaveTrueFalseNull=   0
  880.             FirstDayOfWeek  =   0
  881.             FirstWeekOfYear =   0
  882.             LCID            =   2052
  883.             SubFormatType   =   0
  884.          EndProperty
  885.       EndProperty
  886.       BeginProperty Column34 
  887.          DataField       =   "复职时间"
  888.          Caption         =   "复职时间"
  889.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  890.             Type            =   0
  891.             Format          =   ""
  892.             HaveTrueFalseNull=   0
  893.             FirstDayOfWeek  =   0
  894.             FirstWeekOfYear =   0
  895.             LCID            =   2052
  896.             SubFormatType   =   0
  897.          EndProperty
  898.       EndProperty
  899.       BeginProperty Column35 
  900.          DataField       =   "复职登记日期"
  901.          Caption         =   "复职登记日期"
  902.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  903.             Type            =   0
  904.             Format          =   ""
  905.             HaveTrueFalseNull=   0
  906.             FirstDayOfWeek  =   0
  907.             FirstWeekOfYear =   0
  908.             LCID            =   2052
  909.             SubFormatType   =   0
  910.          EndProperty
  911.       EndProperty
  912.       BeginProperty Column36 
  913.          DataField       =   "复职登记人"
  914.          Caption         =   "复职登记人"
  915.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  916.             Type            =   0
  917.             Format          =   ""
  918.             HaveTrueFalseNull=   0
  919.             FirstDayOfWeek  =   0
  920.             FirstWeekOfYear =   0
  921.             LCID            =   2052
  922.             SubFormatType   =   0
  923.          EndProperty
  924.       EndProperty
  925.       SplitCount      =   1
  926.       BeginProperty Split0 
  927.          MarqueeStyle    =   4
  928.          BeginProperty Column00 
  929.             ColumnWidth     =   555.024
  930.          EndProperty
  931.          BeginProperty Column01 
  932.             ColumnWidth     =   884.976
  933.          EndProperty
  934.          BeginProperty Column02 
  935.             ColumnWidth     =   434.835
  936.          EndProperty
  937.          BeginProperty Column03 
  938.             ColumnWidth     =   1275.024
  939.          EndProperty
  940.          BeginProperty Column04 
  941.             ColumnWidth     =   1275.024
  942.          EndProperty
  943.          BeginProperty Column05 
  944.             ColumnWidth     =   599.811
  945.          EndProperty
  946.          BeginProperty Column06 
  947.             ColumnWidth     =   824.882
  948.          EndProperty
  949.          BeginProperty Column07 
  950.             ColumnWidth     =   854.929
  951.          EndProperty
  952.          BeginProperty Column08 
  953.             ColumnWidth     =   1035.213
  954.          EndProperty
  955.          BeginProperty Column09 
  956.             ColumnWidth     =   675.213
  957.          EndProperty
  958.          BeginProperty Column10 
  959.             ColumnWidth     =   1200.189
  960.          EndProperty
  961.          BeginProperty Column11 
  962.             ColumnWidth     =   1200.189
  963.          EndProperty
  964.          BeginProperty Column12 
  965.             ColumnWidth     =   1440
  966.          EndProperty
  967.          BeginProperty Column13 
  968.             ColumnWidth     =   1244.976
  969.          EndProperty
  970.          BeginProperty Column14 
  971.             ColumnWidth     =   689.953
  972.          EndProperty
  973.          BeginProperty Column15 
  974.             ColumnWidth     =   780.095
  975.          EndProperty
  976.          BeginProperty Column16 
  977.             ColumnWidth     =   599.811
  978.          EndProperty
  979.          BeginProperty Column17 
  980.             ColumnWidth     =   1275.024
  981.          EndProperty
  982.          BeginProperty Column18 
  983.             ColumnWidth     =   645.165
  984.          EndProperty
  985.          BeginProperty Column19 
  986.             ColumnWidth     =   734.74
  987.          EndProperty
  988.          BeginProperty Column20 
  989.             ColumnWidth     =   615.118
  990.          EndProperty
  991.          BeginProperty Column21 
  992.             ColumnWidth     =   555.024
  993.          EndProperty
  994.          BeginProperty Column22 
  995.             ColumnWidth     =   555.024
  996.          EndProperty
  997.          BeginProperty Column23 
  998.             ColumnWidth     =   824.882
  999.          EndProperty
  1000.          BeginProperty Column24 
  1001.             ColumnWidth     =   810.142
  1002.          EndProperty
  1003.          BeginProperty Column25 
  1004.             ColumnWidth     =   1275.024
  1005.          EndProperty
  1006.          BeginProperty Column26 
  1007.             ColumnWidth     =   989.858
  1008.          EndProperty
  1009.          BeginProperty Column27 
  1010.             ColumnWidth     =   1260.284
  1011.          EndProperty
  1012.          BeginProperty Column28 
  1013.             ColumnWidth     =   645.165
  1014.          EndProperty
  1015.          BeginProperty Column29 
  1016.             ColumnWidth     =   1080
  1017.          EndProperty
  1018.          BeginProperty Column30 
  1019.             ColumnWidth     =   1214.929
  1020.          EndProperty
  1021.          BeginProperty Column31 
  1022.             ColumnWidth     =   1170.142
  1023.          EndProperty
  1024.          BeginProperty Column32 
  1025.             ColumnWidth     =   1080
  1026.          EndProperty
  1027.          BeginProperty Column33 
  1028.             ColumnWidth     =   915.024
  1029.          EndProperty
  1030.          BeginProperty Column34 
  1031.             ColumnWidth     =   2085.166
  1032.          EndProperty
  1033.          BeginProperty Column35 
  1034.             ColumnWidth     =   2085.166
  1035.          EndProperty
  1036.          BeginProperty Column36 
  1037.             ColumnWidth     =   2085.166
  1038.          EndProperty
  1039.       EndProperty
  1040.    End
  1041.    Begin VB.Frame Frame3 
  1042.       Caption         =   "离职信息"
  1043.       Height          =   660
  1044.       Left            =   15
  1045.       TabIndex        =   32
  1046.       Top             =   825
  1047.       Width           =   10410
  1048.       Begin VB.TextBox Text2 
  1049.          Height          =   330
  1050.          Index           =   0
  1051.          Left            =   7260
  1052.          Locked          =   -1  'True
  1053.          TabIndex        =   33
  1054.          Top             =   225
  1055.          Width           =   3030
  1056.       End
  1057.       Begin MSComCtl2.DTPicker DTP1 
  1058.          Height          =   300
  1059.          Left            =   1005
  1060.          TabIndex        =   34
  1061.          Top             =   225
  1062.          Width           =   1800
  1063.          _ExtentX        =   3175
  1064.          _ExtentY        =   529
  1065.          _Version        =   393216
  1066.          Enabled         =   0   'False
  1067.          Format          =   48103425
  1068.          CurrentDate     =   38698
  1069.       End
  1070.       Begin MSComCtl2.DTPicker DTP2 
  1071.          Height          =   300
  1072.          Left            =   4245
  1073.          TabIndex        =   35
  1074.          Top             =   225
  1075.          Width           =   1800
  1076.          _ExtentX        =   3175
  1077.          _ExtentY        =   529
  1078.          _Version        =   393216
  1079.          Enabled         =   0   'False
  1080.          Format          =   48103425
  1081.          CurrentDate     =   38698
  1082.       End
  1083.       Begin VB.Label Label17 
  1084.          BackStyle       =   0  'Transparent
  1085.          Caption         =   "离职时间："
  1086.          Height          =   210
  1087.          Left            =   60
  1088.          TabIndex        =   38
  1089.          Top             =   285
  1090.          Width           =   900
  1091.       End
  1092.       Begin VB.Label Label16 
  1093.          BackStyle       =   0  'Transparent
  1094.          Caption         =   "离职登记时间："
  1095.          Height          =   210
  1096.          Left            =   2955
  1097.          TabIndex        =   37
  1098.          Top             =   285
  1099.          Width           =   1305
  1100.       End
  1101.       Begin VB.Label Label15 
  1102.          BackStyle       =   0  'Transparent
  1103.          Caption         =   "离职登记人："
  1104.          Height          =   210
  1105.          Left            =   6180
  1106.          TabIndex        =   36
  1107.          Top             =   285
  1108.          Width           =   1170
  1109.       End
  1110.    End
  1111. End
  1112. Attribute VB_Name = "main_rsgl_zyfz"
  1113. Attribute VB_GlobalNameSpace = False
  1114. Attribute VB_Creatable = False
  1115. Attribute VB_PredeclaredId = True
  1116. Attribute VB_Exposed = False
  1117. Dim rs1 As New ADODB.Recordset
  1118. Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
  1119.   With Adodc1.Recordset
  1120.      If Adodc1.Recordset.RecordCount > 0 Then
  1121.         Text1(0) = .Fields("编号")
  1122.         Text1(1) = .Fields("姓名")
  1123.         Text1(2) = .Fields("部门")
  1124.         Text1(3) = .Fields("工种")
  1125.         Text1(4) = .Fields("职务")
  1126.         Text1(5) = .Fields("职称")
  1127.         Text1(6) = .Fields("基本工资")
  1128.         Text1(7) = .Fields("其它工资")
  1129.         Text1(8) = .Fields("本单位工龄")
  1130.         Text1(9) = .Fields("登记日期")
  1131.         Text1(10) = .Fields("调入时间")
  1132.         DTP1.Value = .Fields("离职时间")
  1133.         DTP2.Value = .Fields("离职登记日期")
  1134.         Text2(0) = .Fields("离职登记人")
  1135.      End If
  1136.   End With
  1137. End Sub
  1138. Private Sub DTP1_KeyDown(KeyCode As Integer, Shift As Integer)
  1139.   If KeyCode = vbKeyReturn Then DTP2.SetFocus
  1140. End Sub
  1141. Private Sub DTP2_KeyDown(KeyCode As Integer, Shift As Integer)
  1142.   If KeyCode = vbKeyReturn Then Text2(0).SetFocus
  1143. End Sub
  1144. Private Sub Form_Activate()
  1145.   If sql1 <> "" Then
  1146.      Adodc1.RecordSource = "select * from " & sql1
  1147.      Adodc1.Refresh
  1148.      If Adodc1.Recordset.RecordCount > 0 Then
  1149.      Else
  1150.         MsgBox "没有找到符合条件的记录！", , "提示窗口"
  1151.      End If
  1152.   End If
  1153. End Sub
  1154. Private Sub Form_Load()
  1155.   Me.Caption = text
  1156.   DataGrid1_RowColChange 0, 0
  1157.   Text2(1) = czy
  1158.   DTP3.Value = Date
  1159.   DTP4.Value = Date
  1160. End Sub
  1161. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  1162.   sql1 = ""
  1163. End Sub
  1164. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  1165.   Select Case Button.Key
  1166.      Case "find"
  1167.        tb1 = "离职表"
  1168.        Load main_fzfind
  1169.        main_fzfind.Show 1
  1170.      Case "all"
  1171.        Adodc1.RecordSource = "select * from 离职表 where 是否复职=0 order by 编号"
  1172.        Adodc1.Refresh
  1173.      Case "rehab"
  1174.        Cnn.Execute ("insert into 人事表 select 编号,姓名,性别,身份证号,出生年月,年龄,民族,婚姻状况,政治面貌,入党团时间,籍贯," _
  1175.                    & "联系电话,手机号码,家庭地址,毕业院校,专业,文化程度,特长,参加工作时间,总工龄,照片,部门,工种,职务," _
  1176.                    & "职称,基本工资,其它工资,调入时间,本单位工龄,简历,登记人,登记日期 from 离职表 where 编号='" + Text1(0) + "'")
  1177.                    
  1178.        Cnn.Execute ("update 离职表 set 复职时间='" + str(DTP3.Value) + "',复职登记日期='" + str(DTP4.Value) + _
  1179.                     "',复职登记人='" + Text2(1) + "',是否复职=1 where 编号='" + Text1(0) + "'")
  1180.        Adodc1.Refresh
  1181.      Case "close"
  1182.        Unload Me
  1183.   End Select
  1184. End Sub