c_roomedit.dfm

《delphi数据库设计与实例开发》随书光盘

object cfrm_roomedit: Tcfrm_roomedit
  Left = 295
  Top = 200
  Width = 481
  Height = 428
  Caption = #23458#25151#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 473
    Height = 57
    ButtonHeight = 52
    ButtonWidth = 39
    Caption = 'ToolBar1'
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    object TButton1: TToolButton
      Left = 0
      Top = 2
      Caption = #26032#24314
      ImageIndex = 3
      OnClick = TButton1Click
    end
    object TButton2: TToolButton
      Left = 39
      Top = 2
      Caption = #32534#36753
      ImageIndex = 5
      OnClick = TButton2Click
    end
    object TButton3: TToolButton
      Left = 78
      Top = 2
      Caption = #21024#38500
      ImageIndex = 1
      OnClick = TButton3Click
    end
    object ToolButton4: TToolButton
      Left = 117
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object TButton5: TToolButton
      Left = 125
      Top = 2
      Caption = #30830#23450
      Enabled = False
      ImageIndex = 0
      OnClick = TButton5Click
    end
    object TButton6: TToolButton
      Left = 164
      Top = 2
      Caption = #21462#28040
      Enabled = False
      ImageIndex = 4
      OnClick = TButton6Click
    end
    object ToolButton7: TToolButton
      Left = 203
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object TButton8: TToolButton
      Left = 211
      Top = 2
      Caption = #26597#35810
      ImageIndex = 2
    end
    object DBNavigator1: TDBNavigator
      Left = 250
      Top = 2
      Width = 160
      Height = 52
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 57
    Width = 473
    Height = 96
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 36
      Height = 13
      Caption = #25151#21495#65306
    end
    object Label2: TLabel
      Left = 16
      Top = 40
      Width = 60
      Height = 13
      Caption = #23458#25151#31867#21035#65306
    end
    object Label3: TLabel
      Left = 16
      Top = 64
      Width = 36
      Height = 13
      Caption = #21333#20215#65306
    end
    object Label4: TLabel
      Left = 248
      Top = 16
      Width = 60
      Height = 13
      Caption = #23458#25151#29366#24577#65306
    end
    object Label5: TLabel
      Left = 248
      Top = 40
      Width = 36
      Height = 13
      Caption = #22791#27880#65306
    end
    object DBEdit1: TDBEdit
      Left = 80
      Top = 8
      Width = 137
      Height = 21
      DataField = 'Room_id'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
      OnKeyPress = DBEdit1KeyPress
    end
    object DBEdit3: TDBEdit
      Left = 312
      Top = 32
      Width = 145
      Height = 21
      DataField = 'Room_memo'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 80
      Top = 56
      Width = 137
      Height = 21
      DataField = 'Cost'
      DataSource = DataSource1
      Enabled = False
      TabOrder = 2
    end
    object DBComboBox1: TDBComboBox
      Left = 80
      Top = 32
      Width = 137
      Height = 21
      DataField = 'Room_type'
      DataSource = DataSource1
      ItemHeight = 13
      TabOrder = 3
      OnChange = DBComboBox1Change
    end
    object DBComboBox2: TDBComboBox
      Left = 312
      Top = 8
      Width = 145
      Height = 21
      DataField = 'Room_state'
      DataSource = DataSource1
      Enabled = False
      ItemHeight = 13
      Items.Strings = (
        #31354
        #28385)
      TabOrder = 4
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 153
    Width = 473
    Height = 229
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 469
      Height = 225
      Align = alClient
      DataSource = DataSource1
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11