128
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
AwardsForm: TAwardsForm;
implementation
uses DMUnit;
{$R *.dfm}
procedure TAwardsForm.BitBtn1Click(Sender: TObject);
begin
DataModule1.AwardsList.Cancel;
Close;
end;
procedure TAwardsForm.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TAwardsForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TAwardsForm.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
129
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TAwardsForm.BitBtn2Click(Sender: TObject);
begin
DataMod-
ule1.AwardsListDateDocs.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker1.DateTime));
DataModule1.AwardsList.Post;
Close;
end;
end.
OutputUnit.pas
unit OutputUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls;
type
TOutputForm = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
GroupBox2: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
130
DateTimePicker3: TDateTimePicker;
DateTimePicker4: TDateTimePicker;
procedure BitBtn2Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
OutputForm: TOutputForm;
implementation
uses DMUnit;
{$R *.dfm}
procedure TOutputForm.BitBtn2Click(Sender: TObject);
begin
DataModule1.OutputList.Cancel;
Close;
end;
procedure TOutputForm.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TOutputForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
131
end;
end;
procedure TOutputForm.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TOutputForm.BitBtn1Click(Sender: TObject);
begin
DataMod-
ule1.OutputListDateWorksOt.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker1.DateTime));
DataMod-
ule1.OutputListDateWorksDo.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker2.DateTime));
DataMod-
ule1.OutputListDateStart.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker3.DateTime));
DataMod-
ule1.OutputListDateEnd.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker4.DateTime));
DataModule1.OutputList.Post;
Close;
end;
end.
SocialUnit.pas
unit SocialUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Mask, Buttons, ComCtrls;
type
TSocialForm = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
132
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DateTimePicker1: TDateTimePicker;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
SocialForm: TSocialForm;
implementation
uses DMUnit;
{$R *.dfm}
procedure TSocialForm.BitBtn2Click(Sender: TObject);
begin
DataModule1.SocialList.Cancel;
Close;
end;
procedure TSocialForm.BitBtn1Click(Sender: TObject);
begin
DataMod-
ule1.SocialListDateDocs.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker1.DateTime));
DataModule1.SocialList.Post;
Close;
end;
procedure TSocialForm.DBEdit1KeyPress(Sender: TObject; var Key: Char);
133
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TSocialForm.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TSocialForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
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;
134
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;
135
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;
end;
procedure TDelForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
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;
136
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);
137
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;