umain.dfm

Delphi Tag based Report builder!

        D221EDD4D2D40821D3D4D5D3D5D3D407D5D6D7D6D7DAC8020202020202020202
        0202020202020202020202020202020406000503030303030305000604020202
        02020202020202020213EED2D3E9D4D1D4D1D421D5D207D3D5D3D4D6D4D6D6D6
        18C8020202020202020202020202020202020202020202020202020406000503
        03030303030500060402020202020202020202020202C8D7EED3D2E9D3D1D4D4
        EDD207D2D5D3D3D6D4D714C8020202F102020202020202020202020202020202
        0202020202020204060005030303030303050006040202020202020202020202
        02020202C810EFD4D1D4D2EFD4D2D4D2D5D3D318C8C802020202020202020202
        0202020202020202020202020202020202020204060005030303030303050006
        040202020202020202020202020202020202C81ADAD9DAEDDADA18DADAC8C802
        0202020202020202020202020202020202020202020202020202020202020204
        0600050303030303030500060402020202020202020202020202020202020202
        0202020202020202020202020202020202020202020202020202020202020202
        0202020202020202020202040600050303030303030500060402020202020202
        0202020202020202020202020202020202020202020202020202020202020202
        0202020202020202020202020202020202020202020202040600050303030303
        0305000604020202020202020202020202020202020202020202020202020202
        0202020202020202020202020202020202020202020202020202020202020202
        0202020406000503030303030305000604020202020202020202020202020202
        0202020202020202020202020202020202020202020202020202020202020202
        0202020202020202020202020202020406000503030303030331000604020202
        0202020202020202020202020202020202020202020202020202020202020202
        0202020202020202020202020202020202020202020202020202020406000503
        0303030303020000F40202020202020202F10202020202020202020202020202
        0202020202020202020202020202020202020202020202020202020202020202
        020202020202020400002B0303030303030306002E0202020202020202020202
        0202020202020202020202020202020202020202020202020202020202020202
        02020202020202020202020202020202020261F700000203030303030303F700
        00F7616102616102616102026161616161020202020261616161020202616161
        6161616161616161616161616161616161616161616161616161616161610500
        FEF4030303030303030303FA0000FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFA
        FAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFAFA
        FAFAFAFAFAFAFAFAFA0600004202030303030303030303022E00000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000420203030303030303
        03030303032A30F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7
        F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7
        F7052A0303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303030303030303030303030303030303030303
        0303030303030303030303030303}
      Transparent = True
      OnClick = Image1Click
    end
    object bClose: TBitBtn
      Left = 8
      Top = 151
      Width = 86
      Height = 34
      Cancel = True
      Caption = 'Close'
      TabOrder = 0
      OnClick = bCloseClick
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C0060000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A00009A00039D020DA4020D
        A400039D00009A00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A020DA4041FB3072FC0
        0732C20732C20732C20732C2072FC0041FB3020DA400009AFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A01079F0526B807
        32C20732C20732C20732C20732C20732C20732C20732C20732C20732C20526B8
        01079F00009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A0210
        A7062FC50732C50732C20732C20732C20732C20732C20732C20732C20732C207
        32C20732C20732C2072FC00210A700009AFF00FFFF00FFFF00FFFF00FFFF00FF
        00009A0210A80633D00633CF0632CA0732C60732C20732C20732C20732C20732
        C20732C20732C20732C20732C20732C20732C20732C20210A700009AFF00FFFF
        00FFFF00FFFF00FF01079F0530D70533DA0633D50633D00632CB0732C70732C3
        0732C20732C20732C20732C20732C20732C20732C20732C20732C20732C2072F
        C001079FFF00FFFF00FFFF00FF00009A0427CC0534E40533DF0533DB022FD512
        3DD44868DA042FC70430C30732C20732C20631C2002BC03E5FD01F46C8012CC0
        0732C20732C20732C20526B800009AFF00FFFF00FF010DA90434EC0434EA0534
        E50533E1113ADDB3C1F3FEFEFF7F95E50029C7042FC40631C20026BE5F7BD7F9
        FAFDCED6F32146C80732C20732C20732C20732C2020DA4FF00FF00009A0321CB
        0335F50434F00434EB0534E6224AE5EFF2FDFFFFFFFFFFFF7E95E60029C80024
        C25F7AD7F9FAFEFFFFFFFFFFFF4464D10732C20732C20732C20732C2041FB300
        009A00009A0431E90335FA0335F60434F10434EC002DE64164EAEBEEFCFFFFFF
        FFFFFF718AE35875DCF9FAFEFFFFFFFCFCFE6781D9022CC00732C20732C20732
        C20732C2072FC000009A00039E0737F30839FB0537FB0335F70434F20434ED00
        28E64063EAEAEEFDFFFFFFFDFDFFFCFCFFFFFFFFFBFBFE6781DA0027BE0531C2
        0732C20732C20732C20732C20732C200039D010DAC1241FB1E4AFB0C3CFB0335
        FB0335F80435F30434EE0027E7385EEBE9EDFDFFFFFFFFFFFFF8F9FE5F7CDF00
        25C50631C30732C20732C20732C20732C20732C20732C2020DA4020EAD224EFB
        456AFC204CFB0335FB0335FB0335F90333F50029EF5272F1ECF0FDFFFFFFFFFF
        FFF8F9FE718BE5002ACD0430CA0732C50732C20732C20732C20732C20732C202
        0DA400039F2852F86785FD3E65FC0738FB0335FB0234FB002AFA5D7CF9F9FAFF
        FFFFFFF4F6FEEEF1FDFFFFFFFFFFFF7E96E8002ACE0430CB0732C60732C30732
        C20732C20732C200039D00009A2048F37792FD6B88FD1946FB0335FB0130FB5D
        7DFDF9FAFFFFFFFFFCFCFF5978F3395DEDEBEEFDFFFFFFFFFFFF7F96E90631D1
        0632CC0732C80732C30732C2072FC000009A00009A112ED76B88FD9AAEFD466B
        FC093AFB214CFBFAFBFFFFFFFFFCFCFF6482FB002AF20027EC4063EEEBEEFDFF
        FFFFFFFFFF4466E00633D20633CD0732C90732C4041FB300009AFF00FF0511B2
        456AFCA8B9FE8FA5FD2E58FC0835FB92A7FDF1F4FF6583FD002AFB0234F90435
        F40028ED4064EFE6EBFCABBAF5113ADE0633D80633D30633CF0632C9020DA4FF
        00FFFF00FF00009A1B3DE57A94FDBFCCFE89A1FD2A54FC0637FB2652FC0030FB
        0234FB0335FB0335FA0335F6002DF01F4AEE0A39E70130E20533DE0533D90633
        D40526BF00009AFF00FFFF00FFFF00FF0108A72F56F792A8FDCDD7FE97ACFD45
        6AFC1745FB0637FB0335FB0335FB0335FB0335FA0335F70434F20535ED0535E8
        0534E40533DF0530D301079FFF00FFFF00FFFF00FFFF00FF00009A0717BA3A61
        FC95AAFDCFD8FEB6C4FE7A94FD456AFC2752FC1745FB103FFB103FFB1543FB1B
        48F91A46F40D3BEF0434E90533DF0210A900009AFF00FFFF00FFFF00FFFF00FF
        FF00FF00009A0717BA3158F7839CFDC0CCFECDD7FEB8C6FE99ADFD7E97FD6C89
        FD6583FD607FFC5073FC2E58FA0F3DF40431E60210AB00009AFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FF00009A0209A81F40E65073FC819AFDA1B4FE
        AEBEFEA9BAFE9AAEFD839CFD6281FD3860FC1644F90529D90107A200009AFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00009A07
        13B41733DA2C53F73A61FB4066FC3961FC2A54F81741F00826D2010DAD00009A
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FF00009A00009A0105A0020EB1010DB00003A000009A00
        009AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
  end
  object Customer: TTable
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = dsOrders
    TableName = 'customer.db'
    Left = 24
    Top = 32
  end
  object Orders: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'orders.db'
    Left = 56
    Top = 32
  end
  object Employee: TTable
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'EmpNo'
    MasterFields = 'EmpNo'
    MasterSource = dsOrders
    TableName = 'employee.db'
    Left = 88
    Top = 32
  end
  object Items: TTable
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = dsOrders
    TableName = 'items.db'
    Left = 120
    Top = 32
  end
  object Parts: TTable
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'PartNo'
    MasterFields = 'PartNo'
    MasterSource = dsItems
    TableName = 'parts.db'
    Left = 152
    Top = 32
  end
  object dsOrders: TDataSource
    DataSet = Orders
    Left = 56
    Top = 64
  end
  object dsItems: TDataSource
    DataSet = Items
    Left = 120
    Top = 64
  end
  object OrderHistory: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      
        'SELECT customer.CustNo, customer.Company, customer.Addr1, custom' +
        'er.Addr2, customer.City, customer.State, customer.Zip, customer.' +
        'Country, orders.OrderNo, orders.SaleDate, orders.AmountPaid'
      
        'FROM customer INNER JOIN orders ON customer.CustNo = orders.Cust' +
        'No'
      'ORDER BY customer.CustNo, orders.OrderNo;')
    Left = 192
    Top = 32
  end
  object PartSales: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Co' +
      'mmon Files\Borland Shared\Data\dbdemos.mdb'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT parts.PartNo, parts.Description, vendors.VendorNo, vendor' +
        's.VendorName, parts.ListPrice, Year([SaleDate]) AS SaleYear, ord' +
        'ers.OrderNo, orders.SaleDate, items.Qty, [Items].[Qty]*[Parts].[' +
        'ListPrice]*(100-[items].[Discount])/100 AS Amount'
      
        'FROM orders INNER JOIN ((vendors INNER JOIN parts ON vendors.Ven' +
        'dorNo = parts.VendorNo) INNER JOIN items ON parts.PartNo = items' +
        '.PartNo) ON orders.OrderNo = items.OrderNo'
      'ORDER BY parts.Description, Year([SaleDate]), orders.OrderNo;')
    Left = 224
    Top = 32
    object PartSalesPartNo: TFloatField
      FieldName = 'PartNo'
    end
    object PartSalesDescription: TWideStringField
      FieldName = 'Description'
      Size = 30
    end
    object PartSalesVendorNo: TFloatField
      FieldName = 'VendorNo'
    end
    object PartSalesVendorName: TWideStringField
      FieldName = 'VendorName'
      Size = 30
    end
    object PartSalesListPrice: TFloatField
      FieldName = 'ListPrice'
      DisplayFormat = #39'$'#39',0.00'
    end
    object PartSalesSaleYear: TSmallintField
      FieldName = 'SaleYear'
      ReadOnly = True
    end
    object PartSalesOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object PartSalesSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object PartSalesQty: TIntegerField
      FieldName = 'Qty'
      DisplayFormat = ',0'
    end
    object PartSalesAmount: TFloatField
      FieldName = 'Amount'
      ReadOnly = True
      DisplayFormat = #39'$'#39',0.00'
    end
  end
  object XPManifest: TXPManifest
    Left = 336
    Top = 112
  end
end