unit8.dfm

用delphi和SQLServer开发的人力资源管理信息系统

object Form8: TForm8
  Left = 223
  Top = 79
  Width = 893
  Height = 583
  Caption = #22521#35757#24037#20316#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 601
    Height = 297
    Caption = #22521#35757#20449#24687
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 0
      Top = 16
      Width = 593
      Height = 273
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          Expanded = False
          FieldName = #22521#35757#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22521#35757#24615#36136
          PickList.Strings = (
            #26032#20154#22521#35757
            #22312#32844#22521#35757
            #33073#20135#22521#35757)
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22521#35757#37096#38376#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22521#35757#31867#21035
          PickList.Strings = (
            #37096#38376#36127#36131#20154#22521#35757
            #20027#31649#22521#35757
            #32844#21592#22521#35757)
          Visible = True
        end
        item
          Expanded = False
          FieldName = #23398#20064#26041#24335
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22521#35757#36215#22987#26085#26399
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22521#35757#32467#26463#26085#26399
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 608
    Top = 0
    Width = 273
    Height = 297
    Caption = #22521#35757#26465#20214
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label10: TLabel
      Left = 16
      Top = 25
      Width = 84
      Height = 22
      Caption = #22521#35757#32534#21495
    end
    object Label1: TLabel
      Left = 27
      Top = 75
      Width = 63
      Height = 22
      Caption = #37096#38376#21495
    end
    object Label2: TLabel
      Left = 16
      Top = 126
      Width = 84
      Height = 22
      Caption = #22521#35757#24615#36136
    end
    object Label3: TLabel
      Left = 16
      Top = 177
      Width = 84
      Height = 22
      Caption = #22521#35757#31867#21035
    end
    object DBEdit1: TDBEdit
      Left = 120
      Top = 24
      Width = 121
      Height = 30
      DataField = #22521#35757#32534#21495
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 120
      Top = 75
      Width = 121
      Height = 30
      DataField = #22521#35757#37096#38376#21495
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 120
      Top = 126
      Width = 121
      Height = 30
      DataField = #22521#35757#24615#36136
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 120
      Top = 177
      Width = 121
      Height = 30
      DataField = #22521#35757#31867#21035
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 3
    end
  end
  object GroupBox4: TGroupBox
    Left = 568
    Top = 297
    Width = 313
    Height = 225
    Caption = #22521#35757#20154#21592
    TabOrder = 2
    object DBGrid3: TDBGrid
      Left = 8
      Top = 16
      Width = 297
      Height = 201
      DataSource = DataSource3
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #25104#32489#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22521#35757#32534#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #21592#24037#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22521#35757#25104#32489
          Visible = True
        end>
    end
    object DBEdit9: TDBEdit
      Left = 168
      Top = 96
      Width = 121
      Height = 21
      DataField = #25104#32489#32534#21495
      DataSource = DataSource3
      TabOrder = 1
      Visible = False
    end
    object DBEdit7: TDBEdit
      Left = 40
      Top = 92
      Width = 121
      Height = 21
      DataField = #21592#24037#21495
      DataSource = DataSource3
      TabOrder = 2
      Visible = False
    end
    object DBEdit8: TDBEdit
      Left = 144
      Top = 44
      Width = 121
      Height = 21
      DataField = #22521#35757#25104#32489
      DataSource = DataSource3
      TabOrder = 3
      Visible = False
    end
    object DBEdit6: TDBEdit
      Left = 136
      Top = 156
      Width = 121
      Height = 21
      DataField = #22521#35757#32534#21495
      DataSource = DataSource3
      TabOrder = 4
      Visible = False
    end
    object DBEdit5: TDBEdit
      Left = 32
      Top = 172
      Width = 121
      Height = 21
      DataField = #21592#24037#21495
      DataSource = DataSource2
      TabOrder = 5
      Visible = False
    end
  end
  object Button1: TButton
    Left = 512
    Top = 417
    Width = 49
    Height = 57
    Caption = '>'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = Button1Click
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 297
    Width = 505
    Height = 222
    Caption = #31526#21512#26465#20214#30340#21592#24037
    TabOrder = 4
    object DBGrid2: TDBGrid
      Left = 0
      Top = 24
      Width = 489
      Height = 193
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #21592#24037#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #22995#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = #37096#38376#21495
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24615#21035
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26368#39640#23398#21382
          Visible = True
        end
        item
          Expanded = False
          FieldName = #24037#20316#29366#24577
          Visible = True
        end
        item
          Expanded = False
          FieldName = #32844#20301
          Visible = True
        end
        item
          Expanded = False
          FieldName = #29992#24037#24418#24335
          Visible = True
        end
        item
          Expanded = False
          FieldName = #26032#36827#20154#21592#26631#24535
          Visible = True
        end>
    end
    object DBEdit10: TDBEdit
      Left = 392
      Top = 152
      Width = 121
      Height = 21
      DataField = #24037#20316#29366#24577
      DataSource = DataSource2
      TabOrder = 1
      Visible = False
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=it'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 120
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #22521#35757
    Left = 56
    Top = 120
    object ADOTable1DSDesigner: TIntegerField
      FieldName = #22521#35757#32534#21495
    end
    object ADOTable1DSDesigner2: TStringField
      FieldName = #22521#35757#24615#36136
      FixedChar = True
      Size = 10
    end
    object ADOTable1DSDesigner3: TStringField
      FieldName = #22521#35757#31867#21035
      FixedChar = True
    end
    object ADOTable1DSDesigner4: TStringField
      FieldName = #23398#20064#26041#24335
      FixedChar = True
    end
    object ADOTable1DSDesigner5: TStringField
      FieldName = #22521#35757#36215#22987#26085#26399
      FixedChar = True
      Size = 10
    end
    object ADOTable1DSDesigner6: TStringField
      FieldName = #22521#35757#32467#26463#26085#26399
      FixedChar = True
      Size = 10
    end
    object ADOTable1DSDesigner7: TStringField
      FieldName = #22521#35757#37096#38376#21495
      FixedChar = True
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 88
    Top = 120
  end
  object MainMenu1: TMainMenu
    Left = 120
    Top = 120
    object N1: TMenuItem
      Caption = #28155#21152
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #30830#23450
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #21462#28040
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #21024#38500
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = #20462#25913
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #25361#36873
      OnClick = N6Click
    end
    object N7: TMenuItem
      Caption = #36820#22238
      OnClick = N7Click
    end
    object N8: TMenuItem
      Caption = #36864#20986
      OnClick = N8Click
    end
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21592#24037#34920
    Left = 40
    Top = 232
    object ADOTable2DSDesigner: TStringField
      FieldName = #21592#24037#21495
      FixedChar = True
      Size = 5
    end
    object ADOTable2DSDesigner2: TStringField
      FieldName = #22995#21517
      FixedChar = True
    end
    object ADOTable2DSDesigner3: TStringField
      FieldName = #37096#38376#21495
      FixedChar = True
      Size = 2
    end
    object ADOTable2DSDesigner4: TStringField
      FieldName = #24615#21035
      FixedChar = True
      Size = 2
    end
    object ADOTable2DSDesigner17: TStringField
      FieldName = #26368#39640#23398#21382
      FixedChar = True
    end
    object ADOTable2DSDesigner19: TStringField
      FieldName = #24037#20316#29366#24577
      FixedChar = True
    end
    object ADOTable2DSDesigner20: TStringField
      FieldName = #32844#20301
      FixedChar = True
      Size = 10
    end
    object ADOTable2DSDesigner21: TStringField
      FieldName = #29992#24037#24418#24335
      FixedChar = True
    end
    object ADOTable2DSDesigner26: TStringField
      FieldName = #26032#36827#20154#21592#26631#24535
      FixedChar = True
      Size = 2
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 72
    Top = 232
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #22521#35757#25104#32489
    Left = 296
    Top = 208
    object ADOTable3DSDesigner: TIntegerField
      FieldName = #25104#32489#32534#21495
    end
    object ADOTable3DSDesigner2: TIntegerField
      FieldName = #22521#35757#32534#21495
    end
    object ADOTable3DSDesigner3: TStringField
      FieldName = #21592#24037#21495
      FixedChar = True
      Size = 5
    end
    object ADOTable3DSDesigner4: TIntegerField
      FieldName = #22521#35757#25104#32489
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    Left = 352
    Top = 208
  end
end