unit13.dfm

来自「用delphi和SQLServer开发的人力资源管理信息系统」· DFM 代码 · 共 542 行

object Form13: TForm13
  Left = 298
  Top = 66
  Width = 889
  Height = 436
  Caption = #23454#38469#21457#25918#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 DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 537
    Height = 377
    DataSource = DataSource1
    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 = #26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24213#34218
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22870#37329
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32489#25928
        Visible = True
      end
      item
        Expanded = False
        FieldName = #27941#36148
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24212#21457
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31246#27454
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25187#27454
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23454#21457
        Visible = True
      end>
  end
  object DBEdit3: TDBEdit
    Left = 80
    Top = 64
    Width = 121
    Height = 21
    DataField = #24213#34218
    DataSource = DataSource1
    TabOrder = 1
    Visible = False
  end
  object DBEdit4: TDBEdit
    Left = 216
    Top = 168
    Width = 121
    Height = 21
    DataField = #32489#25928
    DataSource = DataSource1
    TabOrder = 2
    Visible = False
  end
  object DBEdit8: TDBEdit
    Left = 344
    Top = 216
    Width = 121
    Height = 21
    DataField = #25187#27454
    DataSource = DataSource1
    TabOrder = 3
    Visible = False
  end
  object DBEdit9: TDBEdit
    Left = 344
    Top = 288
    Width = 121
    Height = 21
    DataField = #23454#21457
    DataSource = DataSource1
    TabOrder = 4
    Visible = False
  end
  object DBEdit7: TDBEdit
    Left = 304
    Top = 152
    Width = 121
    Height = 21
    DataField = #31246#27454
    DataSource = DataSource1
    TabOrder = 5
    Visible = False
  end
  object DBEdit6: TDBEdit
    Left = 352
    Top = 64
    Width = 121
    Height = 21
    DataField = #24212#21457
    DataSource = DataSource1
    TabOrder = 6
    Visible = False
  end
  object GroupBox3: TGroupBox
    Left = 541
    Top = 0
    Width = 337
    Height = 143
    Caption = #26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    object Label10: TLabel
      Left = 25
      Top = 34
      Width = 63
      Height = 22
      Caption = #21592#24037#21495
    end
    object Label3: TLabel
      Left = 188
      Top = 92
      Width = 21
      Height = 22
      Caption = #21040
    end
    object Label1: TLabel
      Left = 33
      Top = 90
      Width = 42
      Height = 22
      Caption = #23454#21457
    end
    object Edit1: TEdit
      Left = 112
      Top = 32
      Width = 121
      Height = 30
      TabOrder = 0
    end
    object Edit3: TEdit
      Left = 232
      Top = 88
      Width = 57
      Height = 30
      TabOrder = 1
    end
    object Edit2: TEdit
      Left = 112
      Top = 88
      Width = 57
      Height = 30
      TabOrder = 2
    end
  end
  object GroupBox1: TGroupBox
    Left = 541
    Top = 149
    Width = 337
    Height = 228
    Caption = #20462#25913
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    object Label2: TLabel
      Left = 65
      Top = 26
      Width = 5
      Height = 22
    end
    object Label4: TLabel
      Left = 73
      Top = 122
      Width = 42
      Height = 22
      Caption = #22870#37329
    end
    object Label5: TLabel
      Left = 73
      Top = 186
      Width = 42
      Height = 22
      Caption = #27941#36148
    end
    object Label6: TLabel
      Left = 73
      Top = 58
      Width = 42
      Height = 22
      Caption = #26085#26399
    end
    object DBEdit1: TDBEdit
      Left = 136
      Top = 120
      Width = 121
      Height = 30
      DataField = #22870#37329
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 136
      Top = 184
      Width = 121
      Height = 30
      DataField = #27941#36148
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit5: TDBEdit
      Left = 136
      Top = 56
      Width = 121
      Height = 30
      DataField = #26085#26399
      DataSource = DataSource1
      TabOrder = 2
    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 = #34218#37228
    Left = 64
    Top = 144
    object ADOTable1DSDesigner: TStringField
      FieldName = #21592#24037#21495
      FixedChar = True
      Size = 5
    end
    object ADOTable1Field: TStringField
      FieldKind = fkLookup
      FieldName = #22995#21517
      LookupDataSet = ADOTable2
      LookupKeyFields = #21592#24037#21495
      LookupResultField = #22995#21517
      KeyFields = #21592#24037#21495
      Lookup = True
    end
    object ADOTable1DSDesigner2: TStringField
      FieldName = #26085#26399
      FixedChar = True
      Size = 10
    end
    object ADOTable1DSDesigner3: TIntegerField
      FieldName = #24213#34218
    end
    object ADOTable1DSDesigner4: TIntegerField
      FieldName = #22870#37329
    end
    object ADOTable1Field2: TIntegerField
      FieldKind = fkLookup
      FieldName = #32489#25928
      LookupDataSet = ADOTable3
      LookupKeyFields = #21592#24037#21495
      LookupResultField = #32489#25928#25104#32489
      KeyFields = #21592#24037#21495
      Lookup = True
    end
    object ADOTable1DSDesigner5: TIntegerField
      FieldName = #27941#36148
    end
    object ADOTable1DSDesigner6: TIntegerField
      FieldName = #24212#21457
    end
    object ADOTable1DSDesigner7: TIntegerField
      FieldName = #31246#27454
    end
    object ADOTable1DSDesigner8: TIntegerField
      FieldName = #25187#27454
    end
    object ADOTable1DSDesigner9: TIntegerField
      FieldName = #23454#21457
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 104
    Top = 160
  end
  object MainMenu1: TMainMenu
    Left = 120
    Top = 120
    object N1: TMenuItem
      Caption = #20462#25913
      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 = #26597#35810
      OnClick = N4Click
    end
    object N6: TMenuItem
      Caption = #21462#28040#26597#35810
      OnClick = N6Click
    end
    object N5: TMenuItem
      Caption = #36864#20986
      OnClick = N5Click
    end
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21592#24037#34920
    Left = 56
    Top = 224
    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 ADOTable2DSDesigner5: TStringField
      FieldName = #22269#31821
      FixedChar = True
    end
    object ADOTable2DSDesigner6: TStringField
      FieldName = #20986#29983#26085#26399
      FixedChar = True
      Size = 10
    end
    object ADOTable2DSDesigner7: TStringField
      FieldName = #20986#29983#22320
      FixedChar = True
      Size = 50
    end
    object ADOTable2DSDesigner8: TStringField
      FieldName = #31821#36143
      FixedChar = True
      Size = 50
    end
    object ADOTable2DSDesigner9: TStringField
      FieldName = #27665#26063
      FixedChar = True
    end
    object ADOTable2DSDesigner10: TStringField
      FieldName = #36523#20221#25110#25252#29031#21495
      FixedChar = True
      Size = 18
    end
    object ADOTable2DSDesigner11: TStringField
      FieldName = #25919#27835#38754#35980
      FixedChar = True
    end
    object ADOTable2DSDesigner12: TStringField
      FieldName = #23130#23035#29366#20917
      FixedChar = True
      Size = 4
    end
    object ADOTable2DSDesigner13: TStringField
      FieldName = #23478#24237#20303#22336
      FixedChar = True
      Size = 100
    end
    object ADOTable2DSDesigner14: TStringField
      FieldName = #23478#24237#30005#35805
      FixedChar = True
    end
    object ADOTable2DSDesigner15: TStringField
      FieldName = #31227#21160#30005#35805
      FixedChar = True
      Size = 11
    end
    object ADOTable2DSDesigner16: TStringField
      FieldName = #21150#20844#30005#35805
      FixedChar = True
    end
    object ADOTable2DSDesigner17: TStringField
      FieldName = #26368#39640#23398#21382
      FixedChar = True
    end
    object ADOTable2DSDesigner18: TStringField
      FieldName = #27605#19994#23398#26657
      FixedChar = True
      Size = 100
    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 ADOTable2DSDesigner22: TStringField
      FieldName = #29992#24037#26399#38480
      FixedChar = True
      Size = 10
    end
    object ADOTable2DSDesigner23: TStringField
      FieldName = #21152#20837#26102#38388
      FixedChar = True
      Size = 10
    end
    object ADOTable2DSDesigner24: TStringField
      FieldName = #36716#27491#26102#38388
      FixedChar = True
      Size = 10
    end
    object ADOTable2DSDesigner25: TStringField
      FieldName = #26032#36827#20154#21592#26631#24535
      FixedChar = True
      Size = 2
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 96
    Top = 240
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #32489#25928
    Left = 240
    Top = 200
    object ADOTable3DSDesigner: TStringField
      FieldName = #21592#24037#21495
      FixedChar = True
      Size = 5
    end
    object ADOTable3DSDesigner2: TStringField
      FieldName = #24179#26102#34920#29616
      FixedChar = True
      Size = 10
    end
    object ADOTable3DSDesigner3: TIntegerField
      FieldName = #32489#25928#25104#32489
    end
    object ADOTable3DSDesigner4: TIntegerField
      FieldName = #36831#21040
    end
    object ADOTable3DSDesigner5: TIntegerField
      FieldName = #26089#36864
    end
    object ADOTable3DSDesigner6: TIntegerField
      FieldName = #30149#20551
    end
    object ADOTable3DSDesigner7: TIntegerField
      FieldName = #20107#20551
    end
    object ADOTable3DSDesigner8: TIntegerField
      FieldName = #26103#24037
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    Left = 280
    Top = 216
  end
end