uachi.~dfm

编写该文档是为了分析企业人事管理系统的流程

object Fachi: TFachi
  Left = 153
  Top = 81
  BorderStyle = bsSingle
  Caption = '奖惩记录'
  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 = '编号：'
  end
  object Label2: TLabel
    Left = 32
    Top = 44
    Width = 36
    Height = 13
    Caption = '类别：'
  end
  object Label3: TLabel
    Left = 285
    Top = 17
    Width = 36
    Height = 13
    Caption = '姓名：'
  end
  object Label4: TLabel
    Left = 285
    Top = 44
    Width = 36
    Height = 13
    Caption = '日期：'
  end
  object Label6: TLabel
    Left = 32
    Top = 74
    Width = 36
    Height = 13
    Caption = '名称：'
  end
  object Label12: TLabel
    Left = 32
    Top = 99
    Width = 36
    Height = 13
    Caption = '备注：'
  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 = (
      '奖励'
      '处分')
  end
  object dchang: TDateTimePicker
    Left = 352
    Top = 40
    Width = 145
    Height = 21
    Date = 38595.435039652800000000
    Time = 38595.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 = '保存'
    TabOrder = 4
    OnClick = bsaveClick
  end
  object bclose: TButton
    Left = 400
    Top = 307
    Width = 75
    Height = 25
    Caption = '返回'
    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