Дипломная работа: Автоматизация управления кадрами в Местной администрации городского округа Нальчик
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
VK_F7: JobTitleFound;
VK_F8: DeleteJobTitle;
13: case SelectJobTitle of
2: if IBQJobTitles.RecordCount>0 then begin
FJobTitles.Close;
FEditMotions.Show;
end else Application.MessageBox('HeT должностей... Добавте должности в БД
должностей',rMessage',MB_OK);
3: begin
FEditEmployers.Enabled:=True;
FJobTitles.Close;
end;
4: begin
FEditMotions.Enabled:=True;
FJobTitles.Close;
end;
end;
27: case SelectJobTitle of
1: begin
FSelect.Enabled:=True;
IBQJobTitles.Close;
FJobTitles.Close;
end;
2: begin
FEditEmployers.Enabled:=True;
FJobTitles.Close;
end;
3: begin
IBQJobTitles.Locate('ID',RecSave,[loCaseInsensitive]);
FEditEmployers.Enabled:=True;
FJobTitles.Close;
end;
4: begin
IBQJobTitles.Locate('ID',RecSave,[loCaseInsensitive]);
FEditMotions.Enabled:=True;
FJobTitles.Close;
end;
end;
end;
end;
procedure TFJobTitles.FormActivate(Sender: TObject);
begin
Left:=Round((GetSystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetSystemMetrics(SM_CYSCREEN)-Height)/2);
end;
end.
unit Properties;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, StdCtrls, IniFiles, ShellApi, ShlObj;
type
TFProperties = class(TForm)
PanelProperties: TPanel;
SBProperties: TStatusBar;
EditPathDataBase: TEdit;
LabelPathDataBase: TLabel;
OpenDialogPathDataBase: TOpenDialog;
LabelArhive: TLabel;
EditPathArhive: TEdit;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure EditPathDataBaseEnter(Sender: TObject);
procedure EditPathDataBaseExit(Sender: TObject);
procedure EditPathDataBaseKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure EditPathArhiveEnter(Sender: TObject);
procedure EditPathArhiveKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FProperties: TFProperties;
implementation
uses Main;
{$R *.dfm}
procedure TFProperties.FormActivate(Sender: TObject);
begin
Left:=Round((GetsystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetsystemMetrics(SM_CYSCREEN)-Height)/2);
EditPathDataBase.Text:=PathDataBase;
EditPathArhive.T ext:=PathArhive;
end;
procedure TFProperties.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
MainForm.Enabled:=True;
end;
procedure TFProperties.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var Ini: TIniFile;
begin
case key of
13: begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Ok.ini');
Ini.WriteString('Path','DataBase',Trim(EditPathDataBase.Text));
Ini.WriteString('Path','Arhive',Trim(EditPathArhive.Text));
Ini.Free;
PathDataBase:=EditPathDataBase.Text;
PathArhive:=EditPathArhive.T ext;
FProperties.Close;
end;
27: FProperties.Close;
end;
end;
procedure TFProperties.EditPathDataBaseEnter(Sender: TObject);
begin
SBProperties.SimpleText:='<Enter>-Сохранить >-Выход F4-Bbi6op файла базы
данных';
end;
procedure TFProperties.EditPathDataBaseExit(Sender: TObject);
begin
SBProperties.SimpleText:='<Enter>-Сохранить >-Выход';
end;
procedure TFProperties.EditPathDataBaseKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var Stroka:String;
i:integer;
begin
if key=VK_F4 then
if OpenDialogPathDataBase.Execute then begin
PathDataBase:=OpenDialogPathDataBase.FileName;
EditPathDataBase.Text:=PathDataBase;
end;
end;
procedure TFProperties.EditPathArhiveEnter(Sender: TObject);
begin
SBProperties.SimpleText:='<Enter>-Сохранить >-Выход F4-Bыбор каталога архива
базы данных';
end;
procedure TFProperties.EditPathArhiveKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var TitleName : string;
LpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..max_path] of char;
TempPath : array[0..max_path] of char;
begin
if key=VK_F4 then begin
FillChar(BrowseInfo, SizeOf(TBrowseInfo), #0);
BrowseInfo.HwnDownEr := FProperties.Handle;
BrowseInfo.PSzDisplayName := @DisplayName;
TitleName := 'Пожалуйста выберите директорию для архива БД';
BrowseInfo.LpSzTitle := PChar(TitleName);
BrowseInfo.UlFlags := Bif_ReturnOnLyfsDirs;
LpItemID := SHBrowseForFolder(BrowseInfo);
if LpItemid <> nil then begin
SHGetPathF romIDList(LpItemID, TempPath);
EditPathArhive.T ext:=TempPath;
{ ShowMessage(T empPath);}
GlobalF reePtr(LpItemID);
end;
end;
end;
end.
unit SaveLoad;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;
type
TFSaveLoad = class(TForm)
ButtonSave: TButton;
PanelMain: TPanel;
SBMain: TStatusBar;
ButtonLoads: TButton;
OpenDialogFile: TOpenDialog;
procedure ButtonSaveClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ButtonLoadsClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FSaveLoad: TFSaveLoad;
implementation
uses UtilityPasZlib, Main, DataModule, Select;
{$R *.dfm}
procedure TFSaveLoad.ButtonSaveClick(Sender: TObject);
var
sFilenameInput,sFilenameOutput, DateForFile,TimeForFile: string;
Level: TCompLevel;
begin
with DM do begin
IBDB Connected:=False;
S creen.Cursor: =crHourGlass;
Level:=clDefault;
DateF orF ile:=DateToStr(Date());
TimeForFile:=TimeToStr(Time());
sFilenameInput:=PathDataBase;
sFilenameOutput:=PathArhive+'\Ok'+copy(DateForFile,0,2)+copy(DateForFile,4,2)+copy(Da
teForFile,9,2)+copy(TimeForFile,0,2)+copy(TimeForFile,4,2)+copy(TimeForFile,7,2);
Level:=clMax;
try
CompressFile(sFilenameInput,sFilenameOutput+'.zip',Level);
ShowMessage('Файл: '+sFilenameOutput+'.zip успешно сохранен...');
finally
Screen.Cursor:=crDefault;
end;
IBDB.Connected:=True;
end;
end;
procedure TFSaveLoad.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FSelect.Enabled:=True;
end;
procedure TFSaveLoad.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
27: FSaveLoad.Close;
end;
end;
procedure TFSaveLoad.ButtonLoadsClick(Sender: TObject);
var
sFilename, sDestFile: string;
begin
with DM do begin
IBDB Connected:=False;
Источник: https://baza.diplomsite.ru/previewfile/2244