DOS/V Power Report 1996 August/VPR9608A.BIN/del20try/install/data.z/CUSTVIEW.DFM/CUSTVIEW.txt

Text File | 1996-05-08 | 4KB | 197 lines

object fmCustView: TfmCustView
  Left = 227
  Top = 109
  BorderStyle = bsSingle
  Caption = 'Customers - Unfiltered'
  ClientHeight = 375
  ClientWidth = 538
  Font.Color = clBlack
  Font.Height = -15
  Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
  Font.Style = []
  Font.Charset = 128
  Menu = MainMenu1
  PixelsPerInch = 120
  TextHeight = 15
  object Label3: TLabel
    Left = 13
    Top = 199
    Width = 100
    Height = 15
    Caption = 'Orders Query'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
    Font.Style = [fsBold]
    Font.Charset = 128
    ParentFont = False
  end
  object Label2: TLabel
    Left = 9
    Top = 38
    Width = 79
    Height = 15
    Caption = 'Customers'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
    Font.Style = [fsBold]
    Font.Charset = 128
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 10
    Top = 133
    Width = 151
    Height = 26
    Caption = 'Filter &Customers'
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 354
    Width = 538
    Height = 21
    Panels = <>
    SimplePanel = False
  end
  object DBGrid2: TDBGrid
    Left = 174
    Top = 215
    Width = 352
    Height = 134
    Columns = <
      item
        FieldName = 'OrderNo'
      end
      item
        FieldName = 'Custno'
        Title.Caption = 'CustNo'
        Width = 53
      end
      item
        FieldName = 'AmountPaid'
        Title.Caption = 'Amount Paid'
        Width = 122
      end
      item
        FieldName = 'ShipDate'
        Title.Caption = 'Ship Date'
        Width = 83
      end>
    DataSource = DM1.OrdersSource
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = -15
    TitleFont.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
    TitleFont.Style = []
    TitleFont.Charset = 128
    OnEnter = DBGrid2Enter
  end
  object DBNavigator1: TDBNavigator
    Left = 176
    Top = 4
    Width = 100
    Height = 26
    DataSource = DM1.CustomerSource
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    TabOrder = 3
  end
  object rgDataSet: TRadioGroup
    Left = 9
    Top = 63
    Width = 152
    Height = 62
    Caption = 'Dataset'
    ItemIndex = 1
    Items.Strings = (
      '&Query-Based'
      '&Table-Based')
    TabOrder = 2
    OnClick = rgDataSetClick
  end
  object DBGrid1: TDBGrid
    Left = 174
    Top = 35
    Width = 352
    Height = 168
    Columns = <
      item
        FieldName = 'CustNo'
        Width = 54
      end
      item
        FieldName = 'Company'
        Width = 191
      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>
    DataSource = DM1.CustomerSource
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = -15
    TitleFont.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
    TitleFont.Style = []
    TitleFont.Charset = 128
    OnEnter = DBGrid1Enter
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 231
    Width = 153
    Height = 84
    Caption = 'Orders Filter'
    TabOrder = 5
    object Label1: TLabel
      Left = 4
      Top = 55
      Width = 101
      Height = 19
      Caption = 'Amount &Paid'
      FocusControl = Edit1
    end
    object cbFilterOrders: TCheckBox
      Left = 9
      Top = 21
      Width = 112
      Height = 18
      Caption = '&Filter'
      TabOrder = 0
      OnClick = cbFilterOrdersClick
    end
    object Edit1: TEdit
      Left = 95
      Top = 50
      Width = 51
      Height = 20
      TabOrder = 1
      Text = '1000'
      OnChange = Edit1Change
    end
  end
  object MainMenu1: TMainMenu
    Left = 104
    Top = 5
    object About1: TMenuItem
      Caption = '&About'
      ShortCut = 0
      OnClick = About1Click
    end
  end
end