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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| Procedure TForm1.QueryExec(AQuery : TQuery;cmd,StrErreur : String)
begin
with AQuery do
begin
if Active Then
begin
close;
sql.clear;
sql.ADD(cmd);
try
ExecSQL;
except
if trim(StrErreur) <> '' Then
showmessage(StrErreur);
end;
end;
Procedure TForm1.BitBtn2Click(Sender: TObject);
var
St : String;
Const
CstUpdEtud = 'update etudient set nom= %1:s ,Date_N = %2:s where code=%0:s ';
begin
St := format(CstEtud,[edit1.text ,quotedstr(edit2.text),quotedstr(maskedit1.text)]);
QueryExec(query2,St,'');
end;
procedure TForm1.Button1Click(Sender: TObject);
Const
CstInsEtud = 'insert into etudient(code,nom,Date_N) values(%0:s,%1:s,%2:s)';
var st : String;
begin
st := Format(CstInsEtud,[edit1.text,quotedstr(edit2.text), quotedstr(maskedit1.text) ]);
QueryExec(query1,St,'cet enregistrement existe déjà');
end;
procedure TForm1.Button3Click(Sender: TObject);
Const
CstDelEtud = 'delete from etudient where code=%s';
begin
st := Format(CstDelEtud,[edit1.text]);
QueryExec(query3,St,'');
end; |
Partager