DOS/V Power Report 1997 August/VPR9708A.ISO/D3TRIAL/INSTALL/DATA.Z/CUSTVIEW.DFM/CUSTVIEW.txt

Text File | 1997-05-12 | 4KB | 186 lines

object fmCustView: TfmCustView
  Left = 220
  Top = 109
  BorderStyle = bsSingle
  Caption = 'Customers - Unfiltered'
  ClientHeight = 390
  ClientWidth = 538
  Font.Color = clWindowText
  Font.Height = -14
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 120
  TextHeight = 14
  object Label3: TLabel
    Left = 13
    Top = 207
    Width = 100
    Height = 15
    Caption = 'Orders Query'
    Font.Color = clBlack
    Font.Height = -15
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 9
    Top = 39
    Width = 79
    Height = 15
    Caption = 'Customers'
    Font.Color = clBlack
    Font.Height = -15
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 10
    Top = 138
    Width = 143
    Height = 27
    Caption = 'Filter &Customers'
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 369
    Width = 538
    Height = 21
    Panels = <>
    SimplePanel = False
  end
  object DBGrid2: TDBGrid
    Left = 158
    Top = 224
    Width = 377
    Height = 139
    DataSource = DM1.OrdersSource
    TabOrder = 1
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Style = []
    OnEnter = DBGrid2Enter
    Columns = <
      item
        FieldName = 'OrderNo'
      end
      item
        FieldName = 'Custno'
        Title.Caption = 'CustNo'
        Width = 58
      end
      item
        FieldName = 'AmountPaid'
        Title.Caption = 'Amount Paid'
        Width = 122
      end
      item
        FieldName = 'ShipDate'
        Title.Caption = 'Ship Date'
        Width = 83
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 142
    Top = 4
    Width = 92
    Height = 27
    DataSource = DM1.CustomerSource
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    TabOrder = 3
  end
  object rgDataSet: TRadioGroup
    Left = 9
    Top = 65
    Width = 144
    Height = 65
    Caption = 'Dataset'
    ItemIndex = 1
    Items.Strings = (
      '&Query-Based'
      '&Table-Based')
    TabOrder = 2
    OnClick = rgDataSetClick
  end
  object DBGrid1: TDBGrid
    Left = 158
    Top = 36
    Width = 377
    Height = 175
    DataSource = DM1.CustomerSource
    TabOrder = 0
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Style = []
    OnEnter = DBGrid1Enter
    Columns = <
      item
        FieldName = 'CustNo'
        Width = 43
      end
      item
        FieldName = 'Company'
        Width = 154
      end
      item
        FieldName = 'Country'
      end
      item
        FieldName = 'LastInvoiceDate'
        Title.Caption = 'Last Invoice'
      end
      item
        FieldName = 'Contact'
      end
      item
        FieldName = 'City'
      end
      item
        FieldName = 'State'
      end>
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 241
    Width = 145
    Height = 87
    Caption = 'Orders Filter'
    TabOrder = 5
    object Label1: TLabel
      Left = 4
      Top = 56
      Width = 75
      Height = 14
      Caption = 'Amount &Paid'
      FocusControl = Edit1
    end
    object cbFilterOrders: TCheckBox
      Left = 9
      Top = 22
      Width = 117
      Height = 18
      Caption = '&Filter'
      TabOrder = 0
      OnClick = cbFilterOrdersClick
    end
    object Edit1: TEdit
      Left = 88
      Top = 52
      Width = 49
      Height = 19
      TabOrder = 1
      Text = '1000'
      OnChange = Edit1Change
    end
  end
  object MainMenu1: TMainMenu
    Left = 104
    Top = 5
    object About1: TMenuItem
      Caption = '&About'
      OnClick = About1Click
    end
  end
end