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

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

企业管理

开发平台：

Visual Basic

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