SORGU DA KIRMIZI RENKLİ ALANDA HATA VERİYOR ÇOK İYİ KOD BİLGİM OLMADIĞI İÇİN ANLAYAMADIM ACİLL YARDIM EDERMİSİNİZ
unit Unit20;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DB, Ora, MemDS, DBAccess, OraSmart,
Mask, DBCtrls;
type
TMUSSORGU = class(TForm)
GroupBox1: TGroupBox;
ADI: TDBText;
SOYADI: TDBText;
UYRUK: TDBText;
OraSession1: TOraSession;
OraTable1: TOraTable;
OraDataSource1: TOraDataSource;
Button1: TButton;
DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MUSSORGU: TMUSSORGU;
implementation
{$R *.dfm}
procedure TMUSSORGU.Button1Click(Sender: TObject);
type
TForm20= class(TForm) Button1: TButton;
GroupBox1: TGroupBox;
ADI: TDBText;
SOYADI: TDBText;
UYRUK: TDBText;
OraSession1: TOraSession;
OraTable1: TOraTable;
OraDataSource1: TOraDataSource;
Button2: TButton;
procedure GroupBox1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form20: TForm20;
implementation
{$R *.dfm}
procedure TMUSSORGU.GroupBox1Click(Sender: TObject);
begin
var
Form2: TForm2;
implementation
uses unit1;
{$R *.dfm}
procedure TMUSSORGU.Button1(Sender: TObject);
begin
ıf ((ad.Value='') and (soyad.Value='') and (uyruk.Value<>'')) then
begin
oratable1.Filtered:=false;
oratable1.Filter:='uyruk='+''''+uyruk.Value+'''';
oratable1.Filtered:=true;
end;
ıf ((ad.Value='') and (soyad.Value=<>'') and (uyruk.Value'')) then
begin
oratable1.Filtered:=false;
oratable1.Filter:='SOYADI='+''''+soyad.Value+'''';
oratable1.Filtered:=true;
end;
ıf ((ad.Value=<>'') and (soyad.Value='') and (uyruk.Value'')) then
begin
oratable1.Filtered:=false;
oratable1.Filter:='ADI='+''''+ad.Value+'''';
oratable1.Filtered:=true;
end;
ıf ((ad.Value='') and (soyad.Value='') and (uyruk.Value'')) then
begin
showmessage('EN AZ BIR KOLON DOLU OLMALIDIR');
end;
ıf ((ad.Value=<>'') and (soyad.Value=<>'') and (uyruk.Value<>'')) then
begin
oratable1.Filtered:=false;
oratable1.Filter:='ADI='+''''+ad.Value+'''' and SOYADI='+''''+soyad.Value+''''+' and UYRUK='+''''+UYRUK.Value+'''';
oratable1.Filtered:=true;
end;
ıf ((ad.Value=<>'') and (soyad.Value=<>'') and (UYRUK.Value'')) then
begin
oratable1.Filtered:=false;
oratable1.Filter:='ADI='+''''+ad.Value+'''' and SOYADI='+''''+soyad.Value+'''';
oratable1.Filtered:=true;
end;
ıf ((ad.Value='') and (soyad.Value=<>'') and (UYRUK.Value<>'')) then
begin
oratable1.Filtered:=false;
oratable1.Filter:='SOYADI='+''''+soyad.Value+'''' and UYRUK='+''''+uyruk.Value+'''';
oratable1.Filtered:=true;
end;
ıf ((ad.Value=<>'') and (soyad.Value='') and (uyruk.Value<>'')) then
begin
oratable1.Filtered:=false;
oratable1.Filter:='ADI='+''''+ad.Value+'''' and UYRUK='+''''+uyruk.Value+'''';
oratable1.Filtered:=true;
end;
end;
end;
end;
end.
