118
end;
end;
procedure TCardForm.DBEdit14KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit15KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit17KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.BitBtn3Click(Sender: TObject);
begin
SpravDolForm.ShowModal;
end;
procedure TCardForm.BitBtn4Click(Sender: TObject);
begin
OrgForm.ShowModal;
end;
procedure TCardForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If tag=4 then
Begin
CardForm.CanClose:=True;
CardForm.TabSheet1.Enabled:=True;
CardForm.TabSheet2.Enabled:=True;
CardForm.BitBtn2.Enabled:=True;
end
end;
end.
119
PriemUnit.pas
unit PriemUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ComCtrls;
type
TPriemForm = class(TForm)
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
Label5: TLabel;
DateTimePicker1: TDateTimePicker;
Label6: TLabel;
DBEdit3: TDBEdit;
Label7: TLabel;
DBEdit4: TDBEdit;
Label8: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Label9: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
PriemForm: TPriemForm;
implementation
120
uses DMUnit;
{$R *.dfm}
procedure TPriemForm.BitBtn1Click(Sender: TObject);
begin
DataModule1.PriemList.Cancel;
Close;
end;
procedure TPriemForm.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TPriemForm.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TPriemForm.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TPriemForm.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9','.',',',#1..#32:exit
else key:=#0;
end;
end;
121
procedure TPriemForm.BitBtn3Click(Sender: TObject);
begin
DataMod-
ule1.PriemListDatePriem.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker1.DateTime));
DataModule1.PriemList.Post;
Close;
end;
procedure TPriemForm.FormShow(Sender: TObject);
begin
If tag=3 then
Begin
DataModule1.PriemList.Edit;
PriemForm.Caption:='Редактирование';
PriemForm.CanClose:=false;
End;
If tag=4 then
Begin
PriemForm.CanClose:=false;
PriemForm.DateTimePicker1.Enabled:=false;
PriemForm.DbEdit3.Enabled:=false;
PriemForm.DbEdit4.Enabled:=false;
PriemForm.DbEdit5.Enabled:=false;
PriemForm.DbEdit6.Enabled:=false;
PriemForm.BitBtn3.Enabled:=False;
end
end;
procedure TPriemForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
If tag=4 then
Begin
PriemForm.CanClose:=True;
PriemForm.DateTimePicker1.Enabled:=True;
PriemForm.DbEdit3.Enabled:=True;
PriemForm.DbEdit4.Enabled:=True;
PriemForm.DbEdit5.Enabled:=True;
PriemForm.DbEdit6.Enabled:=True;
PriemForm.BitBtn3.Enabled:=True;
end
end;
122
end.
QualificationUnit.pas
unit QualificationUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls;
type
TQualificationForm = class(TForm)
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
BitBtn2: TBitBtn;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
QualificationForm: TQualificationForm;
implementation
123
uses DMUnit;
{$R *.dfm}
procedure TQualificationForm.BitBtn1Click(Sender: TObject);
begin
DataModule1.QualifList.Cancel;
Close;
end;
procedure TQualificationForm.DBEdit1KeyPress(Sender: TObject;
var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TQualificationForm.DBEdit2KeyPress(Sender: TObject;
var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TQualificationForm.DBEdit3KeyPress(Sender: TObject;
var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TQualificationForm.BitBtn2Click(Sender: TObject);
begin
DataMod-
ule1.QualifListDateQualif.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker1.DateTime));
124
DataMod-
ule1.QualifListDateDocs.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker2.DateTime));
DataModule1.QualifList.Post;
Close;
end;
end.
UpQualifUnit.pas
unit UpQualifUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, ComCtrls;
type
TUpQualifForm = class(TForm)
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEdit1: TDBEdit;
Label4: TLabel;
DBEdit2: TDBEdit;
Label5: TLabel;
DBEdit3: TDBEdit;
GroupBox3: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
DBEdit4: TDBEdit;
Label10: TLabel;
DBEdit7: TDBEdit;
BitBtn2: TBitBtn;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
Edit1: TEdit;
125
Edit2: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
UpQualifForm: TUpQualifForm;
implementation
uses DMUnit;
{$R *.dfm}
procedure TUpQualifForm.BitBtn1Click(Sender: TObject);
begin
DataModule1.UpQualifList.Cancel;
Close;
end;
procedure TUpQualifForm.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TUpQualifForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
126
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TUpQualifForm.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',',#1..#32:exit
else key:=#0;
end;
end;
procedure TUpQualifForm.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TUpQualifForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9','X','V','I',#1..#32:exit
else key:=#0;
end;
end;
procedure TUpQualifForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TUpQualifForm.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
127
else key:=#0;
end;
end;
procedure TUpQualifForm.BitBtn2Click(Sender: TObject);
begin
DataMod-
ule1.UpQualifListDateStart.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker1.DateTime));
DataMod-
ule1.UpQualifListDateEnd.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker2.DateTime));
DataMod-
ule1.UpQualifListDateDocs.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker3.DateTime));
DataModule1.UpQualifList.Post;
Close;
end;
end.
AwardsUnit.pas
unit AwardsUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBCtrls, Mask, ComCtrls;
type
TAwardsForm = class(TForm)
BitBtn1: TBitBtn;
Label1: TLabel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
BitBtn2: TBitBtn;
DateTimePicker1: TDateTimePicker;
procedure BitBtn1Click(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);