1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
procedure TForm1.SAISIEClick(Sender: TObject);
var
i,j:pchar;
rep,s:shortstring;
i1,j1:string;
k:longbool;
begin
s:=ExtractFilePath(fdm.IBDOS.DatabaseName)+'S'+fdm.DOS.FieldValues['num']+exe.Text+'.gdb';
IF (not FDM.IBSAISIE.Connected)or(FDM.IBSAISIE.DatabaseName<>s) then
begin
if not fileexists(s) then
begin
// rep:=copy(application.ExeName,1,length(application.ExeName)-10);
// ForceDirectories(copy(application.ExeName,1,length(application.ExeName)-10)+'tmp');
rep:=ExtractFilePath(fdm.IBDOS.DatabaseName);
ForceDirectories(rep+'tmp');
i1:=rep+'saisie.gdb';
j1:=rep+'tmp\saisie.gdb';
i:=PChar(i1);j:=pchar(j1);
copyfile(i,j,true);
renamefile(j1,rep+'tmp\S'+fdm.DOS.FieldValues['num']+exe.Text+'.gdb');
i1:=rep+'tmp\S'+fdm.DOS.FieldValues['num']+exe.Text+'.gdb';
j1:=rep+'S'+fdm.DOS.FieldValues['num']+exe.Text+'.gdb';
i:=PChar(i1);j:=pchar(j1);
copyfile(i,j,k);
deletefile(rep+'tmp\S'+fdm.DOS.FieldValues['num']+exe.Text+'.gdb');
removedir(rep+'tmp');
end;
WITH fdm do
begin
IBSAISIE.connected:=false;
SAISIE.Filtered:=false;
IBSAISIE.databasename:=s;
IBSAISIE.connected:=true;
SAISIE.Open;
end;
end;
end; |
Partager