28-09-2010, 12:37 PM
السلام عليكم و رحمة الله تعالى و بركاته
اخوتي الاعزاء صادفتني هذه المشكلة في حفظ قاعدة البيانات
لم افهم هل المشكل في المسار ام في الكود من الرغم انني عندما اطبقها
في تطبيق صغير تنجح معي و يحفظ لي قاعدة البيانات و عند تطبيقها على برنامجي لا تعمل اي شيئ
هذا الكود الاول
و الكود الثاني
اخوتي الاعزاء صادفتني هذه المشكلة في حفظ قاعدة البيانات
لم افهم هل المشكل في المسار ام في الكود من الرغم انني عندما اطبقها
في تطبيق صغير تنجح معي و يحفظ لي قاعدة البيانات و عند تطبيقها على برنامجي لا تعمل اي شيئ
هذا الكود الاول
كود :
procedure TFLaCloture.SpeedButton2Click(Sender: TObject);
begin
Sleep(1000);
data.OnDestroy(sender);
copyfile(pchar('..\..\Pstock\Stock.ABS'),pchar('..\..\Pstock\Stock')+(Edit1.Text)+ '.ABS');//,False);
data.OnCreate(sender);
sleep(1000);
showMessage('l''Opération de sauvgarde est réussie avec succés' );
FLaCloture.Close;
end;و الكود الثاني
كود :
function CopyFile(Source, Destination: String ) : boolean;
var
fos : TSHFileOpStruct;
begin
FillChar(fos, SizeOf(fos),0);
with fos do
begin
wFunc := FO_COPY;
pFrom := PChar(Source+#0);
pTo := PChar(Destination+#0);
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
end;
result := (0 = ShFileOperation(fos));
end;
procedure TFLaCloture.MaCloture;
begin
Chemin := ExtractFilePath(Application.ExeName);
screen.cursor := crHourGlass;
CopyFile(Chemin + '..\..\Pstock\Stock.ABS',Chemin + '..\..\Pstock\Stock' + Edit1.Text + '.ABS');
Sleep(1000);
Sleep(1000);
ShowMessage('Terminer...');
screen.cursor := crDefault;
close;
end;
procedure TFLaCloture.SpeedButton2Click(Sender: TObject);
begin
Sleep(1000);
data.OnDestroy(sender);
copyfile(pchar('..\..\Pstock\Stock.ABS'),pchar('..\..\Pstock\Stock')+(Edit1.Text)+ '.ABS');//,False);
data.OnCreate(sender);
sleep(1000);
showMessage('l''Opération de sauvgarde est réussie avec succés' );
FLaCloture.Close;
end;
procedure TFLaCloture.SpeedButton3Click(Sender: TObject);
begin
Chemin := ExtractFilePath(Application.ExeName);
if FileExists(Chemin+ '\'+ 'Stock'+ Edit1.Text + '.ABS') then
begin
messagedlg('L''exercice '+ Edit1.Text + ' est déjà clôturer',mtWarning,[mbYes],0);
end
else
if messagedlg('Confirmer la Cloture de l''exercice '+ Edit1.Text +' ? ',mtconfirmation,[mbYes,mbNo],0) = mrYes then
begin
MaCloture;
end;
end;