roomtypemaut.~dfm

来自「酒店单据核销?凭频甑ゾ莺讼?」· ~DFM 代码 · 共 155 行

object ftxgfm: Tftxgfm
  Left = 301
  Top = 206
  Width = 599
  Height = 413
  Caption = #25151#24577#32500#25252#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 Panel1: TPanel
    Left = 0
    Top = 281
    Width = 591
    Height = 99
    Align = alBottom
    TabOrder = 0
    object Label1: TLabel
      Left = 224
      Top = 45
      Width = 72
      Height = 13
      Caption = #23458#25151#29366#24577#65306'    '
    end
    object kfbh: TLabeledEdit
      Left = 96
      Top = 40
      Width = 121
      Height = 21
      EditLabel.Width = 66
      EditLabel.Height = 13
      EditLabel.Caption = #23458#25151#32534#21495#65306'  '
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      LabelPosition = lpLeft
      TabOrder = 0
    end
    object kfzt: TComboBox
      Left = 296
      Top = 40
      Width = 129
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        #31354#25151
        #33258#29992
        #32500#20462
        #20303#25151
        #23558#21040
        #23558#31163)
    end
    object xgbt: TBitBtn
      Left = 432
      Top = 40
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 2
      OnClick = xgbtClick
    end
    object BitBtn1: TBitBtn
      Left = 512
      Top = 40
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 3
      OnClick = BitBtn1Click
    end
    object sxbt: TBitBtn
      Left = 432
      Top = 72
      Width = 75
      Height = 25
      Caption = #21047#26032
      TabOrder = 4
      Visible = False
      OnClick = FormCreate
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 591
    Height = 281
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 589
      Height = 279
      Align = alClient
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
    end
  end
  object DataSource1: TDataSource
    DataSet = ftado
    Left = 168
    Top = 112
  end
  object ftado: TADOQuery
    Connection = DataFm.datacon
    Parameters = <>
    Left = 208
    Top = 152
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -12
    Font.Name = #24494#36719#38597#40657
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = False
    Left = 544
    Top = 289
  end
end