Tags

Note: Artikel berikut adalah pindahan dari artikel di site lama dan merupakan kiriman teman (sujono05@***.com) di postingkan pada 27 Mar 2007. kenapa dipindahkan karena site lama bakalan ndak support blogging lagi. Sayang ilmu yang dibagi kalo sampai hilang. semoga bermanfaat


He… sebenarnya ini terinspirasi pada metode pencarian pada komponen Info Power,cuman karena ingin
tidak bergantung pada tools tersebut jadi buat sendiri dech mungkin kurang lengkap tapi lumayan buat
cari data. Thank`s to Tio yg uda ubek2 tanda petik he….

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  //untuk menampilkan data yg ada di database ke combobox
  with adoquery1 do
   begin
    Close;
    SQL.Text:='Select * from Pelanggan';
    Open;

    for i := 0 to FieldCount -1 do
     combobox1.Items.Add(dbgrid1.Fields[i].DisplayName);
    combobox1.ItemIndex := 0;
   end;   
end;


procedure TForm1.Edit2Change(Sender: TObject);
begin
  with adoquery1 do
   begin
  //utk mencari data pada editbox
    Close;
    SQL.Clear;
    SQL.Text:=format('select * from nama_tabel where %s like ''%s'' ',[combobox1.Text,edit1.text+'%']);

 /*
sintaks sql = select * from nama_tabel where nama_kolom like nama_record 
   pada query di atas = select * from nama_tabel where %s like ''%s'' ',[combobox1.Text,edit1.text+'%']
   %s yg pertama merepresentasikan nama_kolom dan %s yg kedua nama_record
*/
    Open;
   end;
end;

end.