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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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
Источник: https://baza.diplomsite.ru/previewfile/2254

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

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