u_bill.dfm

以多个信息系统为例

object F_bill: TF_bill
  Left = 209
  Top = 132
  Width = 640
  Height = 480
  Caption = '收费管理'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 632
    Height = 453
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '结账'
      object Label3: TLabel
        Left = 56
        Top = 28
        Width = 48
        Height = 13
        AutoSize = False
        Caption = '房间号：'
      end
      object Label4: TLabel
        Left = 272
        Top = 28
        Width = 48
        Height = 13
        Caption = '工作单：'
      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 = '客房列表：'
      end
      object Label6: TLabel
        Left = 344
        Top = 56
        Width = 60
        Height = 13
        Caption = '费用列表：'
      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 = '客房'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CUSTOM'
            Title.Caption = '房客'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'START_TIME'
            Title.Caption = '起始时间'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'END_TIME'
            Title.Caption = '结束时间'
            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 = '金额'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRIPT'
            Title.Caption = '描述'
            Visible = True
          end>
      end
      object B_calculate: TButton
        Left = 440
        Top = 22
        Width = 75
        Height = 25
        Caption = '结账'
        TabOrder = 3
        OnClick = B_calculateClick
      end
      object B_print: TButton
        Left = 528
        Top = 22
        Width = 75
        Height = 25
        Caption = '打印账单'
        TabOrder = 4
        OnClick = B_printClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = '费用输入'
      ImageIndex = 1
      object Label1: TLabel
        Left = 56
        Top = 28
        Width = 48
        Height = 13
        AutoSize = False
        Caption = '房间号：'
      end
      object Label2: TLabel
        Left = 304
        Top = 24
        Width = 48
        Height = 13
        Caption = '工作单：'
      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 = '金额'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRIPT'
            Title.Caption = '描述'
            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