Алла / «« / Attachments_reznikov_sa_bigmir_net_2013-12-04_1 / Dodatok
.docДодаток
program VK2005;
uses
Forms,
UNKADRY in 'UNKADRY.PAS' {Main},
Prn_Proc in 'Prn_proc.pas',
Pr_frmlr in 'Pr_frmlr.pas' {FormPrintFormular_New},
Restore in 'Restore.pas' {FormRestore_Archiv},
CALENDR in 'CALENDR.PAS' {FormKalendar},
EDITAll in 'EDITAll.pas' {FormEditAllPersonal},
INFORM_U in 'INFORM_U.PAS' {Inform_Form},
CALCCONT in 'CALCCONT.PAS' {FormContract},
FORMCONT in 'FORMCONT.PAS' {FormContr},
Pens_UN in 'Pens_UN.pas' {FormPension},
FRM_PRNT in 'FRM_PRNT.pas' {FormPrintFormFormular},
Frmendc in 'Frmendc.pas' {FormEndContr},
All_Proc in 'All_proc.pas',
FrmScnt in 'FrmScnt.pas' {FormScintist},
Jubil_un in 'Jubil_un.pas' {FormJubilary},
Form6mst in 'Form6mst.pas' {Form6Minstat},
UnPedStage in 'UnPedStage.pas' {FormPedStage},
FormOrde in 'FormOrde.pas' {FormOrders},
Ed_frml in 'Ed_frml.pas' {FormEditFormular},
Insform in 'Insform.pas' {InsertForm},
Frm_chng in 'Frm_chng.pas' {FormChange},
Frm_stag in 'Frm_stag.pas' {FormStage},
M_form3 in 'M_form3.pas' {FormFormularD3},
Frm_Dovidka in 'Frm_Dovidka.pas' {FormDovidka},
FrmJList in 'FrmJList.pas' {FormJobList},
FrmP2 in 'FrmP2.pas' {FormP2},
ProperFM in 'ProperFM.pas' {FormProgramPropertys},
Al_st_ed in 'Al_st_ed.pas' {FormAllStageEditor},
FchngKat in 'FchngKat.pas' {FormChangeKatedra},
Fr_Ot_DB in 'Fr_Ot_DB.pas' {FormRepairFromOtherDB},
Ins_Hone in 'Ins_Hone.pas' {FormInsHONER},
FrmPFund in 'FrmPFund.pas' {FormPensFund},
dmMain in 'dmMain.pas' {DataModule1: TDataModule},
UnF_S_nam in 'UnF_S_nam.pas' {FormF_S_Name},
FchngFac in 'FchngFac.pas' {FormChangeFaculty},
UnTable7 in 'UnTable7.pas' {FormTable_7},
UnBday in 'UnBday.pas' {FormBDay};
{$R *.RES}
begin
Application.Initialize;
Application.Title := 'Відділ кадрів';
setUkrainian;
Application.CreateForm(TMain, Main);
Application.CreateForm(TFormPrintFormular_New, FormPrintFormular_New);
Application.CreateForm(TFormRestore_Archiv, FormRestore_Archiv);
Application.CreateForm(TFormKalendar, FormKalendar);
Application.CreateForm(TFormEditAllPersonal, FormEditAllPersonal);
Application.CreateForm(TInform_Form, Inform_Form);
Application.CreateForm(TFormContract, FormContract);
Application.CreateForm(TFormContr, FormContr);
Application.CreateForm(TFormPension, FormPension);
Application.CreateForm(TFormPrintFormFormular, FormPrintFormFormular);
Application.CreateForm(TFormEndContr, FormEndContr);
Application.CreateForm(TFormScintist, FormScintist);
Application.CreateForm(TFormJubilary, FormJubilary);
Application.CreateForm(TForm6Minstat, Form6Minstat);
Application.CreateForm(TFormPedStage, FormPedStage);
Application.CreateForm(TFormOrders, FormOrders);
Application.CreateForm(TFormEditFormular, FormEditFormular);
Application.CreateForm(TInsertForm, InsertForm);
Application.CreateForm(TFormChange, FormChange);
Application.CreateForm(TFormStage, FormStage);
Application.CreateForm(TFormFormularD3, FormFormularD3);
Application.CreateForm(TFormDovidka, FormDovidka);
Application.CreateForm(TFormJobList, FormJobList);
Application.CreateForm(TFormP2, FormP2);
Application.CreateForm(TFormProgramPropertys, FormProgramPropertys);
Application.CreateForm(TFormAllStageEditor, FormAllStageEditor);
Application.CreateForm(TFormChangeKatedra, FormChangeKatedra);
Application.CreateForm(TFormRepairFromOtherDB, FormRepairFromOtherDB);
Application.CreateForm(TFormInsHONER, FormInsHONER);
Application.CreateForm(TFormPensFund, FormPensFund);
Application.CreateForm(TDataModule1, DataModule1);
Application.CreateForm(TFormF_S_Name, FormF_S_Name);
Application.CreateForm(TFormChangeFaculty, FormChangeFaculty);
Application.CreateForm(TFormTable_7, FormTable_7);
Application.CreateForm(TFormBDay, FormBDay);
Application.Run;
setEnglish;
end.
unit FrmP2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Grids, DBGrids, DBCtrls, Mask, ComCtrls, ExtCtrls, Db,
DBTables,Prn_Proc,Al_st_ed;
type
TFormP2 = class(TForm)
Panel2: TPanel;
PageControl1: TPageControl;
TabSheetFormP2: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
TabSheetAll_Inform: TTabSheet;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
DBEditName: TDBEdit;
DBEditBirthday: TDBEdit;
TabSheetPasport_Inform: TTabSheet;
TabSheetMilitaryOrder: TTabSheet;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Panel4: TPanel;
BitBtn3: TBitBtn;
DBEditEmpl_Post: TDBEdit;
DataSourceMain: TDataSource;
TableMain: TTable;
DBEditName_Departm: TDBEdit;
DBEditRegion_Born: TDBEdit;
DBEditPlace_Born: TDBEdit;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
DBEditName_Scool: TDBEdit;
DBEditYearEndScool: TDBEdit;
Label31: TLabel;
Panel6: TPanel;
BitBtnCloseNewPedagog: TBitBtn;
DBComboBoxFirstName: TDBComboBox;
DBComboBoxSecondName: TDBComboBox;
DBComboBoxSpeciality_by_Diploma: TDBComboBox;
Label32: TLabel;
DBEditNumber_Diploma: TDBEdit;
Label33: TLabel;
DBComboBoxQualification_by_Diploma: TDBComboBox;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
DBEditPlaceLastWork: TDBEdit;
Label37: TLabel;
DBEditUnemloyReason: TDBEdit;
Label38: TLabel;
DBEditSerial_N_Pasport: TDBEdit;
DBEditPasport_N: TDBEdit;
Label39: TLabel;
Label40: TLabel;
DBEditDate_Begin_Pasport: TDBEdit;
Label41: TLabel;
DBEditZIP: TDBEdit;
DBComboBoxRegion_Living: TDBComboBox;
DBComboBoxStreet: TDBComboBox;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
DBComboBoxMailFemail: TDBComboBox;
DBComboBox8: TDBComboBox;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
DBEditKorpus: TDBEdit;
DBComboBoxAdding_to_building_N: TDBComboBox;
DBComboBoxAppartment_N: TDBComboBox;
Label50: TLabel;
Label51: TLabel;
DBEditHome_phone_N: TDBEdit;
Label52: TLabel;
DBEditN_papka: TDBEdit;
DBComboBoxMil_Kat_Oblik: TDBComboBox;
DBComboBoxMil_Sklad: TDBComboBox;
DBComboBoxMil_Zvanie: TDBComboBox;
DBComboBoxMil_Pridatn: TDBComboBox;
DBComboBoxMil_Vijskomat: TDBComboBox;
DBEditMil_Spec_Oblic: TDBEdit;
DBComboBoxMil_Grup_Oblik: TDBComboBox;
DBEditMil_N_Special: TDBEdit;
Label53: TLabel;
DBGridFamilyMember: TDBGrid;
DataSourceEmplPostChange: TDataSource;
TableEmplPostChange: TTable;
DataSourceHoliday: TDataSource;
TableHoliday: TTable;
DBComboBoxEducat: TDBComboBox;
DBComboBoxEducatForm: TDBComboBox;
DataSourceFamily: TDataSource;
TableFamily: TTable;
DBComboBoxEnded_Univercity: TDBComboBox;
DBComboBoxYear_End_Univercity: TDBComboBox;
DBComboBoxState_Born: TDBComboBox;
DBComboBoxField_Born: TDBComboBox;
DBComboBoxPlace_Get_Pasport: TDBComboBox;
DBComboBoxPlace_Living: TDBComboBox;
DBComboBoxBuilding_N: TDBComboBox;
DBComboBoxField_Living: TDBComboBox;
DBEditNameCopy: TDBEdit;
DBEditFirstNameCopy: TDBEdit;
DBEditSecondNameCopy: TDBEdit;
DBComboBoxFamily_state: TDBComboBox;
Panel5: TPanel;
DBNavigator1: TDBNavigator;
BitBtnWriteDB: TBitBtn;
Label54: TLabel;
DataSourceTableUniverc: TDataSource;
TableUniverc: TTable;
Label61: TLabel;
Panel7: TPanel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
EditAllStageYear: TEdit;
EditAllStageMonth: TEdit;
EditAllStageDay: TEdit;
Panel8: TPanel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
EditConstStageYear: TEdit;
EditConstStageMonth: TEdit;
EditConstStageDay: TEdit;
LabelNowDate: TLabel;
DBEditDayBegin_Diploma: TDBEdit;
Label62: TLabel;
DBEditWork_phone_N: TDBEdit;
Label63: TLabel;
DataSource1: TDataSource;
Table1: TTable;
Label64: TLabel;
procedure BitBtnCloseNewPedagogClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure DBEditNameKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxMailFemailKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxFirstNameKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxSecondNameKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxState_BornKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxField_BornKeyPress(Sender: TObject; var Key: Char);
procedure DBEditRegion_BornKeyPress(Sender: TObject; var Key: Char);
procedure DBEditName_ScoolKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxEducatFormKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxSpeciality_by_DiplomaKeyPress(Sender: TObject;
var Key: Char);
procedure DBComboBoxQualification_by_DiplomaKeyPress(Sender: TObject;
var Key: Char);
procedure DBComboBoxFamily_stateKeyPress(Sender: TObject;
var Key: Char);
procedure DBComboBoxPlace_Get_PasportKeyPress(Sender: TObject;
var Key: Char);
procedure DBComboBoxField_LivingKeyPress(Sender: TObject;
var Key: Char);
procedure DBComboBoxRegion_LivingKeyPress(Sender: TObject;
var Key: Char);
procedure DBComboBoxStreetKeyPress(Sender: TObject; var Key: Char);
procedure DBEditPlace_BornKeyPress(Sender: TObject; var Key: Char);
procedure DBEditUnemloyReasonKeyPress(Sender: TObject; var Key: Char);
procedure DBEditPlaceLastWorkKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxYear_End_UnivercityKeyPress(Sender: TObject;
var Key: Char);
procedure DBEditNumber_DiplomaKeyPress(Sender: TObject; var Key: Char);
procedure DBEditPasport_NKeyPress(Sender: TObject; var Key: Char);
procedure DBEditZIPKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxBuilding_NKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxAppartment_NKeyPress(Sender: TObject;
var Key: Char);
// procedure DBEditHome_phone_NKeyPress(Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxPlace_LivingKeyPress(Sender: TObject;
var Key: Char);
procedure DBEditSerial_N_PasportKeyPress(Sender: TObject;
var Key: Char);
procedure BitBtnWriteDBClick(Sender: TObject);
procedure DBComboBoxAdding_to_building_NKeyPress(Sender: TObject;
var Key: Char);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure DBComboBoxMil_Kat_OblikKeyPress(Sender: TObject;
var Key: Char);
procedure DBComboBoxMil_SkladKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxMil_ZvanieKeyPress(Sender: TObject; var Key: Char);
procedure DBEditMil_N_SpecialKeyPress(Sender: TObject; var Key: Char);
procedure DBComboBoxMil_PridatnKeyPress(Sender: TObject;
var Key: Char);
procedure DBComboBoxMil_VijskomatKeyPress(Sender: TObject;
var Key: Char);
procedure DBEditMil_Spec_OblicKeyPress(Sender: TObject; var Key: Char);
procedure DBEditN_papkaKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormP2: TFormP2;
KeyInNumberED : String;
QuitEditForm : Boolean;
implementation
{$R *.DFM}
procedure TFormP2.BitBtnCloseNewPedagogClick(Sender: TObject);
begin
Close;
end;
procedure TFormP2.FormActivate(Sender: TObject);
Var
i : Integer;
TmpCompon:tComponent;
Begin
Top:=1;
{ KeyInNumberED:=Pusto;}
QuitEditForm:=False;
LabelNowDate.Caption:=DateToStr(Date);
LabelNowDate.Visible:=True;
// ShowMessage(LabelNowDate.Caption);
with TableMain do
begin
Close;
{ Active:=True;}
end;
{инициализация полей }
For i:=0 to ComponentCount-1 do
begin
TmpCompon:=Components[i];
if (TmpCompon is tEdit) then
with Components[i] as tEdit do Clear;
if (TmpCompon is tDBEdit) then
with Components[i] as tDBEdit do Clear;
if (TmpCompon is tComboBox) then
with Components[i] as tComboBox do Clear;
if (TmpCompon is tDBComboBox) then
with Components[i] as tDBComboBox do Clear;
if (TmpCompon is tMemo) then
with Components[i] as tMemo do Clear;
end;
// загрузка и установка параметров
DBComboBoxMailFemail.Items.LoadFromFile('stat.txt');
DBComboBoxFirstName.Items.LoadFromFile('firsname.txt');
DBComboBoxSecondName.Items.LoadFromFile('sec_name.txt');
DBComboBoxEducat.Items.LoadFromFile('educat.txt');
DBComboBoxEducatForm.Items.LoadFromFile('ed_sort.txt');
DBComboBoxSpeciality_by_Diploma.Items.LoadFromFile('Spe_DipL.txt');
DBComboBoxQualification_by_Diploma.Items.LoadFromFile('Qualif.txt');
DBComboBoxFamily_state.Items.LoadFromFile('Family.txt');
DBComboBoxField_Living.Items.LoadFromFile('FieldLiv.txt');
DBComboBoxState_Born.Items.LoadFromFile('States.txt');
DBComboBoxPlace_Living.Items.LoadFromFile('City.txt');
DBComboBoxPlace_Get_Pasport.Items.LoadFromFile('PASPORT.txt');
DBComboBoxField_Born.Items.LoadFromFile('Fieldbor.txt');
DBComboBoxEnded_Univercity.Items.LoadFromFile('Vuz.txt');
{military}
DBComboBoxMil_Grup_Oblik.Items.Add('3');
DBComboBoxMil_Grup_Oblik.Items.Add('6');
DBComboBoxMil_Kat_Oblik.Items.LoadFromFile('Mil_zapas.txt');
DBComboBoxMil_Sklad.Items.LoadFromFile('Mil_sklad.txt');
DBComboBoxMil_Pridatn.Items.LoadFromFile('Mil_pridatn.txt');
DBComboBoxMil_Zvanie.Items.LoadFromFile('Military.txt');
DBComboBoxMil_Vijskomat.Items.LoadFromFile('Region.txt');
{install current Date !!!!!!}
for i:=SysYear downto SysYear-60 do
DBComboBoxYear_End_Univercity.Items.Add(IntToStr(i));
DBComboBoxRegion_Living.Items.LoadFromFile('Region.txt');
DBComboBoxStreet.Items.LoadFromFile('Street.txt');
// building #
for i:=1 to 200 do
DBComboBoxBuilding_N.Items.Add(IntToStr(i));
DBComboBoxAdding_to_building_N.Items.LoadFromFile('AddIndex.txt');
// appartment #
for i:=1 to 200 do
DBComboBoxAppartment_N.Items.Add(IntToStr(i));
{поиск записи по номеру и cчитівание информации }
{ ShowMessage(KeyInNumber);}
with DBGridFamilyMember do
begin
end;
TableMain.Active:=True;
DBEditName_Departm.ReadOnly:=True;
DBEditEmpl_Post.ReadOnly:=True;
DBEditNameCopy.ReadOnly:=True;
DBEditFirstNameCopy.ReadOnly:=True;
DBEditSecondNameCopy.ReadOnly:=True;
{
DBEditName.ReadOnly:=True;
DBEditFirstName.ReadOnly:=True;
DBEditSecondName.ReadOnly:=True;
}
with TableUniverc do
begin
TableUniverc.Open;
DisableControls;
try
First;
FieldByName('Code_UKUD').EditMask:='999999';
FieldByName('Code_Edrpou').EditMask:='99999999';
Finally;
EnableControls;
end;
end;
with TableMain do
begin
FieldByName('N_papka').EditMask:='!9999;0;';
FieldByName('MailFemail').EditMask:='A';
FieldByName('Home_phone_N').EditMask:='!999-9999;0;';
FieldByName('Work_phone_N').EditMask:='!999-9999;0;';
FieldByName('Birthday').EditMask:='!00.00.0000;0';
FieldByName('DayBegin_Diploma').EditMask:='00.00.0000';
// FieldByName('Date_Begin_Pasport').EditText:='99.99.9999';
FieldByName('Date_Begin_Pasport').EditMask:='99.99.9999';
FieldByName('ZIP_Code').EditMask:='!900000;0';
FieldByName('Pasport_N').EditMask:='!000000;0';
FieldByName('YearEndScool').EditMask:='99.99.9999';
// military
FieldByName('Mil_Grup_Oblik').EditMask:='!0;0';
FieldByName('Mil_N_Special').EditMask:='!000000;0';
FieldByName('Mil_Spec_Oblic').EditMask:='!000000;0';
end;
with TableMain do
begin
DisableControls;
try
First;
{what this ?}
for i:=1 to RecordCount do
begin
{If record was searched }
if (FieldByName('NumberID').AsString=KeyInNumberED) then Exit
ELSE
If i<RecordCount then Next;
end;
Finally;
EnableControls;
Edit;
end;
end;
// .Text:=Format('%ddd-dddddd', )
end; {}
procedure TFormP2.DBEditNameKeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBEditName.SetFocus;
DBEditName.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxMailFemailKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxMailFemail.SetFocus;
DBComboBoxMailFemail.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxFirstNameKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxFirstName.SetFocus;
DBComboBoxFirstName.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxSecondNameKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxSecondName.SetFocus;
DBComboBoxSecondName.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBComboBoxState_BornKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxState_Born.SetFocus;
DBComboBoxState_Born.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBComboBoxField_BornKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxField_Born.SetFocus;
DBComboBoxField_Born.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBEditRegion_BornKeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBEditRegion_Born.SetFocus;
DBEditRegion_Born.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBEditName_ScoolKeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBEditName_Scool.SetFocus;
DBEditName_Scool.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBComboBoxEducatFormKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxEducatForm.SetFocus;
DBComboBoxEducatForm.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxSpeciality_by_DiplomaKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxSpeciality_by_Diploma.SetFocus;
DBComboBoxSpeciality_by_Diploma.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxQualification_by_DiplomaKeyPress(
Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxQualification_by_Diploma.SetFocus;
DBComboBoxQualification_by_Diploma.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxFamily_stateKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxFamily_state.SetFocus;
DBComboBoxFamily_state.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxPlace_Get_PasportKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicCharExtended(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainianExtended(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxPlace_Get_Pasport.SetFocus;
DBComboBoxPlace_Get_Pasport.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxField_LivingKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxField_Living.SetFocus;
DBComboBoxField_Living.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxRegion_LivingKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxRegion_Living.SetFocus;
DBComboBoxRegion_Living.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxStreetKeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxStreet.SetFocus;
DBComboBoxStreet.Refresh;
Exit;
end;
end;
procedure TFormP2.DBEditPlace_BornKeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBEditPlace_Born.SetFocus;
DBEditPlace_Born.Refresh;
Exit;
end;
end;
procedure TFormP2.DBEditUnemloyReasonKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicCharExtended(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainianExtended(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBEditUnemloyReason.SetFocus;
DBEditUnemloyReason.Refresh;
Exit;
end;
end;
procedure TFormP2.DBEditPlaceLastWorkKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicCharExtended(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainianExtended(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBEditPlaceLastWork.SetFocus;
DBEditPlaceLastWork.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBComboBoxPlace_LivingKeyPress(Sender: TObject;
var Key: Char);
{}
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxPlace_Living.SetFocus;
DBComboBoxPlace_Living.Refresh;
Exit;
end;
end; {}
procedure TFormP2.DBEditSerial_N_PasportKeyPress(Sender: TObject;
var Key: Char);
{}
begin
If (Key=BackSpase)then Exit;
If (IsKirillicChar(Key)or IsDigit(Key))
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBEditSerial_N_Pasport.SetFocus;
DBEditSerial_N_Pasport.Refresh;
Exit;
end;
end;
procedure TFormP2.DBComboBoxYear_End_UnivercityKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end;{}
procedure TFormP2.DBEditNumber_DiplomaKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end; {}
procedure TFormP2.DBEditPasport_NKeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end;{}
procedure TFormP2.DBEditZIPKeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end; {}
procedure TFormP2.DBComboBoxBuilding_NKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end;
procedure TFormP2.DBComboBoxAppartment_NKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end; {}
{
procedure TFormP2.DBEditHome_phone_NKeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end; {}
procedure TFormP2.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
// ChangeLetterLitleToBigUkrainian(Key);
end;
procedure TFormP2.BitBtnWriteDBClick(Sender: TObject);
begin
with TableMain do
begin
Post;
Refresh;
Edit;
end;
end;
procedure TFormP2.DBComboBoxAdding_to_building_NKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
end; {}
procedure TFormP2.BitBtn4Click(Sender: TObject);
begin
FormAllStageEditor.Show;
end;
procedure TFormP2.BitBtn5Click(Sender: TObject);
begin
FormAllStageEditor.Show;
end;
procedure TFormP2.DBComboBoxMil_Kat_OblikKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicCharExtended(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainianExtended(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxMil_Kat_Oblik.SetFocus;
DBComboBoxMil_Kat_Oblik.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBComboBoxMil_SkladKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicCharExtended(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainianExtended(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxMil_Sklad.SetFocus;
DBComboBoxMil_Sklad.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBComboBoxMil_ZvanieKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxMil_Zvanie.SetFocus;
DBComboBoxMil_Zvanie.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBEditMil_N_SpecialKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end; {}
procedure TFormP2.DBComboBoxMil_PridatnKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicCharExtended(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainianExtended(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxMil_Pridatn.SetFocus;
DBComboBoxMil_Pridatn.Refresh;
Exit;
end;
end; {}
procedure TFormP2.DBComboBoxMil_VijskomatKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If IsKirillicChar(Key)
then
begin
{Change BIG letter on the litle letter}
ChangeLetterLitleToBigUkrainian(Key);
end
else
begin
MessageDlg('ПЕРЕЙДІТЬ БУДЬ ЛАСКА НА УКРАЇНСЬКИЙ РЕГІСТР ',mtError,[mbOk],0);
Key:=Null;
DBComboBoxMil_Vijskomat.SetFocus;
DBComboBoxMil_Vijskomat.Refresh;
Exit;
end;
end;{}
procedure TFormP2.DBEditMil_Spec_OblicKeyPress(Sender: TObject;
var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end;{}
procedure TFormP2.DBEditN_papkaKeyPress(Sender: TObject; var Key: Char);
begin
If (Key=BackSpase)then Exit;
If not IsDigit(Key)
then Key:=Null;
end;{}
procedure TFormP2.FormCreate(Sender: TObject);
begin
Top:=0;
Left:=0;
width:=799;
Height:=572;
WindowState:=wsNormal;
Position:=poDefault;
end;
end.