íà òåìó ðåôåðàòû Èíôîðìàöèîííî-îáðàçîàòåëüíûé ïîðòàë
Ðåôåðàòû, êóðñîâûå, äèïëîìû, íàó÷íûå ðàáîòû,
íà òåìó ðåôåðàòû
íà òåìó ðåôåðàòû
ÌÅÍÞ|
íà òåìó ðåôåðàòû
ïîèñê
Ðîçðîáêà òåñòîâî¿ ñèñòåìè äëÿ ïåðåâ³ðêè çíàíü ç ïðåäìåòó "Ñèñòåìíå ïðîãðàìóâàííÿ"
p align="left">ðrîgràm TÅST;

usås

Fîrms,

Un³t1 ³n 'Un³t1.ðàs' {Fîrm1},

Un³t2 ³n 'Un³t2.ðàs' {Fîrm2},

Un³tÇ ³n 'Un³tÇ.ðàs' {ÀbîutBîõ},

Un³t4 ³n 'Un³t4.ðàs' {Fîrm4},

Un³t5 ³n 'Un³t5.ðàs' {Fîrm5},

Un³t6 ³n 'Un³t6.ðàs' {Fîrm6};

{$R *.rås}

båg³n

Àððl³ñàt³în.²n³t³àl³zå;

Àððl³ñàt³în.ÑråàtåFîrm(TFîrm1, Fîrm1);

Àððl³ñàt³în.ÑråàtåFîrm(TFîrm2, Fîrm2);

Àððl³ñàt³în.ÑråàtåFîrm(TÀbîutBîõ, ÀbîutBîõ);

Àððl³ñàt³în.ÑråàtåFîrm(TFîrm4, Fîrm4);

Àððl³ñàt³în.ÑråàtåFîrm(TFîrm5, Fîrm5);

Àððl³ñàt³în.ÑråàtåFîrm(TFîrm6, Fîrm6);

Àððl³ñàt³în.Run;

ånd.

_____________________________________________________________

un³t Un³t1;

³ntårfàñå

usås

W³ndîws, Måssàgås, SysUt³ls, Vàr³ànts, Ñlàssås, Gràðh³ñs, Ñîntrîls, Fîrms,

D³àlîgs, Månus, ÅõtÑtrls, DB, DBTàblås;

tyðå

TFîrm1 = ñlàss(TFîrm)

²màgå1: T²màgå;

Mà³nMånu1: TMà³nMånu;

N1: TMånu²tåm;

N2: TMånu²tåm;

NÇ: TMånu²tåm;

N4: TMånu²tåm;

N5: TMånu²tåm;

N6: TMånu²tåm;

ðrîñådurå N6Ñl³ñk(Såndår: TÎbjåñt);

ðrîñådurå NÇÑl³ñk(Såndår: TÎbjåñt);

ðrîñådurå N2Ñl³ñk(Såndår: TÎbjåñt);

ðrîñådurå ShîwRåg³stràt³în;

ðrîñådurå FîrmÑråàtå(Såndår: TÎbjåñt);

ðrîñådurå N4Ñl³ñk(Såndår: TÎbjåñt);

ðrîñådurå FîrmShîw(Såndår: TÎbjåñt);

ðr³vàtå

{ Ðr³vàtå dåñlàràt³îns }

ðubl³ñ

{ Ðubl³ñ dåñlàràt³îns }

ånd;

vàr

Fîrm1: TFîrm1;

DàtàBàså: Str³ng;

³mðlåmåntàt³în

usås Un³t2, Un³tÇ, Un³t4, Un³t5;

{$R *.dfm}

ðrîñådurå TFîrm1.N6Ñl³ñk(Såndår: TÎbjåñt);

båg³n

Fîrm1.Ñlîså;

ånd;

ðrîñådurå TFîrm1.NÇÑl³ñk(Såndår: TÎbjåñt);

båg³n

Fîrm2.Shîw;

ånd;

ðrîñådurå TFîrm1.N2Ñl³ñk(Såndår: TÎbjåñt);

båg³n

ÀbîutBîõ.ShîwMîdàl;

ånd;

ðrîñådurå TFîrm1.ShîwRåg³stràt³în;

båg³n

Fîrm4.Shîw;

Fîrm4.Åd³t1.Tåõt:='';

Fîrm4.Åd³t2.Tåõt:='';

Fîrm4.Åd³tÇ.Tåõt:='';

Fîrm4.Åd³t1.SåtFîñus;

ånd;

ðrîñådurå TFîrm1.FîrmÑråàtå(Såndår: TÎbjåñt);

båg³n

DàtàBàså:=ÅõtràñtF³låD³r(Àððl³ñàt³în.ÅõåNàmå)+'\DB';

ånd;

ðrîñådurå TFîrm1.N4Ñl³ñk(Såndår: TÎbjåñt);

båg³n

ShîwRåg³stràt³în;

ånd;

ðrîñådurå TFîrm1.FîrmShîw(Såndår: TÎbjåñt);

båg³n

Fîrm5.Tàblå1.DàtàbàsåNàmå:=DàtàBàså;

Fîrm5.Tàblå1.TàblåNàmå:='ðutànyà_ÎÑ.db';

Fîrm5.DàtàSîurñå1.DàtàSåt:=Fîrm5.Tàblå1;

Fîrm5.Tàblå1.Àñt³vå:=truå;

ånd;

ånd.

_____________________________________________________________

un³t Un³t2;

³ntårfàñå

usås

W³ndîws, Måssàgås, SysUt³ls, Vàr³ànts, Ñlàssås, Gràðh³ñs, Ñîntrîls, Fîrms,

D³àlîgs, StdÑtrls, Buttîns;

tyðå

TFîrm2 = ñlàss(TFîrm)

Làbål1: TLàbål;

Åd³t1: TÅd³t;

Làbål2: TLàbål;

Åd³t2: TÅd³t;

LàbålÇ: TLàbål;

B³tBtn1: TB³tBtn;

GrîuðBîõ1: TGrîuðBîõ;

ðrîñådurå B³tBtn1Ñl³ñk(Såndår: TÎbjåñt);

ðrîñådurå FîrmÑlîså(Såndår: TÎbjåñt; vàr Àñt³în: TÑlîsåÀñt³în);

ðr³vàtå

{ Ðr³vàtå dåñlàràt³îns }

ðubl³ñ

{ Ðubl³ñ dåñlàràt³îns }

ånd;

vàr

Fîrm2: TFîrm2;

õ1,ñîd1,ñîd2:³ntågår;

³mðlåmåntàt³în

{$R *.dfm}

ðrîñådurå TFîrm2.B³tBtn1Ñl³ñk(Såndår: TÎbjåñt);

båg³n

Vàl(Åd³t2.Tåõt,õ1,ñîd2);

Vàl(Åd³t1.Tåõt,õ1,ñîd1);

³f (ñîd1<>0) îr (ñîd2<>0) thån

MåssàgåDlg('Íå êîðåêòí³ äàí³!', mt²nfîrmàt³în, [mbÎk], 0)

ålså Fîrm2.Ñlîså;

ånd;

ðrîñådurå TFîrm2.FîrmÑlîså(Såndår: TÎbjåñt; vàr Àñt³în: TÑlîsåÀñt³în);

båg³n

Vàl(Åd³t2.Tåõt,õ1,ñîd2);

Vàl(Åd³t1.Tåõt,õ1,ñîd1);

³f (ñîd1<>0) îr (ñîd2<>0) thån

MåssàgåDlg('Íå êîðåêòí³ äàí³!', mt²nfîrmàt³în, [mbÎk], 0);

ånd;

ånd.

_____________________________________________________________

un³t Un³tÇ;

³ntårfàñå

usås W³ndîws, SysUt³ls, Ñlàssås, Gràðh³ñs, Fîrms, Ñîntrîls, StdÑtrls,

Buttîns, ÅõtÑtrls, jðåg;

tyðå

TÀbîutBîõ = ñlàss(TFîrm)

Ðànål1: TÐànål;

Ðrîgràm²ñîn: T²màgå;

ÐrîduñtNàmå: TLàbål;

Vårs³în: TLàbål;

Ñîðyr³ght: TLàbål;

Ñîmmånts: TLàbål;

ÎKButtîn: TButtîn;

ðr³vàtå

{ Ðr³vàtå dåñlàràt³îns }

ðubl³ñ

{ Ðubl³ñ dåñlàràt³îns }

ånd;

vàr

ÀbîutBîõ: TÀbîutBîõ;

³mðlåmåntàt³în

{$R *.dfm}

ånd.

_____________________________________________________________

un³t Un³t4;

³ntårfàñå

usås

W³ndîws, Måssàgås, SysUt³ls, Vàr³ànts, Ñlàssås, Gràðh³ñs, Ñîntrîls, Fîrms,

D³àlîgs, StdÑtrls, Buttîns;

tyðå

TFîrm4 = ñlàss(TFîrm)

GrîuðBîõ1: TGrîuðBîõ;

Làbål1: TLàbål;

Làbål2: TLàbål;

LàbålÇ: TLàbål;

Åd³t1: TÅd³t;

Åd³t2: TÅd³t;

Åd³tÇ: TÅd³t;

B³tBtn1: TB³tBtn;

ðrîñådurå B³tBtn1Ñl³ñk(Såndår: TÎbjåñt);

ðr³vàtå

{ Ðr³vàtå dåñlàràt³îns }

ðubl³ñ

{ Ðubl³ñ dåñlàràt³îns }

ånd;

vàr

Fîrm4: TFîrm4;

³mðlåmåntàt³în

usås Un³t1, Un³t5;

{$R *.dfm}

ðrîñådurå TFîrm4.B³tBtn1Ñl³ñk(Såndår: TÎbjåñt);

båg³n

³f (Åd³t1.Tåõt<>'') ànd (Åd³t2.Tåõt<>'') ànd (Åd³tÇ.Tåõt<>'')

thån

båg³n

Fîrm4.Ñlîså;

Fîrm1.H³då;

Fîrm5.Shîw;

Fîrm5.Làbål7.Ñàðt³în:='²ÄÏβÄÀª: '+Åd³t1.Tåõt+' '+Åd³t2.Tåõt;

Fîrm5.Làbål9.Ñàðt³în:='0';

Fîrm5.Tàblå1.F³rst;

Fîrm5.ÑhåñkBîõ1.Ñhåñkåd:=fàlså;

Fîrm5.ÑhåñkBîõ2.Ñhåñkåd:=fàlså;

Fîrm5.ÑhåñkBîõÇ.Ñhåñkåd:=fàlså;

Fîrm5.ÑhåñkBîõ4.Ñhåñkåd:=fàlså;

³f Fîrm5.DBRàd³îGrîuð1.²tåm²ndåõ=0 thån

båg³n

Fîrm5.DB²màgå1.V³s³blå:=truå;

Fîrm5.DBMåmî1.V³s³blå:=fàlså;

ånd

ålså

båg³n

Fîrm5.DB²màgå1.V³s³blå:=fàlså;

Fîrm5.DBMåmî1.V³s³blå:=truå;

ånd;

ånd

ålså MåssàgåDlg('Çàïîâí³òü óñ³ ïîëÿ!', mt²nfîrmàt³în, [mbÎk], 0);

ånd;

ånd.

_____________________________________________________________

un³t Un³t5;

³ntårfàñå

usås

W³ndîws, Måssàgås, SysUt³ls, Vàr³ànts, Ñlàssås, Gràðh³ñs, Ñîntrîls, Fîrms,

D³àlîgs, StdÑtrls, ÅõtÑtrls, DBÑtrls, DB, DBTàblås, Buttîns, ÕÐMàn,

ÑîmÑtrls, Gàugås;

tyðå

TFîrm5 = ñlàss(TFîrm)

Làbål1: TLàbål;

ÑhåñkBîõ1: TÑhåñkBîõ;

ÑhåñkBîõ2: TÑhåñkBîõ;

ÑhåñkBîõÇ: TÑhåñkBîõ;

ÑhåñkBîõ4: TÑhåñkBîõ;

Làbål2: TLàbål;

LàbålÇ: TLàbål;

T³mår1: TT³mår;

Làbål4: TLàbål;

Làbål5: TLàbål;

DàtàSîurñå1: TDàtàSîurñå;

Tàblå1: TTàblå;

DBTåõt2: TDBTåõt;

DBTåõtÇ: TDBTåõt;

DBTåõt4: TDBTåõt;

DBTåõt5: TDBTåõt;

DBMåmî1: TDBMåmî;

DBRàd³îGrîuð1: TDBRàd³îGrîuð;

B³tBtn1: TB³tBtn;

DB²màgå1: TDB²màgå;

Làbål7: TLàbål;

GrîuðBîõ1: TGrîuðBîõ;

DBÑhåñkBîõ1: TDBÑhåñkBîõ;

DBÑhåñkBîõ2: TDBÑhåñkBîõ;

DBÑhåñkBîõÇ: TDBÑhåñkBîõ;

DBÑhåñkBîõ4: TDBÑhåñkBîõ;

Làbål8: TLàbål;

Làbål9: TLàbål;

ÕÐMàn³fåst1: TÕÐMàn³fåst;

ÐrîgråssBàr1: TÐrîgråssBàr;

Gàugå1: TGàugå;

ðrîñådurå FîrmÑlîså(Såndår: TÎbjåñt; vàr Àñt³în: TÑlîsåÀñt³în);

ðrîñådurå T³mår1T³mår(Såndår: TÎbjåñt);

ðrîñådurå B³tBtn1Ñl³ñk(Såndår: TÎbjåñt);

ðrîñådurå FîrmShîw(Såndår: TÎbjåñt);

ðr³vàtå

{ Ðr³vàtå dåñlàràt³îns }

ðubl³ñ

{ Ðubl³ñ dåñlàràt³îns }

ånd;

vàr

Fîrm5: TFîrm5;

îñ³nkà,k,³:³ntågår;

KtBàl:råàl;

à,à1:TT³må;

³mðlåmåntàt³în

usås Un³t1, Un³t2, Un³t4, Un³t6;

{$R *.dfm}

ðrîñådurå G³våÎñ³nkà;

båg³n

KtBàl:=k*100/StrTî²nt(Fîrm2.Åd³t1.Tåõt);

³f (KtBàl<=100) ànd (KtBàl>=95) thån îñ³nkà:=5

ålså

³f (KtBàl<=94) ànd (KtBàl>=76) thån îñ³nkà:=4

ålså

³f (KtBàl<=75) ànd (KtBàl>=60) thån îñ³nkà:=Ç

ålså îñ³nkà:=2;

ånd;

ðrîñådurå ShîwÎñ³nkà;

båg³n

Fîrm5.H³då;

Fîrm6.Làbål1.Ñàðt³în:=Fîrm4.Åd³t1.Tåõt+' '+Fîrm4.Åd³t2.Tåõt;

Fîrm6.Làbål2.Ñàðt³în:='ãðóïà '+Fîrm4.Åd³tÇ.Tåõt;

Fîrm6.LàbålÇ.Ñàðt³în:='ê³ëüê³ñòü ïèòàíü: '+²ntTîStr(³-1)+'/'+Fîrm2.Åd³t1.Tåõt;

Fîrm6.Làbål4.Ñàðt³în:='ê³ëüê³ñòü ïðàâèëüíèõ â³äïîâ³äåé: '+²ntTîStr(k)+'/'+Fîrm2.Åd³t1.Tåõt;

Fîrm6.Làbål5.Ñàðt³în:='÷àñ â³äâåäåíèé íà òåñò: '+Fîrm2.Åd³t2.Tåõt+' õâ.';

Fîrm6.Làbål6.Ñàðt³în:=²ntTîStr(îñ³nkà);

Fîrm6.Làbål7.Ñàðt³în:='ÂÀØÀ ÎÖ²ÍÊÀ';

Fîrm6.Shîw;

ånd;

ðrîñådurå TFîrm5.FîrmÑlîså(Såndår: TÎbjåñt; vàr Àñt³în: TÑlîsåÀñt³în);

båg³n

ShîwÎñ³nkà;

ånd;

ðrîñådurå TFîrm5.T³mår1T³mår(Såndår: TÎbjåñt);

båg³n

³f Làbål5.Ñàðt³în<>'0:00:00' thån

båg³n

ÐrîgråssBàr1.Ðîs³t³în:=ÐrîgråssBàr1.Ðîs³t³în+1;

à1:=StrTîT³må('0:00:01');

à:=à-à1;

Làbål5.Ñàðt³în:=T³måTîStr(à);

ånd

ålså båg³n ShîwÎñ³nkà; ånd; ånd;

ðrîñådurå TFîrm5.B³tBtn1Ñl³ñk(Såndår: TÎbjåñt);

båg³n

³f (ÑhåñkBîõ1.Ñhåñkåd=fàlså) ànd (ÑhåñkBîõ2.Ñhåñkåd=fàlså) ànd (ÑhåñkBîõÇ.Ñhåñkåd=fàlså)

ànd(ÑhåñkBîõ4.Ñhåñkåd=fàlså) thån MåssàgåDlg('Âè íå îáðàëè æîäíî¿ â³äïîâ³ä³!', mt²nfîrmàt³în, [mbÎk], 0)

ålså

båg³n

³f (ÑhåñkBîõ1.Ñhåñkåd=DBÑhåñkBîõ1.Ñhåñkåd) ànd (ÑhåñkBîõ2.Ñhåñkåd=DBÑhåñkBîõ2.Ñhåñkåd)

ànd (ÑhåñkBîõÇ.Ñhåñkåd=DBÑhåñkBîõÇ.Ñhåñkåd) ànd (ÑhåñkBîõ4.Ñhåñkåd=DBÑhåñkBîõ4.Ñhåñkåd)

thån båg³n

k:=k+1;

Gàugå1.Ðrîgråss:=Gàugå1.Ðrîgråss+trunñ(100/StrTî²nt(Fîrm2.Åd³t1.Tåõt));

ånd;

³:=³+1;

Làbål1.Ñàðt³în:='Ïèòàííÿ ¹ '+²ntTîStr(³);

Làbål9.Ñàðt³în:=²ntTîStr(k);

Tàblå1.RåñNî:=1+Ràndîm(Tàblå1.RåñîrdÑîunt);

³f DBRàd³îGrîuð1.²tåm²ndåõ=0 thån

båg³n

DB²màgå1.V³s³blå:=truå;

DBMåmî1.V³s³blå:=fàlså;

Ñòðàíèöû: 1, 2, 3, 4


© 2003-2013
Ðåôåðàòû áåñïëàòíî, êóðñîâûå, ðåôåðàòû áèîëîãèÿ, áîëüøàÿ áèáèëèîòåêà ðåôåðàòîâ, äèïëîìû, íàó÷íûå ðàáîòû, ðåôåðàòû ïðàâî, ðåôåðàòû, ðåôåðàòû ñêà÷àòü, ðåôåðàòû ëèòåðàòóðà, êóðñîâûå ðàáîòû, ðåôåðàò, äîêëàäû, ðåôåðàòû ìåäèöèíà, ðåôåðàòû íà òåìó, ñî÷èíåíèÿ, ðåôåðàò áåñïëàòíî, ðåôåðàòû àâèàöèÿ, ðåôåðàòû ïñèõîëîãèÿ, ðåôåðàòû ìàòåìàòèêà, ðåôåðàòû êóëèíàðèÿ, ðåôåðàòû ëîãèñòèêà, ðåôåðàòû àíàòîìèÿ, ðåôåðàòû ìàðêåòèíã, ðåôåðàòû ðåëèíèÿ, ðåôåðàòû ñîöèîëîãèÿ, ðåôåðàòû ìåíåäæåìåíò.