89
N96: TMenuItem;
N97: TMenuItem;
N98: TMenuItem;
N99: TMenuItem;
N100: TMenuItem;
N101: TMenuItem;
N102: TMenuItem;
N103: TMenuItem;
N104: TMenuItem;
N105: TMenuItem;
N8: TMenuItem;
N27: TMenuItem;
N106: TMenuItem;
N107: TMenuItem;
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N61Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N57Click(Sender: TObject);
procedure N56Click(Sender: TObject);
procedure N48Click(Sender: TObject);
// procedure N49Click(Sender: TObject);
procedure N45Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure N55Click(Sender: TObject);
procedure N88Click(Sender: TObject);
procedure N51Click(Sender: TObject);
procedure N54Click(Sender: TObject);
procedure N52Click(Sender: TObject);
procedure N50Click(Sender: TObject);
procedure N58Click(Sender: TObject);
procedure N59Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
90
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N91Click(Sender: TObject);
procedure N92Click(Sender: TObject);
procedure N93Click(Sender: TObject);
procedure N94Click(Sender: TObject);
procedure N95Click(Sender: TObject);
procedure N96Click(Sender: TObject);
procedure N97Click(Sender: TObject);
procedure N89Click(Sender: TObject);
procedure N90Click(Sender: TObject);
procedure N105Click(Sender: TObject);
procedure N104Click(Sender: TObject);
procedure N103Click(Sender: TObject);
procedure N102Click(Sender: TObject);
procedure N101Click(Sender: TObject);
procedure N100Click(Sender: TObject);
procedure N99Click(Sender: TObject);
procedure N106Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N30Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N53Click(Sender: TObject);
procedure N107Click(Sender: TObject);
private
{ Private declarations }
public
CanClose:Boolean;
CurDir:String;
Connect:String;
Date:TDateTime;
CurOrg:String;
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;
92
procedure TMainForm.N13Click(Sender: TObject);
begin
DataModule1.UpQualifList.Insert;
UpQualifForm.Caption:='Повышение квалификации';
UpQualifForm.DateTimePicker1.DateTime:=Now;
UpQualifForm.DateTimePicker2.DateTime:=Now;
UpQualifForm.DateTimePicker3.DateTime:=Now;
UpQualifForm.DBEdit1.Clear;
UpQualifForm.DBEdit2.Clear;
UpQualifForm.DBEdit3.Clear;
UpQualifForm.DBEdit4.Clear;
UpQualifForm.DBEdit7.Clear;
UpQualifForm.Edit1.Clear;
UpQualifForm.Edit2.Clear;
UpQualifForm.CanClose:=False;
UpQualifForm.ShowModal;
end;
procedure TMainForm.N14Click(Sender: TObject);
begin
DataModule1.ProfList.Insert;
ProfForm.Caption:='Профессиональная переподготовка';
ProfForm.DateTimePicker1.DateTime:=Now;
ProfForm.DateTimePicker2.DateTime:=Now;
ProfForm.DateTimePicker3.DateTime:=Now;
ProfForm.DBEdit1.Clear;
ProfForm.DBEdit2.Clear;
ProfForm.DBEdit3.Clear;
ProfForm.DBEdit4.Clear;
ProfForm.CanClose:=False;
ProfForm.ShowModal;
end;
procedure TMainForm.N15Click(Sender: TObject);
begin
DataModule1.AwardsList.Insert;
AwardsForm.Caption:='Поощрения и награды';
AwardsForm.DateTimePicker1.DateTime:=Now;
AwardsForm.DBEdit1.Clear;
AwardsForm.DBEdit2.Clear;
AwardsForm.DBEdit3.Clear;
AwardsForm.CanClose:=False;
AwardsForm.ShowModal;
end;
93
procedure TMainForm.N16Click(Sender: TObject);
begin
DataModule1.OutputList.Insert;
OutputForm.Caption:='Отпуск';
OutputForm.DateTimePicker1.DateTime:=Now;
OutputForm.DateTimePicker2.DateTime:=Now;
OutputForm.DateTimePicker3.DateTime:=Now;
OutputForm.DateTimePicker4.DateTime:=Now;
OutputForm.DBEdit1.Clear;
OutputForm.DBEdit2.Clear;
OutputForm.DBEdit3.Clear;
OutputForm.CanClose:=False;
OutputForm.ShowModal;
end;
procedure TMainForm.N17Click(Sender: TObject);
begin
DataModule1.SocialList.Insert;
SocialForm.Caption:='Социальные льготы';
SocialForm.DateTimePicker1.DateTime:=Now;
SocialForm.DBEdit1.Clear;
SocialForm.DBEdit2.Clear;
SocialForm.DBEdit3.Clear;
SocialForm.CanClose:=False;
SocialForm.ShowModal;
end;
procedure TMainForm.N18Click(Sender: TObject);
begin
DataModule1.AdditionalList.Insert;
AdditionalForm.Caption:='Дополнительные сведения';
AdditionalForm.DBMemo1.Clear;
AdditionalForm.CanClose:=False;
AdditionalForm.ShowModal;
end;
procedure TMainForm.N61Click(Sender: TObject);
begin
If DataModule1.CardListWork.Value then
begin
DelForm.Caption:='Увольнение';
DelForm.CanClose:=False;
DelForm.ShowModal;
end;
end;
94
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
Panel2.Caption:=FormatDatetime('hh:nn:ss',Time);
end;
procedure TMainForm.N57Click(Sender: TObject);
VAR
I:Integer;
begin
CanClose:=False;
FiltrForm.ShowModal;
FiltrForm.ComboBox2.ItemIndex:=-1;
FiltrForm.ComboBox4.ItemIndex:=-1;
FiltrForm.ComboBox3.ItemIndex:=-1;
FiltrForm.ListBox1.Clear;
DataModule1.CardList.DisableControls;
For I:=1 to 24 do FiltrForm.ComboBox2.Items.Add(DataModule1.CardList.Fields[I].DisplayLabel);
end;
procedure TMainForm.N56Click(Sender: TObject);
begin
If DataModule1.CardList.RecordCount>0 then
begin
SearchForm.CanClose:=False;
SearchForm.Edit1.Clear;
SearchForm.Caption:='Поиск данных';
SearchForm.ShowModal;
end;
end;
procedure TMainForm.N48Click(Sender: TObject);
begin
AboutForm.Caption:='О программе...';
AboutForm.ShowModal;
end;
//procedure TMainForm.N49Click(Sender: TObject);
//begin
// AvtorForm.Caption:='Разработчики';
//AvtorForm.ShowModal;
//end;
procedure TMainForm.N45Click(Sender: TObject);
begin
SpravDolForm.Tag:=0;
SpravDolForm.ShowModal;
SpravDolForm.Caption:='Справочник должностей';
95
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
Label4.Caption:=CurOrg;
Label3.Caption:=CurUser;
CanClose:=True;
Panel1.Caption:=FormatDateTime('dd.mm.yy',MainForm.Date);
Timer1.Enabled:=True;
end;
procedure TMainForm.N55Click(Sender: TObject);
begin
OrgForm.Tag:=0;
OrgForm.Caption:='Список организаций';
OrgForm.ShowModal;
end;
procedure TMainForm.N88Click(Sender: TObject);
begin
If not DataModule1.CardListWork.Value then
begin
If MessageDLG('Вы действительно хотите отправить крточку в
архив?',mtConfirmation,[mbYes,mbNO],0)=mrYes then
begin
DataModule1.CardList.Refresh;
DataModule1.CardList.Edit;
DataModule1.CardListArchiv.Value:=True;
DataModule1.CardList.Post;
Label7.Caption:=inttostr(DataModule1.CardList.RecordCount);
DataModule1.CardList.Requery;
end;
end
else ShowMessage('Невозможно отправить в архив карточку работающего сотрдника!');
end;
procedure TMainForm.N51Click(Sender: TObject);
begin
SmenaUsersForm.Tag:=0;
SmenaUsersForm.Caption:='Смена пользователя';
SmenaUsersForm.Edit1.Clear;
SmenaUsersForm.Edit2.Clear;
SmenaUsersForm.ShowModal;
end;
procedure TMainForm.N54Click(Sender: TObject);
begin
96
UsersForm.ShowModal;
end;
procedure TMainForm.N52Click(Sender: TObject);
begin
SmenaOrgForm.ShowModal;
end;
procedure TMainForm.N50Click(Sender: TObject);
begin
MainForm.Hide;
BlockForm.Show;
end;
procedure CopyFile1ToFile2(File1, File2: String);
var Stream:TMemoryStream;
begin
Stream:=TMemoryStream.Create;
if FileExists(File1) then
begin
Stream.LoadFromFile(File1);
Stream.SaveToFile(File2);
end;
Stream.Free;
end;
procedure TmainForm.ReadOrgList(User:String);
VAR
S:String;
I,k:Integer;
V:Variant;
begin
LOrg:=TstringList.Create;
V:=User;
DataModule1.UsersList.Locate('NameUser',V,[]);
S:=DataModule1.UsersListOrgs.Value;
K:=1;
For I:=1 to length(S) do
If S[I]='#' then
begin
lorg.Add(copy(s,k,i-k));
K:=I+1;
end;
end;
procedure TMainForm.N58Click(Sender: TObject);
begin
97
If DataModule1.CardList.RecordCount>0 then
try
DataModule1.CardList.Sort:=DBGrid1.SelectedField.FieldName+' ASC';
except
ShowMessage('Не удается отсортировать список.');
DataModule1.CardList.Sort:='';
end;
end;
procedure TMainForm.N59Click(Sender: TObject);
begin
If DataModule1.CardList.RecordCount>0 then
try
DataModule1.CardList.Sort:=DBGrid1.SelectedField.FieldName+' DESC';
except
ShowMessage('Не удается отсортировать список.');
DataModule1.CardList.Sort:='';
end;
end;
function Coder(Delta:Integer;Stroka:String):String;
VAR
I:Integer;
begin
For I:=1 to length(Stroka) do
If (Stroka[I]>=#32) and (Stroka[I]<=#41) then Stroka[I]:=chr(ord(Stroka[I])+100)
else Stroka[I]:=chr(ord(Stroka[I])-Delta);
Result:=Stroka;
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
VAR
F:TextFile;
Delta:Integer;
begin
randomize;
Delta:=random(10);
AssignFile(F,CurDir+'/data/init.txt');
Rewrite(F);
Writeln(F,chr(Delta+100));
Writeln(F,coder(Delta,MainForm.Connect));
CloseFile(F);
end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
98
If not SplashForm.AVAR then
begin
If MainForm.CanClose then
If MessageDLG('Вы действительно хотите завершить работу с
программой?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
CanClose:=MainForm.CanClose
else CanClose:=False;
end
else CanClose:=MainForm.CanClose;
end;
procedure TMainForm.N20Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.QualifList.RecordCount>0 then
Begin
QualifProForm.Tag:=3;
QualifProForm.Caption:='Редактирование "Аттестация"';
QualifProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Аттестация"!')
Else
ShowMessage('Нет записей пользователей!')
else
ShowMessage('У вас нет прав!');
end;
procedure TMainForm.N21Click(Sender: TObject);
begin
If DataModule1.UsersListWrite.Value=true then
If DataModule1.CardList.RecordCount>0 then
If DataModule1.UpQualifList.RecordCount>0 then
Begin
UpQualifProForm.Tag:=3;
UpQualifProForm.Caption:='Редактирование "Повышение квалификации"';
UpQualifProForm.ShowModal;
End
Else
ShowMessage('Нет записей "Повышение квалификации"!')
Else
ShowMessage('Нет записей пользователей!')
else