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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
119
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.
120
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
121
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;
122
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;
123
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
Источник: https://baza.diplomsite.ru/previewfile/2254

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

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