adodataset

[bilgetemiz]

slm delphiye yeni başladım ve basit bir program yapyorum bir yere takıldım.okul porramı kişi bulmada sorun yaşıyorum dbgridde kişi kayıtları görünüyor bunu editta aratıp form1'de kişi bilgilerine hepsine yansıtmasını istiyorum.
birinci form
procedure TForm1.yenikayitClick(Sender: TObject);
begin
ADODataSet1.Append;
end;

procedure TForm1.kaydetClick(Sender: TObject);
begin
ADODataSet1.Post;
end;

procedure TForm1.silClick(Sender: TObject);
begin
ADODataSet1.Delete;
end;

procedure TForm1.ogrencilistesiClick(Sender: TObject);
begin
form2.show;
end;

end.
ikinci form
procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
form1.show;
form1.ADODataSet1.close;
form1.ADODataSet1.Filter:= format('(kimliknumarasi LIKE %s)', [ADODataSet1.fieldbyname('kimliknumarasi').AsString]); //kişi bilgilerindeki kaydı çift tıklama ile form1'e aktarır
form1.ADODataSet1.filtered:=true;
form1.ADODataSet1.Open;

end;



procedure TForm2.Edit2Change(Sender: TObject);
begin

adodataset1.Filter := format('Adi=%s*', [Edit2.Text]);
adodataset1.Filtered := Edit2.Text<>'';

end;



end.

[MicroChip]

Hımmm önce forumda bir dolaşmanı tavsiye ederim. Bayağı fikir edineceğine eminim


Saygılar...

[NewMember]

Bu türişlemleri filter yerine SQLile yapmanı tavsiye ederim.
Şu kodu bir incele ve kendine göre uyarlaistersen.

Kod: Tümünü seç

 screen.Cursor := crsqlwait;
      datmodul.hastasorgu.SQL.Clear;
      datmodul.hastasorgu.SQL.Add('Select * From Hastatb Where Meslegi like "' +
        arama.Text + '%"');
      datmodul.hastasorgu.Open;
      screen.Cursor := crdefault;

//arama adlı edit içerisinde kullanıcının yazacağı harf yada kelimeile 
// başlayan kayıtları döndürür.

Kolay gelsin.