DELPHİ İLE ALAKALI BİR SORU

quote:

Orjinalden alıntı: hayrettinsahin

var
birbes:integer;

if (yas=>1) and (yas=<5) then birbes=birbes+1; //yas 1 e esşit veya büyükse ve 5e eşit ve küçükse birbes isimli integer değişkeknini bir artır. bunu gibi pek çok amntık kurabilirsin. ama bu bayağı analaşılır.

Ama yaşlarımız tarih formatında örneğin(01.01.1980) gibi.Nasıl if (yas=>1) and (yas=<5) yapabiliriz ki?Yani yaş ı integer olarak tanıtamayız .date formatında çünkü.

quote:

Orjinalden alıntı: hayrettinsahin

Şu hataya bir bakar mısınız?(Resimdeki)Ben adotable nesnesini kullandım.Ayrıca adotable nesnesiyle bağlantıyı kurduğum tablodan ilk veri yi(mesela 01.02.1980) nasıl basla değişkenine aktarılıyor.Burayı çözemedim. Verdiğim rahatsızlıktan dolayı özür dilerim.

quote:


var
sayac:integer;
begin
try
table1.first;
sayac:=0;

while not table1.eof
begin
... // burada her kayıt için çıkarma işlemi yapacaksın.. arada ki farkı almak için yukarıda yazdığım için tekrarlamayacağım...
if (strtoint(formatdatetime('yy',sonuc)) > 1) and (strtoint(formatdatetime('yy',sonuc)) < 5) then
begin
sayac := sayac + 1; belirttiğimiz aralıktaysa 1 arttırdık...
end;
table1.next; //sonraki kayıta geçtik..
end;

showmessage ('1 ile 5 yaş aralığındaki kayıt sayısı '+ inttostr(sayac)+ 'tır...');
...

quote:

Orjinalden alıntı: hayrettinsahin

Ben bu işlemi projede kullanacam.Bu işlem için Query sorgulamasını yani SQL i kullanacağım.

Mesela SELECT COUNT(*) FROM BILGILER WHERE W(APPSTARTDATE - DOGUM_TARIHI >1) AND W(APPSTART - DOGUM_TARIHI <5)gibi.

Ama burada W=?(Tarihi yıl cinsinden verecek komut.)Ayrıca bu işlem şayet çalışırsa sadece 1 -5 yaş arası birey sayısını verir.Fakat bana diğer yaş gruplarının sayısı da lazım.Aynı form da birden fazla Query nesnesi kullanılır mı(Quick rapor da ) kullanılırsa nasıl kullanılır?.

quote:


Aspci79, bana while döngüsündeki begin kısmını da yazar mısın?Örnek olarak yani

quote:

Şu an müsait deilim ama akşam size örnek bir uygulama hazırlarım. SQL temelli..

quote:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, DBTables, DB, ExtCtrls, DBCtrls, Grids,
DBGrids;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Query1: TQuery;
Table1: TTable;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
UpDown1: TUpDown;
UpDown2: TUpDown;
Edit3: TEdit;
Query1ID: TFloatField;
Query1AD: TStringField;
Query1DOGUMTARIH: TDateField;
Table1ID: TFloatField;
Table1AD: TStringField;
Table1DOGUMTARIH: TDateField;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Function Farkal(Dogumtarihi:Tdatetime):String;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
Sonuc:String;
begin
edit3.Text := '';
edit3.Text := farkal(Table1DOGUMTARIH.Value);
//yaş farkı döndü....şimdi arayı filtreliyeceğiz...

if (inttostr(edit3.Text) < 5) and (inttostr(edit4.Text) > 1) then //-> 1 ile 5 arası yaşlar...
begin
// 1 İLE 5 yaş ARASI RAPOR
end;

if (inttostr(edit3.Text) < 15) and (inttostr(edit4.Text) > 5) then // -> 5 - 15 arası
Begin
//...
end;

if (inttostr(edit3.Text) < 30) and (inttostr(edit4.Text) > 15) then // -> 15-30 arası
Begin
//...
end;

if (inttostr(edit3.Text) > 30) then // -> 30 dan büyükler...
Begin
//...
end;

end;

function TForm1.Farkal(Dogumtarihi:Tdatetime): String;
var
sonuc:Tdatetime;
begin
sonuc := date - Dogumtarihi;
Farkal := Formatdatetime ('yy',sonuc);
end;

end.

quote:

Farkal functionuyla kişinin yaşını hesaplatıp veri tabanına yazarsanız büyük kolaylık olur sizin için ...

Select * from TABLO where YAS < 5 and YAS > 1 ... gibi