procedure lie(ss:strings);
begin
form1.Zqall.SQL.Clear;
form1.Zqall.SQL.Add(ss);
form1.ZQall.ExecSQL;
end;
procedure TForm3.ACCSURAT1Click(Sender: TObject);
var va:string;
begin
      va:='insert into suratacc select  from surat where no='+#39+dbgrid1.Fields[0].AsString+#39+';';
      va:=va+'insert into history(nama,nip,nomor,tglacc) values('+#39+form13.label26.Caption+#39+','+#39+form13.label27.Caption+#39+','+#39+aha+#39+','+#39+datetostr(now())+#39+');';
      va:=va+'; delete from surat where no='+#39+dbgrid1.Fields[0].AsString+#39;
      lie(va);
end;

lie('insert into suratacc select   from surat where no='+#39+dbgrid1.Fields[0].AsString+#39);
      lie('insert into history(nama,nip,nomor,tglacc) values('+#39+form13.label26.Caption+#39+','+#39+form13.label27.Caption+#39+','+#39+aha+#39+','+#39+datetostr(now())+#39+')');
      lie('delete from surat where no='+#39+dbgrid1.Fields[0].AsString+#39);

procedure lie(ss:strings);
begin
  form1.Zqall.SQL.Text:=ss;
  form1.ZQall.ExecSQL;
end;
procedure TForm3.ACCSURAT1Click(Sender: TObject);
var va:string;
begin
    va:='insert into suratacc select * from surat where no='+#39+dbgrid1.Fields[0].AsString+#39+';';
    va:=va+'insert into history(nama,nip,nomor,tglacc) values('+#39+form13.label26.Caption+#39+','+#39+form13.label27.Caption+#39+','+#39+aha+#39+','+#39+datetostr(now())+#39+');';
    va:=va+'delete from surat where no='+#39+dbgrid1.Fields[0].AsString+#39;
    lie(va);
end;