Материал: Автоматизация управления персоналом в АО "Киномакс" г. Краснодар

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
104
PriemForm.Caption:='Редактирование "Прием на работу"';
PriemForm.ShowModal;
End
Else
ShowMessage('Нет записей "Прием на работу"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N90Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.PlaceWorkList.RecordCount>0 then
Begin
PlaceWorkForm.Tag:=3;
PlaceWorkForm.Caption:='Редактирование "Место работы"';
PlaceWorkForm.ShowModal;
End
Else
ShowMessage('Нет записей "Место работы"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N105Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.CardList.RecordCount>0 then
Begin
CardForm.Tag:=4;
CardForm.Caption:='Просмотр';
CardForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
105
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N104Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.LanguaqeList.RecordCount>0 then
Begin
LangProForm.Tag:=4;
LangProForm.Caption:='Просмотр';
// LangProForm.ToolBar1.Visible:=False;
LangProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N103Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.ObrazovList.RecordCount>0 then
Begin
ObrazProForm.Tag:=4;
ObrazProForm.Caption:='Просмотр';
//ObrazProForm.ToolBar1.Visible:=False;
ObrazProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N102Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
106
If DataModule1.ProfObrazList.RecordCount>0 then
Begin
ProfObrazProForm.Tag:=4;
ProfObrazProForm.Caption:='Просмотр';
// ProfObrazProForm.ToolBar1.Visible:=False;
ProfObrazProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N101Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.FamilyList.RecordCount>0 then
Begin
FamilyProForm.Tag:=4;
FamilyProForm.Caption:='Просмотр';
// FamilyProForm.ToolBar1.Visible:=False;
FamilyProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N100Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.VBiletList.RecordCount>0 then
Begin
VBiletForm.Tag:=4;
VBiletForm.Caption:='Просмотр';
VBiletForm.ShowModal;
End
107
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N99Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.StaqWorkList.RecordCount>0 then
Begin
StaqWorkForm.Tag:=4;
StaqWorkForm.Caption:='Просмотр';
StaqWorkForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N106Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.PriemList.RecordCount>0 then
Begin
PriemForm.Tag:=4;
PriemForm.Caption:='Просмотр';
PriemForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
108
procedure TMainForm.N27Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.PlaceWorkList.RecordCount>0 then
Begin
PlaceWorkForm.Tag:=4;
PlaceWorkForm.Caption:='Просмотр';
PlaceWorkForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N28Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.QualifList.RecordCount>0 then
Begin
QualifProForm.Tag:=4;
QualifProForm.Caption:='Просмотр';
// QualifProForm.ToolBar1.Visible:=False;
QualifProForm.ShowModal;
End
Else
ShowMessage('Нет записей!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N29Click(Sender: TObject);
begin
If DataModule1.UsersListRead.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.UpQualifList.RecordCount>0 then
Begin
UpQualifProForm.Tag:=4;
Источник: https://baza.diplomsite.ru/previewfile/2254

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

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