141
DataInfo.qQuery.SQL.Add('SELECT Id From Checks WHERE
UserId='+DataInfo.qListUsers.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данный пользователь уже используется! Удаление
невозможно!',mtError,[mbOk],0);
Exit
end;
if MessageDlg('Вы действительно хотите удалить пользователя
'+DataInfo.qListUsers.FieldByName('UserName').asString+'?',mtConfirmation,[m
bYes, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Users where
Id='+DataInfo.qListUsers.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListUsers.Close;
DataInfo.qListUsers.Open;
end;
1:begin
if DataInfo.qListTypes.RecordCount=0 then
begin
MessageDlg('Список типов пустой!',mtWarning,[mbOk],0);
Exit
end;
142
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From Categories WHERE
TypeId='+DataInfo.qListTypes.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данный тип уже используется! Удаление
невозможно!',mtError,[mbOk],0);
Exit
end;
if MessageDlg('Вы действительно хотите удалить тип
'+DataInfo.qListTypes.FieldByName('TypeName').asString+'?',mtConfirmation,[m
bYes, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Types where
Id='+DataInfo.qListTypes.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListTypes.Close;
DataInfo.qListTypes.Open;
end;
2:begin
if DataInfo.qListCategories.RecordCount=0 then
begin
MessageDlg('Список категорий пустой!',mtWarning,[mbOk],0);
143
Exit
end;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From Wares WHERE
CategoryId='+DataInfo.qListCategories.FieldByName('Id').asString);
DataInfo.qQuery.Open;
c:=DataInfo.qQuery.RecordCount;
DataInfo.qQuery.Close;
if c>0 then
begin
MessageDlg('Данная категория уже используется! Удаление
невозможно!',mtError,[mbOk],0);
Exit
end;
if MessageDlg('Вы действительно хотите удалить категорию
'+DataInfo.qListCategories.FieldByName('CategoryName').asString+'?',mtConfir
mation,[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
144
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;
if MessageDlg('Вы действительно хотите удалить измерительный
инструмент
'+DataInfo.qListMeasures.FieldByName('MeasureName').asString+'?',mtConfirma
tion,[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;
145
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;
if MessageDlg('Вы действительно хотите удалить норму
'+DataInfo.qListNorms.FieldByName('NormName').asString+'?',mtConfirmation,[
mbYes, 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);
146
DataInfo.qQuery.ExecSQL;
DataInfo.qListNorms.Close;
DataInfo.qListNorms.Open;
end;
end;
end;
end.
