Okuduğunuz konu hakkında proje yaptırmak isterseniz benimle buradan iletişime geçebilirsiniz. İletişim
Ana Sayfa
Delphi

DELPHİ 7 KAYIT FORMU

Merhaba; Bu yazımız da kayıt formu oluşturacağız.

Görseldeki gibi bir sayfa oluşturup çalıştıracağız ve soyada göre arama yapabileceğiz.

Araç çubuğundan Label, Edit, Button araçlarından yardım alarak ekranımı hazırlıyorum.

Form1 üzerinde araçları yerleştirip hazırlayalım.

Kod sayfasına gelelim. Form1 ekranı üzerinde kod yerleştireceğimiz araca çift tıklayıp kod sayfasına gidip kodlarımızı ekleyebiliriz.

Ara butonu için kullanacağımız kodlar;

.delphi

procedure TForm1.Button1Click(Sender: TObject);
var
kno:integer;
begin

edit1.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
for kno:=0 to filesize(rdosya)-1 do
begin
seek(rdosya,kno);
read(rdosya,ky);
if

ky.tc=edit5.Text

then
if
ky.soyad=edit2.Text
then
  begin
  rn:=kno;
  edit1.Text:=ky.ad;
  edit3.Text:=ky.adres;
  edit4.Text:=ky.tel;
  edit6.Text:=ky.email;
  end
  else if (eof(rdosya)) and (edit1.text='') then showmessage('kayıt bulunamadı..!');
end;
end;

Kaydet butonu için kullancağımız kodlar;

.delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
ky.ad:=edit1.text;
ky.soyad:=edit2.text;
ky.adres:=edit3.text;
ky.tel:=edit4.text;
ky.tc:=edit5.text;
ky.email:=edit6.text;
if messagedlg('kaydetmek istiyor musunuz?',mtinformation,
[mbyes,mbno],0)=mryes then
begin
seek(rdosya,filesize(rdosya));
write(rdosya,ky);
end;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
end;

Düzelt butonu için kullanacağımız kodlar;

.delphi

procedure TForm1.Button3Click(Sender: TObject);
begin
   ky.ad:=edit1.Text;
   ky.soyad:=edit2.Text;
   ky.adres:=edit3.Text;
   ky.tel:=edit4.Text;
   ky.tc:=edit5.Text;
   ky.email:=edit6.Text;
   seek(rdosya,rn);
   write(rdosya,ky);

end;


Sil butonu için kullanacağmız kodlar;

.delphi

procedure TForm1.Button4Click(Sender: TObject);
var
kno:integer;
begin
assignfile(gdosya,'c:\temp.dat');
rewrite(gdosya);
if edit1.Text<>'' then
begin
for kno:=0 to filesize(rdosya)-1 do
  begin
  seek(rdosya,kno);
  read(rdosya,ky);
  if ky.ad <> edit1.Text then write(gdosya,ky);
  end;
  closefile(rdosya);
     closefile(gdosya);
     deletefile ('c:\radres.dat');
     renamefile('c:\temp.dat', 'c:\radres.dat');
     edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';
     edit4.Text:='';
     edit5.Text:='';
     edit6.Text:='';

end;
end;

Çıkış butonu için kullanacağımız kodlar;

.delphi

procedure TForm1.Button5Click(Sender: TObject);
begin
closefile(rdosya);
form1.Close;

end;

Kafanıza takılan yerler için yorumlar kısmından bana ulaşabilir ve sorularınızı sorabilirsiniz ve iletişim için burdan iletişim sayfasından iletişime geçebilirsiniz.

Yorum Gönder