Delphi Forum

query2.close;
query2.sql.clear;
Query2.Sql.Add('Select distinct * From aidat Where ay like "'+uppercase(c)+'%" and yil like "'+(n)+'" order by sicil_no');
query2.ExecSQL;
query2.open;
Merhaba
kodalrıyla girilen yılda istenilen aylarda ödeme yapanları buluyorum ama benim istediğim ödemeyenleri ...

sayın rsimsek öncelikle merhaba diyorum ve ilginiz ve uyarınız için teşşekkür ediyorum.Söylediklerinizi uyguladım.Ama hala kodlarım doğru çalışmıyor.Mükerrer kayıt problemim ve yeni girilen kayıtta bu kayıt daha önce girilmiş mesajım hala çalışmakta ...

[code]procedure TForm3.Button1Click(Sender: TObject);
var
u:integer;
b:integer;
begin
if (dbedit1.text='') or (dbedit2.text='') then
u:=application.messagebox('Bir Veri Girmelisiniz!','Dikkat!',mb_ok+mb_iconquestion+mb_defbutton1);
begin
if table1.locate('sicil_no',dbedit1.text,[]) then
b ...

Hatası neden kaynaklanmış olabilir?
nasıl çözerim?

procedure TForm3.Table1BeforePost(DataSet: TDataSet);
begin
if table1ayri_tr='!99/99/99;1;_' then
table1ayri_tr.asdatetime:=null;
end;
kodum bu :Yapmak istediğim ise kayıt etmek istediğmde üyeiptal tarihi
boş olduğunda programın geçersiz tarih hatası vermemesi.(maskedit kullanıyorum)
bu kodda ...

Merhabalar
Benim sorunum formumdaki maskeditten kaynaklanıyor.üye kayıt ve üye iptal tarihi olmak üzere iki maskeditim var üye iptal tarihi boş olduğunda maskedit geçersiz tarih hatası veriyor.Benim aklımada kayıttlı default bi tarih verip örneğin 11.11.11 gibi kayıt etmekten başka bişey gelmiyor ...

bu dönüşümleri yaparken kolay bir yol var mı hesaplatmalrda problem yaşıyorum ve genelde dönüşümden kaynaklanan hatalar alıyorum...
döngüler için teşekkürler

delphide döngülerin nasıl kullanıldığına dair bilgiye ihtiyacım var