91
CurUser:String;
LOrg:TStringList;
procedure ReadOrgList(User:String);
end;
var
MainForm: TMainForm;
implementation
uses CardUnit, UpQualifUnit, QualificationUnit, PriemUnit, ProfUnit,
AwardsUnit, OutputUnit, SocialUnit, AdditionalUnit, DelUnit, FiltrUnit,
SearchUnit, AboutUnit, AvtorUnit, SpravDolUnit, OrgUnit, ArchiveUnit,
UsersUnit, SmenaUsersUnit, SmenaOrgUnit, BlockUnit, DMUnit, CardMenuUnit,
PriemMenuUnit, SplashUnit, StartUnit, QualifProUnit, UpQualifProUnit,
ProfProUnit, AwardsProUnit, OutputProUnit, SocialProUnit, LangProUnit,
ObrazProUnit, ProfObrazProUnit, FamilyProUnit, VBiletUnit, StagWorkUnit,
PlaceWorkUnit, LanguaqeUnit, ObrazovUnit, ProfObrazUnit, FamilyUnit;
{$R *.dfm}
procedure TMainForm.N3Click(Sender: TObject);
begin
Close;
end;
procedure TMainForm.N4Click(Sender: TObject);
begin
CardMenuForm.Caption:='Карточка сотрудника';
CardMenuForm.ShowModal;
end;
procedure TMainForm.N11Click(Sender: TObject);
begin
PriemMenuForm.Caption:='Прием на работу и перевод';
PriemMenuForm.ShowModal;
end;
procedure TMainForm.N12Click(Sender: TObject);
begin
DataModule1.QualifList.Insert;
QualificationForm.Caption:='Аттестация';
QualificationForm.DateTimePicker1.DateTime:=Now;
QualificationForm.DateTimePicker2.DateTime:=Now;
QualificationForm.DBEdit1.Clear;
QualificationForm.DBEdit2.Clear;
QualificationForm.DBEdit3.Clear;
QualificationForm.CanClose:=False;
QualificationForm.ShowModal;
end;