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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
136
end;
procedure TfrmRefer.pcReferChange(Sender: TObject);
begin
case pcRefer.ActivePageIndex of
0:begin
DataInfo.qListUsers.Open;
DataInfo.qListTypes.Close;
DataInfo.qListCategories.Close;
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Close;
end;
1:begin
DataInfo.qListUsers.Close;
DataInfo.qListTypes.Open;
DataInfo.qListCategories.Close;
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Close;
end;
2:begin
DataInfo.qListUsers.Close;
DataInfo.qListTypes.Close;
DataInfo.qListCategories.Open;
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Close;
end;
3:begin
DataInfo.qListUsers.Close;
137
DataInfo.qListTypes.Close;
DataInfo.qListCategories.Close;
DataInfo.qListMeasures.Open;
DataInfo.qListNorms.Close;
end;
4:begin
DataInfo.qListUsers.Close;
DataInfo.qListTypes.Close;
DataInfo.qListCategories.Close;
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Open;
end;
end;
end;
procedure TfrmRefer.FormShow(Sender: TObject);
begin
pcReferChange(nil);
end;
procedure TfrmRefer.btnNewClick(Sender: TObject);
begin
case pcRefer.ActivePageIndex of
0:begin
frmUsers.Tag:=1;
frmUsers.ShowModal;
end;
1:begin
138
frmTypes.Tag:=1;
frmTypes.ShowModal;
end;
2:begin
frmCategories.Tag:=1;
frmCategories.ShowModal;
end;
3:begin
frmMeasures.Tag:=1;
frmMeasures.ShowModal;
end;
4:begin
frmNorms.Tag:=1;
frmNorms.ShowModal;
end;
end;
end;
procedure TfrmRefer.btnEditClick(Sender: TObject);
begin
case pcRefer.ActivePageIndex of
0:begin
if DataInfo.qListUsers.RecordCount=0 then
begin
MessageDlg('Список пользователей пустой!',mtWarning,[mbOk],0);
Exit
end;
frmUsers.Tag:=0;
139
frmUsers.ShowModal;
end;
1:begin
if DataInfo.qListTypes.RecordCount=0 then
begin
MessageDlg('Список типов пустой!',mtWarning,[mbOk],0);
Exit
end;
frmTypes.Tag:=0;
frmTypes.ShowModal;
end;
2:begin
if DataInfo.qListCategories.RecordCount=0 then
begin
MessageDlg('Список категорий пустой!',mtWarning,[mbOk],0);
Exit
end;
frmCategories.Tag:=0;
frmCategories.ShowModal;
end;
3:begin
if DataInfo.qListMeasures.RecordCount=0 then
begin
MessageDlg('Список измерительных инструментов
пустой!',mtWarning,[mbOk],0);
Exit
end;
frmMeasures.Tag:=0;
140
frmMeasures.ShowModal;
end;
4:begin
if DataInfo.qListNorms.RecordCount=0 then
begin
MessageDlg('Список норм пустой!',mtWarning,[mbOk],0);
Exit
end;
frmNorms.Tag:=0;
frmNorms.ShowModal;
end;
end;
end;
procedure TfrmRefer.btnDelClick(Sender: TObject);
begin
case pcRefer.ActivePageIndex of
0:begin
if DataInfo.qListUsers.RecordCount=0 then
begin
MessageDlg('Список пользователей пустой!',mtWarning,[mbOk],0);
Exit
end;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('SELECT Id From Wares WHERE
UserId='+DataInfo.qListUsers.FieldByName('Id').asString);
DataInfo.qQuery.SQL.Add('UNION ALL');
Источник: https://baza.diplomsite.ru/previewfile/1832

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

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