umanemployee.dfm

delphi数据库的程序代码

object FrmManEmp: TFrmManEmp
  Left = 187
  Top = 119
  Width = 480
  Height = 349
  Caption = #21592#24037#31649#29702#31383#20307
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object DBNavEmp: TDBNavigator
    Left = 8
    Top = 8
    Width = 240
    Height = 25
    DataSource = DsEmployee
    Hints.Strings = (
      #39318#35760#24405
      #21069#19968#35760#24405
      #21518#19968#35760#24405
      #26411#35760#24405
      #22686#21152#35760#24405
      #21024#38500#35760#24405
      #20462#25913#35760#24405
      #30830#23450
      #21462#28040
      #21047#26032)
    TabOrder = 0
  end
  object BtnClose: TButton
    Left = 384
    Top = 8
    Width = 75
    Height = 25
    Caption = #20851#38381'(&C)'
    TabOrder = 1
    OnClick = BtnCloseClick
  end
  object DBGridEmp: TDBGrid
    Left = 8
    Top = 40
    Width = 457
    Height = 273
    DataSource = DsEmployee
    ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object TblEmployee: TTable
    Active = True
    DatabaseName = 'CompDuty'
    TableName = 'Employee'
    Left = 360
    Top = 224
    object TblEmployeeName: TStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 10
      FieldName = 'Name'
    end
    object TblEmployeeSex: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
      Size = 2
    end
    object TblEmployeeBirthDay: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      DisplayWidth = 14
      FieldName = 'BirthDay'
      DisplayFormat = 'YYYY'#39#24180#39'MM'#39#26376#39'DD'#39#26085#39
    end
    object TblEmployeeJob: TStringField
      DisplayLabel = #32844#20301
      DisplayWidth = 14
      FieldName = 'Job'
      Size = 30
    end
    object TblEmployeeDept: TStringField
      DisplayLabel = #37096#38376
      DisplayWidth = 14
      FieldName = 'Dept'
      Size = 50
    end
    object TblEmployeeSalary: TIntegerField
      DisplayLabel = #24037#36164
      FieldName = 'Salary'
    end
  end
  object DsEmployee: TDataSource
    DataSet = TblEmployee
    Left = 408
    Top = 224
  end
end