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

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

企业管理

开发平台：

Visual Basic

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