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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
99
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N22Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.ProfList.RecordCount>0 then
Begin
ProfProForm.Tag:=3;
ProfProForm.Caption:='Редактирование "Профессиональная переподготовка"';
ProfProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Профессиональная переподготовка"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N23Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.AwardsList.RecordCount>0 then
Begin
AwardsProForm.Tag:=3;
AwardsProForm.Caption:='Редактирование "Поощрения и награды"';
AwardsProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Поощрения и награды"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N24Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.OutputList.RecordCount>0 then
Begin
100
OutputProForm.Tag:=3;
OutputProForm.Caption:='Редактирование "Отпуск"';
OutputProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Отпуск"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N25Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.SocialList.RecordCount>0 then
Begin
SocialProForm.Tag:=3;
SocialProForm.Caption:='Редактирование "Социальные льготы"';
SocialProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Социальные льготы"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N26Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.AdditionalList.RecordCount>0 then
Begin
AdditionalForm.Tag:=3;
AdditionalForm.Caption:='Редактирование "Дополнительные сведения"';
AdditionalForm.ShowModal;
End
Else
ShowMessage('Нет записей "Дополнительные сведения"!')
Else
ShowMessage('Нет записей пользователей!')
101
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N91Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
Begin
CardForm.Tag:=3;
CardForm.Caption:='Редактирование "Основные данные"';
CardForm.ShowModal;
End
Else
ShowMessage('Нет записей "Основные данные"!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N92Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.LanguaqeList.RecordCount>0 then
Begin
LangProForm.Tag:=3;
LangProForm.Caption:='Редактирование "Иностранные языки"';
LangProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Иностранные языки"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N93Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.ObrazovList.RecordCount>0 then
Begin
ObrazProForm.Tag:=3;
ObrazProForm.Caption:='Редактирование "Образование"';
102
ObrazProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Образование"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N94Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.ProfObrazList.RecordCount>0 then
Begin
ProfObrazProForm.Tag:=3;
ProfObrazProForm.Caption:='Редактирование "Провессиональное образование"';
ProfObrazProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Профессиональное образование"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N95Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.FamilyList.RecordCount>0 then
Begin
FamilyProForm.Tag:=3;
FamilyProForm.Caption:='Редактирование "Состав семьи"';
FamilyProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Состав семьи"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
103
end;
procedure TMainForm.N96Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.VBiletList.RecordCount>0 then
Begin
VBiletForm.Tag:=3;
VBiletForm.Caption:='Редактирование "Воинский учет"';
VBiletForm.ShowModal;
End
Else
ShowMessage('Нет записей "Воинский учет"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N97Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.StaqWorkList.RecordCount>0 then
Begin
StaqWorkForm.Tag:=3;
StaqWorkForm.Caption:='Редактирование "Стаж работы"';
StaqWorkForm.ShowModal;
End
Else
ShowMessage('Нет записей "Стаж работы"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N89Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.PriemList.RecordCount>0 then
Begin
PriemForm.Tag:=3;
Источник: https://baza.diplomsite.ru/previewfile/2254

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

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