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

Text File | 1997-04-20 | 7KB | 268 lines

object ManForm: TManForm
  Left = 200
  Top = 108
  Width = 504
  Height = 334
  Caption = 'Example of using DBReference component'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 247
    Width = 496
    Height = 33
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object DBReference1: TDBReference
      Left = 8
      Top = 4
      Width = 489
      Height = 21
      AlignText = rtLeft
      Columns = <
        item
          FieldName = 'VendorNo'
          Title.Caption = '+VendorNo'
        end
        item
          FieldName = 'VendorName'
        end
        item
          FieldName = 'Address1'
        end
        item
          FieldName = 'Address2'
        end
        item
          FieldName = 'City'
        end
        item
          FieldName = 'State'
        end
        item
          FieldName = 'Zip'
        end
        item
          FieldName = 'Country'
          Width = 91
        end
        item
          FieldName = 'Phone'
        end
        item
          FieldName = 'FAX'
        end
        item
          FieldName = 'Preferred'
        end>
      CurrentSortColumn = -1
      VisibleText = True
      EditWidth = 73
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      FontText.Charset = DEFAULT_CHARSET
      FontText.Color = clNavy
      FontText.Height = -11
      FontText.Name = 'MS Sans Serif'
      FontText.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555555FFFFFFFF5555555000000005555555577777777FF555550999999900
        55555575555555775F55509999999901055557F55555557F75F5001111111101
        105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F
        01105777F555557F7FF75500FFFFFF0F00105577F555FF7F77575550FF70000F
        0F0055575FF777757F775555000FFFFF0F005555777555FF7F77555550FF7000
        0F055555575FF777757F555555000FFFFF05555555777555FF7F55555550FF70
        0005555555575FF7777555555555000555555555555577755555555555555555
        5555555555555555555555555555555555555555555555555555}
      KeyField = 'VendorNo'
      ListSource = DSLookUp
      NumGlyphs = 2
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      PatternText = '&VendorName,  &Country, &City, phone: &Phone'
      SQLOrderFilter.AssignEmpty = False
      SQLOrderFilter.TextBefore = 'Order by '
      TableName = 'VENDORS.DB'
      Text = '3820'
      TextOnError = 'Invalid'
      UseQuery = False
      WinHeight = 227
      WinWidth = 405
      TabOrder = 0
      DataField = 'VendorNo'
      DataSource = DS
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 496
    Height = 247
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderWidth = 2
    Caption = 'Panel2'
    TabOrder = 1
    object AutoDBGrid1: TAutoDBGrid
      Left = 3
      Top = 3
      Width = 490
      Height = 241
      Align = alClient
      DataSource = DS
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      AutoOptions = []
      AutoFilter.AssignEmpty = False
      AutoRowHeight = 17
      CurrentSortColumn = 1
      FindFormFont.Charset = DEFAULT_CHARSET
      FindFormFont.Color = clWindowText
      FindFormFont.Height = -11
      FindFormFont.Name = 'MS Sans Serif'
      FindFormFont.Style = []
      Columns = <
        item
          FieldName = 'PartNo'
          Title.Caption = '+PartNo'
        end
        item
          FieldName = 'VendorNo'
          Title.Caption = '+VendorNo'
          Width = 85
        end
        item
          FieldName = 'Description'
          Title.Caption = '+Description'
        end
        item
          FieldName = 'OnHand'
        end
        item
          FieldName = 'OnOrder'
        end
        item
          FieldName = 'Cost'
        end
        item
          FieldName = 'ListPrice'
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 280
    Width = 496
    Height = 27
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object Button1: TButton
      Left = 304
      Top = 0
      Width = 75
      Height = 25
      Caption = 'About'
      TabOrder = 0
      OnClick = Button1Click
    end
    object BitBtn1: TBitBtn
      Left = 418
      Top = 0
      Width = 75
      Height = 25
      TabOrder = 1
      Kind = bkClose
    end
  end
  object Database1: TDatabase
    AliasName = 'DBDEMOS'
    Connected = True
    DatabaseName = 'Main'
    SessionName = 'Default'
    Left = 64
    Top = 56
  end
  object Table: TTable
    Active = True
    DatabaseName = 'Main'
    TableName = 'PARTS.DB'
    Left = 104
    Top = 56
  end
  object TLookUp: TTable
    Active = True
    DatabaseName = 'Main'
    TableName = 'VENDORS.DB'
    Left = 64
    Top = 96
    object TLookUpVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object TLookUpVendorName: TStringField
      FieldName = 'VendorName'
      Size = 30
    end
    object TLookUpAddress1: TStringField
      FieldName = 'Address1'
      Size = 30
    end
    object TLookUpAddress2: TStringField
      FieldName = 'Address2'
      Size = 30
    end
    object TLookUpCity: TStringField
      FieldName = 'City'
    end
    object TLookUpState: TStringField
      FieldName = 'State'
    end
    object TLookUpZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object TLookUpCountry: TStringField
      FieldName = 'Country'
      Size = 15
    end
    object TLookUpPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object TLookUpFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object TLookUpPreferred: TBooleanField
      FieldName = 'Preferred'
    end
  end
  object DS: TDataSource
    DataSet = Table
    Left = 136
    Top = 56
  end
  object DSLookUp: TDataSource
    DataSet = TLookUp
    Left = 96
    Top = 112
  end
end