seleksi dan pencarian berdasarkan 4 tabel yang terhubung

1.form

listing nya sebagai berikut:
 private
  procedure FindData;
  procedure FindData1;
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
datamodule2.adodataset1.filtered:=false;
if (edit1.text <> '') then
begin
  datamodule2.adodataset1.Filter:='no_bon='''+edit1.Text+'''';
  datamodule2.adodataset1.filtered:=true;
end;
if (edit2.text <> '') then
begin
  datamodule2.adodataset1.Filter:='nama='''+edit2.Text+'''';
  datamodule2.adodataset1.filtered:=true;
end ;
if (edit3.text <> '') then
begin
  datamodule2.adodataset1.Filter:='nama_brg='''+edit3.Text+'''';
  datamodule2.adodataset1.filtered:=true;
end
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
datamodule2.adodataset1.filtered:=false;
if combobox1.itemindex<>0 then
begin
  datamodule2.adodataset1.Filter:='grup_brg='''+combobox1.Text+'''';
  datamodule2.adodataset1.filtered:=true;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
FORM3.QuickRep1.PREVIEW;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
end;
procedure TFORM1.FindData;
var
i:integer;
begin
try DATAMODULE2.ADODATASET1.Close; except end;
DATAMODULE2.ADODATASET1.CommandText:='select * from t_belidetail017 where NO_BON ='''+(edit1.Text)+'';
DATAMODULE2.ADODATASET1.Open;
end;
procedure TFORM1.FindData1;
var
i: integer;
begin
try DATAMODULE2.ADODATASET1.Close; except end;
DATAMODULE2.ADODATASET1.CommandText:='select * from t_belidetail017 where no_bon ='''+(edit1.Text)+'';
DATAMODULE2.ADOQuery1.Open;
end;
procedure TForm1.GroupBox2Click(Sender: TObject);
begin
end;
end.
2.datamodule

datamodule ,ADODataSet1,commandtext editor listing nya sebagi berikit:
select  c.no_bon, c.tgl_bon,a.nama_brg,a.grup_brg, b.qty, a.h_jual,d.nama from tb_barang017 as a inner join tb_belidetail017 as b on a.id_brg=b.id_baranginner join tb_belimaster017 as c on b.no_bon=c.no_boninner join tb_supplier017 as d on d.id_suplier=d.id_suplier


3.datamodule

datamodule ,ADOQuery1,SQL listing nya sebagi berikit:
select  c.no_bon, c.tgl_bon,a.nama_brg,a.grup_brg, b.qty, a.h_jual,d.nama from tb_barang017 as a inner join tb_belidetail017 as b on a.id_brg=b.id_baranginner join tb_belimaster017 as c on b.no_bon=c.no_boninner join tb_supplier017 as d on d.id_suplier=d.id_suplier

hasil dari seleksi akan tampil di laporan:

4.laporan

unduh program ny disini: http://www.4shared.com/rar/vsDkub26/yusninst.html?