procedure lii(ss:string);
begin
form1.zqall.Active:=false;
form1.zqall.SQL.Clear;
form1.zqall.SQL.Add(ss);
form1.zqall.ExecSQL();
form1.zqall.Active:=true;
end;

procedure TForm13.Button7Click(Sender: TObject);
var i : integer;
begin
if messagedlg('Surat Ini Akan di simpan sementara?',
    mtConfirmation, [mbYes, mbNo], 0)=mryes then
begin
 with form1 do
  begin
zngub.Open;
zngub.Append;
zngubhari.Value:=edit18.Text;
zngubtanggal.Value:=edit19.Text;
zngubwaktu.Value:=edit20.Text;
zngubtempat.Value:=edit21.Text;
zngubalamat.Value:=edit22.Text;
zngub.Post;
end;
for i := 1 to jvb.RowCount do
begin
lii('insert into ntr(f1,f2,no) select '+#39+jvb.Cells[0,i]+#39
+','+#39+jvb.Cells[1,i]+#39+', nilai from urutan');
end;
    end;
end;