accountunit.dfm

来自「很好地delphi书籍源码」· DFM 代码 · 共 351 行

object FrmAccount: TFrmAccount
  Left = 7
  Top = 190
  Width = 812
  Height = 499
  BorderStyle = bsSizeToolWin
  Caption = #23458#25143#20303#23487#32467#31639#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 282
    Width = 804
    Height = 5
    Cursor = crVSplit
    Align = alTop
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 151
    Width = 804
    Height = 5
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 405
    Width = 804
    Height = 39
    Hint = #28857#20987#23458#25143#22995#21517#65292#36873#25321#32479#35745#30340#20855#20307#23458#25143
    Align = alBottom
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 706
      Top = 10
      Width = 51
      Height = 22
      Caption = #20851#38381
      OnClick = SpeedButton1Click
    end
    object PrintSB: TSpeedButton
      Left = 656
      Top = 10
      Width = 49
      Height = 22
      Caption = #25171#21360
      Enabled = False
      OnClick = PrintSBClick
    end
    object LookUpIDSB: TSpeedButton
      Left = 10
      Top = 8
      Width = 89
      Height = 25
      Hint = #26681#25454#29992#25143#22995#21517#26597#25214#23458#25143#32534#21495
      Caption = #23458#25143#22995#21517
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFF000FFFFFFFFFFFF0BB00FFFFFFFFFFF0BB00FFFFFFFFFFFF00FFF
        FFFFFFFFFF0B00FFFFFFFFFFFF0B00FFFFFFFFFFFF0B00FFFFFFFFFFFF0BB00F
        FFFFFFFF00F0BB00FFFFFFF0B00F0BB00FFFFFF0B00FF0B00FFFFFF0BB000BB0
        0FFFFFFF0BBBBB00FFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFF}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = LookUpIDSBClick
    end
    object Label2: TLabel
      Left = 254
      Top = 14
      Width = 48
      Height = 12
      Caption = #32467#31639#26102#38388
    end
    object Label1: TLabel
      Left = 470
      Top = 14
      Width = 48
      Height = 12
      Caption = #25903#20184#26041#24335
    end
    object OkSB: TSpeedButton
      Left = 606
      Top = 10
      Width = 49
      Height = 22
      Caption = #32467#31639
      Enabled = False
      OnClick = OkSBClick
    end
    object GuestIDCB: TComboBox
      Left = 170
      Top = 10
      Width = 67
      Height = 23
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 15
      ParentFont = False
      TabOrder = 0
      OnChange = GuestIDCBChange
    end
    object StaticText1: TStaticText
      Left = 110
      Top = 12
      Width = 52
      Height = 16
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvSpace
      Caption = #23458#25143#32534#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object PayModeCB: TComboBox
      Left = 528
      Top = 12
      Width = 63
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 2
      Text = #29616#37329
      Items.Strings = (
        #29616#37329
        #25903#31080
        #20449#29992#21345
        #36170#27424)
    end
    object DTEdit: TEdit
      Left = 312
      Top = 10
      Width = 133
      Height = 20
      TabOrder = 3
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 804
    Height = 151
    Align = alTop
    Caption = 'Panel2'
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 30
      Height = 149
      Align = alLeft
      BevelOuter = bvLowered
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object TLabel
        Left = 6
        Top = 30
        Width = 7
        Height = 11
      end
      object TitleL1: TLabel
        Left = 8
        Top = 16
        Width = 49
        Height = 13
        Caption = 'TitleL1'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
    end
    object HotelDBGrid: TDBGrid
      Left = 31
      Top = 1
      Width = 772
      Height = 149
      Align = alClient
      DataSource = DataModule1.GHotelFeeDS
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 156
    Width = 804
    Height = 126
    Align = alTop
    Caption = 'Panel4'
    TabOrder = 2
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 30
      Height = 124
      Align = alLeft
      BevelOuter = bvLowered
      BevelWidth = 2
      TabOrder = 0
      object TitleL2: TLabel
        Left = 8
        Top = 20
        Width = 49
        Height = 13
        Caption = 'TitleL2'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
    end
    object BedDBGrid: TDBGrid
      Left = 31
      Top = 1
      Width = 772
      Height = 124
      Hint = #28857#20987#23458#25143#22995#21517#65292#36873#25321#32479#35745#30340#20855#20307#23458#25143
      Align = alClient
      DataSource = DataModule1.GRoomFeeDS
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel6: TPanel
    Left = 0
    Top = 287
    Width = 804
    Height = 118
    Align = alClient
    Caption = 'Panel6'
    TabOrder = 3
    object Panel7: TPanel
      Left = 1
      Top = 1
      Width = 30
      Height = 116
      Align = alLeft
      BevelOuter = bvLowered
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object TLabel
        Left = 6
        Top = 30
        Width = 7
        Height = 11
      end
      object TitleL3: TLabel
        Left = 8
        Top = 16
        Width = 49
        Height = 13
        Caption = 'TitleL1'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
    end
    object TotalDBGrid: TDBGrid
      Left = 31
      Top = 1
      Width = 772
      Height = 116
      Align = alClient
      DataSource = DataModule1.HGuestInComeDS
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 444
    Width = 804
    Height = 28
    Panels = <>
    SimplePanel = True
  end
  object Query1: TQuery
    Left = 498
    Top = 110
  end
end