Poliçe Takip Programı

[akineton]

S.A arkadaşlar poliçe takip programı yapıyorum bu projede hızlı poliçe ekle adında formum var bu rada müşteri kayıtları girliyor adıisoyadıipoliçe türü bitiş tarihi v.s... Birde poliçesi biten müşteriler formum var , ben istiyorum ki burada müşterinin poliçesnin bitimeine son 3 gün kala müşteriler orada bir gbGridde veya başka bir şeyd elistelensin acaba bu konuda bana yardımcı olurmusunuz nasıl yaparım..??*

[mkysoft]

tarihe göre veri tabanından kayıtları SQL yardımıyla tarihe göre filtreleyebilirsiniz

[akineton]

mesela şöyle olacak poliçe tarihinin bitimine son 3 gün kala müşteriler form4 deki dbGridde listelensin bunun gibib mi ??

[mkysoft]

evet bunun gibi. ayrıca program ilk açıldıındada varsa yaklaşan formu gösterebilirsin otomatik.

[akineton]

tşk ederim verdiğiniz cevap için..

[akineton]

yav arkadaşlar bu kodu nasıl yazacam azcık yardım edin insanlık ölmüş valla...

[orhancc]

Kod: Tümünü seç

var
  query :TAdoQuery;
  ds:TDatasource;
begin
  query := tAdoQuery.Create(nil);
  ds := TDataSource.Create(nil);
  try 
   data.connection.Active := true;
   // grid datasource'e bağlanacak ds de query'ye en son çıkarken de ds'i free yapmayı unutma
    ds.DataSet := query;
    DBGrid1.DataSource := ds; //forma bir tane dbgrid koy
    query.connection := data.connection; // data modülde ado connection kullandığını farz ediyorum
    query.sql.text := 'select * from tablom where policetarih <=:Bugun'; // parametere yerine sqlin getdate komutunu da kullanabilirsin
    query.parameters.parambyname('Bugun').value := today - 3;
    query.open;   
  finally
   query.free;// her zaman oluşturduğun nesneyi yok et yoksa hafızan taşar gider bir gün
  end;

end;

[akineton]

orhan hocam öncelikle cevabın için tşk edeirm kodu kendi projeme göre düzenledim fakat bazı hata mesajları verdi çözebildiklerimi çözdüm birde sen bakarsan iyi olur.;

procedure TForm4.FormShow(Sender: TObject);
var
IBQuery :IBQuery1;
ds:TDatasource1;
begin
IBQuery := IBQuery1.Create(nil);
ds := TDataSource.Create(nil);
try
data.connection.Active := true;
// grid datasource'e bağlanacak ds de query'ye en son çıkarken de ds'i free yapmayı unutma
ds.DataSet := IBQuery;
DBGrid1.DataSource := ds; //forma bir tane dbgrid koy
IBQuery.connection := data.connection; // data modülde ado connection kullandığını farz ediyorum
IBQuery.sql.text := 'select * from YENI_POLICE where BITIS_TARIHI <=:Bugun'; // parametere yerine sqlin getdate komutunu da kullanabilirsin
IBQuery.parameters.parambyname('Bugun').value := today - 3;
IBQuery.open;
finally
IBQuery.free;// her zaman oluşturduğun nesneyi yok et yoksa hafızan taşar gider bir gün
end;
end;



[Error] Unit4.pas(74): Constant or type identifier expected
[Error] Unit4.pas(75): Undeclared identifier: 'TDatasource1'
[Error] Unit4.pas(80): Undeclared identifier: 'data'
[Error] Unit4.pas(80): Missing operator or semicolon
[Error] Unit4.pas(82): Missing operator or semicolon
[Error] Unit4.pas(84): Missing operator or semicolon
[Error] Unit4.pas(84): Missing operator or semicolon
[Error] Unit4.pas(85): Missing operator or semicolon
[Error] Unit4.pas(86): Missing operator or semicolon
[Error] Unit4.pas(86): Missing operator or semicolon
[Error] Unit4.pas(86): Missing operator or semicolon
[Error] Unit4.pas(87): Missing operator or semicolon
[Error] Unit4.pas(89): Missing operator or semicolon
[Error] Unit4.pas(94): Declaration expected but end of file found
[Fatal Error] Project2.dpr(17): Could not compile used unit 'Unit4.pas'

[orhancc]

orhan hocam öncelikle cevabın için tşk edeirm kodu kendi projeme göre düzenledim fakat bazı hata mesajları verdi çözebildiklerimi çözdüm birde sen bakarsan iyi olur.;

procedure TForm4.FormShow(Sender: TObject);
var
IBQuery :IBQuery1;
ds:TDatasource1;
begin
IBQuery := IBQuery1.Create(nil);
ds := TDataSource.Create(nil);

BUnların sonuna 1 eklemeyeceksin obje adı neyse onu kullanacaksın. Data diye bir formun yok o yüzden hata veriyor ben onu örnek olarak yazmıştım onu kendine göre düzenle.