Kendine Özel Foınksiyon Yazma -yardım

[mahir]

benim sık kullandığım kodlarım var. her defasında yeniden yazmak yerine, fonksiyon yazayım her defasında bu fonksiyonu kullanayım dedim. ama bir türlü istediğim gibi olmadı. kodları veriyorum

Kod: Tümünü seç

  DataModule1.KayitGetidSQL.SQL.Text:='SELECT Cinsiyetid FROM OgrenciKayit WHERE OgrenciNo=''+OgrDeger+'' ';
  DataModule1.KayitGetidSQL.Open;

  DataModule1.CinsiyetGetidSQL.SQL.Text:=
  'SELECT isim FROM Cinsiyet  WHERE id ='+DataModule1.KayitGetidSQL.FieldByName('Cinsiyetid').AsString;
  DataModule1.CinsiyetGetidSQL.Open  ;
  Form1.CinsiyetCmb.Text:=DataModule1.CinsiyetGetidSQL.FieldByName('isim').AsString;

yukarıdaki kodda değişken kısımlar kolon adı yani cinsiyetid, tablo adı(sql sorgusundaki) ,ogrencino
ve ikimci sql sorgusundaki kısımlar sizce nasıl yapmalıyım

[aslangeri]

s.a.
değişen alanları parameter ile gönder.
kolay gelsin.