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
| procedure TSupportEditForm.AddMoreBtnClick(Sender: TObject);
var
temp1:integer;
temp2:string;
reponse:word;
Option : TLocateOptions;
begin
temp1:=StrToInt(PeriodEdit.Text);
temp2:=DataForm.TSupport.FieldValues['NomSupport'];
Option := [loCaseInSensitive];
if Q1.RecordCount=temp1 then
begin
reponse:=MessageDlg('Vous ne pouvez plus ajouter de parutions à ce support,'
+'vous devez modifier sa périodicité pour effectuer cette action,'
+'souhaitez-vous le faire maintenant?',mtConfirmation,[mbNo,mbOk,mbCancel],0);
if reponse=mrOk then
begin
if DataForm.QSupport.Locate('NomSupport',temp2,Option) then
begin
Self.Close;
SupportModifyForm.ShowModal;
end
else
if(reponse=mrNo) or (reponse=mrCancel)then CancelNewBtnClick(CancelNewBtn);
end
else if Q1.RecordCount<temp1 then ParutionEditShow;;
end;
end; |
Partager