interface
type

tMyFDQuery = class (TFDQuery)
public Procedure SqlExec(tcString: String);
end;

implementation

Procedure tMyFDQuery.SqlExec(tcString: String);
begin
 Active := False;
 SQL.Clear;
 SQL.Add(tcString) ;
 Active := True;
end;

end.

Листинг 20.5. Добавление новых записей в таблицу счетов и в таблицу клиентов

procedure TMainFrm.NewBillBtnClick(Sender: TObject);
begin
 with BillFrm, Data.BillTbl do begin
   Caption:='Счет для '+Data.CustTbl.FieldByName('CUST_NAME').AsString;
   ShowModal;
   if ModalResult<>mrOk then exit;
   Append;
   FieldByName('BILL_CUST').AsInteger:= Data.CustTbl.FieldByName('CUST_ID').AsInteger;
   FieldByName('BILL_SUMM').AsString:=SummEd.Text;
   FieldByName('BILL_DATE').AsDateTime:=DatePick.Date;
   Post;
 end;
end;
procedure TMainFrm.NewCustBtnClick(Sender: TObject);
begin
 with CustFrm do begin
   ShowModal;
   if ModalResult<>mrOk then exit;
   Data.CustTbl.AppendRecord([nil,NameEd.Text,AddrEd.Text]);
   Data.CustTbl.Post;
 end;
end;