[ASK] mengambil data dari detail_po ke detail_pembelian,pas di input kode po, tekan button 1 yang terinsert dari data detail_po ke detail_pembelian cuma baris pertama ,gmn biar membaca baris ke 2 ,dan seterus na? procedure TForm2.Button1Click(Sender: TObject); begin zquery2.SQL.Clear; zquery2.SQL.Add(select * from test where kd_po=+edit2.Text+); zquery2.Open; if zquery2.FieldByName(kd_po).AsString=edit2.Text then begin zquery1.SQL.Clear; zquery1.SQL.Add(insert into test2 values(+.edit1.Text+,+zquery2.fieldbyname(kd_po).AsString+,+zquery2.fieldbyname(kd_brg).AsString+,+zquery2.fieldbyname(nm_brg).AsString+)); zquery1.ExecSQL; zquery1.SQL.Clear; zquery1.SQL.Add(select * from test2); zquery1.Open; end;
Posted on: Sun, 24 Aug 2014 08:13:03 +0000
Trending Topics
Recently Viewed Topics
© 2015