08-12-2016, 09:40 PM
(آخر تعديل لهذه المشاركة: 09-12-2016, 10:42 AM بواسطة أبو معاذ.
تعديل السبب: استعمل الوسم كود
)
السلام عليكم اسمح لي على التأخر
كود :
procedure TFfacture.FormShow(Sender: TObject);
begin
If Not DM.adoTable4.IsEmpty then begin
if fmenu.Label4.Caption=DM.adoTable2.Fieldbyname('N_fact').Asstring then DM.adoTable4.Locate('N_facture',fmenu.label4.caption,[locaseinsensitive,lopartialkey]);
DM.adoTable4.Locate('N_facture',fmenu.label4.caption,[locaseinsensitive,lopartialkey]); end else
DM.adoTable4.Last;
Edit1.Clear;
Edit1.Text:=DM.adoTable4.FieldValues['N_Facture'];
end;