procedure save(kveri: TSQLQuery; kon: TODBCConnection; tr: TSQLTransaction;
memo11, memo22, memo33: TMemo);
begin
kon.Connected := False;
kon.Databasename := 'rez';
kveri.SQL.Text := 'select * from tabela';
kon.Connected := True;
kveri.Active := True;
kveri.SQL.Text := 'Insert into tabela( broj_igraca, imeigraca1, imeigraca2, imeigraca3, imeigraca4, osvojeno1, osvojeno2, osvojeno3, osvojeno4, ukupnoosvojeno) ' +
'values(:broj_igraca, :imeigraca1, :imeigraca2, :imeigraca3, :imeigraca4, :osvojeno1, :osvojeno2, :osvojeno3, :osvojeno4, :ukupnoosvojeno)';
kveri.ParamByName('broj_igraca').AsString := inttostr(igra);
kveri.ParamByName('imeigraca1').AsString := memo11.lines[0];
if igra = 2 then
kveri.ParamByName('imeigraca2').AsString := memo11.lines[1]
else
kveri.ParamByName('imeigraca2').AsString := '/';
if igra = 3 then
kveri.ParamByName('imeigraca3').AsString := memo11.lines[2]
else
kveri.ParamByName('imeigraca3').AsString :='/';
if igra = 4 then
kveri.ParamByName('imeigraca4').AsString := memo11.lines[3]
else
kveri.ParamByName('imeigraca4').AsString := '/';
if memo33.lines[0] = 'da' then
kveri.ParamByName('osvojeno1').AsString := memo22.lines[0]
else
kveri.ParamByName('osvojeno1').AsString := '/';
if igra = 2 then
begin
if memo33.lines[1] = 'da' then
kveri.ParamByName('osvojeno2').AsString := memo22.lines[1]
else
kveri.ParamByName('osvojeno2').AsString :='/';
end;
if igra = 3 then
begin
if memo33.lines[2] = 'da' then
kveri.ParamByName('osvojeno3').AsString := memo22.lines[2]
else
kveri.ParamByName('osvojeno3').AsString :='/';
end
else
kveri.ParamByName('osvojeno3').AsString :='xxx';
if igra = 4 then
begin
if memo33.lines[3] = 'da' then
kveri.ParamByName('osvojeno4').AsString := memo22.lines[3]
else
kveri.ParamByName('osvojeno4').AsString :='/';
end
else
kveri.ParamByName('osvojeno4').AsString :='yyy';
kveri.ParamByName('ukupnoosvojeno').AsString := inttostr(ukupno);
ShowMessage('broj_igraca: ' + kveri.ParamByName('broj_igraca').AsString + LineEnding +
'imeigraca1: ' + kveri.ParamByName('imeigraca1').AsString + LineEnding +
'imeigraca2: ' + kveri.ParamByName('imeigraca2').AsString + LineEnding +
'imeigraca3: ' + kveri.ParamByName('imeigraca3').AsString + LineEnding +
'imeigraca4: ' + kveri.ParamByName('imeigraca4').AsString + LineEnding +
'osvojeno1: ' + kveri.ParamByName('osvojeno1').AsString + LineEnding +
'osvojeno2: ' + kveri.ParamByName('osvojeno2').AsString + LineEnding +
'osvojeno3: ' + kveri.ParamByName('osvojeno3').AsString + LineEnding +
'osvojeno4: ' + kveri.ParamByName('osvojeno4').AsString + LineEnding +
'ukupnoosvojeno: ' + kveri.ParamByName('ukupnoosvojeno').AsString);
kveri.ExecSQL;
kon.connected := False;
kon.databasename := 'myodbc';
kveri.sql.text := 'select * from pitanja';
kon.connected := True;
kveri.active := True;
end;