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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
114
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit17KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
CardForm: TCardForm;
implementation
uses DMUnit, MainUnit, CardMenuUnit, SpravDolUnit, OrgUnit, AdditionalUnit;
{$R *.dfm}
procedure TCardForm.BitBtn1Click(Sender: TObject);
begin
If tag=1 then
begin
CardForm.TabSheet1.Enabled:=True;
CardForm.TabSheet2.Enabled:=true;
end;
DataModule1.CardList.Cancel;
Close;
end;
procedure TCardForm.DateTimePicker1KeyPress(Sender: TObject;
var Key: Char);
begin
Key:=#0;
end;
procedure TCardForm.BitBtn2Click(Sender: TObject);
begin
{If (Tag=0) or (tag=2) then
If not ((DateTimePicker1.DateTime>=DateTimePicker2.DateTime) or (DateTimePick-
er1.DateTime>=Now) or (DateTimePicker1.DateTime>=DateTimePicker3.DateTime) or (DateTimePick-
er1.DateTime>=DateTimePicker4.DateTime)) then
try}
115
DataMod-
ule1.CardListBirthDay.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker1.DateTime));
DataMod-
ule1.CardListDateDog.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker2.DateTime));
DataMod-
ule1.CardListPasDate.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker3.DateTime));
DataMod-
ule1.CardListDateRegister.Value:=strtodatetime(formatdatetime('dd.mm.yyyy',DatetimePicker4.DateTime));
DataModule1.CardListWork.Value:=True;
DataModule1.CardListPassport.Value:=Edit1.Text+'-'+Edit2.Text;
DataModule1.CardList.Post;
MainForm.Label7.Caption:=inttostr(DataModule1.CardList.RecordCount);
CardMenuForm.BitBtn2.Enabled:=true;
CardMenuForm.BitBtn3.Enabled:=true;
CardMenuForm.BitBtn4.Enabled:=true;
CardMenuForm.BitBtn5.Enabled:=true;
CardMenuForm.BitBtn6.Enabled:=true;
CardMenuForm.BitBtn7.Enabled:=true;
Close;
CardMenuForm.Show;
{except
ShowMessage('Не все обязательные поля заполнены!');
end
else ShowMessage('Неверная дата рождения!')
else ShowMessage('Документ не может быть сохранен, так как находится в режиме просмотра.');}
end;
procedure TCardForm.FormShow(Sender: TObject);
{var
I:Integer;}
begin
If tag=2 then
begin
{rPassport;}
DateTimePicker1.DateTime:=DataModule1.CardListBirthDay.Value;
DateTimePicker2.DateTime:=DataModule1.CardListDateDog.Value;
DateTimePicker3.DateTime:=DataModule1.CardListPasDate.Value;
DateTimePicker4.DateTime:=DataModule1.CardListDateRegister.Value;
PageControl1.ActivePageIndex:=0;
if tag=1 then
begin
CardForm.TabSheet1.Enabled:=False;
CardForm.TabSheet2.Enabled:=False;
116
end
else
DBEdit1.SetFocus;
end;
If tag=3 then
Begin
DataModule1.CardList.Edit;
CardForm.Caption:='Редактирование';
CardForm.CanClose:=false;
end;
If tag=4 then
Begin
CardForm.CanClose:=false;
CardForm.TabSheet1.Enabled:=False;
CardForm.TabSheet2.Enabled:=False;
CardForm.BitBtn2.Enabled:=False;
end
end;
procedure TCardForm.TabSheet1Show(Sender: TObject);
begin
DBRadioGroup2.ItemIndex:=0;
end;
procedure TCardForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9','X','V','I',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
117
end;
procedure TCardForm.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit10KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',','-','0'..'9',#1..#32:exit
else key:=#0;
118
end;
end;
procedure TCardForm.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',','-','0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'А'..'Я','а'..'я','.',',',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit29KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
end;
end;
procedure TCardForm.DBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
Case key of
'0'..'9',#1..#32:exit
else key:=#0;
Источник: https://baza.diplomsite.ru/previewfile/2254

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

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