98
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
99
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('Нет записей пользователей!')
100
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:='Редактирование "Образование"';
101
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('У вас нет прав!');
102
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;
103
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
104
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
105
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
106
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;
107
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;