with pFIBDataSet1 do
begin
if Active then Close;
SelectSQL.Text := 'select CUST_NO, CUSTOMER, CONTACT_FIRST, CONTACT_LAST from CUSTOMER';
InsertSQL.Text := 'insert into CUSTOMER(CUST_NO, CUSTOMER, CONTACT_FIRST, CONTACT_LAST )'+
' values (:CUST_NO, :CUSTOMER, :CONTACT_FIRST, :CONTACT_LAST)';
UpdateSQL.Text := 'update CUSTOMER set CUSTOMER = :CUSTOMER, '+
'CONTACT_FIRST = :CONTACT_FIRST, CONTACT_LAST = :CONTACT_LAST '+
'where CUST_NO = :CUST_NO';
DeleteSQL.Text := 'delete from CUSTOMER where CUST_NO = :CUST_NO';
RefreshSQL.Text:= 'select CUST_NO, CUSTOMER, CONTACT_FIRST, CONTACT_LAST ' +
'from CUSTOMER where CUST_NO = :CUST_NO';
Open;
end;