Posted by FARHAN KARIMSHAH on January 22, 2010
In Reply to Re: DbGrid/EditBox Search posted by webmaster Guido on January 22, 2010
THANX YOU've helped so much :)LAST THING I'M ACTUALY RECONSTRUCTING A POINT OF SALE FROM SOURCE CODE ETC.. THE CREATOR OF THE POINT OF SALE USES THE FUNCTION/CODE OF TRANSFERDATA(SENDER), ANY IDEA WHAT IT MAY BE?
E.G.
1-
if tproduct.fieldbyname(mndx).asstring=uppercase(mdata.text) then begin
TransferData(Sender);
2-
procedure FORM1.TransferData(Sender: TObject);
begin
mquantity := 1;
if mquantity <= tproductstock.value then begin
muprice := tproductuprice.value;
mnett := muprice*mquantity;
{*******************APPEND SELL**************************}
tsell.active := fals.... E.T.C.
3-
procedure form1.dbgrid1DblClick(Sender: TObject);
begin
TransferData(Sender);
edit3.caption := 'Enter Data ';
end;
THANX :)
Follow Ups