code : pascal
aq pnya kasus dengan adoquery
 
skenarionya bgini
ada tabel pelanggan  mempunyai 4 colum
 
1. colum nomor
2. colum kode
3. colum nama
4. colum jmlah
 
aq memakai koneksi ado, ado tabel ,ado query dbgrid , 4 radiobuton dan satu edit
masing masing mewakili colum di atas
 
gimana ya mencari data ketika salah satu radio button diatas di checked dan data nya di input 
melalui edit kemudian otamatis mencari dengan query dan di tampilakn di dbgrid
 
mohon pencerahan nya
Parsed in 0.003 seconds, using GeSHi

code : pascal
begin
  if radiobutton1.checked=true then ...//pencarian berdasarkan radiobutton1
  else
  if radiobutton2.checked=true then...//pencarian berdasarkan radiobutton2.
  else.....
....
....
 
end;
Parsed in 0.003 seconds, using GeSHi

code : pascal
radiobutton1.checked=true
Parsed in 0.001 seconds, using GeSHi

code : pascal
var
  Form1: TForm1;
  editset : array[1..4] of TEdit;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var keyfield : string;
    x : integer;
begin
  x := TButton(sender).HelpContext;
  keyfield := tb1.Fields[x].FieldName;
  tb1.Locate(keyfield,editset[x].Text,[]);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  editset[1] := edit1;
  editset[2] := edit2;
  editset[3] := edit3;
  editset[4] := edit4;
end;
 
end.
Parsed in 0.003 seconds, using GeSHi

code : pascal
var //global
ada : integer ;
 
//prosedur pencarian jika tombol di klik
begin
  ada := 0;
 
 if ada=0 then table1.first
 else table1.next;
 
 while not table1.eof do
   begin
       if radiobutton1.checked=true then //pencarian berdasarkan kolom nomor
          ada:=pos(uppercase(edit1.text),uppercase(table1.fieldbyname('nomor').asstring))
      else if radiobutton2.checked=true then //pencarian berdasarkan kolom kode
          ada:=pos(uppercase(edit1.text),uppercase(table1.fieldbyname('kode').asstring))
      else if radiobuttin3.checked=true then //pencarian berdasarkan kolom nama
          ada:=pos(uppercase (edit1.text),uppercase(table1.fieldbyname('nama').asstring))
      else if radiobutton4.checked=true then //pencarian berdasarkan kolom jmlah
          ada:=pos(uppercase(edit1.text),uppercase(table1.fieldbyname('jmlah').asstring));
 
       if ada>0 then
         begin
            t_sementara.fieldvalues['nomor']:=table1.fieldbyname('nomor').asstring;
            t_sementara.fieldvalues['kode']:=table1.fieldbyname('kode').asstring;
            t_sementara.fieldvalues['nama']:=table1.fieldbyname('nama').asstring;
            t_sementara.fieldvalues['jmlah']:=table1.fieldbyname('jmlah').asstring;\
         end;
 
        table1.next;
   end; 
 
end;
Parsed in 0.009 seconds, using GeSHi

code : pascal
procedure TForm1.Button1Click(Sender: TObject);
begin
If Radiobutton1.Checked = true then
   begin
   With AdoCommand1 do
      begin
      CommandText := 'Select * from Pelanggan where nomor = "'   Edit1.text   '"';
      end;
   end;
If Radiobutton2.Checked = true then
   begin
   With AdoCommand1 do
      begin
      CommandText := 'Select * from Pelanggan where kode = "'   Edit1.text   '"';
      end;
   end;
If Radiobutton3.Checked = true then
   begin
   With AdoCommand1 do
      begin
      CommandText := 'Select * from Pelanggan where nama = "'   Edit1.text   '"';
      end;
   end;
If Radiobutton4.Checked = true then
   begin
   With AdoCommand1 do
      begin
      CommandText := 'Select * from Pelanggan where jumlah = "'   Edit1.text   '"';
      end;
   end;
// di isikan eksekusi query...
// untuk kondisi pencarian bisa pake operand = (sama dengan) ato like juga bisa...
// di kasi dataset untuk me link ke dbgrid.
end;
Parsed in 0.006 seconds, using GeSHi