Yeni Şirket Oluşturma

[ozcank]

Arkadaşlar DATA2004 dizinim var ve içerisinde Db , Px dosyaları var bunları yeni şirket oluşturup DATA2006 sıfırlayarak nasıl kopyalayabilirim?
Button1 e basılınca DATA2006 dizini oluşturacak ve DATA2004 içerisindeki bilgileri sıfırlayarak DATA2006 aktaracak.

[mussimsek]

Bence bir klasörde boş tablolar olsun, mesela data isimli klasörde. Gerektiğinde bunu Data2005, Data2006 gibi kopyalarsın. Bir kere manuel hazırlayıp koyman yeterli olacaktır.

Bu arada ne paradox'u ne .DB'si, PX'i. Boş ver bunları Firebird'e geç ve YIL/DÖNEM gibi bir alan daha ekleyerek tüm kayıtları tek tabloda tut

Kolay gelsin.

[ozcank]

Nasıl bir kod döngüsüyle kopyalayabilirim.Şunları yapamadım?

Edit1 alanına açmak istediğim dizin ismini nasıl yazdırıp oluştururum?

DATA2006 yazıp Button1 e bastığım zaman C:\SIS2003\DATA2006 oluşturacak
ve DATA2004 içerisindeki dosyaları DATA2006 kopyalayacak kopyalarken sıfırlama işlemini yapmalıyım nasıl yapabilirim?
yardım ederseniz çok sevinirim.

[ylmz]

merhaba,

neden @mussimsek in dediği yöntemi denemiyorsunuz.manuel olarak bir defalığına boş bir veritabanı oluşturun.sonra bu dosyaları kullanıcı istediğinde bir dizin yaratıp oaraya kopyalayabilirsiniz.

kolay gelsin.

[ozcank]

dizin oluşturma ve copyalama işlemlerini bilmiyorum onun için yardım istiyorum.

[rsimsek]

MkDir, CreateDir, ChDir, GetDir, FileExists, DirectoryExists, CopyFile, DeleteFile, vs bakabilirsin
Ayrıca; viewtopic.php?t=6633

[mussimsek]

http://www.delphiturkiye.com/index.php? ... ri_kopyala

Arayın bulacaksınız, elinizi korkak alıştırmayın

[m_ekici]

Kod: Tümünü seç

procedure TForm14.SpeedButton1Click(Sender: TObject);
begin
  IF MessageDlg('Dikkat:'+chr(13)+YYIL.Text+' yılına ait bilgiler '+EYIL.text+' yılına aktarılacaktır.'+chr(13)+EYIL.text+' yılındaki kayıtlı bilgiler silinecektir..'+chr(13)+'Eminmisiniz...???',mtConfirmation,[mbYes,mbNo],0)<>mrYes then exit; 
  IF MessageDlg('( '+ EYIL.text+' ) yılındaki kayıtlı bilgiler silinecektir..'+chr(13)+'Eminmisiniz...???',mtConfirmation,[mbYes,mbNo],0)<>mrYes then exit;
  KOPYALA(Form1.CALISMAYERI+'\'+YYIL.TEXT+'\', Form1.CALISMAYERI+'\'+EYIL.TEXT+'\');
  Close;
end;

procedure Tform14.KOPYALA(src, dest: string);
var
  sts: Integer;
  SR: TSearchRec;
begin
  sts := FindFirst(src + '*.*', faAnyFile, SR);
  while sts = 0 do
     begin
     if (SR.Name <> '.') and (SR.Name <> '..') then
        CopyFile(PChar(src + SR.Name), PChar(dest + sr.Name), True);
     sts := FindNext(SR);
  end; 
  FindClose(SR); 
end;