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

Скачать файл

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

134

begin

Case key of

'А'..'Я','а'..'я',#1..#32:exit

else key:=#0;

end;

procedure TSocialForm.DBEdit3KeyPress(Sender: TObject; var Key: Char);

begin

Case key of

'А'..'Я','а'..'я',#1..#32:exit

else key:=#0;

end;

procedure TSocialForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

Case key of

'0'..'9',#1..#32:exit

else key:=#0;

end;

end.

DelUnit.pas

unit DelUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls;

type

TDelForm = class(TForm)

Label1: TLabel;

Label2: TLabel;

GroupBox1: TGroupBox;

Label3: TLabel;

Label4: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

135

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);

procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

CanClose:Boolean;

{ Public declarations }

end;

var

DelForm: TDelForm;

implementation

uses DMUnit;

{$R *.dfm}

procedure TDelForm.BitBtn2Click(Sender: TObject);

begin

CanClose:=True;

Close;

end;

procedure TDelForm.BitBtn1Click(Sender: TObject);

begin

if (DatetimePicker1.DateTime>DataModule1.CardListDateDog.Value) then

begin

DataModule1.CardList.Edit;

DataMod-

ule1.CardListDataDel.Value:=strtodatetime(Formatdatetime('dd.mm.yyyy',DatetimePicker1.datetime));

DataModule1.CardListWork.Value:=False;

DataModule1.CardListDataDocsDel.Value:=strtodatetime(Formatdatetime('dd.mm.yyyy',DatetimePicker2.dateti

me));

DataModule1.CardList.Post;

136

CanClose:=True;

Close;

end

else ShowMessage('Дата увольнения не может быть позже даты поступления на работу!');

end;

procedure TDelForm.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

Case key of

'А'..'Я','а'..'я','.',',',#1..#32:exit

else key:=#0;

end;

procedure TDelForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

Case key of

'0'..'9',#1..#32:exit

else key:=#0;

end;

end.

CardMenuUnit.pas

unit CardMenuUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TCardMenuForm = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

137

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

private

{ Private declarations }

public

CanClose:Boolean;

{ Public declarations }

end;

var

CardMenuForm: TCardMenuForm;

implementation

uses CardUnit, LanguaqeUnit, ObrazovUnit, ProfObrazUnit, FamilyUnit,

VBiletUnit, StagWorkUnit, DMUnit;

{$R *.dfm}

procedure TCardMenuForm.BitBtn8Click(Sender: TObject);

begin

Close;

end;

procedure TCardMenuForm.BitBtn1Click(Sender: TObject);

begin

CardForm.Tag:=0;

DataModule1.CardList.Insert;

DataModule1.CardListKodOrg.Value:=DataModule1.OrgListKodOrg.Value;

CardForm.Caption:='Карточка сотрудника';

CardForm.CanClose:=False;

CardForm.ShowModal;

end;

procedure TCardMenuForm.BitBtn2Click(Sender: TObject);

138

begin

LanguageForm.Tag:=0;

DataModule1.LanguaqeList.Insert;

LanguageForm.DBEdit12.Clear;

LanguageForm.DBEdit13.Clear;

LanguageForm.CanClose:=False;

LanguageForm.ShowModal;

end;

procedure TCardMenuForm.BitBtn3Click(Sender: TObject);

begin

ObrazovForm.Tag:=0;

DataModule1.ObrazovList.Insert;

ObrazovForm.DBComboBox1.Clear;

ObrazovForm.DBEdit7.Clear;

ObrazovForm.DBEdit10.Clear;

ObrazovForm.DBEdit11.Clear;

ObrazovForm.Edit1.Clear;

ObrazovForm.Edit2.Clear;

ObrazovForm.CanClose:=False;

ObrazovForm.ShowModal;

end;

procedure TCardMenuForm.BitBtn4Click(Sender: TObject);

begin

ProfObrazForm.Tag:=0;

DataModule1.ProfObrazList.Insert;

ProfObrazForm.DBComboBox3.Clear;

ProfObrazForm.DBEdit14.Clear;

ProfObrazForm.DBEdit15.Clear;

ProfObrazForm.DBEdit16.Clear;

ProfObrazForm.DBEdit17.Clear;

ProfObrazForm.DBEdit18.Clear;

ProfObrazForm.DateTimePicker1.DateTime:=Now;

ProfObrazForm.CanClose:=False;

ProfObrazForm.ShowModal;

end;

procedure TCardMenuForm.BitBtn5Click(Sender: TObject);

begin

FamilyForm.Tag:=0;

DataModule1.FamilyList.Insert;

Источник: https://baza.diplomsite.ru/previewfile/2254

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









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