Unit2.dfm

Package: data [view]
Upload User: gmgdxu
Upload Date: 2013-01-31
Package Size: 238k
Code Size: 17k
Development Platform: C++ Builder
  1. object Form2: TForm2
  2.   Left = 1
  3.   Top = 3
  4.   BorderStyle = bsNone
  5.   Caption = 'Form2'
  6.   ClientHeight = 573
  7.   ClientWidth = 789
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   OnActivate = FormActivate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Backdrop1: TBackdrop
  19.     Left = 0
  20.     Top = 0
  21.     Width = 789
  22.     Height = 573
  23.     EndColor = clBtnHighlight
  24.     StartColor = clTeal
  25.     TabOrder = 0
  26.     object DBGrid1: TDBGrid
  27.       Left = 3
  28.       Top = 312
  29.       Width = 574
  30.       Height = 228
  31.       BorderStyle = bsNone
  32.       DataSource = DataSource1
  33.       Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  34.       TabOrder = 0
  35.       TitleFont.Charset = DEFAULT_CHARSET
  36.       TitleFont.Color = clWindowText
  37.       TitleFont.Height = -11
  38.       TitleFont.Name = 'MS Sans Serif'
  39.       TitleFont.Style = []
  40.       Columns = <
  41.         item
  42.           Expanded = False
  43.           FieldName = 'BuD'
  44.           Title.Caption = '部门代号'
  45.           Width = 82
  46.           Visible = True
  47.         end
  48.         item
  49.           Expanded = False
  50.           FieldName = 'BuNa'
  51.           Title.Caption = '部门名称'
  52.           Width = 147
  53.           Visible = True
  54.         end
  55.         item
  56.           Expanded = False
  57.           FieldName = 'BuC'
  58.           Title.Caption = '部门长'
  59.           Width = 141
  60.           Visible = True
  61.         end
  62.         item
  63.           Expanded = False
  64.           FieldName = 'BuNu'
  65.           Title.Caption = '部门人数'
  66.           Width = 127
  67.           Visible = True
  68.         end>
  69.     end
  70.     object DBMemo1: TDBMemo
  71.       Left = 576
  72.       Top = 312
  73.       Width = 213
  74.       Height = 228
  75.       DataField = 'BuJ'
  76.       DataSource = DataSource1
  77.       TabOrder = 1
  78.     end
  79.     object Panel3: TPanel
  80.       Left = 1
  81.       Top = 0
  82.       Width = 788
  83.       Height = 313
  84.       Caption = 'Panel2'
  85.       TabOrder = 2
  86.       object Backdrop4: TBackdrop
  87.         Left = 1
  88.         Top = 1
  89.         Width = 786
  90.         Height = 311
  91.         EndColor = 16744576
  92.         StartColor = clCaptionText
  93.         TabOrder = 0
  94.         object Label5: TLabel
  95.           Left = 96
  96.           Top = 96
  97.           Width = 52
  98.           Height = 24
  99.           Caption = '--->'
  100.           Font.Charset = ANSI_CHARSET
  101.           Font.Color = clPurple
  102.           Font.Height = -24
  103.           Font.Name = '宋体'
  104.           Font.Style = [fsBold]
  105.           ParentFont = False
  106.           Transparent = True
  107.         end
  108.         object Label6: TLabel
  109.           Left = 256
  110.           Top = 96
  111.           Width = 52
  112.           Height = 24
  113.           Caption = '--->'
  114.           Font.Charset = ANSI_CHARSET
  115.           Font.Color = clPurple
  116.           Font.Height = -24
  117.           Font.Name = '宋体'
  118.           Font.Style = [fsBold]
  119.           ParentFont = False
  120.           Transparent = True
  121.         end
  122.         object Label7: TLabel
  123.           Left = 432
  124.           Top = 96
  125.           Width = 52
  126.           Height = 24
  127.           Caption = '--->'
  128.           Font.Charset = ANSI_CHARSET
  129.           Font.Color = clPurple
  130.           Font.Height = -24
  131.           Font.Name = '宋体'
  132.           Font.Style = [fsBold]
  133.           ParentFont = False
  134.           Transparent = True
  135.         end
  136.         object DBGrid3: TDBGrid
  137.           Left = 8
  138.           Top = 8
  139.           Width = 89
  140.           Height = 209
  141.           DataSource = DataSource1
  142.           Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  143.           TabOrder = 0
  144.           TitleFont.Charset = DEFAULT_CHARSET
  145.           TitleFont.Color = clWindowText
  146.           TitleFont.Height = -11
  147.           TitleFont.Name = 'MS Sans Serif'
  148.           TitleFont.Style = []
  149.           OnDblClick = DBGrid3DblClick
  150.           Columns = <
  151.             item
  152.               Expanded = False
  153.               FieldName = 'BuNa'
  154.               Title.Caption = '部门名称'
  155.               Width = 66
  156.               Visible = True
  157.             end>
  158.         end
  159.         object buname: TDBEdit
  160.           Left = 624
  161.           Top = 144
  162.           Width = 121
  163.           Height = 21
  164.           DataField = 'BuNa'
  165.           DataSource = DataSource1
  166.           TabOrder = 1
  167.           Visible = False
  168.         end
  169.         object DBGrid4: TDBGrid
  170.           Left = 160
  171.           Top = 8
  172.           Width = 97
  173.           Height = 209
  174.           DataSource = DataSource2
  175.           Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  176.           TabOrder = 2
  177.           TitleFont.Charset = DEFAULT_CHARSET
  178.           TitleFont.Color = clWindowText
  179.           TitleFont.Height = -11
  180.           TitleFont.Name = 'MS Sans Serif'
  181.           TitleFont.Style = []
  182.           OnDblClick = DBGrid4DblClick
  183.           Columns = <
  184.             item
  185.               Expanded = False
  186.               FieldName = 'KeNa'
  187.               Title.Caption = '科室名称'
  188.               Width = 67
  189.               Visible = True
  190.             end>
  191.         end
  192.         object kename: TDBEdit
  193.           Left = 632
  194.           Top = 144
  195.           Width = 121
  196.           Height = 21
  197.           DataField = 'KeNa'
  198.           DataSource = DataSource2
  199.           TabOrder = 3
  200.           Visible = False
  201.         end
  202.         object DBGrid5: TDBGrid
  203.           Left = 328
  204.           Top = 8
  205.           Width = 105
  206.           Height = 209
  207.           DataSource = DataSource3
  208.           Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  209.           TabOrder = 4
  210.           TitleFont.Charset = DEFAULT_CHARSET
  211.           TitleFont.Color = clWindowText
  212.           TitleFont.Height = -11
  213.           TitleFont.Name = 'MS Sans Serif'
  214.           TitleFont.Style = []
  215.           OnDblClick = DBGrid5DblClick
  216.           Columns = <
  217.             item
  218.               Expanded = False
  219.               FieldName = 'BanNa'
  220.               Title.Caption = '班组名称'
  221.               Width = 58
  222.               Visible = True
  223.             end>
  224.         end
  225.         object banname: TDBEdit
  226.           Left = 584
  227.           Top = 144
  228.           Width = 121
  229.           Height = 21
  230.           DataField = 'BanNa'
  231.           DataSource = DataSource3
  232.           TabOrder = 5
  233.           Visible = False
  234.         end
  235.         object DBGrid6: TDBGrid
  236.           Left = 504
  237.           Top = 8
  238.           Width = 105
  239.           Height = 209
  240.           DataSource = DataSource4
  241.           Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  242.           TabOrder = 6
  243.           TitleFont.Charset = DEFAULT_CHARSET
  244.           TitleFont.Color = clWindowText
  245.           TitleFont.Height = -11
  246.           TitleFont.Name = 'MS Sans Serif'
  247.           TitleFont.Style = []
  248.           OnDblClick = DBGrid6DblClick
  249.           Columns = <
  250.             item
  251.               Expanded = False
  252.               FieldName = 'RName'
  253.               Title.Caption = '姓名'
  254.               Width = 67
  255.               Visible = True
  256.             end>
  257.         end
  258.         object rname: TDBEdit
  259.           Left = 608
  260.           Top = 144
  261.           Width = 121
  262.           Height = 21
  263.           DataField = 'RName'
  264.           DataSource = DataSource4
  265.           TabOrder = 7
  266.           Visible = False
  267.         end
  268.         object Button4: TButton
  269.           Left = 592
  270.           Top = 253
  271.           Width = 89
  272.           Height = 25
  273.           Caption = '返回输入菜单'
  274.           TabOrder = 8
  275.           OnClick = Button4Click
  276.         end
  277.         object Button1: TButton
  278.           Left = 440
  279.           Top = 254
  280.           Width = 89
  281.           Height = 25
  282.           Caption = '进入高级查询'
  283.           TabOrder = 9
  284.           OnClick = Button1Click
  285.         end
  286.       end
  287.     end
  288.     object DBGrid2: TDBGrid
  289.       Left = 3
  290.       Top = 312
  291.       Width = 573
  292.       Height = 225
  293.       DataSource = DataSource5
  294.       Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  295.       TabOrder = 3
  296.       TitleFont.Charset = DEFAULT_CHARSET
  297.       TitleFont.Color = clWindowText
  298.       TitleFont.Height = -11
  299.       TitleFont.Name = 'MS Sans Serif'
  300.       TitleFont.Style = []
  301.       Visible = False
  302.       Columns = <
  303.         item
  304.           Expanded = False
  305.           FieldName = 'KeD'
  306.           Title.Caption = '科室代号'
  307.           Width = 111
  308.           Visible = True
  309.         end
  310.         item
  311.           Expanded = False
  312.           FieldName = 'KeNa'
  313.           Title.Caption = '科室名称'
  314.           Width = 155
  315.           Visible = True
  316.         end
  317.         item
  318.           Expanded = False
  319.           FieldName = 'KeC'
  320.           Title.Caption = '科长'
  321.           Width = 160
  322.           Visible = True
  323.         end
  324.         item
  325.           Expanded = False
  326.           FieldName = 'KeNu'
  327.           Title.Caption = '科室人员数'
  328.           Width = 133
  329.           Visible = True
  330.         end>
  331.     end
  332.     object DBMemo2: TDBMemo
  333.       Left = 576
  334.       Top = 312
  335.       Width = 214
  336.       Height = 227
  337.       DataField = 'KeJ'
  338.       DataSource = DataSource5
  339.       TabOrder = 4
  340.     end
  341.     object DBGrid7: TDBGrid
  342.       Left = 2
  343.       Top = 312
  344.       Width = 573
  345.       Height = 227
  346.       DataSource = DataSource6
  347.       Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  348.       TabOrder = 5
  349.       TitleFont.Charset = DEFAULT_CHARSET
  350.       TitleFont.Color = clWindowText
  351.       TitleFont.Height = -11
  352.       TitleFont.Name = 'MS Sans Serif'
  353.       TitleFont.Style = []
  354.       Visible = False
  355.       Columns = <
  356.         item
  357.           Expanded = False
  358.           FieldName = 'BanD'
  359.           Title.Caption = '班组代号'
  360.           Width = 127
  361.           Visible = True
  362.         end
  363.         item
  364.           Expanded = False
  365.           FieldName = 'BanNa'
  366.           Title.Caption = '班组名称'
  367.           Width = 175
  368.           Visible = True
  369.         end
  370.         item
  371.           Expanded = False
  372.           FieldName = 'BanC'
  373.           Title.Caption = '组长'
  374.           Width = 120
  375.           Visible = True
  376.         end
  377.         item
  378.           Expanded = False
  379.           FieldName = 'BanNu'
  380.           Title.Caption = '班组人数'
  381.           Width = 138
  382.           Visible = True
  383.         end>
  384.     end
  385.     object DBMemo3: TDBMemo
  386.       Left = 576
  387.       Top = 312
  388.       Width = 215
  389.       Height = 227
  390.       DataField = 'BanJ'
  391.       DataSource = DataSource6
  392.       TabOrder = 6
  393.     end
  394.     object DBMemo4: TDBMemo
  395.       Left = 576
  396.       Top = 312
  397.       Width = 214
  398.       Height = 225
  399.       DataField = 'RJ'
  400.       DataSource = DataSource7
  401.       TabOrder = 7
  402.     end
  403.     object Edit6: TEdit
  404.       Left = 80
  405.       Top = 40
  406.       Width = 121
  407.       Height = 21
  408.       TabOrder = 8
  409.       Text = '"C:program filessieSgr.DB"'
  410.       Visible = False
  411.     end
  412.     object Edit5: TEdit
  413.       Left = 72
  414.       Top = 40
  415.       Width = 121
  416.       Height = 21
  417.       TabOrder = 9
  418.       Text = '"C:program filessieSban.DB"'
  419.       Visible = False
  420.     end
  421.     object Edit4: TEdit
  422.       Left = 48
  423.       Top = 40
  424.       Width = 121
  425.       Height = 21
  426.       TabOrder = 10
  427.       Text = '"C:program filessieSke.DB"'
  428.       Visible = False
  429.     end
  430.     object hao: TEdit
  431.       Left = 32
  432.       Top = 40
  433.       Width = 121
  434.       Height = 21
  435.       TabOrder = 11
  436.       Text = '%'
  437.       Visible = False
  438.     end
  439.     object Edit3: TEdit
  440.       Left = 8
  441.       Top = 40
  442.       Width = 121
  443.       Height = 21
  444.       TabOrder = 12
  445.       Text = '"C:program filessieSbu.DB"'
  446.       Visible = False
  447.     end
  448.     object DBGrid8: TDBGrid
  449.       Left = 2
  450.       Top = 313
  451.       Width = 575
  452.       Height = 228
  453.       DataSource = DataSource7
  454.       Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
  455.       TabOrder = 13
  456.       TitleFont.Charset = DEFAULT_CHARSET
  457.       TitleFont.Color = clWindowText
  458.       TitleFont.Height = -11
  459.       TitleFont.Name = 'MS Sans Serif'
  460.       TitleFont.Style = []
  461.       Visible = False
  462.       Columns = <
  463.         item
  464.           Expanded = False
  465.           FieldName = 'RD'
  466.           Title.Caption = '工号'
  467.           Width = 46
  468.           Visible = True
  469.         end
  470.         item
  471.           Expanded = False
  472.           FieldName = 'RName'
  473.           Title.Caption = '姓名'
  474.           Width = 41
  475.           Visible = True
  476.         end
  477.         item
  478.           Expanded = False
  479.           FieldName = 'RSex'
  480.           Title.Caption = '性别'
  481.           Width = 25
  482.           Visible = True
  483.         end
  484.         item
  485.           Expanded = False
  486.           FieldName = 'RAge'
  487.           Title.Caption = '年龄'
  488.           Width = 25
  489.           Visible = True
  490.         end
  491.         item
  492.           Expanded = False
  493.           FieldName = 'RXue'
  494.           Title.Caption = '学历'
  495.           Width = 34
  496.           Visible = True
  497.         end
  498.         item
  499.           Expanded = False
  500.           FieldName = 'Rjg'
  501.           Title.Caption = '籍贯'
  502.           Width = 51
  503.           Visible = True
  504.         end
  505.         item
  506.           Expanded = False
  507.           FieldName = 'Rborn'
  508.           Title.Caption = '出生年月'
  509.           Width = 54
  510.           Visible = True
  511.         end
  512.         item
  513.           Expanded = False
  514.           FieldName = 'Rxian'
  515.           Title.Caption = '工作经验'
  516.           Width = 49
  517.           Visible = True
  518.         end
  519.         item
  520.           Expanded = False
  521.           FieldName = 'Rwei'
  522.           Title.Caption = '职位'
  523.           Width = 48
  524.           Visible = True
  525.         end
  526.         item
  527.           Expanded = False
  528.           FieldName = 'Rtel'
  529.           Title.Caption = '住宅电话'
  530.           Width = 70
  531.           Visible = True
  532.         end
  533.         item
  534.           Expanded = False
  535.           FieldName = 'Rstel'
  536.           Title.Caption = '手机'
  537.           Width = 83
  538.           Visible = True
  539.         end
  540.         item
  541.           Expanded = False
  542.           FieldName = 'Rmail'
  543.           Title.Caption = '电子信箱'
  544.           Width = 84
  545.           Visible = True
  546.         end
  547.         item
  548.           Expanded = False
  549.           FieldName = 'Radr'
  550.           Title.Caption = '家庭住址'
  551.           Width = 98
  552.           Visible = True
  553.         end
  554.         item
  555.           Expanded = False
  556.           FieldName = 'Rjtime'
  557.           Title.Caption = '进入公司时间'
  558.           Width = 76
  559.           Visible = True
  560.         end
  561.         item
  562.           Expanded = False
  563.           FieldName = 'Rhtime'
  564.           Title.Caption = '合同时间'
  565.           Visible = True
  566.         end>
  567.     end
  568.   end
  569.   object XPMenu1: TXPMenu
  570.     DimLevel = 30
  571.     GrayLevel = 10
  572.     Font.Charset = GB2312_CHARSET
  573.     Font.Color = clMenuText
  574.     Font.Height = -11
  575.     Font.Name = 'Tahoma'
  576.     Font.Style = []
  577.     Color = clBtnFace
  578.     IconBackColor = clBtnFace
  579.     MenuBarColor = clBtnFace
  580.     SelectColor = clHighlight
  581.     SelectBorderColor = clHighlight
  582.     SelectFontColor = clMenuText
  583.     DisabledColor = clInactiveCaption
  584.     SeparatorColor = clBtnFace
  585.     CheckedColor = clHighlight
  586.     IconWidth = 24
  587.     DrawSelect = True
  588.     UseSystemColors = True
  589.     OverrideOwnerDraw = False
  590.     Gradient = False
  591.     FlatMenu = False
  592.     AutoDetect = False
  593.     Active = True
  594.     Left = 130
  595.     Top = 28
  596.   end
  597.   object Query1: TQuery
  598.     SQL.Strings = (
  599.       'SELECT *     from "C:program filessieSbu.DB"')
  600.     Left = 530
  601.     Top = 340
  602.   end
  603.   object DataSource1: TDataSource
  604.     DataSet = Query1
  605.     Left = 530
  606.     Top = 372
  607.   end
  608.   object DataSource2: TDataSource
  609.     DataSet = Query2
  610.     Left = 570
  611.     Top = 372
  612.   end
  613.   object Query2: TQuery
  614.     SQL.Strings = (
  615.       'SELECT *     from "C:program filessieSke.DB"')
  616.     Left = 570
  617.     Top = 340
  618.   end
  619.   object Query3: TQuery
  620.     SQL.Strings = (
  621.       'SELECT *     from "C:program filessieSban.DB"')
  622.     Left = 618
  623.     Top = 340
  624.   end
  625.   object DataSource3: TDataSource
  626.     DataSet = Query3
  627.     Left = 618
  628.     Top = 372
  629.   end
  630.   object Query4: TQuery
  631.     SQL.Strings = (
  632.       'SELECT *     from "C:program filessieSgr.DB"')
  633.     Left = 666
  634.     Top = 340
  635.   end
  636.   object DataSource4: TDataSource
  637.     DataSet = Query4
  638.     Left = 666
  639.     Top = 372
  640.   end
  641.   object Query5: TQuery
  642.     SQL.Strings = (
  643.       'SELECT *     from "C:program filessieSke.DB"')
  644.     Left = 570
  645.     Top = 428
  646.   end
  647.   object DataSource5: TDataSource
  648.     DataSet = Query5
  649.     Left = 570
  650.     Top = 460
  651.   end
  652.   object DataSource6: TDataSource
  653.     DataSet = Query6
  654.     Left = 618
  655.     Top = 460
  656.   end
  657.   object Query6: TQuery
  658.     SQL.Strings = (
  659.       'SELECT *     from "C:program filessieSban.DB"')
  660.     Left = 618
  661.     Top = 428
  662.   end
  663.   object Query7: TQuery
  664.     SQL.Strings = (
  665.       'SELECT *     from "C:program filessieSgr.DB"')
  666.     Left = 666
  667.     Top = 428
  668.   end
  669.   object DataSource7: TDataSource
  670.     DataSet = Query7
  671.     Left = 666
  672.     Top = 460
  673.   end
  674. end