C
crazyboys
Unregistered / Unconfirmed
GUEST, unregistred user!
sInsert:='Insert Into main_table(ClientNo,Route,RelayType,RDate,ALines,IncomCCS,OutcomCCS,IncomPC,OutcomPC,Overflow,RelayBusy,Distance)';
sInsert:=sInsert+'ValuesClientNo,:Route,:RelayType,:RDateTime,:ALines,:IncomCCS,:OutcomCCS,:IncomPC,:OutcomPC,:Overflow,:RelayBusy,istance';
sInsert:=sInsert+');';
try
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(sInsert);
with parameters do
begin
parambyname('ClientNo').Value:=ClientNo;
parambyname('Route').Value:=Route;
parambyname('RelayType').Value:=RelayType;
parambyname('RDateTime').Value:=RDateTime;
parambyname('ALines').Value:=ALines;
parambyname('IncomCCS').Value:=IncomCCS;
parambyname('OutcomCCS').Value:=OutcomCCS;
parambyname('IncomPC').Value:=IncomPC;
parambyname('OutcomPC').Value:=OutcomPC;
parambyname('Overflow').Value:=Overflow;
parambyname('RelayBusy').Value:=RelayBusy;
parambyname('Distance').Value:=Distance;
end;
ExecSQL;
sInsert:=sInsert+'ValuesClientNo,:Route,:RelayType,:RDateTime,:ALines,:IncomCCS,:OutcomCCS,:IncomPC,:OutcomPC,:Overflow,:RelayBusy,istance';
sInsert:=sInsert+');';
try
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(sInsert);
with parameters do
begin
parambyname('ClientNo').Value:=ClientNo;
parambyname('Route').Value:=Route;
parambyname('RelayType').Value:=RelayType;
parambyname('RDateTime').Value:=RDateTime;
parambyname('ALines').Value:=ALines;
parambyname('IncomCCS').Value:=IncomCCS;
parambyname('OutcomCCS').Value:=OutcomCCS;
parambyname('IncomPC').Value:=IncomPC;
parambyname('OutcomPC').Value:=OutcomPC;
parambyname('Overflow').Value:=Overflow;
parambyname('RelayBusy').Value:=RelayBusy;
parambyname('Distance').Value:=Distance;
end;
ExecSQL;