Дипломная работа: Автоматизация контроля качества в ТОО "ПКК САКТАГАН"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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);
Источник: https://baza.diplomsite.ru/previewfile/1832

Смотрите также:

_3 тема - Диффузия
[БИЛЕТЫ] IMK №3
00601
01. Концепция БД
02_ЛР
02. РСЧС_ВСМК_Таблица
05. Частная патология ССС - Инфаркт миокарда
0501 Конунников ЛР10-3
0501_Конунников_ЛР№2
06-20-DatabasesGenomEvolution