Contoh Tabel (Delphi)

looping untuk mengisi tiap-tiap tabel

Jumat, 10 Juli 09 – oleh : vidi

mas,,saya punya masalah nih,,

ada 3 tabel,,

tabel 1 pake zquery1

tabel 2 pake zquery2

tabel 3 pake ztable1

tabel 1 itu spesifikasi barang,,nah,,tabel 2 itu data barang,,kalau tabel 2 isinya sama dengan tabel 1(dilihat per-record) maka isi di tabel 3 angka 1,,kalau tidak sama maka angka 0,,

saya coba script ini(sederhana banget)

procedure TForm1.Button1Click(Sender: TObject);
var
x,i:integer;
begin
ztable1.Open;
ztable1.edit;
for x:=1 to zquery1.RecordCount do
begin

zquery1.RecNo:=x;
zquery2.RecNo:=x;
ztable1.RecNo:=x;

if zquery1teknis1.Value=zquery2teknis1.Value then
ztable1nilai1.Value:=1
else
ztable1nilai1.Value:=0;
if zquery1.FieldValues[‘teknis2’]=zquery2.FieldValues[‘teknis2’] then
ztable1nilai2.Value:=1
else
ztable1nilai2.Value:=0;
if zquery1.FieldValues[‘teknis3’]=zquery2.FieldValues[‘teknis3’] then
ztable1nilai3.Value:=1
else
ztable1nilai3.Value:=0;
end;

end;

tapi hasilnya malah data terakhir saja,,dan tabel 3 tidak berpindah,,jelasnya ada di gambar,,mohon di cek loopingnya,,terima kasih

Jawab:

procedure TForm1.Button1Click(Sender: TObject);
var
x,i:integer;
begin
ztable1.Open;
//ztable1.edit;
zquery1.first;
zquery2.first;
for x:=1 to zquery1.RecordCount do
begin

zquery1.RecNo:=x;
zquery2.RecNo:=x;
//ztable1.RecNo:=x;
ztable1.append;
if zquery1teknis1.Value=zquery2teknis1.Value then
ztable1nilai1.Value:=1
else
ztable1nilai1.Value:=0;
if zquery1.FieldValues[‘teknis2’]=zquery2.FieldValues[‘teknis2’] then
ztable1nilai2.Value:=1
else
ztable1nilai2.Value:=0;
if zquery1.FieldValues[‘teknis3’]=zquery2.FieldValues[‘teknis3’] then
ztable1nilai3.Value:=1
else
ztable1nilai3.Value:=0;
end;

end;