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;

GruB1: TGruB;

Lbl8: TLbl;

rdur BtBtn1lk(Sndr: Tbjt);

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

rvt

{ rvt dlrtns }

ubl

{ ubl dlrtns }

nd;

vr

Frm6: TFrm6;

mlmnttn

uss Unt5, Unt1;

{$R *.dfm}

rdur TFrm6.BtBtn1lk(Sndr: Tbjt);

bgn

Frm5.Tmr1.nbld:=fls;

Frm6.ls;

Frm1.Shw;

nd;

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

bgn

Frm5.Tmr1.nbld:=fls;

Frm1.Shw;

nd;

nd.


« " "»
: ,
: 38056
: 3
: 14

54193
1
1

... , / . .., .., .., .., .. : , 2007. 39. .. - . . 13.00.02 ...

201452
18
7

... . - , , . 2. - 2.1 , ...

29682
0
0

... . ᒺ- , , "'". ֳ '- , ' . ' ? -, ...

367716
10
48

... ̲ʻ ֲ в Ҳ ʲί ֲ 3.1 (Dz) ᒺ ...

0