Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/delphi/ruzne/auto32d3.exe/rar/AUTO32D3/DEMOS/DELPHI3.0/ASQLFILT/CUSTVIEW.DFM/CUSTVIEW.txt

Text File | 1997-04-20 | 6KB | 243 lines

object fmCustView: TfmCustView
  Left = 70
  Top = 95
  BorderStyle = bsSingle
  Caption = 'Customers - Unfiltered'
  ClientHeight = 334
  ClientWidth = 636
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 219
    Width = 636
    Height = 115
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Label3: TLabel
      Left = 12
      Top = 3
      Width = 93
      Height = 16
      Caption = 'Orders Query'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 64
      Top = 66
      Width = 89
      Height = 13
      Caption = 'Ship date between'
    end
    object DateFilter1: TDateFilter
      Left = 8
      Top = 80
      Width = 105
      Height = 21
      EditMask = '00.00.00;1;_'
      MaxLength = 8
      TabOrder = 2
      Text = '05.07.97'
      DateFormat = 'dd.MM.yy'
      IsDateNow = True
      AutoFilter.AssignEmpty = False
    end
    object DateFilter2: TDateFilter
      Left = 152
      Top = 80
      Width = 105
      Height = 21
      EditMask = '00.00.00;1;_'
      MaxLength = 8
      TabOrder = 0
      Text = '05.07.97'
      DateFormat = 'dd.MM.yy'
      IsDateNow = True
      AutoFilter.AssignEmpty = False
    end
    object AutoDBGrid1: TAutoDBGrid
      Left = 272
      Top = 0
      Width = 364
      Height = 115
      Align = alRight
      DataSource = DM1.OrdersSource
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      AutoOptions = []
      AutoFilter.AssignEmpty = False
      AutoFilter.TextBefore = 'Order by '
      AutoRowHeight = 17
      CurrentSortColumn = -1
      FindFormFont.Charset = DEFAULT_CHARSET
      FindFormFont.Color = clWindowText
      FindFormFont.Height = -11
      FindFormFont.Name = 'MS Sans Serif'
      FindFormFont.Style = []
      Columns = <
        item
          FieldName = 'OrderNo'
        end
        item
          FieldName = 'custno'
        end
        item
          FieldName = 'AmountPaid'
          Title.Caption = 'Amount Paid'
          Width = 94
        end
        item
          FieldName = 'shipdate'
          Title.Caption = 'Ship date'
          Width = 88
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 184
    Width = 636
    Height = 35
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object LookupComboFilter1: TLookupComboFilter
      Left = 8
      Top = 6
      Width = 137
      Height = 21
      Items.Strings = (
        'All countries,ALL'
        'Not US,NUS')
      ItemsAlignment = taLeftJustify
      ItemsColor = clBtnFace
      KeyField = 'country'
      ListSource = DM1.CountrySource
      TabOrder = 0
      AutoFilter.AssignEmpty = False
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 156
    Top = 189
    Width = 172
    Height = 21
    DataSource = DM1.CustomerSource
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    TabOrder = 2
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 636
    Height = 184
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderWidth = 5
    TabOrder = 3
    object AutoDBGrid2: TAutoDBGrid
      Left = 6
      Top = 6
      Width = 624
      Height = 172
      Align = alClient
      DataSource = DM1.CustomerSource
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      AutoOptions = []
      AutoFilter.AssignEmpty = False
      AutoFilter.TextBefore = 'Order by '
      AutoRowHeight = 17
      CurrentSortColumn = -1
      FindFormFont.Charset = DEFAULT_CHARSET
      FindFormFont.Color = clWindowText
      FindFormFont.Height = -11
      FindFormFont.Name = 'MS Sans Serif'
      FindFormFont.Style = []
      Columns = <
        item
          FieldName = 'CustNo'
        end
        item
          FieldName = 'Company'
          Width = 104
        end
        item
          FieldName = 'country'
          Width = 109
        end
        item
          FieldName = 'LastInvoiceDate'
          Width = 87
        end
        item
          FieldName = 'Contact'
          Width = 80
        end
        item
          FieldName = 'City'
          Width = 93
        end
        item
          FieldName = 'State'
        end>
    end
  end
  object MainMenu1: TMainMenu
    Left = 40
    Top = 13
    object About1: TMenuItem
      Caption = '&About'
      OnClick = About1Click
    end
  end
  object FilterLink3: TFilterLink
    AutoRefresh = True
    DataSet = DM1.QueryOrder
    Filter = DateFilter1
    FilterName = 'Auto'
    Param = 'dateb'
    Left = 16
    Top = 256
  end
  object FilterLink4: TFilterLink
    AutoRefresh = True
    DataSet = DM1.QueryOrder
    Filter = DateFilter2
    FilterName = 'Auto'
    Param = 'datee'
    Left = 72
    Top = 248
  end
  object FilterLink9: TFilterLink
    AutoRefresh = True
    DataSet = DM1.QueryCust
    Filter = LookupComboFilter1
    FilterName = 'Auto'
    Param = 'country'
    Left = 40
    Top = 184
  end
end