Procedure Restoret1(Tableadi,Dosyadi:string);
var
i:longint;
fields:widestring;
aa1,ii:integer;
aa:tfieldtype;
alanturu,alanadi,header1:string;
yuzde,yuzde1:real;
str1:string[2];
sqlword:widestring;
uz:integer;
gecici:widestring;

begin

if islemvar=false then
Begin
deletefile(dosyadi);
exit;
end;

probackup1.progressbar1.stepby(1);
probackup1.progressbar1.stepit;
probackup1.progressbar1.position:=ctstat;
yuzde:=(ctstat/tablesayisi)*100;
yuzde1:=round(yuzde);
probackup1.label6.Caption:='% '+floattostr(yuzde1);
probackup1.statusbar1.panels[0].text:=tableadi;
application.ProcessMessages;

// Table i dosya dan okuyoruz ...

probackup1.adoquery1.SQL.Clear;
probackup1.adoquery1.LoadfromFile(dosyadi);
probackup1.adoquery1.Open;

probackup1.adoquery1.First;
for i:=0 to probackup1.adoquery1.RecordCount-1 do begin

probackup1.adoquery2.SQL.Clear;
probackup1.adoquery2.SQL.Add('select * from '+tableadi+' where LOGICALREF = '+probackup1.adoquery1.FieldByName('LOGICALREF').asstring);
probackup1.adoquery2.open;

if probackup1.adoquery2.RecordCount=0 then begin
probackup1.adoquery2.Append;
probackup1.adoquery2.edit;end else probackup1.adoquery2.edit;


for ii:=0 to probackup1.adoquery1.fieldcount-1 do begin

alanadi:=probackup1.adoquery1.Fields.Fields[ii].FullName;

aa:=probackup1.adoquery1.FieldByName(alanadi).DataType;
if aa=ftString then begin
gecici:=probackup1.adoquery1.FieldByName(alanadi).asstring;
for uz:=1 to length(gecici) do if gecici[uz]=#39 then gecici[uz]:=#34;
sqlword:=sqlword+alanadi+'= '+#39+gecici+#39+', ';

end else
begin
probackup1.adoquery2.FieldByName(alanadi).AsString:=probackup1.adoquery1.FieldByName(alanadi).asstring

end;
end;

probackup1.adoquery2.Post;

if sqlword <>'' then begin

uz:=length(sqlword);
if sqlword[uz-1]=',' then delete(sqlword,uz-1,1);
sqlword:='update '+tableadi+' set ' +
sqlword+' where LOGICALREF = '+probackup1.adoquery1.FieldByName('LOGICALREF').asstring;
probackup1.adoquery3.SQL.Clear;
probackup1.adoquery3.SQL.add(sqlword);
probackup1.adoquery3.ExecSQL;
probackup1.adoquery3.SQL.Clear;sqlword:='';
end;

probackup1.adoquery1.Next;
probackup1.adoquery2.Next;

end;

// dosyanin isi bitti sil

deletefile(dosyadi);

end;

CREATE PROCEDURE BIRIMLER_IU (
ID SMALLINT,
BIRIMADI VARCHAR(5))
AS
BEGIN
IF (EXISTS(SELECT ID FROM BIRIMLER WHERE (ID = :ID))) THEN
UPDATE BIRIMLER
SET BIRIMADI = :BIRIMADI
WHERE (ID = :ID);
ELSE
INSERT INTO BIRIMLER (
ID,
BIRIMADI)
VALUES (
:ID,
:BIRIMADI);
END