" " (48897)













:

" "




1

2 -

4

5

6

7

8

9

10

11




. - . :  , . , . .

. . , 䒺 .

. , , . '. ³ - , , , , ' 䳿, .

, , . . , , .

, , , , .

: - , , .



1


, . . , - , ᒺ . , .

, , . .

:

, ( ) , ( , ) ;

, , , ;

, ;

, ;

- ;

, ;

.

:

(, , );

, ;

.

, , Dlh.

Dlh , , bjt sl, Dlh, .

. , . Dlh Wndws.

Dlh , bjt sl. bjt sl ᒺ- . , , , .


2 -


ᒺ , - , , .

- - , .

, , , . :


1


. , :

M=5, : 100-95%;

M=4, : 94-76%;

M=, : 75-60%;

M=2, <60%, M .

ʳ K :20 100%


K % → = K*100/20;


.


3.


, . , .

:

- );

- ( );

- ( ).

-.

- (), .

, :

˳ , ;

. , . .

, .

, .


2


, . :


3


4


4


.


1


2 rd 7


240

1

100

³ 1


2

100

³ 2


100

³


4

100

³ 4





3

ntgr

ʳ

k

ntgr

ʳ

nk

ntgr

KtBl

rl

ʳ

tm

³



5


, , .

, . , .

, Dlh .

:

- ³ :

1. DBMm1 . .

2. DBdt1, DBdt2, DBdt, DBdt4 . .

. DBmg1 . .

5. RdGru1 RdButtn.

6. BtBtn1, BtBtn2, BtBtn, BtBtn4, BtBtn5, BtBtn6 .

7. Lbl1, Lbl2, Lbl DBdt1, DBdt2, DBdt, DBdt4, DBMm1.

8. DBhkB1, DBhkB2, DBhkB, DBhkB4 . .

- : Tbl1, MnMnu1, DtSur1, nгturDlg1, Mnfst1.


5


:

- ³ :

1. DBMm1 . .

2. DBmg1 . .

. RdGru1 RdButtn.

4. BtBtn1 䳿.

5. Lbl .

6. rgrsBr1, Gug1 .

7. DBhkB1, DBhkB2, DBhkB, DBhkB4

. .

- : Tbl1, Tmr1, DtSur1, Mnfst1.


6


6


. Dlh 7.0, , bjt sl.

. , .

rgrm TstRdtr;

uss

Frms,

RDTR n 'RDTR.s' {Frm1};

{$R *.rs}

bgn

ltn.ntlz;

ltn.rtFrm(TFrm1, Frm1);

ltn.Run;

nd.

_____________________________________________________________

unt RDTR;

ntrf

uss

Wndws, Mssgs, SysUtls, Vrnts, lsss, Grhs, ntrls, Frms,

Dlgs, ttrls, DBtrls, Grds, DBGrds, DB, DBTbls, Stdtrls, Msk,

Buttns, Mnus, tDlgs, Mn;

ty

TFrm1 = lss(TFrm)

DtSur1: TDtSur;

DBGrd1: TDBGrd;

DBNvgtr1: TDBNvgtr;

DBMm1: TDBMm;

DBdt1: TDBdt;

DBdt2: TDBdt;

DBdt: TDBdt;

DBdt4: TDBdt;

DBhkB1: TDBhkB;

DBhkB2: TDBhkB;

DBhkB: TDBhkB;

DBhkB4: TDBhkB;


MnMnu1: TMnMnu;

N1: TMnutm;

N2: TMnutm;

N: TMnutm;

N4: TMnutm;

Lbl1: TLbl;

Lbl2: TLbl;

Lbl: TLbl;

Lbl4: TLbl;

Lbl5: TLbl;

Lbl6: TLbl;

BtBtn1: TBtBtn;

BtBtn2: TBtBtn;

BtBtn: TBtBtn;



BtBtn5: TBtBtn;

BtBtn6: TBtBtn;

DBmg1: TDBmg;

nгturDlg1: TnгturDlg;

BtBtn7: TBtBtn;

DBRdGru1: TDBRdGru;

Mnfst1: TMnfst;

BtBtn4: TBtBtn;

Lbl7: TLbl;

Tbl1: TTbl;

rdur Shwгtur;

rdur N4lk(Sndr: Tbjt);

rdur BtBtn1lk(Sndr: Tbjt);

rdur BtBtn2lk(Sndr: Tbjt);

rdur BtBtnlk(Sndr: Tbjt);

rdur BtBtn5lk(Sndr: Tbjt);

rdur BtBtn6lk(Sndr: Tbjt);

rdur BtBtn7lk(Sndr: Tbjt);

rdur DBRdGru1hng(Sndr: Tbjt);

rdur Frmrt(Sndr: Tbjt);

rdur N2lk(Sndr: Tbjt);

rdur BtBtn4lk(Sndr: Tbjt);

rvt

{ rvt dlrtns }

ubl

{ ubl dlrtns }

nd;



vr

Frm1: TFrm1;

DtBs:strng;

:Lngnt;

mlmnttn

uss Unt1;

{$R *.dfm}


rdur TFrm1.Shwгtur;

bgn

f DBRdGru1.tmnd=0 thn

bgn

DBmg1.Vsbl:=tru;

BtBtn7.Vsbl:=tru;

Lbl1.Vsbl:=fls;

DBMm1.Vsbl:=fls;

nd

ls

bgn

DBmg1.Vsbl:=fls;

BtBtn7.Vsbl:=fls;

Lbl1.Vsbl:=tru;

DBMm1.Vsbl:=tru;

nd;

nd;


rdur TFrm1.N4lk(Sndr: Tbjt);

bgn

Frm1.ls;

nd;


rdur TFrm1.BtBtn1lk(Sndr: Tbjt);

bgn


f <=1 thn BtBtn1.nbld:=fls

ls bgn

BtBtn2.nbld:=tru;

d();

Lbl7.tn:=' '+ntTStr();

Tbl1.rr;

BtBtn.nbld:=tru;

BtBtn5.nbld:=tru;

BtBtn6.nbld:=fls;

BtBtn7.nbld:=fls;

DBMm1.nbld:=fls;

DBdt1.nbld:=fls;

DBdt2.nbld:=fls;

DBdt.nbld:=fls;

DBdt4.nbld:=fls;

DBhkB1.nbld:=fls;

DBhkB2.nbld:=fls;

DBhkB.nbld:=fls;

DBhkB4.nbld:=fls;

DBRdGru1.nbld:=fls;

nd;

nd;


rdur TFrm1.BtBtn2lk(Sndr: Tbjt);

bgn

f >=Tbl1.Rrdunt thn BtBtn2.nbld:=fls

ls bgn

BtBtn1.nbld:=tru;

n();

Lbl7.tn:=' '+ntTStr();

Tbl1.Nt;

BtBtn.nbld:=tru;

BtBtn5.nbld:=tru;

BtBtn6.nbld:=fls;

BtBtn7.nbld:=fls;

DBMm1.nbld:=fls;

DBdt1.nbld:=fls;

DBdt2.nbld:=fls;

DBdt.nbld:=fls;

DBdt4.nbld:=fls;

DBhkB1.nbld:=fls;

DBhkB2.nbld:=fls;

DBhkB.nbld:=fls;

DBhkB4.nbld:=fls;

DBRdGru1.nbld:=fls;

nd;

nd;


rdur TFrm1.BtBtnlk(Sndr: Tbjt);

bgn

Tbl1.nd;


BtBtn1.nbld:=tru;

BtBtn2.nbld:=tru;

BtBtn.nbld:=fls;

BtBtn5.nbld:=fls;

BtBtn6.nbld:=tru;

BtBtn7.nbld:=tru;

DBMm1.nbld:=tru;

DBdt1.nbld:=tru;

DBdt2.nbld:=tru;

DBdt.nbld:=tru;



DBdt4.nbld:=tru;

DBhkB1.nbld:=tru;

DBhkB2.nbld:=tru;

DBhkB.nbld:=tru;

DBhkB4.nbld:=tru;

DBRdGru1.nbld:=tru;

nd;


rdur TFrm1.BtBtn5lk(Sndr: Tbjt);

bgn

Tbl1.dt;

BtBtn.nbld:=fls;

BtBtn5.nbld:=fls;

BtBtn6.nbld:=tru;

BtBtn7.nbld:=tru;

DBMm1.nbld:=tru;

DBdt1.nbld:=tru;

DBdt2.nbld:=tru;

DBdt.nbld:=tru;

DBdt4.nbld:=tru;

DBhkB1.nbld:=tru;

DBhkB2.nbld:=tru;

DBhkB.nbld:=tru;

DBhkB4.nbld:=tru;

DBRdGru1.nbld:=tru;

nd;


rdur TFrm1.BtBtn6lk(Sndr: Tbjt);

bgn

Tbl1.st;

BtBtn.nbld:=tru;

BtBtn5.nbld:=tru;

BtBtn6.nbld:=fls;

BtBtn7.nbld:=fls;

DBMm1.nbld:=fls;

DBdt1.nbld:=fls;

DBdt2.nbld:=fls;

DBdt.nbld:=fls;

DBdt4.nbld:=fls;

DBhkB1.nbld:=fls;

DBhkB2.nbld:=fls;

DBhkB.nbld:=fls;

DBhkB4.nbld:=fls;

DBRdGru1.nbld:=fls;

nd;


rdur TFrm1.BtBtn7lk(Sndr: Tbjt);

bgn

f nгturDlg1.ut thn

DBmg1.гtur.LdFrmFl(nгturDlg1.FlNm);

nd;


rdur TFrm1.DBRdGru1hng(Sndr: Tbjt);

bgn

Shwгtur;

nd;


rdur TFrm1.Frmrt(Sndr: Tbjt);

bgn

DtBs := trtFlDr(ltn.Nm) + '\DB';

:=1;

Lbl7.tn:=' '+ntTStr(); nd;


rdur TFrm1.N2lk(Sndr: Tbjt);

bgn

BtBtn2.nbld:=tru;

BtBtn.nbld:=tru;

BtBtn4.nbld:=tru;

BtBtn5.nbld:=tru;

Lbl7.Vsbl:=tru;

Tbl1.DtbsNm:=DtBs;

Tbl1.TblNm:='utny_.db';

DtSur1.DtSt:=Tbl1;


Tbl1.tv:=tru;

DBGrd1.DtSur:=DtSur1;

DBNvgtr1.DtSur:=DtSur1;

nd;


rdur TFrm1.BtBtn4lk(Sndr: Tbjt);

bgn

Tbl1.Dlt;

nd;

nd.


, .

rgrm TST;

uss

Frms,

Unt1 n 'Unt1.s' {Frm1},

Unt2 n 'Unt2.s' {Frm2},

Unt n 'Unt.s' {butB},

Unt4 n 'Unt4.s' {Frm4},

Unt5 n 'Unt5.s' {Frm5},

Unt6 n 'Unt6.s' {Frm6};

{$R *.rs}

bgn

ltn.ntlz;

ltn.rtFrm(TFrm1, Frm1);

ltn.rtFrm(TFrm2, Frm2);

ltn.rtFrm(TbutB, butB);

ltn.rtFrm(TFrm4, Frm4);

ltn.rtFrm(TFrm5, Frm5);

ltn.rtFrm(TFrm6, Frm6);

ltn.Run;

nd.

_____________________________________________________________

unt Unt1;

ntrf

uss

Wndws, Mssgs, SysUtls, Vrnts, lsss, Grhs, ntrls, Frms,

Dlgs, Mnus, ttrls, DB, DBTbls;


ty

TFrm1 = lss(TFrm)

mg1: Tmg;

MnMnu1: TMnMnu;

N1: TMnutm;

N2: TMnutm;

N: TMnutm;

N4: TMnutm;

N5: TMnutm;

N6: TMnutm;



rdur N6lk(Sndr: Tbjt);

rdur Nlk(Sndr: Tbjt);

rdur N2lk(Sndr: Tbjt);

rdur ShwRgstrtn;

rdur Frmrt(Sndr: Tbjt);

rdur N4lk(Sndr: Tbjt);

rdur FrmShw(Sndr: Tbjt);

rvt

{ rvt dlrtns }

ubl

{ ubl dlrtns }

nd;


vr

Frm1: TFrm1;

DtBs: Strng;


mlmnttn


uss Unt2, Unt, Unt4, Unt5;


{$R *.dfm}


rdur TFrm1.N6lk(Sndr: Tbjt);

bgn

Frm1.ls;

nd;


rdur TFrm1.Nlk(Sndr: Tbjt);

bgn

Frm2.Shw;

nd;


rdur TFrm1.N2lk(Sndr: Tbjt);

bgn

butB.ShwMdl;

nd;


rdur TFrm1.ShwRgstrtn;

bgn

Frm4.Shw;

Frm4.dt1.Tt:='';

Frm4.dt2.Tt:='';

Frm4.dt.Tt:='';

Frm4.dt1.StFus;

nd;


rdur TFrm1.Frmrt(Sndr: Tbjt);

bgn

DtBs:=trtFlDr(ltn.Nm)+'\DB';

nd;


rdur TFrm1.N4lk(Sndr: Tbjt);

bgn

ShwRgstrtn;

nd;


rdur TFrm1.FrmShw(Sndr: Tbjt);

bgn

Frm5.Tbl1.DtbsNm:=DtBs;

Frm5.Tbl1.TblNm:='utny_.db';

Frm5.DtSur1.DtSt:=Frm5.Tbl1;


Frm5.Tbl1.tv:=tru;

nd;

nd.

_____________________________________________________________


unt Unt2;

ntrf

uss

Wndws, Mssgs, SysUtls, Vrnts, lsss, Grhs, ntrls, Frms,

Dlgs, Stdtrls, Buttns;


ty

TFrm2 = lss(TFrm)

Lbl1: TLbl;

dt1: Tdt;

Lbl2: TLbl;

dt2: Tdt;

Lbl: TLbl;

BtBtn1: TBtBtn;

GruB1: TGruB;

rdur BtBtn1lk(Sndr: Tbjt);

rdur Frmls(Sndr: Tbjt; vr tn: Tlstn);

rvt

{ rvt dlrtns }

ubl

{ ubl dlrtns }

nd;


vr

Frm2: TFrm2;

1,d1,d2:ntgr;

mlmnttn


{$R *.dfm}


rdur TFrm2.BtBtn1lk(Sndr: Tbjt);

bgn

Vl(dt2.Tt,1,d2);

Vl(dt1.Tt,1,d1);

f (d1<>0) r (d2<>0) thn

MssgDlg(' !', mtnfrmtn, [mbk], 0)

ls Frm2.ls;

nd;


rdur TFrm2.Frmls(Sndr: Tbjt; vr tn: Tlstn);

bgn

Vl(dt2.Tt,1,d2);

Vl(dt1.Tt,1,d1);

f (d1<>0) r (d2<>0) thn

MssgDlg(' !', mtnfrmtn, [mbk], 0);

nd;

nd.


_____________________________________________________________


unt Unt;

ntrf

uss Wndws, SysUtls, lsss, Grhs, Frms, ntrls, Stdtrls,

Buttns, ttrls, jg;


ty

TbutB = lss(TFrm)



nl1: Tnl;

rgrmn: Tmg;

rdutNm: TLbl;

Vrsn: TLbl;

yrght: TLbl;

mmnts: TLbl;

KButtn: TButtn;

rvt

{ rvt dlrtns }

ubl

{ ubl dlrtns }

nd;


vr

butB: TbutB;


mlmnttn

{$R *.dfm}

nd.

_____________________________________________________________


unt Unt4;

ntrf

uss

Wndws, Mssgs, SysUtls, Vrnts, lsss, Grhs, ntrls, Frms,

Dlgs, Stdtrls, Buttns;

ty

TFrm4 = lss(TFrm)

GruB1: TGruB;

Lbl1: TLbl;

Lbl2: TLbl;

Lbl: TLbl;

dt1: Tdt;

dt2: Tdt;

dt: Tdt;

BtBtn1: TBtBtn;

rdur BtBtn1lk(Sndr: Tbjt);

rvt

{ rvt dlrtns }

ubl

{ ubl dlrtns }

nd;


vr

Frm4: TFrm4;


mlmnttn


uss Unt1, Unt5;


{$R *.dfm}


rdur TFrm4.BtBtn1lk(Sndr: Tbjt);

bgn

f (dt1.Tt<>'') nd (dt2.Tt<>'') nd (dt.Tt<>'')

thn

bgn

Frm4.ls;

Frm1.Hd;

Frm5.Shw;

Frm5.Lbl7.tn:='²²: '+dt1.Tt+' '+dt2.Tt;


Frm5.Lbl9.tn:='0';

Frm5.Tbl1.Frst;

Frm5.hkB1.hkd:=fls;

Frm5.hkB2.hkd:=fls;

Frm5.hkB.hkd:=fls;

Frm5.hkB4.hkd:=fls;

f Frm5.DBRdGru1.tmnd=0 thn

bgn

Frm5.DBmg1.Vsbl:=tru;

Frm5.DBMm1.Vsbl:=fls;

nd

ls

bgn

Frm5.DBmg1.Vsbl:=fls;

Frm5.DBMm1.Vsbl:=tru;

nd;

nd

ls MssgDlg(' !', mtnfrmtn, [mbk], 0);

nd;

nd.

_____________________________________________________________

unt Unt5;

ntrf

uss

Wndws, Mssgs, SysUtls, Vrnts, lsss, Grhs, ntrls, Frms,

Dlgs, Stdtrls, ttrls, DBtrls, DB, DBTbls, Buttns, Mn,

mtrls, Gugs;


ty

TFrm5 = lss(TFrm)

Lbl1: TLbl;

hkB1: ThkB;

hkB2: ThkB;

hkB: ThkB;

hkB4: ThkB;

Lbl2: TLbl;

Lbl: TLbl;

Tmr1: TTmr;

Lbl4: TLbl;

Lbl5: TLbl;

DtSur1: TDtSur;

Tbl1: TTbl;

DBTt2: TDBTt;

DBTt: TDBTt;

DBTt4: TDBTt;

DBTt5: TDBTt;

DBMm1: TDBMm;

DBRdGru1: TDBRdGru;

BtBtn1: TBtBtn;

DBmg1: TDBmg;

Lbl7: TLbl;

GruB1: TGruB;

DBhkB1: TDBhkB;

DBhkB2: TDBhkB;

DBhkB: TDBhkB;

DBhkB4: TDBhkB;

Lbl8: TLbl;

Lbl9: TLbl;

Mnfst1: TMnfst;

rgrssBr1: TrgrssBr;


Gug1: TGug;

rdur Frmls(Sndr: Tbjt; vr tn: Tlstn);

rdur Tmr1Tmr(Sndr: Tbjt);

rdur BtBtn1lk(Sndr: Tbjt);

rdur FrmShw(Sndr: Tbjt);

rvt

{ rvt dlrtns }

ubl

{ ubl dlrtns }

nd;


vr

Frm5: TFrm5;

nk,k,:ntgr;

KtBl:rl;

,1:TTm;

mlmnttn

uss Unt1, Unt2, Unt4, Unt6;

{$R *.dfm}

rdur Gvnk;

bgn

KtBl:=k*100/StrTnt(Frm2.dt1.Tt);

f (KtBl<=100) nd (KtBl>=95) thn nk:=5

ls

f (KtBl<=94) nd (KtBl>=76) thn nk:=4

ls

f (KtBl<=75) nd (KtBl>=60) thn nk:=

ls nk:=2;

nd;

rdur Shwnk;

bgn

Frm5.Hd;

Frm6.Lbl1.tn:=Frm4.dt1.Tt+' '+Frm4.dt2.Tt;

Frm6.Lbl2.tn:=' '+Frm4.dt.Tt;

Frm6.Lbl.tn:=' : '+ntTStr(-1)+'/'+Frm2.dt1.Tt;

Frm6.Lbl4.tn:=' : '+ntTStr(k)+'/'+Frm2.dt1.Tt;

Frm6.Lbl5.tn:=' : '+Frm2.dt2.Tt+' .';

Frm6.Lbl6.tn:=ntTStr(nk);

Frm6.Lbl7.tn:=' ֲ';

Frm6.Shw;

nd;

rdur TFrm5.Frmls(Sndr: Tbjt; vr tn: Tlstn);

bgn

Shwnk;

nd;

rdur TFrm5.Tmr1Tmr(Sndr: Tbjt);

bgn

f Lbl5.tn<>'0:00:00' thn

bgn

rgrssBr1.stn:=rgrssBr1.stn+1;

1:=StrTTm('0:00:01');

:=-1;

Lbl5.tn:=TmTStr();

nd

ls bgn Shwnk; nd; nd;

rdur TFrm5.BtBtn1lk(Sndr: Tbjt);

bgn

f (hkB1.hkd=fls) nd (hkB2.hkd=fls) nd (hkB.hkd=fls)

nd(hkB4.hkd=fls) thn MssgDlg(' !', mtnfrmtn, [mbk], 0)

ls

bgn

f (hkB1.hkd=DBhkB1.hkd) nd (hkB2.hkd=DBhkB2.hkd)

nd (hkB.hkd=DBhkB.hkd) nd (hkB4.hkd=DBhkB4.hkd)

thn bgn

k:=k+1;

Gug1.rgrss:=Gug1.rgrss+trun(100/StrTnt(Frm2.dt1.Tt));

nd;

:=+1;

Lbl1.tn:=' '+ntTStr();

Lbl9.tn:=ntTStr(k);

Tbl1.RN:=1+Rndm(Tbl1.Rrdunt);

f DBRdGru1.tmnd=0 thn

bgn

DBmg1.Vsbl:=tru;

DBMm1.Vsbl:=fls;

nd

ls

bgn

DBmg1.Vsbl:=fls;

DBMm1.Vsbl:=tru;

nd;

nd;

f (Gug1.rgrss<=100) nd (Gug1.rgrss>=95) thn Gug1.Frlr:=lMnygrn

ls

f (Gug1.rgrss<=94) nd (Gug1.rgrss>=76) thn Gug1.Frlr:=lyllw

ls

f (Gug1.rgrss<=75) nd (Gug1.rgrss>=60) thn Gug1.Frlr:=lrd

ls Gug1.Frlr:=lslvr;

hkB1.hkd:=fls;

hkB2.hkd:=fls;

hkB.hkd:=fls;

hkB4.hkd:=fls;

Gvnk;

f (>StrTnt(Frm2.dt1.Tt)) thn

bgn

Shwnk;

nd;

nd;

rdur TFrm5.FrmShw(Sndr: Tbjt);

bgn

:=1;

k:=0;

Lbl1.tn:=' 1';

Lbl4.tn:=TmTStr((StrTTm(Frm2.dt2.Tt)/60));

Lbl5.tn:=Lbl4.tn;

Tmr1.nbld:=tru;

:=StrTTm(Frm2.dt2.Tt)/60;

rgrssBr1.stn:=0;

rgrssBr1.M:=StrTnt(Frm2.dt2.Tt)*60;

Gug1.rgrss:=0;

nd;

nd.

_____________________________________________________________

unt Unt6;

ntrf

uss

Wndws, Mssgs, SysUtls, Vrnts, lsss, Grhs, ntrls, Frms,

Dlgs, Stdtrls, ttrls, Buttns;

ty

TFrm6 = lss(TFrm)

Lbl1: TLbl;

Lbl2: TLbl;

Lbl: TLbl;

Lbl4: TLbl;

Lbl5: TLbl;

Lbl6: TLbl;

Lbl7: TLbl;

BtBtn1: TBtBtn;






- .
, VIP-.
. .