dbaware.dfm

灰鸽子1.23源码,,,,,,,

            Left = 8
            Top = 12
            Width = 53
            Height = 13
            AutoSize = False
            Caption = 'Company:'
          end
          object Label19: TLabel
            Left = 224
            Top = 12
            Width = 49
            Height = 13
            AutoSize = False
            Caption = 'Order By:'
          end
          object rxDBLookupCombo2: TRxDBLookupCombo
            Left = 64
            Top = 8
            Width = 133
            Height = 21
            Hint = 'Press Esc once or twice to select < All >|'
            DropDownCount = 8
            DisplayEmpty = '< All >'
            LookupField = 'CustNo'
            LookupDisplay = 'Company'
            LookupSource = DataSource6
            TabOrder = 0
            OnChange = rxDBLookupCombo2Change
          end
          object ComboBox2: TComboBox
            Left = 276
            Top = 8
            Width = 109
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 1
            OnChange = ComboBox2Change
            Items.Strings = (
              'Sale Date'
              'Ship Date'
              'Company'
              'Employee')
          end
        end
        object DBGrid1: TRxDBGrid
          Left = 4
          Top = 121
          Width = 485
          Height = 156
          DataSource = DataSource5
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clBlue
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          IniStorage = FormStorage1
          TitleButtons = True
          OnCheckButton = DBGrid1CheckButton
          OnGetBtnParams = DBGrid1GetBtnParams
          OnTitleBtnClick = DBGrid1TitleBtnClick
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table2
    Left = 48
    Top = 4
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'BIOLIFE.DB'
    Left = 40
    object Table2SpeciesNo: TFloatField
      DisplayWidth = 9
      FieldName = 'Species No'
    end
    object Table2Category: TStringField
      DisplayWidth = 15
      FieldName = 'Category'
      Size = 15
    end
    object Table2Common_Name: TStringField
      DisplayWidth = 22
      FieldName = 'Common_Name'
      Size = 30
    end
    object Table2Lengthcm: TFloatField
      DisplayWidth = 11
      FieldName = 'Length (cm)'
    end
    object Table2Notes: TMemoField
      DisplayWidth = 7
      FieldName = 'Notes'
      ReadOnly = True
      BlobType = ftMemo
      Size = 50
    end
    object Table2Graphic: TGraphicField
      DisplayWidth = 7
      FieldName = 'Graphic'
      ReadOnly = True
      BlobType = ftGraphic
    end
  end
  object DataSource2: TDataSource
    DataSet = QBEQuery1
    Left = 88
    Top = 8
  end
  object QBEQuery1: TQBEQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    QBE.Strings = (
      'Query'
      ''
      'SORT: EMPLOYEE.DB->"LastName", EMPLOYEE.DB->"FirstName"'
      ''
      'EMPLOYEE.DB | EmpNo  | LastName | FirstName | PhoneExt |'
      '            | Check  | Check    | Check     | Check    |'
      ''
      'EndQuery')
    Left = 81
    ParamData = <>
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    ReadOnly = True
    TableName = 'ITEMS.DB'
    object Table1OrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object Table1ItemNo: TFloatField
      FieldName = 'ItemNo'
    end
    object Table1PartNo: TFloatField
      FieldName = 'PartNo'
    end
    object Table1Qty: TIntegerField
      FieldName = 'Qty'
      Visible = False
    end
    object Table1Discount: TFloatField
      FieldName = 'Discount'
      Visible = False
    end
  end
  object DataSource3: TDataSource
    DataSet = Table1
    Left = 8
    Top = 4
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'customer.db'
    Left = 120
  end
  object DataSource4: TDataSource
    DataSet = Table3
    Left = 128
    Top = 8
  end
  object DBFilter1: TRxDBFilter
    DataSource = DataSource4
    OnActivate = DBFilter1Change
    OnDeactivate = DBFilter1Change
    OnSetCapture = DBFilter1Change
    OnReleaseCapture = DBFilter1Change
    Left = 136
    Top = 12
  end
  object FormStorage1: TFormStorage
    IniSection = 'DBAware Components'
    Options = [fpPosition]
    StoredProps.Strings = (
      'TabbedNotebook1.PageIndex'
      'CheckBox1.Checked'
      'CheckBox2.Checked')
    StoredValues = <>
    Left = 377
    Top = 2
  end
  object Table4: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 168
  end
  object DataSource6: TDataSource
    DataSet = Table4
    Left = 176
    Top = 4
  end
  object rxQuery1: TRxQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'SELECT ORDERS."OrderNo" , '
      ' ORDERS."SaleDate" , '
      ' CUSTOMER."Company" , '
      ' ORDERS."CustNo" , '
      ' ORDERS."ShipDate" , '
      ' ORDERS."ShipToContact" , '
      ' ORDERS."ShipToAddr1" , '
      ' ORDERS."ShipToAddr2" , '
      ' ORDERS."ShipToCity" , '
      ' ORDERS."ShipToState" , '
      ' ORDERS."ShipToZip" , '
      ' ORDERS."ShipToCountry" , '
      ' ORDERS."ShipToPhone" , '
      ' ORDERS."ShipVIA" , '
      ' ORDERS."PO" , '
      ' ORDERS."Terms" , '
      ' ORDERS."PaymentMethod" , '
      ' ORDERS."ItemsTotal" , '
      ' ORDERS."TaxRate" , '
      ' ORDERS."Freight" , '
      ' ORDERS."AmountPaid",'
      ' ORDERS."EmpNo" , '
      ' EMPLOYEE."LastName" '
      'FROM '
      ' "ORDERS.DB" ORDERS , '
      ' "CUSTOMER.DB" CUSTOMER , '
      ' "EMPLOYEE.DB" EMPLOYEE'
      'WHERE ( ORDERS.CustNo = CUSTOMER.CustNo )'
      '  AND'
      ' ( ORDERS.EmpNo = EMPLOYEE.EmpNo )'
      ' AND'
      ' (%CUSTOMER)'
      ' AND'
      ' (%EMPLOYEE)'
      ' AND'
      ' (%SALEDATE)'
      'ORDER BY %ORDER')
    Macros = <
      item
        DataType = ftString
        Name = 'CUSTOMER'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'EMPLOYEE'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'SALEDATE'
        ParamType = ptInput
        Value = '0=0'
      end
      item
        DataType = ftString
        Name = 'ORDER'
        ParamType = ptInput
        Value = 'SaleDate'
      end>
    Left = 208
    object rxQuery1OrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object rxQuery1SaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object rxQuery1Company: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object rxQuery1CustNo: TFloatField
      FieldName = 'CustNo'
    end
    object rxQuery1ShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object rxQuery1ShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object rxQuery1ShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object rxQuery1ShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object rxQuery1ShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object rxQuery1ShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object rxQuery1ShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object rxQuery1ShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object rxQuery1ShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object rxQuery1ShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object rxQuery1PO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object rxQuery1Terms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object rxQuery1PaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object rxQuery1ItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object rxQuery1TaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object rxQuery1Freight: TCurrencyField
      FieldName = 'Freight'
    end
    object rxQuery1AmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
    object rxQuery1EmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object rxQuery1LastName: TStringField
      FieldName = 'LastName'
    end
  end
  object DataSource5: TDataSource
    DataSet = rxQuery1
    Left = 228
    Top = 4
  end
  object PicClip: TPicClip
    Cols = 3
    Rows = 2
    Picture.Data = {
      07544269746D617076030000424D760300000000000076000000280000003000
      0000200000000100040000000000000300000000000000000000100000000000
      000000000000000080000080000000808000800000008000800080800000C0C0
      C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00DDCCCCCC00CCDDDDD55555555500CCDDDDDD66000006DDDDDD0CCC0070C0
      DDDD055BB0005080C0DDDDD6666666660DDDDDD000F7F70DDDDD05BBB0705088
      0DDDDD6E6EE2266660DDDDDD0F7F70DDDDDD0BBB07F70880DDDDD6EEEEE222E2
      660DDDDD00F7000DDDDD0BBB0F7088000DDDD22EEEE222EE660DDDD0007F7F70
      DDDD0BB0F700088880DD62FE22222227E660DD000007F7F0DDDD0BB07F7F7088
      80DD6FEE2222222E7260DD00007F7F70DDDD0BB007F7F08880DD6EFE72222277
      E760DD0000F7F7F70DDD0BB07F7F7088880D6F66EE2E2E227760DD00000F7F40
      DDDD0BB0F7F7F70800DD6E226EE72222E260DD000000F7F0DDDD0BBB0F774088
      80DD6FF2266626E22220DD000000007F0DDD0BBBB0F7F000880DD6F222222222
      220DDDD0000000000DDD0BBBBB007000000DD6EF2E222222260DDDD000000000
      0DDDD0BBBBBB0000000DDD6EF622622260DDDDDD0000000DDDDDD0BBBBBB0000
      0DDDDDD6626EEE666DDDDDDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDD666666D
      DDDDCC4444440044CCCCCDDDDDDDDD00CCCCCCCC66000006CCCCCC0444007040
      CCCC0DDBB000D080C0CCCCC6666666660CCCCCC000F7F70CCCCC0DBBB070D088
      0CCCCC6E6EE2266660CCCCCC0F7F70CCCCCC0BBB07F70880CCCCC6EEEEE222E2
      660CCCCC00F7000CCCCC0BBB0F7088000CCCC22EEEE222EE660CCCC0007F7F70
      CCCC0BB0F700088880CC62FE22222227E660CC000007F7F0CCCC0BB07F7F7088
      80CC6FEE2222222E7260CC00007F7F70CCCC0BB007F7F08880CC6EFE72222277
      E760CC0000F7F7F70CCC0BB07F7F7088880C6F66EE2E2E227760CC00000F7F40
      CCCC0BB0F7F7F70800CC6E226EE72222E260CC000000F7F0CCCC0BBB0F774088
      80CC6FF2266626E22220CC000000007F0CCC0BBBB0F7F000880CC6F222222222
      220CCCC0000000000CCC0BBBBB007000000CC6EF2E222222260CCCC000000000
      0CCCCCBBBBBB0000000CCC6EF622622260CCCCCC0000000CCCCCCCBBBBBB0000
      0CCCCCC6626EEE666CCCCCCCCCCCCCCCCCCCCC0000000CCCCCCCCCCCC666666C
      CCCC}
    Left = 264
    Top = 4
  end
end