Kcv/vov 2tvtooq
Hpoypoottoo r
Visual Basic otqv Access
Kqpcoq Irtootcv
Ynoqtcv Ooqycv
4cptvo, Iovovopto 2002
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
2
No ytvrt q nopootc ropoyq otqv Access :
No oqtovpyq0rt to ooq oroorvcv r ovoo !"#$%#&', nov 0o
nrptrrt tov rq ()*+,-. 01"'23$4 :
vov ntvoo rrtootcv otqyopto A r ovoo 567"8"$9", r to rq
nroto ot r nroto rtot to code :
1voo Hrotov Hrptypoq Tvno Mryr0o
:;&3 coto vnoqov N
onoma ovootrncvvo vnoqov C 30
foies noor opr rrt nort N
switch otoontq N
vov ntvoo rrtootcv otqyopto B r ovoo 567"8"$9', r to rq
nroto ot r nroto rtot to code :
1voo Hrotov Hrptypoq Tvno Mryr0o
:;&3 coto vnoqov N
onoma ovootrncvvo vnoqov C 30
foies noor opr rrt nort N
switch otoontq N
vov ntvoo onotrrootcv r ovoo <3$=21$, r to rq nroto :
1voo Hrotov Hrptypoq Tvno Mryr0o
categoiya ovo/ncvvo vnoqov ot.A C 30
categoiyb ovo/ncvvo vnoqov ot.B C 30
Ot ttr nov nopovv vo nopovv to nroto tcv ntvocv pinakasa ot
pinakasb rtvot ot rq :
!"#, o coto tov vnoqov, r ttr nov vo rtvovv ono to 1 ot
vo ovovovv vnoprctto oto 1.
!$!%&, to rncvvo ot to ovoo tov vnoqov ot.
'!(#), noor opr rrt noprt rpo ott rrtoort tov tprovto qvo
o vnoqo.
)*+,-, ttq 1 nov oqotvrt ott o vnoqo orv rrt cvo vo ovr-
toort ott rrtoort ot ttq 0 nov oqotvrt ott o vnoqo onov-
otort q yto onotov oov oyo orv noprt vo ovrtoort ott rr-
toort.
Ito tov ntvoo iesults 0o nprnrt vo rovr oqtovpyqort 20 rvr ry-
ypor nptv rtvqort q ropoyq. O ntvoo ovto 0o nrptrrt to ovooto
tcv vnoqcv nov 0o qpc0ovv vo nopovv rpo ott rrtoort ot 0o
qorvtrtot o0r opo nptv ono tqv qpcoq.
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
3
No otocpq0ovv tovototov 30 ryypor ot yto tov ovo ntvor
tcv otqyoptcv A ot B ot vo oqtovpyq0rt to opo r ovoo ./01234
6789:382;, nov 0o nrptrrt to rq nqtpo rvtoq (command buttons) :
vo nqtpo rvtoq r rttrto ./01234 <;=>:92; ot ovoo &<">,
to onoto 0o ort to rttovpytq ovooo (npoypoo or Visual Ba-
sic) nov 0o qpcvrt ot ono tt ovo otqyoptr, A ot B, ooo ovoo-
to tottcv ot ovonqpcottcv vnoqcv qtq0ovv.
vo nqtpo rvtoq r rttrto ?4@8;A3>BC DE=98/83>:92; ./012F
34C ot ovoo 67616"26?3, to onoto 0o ort to rttovpytq ovooo nov
0o otvrt optr ttr oto nroto foies (0) ot switch (1) ot tcv ovo
otqyoptcv ono tov ovttototov ntvor. Oo nprnrt vo qtq0rt r-
vo coto yto vo noprort vo ytvrt o qorvtoo tcv ovo ntvocv.
O qorvtoo ovto 0o ytvrtot otqv opq o0r qvo.
vo nqtpo rvtoq r rttrto 6G9HE234 DE=98/83>:92; ./012F
34C ot ovoo 5<6719<3$=21$, to onoto 0o rtvncvrt to ovooto nov
qpc0qov ot ono tt ovo otqyoptr.
vo nqtpo rvtoq r rttrto 6G9HE234 I9=AJ8K2; LEM//0/2; .MF
94N=1KMC D ot ovoo 5<6719567"8"$9", to onoto 0o rtvncvrt oo to
ototrto tcv vnoqcv tq otqyopto A.
vo nqtpo rvtoq r rttrto 6G9HE234 I9=AJ8K2; LEM//0/2; .MF
94N=1KMC O ot ovoo 5<6719567"8"$9', to onoto 0o rtvncvrt oo to
ototrto tcv vnoqcv tq otqyopto B.
vo nqtpo rvtoq r rttrto P7=@=C ot ovoo 3!61, to onoto 0o
trpottrt tqv ropoyq.
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
4
H ropoyq oovrvrt c rq :
Ito tq otrvrpyrto tcv rrtoorcv ooqyqoq (noprto) tcv vnoqtcv
ooqycv ovtotvqtov otqyopto otncoto B`, oqtovpyovvtot rnttponr
ono vnoqov tov Ynovpyrtov Mrtoopcv-Intotvcvtcv. Ot rrtoort
ovtr ytvovtot or o0qrptvq ooq ot o opt0o tcv rnttponcv votvrtot
ono 8 rc 12 to nov o0r rpo.
2r o0r rnttponq ovrtrrt vnoprctto rvo vnoqo ono tqv
Kotqyopto A ot rvo vnoqo ono tqv Kotqyopto B. H rntoyq tcv v-
noqcv ytvrtot r qpcoq.
Ko0r vnoqo ototovtot vo ovrtoort rpt 3 opr tov qvo
ott rrtoort ot ovo otov rovv ovrtoort oot ot vnoqot ono 3 o-
pr noprt vo ovrtoort ot nrptoootrpr. Avto oqotvrt ott otov rvo
vnoqo rrt ovnqpcort 3 ovrtor ott rrtoort, yotvrt rto
qpcoq ot ovrtrrt ovo otov rovv ovnqpcort oot ot vnoqot
ono 3 opr.
Av onoto vnoqo onovotort onoto rpo q rrt onoto oo
cvo, yotvrt rto qpcoq yto tqv qrpo rrtvq. Inrtoq vnoprt to
rvororvo vo nopovotoo0rt cvo yto onotov vnoqo ooq ot oov
rrt qpc0rt or onoto rnttponq, nprnrt rto ono to ovooto tcv tott-
cv rnttponcv vo qpcvovtot o0qrptvo ot onoto ovooto yto ovo-
nqpcottr rnttponr.
Ot vnoqot nov 0o qpc0ovv ott ovonqpcottr rnttponr 0o
ovrtooovv ott rrtoort r tq ortpo nov qpc0qov ot ovo rooov
onortotrt onoto ono tt tottr rnttponr. 2tqv nrptntcoq ovtq, 0o
ootpr0rt q ttq 1 ono to nroto foies tov vnoqov nov qpc0qr ott to-
ttr rnttponr oo oovvotrt vo ovrtoort ott rrtoort ot 0o ov-
q0rt oto 1 to nroto foies tov vnoqov nov qpc0qr ott ovonqpc-
ottr rnttponr oo ovrtrrt trto ott rrtoort. H tpononotqoq
ovtq 0o ytvrtot r to rpt ot ot r coto npoypooto.
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
5
Ko0r opo nov 0o ovovr t oto nqtpo rvtoq r rttrto ./0F
1234 <;=>:92;, 0o ytvovtot ot rq rpyootr :
Ito o0rvo ono tov ntvor tcv ovo Kotqyoptcv A ot B 0o pt-
oovr to nq0o tcv ryypocv (synoloa ot synolob), to nq0o
tcv vnoqcv nov orv rovv cvo ovrtoq ott rrtoort
(plithosa ot plithosb) o0c ot to nq0o tcv vnoqcv nov r-
ovv qoq ovrtoort nrptoootrpr ono 3 opr (>=3) ott rrto-
ort oo ot nov orv rovv cvo ovrtoq ott rrtoort
(plithos3a ot plithos3b).
Oo qorvtovtot r rvov opotqpr ot to ovo nroto ocv tcv ry-
ypocv tov ntvoo onotrrootcv iesults.
Oo qtrttot vo otocpq0ovv r ovo nototo otooyov InputBo() o
opt0o tcv tottcv rnttponcv k o0c ot o opt0o tcv ovonq-
pcottcv rnttponcv ka. Ivortttr ttr, yto nopoortyo, rtvot ot
10 ot 3.
2tq ovvrrto, to npoypoo 0o otontotcvrt ov rnopovv ot oto0rot-
ot vnoqot yto vo ovypotqoovv tt tottr ot tt ovonqpco-
ttr rnttponr tcv rrtoorcv. 2tqv nrptntcoq ovtq 0o tt0rtot q ttq
0 ott rtoqtr diktisa ot diktisb ovttototo, rvc otqv nrptntcoq
nov ot oto0rotot vnoqot nov orv rovv ovnqpcort 3 opr
ovrtoq orv rnopovv yto vo ovypotqoovv tt tottr ot tt
ovonqpcottr rnttponr tcv rrtoorcv, 0o tt0rtot q ttq 1 ott
rtoqtr diktisa ot diktisb ovttototo.
Oo qorvtovtot oo to ototrto rvo ntvoo (aiiay) r ovoo flag. O
ntvoo ovto 0o rrt tooo ototrto ooo rtvot to ovvoo tcv vnoq-
cv or o0r otqyopto. Ko0r ototrto tov ntvoo ovtov 0o rrt tqv
ttq 0 ov o vnoqo nov o coto tov rtvot toto r tq 0roq tov nt-
voo orv rrt qpc0rt vo ovrtoort or to rnttponq ot tqv ttq 1
ov o vnoqo nov o coto tov rtvot toto r tq 0roq tov ntvoo
rrt qpc0rt vo ovrtoort or to rnttponq.
2tq ovvrrto, 0o ytvrtot q qpcoq tcv tottcv ovootcv ono tov
ntvoo Kotqyopto A, c rq :
o qtovpyovr rvov poo (loop) nov 0o rtrro0rt toor o-
pr ooo rtvot o opt0o tcv tottcv rnttponcv k.
o !rtvor ono tqv npctq ryypoq tov ntvoo A.
o qtovpyovr rvov tvoto orpoto opt0o a oto otootqo 1
rc synoloa r tt ovvoptqort "andomi#e ot "nd().
o 2opcvovr or tt ryypor tov ntvoo A ot rntryovr r-
vov vnoqo yto vo ovrtoort or to tottq rnttponq ov
tovovv ot rq npo$no0rort :
O coto tov (code) rtvot too r tov tvoto opt0o a
nov qpc0qr.
((rt nort tyotrpr ono 3 opr ot (And) q ttq tq
rtoqtq diktisa rtvot 0) q (%i) (q ttq tq rtoq-
tq diktisa rtvot 1 ovroptqto ono to noor opr rrt
nort)) ot (And) orv rrt qoq qpc0rt yto vo ovrto-
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
&
ort or onoto rnttponq (flag(i)=0) ot (And) orv rrt
cvo ovrtoq (switch=1).
2tqv nrptntcoq nov o qpc0rt vnoqo rntryrt yto
vo ovrtoort ott rrtoort, ovovovr to nroto foies
tq ryypoq tov oto 1, otvovr tqv ttq 1 otov ntvoo
(aiiay) flag() otqv ovttototq 0roq i, ovovovr tov r-
tpqtq i tcv vnoqcv nov rovv qpc0rt vo nopovv
rpo ott tottr rnttponr, npoo0rtovr tov ovovto
opt0o tq rnttponq i ot to ovoo tov vnoqov or
to rtoqtq tvnov stiing r ovoo epitiopi, otoc-
povr tov ovovto opt0o tq rnttponq i ot to ovoo
tov vnoqov oto nroto categoiya tov ntvoo iesults
ot tro nqyotvovr otqv rnorvq ryypoq tov ntvoo
iesults.
o 1tov trrtcoovr r tqv qpcoq tcv ovootcv tq otqyo-
pto A yto or tt rnttponr nov qtq0qov (k), rovtovr
rvo qvvo 'sgBo r tov ttto ./01234 D 94C Q RSTSUTUSSU
ot rtrvo to ovooto tcv vnoqcv tov ntvoo A nov q-
pc0qov yto vo ovrtooovv ott rrtoort.
2tq ovvrrto, r rvtrc nopooto tpono, 0o ytvrt q qpcoq tcv o-
vonqpcottcv ovootcv ono tov ntvoo Kotqyopto A. H ovq
otoopo rtvot ott orv 0o rvqrpcvrtot to nroto foies tov ntvoo pi-
nakasa.
2tq ovvrrto, r rvtrc nopooto tpono, 0o ytvrt q qpcoq tcv to-
ttcv ot tcv ovonqpcottcv ovootcv ono tov ntvoo Kotqyo-
pto B.
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
(
)ii*ate +ub diawClick()
,q otootooto yto tqv qpcoq tcv ovootcv
,oqcoq tcv rtoqtcv nov 0o pqotonotqoovr
-im k., ka., i., /, a As Integei
-im synoloa, synolob As Integei
-im plithosa, plithosb As Integei
-im plithos3a, plithos3b As Integei
-im diktisa, diktisb As Integei
-im flag(80) As Integei
-im epiti As +tiing
-im anepiti As +tiing
,oqcoq to rtoqtq ooq oroorvcv ot
,tptcv rtoqtcv ntvocv
-im db As -A0ABA+1
-im isa As "ecoidset
-im isb As "ecoidset
-im isi As "ecoidset
,optoo tq tprovoo ooq oroorvcv ot tcv tptcv ntvocv
,nov 0o pqotonotqoovr
+et db = Cuiient-b()
+et isa = db.%pen"ecoidset(2pinakasa2)
+et isb = db.%pen"ecoidset(2pinakasb2)
+et isi = db.%pen"ecoidset(2iesults2)
,rvproq tov nq0ov tcv ryypocv yto tov ntvoo A
,ovvoo tcv ryypocv (vnoqcv) tov ntvoo A
synoloa = 0
,nq0o tcv vnoqcv nov nopovv vo ovrtooovv
plithosa = 0
,nq0o tcv vnoqcv nov nopovv vo ovrtooovv oo ot
,rovv qoq ovnqpcort 3 opr ovrtoq
plithos3a = 0
,nqyotvovr otqv npctq ryypoq tov ntvoo A
isa.'o*e3iist
,poo rpt vo trrtcoovv ot ryypor tov ntvoo A
-o 4ntil isa.1%3()
synoloa = synoloa 5 1
If isa67switch8 = 1 0hen
plithosa = plithosa 5 1
1nd If
If isa67switch8 = 1 And isa67foies8 >= 3 0hen
plithos3a = plithos3a 5 1
1nd If
,nqyotvovr otqv rnorvq ryypoq tov ntvoo A
isa.'o*e9et
:oop
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
8
,rvproq tov nq0ov tcv ryypocv yto tov ntvoo B
,ovvoo tcv ryypocv (vnoqcv) tov ntvoo B
synolob = 0
,nq0o tcv vnoqcv nov nopovv vo ovrtooovv
plithosb = 0
,nq0o tcv vnoqcv nov nopovv vo ovrtooovv oo ot
,rovv qoq ovnqpcort 3 opr ovrtoq
plithos3b = 0
,nqyotvovr otqv npctq ryypoq tov ntvoo B
isb.'o*e3iist
,poo rpt vo trrtcoovv ot ryypor tov ntvoo B
-o 4ntil isb.1%3()
synolob = synolob 5 1
If isb67switch8 = 1 0hen
plithosb = plithosb 5 1
1nd If
If isb67switch8 = 1 And isb67foies8 >= 3 0hen
plithos3b = plithos3b 5 1
1nd If
,nqyotvovr otqv rnorvq ryypoq tov ntvoo B
isb.'o*e9et
:oop
,qorvtoo tov ntvoo iesults
,nqyotvovr otqv npctq ryypoq tov ntvoo iesults
isi.'o*e3iist
,poo rpt vo trrtcoovv ot ryypor tov ntvoo iesults
-o 4ntil isi.1%3()
isi.1dit ,rnrrpyooto tq ryypoq
isi67categoiya8 = 2 2
isi67categoiyb8 = 2 2
isi.4)-A01 ,rvqrpcoq tq ryypoq
,nqyotvovr otqv rnorvq ryypoq tov ntvoo iesults
isi.'o*e9et
:oop
,otocpqoq tov opt0ov tcv rcv tcv tottcv ot
,tcv ovonqpcottcv rnttponcv or nototo otooyov
k. = InputBo(2 Apt0o Inttponcv tq : 2 ; -ate)
ka. = InputBo(2 Apt0o Avonq/cv Inttponcv tq : 2 ; -ate)
,qorvtoo tov rtpqtq tcv vnoqcv nov 0o qpc0ovv
i. = 0
,otontotcoq ov rovv nort oot ono 3 opr yto tov ntvoo A
diktisa = 0
If plithosa < plithos3a < k. < ka. = 2 0hen
diktisa = 1 ,rovv nort oot ono 3 opr
1nd If
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
>
,otontotcoq ov rovv nort oot ono 3 opr yto tov ntvoo B
diktisb = 0
If plithosb < plithos3b < k. < ka. = 2 0hen
diktisb = 1 ,rovv nort oot ono 3 opr
1nd If
,qorvtoo tov ntvoo (aiiay) flag
3oi / = 1 0o synoloa
flag(/) = 0
9et /
,qpcoq tcv tottcv rnttponcv tq otqyopto A
,oqtovpyto tq rntrotoo yto tqv npctq otqq tov ntvoo iesults
isi.'o*e3iist
isi.1dit
isi67categoiya8 = 2Kqpcoq tq : 2 ; -ate
isi64)-A01
isi.'o*e9et
,poo rpt vo qpc0ovv or ot rnttponr
-o 4ntil i. = k.
,oqtovpyto rvo tvotov opt0ov ono 1 rc synoloa
"andomi#e 0
a = Int(synoloa ? "nd() 5 1)
isa.'o*e3iist
,oopcoq ocv tcv ototrtcv tov ntvoo A
3oi / = 1 0o synoloa
,rryo ov pqor tqv ryypoq tov vnoqov nov
,rrt qpc0rt
If isa67code8 = a 0hen
,ov vot, noprt vo ovrtoort@
If ((isa67foies8 = 3 And diktisa = 0)
%i (diktisa = 1))
And flag(a) = 0
And isa67switch8 = 1 0hen
,rvqrpcoq tov ntvoo A
isa.1dit
isa67foies8 = isa67foies8 5 1
isa.4)-A01
i. = i. 5 1
flag(a) = 1
epiti = epiti ; +tiA(i) ; 2. 2 ; isa67onoma8
; ChiA(13)
,rvqrpcoq tov ntvoo iesults
isi.1dit
isi67categoiya8 = +tiA(i) ; 2. 2 ;
isa67onoma8
isi.4)-A01
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
10
isi.'o*e9et
1nd If
1nd If
isa.'o*e9et
9et /
:oop
,rovtoq qvvoto
'sgBo epiti, 0, 2Kqpcoq Htvoo A tq : 2 ; -ate
,qpcoq tcv ovonqpcottcv rnttponcv tq otqyopto A
i. = 0
isi.1dit
isi67categoiya8 = 2 2
isi64)-A01
isi.'o*e9et
isi.1dit
isi67categoiya8 = 2Avonqpcottot tq : 2 ; -ate
isi64)-A01
isi.'o*e9et
-o 4ntil i. = ka.
"andomi#e 0
a = Int(synoloa ? "nd() 5 1)
isa.'o*e3iist
3oi / = 1 0o synoloa
If isa67code8 = a 0hen
If ((isa67foies8 = 3 And diktisa = 0)
%i (diktisa = 1))
And flag(a) = 0
And isa67switch8 = 1 0hen
i. = i. 5 1
flag(a) = 1
anepiti = anepiti ; +tiA(i) ; 2. 2 ;
isa67onoma8 ; ChiA(13)
isi.1dit
isi67categoiya8 = +tiA(i) ; 2. 2 ;
isa67onoma8
isi.4)-A01
isi.'o*e9et
1nd If
1nd If
isa.'o*e9et
9et /
:oop
'sgBo anepiti, 0, 2Avonqpcottot Htvoo A tq : 2 ; -ate
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
11
,qorvtoo rtoqtcv yto vo pqotonotq0ovv otov ntvoo B
i. = 0
epiti = 2 2
anepiti = 2 2
,qorvtoo tov ntvoo (aiiay) flag
3oi / = 1 0o synolob
flag(/) = 0
9et /
,qpcoq tcv tottcv rnttponcv tq otqyopto B
isi.'o*e3iist
isi.1dit
isi67categoiyb8 = 2Kqpcoq tq : 2 ; -ate
isi64)-A01
isi.'o*e9et
-o 4ntil i. = k.
"andomi#e 0
a = Int(synolob ? "nd() 5 1)
isb.'o*e3iist
3oi / = 1 0o synolob
If isb67code8 = a 0hen
If ((isb67foies8 = 3 And diktisb = 0)
%i (diktisb = 1))
And flag(a) = 0
And isb67switch8 = 1 0hen
isb.1dit
isb67foies8 = isb67foies8 5 1
isb.4)-A01
i. = i. 5 1
flag(a) = 1
epiti = epiti ; +tiA(i) ; 2. 2 ; isb67onoma8
; ChiA(13)
isi.1dit
isi67categoiyb8 = +tiA(i) ; 2. 2 ;
isb67onoma8
isi.4)-A01
isi.'o*e9et
1nd If
1nd If
isb.'o*e9et
9et /
:oop
'sgBo epiti, 0, 2Kqpcoq Htvoo B tq : 2 ; -ate
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
12
,qpcoq tcv ovonqpcottcv rnttponcv tq otqyopto B
i. = 0
isi.1dit
isi67categoiyb8 = 2 2
isi.4)-A01
isi.'o*e9et
isi.1dit
isi67categoiyb8 = 2Avonqpcottot tq : 2 ; -ate
isi64)-A01
isi.'o*e9et
-o 4ntil i. = ka.
"andomi#e 0
a = Int(synolob ? "nd() 5 1)
isb.'o*e3iist
3oi / = 1 0o synolob
If isb67code8 = a 0hen
If ((isb67foies8 = 3 And diktisb = 0)
%i (diktisb = 1))
And flag(a) = 0
And isb67switch8 = 1 0hen
i. = i. 5 1
flag(a) = 1
anepiti = anepiti ; +tiA(i) ; 2. 2 ;
isb67onoma8 ; ChiA(13)
isi.1dit
isi67categoiyb8 = +tiA(i) ; 2. 2 ;
isb67onoma8
isi.4)-A01
isi.'o*e9et
1nd If
1nd If
isb.'o*e9et
9et /
:oop
'sgBo anepiti, 0, 2Avonqpcottot Htvoo B tq : 2 ; -ate
1nd +ub
Kcv/vov 2tvtooq Hpoypoottoo r VB otqv Access
13
)ii*ate +ub initiali#eClick()
,qorvtoo tcv onotrrootcv tq qpcoq
,otov ntvor A ot B
-im k.
-im db As -A0ABA+1
-im isa As "ecoidset
-im isb As "ecoidset
+et db = Cuiient-b()
+et isa = db.%pen"ecoidset(2pinakasa2)
+et isb = db.%pen"ecoidset(2pinakasb2)
k. = InputBo(2cotr tov coto : 2)
If k. = 1234 0hen
isa.'o*e3iist
-o 4ntil isa.1%3()
isa.1dit
isa67switch8 = 1
isa67foies8 = 0
isa.4)-A01
isa.'o*e9et
:oop
isb.'o*e3iist
-o 4ntil isb.1%3()
isb.1dit
isb67switch8 = 1
isb67foies8 = 0
isb.4)-A01
isb.'o*e9et
:oop
'sgBo 2Mqorvtoo2, 32, 2Mqorvtoo 2totrtcv Kqpcoq2
1lse
'sgBo 2Bo0o Kcoto62, 32, 2Hpoooq62
1nd If
1nd +ub
