reservationframe.dfm

长4大使馆个头儿长4大使馆个头儿长4大使馆个头儿长4大使馆个头儿

          'Visa'
          'Will Call')
        Values.Strings = (
          'AMEX'
          'CASH/CK'
          'DINERS'
          'MC'
          'VISA'
          'WILL CALL')
      end
      object edtExpirationDate: TRzDBDateTimeEdit
        Left = 308
        Top = 108
        Width = 105
        Height = 21
        DataSource = srcReservations
        DataField = 'Card_Exp'
        FrameController = RzFrameController1
        ParentColor = True
        TabOrder = 5
        EditType = etDate
      end
      object RzStatusBar1: TRzStatusBar
        Left = 1
        Top = 229
        Width = 431
        Height = 19
        AutoStyle = False
        ShowSizeGrip = False
        BorderInner = fsNone
        BorderOuter = fsNone
        BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
        BorderWidth = 0
        GradientColorStyle = gcsCustom
        GradientColorStart = 13824245
        GradientColorStop = 9229030
        ParentColor = True
        TabOrder = 9
        VisualStyle = vsGradient
        object RzDBStateStatus1: TRzDBStateStatus
          Left = 158
          Top = 0
          Width = 104
          Height = 19
          FillColor = 9229030
          FlatColor = 7256535
          FlatColorAdjustment = 0
          ParentFillColor = False
          Align = alLeft
          DataSource = srcReservations
        end
        object stsResNo: TRzDBStatusPane
          Left = 0
          Top = 0
          Width = 158
          Height = 19
          Hint = 'ResNo'
          FillColor = 9229030
          FlatColor = 7256535
          FlatColorAdjustment = 0
          ParentFillColor = False
          Align = alLeft
          ParentShowHint = False
          ShowHint = False
          FieldLabel = 'Order Number'
          FieldLabelColor = 5607865
          Alignment = taRightJustify
          DataField = 'ResNo'
          DataSource = srcReservations
        end
        object RzClockStatus: TRzClockStatus
          Left = 262
          Top = 0
          Width = 169
          Height = 19
          FillColor = 9229030
          FlatColor = 7256535
          FlatColorAdjustment = 0
          ParentFillColor = False
          Align = alClient
          Format = 'dd mmmm yyyy'
          Alignment = taCenter
        end
      end
    end
    object RzPanel2: TRzPanel
      Left = 8
      Top = 5
      Width = 432
      Height = 35
      BorderOuter = fsFlat
      Color = 11855600
      FlatColor = 5607865
      TabOrder = 1
      object navReservations: TRzDBNavigator
        Left = 12
        Top = 5
        Width = 410
        Height = 25
        ButtonVisualStyle = vsGradient
        DataSource = srcReservations
        BorderOuter = fsNone
        Color = 11855600
        TabOrder = 0
      end
    end
    object grdReservations: TRzDBGrid
      Left = 8
      Top = 56
      Width = 433
      Height = 111
      Color = 14480890
      DataSource = srcReservations
      FixedColor = 11855600
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Verdana'
      TitleFont.Style = []
      FrameColor = 5607865
      FrameVisible = True
      FramingPreference = fpCustomFraming
      FixedLineColor = 5607865
      LineColor = 11855600
      Columns = <
        item
          Expanded = False
          FieldName = 'ResNo'
          Title.Caption = 'Order #'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CustName'
          Title.Caption = 'Customer'
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'EventName'
          Title.Caption = 'Event Name'
          Width = 150
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NumTickets'
          Title.Caption = 'Tickets'
          Width = 45
          Visible = True
        end>
    end
  end
  object pnlHeader: TRzPanel
    Left = 0
    Top = 0
    Width = 508
    Height = 35
    Align = alTop
    Alignment = taLeftJustify
    BorderOuter = fsFlat
    BorderSides = [sdBottom]
    Caption = 'Data-Aware Controls'
    FlatColor = 10524310
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 9856100
    Font.Height = -21
    Font.Name = 'Verdana'
    Font.Style = [fsBold]
    GradientColorStop = 11855600
    TextMargin = 4
    ParentFont = False
    TabOrder = 1
    VisualStyle = vsGradient
    WordWrap = False
  end
  object srcReservations: TDataSource
    DataSet = cdsReservations
    Left = 40
    Top = 360
  end
  object srcEvents: TDataSource
    DataSet = cdsEvents
    Left = 116
    Top = 360
  end
  object srcCustomers: TDataSource
    DataSet = cdsCustomers
    Left = 184
    Top = 360
  end
  object dlgLookupEvent: TRzDBLookupDialog
    Dataset = cdsEventLookup
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    KeyField = 'EventNo'
    SearchEdit = edtEvent
    SearchField = 'Event_Name'
    ShowNavigatorHints = True
    UpdateSearchEdit = True
    OnDrawDataCell = dlgLookupEventDrawDataCell
    Caption = 'Select an Event'
    CaptionOK = 'OK'
    CaptionCancel = 'Cancel'
    CaptionHelp = '&Help'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Height = 303
    Width = 558
    Left = 236
    Top = 360
  end
  object RzFrameController1: TRzFrameController
    FlatButtonColor = 9229030
    FocusColor = 13824245
    FrameColor = 5607865
    FrameHotStyle = fsGroove
    FrameSides = [sdBottom]
    FrameVisible = True
    FramingPreference = fpCustomFraming
    ParentColor = True
    Left = 320
    Top = 360
  end
  object cdsReservations: TClientDataSet
    Aggregates = <>
    FileName = 'Reservations.cds'
    Params = <>
    OnCalcFields = cdsReservationsCalcFields
    Left = 12
    Top = 360
    object cdsReservationsResNo: TAutoIncField
      FieldName = 'ResNo'
      ReadOnly = True
    end
    object cdsReservationsEventNo: TIntegerField
      FieldName = 'EventNo'
    end
    object cdsReservationsCustNo: TIntegerField
      FieldName = 'CustNo'
    end
    object cdsReservationsNumTickets: TIntegerField
      FieldName = 'NumTickets'
    end
    object cdsReservationsAmt_Paid: TCurrencyField
      FieldName = 'Amt_Paid'
    end
    object cdsReservationsPay_Method: TStringField
      FieldName = 'Pay_Method'
      Size = 10
    end
    object cdsReservationsCard_No: TStringField
      FieldName = 'Card_No'
    end
    object cdsReservationsCard_Exp: TDateField
      FieldName = 'Card_Exp'
    end
    object cdsReservationsPay_Notes: TMemoField
      FieldName = 'Pay_Notes'
      BlobType = ftMemo
      Size = 30
    end
    object cdsReservationsPurge_Date: TDateField
      FieldName = 'Purge_Date'
    end
    object cdsReservationsPaid: TBooleanField
      FieldName = 'Paid'
    end
    object cdsReservationsCustName: TStringField
      FieldKind = fkCalculated
      FieldName = 'CustName'
      ProviderFlags = []
      Size = 40
      Calculated = True
    end
    object cdsReservationsEventName: TStringField
      FieldKind = fkCalculated
      FieldName = 'EventName'
      ProviderFlags = []
      Size = 40
      Calculated = True
    end
  end
  object cdsEvents: TClientDataSet
    Aggregates = <>
    FileName = 'Events.cds'
    Params = <>
    Left = 88
    Top = 360
  end
  object cdsCustomers: TClientDataSet
    Aggregates = <>
    FileName = 'Customers.cds'
    Params = <>
    Left = 156
    Top = 360
  end
  object cdsEventLookup: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 264
    Top = 360
    object cdsEventLookupEventNo: TAutoIncField
      FieldName = 'EventNo'
      ReadOnly = True
    end
    object cdsEventLookupVenueNo: TIntegerField
      FieldName = 'VenueNo'
    end
    object cdsEventLookupEvent_Name: TStringField
      FieldName = 'Event_Name'
      Size = 30
    end
    object cdsEventLookupEvent_Date: TDateField
      FieldName = 'Event_Date'
    end
    object cdsEventLookupEvent_Time: TTimeField
      FieldName = 'Event_Time'
    end
    object cdsEventLookupTicket_price: TCurrencyField
      FieldName = 'Ticket_price'
    end
  end
end