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

Скачать

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

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

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

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