Дипломная работа: Автоматизация контроля качества ООО "АЛЬТАИР"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
146
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;
end;
procedure TfrmRefer.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
147
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;
DataInfo.qListMeasures.Close;
DataInfo.qListNorms.Close;
148
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;
149
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;
150
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;
frmMeasures.ShowModal;
end;
4:begin
Источник: https://baza.diplomsite.ru/previewfile/1833

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

_1966(~1
_files_materials_5053_prog.ntr
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
!Фармакология препаратов для терапии заболеваний дыхательных путей
'Образ–Я' и его развитие средствами диалога
"Их невинная наложница "