Алла / €««  / Attachments_reznikov_sa_bigmir_net_2013-12-04_1 / Dodatok

Додаток

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.