eventedit.dfm

三層源碼,DELPHI寫的三層源碼,三層源碼,

object event_edit: Tevent_edit
  Left = 233
  Top = 159
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '修改事件提醒'
  ClientHeight = 192
  ClientWidth = 415
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 401
    Height = 153
    Shape = bsFrame
  end
  object Label2: TLabel
    Left = 16
    Top = 56
    Width = 59
    Height = 13
    Caption = '事件类型:'
    Transparent = True
  end
  object Label1: TLabel
    Left = 216
    Top = 24
    Width = 59
    Height = 13
    Caption = '生效日期:'
    Transparent = True
  end
  object Label4: TLabel
    Left = 16
    Top = 80
    Width = 159
    Height = 13
    Caption = '提醒内容(最多100个字符):'
    Transparent = True
  end
  object Label5: TLabel
    Left = 216
    Top = 56
    Width = 59
    Height = 13
    Caption = '提醒周期:'
    Transparent = True
  end
  object Label3: TLabel
    Left = 40
    Top = 24
    Width = 33
    Height = 13
    Caption = '工号:'
    Transparent = True
  end
  object Label6: TLabel
    Left = 272
    Top = 80
    Width = 59
    Height = 13
    Caption = '提醒天数:'
    Transparent = True
  end
  object ComboBox2: TComboBox
    Left = 80
    Top = 48
    Width = 129
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 2
    OnKeyPress = Edit1KeyPress
    Items.Strings = (
      '单次提醒'
      '循环提醒')
  end
  object Memo1: TMemo
    Left = 80
    Top = 96
    Width = 321
    Height = 57
    TabOrder = 6
  end
  object date1: TDateTimePicker
    Left = 280
    Top = 16
    Width = 121
    Height = 21
    CalAlignment = dtaLeft
    Date = 38905.6732293287
    Time = 38905.6732293287
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 1
    OnKeyPress = Edit1KeyPress
  end
  object Edit1: TEdit
    Left = 280
    Top = 48
    Width = 49
    Height = 21
    TabOrder = 3
    Text = 'Edit1'
    OnKeyDown = Edit1KeyDown
    OnKeyPress = Edit1KeyPress
  end
  object ComboBox1: TComboBox
    Left = 336
    Top = 48
    Width = 65
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 4
    OnKeyPress = Edit1KeyPress
    Items.Strings = (
      '年'
      '月')
  end
  object xpButton1: TxpButton
    Left = 80
    Top = 164
    Width = 75
    Height = 25
    Caption = '确定修改'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TabOrder = 7
    TabStop = True
    OnClick = xpButton1Click
  end
  object Edit2: TEdit
    Left = 80
    Top = 16
    Width = 129
    Height = 21
    TabOrder = 0
    Text = 'Edit2'
    OnKeyPress = Edit1KeyPress
  end
  object Edit3: TEdit
    Left = 336
    Top = 72
    Width = 65
    Height = 21
    TabOrder = 5
    Text = '3'
    OnKeyDown = Edit1KeyDown
    OnKeyPress = Edit1KeyPress
  end
  object xpButton2: TxpButton
    Left = 16
    Top = 96
    Width = 57
    Height = 57
    Caption = '常用语'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TabOrder = 8
    TabStop = True
    OnClick = xpButton2Click
  end
  object pop1: TPopupMenu
    Left = 24
    Top = 163
  end
end