Filtreleme !!

[ozcank]

Arkadaşlar bu koda STOPYAPKD yide ekleyip raporlamak istiyorum nasıl yapabilirim?

Kod: Tümünü seç

procedure TForm18.Button3Click(Sender: TObject);
begin
Table1.Filtered:=False;
Table1.FilterOptions:=[FoCaseInsensitive];
Table1.Filter:='[SISILCEKD]='+Edit1.Text;
Table1.Filtered:=True;
end;

[ozcank]

procedure TForm18.Button3Click(Sender: TObject);
begin
Table1.Filtered:=False;
Table1.FilterOptions:=[FoCaseInsensitive];
Table1.Filter:='[SISILCEKD]='+Edit1.Text and Filter:='[STOPYAPKD]='+Edit2.Text;
Table1.Filtered:=True;
end;

bu şekilde olmadı.

[fduman]

Kod: Tümünü seç

Table1.Filter:='[SISILCEKD]='+Edit1.Text + ' and [STOPYAPKD]='+Edit2.Text; 

Olmalı.

[ozcank]

Arkadaşlar bu üç tane raporu tek rapor başlığı altında toplayabilirmiyim?
Edit1 e girdiğim koda ait Edit2 ve Edit1,Edit2 ye ait Edit3 bunu nasıl yapabilirim alanlardan herhangi biride boş olabilir.

Kod: Tümünü seç

procedure TForm18.Button5Click(Sender: TObject);
begin
Table1.Filtered:=False;
Table1.FilterOptions:=[FoCaseInsensitive];
Table1.Filter:='[SISILCEKD]='+Edit1.Text;
Table1.Filtered:=True;
end;

Kod: Tümünü seç

procedure TForm18.Button3Click(Sender: TObject);
begin
Table1.Filtered:=False;
Table1.FilterOptions:=[FoCaseInsensitive];
Table1.Filter:='[STOPYAPKD]='+Edit2.Text;
Table1.Filtered:=True;
end;

Kod: Tümünü seç

procedure TForm18.Button4Click(Sender: TObject);
begin
Table1.Filtered:=False;
Table1.FilterOptions:=[FoCaseInsensitive];
Table1.Filter:='[SISGRUPKD]='+#39+Edit3.Text+'*'+#39;
Table1.Filtered:=True;
end;

böyle birtanesi ni yaptım ama olmadı

Kod: Tümünü seç

Table1.Filtered:=False;
Table1.FilterOptions:=[FoCaseInsensitive];
Table1.Filter:='[SISILCEKD]='+Edit1.Text + ' or [STOPYAPKD]='+Edit2.Text +' or [SISGRUPKD]='+#39+Edit3.Text+'*'+#39;
Table1.Filtered:=True;

[huseyinert]

sql varken Filtere kullanmak bence doğru değil basit bir select sorgusuyla bunu yapabilirisiniz select olarak arama yaparsanız birçok kaynak çıkar

kolayy gelsin

[ozcank]

yardımcı olabilirmisiniz? Nasıl b,r SQL kod yazabilirim?

[huseyinert]

query.close;
query.UnPrepare;
query.sql.clear;
query.sql.add('select *from tablo where SISILCEKD='+#39+edit1.text+#39+' or STOPYAPKD='+#39+edit2.text+#39+'');
query.prepare;
query.open;


bu şekilde yazabilirsiniz tablo yazan kısma vt. daki tablonuzun adını yazın bide alanlarınızı string olarak kabul ettim...bi tane query bi tane de datasource koyun ve gridi datasource bağlayıp bu kodu çalıştırabilirisniz...

[ozcank]

Bu şekilde kullanabilirmiyim?

Kod: Tümünü seç

query.close; 
query.UnPrepare; 
query.sql.clear; 
query.sql.add('select *from SISTEMFOR where SISILCEKD='+edit1.text or STOPYAPKD='+edit2.text or SISGRUPKD='+#39+edit1.text+#39+' ''); 
query.prepare; 
query.open; 

Kod: Tümünü seç

query.close; 
query.UnPrepare; 
query.sql.clear; 
query.sql.add('select *from SISTEMFOR where SISILCEKD='+edit1.text AND STOPYAPKD='+edit2.text AND SISGRUPKD='+#39+edit1.text+#39+' ''); 
query.prepare; 
query.open; 

[ozcank]

Arkadaşlar bu şekilde yaptım ama hata veriyor bi bakarmısınız?

Kod: Tümünü seç

query.close; 
query.UnPrepare; 
query.sql.clear; 
query1.sql.add('select * from SISTEMFOR where SISILCEKD='+edit1.text AND STOPYAPKD='+edit2.text AND SISGRUPKD='+#39+edit3.text+#39+' '');
query.prepare; 
query.open;

[fduman]

Ne hatası verdiğini net olarak yazmalısın.

[ozcank]

[Error] ADRESTAK.pas(82): Undeclared identifier: 'STOPYAPKD' burda hata veriyor

[fduman]

edit1.text ten sonra ' ve + yı unutmuşsun.

[ozcank]

satırı bu şekilde değitirdim ama

[Error] ADRESTAK.pas(82): Missing operator or semicolon bu hatayı vermeye başladı.

Kod: Tümünü seç

query1.sql.add('select * from SISTEMFOR where SISILCEKD='+edit1.text'+ AND STOPYAPKD='+edit2.text'+ AND SISGRUPKD='+#39+edit3.text+#39+' '');

[aslangeri]

s.a.
bir önceki satırın sonuna ; koymayı unutmuş olabilirmisin.
kolay gelsin.

[heskin35]

Tam emin değilim ama 2 nci satır sonunda ki ' işaretlerinden birininde fazla olması olabilir.