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

Скачать

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

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

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

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