unitsetroomprice_data.dfm

来自「自己做过的工程」· DFM 代码 · 共 134 行

object formsetroomprice_data: Tformsetroomprice_data
  Left = 200
  Top = 150
  BorderStyle = bsDialog
  ClientHeight = 270
  ClientWidth = 388
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 388
    Height = 186
    Align = alClient
    BorderStyle = bsSingle
    TabOrder = 0
    object Label2: TLabel
      Left = 73
      Top = 64
      Width = 56
      Height = 14
      Caption = #25151#38388#31867#22411
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 99
      Top = 117
      Width = 28
      Height = 14
      Caption = #20215#26684
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 304
      Top = 116
      Width = 14
      Height = 14
      Caption = #20803
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object ed_roomprice: TEdit
      Left = 144
      Top = 112
      Width = 153
      Height = 22
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object cbox_roomtype: TComboBox
      Left = 144
      Top = 56
      Width = 153
      Height = 22
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 186
    Width = 388
    Height = 84
    Align = alBottom
    BorderStyle = bsSingle
    TabOrder = 1
    object but_ok: TButton
      Left = 80
      Top = 24
      Width = 81
      Height = 33
      Caption = #30830#23450
      Default = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = but_okClick
    end
    object but_cancel: TButton
      Left = 232
      Top = 24
      Width = 81
      Height = 33
      Caption = #21462#28040
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = but_cancelClick
    end
  end
end