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

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

企业管理

开发平台：

Visual Basic

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