u_bill.dfm

本系统分为前台和后台两部分：前台用来实现客户预订、入住等操作

object F_bill: TF_bill
  Left = 209
  Top = 132
  Width = 640
  Height = 480
  Caption = #25910#36153#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 632
    Height = 453
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #32467#36134
      object Label3: TLabel
        Left = 56
        Top = 28
        Width = 48
        Height = 13
        AutoSize = False
        Caption = #25151#38388#21495#65306
      end
      object Label4: TLabel
        Left = 272
        Top = 28
        Width = 48
        Height = 13
        Caption = #24037#20316#21333#65306
      end
      object DBText2: TDBText
        Left = 328
        Top = 26
        Width = 65
        Height = 17
        DataField = 'WORKSHEET'
        DataSource = DM_main.DS_worksheet2
      end
      object Label5: TLabel
        Left = 24
        Top = 56
        Width = 60
        Height = 13
        Caption = #23458#25151#21015#34920#65306
      end
      object Label6: TLabel
        Left = 344
        Top = 56
        Width = 60
        Height = 13
        Caption = #36153#29992#21015#34920#65306
      end
      object i_room2: TEdit
        Left = 112
        Top = 24
        Width = 89
        Height = 21
        TabOrder = 0
        OnKeyDown = i_room2KeyDown
      end
      object DBGrid2: TDBGrid
        Left = 8
        Top = 72
        Width = 281
        Height = 345
        DataSource = DM_main.DS_room_list2
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ROOM'
            Title.Caption = #23458#25151
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CUSTOM'
            Title.Caption = #25151#23458
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'START_TIME'
            Title.Caption = #36215#22987#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'END_TIME'
            Title.Caption = #32467#26463#26102#38388
            Visible = True
          end>
      end
      object DBGrid3: TDBGrid
        Left = 328
        Top = 72
        Width = 281
        Height = 345
        DataSource = DM_main.DS_cost_list2
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'COST'
            Title.Caption = #37329#39069
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRIPT'
            Title.Caption = #25551#36848
            Visible = True
          end>
      end
      object B_calculate: TButton
        Left = 440
        Top = 22
        Width = 75
        Height = 25
        Caption = #32467#36134
        TabOrder = 3
        OnClick = B_calculateClick
      end
      object B_print: TButton
        Left = 528
        Top = 22
        Width = 75
        Height = 25
        Caption = #25171#21360#36134#21333
        TabOrder = 4
        OnClick = B_printClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = #36153#29992#36755#20837
      ImageIndex = 1
      object Label1: TLabel
        Left = 56
        Top = 28
        Width = 48
        Height = 13
        AutoSize = False
        Caption = #25151#38388#21495#65306
      end
      object Label2: TLabel
        Left = 304
        Top = 24
        Width = 48
        Height = 13
        Caption = #24037#20316#21333#65306
      end
      object DBText1: TDBText
        Left = 360
        Top = 24
        Width = 65
        Height = 17
        DataField = 'WORKSHEET'
        DataSource = DM_main.DS_worksheet3
      end
      object i_room3: TEdit
        Left = 112
        Top = 24
        Width = 89
        Height = 21
        TabOrder = 0
        OnKeyDown = i_room3KeyDown
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 56
        Width = 609
        Height = 337
        DataSource = DM_main.DS_cost_list3
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'COST'
            Title.Caption = #37329#39069
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRIPT'
            Title.Caption = #25551#36848
            Visible = True
          end>
      end
      object DBNavigator1: TDBNavigator
        Left = 0
        Top = 400
        Width = 624
        Height = 25
        DataSource = DM_main.DS_cost_list3
        Align = alBottom
        TabOrder = 2
      end
    end
  end
end