1.07 How to Get Data Field Directly from DB?

==> use label

procedure lbAdd1OnGetText(var Text: String);

var s: string;

begin

s := 'SELECT Address1 FROM AR_CUSTOMERBRANCH ' +

'WHERE BranchType=''B'' ' +

'AND CODE=' + QuotedStr(Document_Detail.GetFieldValue('Code'));

Text := Trim(DBSQL_GetFieldValue(s));

end;

Example Report can be seen:- GL OR & PV

==> use variable

procedure varAdd1OnCalc(var value: Variant);

var s: string;

begin

s := 'SELECT Address1 FROM AR_CUSTOMERBRANCH ' +

'WHERE BranchType=''B'' ' +

'AND CODE=' + QuotedStr(Document_Detail.GetFieldValue('Code'));

if Trim(DBSQL_GetFieldValue(s)) <> '' then

Value := Trim(DBSQL_GetFieldValue(s));

end;

==> use Image (Get Image from Maintain Item)

procedure ImgItemOnPrint;

var s: string;

begin

s := 'SELECT Picture FROM ST_ITEM ' +

'WHERE Code='+ QuotedStr(Document_Detail.GetFieldValue('ItemCode'));

ImgItem.Visible := DBSQL_GetPicture(s, ImgItem.Picture);

end;

May refer to http://www.sql.com.my/wiki/Report_Builder_-_Get_Data_Directly_from_DB