137
if MessageDlg('Вы действительно хотите удалить категорию
'+DataInfo.qListCategories.FieldByName('CategoryName').asString+'?',mtConfirmati
on,[mbYes, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Categories where
Id='+DataInfo.qListCategories.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListCategories.Close;
DataInfo.qListCategories.Open;
end;
3:begin
if DataInfo.qListMeasures.RecordCount=0 then
begin
MessageDlg('Список измерительных инструментов
пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From Checks WHERE
MeasureId='+DataInfo.qListMeasures.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данная измерительный инструмент уже используется!
Удаление невозможно!',mtError,[mbOk],0);
Exit
end;
138
if MessageDlg('Вы действительно хотите удалить измерительный
инструмент
'+DataInfo.qListMeasures.FieldByName('MeasureName').asString+'?',mtConfirmation
,[mbYes, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Measures where
Id='+DataInfo.qListMeasures.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListMeasures.Close;
DataInfo.qListMeasures.Open;
end;
4:begin
if DataInfo.qListNorms.RecordCount=0 then
begin
MessageDlg('Список норм пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From WareParams WHERE
NormId='+DataInfo.qListNorms.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данная норма уже используется! Удаление
невозможно!',mtError,[mbOk],0);
Exit
end;
139
if MessageDlg('Вы действительно хотите удалить норму
'+DataInfo.qListNorms.FieldByName('NormName').asString+'?',mtConfirmation,[mb
Yes, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Norms where
Id='+DataInfo.qListNorms.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListNorms.Close;
DataInfo.qListNorms.Open;
end;
end;
end;
end.