Pass lagi buka-buka file2 lama…. Jadi inget aplikasi buatanq pada saat magang di LPP
ni aq kasih sedikit source codenyanya….
Bahan:
*1 form
* 1 save dialog
* 1 button
isi source codenya
procedure TForm13.Button1Click(Sender: TObject);
begin
if application.MessageBox('Anda akan memback up database sekarang '+#13+
'Pastikan data telah tersimpan.'+#13+
' ?','Perhatian',
mb_yesno + mb_iconinformation) =IDYES then
begin
Beep;
if savedialog.Execute then
begin
if fileexists(savedialog.FileName) then
begin
if( application.MessageBox('Maaf file dengan nama yang sama telah ada'+#13+
'Apa anda bermaksud mengganti file tersebut? (sebaiknya ganti nama lain!)','Perhatian',
mb_yesno + mb_iconexclamation)=IDYES ) then
begin
copyfile(pchar(extractfilepath(application.ExeName )+ '\data.mdb'),pchar((savedialog.FileName)),false);
if fileexists(savedialog.FileName) then application.MessageBox('Database sudah berhasil dibackup
','Information',
mb_ok + mb_iconinformation);
end;
end
else
begin
copyfile(pchar(extractfilepath(application.ExeName )+ '\data.mdb'),pchar((savedialog.FileName)),false);
if fileexists(savedialog.FileName) then application.MessageBox('Database sudah berhasil dibackup
','Information',
mb_ok + mb_iconinformation);
end;
form13.Close;
// application.MessageBox('Backup database telah berhasil','information',mb_ok + mb_iconinformation);
end;
end;
end;