ORM framework for Delphi with full support for data manipulation, complex and advanced queries, inheritance, polymorphism, and more...

Transparent DBImage control. Paints the bitmap transparently onto its background. Note that its background is not itself see through, but has the color specified in its Color property.

You can store .wmf, .emf, .jpg, .ico, .bmp images in your database WITHOUT a line of code !!
If you need other image type then you can use an event to load the apropiete image type.
TQREDBImage is for printing .wmg .jpg, etc. with QuickReport
The only condition is : the field in your database must be a blob field.

ORM framework for Delphi with full support for data manipulation, complex and advanced queries, inheritance, polymorphism, and more...

    Query1.Sql.Text := 'SELECT I.ID AS INVOICE_ID, I.INVOICE_TYPE, I.INVOICE_NO, I.ISSUE_DATE, I.PRINT_DATE, ' +  
      'C.ID AS CUSTOMER_ID, C.CUSTOMER_NAME, C.SEX, C.BIRTHDAY, N.ID AS COUNTRY_ID, N.COUNTRY_NAME' +  
      'FROM INVOICE AS I INNER JOIN CUSTOMER AS C ON (C.ID = I.CUSTOMER_ID) ' +  
      'LEFT JOIN COUNTRY AS N ON (N.ID = C.COUNTRY_ID)' +  
      'WHERE I.ID = :INVOICE_ID;'  
    Query1.ParamByName('INVOICE_ID').AsInteger := 1;  
    Query1.Open;  
    ShowMessage(Format('Invoice No: %d, Customer: %s, Country: %s',  
      [Query1.FieldByName('INVOICE_NO').AsInteger,  
      Query1.FieldByName('CUSTOMER_NAME').AsString,  
      Query1.FieldByName('COUNTRY_NAME').AsString]));  

ORM framework for Delphi with full support for data manipulation, complex and advanced queries, inheritance, polymorphism, and more...

    Query1.Sql.Text := 'SELECT I.ID AS INVOICE_ID, I.INVOICE_TYPE, I.INVOICE_NO, I.ISSUE_DATE, I.PRINT_DATE, ' +  
      'C.ID AS CUSTOMER_ID, C.CUSTOMER_NAME, C.SEX, C.BIRTHDAY, N.ID AS COUNTRY_ID, N.COUNTRY_NAME' +  
      'FROM INVOICE AS I INNER JOIN CUSTOMER AS C ON (C.ID = I.CUSTOMER_ID) ' +  
      'LEFT JOIN COUNTRY AS N ON (N.ID = C.COUNTRY_ID)' +  
      'WHERE I.ID = :INVOICE_ID;'  
    Query1.ParamByName('INVOICE_ID').AsInteger := 1;  
    Query1.Open;  
    ShowMessage(Format('Invoice No: %d, Customer: %s, Country: %s',  
      [Query1.FieldByName('INVOICE_NO').AsInteger,  
      Query1.FieldByName('CUSTOMER_NAME').AsString,  
      Query1.FieldByName('COUNTRY_NAME').AsString]));