Материал: Автоматизация контроля качества ФГУП "Научно-производственный центр автоматики и приборостроения имени Н.А. Пилюгина"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
132
tblListNorms: TcxGridDBTableView;
cxGridLevel4: TcxGridLevel;
tblListNormsCategoryName: TcxGridDBColumn;
tblListNormsNormName: TcxGridDBColumn;
tblListNormsNormValue: TcxGridDBColumn;
tblListNormsTolerLow: TcxGridDBColumn;
tblListNormsTolerHigh: TcxGridDBColumn;
procedure btnNewClick(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure btnCloseClick(Sender: TObject);
procedure pcReferChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmRefer: TfrmRefer;
implementation
uses Main, DataBase, TypeWare, Users, Categories, Measures, Norms;
{$R *.dfm}
procedure TfrmRefer.btnCloseClick(Sender: TObject);
begin
frmRefer.Close;
133
end;
procedure TfrmRefer.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataInfo.qListNorms.Close;
DataInfo.qListMeasures.Close;
DataInfo.qListCategories.Close;
DataInfo.qListUsers.Close;
DataInfo.qListTypes.Close;
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;
134
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Close;
end;
3:begin
DataInfo.qListUsers.Close;
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;
135
1:begin
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;
frmUsers.ShowModal;
end;
1:begin
136
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;
frmMeasures.ShowModal;
end;
4:begin
if DataInfo.qListNorms.RecordCount=0 then
begin
MessageDlg('Список норм пустой!',mtWarning,[mbOk],0);
Exit
Источник: https://baza.diplomsite.ru/previewfile/1836

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

Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления
Проактивные методы PR-деятельности российских авиационных компаний «Россия», «Азимут»