Дипломная работа: Автоматизация управления кадрами в Местной администрации городского округа Нальчик
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
if OpenDialogFile.Execute then begin
Screen.Cursor:=crHourGlass;
try
sDestFile:=PathDataBase;
sFilename:=OpenDialogFile.FileName;
UnCompressFile(sFilename,sDestFile);
ShowMessage(^aan успешно извлечен!');
finally
Screen.Cursor := crDefault;
end;
end;
IBDB .Connected:=True;
end;
end;
procedure TFSaveLoad.FormActivate(Sender: TObject);
begin
Left:=Round((GetSystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetSystemMetrics(SM_CYSCREEN)-Height)/2);
end;
end.
unit Select;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls;
type
TFSelect = class(TForm)
PanelMain: TPanel;
SBMain: TStatusBar;
ButtonSaveLoad: TButton;
ButtonEmployers: TButton;
ButtonJobTitle: TButton;
ButtonClear: TButton;
ButtonEnterPrises: TButton;
procedure ButtonJobTitleClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ButtonSaveLoadClick(Sender: TObject);
procedure ButtonEmployersClick(Sender: TObject);
procedure ButtonClearClick(Sender: TObject);
procedure ButtonEnterPrisesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FSelect: TFSelect;
implementation
uses DataModule, JobTitles, SaveLoad, Main, Employers, EditEnterPrises;
{$R *.dfm}
procedure TFSelect.ButtonJobTitleClick(Sender: TObject);
begin
with DM do begin
IBQJobTitles.SQL.Clear;
IBQJobTitles.SQL.Append('select * from JobTitles');
IBQJobTitles.SQL.Append('Order By JobTitle');
IBQJobTitles.Open;
FSelect.Enabled:=False;
JobTitles.SelectJobTitle:=1;
FJobTitles.Show;
end;
end;
procedure TFSelect.FormActivate(Sender: TObject);
begin
Left:=Round((GetSystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetSystemMetrics(SM_CYSCREEN)-Height)/2);
end;
procedure TFSelect.FormClose(Sender: TObject; var Action: TCloseAction);
begin
with DM do
IBDB Connected:=False;
MainForm.Enabled:=True;
end;
procedure TFSelect.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=27 then FSelect.Close;
end;
procedure TFSelect.ButtonSaveLoadClick(Sender: TObject);
begin
if DirectoryExists(PathArhive) then begin
FSelect.Enabled:=False;
FSaveLoad.Show;
end else Application.MessageBox('Войдите в пункт меню "Настройка" и выберите путь
к папке архива БД','Неправильный путь к каталогу архива базы данных',MB_OK);
end;
procedure TFSelect.ButtonEmployersClick(Sender: TObject);
begin
with DM do begin
IB QEmpl oyers.SQL .Clear;
IBQEmployers.SQL.Append('select * from Employers');
IBQEmployers.SQL.Append('Order by Family,Name,Fathers');
IBQEmployers.Open;
IBQMilitary.SQL.Clear;
IBQMilitary.SQL.Append('select * from Military');
IBQMilitary.Open;
IBQJobTitles.SQL.Clear;
IBQJobTitles.SQL.Append('select * from JobTitles');
IBQJobTitles.SQL.Append('Order By JobTitle');
IBQJobTitles.Open;
FSelect.Enabled:=False;
FEmpl oyers.Show;
end;
end;
procedure TFSelect.ButtonClearClick(Sender: TObject);
begin
with DM do begin
IBDB.Connected:=True;
IBQExecSQL.SQL.Clear;
IBQExecSQL.SQL.Append('Delete from Looks');
IBQExecSQL.ExecSQL;
IBDB Connected:=False;
Application.MessageBox('Bce блокировки базы данных
сброшены...','Message',MB_OK);
end;
end;
procedure TFSelect.ButtonEnterPrisesClick(Sender: TObject);
begin
with DM do begin
FSelect.Enabled:=True;
IBQEnterprises.Open;
FEditEnterPrises.Show;
end;
end;
end.
unit SelectPhoto;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls;
type
TFSelectPhoto = class(TForm)
PanelSelectPhoto: TPanel;
SBSelectPhoto: TStatusBar;
ButtonSelect: TButton;
ButtonClear: TButton;
OpenDialogLoad: TOpenDialog;
procedure ButtonSelectClick(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ButtonClearClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FSelectPhoto: TFSelectPhoto;
implementation
uses EditEmployers;
{$R *.dfm}
procedure TFSelectPhoto.ButtonSelectClick(Sender: TObject);
begin
OpenDialogLoad.Filter:='Фотография|*.bmp';
if OpenDialogLoad.Execute then
FEditEmployers.ImagePhoto.Picture.Bitmap.LoadFromFile(OpenDialogLoad.FileName);
FEditEmployers.Enabled:=True;
FSelectPhoto.Close;
end;
procedure TFSelectPhoto.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=27 then FSelectPhoto.Close;
end;
procedure TFSelectPhoto.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
FEditEmployers.Enabled:=True;
end;
procedure TFSelectPhoto.ButtonClearClick(Sender: TObject);
begin
FEditEmployers.ImagePhoto.Picture.Bitmap:=FEditEmployers.ImageBuffer.Picture.Bitmap;
FEditEmployers.Enabled:=True;
FSelectPhoto.Close;
end;
procedure TFSelectPhoto.FormActivate(Sender: TObject);
begin
Left:=Round((GetSystemMetrics(SM_CXSCREEN)-Width)/2);
Top:=Round((GetSystemMetrics(SM_CYSCREEN)-Height)/2);
end;
end.
unit FoundJobTitle;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Grids, DBGrids, StdCtrls, ExtCtrls, DB;
type
TFFoundJobTitles = class(TForm)
PanelFoundJobTitle: TPanel;
LabelString: TLabel;
EditString: TEdit;
DBGrFoundJobTitle: TDBGrid;
LabelFoundJobTitle: TLabel;
SBFoundJobTitles: TStatusBar;
procedure FormActivate(Sender: TObject);
procedure EditStringChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FFoundJobTitles: TFFoundJobTitles;
RecSave: LongInt;
implementation
uses DataModule, JobTitles;
{$R *.dfm}
Источник: https://baza.diplomsite.ru/previewfile/2244