uachi.dfm

来自「编写该文档是为了分析企业人事管理系统的流程」· DFM 代码 · 共 131 行

object Fachi: TFachi
  Left = 233
  Top = 112
  BorderStyle = bsSingle
  Caption = #22870#24809#35760#24405
  ClientHeight = 350
  ClientWidth = 527
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 16
    Width = 36
    Height = 13
    Caption = #32534#21495#65306
  end
  object Label2: TLabel
    Left = 32
    Top = 44
    Width = 36
    Height = 13
    Caption = #31867#21035#65306
  end
  object Label3: TLabel
    Left = 285
    Top = 17
    Width = 36
    Height = 13
    Caption = #22995#21517#65306
  end
  object Label4: TLabel
    Left = 285
    Top = 44
    Width = 36
    Height = 13
    Caption = #26085#26399#65306
  end
  object Label6: TLabel
    Left = 32
    Top = 74
    Width = 36
    Height = 13
    Caption = #21517#31216#65306
  end
  object Label12: TLabel
    Left = 32
    Top = 99
    Width = 36
    Height = 13
    Caption = #22791#27880#65306
  end
  object eid: TEdit
    Left = 112
    Top = 12
    Width = 145
    Height = 21
    ReadOnly = True
    TabOrder = 0
  end
  object cblx: TComboBox
    Left = 112
    Top = 40
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 1
    Items.Strings = (
      #22870#21169
      #22788#20998)
  end
  object dchang: TDateTimePicker
    Left = 352
    Top = 40
    Width = 145
    Height = 21
    Date = 39085.435039652800000000
    Time = 39085.435039652800000000
    TabOrder = 2
  end
  object mnote: TMemo
    Left = 112
    Top = 107
    Width = 386
    Height = 185
    TabOrder = 3
  end
  object bsave: TButton
    Left = 312
    Top = 307
    Width = 75
    Height = 25
    Caption = #20445#23384
    TabOrder = 4
    OnClick = bsaveClick
  end
  object bclose: TButton
    Left = 400
    Top = 307
    Width = 75
    Height = 25
    Caption = #36820#22238
    TabOrder = 5
    OnClick = bcloseClick
  end
  object etitle: TEdit
    Left = 112
    Top = 76
    Width = 385
    Height = 21
    TabOrder = 6
  end
  object dblname: TDBLookupComboBox
    Left = 352
    Top = 12
    Width = 145
    Height = 21
    KeyField = 'id'
    ListField = 'COLUMN2'
    ListSource = dm.DSplist
    TabOrder = 7
  end
end