1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| procedure TFrmAjoutSAV.btnOkClick(Sender: TObject);
var
nomDuScan : String;
begin
nomDuScan := '';
nomDuScan := lblNomScan.Caption;
oqAjoutSav.Close;
oqAjoutSav.SQL.Clear;
oqAjoutSav.SQL.Add('INSERT INTO suivisav (numsuivi, numrma, datedepart, dateretour, nomscan, commentaire) VALUES (:numerosuivi, :numerorma, :datededepart, :datederetour, :lenomscan, :com)');
oqAjoutSav.DeclareAndSet('numerosuivi', otInteger, seq_numsuivi.nextval);
oqAjoutSav.DeclareAndSet('numerorma', otString, zsNumRma.Text);
oqAjoutSav.DeclareAndSet('datededepart', otString, zsDateDep.Text);
oqAjoutSav.DeclareAndSet('datederetour', otString, zsDateRetour.Text);
oqAjoutSav.DeclareAndSet('lenomscan', otString, nomDuScan);
oqAjoutSav.DeclareAndSet('com', otString, zsCommentaires.Text);
oqAjoutSav.Execute;
oqAjoutSav.Session.Commit;
FrmHistoSav.OracleDataSetHisto.Close;
FrmHistoSav.OracleDataSetHisto.SQL.Clear;
FrmHistoSav.OracleDataSetHisto.SQL.Text := 'SELECT * FROM suivisav WHERE nomscan = :nomduscan';
FrmHistoSav.OracleDataSetHisto.DeclareAndSet('nomduscan', otString, nomDuScan);
FrmHistoSav.DataSourceHisto.DataSet := FrmHistoSav.OracleDataSetHisto;
FrmHistoSav.DBGridHisto.DataSource := FrmHistoSav.DataSourceHisto;
FrmHistoSav.OracleDataSetHisto.Open;
end; |
Partager