(Computerise Human Resourceses Management
(Computerise Human Resourceses Management
HRM
(COMPUTERISE HUMAN RESOURCESES MANAGEMENT)
Project Analysis
Course Code Title o t!e Pro"e#t : : CS-76 HRM
". #nal$sis and %esi&n ".1 #nal$sis ".2 ".3 "." ".+ -. )odin& .. /. o!tware Testin& ecurit$ $stem %esi&n %escri'tion (low )*art %ata (low %ia&ram %atabase
"
A$OUT PROJECT
T*e 'roject is to automate t*e 'rocessin& o! t*e Human Resource 5ana&ement in com'anies. It records com'an$ details6 division details6 de'artments7 details6 em'lo$ee details6 leaves details and &enerates various re'orts. o6 t*is 'roject is !or automation o! Human Resource 5ana&ement develo'ed in 8isual 4asic -.36 wit* ql erver at t*e bac9:end. It is an attem't to relieve t*e burden o! manual s$stem b$ 'rovidin& a user/mana&er wit* user !riendl$6 !ull$ automated and a secure s$stem. In t*e initial sta&es o! mine 'roject I was to 'ro'erl$ understand about t*e conce'ts o! 8isual 4asic -.3 and 'ro'er sc*edulin& w*ic* t*e *el' o! m$ co:coordinators. I was ver$ dee'l$ made to anal$;e about t*e 'roject and at man$ times was &iven su!!icient lecture about t*e 'roject.
O$JECTI'ES
Ti(e S)*i+,: Usin& com'uters can save a lot o! time. T*is is 'ossible as com'uters are !ast6 e!!icient and more accurate as com'ared to *uman bein&s. -ui#. Re/orts: # com'uteri;ed s$stem can *el' on &eneratin& di!!erent t$'es o! re'orts. T*is can be done easil$ b$ merel$ 'ressin& !ew 9e$s. Re'orts can be easil$ obtained at t*e s'ur o! t*e moment unli9e a manual s$stem. Mu#! More 0et)ils A*)il)1le: # lar&e amount o! detail can be obtained easil$ in a com'uteri;ed s$stem w*ic* ot*erwise can7t be available in a manual s$stem. E i#ie+t A+d A##ur)te: )om'uteri;ation will increase t*e e!!icienc$ and accurac$ o! t*e wor9in& o! or&ani;ation. &)ster A+d E)sier 0)t) Retrie*)l: 4$ usin& com'uteri;ed s$stem data can be retrieved at muc* !aster 'ace. Old records can be located immediatel$ and eas$. E#o+o(i#)l: %ue to com'uteri;ation more accurate !unctionin& can be obtained in less investment o! ca'ital and man'ower as com'ared to manual s$stem in lon& term. 0e#re)sed Nu(1er O Peo/les: )om'uteri;ation will decrease man'ower de'endence. It will decrease t*e number o! 'eo'le required !or a 'articular tas9.
HAR02AR2E SPECI&ICATION
T*e minimum *ardware requirement !or t*e 'roject to run on com'uter is as !ollow<: Pro#essor Stor),e s/)#e >(or 'roject and Related o!tware? Stor),e s/)#e >(or database? $)#.u/ Medi) RAM 3e41o)rd Mouse Pri+ter Mo+itor " @4 *ard dis9 %e'ended on no. o! Records )%:Ariter and/or Bi':%rive 32 54 1ow 2ro!ile Two button %ot:5atri=/In9:jet/1aser 8@# Resolution Intel:2entium/ )$ri=/ )eleron6 #5%
SO&T2ARE SPECI&ICATION
O'eratin& $stem R%45 2ac9a&e Aindows 0//2333/C2/DT E1 erver 2333 8isual 4asic -.3
13
5$ 'roject FHuman Resource 5ana&ementG was develo'ed b$ 9ee'in& in mind !ollowin& two 9e$ 'oints< : To 'rovide HR de'artment quic9l$ retrieve o! in!ormation and eas$ wa$ to mana&e t*e record. To deliver a &ood s$stem/so!tware w*ic* incor'orate some o! t*e &reat !eatures o! in!ormation tec*nolo&$ and o! com'uter lan&ua&e t*at will surel$ *el' t*e HR de'artment6 in 9ee'in& t*e records.
11
PHASE :: 2*ase " deals wit* desi&nin& t*e out'ut o! t*e s$stem6 c*ec9in& o! t*e veri!ication and testin& o! t*e com'lete s$stem.
12
Poli#ies : T*is o'tion deals wit* t*e 'olicies o! t*e com'an$ related wit* t*e em'lo$ees o! t*e com'an$. T*is menu 'ad contains several o'tions6 t*ese are <: %e*el < T*is o'tion allows addition o! new level !or t*e em'lo$ees in t*e com'an$= editin& o! t*e e=istin& records and navi&ation o! t*e records. Gr)de : T*is o'tion allows addition o! new &rade !or t*e em'lo$ees in t*e com'an$= editin& o! t*e e=istin& records and navi&ation o! t*e records. %o)+ : T*is o'tion is related wit* sanction o! loan to em'lo$ee %e)*es : T*is menu 'ad is related wit* sanction o! leave to em'lo$ee6 leave status o! t*e em'lo$ee and !or entr$ o! attendance o! t*e em'lo$ee. %e)*e St)tus : %e)*e C)l#ul)tio+ : Atte+d)+#e : T*is o'tion is related wit* t*e entr$ o! attendance o! an em'lo$ee and leaves ta9en b$ em'lo$ee. E(/lo4ee : T*is menu 'ad deals wit* em'lo$ee related records. It contains t*e !ollowin& o'tions <: E(/lo4ee M)ster : T*is o'tion is related wit* addition o! t*e records o! em'lo$ees6 editin& o! records and navi&ation o! records. T*is o'tion is used !or t*e entr$ o! em'lo$ee code em'lo$ee name6 level o! em'lo$ee6 &rade o! em'lo$ee6 desi&nation etc. Perso+)l 0et)ils : T*is o'tion is !or recordin& 'ersonal in!ormation o! em'lo$ee6 editin& t*ese in!ormation and navi&atin& t*e 'ersonal in!ormation o! di!!erent em'lo$ee. -u)li i#)tio+ det)ils : T*is o'tion is !or recordin& Euali!ication in!ormation o! em'lo$ee6 editin& t*ese in!ormation and navi&atin& t*e 'ersonal
1"
in!ormation o! di!!erent em'lo$ee. Utilities : T*is o'tion 'rovide di!!erent utilities. T*is o'tion includes t*e !ollowin& utilities <: Set $)#.#olor : 4$ clic9in& t*is o'tion user can set t*e bac9&round color C)l#ul)tor : 4$ clic9in& t*is o'tion user can use calculator. Re/orts : T*is o'tion will &enerates di!!erent re'orts used b$ HR5 de'artment. Hel/ : T*is o'tion include t*e in!ormation about t*e 'roject. T*is o'tion includes t*e !ollowin& o'tions<: A1out : It tell about t*e version number o! t*e 'roject
1+
0&0
1-
&%O2 CHART
1.
St)rt
Is S4ste ( D P7
I A 7
1/
P7
P8
23
A 7
Sto/
21
A 8
22
A 9
23
A :
2"
A >
I Is E(/lo4ee M)ster D I Is Perso+)l 0et)ils D I Is -u)li@ 0et)ils D I Is %o)+ St)tus D I Is P& St)tus D P9 $ 7 $ 7 $ 7 $ 7 $ 7
2+
P9
2-
A 6
Ru+ C)l#ul)tor
Sto/
2.
A7
S!o; Re/or t
C7
C8
S!o; Re/or t
Sto/
2/ C7
C7
I Is All D I
Get 0e/)rt(e+t No
Get %e*el No
Sto/
20
C8
Sto/
33
C9
I Is %e)*e Re,iste r
S!o; Re/ort D
Sto/
31
$ 7 C I Is Add Re#ord D I Is Edit Re#or d D I Is 0elet e D I Is N)*i,)tio + D D Is Close &or( I Close &or( C 0elete Re#ord Is S)*e Edit Re#ord Add Re#ord
Sto/
32
0ATA$ASE
(ollowin& is t*e database structure. T*e Tables wit* its structure is listed below wit* t*e 9e$ in!ormation.
33
3"
3+
3-
3.
3/
30
"3
1. 1o&in (orm
2.
"1
"2
"3
-. Trans!er (orm
""
"+
/. 1oan (orm
"-
13.#ttendance (orm
".
"/
"0
+3
1-.Trans!er Re'ort
+1
+2
1/.#ttendance Re'ort
+3
10.#bout HR5
+"
++
!rn5ain5enu
Private Sub About_Click() Loa AboutHel! E" Sub Private Sub all_Click() Loa HR#ataE"v HR#ataE"v$c% E%!All E%!All$S&o' U"loa HR#ataE"v E" Sub Private Sub AllE%!_Click() Loa e"vSalar( e"vSalar($c% Tra")*er Tra")Re!ort$S&o' U"loa e"vSalar( E" Sub Private Sub Atte" _Click() Loa *r%Atte" a"ce E" Sub Private Sub +o"u)St_Click() Loa *r%+o"u) E" Sub Private Sub attre,_Click() Me"uClick - .Attre,_Click. Loa Re!SalMo"t& E" Sub Private Sub calc_Click() /S&ell (.C012IN#O2S1)()te%341calc.) S&ell (.C012INNT1)()te%341calc.) E" Sub Private Sub Co%!a"(_Click() Loa *r%Co%!a"( E" Sub Private Sub e!_'i)e_Click()
+-
Loa Re!E%!#e!t E" Sub Private Sub #e!art%e"t_Click() Loa *r%#e!art%e"t E" Sub
Private Sub #ivi)io"_Click() Loa *r%#ivi)io" E" Sub Private Sub t'i)e_Click() Loa Re!Tra") ate E" Sub Private Sub E%!%a)_Click() Loa *r%E%!lo(ee E" Sub Private Sub e%!'i)e_Click() Loa Re!Tra")E%! E" Sub Private Sub E5it_Click() U"loa Me E" Sub Private Sub Gra e_Click() Loa *r%Gra e E" Sub Private Sub Level_Click() Loa *r%Level E" Sub Private Sub levelr!_Click() Loa HR#ataE"v HR#ataE"v$c% E%!All LvlAll$S&o' U"loa HR#ataE"v E" Sub Private Sub Loa"_Click()
+.
Loa *r%Loa") E" Sub Private Sub Loa"St_Click() Loa *r%Loa") E" Sub Private Sub Lo,i"_Click() A %i"$E"able - 6al)e Policie)$E"able - 6al)e /Leave)$E"able - 6al)e E%!lo(ee$E"able - 6al)e Utilitie)$E"able - 6al)e Loa *r%Lo,i" E" Sub Private Sub Lo,out_Click() A %i"$E"able - 6al)e Policie)$E"able - 6al)e E%!lo(ee$E"able - 6al)e Utilitie)$E"able - 6al)e Re!ort)$E"able - 6al)e Lo,i"$E"able - True Lo,out$E"able - 6al)e E" Sub
Private Sub lvl_'i)e_Click() Loa *r%Re!E%!Lvl E" Sub Private Sub LvStatu)_Click() Loa *r%Leave) E" Sub Private Sub M#I6or%_Loa () U"loa *r%S!la)& A %i"$E"able - 6al)e Policie)$E"able - 6al)e E%!lo(ee$E"able - 6al)e Utilitie)$E"able - 6al)e Re!ort)$E"able - 6al)e Lo,out$E"able - 6al)e Ti%er7$I"terval - 7888
+/
Private Sub M#I6or%_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) I* +utto" - 4 T&e" Po!u!Me"u Utilitie) E" I* E" Sub Private Sub M#I6or%_U"loa (Ca"cel A) I"te,er) E" E" Sub Private Sub Ne'U)er_Click() Loa *r%A %i" E" Sub Private Sub !a(re,_Click() Me"uClick - .Pa(Re,_Click. Loa Re!SalMo"t& E" Sub Private Sub !a()li!_Click() Me"uClick - .Pa(Sli!_CLick. Loa Re!SalMo"t& E" Sub Private Sub P6Statu)_Click() Loa *r%P6u" E" Sub Private Sub Pre#tl_Click() Loa *r%E%!Per#etail E" Sub Private Sub <uali#tl_Click() Loa *r%E%!E u#etail E" Sub Private Sub Set+kColor_Click() C#7$S&o'Color I* Me$Active6or% I) Not&i", T&e" Me$+ackColor - C#7$Color El)e
+0
Me$Active6or%$+ackColor - C#7$Color E" I* E" Sub Private Sub Tra")*er_Click() Loa *r%Tra")*er E" Sub
@lobal5od
Private Co"" A) Ne' a o b$Co""ectio" Public Ol E"tr(No A) Lo", Public )E%!Co e A) Stri", Public )#e!tCo e A) Stri", Public )M,rCo e A) Stri", Public )#e!tiCo e A) Stri", Public )#ivCo e A) Stri", Public )LvlCo e A) Stri", Public )Gr Co e A) Stri", Public )#e) A) Stri", Public )Hel!M), A) Stri", Public Acce))Ri,&t A) Stri", Public Me"uClick A) Stri", Public 6u"ctio" GetE"tr(No() #i% e"o A) Lo", #i% R) A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. R)$O!e" .Select B *ro% )t5"e"tr("o.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Te5t e"o - R)(8) e"o - e"o C 7 R)$Clo)e Co""$Clo)e GetE" tr(No - e"o E" 6u"ctio" Public Sub SaveE"tr(No() #i% e"o A) Lo", #i% R) A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. -3
R)$O!e" .Select B *ro% )t5"e"tr("o.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Te5t e"o - R)(8) e"o - e"o C 7 R)(8) - e"o R)$U! ate R)$Clo)e Co""$Clo)e E" Sub Public 6u"ctio" GetCo e(+(=al )T"a%e A) Stri",) #i% co e A) Stri", #i% iCo e A) I"te,er #i% R) A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. R)$O!e" .Select la)t"o *ro% )t5"la)t"o '&ere table"a%e - /. A )T"a%e A ./.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Te5t co e - Mi ()T"a%e9 D9 7) I* R)$EO6 A" R)$+O6 T&e" co e - Mi ()T"a%e9 D9 7) iCo e - 78887 El)e iCo e - R)(8) iCo e - iCo e C 7 E" I* co e - RTri%(co e) A LTri%(Str(iCo e)) R)$Clo)e Co""$Clo)e GetCo e - co e E" 6u"ctio" Public Sub SaveCo e(+(=al )T"a%e A) Stri",) #i% co e A) Stri", #i% iCo e A) I"te,er #i% R) A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. R)$O!e" .Select la)t"o *ro% )t5"la)t"o '&ere table"a%e - /. A )T"a%e A ./.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Te5t co e - Mi ()T"a%e9 D9 7) I* R)$EO6 A" R)$+O6 T&e" Co""$E5ecute (.I")ert I"to )t5"la)t"o value) (/. A )T"a%e A ./978887).) co e - Mi ()T"a%e9 D9 7) iCo e - 78887 El)e iCo e - R)(8)
-1
iCo e - iCo e C 7 Co""$E5ecute (.u! ate )t5"la)t"o )et la)t"o - . A iCo e A . '&ere table"a%e - /. A )T"a%e A ./.) E" I* R)$Clo)e Co""$Clo)e E" Sub Public 6u"ctio" GetGr _LvlCo e(+(=al )T"a%e A) Stri",) #i% co e A) Stri", #i% iCo e A) I"te,er #i% R) A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. R)$O!e" .Select la)t"o *ro% )t5"la)t"o '&ere table"a%e - /. A )T"a%e A ./.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Te5t co e - Mi ()T"a%e9 D9 7) I* R)$EO6 A" R)$+O6 T&e" co e - Mi ()T"a%e9 D9 7) iCo e - 7 El)e iCo e - R)(8) iCo e - iCo e C 7 E" I* I* Le"(co e) E 3 T&e" co e - RTri%(co e) A .8. A LTri%(Str(iCo e)) El)e co e - RTri%(co e) A LTri%(Str(iCo e)) E" I* R)$Clo)e Co""$Clo)e GetGr _LvlCo e - co e E" 6u"ctio" Public Sub SaveGr _LvlCo e(+(=al )T"a%e A) Stri",) #i% co e A) Stri", #i% iCo e A) I"te,er #i% R) A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. R)$O!e" .Select la)t"o *ro% )t5"la)t"o '&ere table"a%e - /. A )T"a%e A ./.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Te5t co e - Mi ()T"a%e9 D9 7) I* R)$EO6 A" R)$+O6 T&e" Co""$E5ecute (.I")ert I"to )t5"la)t"o value) (/. A )T"a%e A ./97).) co e - Mi ()T"a%e9 D9 7) iCo e - 7
-2
El)e iCo e - R)(8) iCo e - iCo e C 7 Co""$E5ecute (.u! ate )t5"la)t"o )et la)t"o - . A iCo e A . '&ere table"a%e - /. A )T"a%e A ./.) E" I* R)$Clo)e Co""$Clo)e E" Sub Public 6u"ctio" C&eckNu%(+(=al Str A) Stri",) A) +oolea" i-7 vali - 7 2&ile (i E- Le"(Str) A" vali - 7) c& - (Mi (Str9 i9 7)) I* c& - .8. Or c& - .7. Or c& - .4. Or c& - .3. Or c& - .?. Or c& - .D. Or c& - .F. Or c& - .G. Or c& - .H. Or c& - .I. T&e" El)e vali - 8 C&eckNu% - 8 E" I* i-iC7 2e" I* vali - 7 T&e" C&eckNu% - 7 E" I* E" 6u"ctio" Public 6u"ctio" C&eck#eci%al(+(=al Str A) Stri",) A) +oolea" i-7 vali - 7 2&ile (i E- Le"(Str) A" vali - 7) c& - (Mi (Str9 i9 7)) I* c& - .8. Or c& - .7. Or c& - .4. Or c& - .3. Or c& - .?. Or c& - .D. _ Or c& - .F. Or c& - .G. Or c& - .H. Or c& - .I. Or c& - .$. T&e" El)e vali - 8 C&eck#eci%al - 8 E" I* i-iC7 2e" I* vali - 7 T&e" C&eck#eci%al - 7 E" I* E" 6u"ctio" Public 6u"ctio" C&eckAl!&a(+(=al )#ata A) Stri",) A) +oolea"
-3
i-7 vali - 7 2&ile (i E- Le"()#ata) A" vali - 7) c& - A)c(Mi ()#ata9 i9 7)) I* (c& J- A)c(.A.) A" c& E- A)c(.K.)) Or (c& J- A)c(.a.) A" c& E- A)c(.L.)) _ Or c& - A)c(.$.) Or c& - A)c(. .) T&e" El)e C&eckAl!&a - 8 vali - 8 E" I* i-iC7 2e" I* vali - 7 T&e" C&eckAl!&a - 7 E" I* E" 6u"ctio" Public 6u"ctio" C&eckE%!t((+(=al )#ata A) Stri",) #i% i A) +oolea" I* (Tri%()#ata) - ..) T&e" i - True El)e i - 6al)e E" I* C&eckE%!t( - i E" 6u"ctio" Public 6u"ctio" C&eckE%!Co e(+(=al co e A) Stri",) A) I"te,er #i% *ou" A) +oolea" #i% Rec)e A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. Rec)e$O!e" .Ht5"EMPLO;EE.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Table 2&ile (Not Rec)e$EO6) A" *ou" - 6al)e I* Rec)e$6iel )(7) - co e T&e" C&eckE%!Co e - 7 *ou" - True E" I* I* Rec)e$State T&e" Rec)e$MoveNe5t E" I* 2e" I* *ou" - 6al)e T&e"
-"
C&eckE%!Co e - 8 E" I* Rec)e$Clo)e Co""$Clo)e E" 6u"ctio" Public 6u"ctio" C&eckCo%!Co e(+(=al co e A) Stri",) A) I"te,er #i% *ou" A) +oolea" #i% Rec)e A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. Rec)e$O!e" .)t5"co%!a"(.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Table 2&ile (Not Rec)e$EO6) A" *ou" - 6al)e I* Rec)e$6iel )(7) - co e T&e" C&eckCo%!Co e - 7 *ou" - True E" I* I* Rec)e$State T&e" Rec)e$MoveNe5t E" I* 2e" I* *ou" - 6al)e T&e" C&eckCo%!Co e - 8 E" I* Rec)e$Clo)e Co""$Clo)e E" 6u"ctio" Public 6u"ctio" C&eck#ivCo e(+(=al co e A) Stri",) A) I"te,er #i% *ou" A) +oolea" #i% Rec)e A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. Rec)e$O!e" .)t5" ivi)io".9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Table 2&ile (Not Rec)e$EO6) A" *ou" - 6al)e I* Rec)e$6iel )(7) - co e T&e" C&eck#ivCo e - 7 *ou" - True E" I* I* Rec)e$State T&e" Rec)e$MoveNe5t E" I* 2e" I* *ou" - 6al)e T&e" C&eck#ivCo e - 8 E" I* Rec)e$Clo)e
-+
Co""$Clo)e E" 6u"ctio" Public 6u"ctio" C&eck#e!tCo e(+(=al co e A) Stri",) A) I"te,er #i% *ou" A) +oolea" #i% Rec)e A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. Rec)e$O!e" .)t5" e!t.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Table 2&ile (Not Rec)e$EO6) A" *ou" - 6al)e I* Rec)e$6iel )(7) - co e T&e" C&eck#e!tCo e - 7 *ou" - True E" I* I* Rec)e$State T&e" Rec)e$MoveNe5t E" I* 2e" I* *ou" - 6al)e T&e" C&eck#e!tCo e - 8 E" I* Rec)e$Clo)e Co""$Clo)e E" 6u"ctio" Public 6u"ctio" C&eckLvlCo e(+(=al co e A) Stri",) A) I"te,er #i% *ou" A) +oolea" #i% Rec)e A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. Rec)e$O!e" .&t5"level).9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Table 2&ile (Not Rec)e$EO6) A" *ou" - 6al)e I* Rec)e$6iel )(7) - co e T&e" C&eckLvlCo e - 7 *ou" - True E" I* I* Rec)e$State T&e" Rec)e$MoveNe5t E" I* 2e" I* *ou" - 6al)e T&e" C&eckLvlCo e - 8 E" I* Rec)e$Clo)e Co""$Clo)e E" 6u"ctio" Public 6u"ctio" C&eckGr Co e(+(=al co e A) Stri",) A) I"te,er #i% *ou" A) +oolea"
--
#i% Rec)e A) Ne' a o b$Recor )et Co""$O!e" .PRO=I#ER-Micro)o*t$>et$OLE#+$?$8@#ata Source-. A A!!$Pat& A .1 b1 b7$% b. A .. Rec)e$O!e" .&t5",ra e.9 Co""9 a O!e"#("a%ic9 a LockO!ti%i)tic9 a C% Table 2&ile (Not Rec)e$EO6) A" *ou" - 6al)e I* Rec)e$6iel )(7) - co e T&e" C&eckGr Co e - 7 *ou" - True E" I* I* Rec)e$State T&e" Rec)e$MoveNe5t E" I* 2e" I* *ou" - 6al)e T&e" C&eckGr Co e - 8 E" I* Rec)e$Clo)e Co""$Clo)e E" 6u"ctio" Public 6u"ctio" vali _ ate(+(=al ) ate A) Stri",) A) +oolea" #i% a( - (Mi () ate9 79 4)) %% - (Mi () ate9 ?9 4)) (( - (Mi () ate9 G9 ?)) I* (=al((() Mo ? - 8) Or (=al((() Mo 788 - 8) Or (=al((() Mo ?88 - 8) T&e" I* (=al(%%)) - 4 T&e" a( - 4I E" I* El)e I* (=al(%%) - 4) T&e" a( - 4H E" I* E" I* I* (=al(%%) - 7) Or (=al(%%) - 3) Or (=al(%%) - D) Or (=al(%%) - G) Or (=al(%%) - H) Or (=al(%%) - 78) Or (=al(%%) - 74) T&e" a( - 37 El)e I* (=al(%%) - ?) Or (=al(%%) - F) Or (=al(%%) - I) Or (=al(%%) - 77) T&e" a( - 38 E" I* E" I* I* =al( ) J a( Or =al( ) E 7 Or =al(%%) E 7 Or =al(%%) J 74 Or (Le"(Tri%((()) EJ ?) T&e" M),+o5 .I"vali #ate . vali _ ate - 8 El)e
-.
(rm1o&in
#i% obMU)er A) Ne' U)er) Private Sub Co%%a" 7_Click() U"loa Me E" Sub Private Sub Co%%a" 3_Click() I* (obMU)er$6ile_Statu)() - 7) T&e" / I* "o u)er !re)e"t t&e" u)e e*ault u)er I* (UCa)e(Te5t7(8)$Te5t) - .S;STEM.) A" (UCa)e(Te5t7(7)$Te5t) - .#+A.) T&e" *r%Mai"Me"u$A %i"$E"able - True *r%Mai"Me"u$Policie)$E"able - True *r%Mai"Me"u$E%!lo(ee$E"able - True *r%Mai"Me"u$Utilitie)$E"able - True *r%Mai"Me"u$Re!ort)$E"able - True *r%Mai"Me"u$Lo,i"$E"able - 6al)e *r%Mai"Me"u$Lo,out$E"able - True U"loa Me El)e M),+o5 .I"vali Lo,i"NPa))'or . Te5t7(8)$Te5t - .. Te5t7(7)$Te5t - .. Te5t7(8)$Set6ocu) E" I* El)e I* obMU)er$C&eckLo,i"(Te5t7(8)$Te5t9 Te5t7(7)$Te5t) - 7 T&e" *r%Mai"Me"u$A %i"$E"able - True *r%Mai"Me"u$Policie)$E"able - True *r%Mai"Me"u$E%!lo(ee$E"able - True *r%Mai"Me"u$Utilitie)$E"able - True *r%Mai"Me"u$Re!ort)$E"able - True *r%Mai"Me"u$Lo,i"$E"able - 6al)e *r%Mai"Me"u$Lo,out$E"able - True U"loa Me El)e M),+o5 .I"vali Lo,i"NPa))'or . Te5t7(8)$Te5t - .. Te5t7(7)$Te5t - .. Te5t7(8)$Set6ocu) E" I* E" I* -/
E" Sub Private Sub 6or%_I"itialiLe() Te5t7(8)$Set6ocu) E" Sub Private Sub 6or%_Loa () *r%Lo,i"$Le*t - DDH8 *r%Lo,i"$To! - ?488 E" Sub
(rm)om'an$
#i% obMCo%! A) Ne' Co%!a"( Private Sub Co%%a" 7_Click() obMCo%!$A Recor obMCo%!$Ge"E"tr( obMCo%!$Ge"Co e Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - obMCo%!$CoCo e Te5t7(4)$Te5t - .. Te5t7(3)$Te5t - .. Te5t7(?)$Te5t - .. Te5t7(D)$Te5t - .. Te5t7(F)$Te5t - .. Te5t7(G)$Te5t - .. Te5t7(H)$Te5t - .. Te5t7(I)$Te5t - .. Te5t7(78)$Te5t - .. Te5t7(77)$Te5t - .. Te5t7(4)$Set6ocu) Co%%a" 4$E"able - True Co%%a" 7$E"able - 6al)e Te5t7(4)$Set6ocu) E" Sub Private Sub Co%%a" 4_Click() I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .Co%!a"( "a%e )&oul "ot be e%!t(. E5it Sub -0
E" I* I* Tri%(Te5t7(3)$Te5t) - .. T&e" Te5t7(3)$Set6ocu) M),+o5 .A re)) )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(?)$Te5t) - .. T&e" Te5t7(?)$Set6ocu) M),+o5 .Cit( )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(D)$Te5t) - .. T&e" Te5t7(D)$Set6ocu) M),+o5 .State )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(G)$Te5t) - .. T&e" Te5t7(G)$Set6ocu) M),+o5 .P&o"e "o$ )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(H)$Te5t) - .. T&e" Te5t7(H)$Set6ocu) M),+o5 .Sale Ta5 No$ )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(I)$Te5t) - .. T&e" Te5t7(I)$Set6ocu) M),+o5 .CST No$ )&oul "ot be e%!t(. E5it Sub E" I* I* Te5t7(78)$Te5t - .. T&e" Te5t7(78)$Set6ocu) M),+o5 .Re,i)tratio" No$ )&oul "ot be e%!t(. E5it Sub E" I* Tra")*er#ata obMCo%!$SaveRecor Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" Sub Public Sub Get#ata() Te5t7(8)$Te5t - obMCo%!$E"tr(No
.3
Te5t7(7)$Te5t - obMCo%!$CoCo e Te5t7(4)$Te5t - obMCo%!$CoNa%e Te5t7(3)$Te5t - obMCo%!$A re)) Te5t7(?)$Te5t - obMCo%!$Cit( Te5t7(D)$Te5t - obMCo%!$State Te5t7(F)$Te5t - obMCo%!$Pi"Co e Te5t7(G)$Te5t - obMCo%!$P&o"e Te5t7(H)$Te5t - obMCo%!$StNo Te5t7(I)$Te5t - obMCo%!$C)tNo Te5t7(78)$Te5t - obMCo%!$E))No Te5t7(77)$Te5t - obMCo%!$Re%ark) E" Sub Public Sub Tra")*er#ata() obMCo%!$E"tr(No - Te5t7(8)$Te5t obMCo%!$CoCo e - Te5t7(7)$Te5t obMCo%!$CoNa%e - Te5t7(4)$Te5t obMCo%!$A re)) - Te5t7(3)$Te5t obMCo%!$Cit( - Te5t7(?)$Te5t obMCo%!$State - Te5t7(D)$Te5t obMCo%!$Pi"Co e - Te5t7(F)$Te5t obMCo%!$P&o"e - Te5t7(G)$Te5t obMCo%!$StNo - Te5t7(H)$Te5t obMCo%!$C)tNo - Te5t7(I)$Te5t obMCo%!$E))No - Te5t7(78)$Te5t obMCo%!$Re%ark) - Te5t7(77)$Te5t E" Sub Private Sub Co%%a" 3_Click() obMCo%!$E itRecor Co%%a" 4$E"able - True Co%%a" 3$E"able - 6al)e E" Sub Private Sub Co%%a" I_Click() U"loa Me E" Sub Private Sub Co%%a" I_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) U"loa Me E" Sub Private Sub 6or%_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) I* +utto" - 4 T&e"
.1
Po!u!Me"u *r%Mai"Me"u$Utilitie) E" I* E" Sub Private Sub 6or%_Loa () *r%Co%!a"($Le*t - ?FH8 *r%Co%!a"($To! - 4F88 Co%%a" 4$E"able - 6al)e I* (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 7$E"able - 6al)e Co%%a" 4$E"able - 6al)e Co%%a" 3$E"able - 6al)e E" I* obMCo%!$Get=alue6ro%Table Get#ata E" Sub Private Sub Te5t7_Oe(Pre))(I" e5 A) I"te,er9 Oe(A)cii A) I"te,er) I* Oe(A)cii - 73 T&e" I* I" e5 - 77 T&e" Te5t7(8)$Set6ocu) El)e Te5t7(I" e5 C 7)$Set6ocu) E" I* E" I* E" Sub Private Sub Co%%a" D_Click() obMCo%!$Previou)Recor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" F_Click() obMCo%!$6ir)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub
.2
Private Sub Co%%a" G_Click() obMCo%!$Ne5tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" H_Click() obMCo%!$La)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Te5t7_Lo)t6ocu)(I" e5 A) I"te,er) Select Ca)e (I" e5) Ca)e 4 I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .Co%!a"( "a%e )&oul "ot be e%!t(. El)e I* C&eckAl!&a(Te5t7(4)$Te5t) - 8 T&e" Te5t7(4)$Set6ocu) Te5t7(4)$Te5t - .. M),+o5 .Co%!a"( )&oul co"tai") o"l( al!&abet)9$(#ot) a" )!ace. E" I* E" I* Ca)e 3 I* Tri%(Te5t7(3)$Te5t) - .. T&e" Te5t7(3)$Set6ocu) M),+o5 .A re)) )&oul "ot be e%!t(. E5it Sub E" I* Ca)e ? I* Tri%(Te5t7(?)$Te5t) - .. T&e" Te5t7(?)$Set6ocu) M),+o5 .Cit( )&oul "ot be e%!t(. E5it Sub E" I*
.3
Ca)e D I* Tri%(Te5t7(D)$Te5t) - .. T&e" Te5t7(D)$Set6ocu) M),+o5 .State )&oul "ot be e%!t(. E5it Sub El)e I* C&eckAl!&a(Te5t7(D)$Te5t) - 8 T&e" Te5t7(D)$Set6ocu) Te5t7(D)$Te5t - .. M),+o5 .State )&oul co"tai") o"l( al!&abet). E" I* E" I* Ca)e F I* Tri%(Te5t7(F)$Te5t) EJ .. T&e" I* C&eckNu%(Te5t7(F)$Te5t) - 8 T&e" Te5t7(F)$Te5t - .. Te5t7(F)$Set6ocu) M),+o5 .Pi" co e co"tai" o"l( i,it). El)e I* Le"(Te5t7(F)$Te5t) E F T&e" M),+o5 .Pi" co e too )&ort. Te5t7(F)$Set6ocu) E" I* E" I* E" I* Ca)e G I* Tri%(Te5t7(G)$Te5t) - .. T&e" Te5t7(G)$Set6ocu) M),+o5 .P&o"e "o$ )&oul "ot be e%!t(. E5it Sub E" I* Ca)e H I* Tri%(Te5t7(H)$Te5t) - .. T&e" Te5t7(H)$Set6ocu) M),+o5 .Sale Ta5 No$ )&oul "ot be e%!t(. E5it Sub E" I* Ca)e I I* Tri%(Te5t7(I)$Te5t) - .. T&e" Te5t7(I)$Set6ocu) M),+o5 .CST No$ "ot be e%!t(. E5it Sub E" I* Ca)e 78 I* Tri%(Te5t7(78)$Te5t) - .. T&e"
."
Te5t7(78)$Set6ocu) M),+o5 .ESS No$ "ot be e%!t(. E5it Sub E" I* E" Select E" Sub
(rm%e'artment
#i% obMCo%! A) Ne' #e!art%e"t #i% E)ca!e A) +oolea" Private Sub Co%%a" 7_Click() obMCo%!$A Recor obMCo%!$Ge"E"tr( obMCo%!$Ge"Co e Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - obMCo%!$#e!tCo e Te5t7(4)$Te5t - .. Te5t7(3)$Te5t - .. Te5t7(?)$Te5t - .. Co%%a" 7$E"able - 6al)e Co%%a" 4$E"able - True Te5t7(4)$Set6ocu) E" Sub Private Sub Co%%a" 4_Click() I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .#e!art%e"t "a%e )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(3)$Te5t) - .. T&e" Te5t7(3)$Set6ocu) M),+o5 .#ivi)io" Co e )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(?)$Te5t) - .. T&e" Te5t7(?)$Set6ocu) M),+o5 .#e!art%e"t Hea Co e )&oul "ot be e%!t(. E5it Sub E" I* Tra")*er#ata obMCo%!$SaveRecor .+
Co%%a" 7$E"able - True Co%%a" 3$E"able - True Co%%a" 4$E"able - 6al)e E" Sub Public Sub Get#ata() Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - obMCo%!$#e!tCo e Te5t7(4)$Te5t - obMCo%!$#Na%e Te5t7(3)$Te5t - obMCo%!$#ivCo e Te5t7(?)$Te5t - obMCo%!$#e!tHea E" Sub Public Sub Tra")*er#ata() obMCo%!$E"tr(No - Te5t7(8)$Te5t obMCo%!$#e!tCo e - Te5t7(7)$Te5t obMCo%!$#Na%e - Te5t7(4)$Te5t obMCo%!$#ivCo e - Te5t7(3)$Te5t obMCo%!$#e!tHea - Te5t7(?)$Te5t E" Sub Private Sub Co%%a" 3_Click() obMCo%!$E itRecor Co%%a" 3$E"able - 6al)e Co%%a" 4$E"able - True E" Sub Private Sub Co%%a" D_Click() obMCo%!$Previou)Recor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" F_Click() obMCo%!$Ne5tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub
.-
Private Sub Co%%a" G_Click() obMCo%!$La)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" H_Click() obMCo%!$6ir)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" I_Click() U"loa Me E" Sub Private Sub Co%%a" I_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) U"loa Me E" Sub Private Sub 6or%_Oe(Pre))(Oe(A)cii A) I"te,er) Select Ca)e Oe(A)cii Ca)e vbOe(U! obMCo%!$6ir)tRecor Ca)e vbOe(#o'" obMCo%!$La)tRecor Ca)e vbOe(Le*t obMCo%!$Previou)Recor Ca)e vbOe(Ri,&t obMCo%!$Ne5tRecor E" Select E" Sub Private Sub 6or%_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) I* +utto" - 4 T&e"
..
Po!u!Me"u *r%Mai"Me"u$Utilitie) E" I* E" Sub Private Sub 6or%_Loa () *r%#e!art%e"t$Le*t - ?FH8 *r%#e!art%e"t$To! - 3F88 Co%%a" 4$E"able - 6al)e I* (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 7$E"able - 6al)e Co%%a" 4$E"able - 6al)e Co%%a" 3$E"able - 6al)e E" I* obMCo%!$Get=alue6ro%Table Get#ata E" Sub Private Sub Te5t7_Got6ocu)(I" e5 A) I"te,er) I* I" e5 - 3 T&e" *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - )Hel!M), )Hel!M), - . Pre)) E)ca! 6or Hel! . E" I* E" Sub Private Sub Te5t7_Oe(Pre))(I" e5 A) I"te,er9 Oe(A)cii A) I"te,er) I* Oe(A)cii - 73 T&e" I* I" e5 - 77 T&e" Te5t7(8)$Set6ocu) El)e Te5t7(I" e5 C 7)$Set6ocu) E" I* E" I* I* Oe(A)cii - 4G A" I" e5 - 3 T&e" Loa *r%#ivLi)t *r%#ivLi)t$S&o' E)ca!e - True E" I* I* Oe(A)cii - 4G A" I" e5 - ? T&e" )#e) - .MANAGER. Loa *r%E%!Li)t *r%E%!Li)t$S&o' E)ca!e - True E" I* E" Sub
./
Private Sub Te5t7_Lo)t6ocu)(I" e5 A) I"te,er) Select Ca)e (I" e5) Ca)e 4 I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .#e!art%e"t "a%e )&oul "ot be e%!t(. E5it Sub El)e I* C&eckAl!&a(Te5t7(4)$Te5t) - 8 T&e" Te5t7(4)$Set6ocu) Te5t7(4)$Te5t - .. M),+o5 .#E!art%e"t "a%e )&oul co"tai") o"l( al!&abet)9$(#ot) a" )!ace. E" I* E" I* Ca)e 3 I* Not ()#ivCo e - ..) T&e" Te5t7(3)$Te5t - )#ivCo e )#ivCo e - .. *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - .. E)ca!e - 6al)e E5it Sub El)e I* Tri%(Te5t7(3)$Te5t) - .. A" E)ca!e - 6al)e T&e" Te5t7(3)$Set6ocu) M),+o5 .#ivi)io" Co e )&oul "ot be e%!t(. E5it Sub E" I* E)ca!e - 6al)e E" I* I* Not (Tri%(Te5t7(3)$Te5t) - ..) T&e" I* (C&eck#ivCo e(Te5t7(3)$Te5t) - 8) T&e" Te5t7(3)$Set6ocu) Te5t7(3)$Te5t - .. M),+o5 .#ivi)io" co e oe) "ot e5i)t. E" I* E" I* Ca)e ? I* Not ()M,rCo e - ..) T&e" Te5t7(?)$Te5t - )M,rCo e )M,rCo e - .. *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - .. E)ca!e - 6al)e E5it Sub El)e I* Tri%(Te5t7(?)$Te5t) - .. A" E)ca!e - 6al)e T&e" Te5t7(?)$Set6ocu)
.0
M),+o5 .#e!art%e"t Hea Co e )&oul "ot be e%!t(. E5it Sub E" I* E)ca!e - 6al)e E" I* I* Not (Tri%(Te5t7(?)$Te5t) - ..) T&e" I* (C&eckE%!Co e(Te5t7(?)$Te5t) - 8) T&e" Te5t7(?)$Set6ocu) Te5t7(?)$Te5t - .. M),+o5 .#e!art%e"t Hea Co e oe) "ot e5i)t. E" I* E" I* E" Select E" Sub
(rm1ons
#i% obMLoa" A) Ne' Loa") #i% obME%! A) Ne' E%!Ma)ter #i% E)ca!e A) +oolea" #i% OL#EMI A) I"te,er Private Sub Co%%a" 7_Click() obMLoa"$A Recor obMLoa"$Ge"E"tr( OL#EMI - 8 Te5t7(8)$Te5t - obMLoa"$E"tr(No Te5t7(7)$Te5t - .. Te5t7(4)$Te5t - .. Te5t7(3)$Te5t - .. Te5t7(?)$Te5t - .. Te5t7(D)$Te5t - .. Te5t7(F)$Te5t - .. Te5t7(G)$Te5t - .NIL. Co%%a" 4$E"able - True Co%%a" 7$E"able - 6al)e Te5t7(4)$Set6ocu) E" Sub Private Sub Co%%a" 4_Click() I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) /3
M),+o5 .E%!lo(ee Co e )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(3)$Te5t) - .. T&e" Te5t7(3)$Set6ocu) M),+o5 .Loa" A%ou"t )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(?)$Te5t) - .. T&e" Te5t7(?)$Set6ocu) M),+o5 .I"tre)t Rate )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(D)$Te5t) - .. T&e" Te5t7(D)$Set6ocu) M),+o5 .Perio )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(7)$Te5t) - .. T&e" Te5t7(7)$Set6ocu) M),+o5 .#ate )&oul "ot be e%!t(. E5it Sub E" I* Tra")*er#ata Ol E"tr(No - Te5t7(8)$Te5t obMLoa"$SaveRecor obME%!$E%!Co e - Te5t7(4)$Te5t i - obME%!$U! ateEMI((I"t(Te5t7(F)$Te5t))9 OL#EMI) Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" Sub Public Sub Get#ata() Te5t7(8)$Te5t - obMLoa"$E"tr(No Te5t7(7)$Te5t - obMLoa"$Mo"t& Te5t7(4)$Te5t - obMLoa"$E%!No Te5t7(3)$Te5t - obMLoa"$Loa"A%t Te5t7(?)$Te5t - obMLoa"$I"tRate Te5t7(D)$Te5t - obMLoa"$Perio Te5t7(F)$Te5t - obMLoa"$EMI Te5t7(G)$Te5t - obMLoa"$Re%ark) E" Sub
/1
Public Sub Tra")*er#ata() obMLoa"$E"tr(No - Te5t7(8)$Te5t obMLoa"$Mo"t& - Te5t7(7)$Te5t obMLoa"$E%!No - Te5t7(4)$Te5t obMLoa"$Loa"A%t - Te5t7(3)$Te5t obMLoa"$I"tRate - Te5t7(?)$Te5t obMLoa"$Perio - Te5t7(D)$Te5t obMLoa"$EMI - Te5t7(F)$Te5t obMLoa"$Re%ark) - Te5t7(G)$Te5t E" Sub Private Sub Co%%a" 3_Click() obMLoa"$E itRecor OL#EMI - obMLoa"$EMI Co%%a" 4$E"able - True Co%%a" 3$E"able - 6al)e E" Sub Private Sub Co%%a" ?_Click() obMLoa"$#eleteRecor E" Sub Private Sub Co%%a" D_Click() obMLoa"$Previou)Recor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" F_Click() obMLoa"$6ir)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" G_Click() obMLoa"$Ne5tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e"
/2
Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" H_Click() obMLoa"$La)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" I_Click() U"loa Me E" Sub Private Sub Co%%a" I_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) U"loa Me E" Sub Private Sub 6or%_Oe(Pre))(Oe(A)cii A) I"te,er) Select Ca)e Oe(A)cii Ca)e vbOe(U! obMLoa"$6ir)tRecor Ca)e vbOe(#o'" obMLoa"$La)tRecor Ca)e vbOe(Le*t obMLoa"$Previou)Recor Ca)e vbOe(Ri,&t obMLoa"$Ne5tRecor E" Select E" Sub Private Sub 6or%_Loa () *r%Loa")$Le*t - ?FH8 *r%Loa")$To! - 3F88 Co%%a" 4$E"able - 6al)e I* (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 7$E"able - 6al)e Co%%a" 4$E"able - 6al)e
/3
Co%%a" 3$E"able - 6al)e Co%%a" ?$E"able - 6al)e E" I* I* (Tri%(Acce))Ri,&t) - .2rite.) T&e" Co%%a" ?$E"able - 6al)e E" I* obMLoa"$Get=alue6ro%Table Get#ata E" Sub Private Sub 6or%_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) I* +utto" - 4 T&e" Po!u!Me"u *r%Mai"Me"u$Utilitie) E" I* E" Sub Private Sub Te5t7_Got6ocu)(I" e5 A) I"te,er) I* I" e5 - 4 T&e" *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - )Hel!M), )Hel!M), - . Pre)) E)ca! 6or Hel! . E" I* E" Sub Private Sub Te5t7_Oe(Pre))(I" e5 A) I"te,er9 Oe(A)cii A) I"te,er) I* Oe(A)cii - 73 T&e" I* I" e5 - G T&e" Te5t7(8)$Set6ocu) El)e Te5t7(I" e5 C 7)$Set6ocu) E" I* E" I* I* Oe(A)cii - 4G A" I" e5 - 4 T&e" )#e) - .EMPLO;EE. Loa *r%E%!Li)t *r%E%!Li)t$S&o' E)ca!e - True E" I* E" Sub Private Sub Te5t7_Lo)t6ocu)(I" e5 A) I"te,er) Select Ca)e (I" e5) Ca)e 4 I* Not ()E%!Co e - ..) T&e"
/"
Te5t7(4)$Te5t - )E%!Co e )E%!Co e - .. *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - .. E)ca!e - 6al)e E5it Sub El)e I* Tri%(Te5t7(4)$Te5t) - .. A" E)ca!e - 6al)e T&e" Te5t7(4)$Set6ocu) M),+o5 .E%!lo(ee Co e )&oul "ot be e%!t(. E5it Sub E" I* E)ca!e - 6al)e E" I* I* Not (Tri%(Te5t7(4)$Te5t) - ..) T&e" I* (C&eckE%!Co e(Te5t7(4)$Te5t) - 8) T&e" Te5t7(4)$Set6ocu) Te5t7(4)$Te5t - .. M),+o5 .E%!lo(ee co e oe) "ot e5i)t. E" I* E" I* Ca)e 3 I* Tri%(Te5t7(3)$Te5t) - .. T&e" Te5t7(3)$Set6ocu) M),+o5 .Loa" A%ou"t )&oul "ot be e%!t(. El)e I* (C&eckNu%(Te5t7(3)$Te5t) - 8) T&e" Te5t7(3)$Set6ocu) Te5t7(3)$Te5t - .. M),+o5 .Loa" A%ou"t co"tai") o"l( i,it). E" I* E" I* Ca)e ? I* Tri%(Te5t7(?)$Te5t) - .. T&e" Te5t7(?)$Set6ocu) M),+o5 .I"tre)t Rate )&oul "ot be e%!t(. El)e I* C&eck#eci%al(Te5t7(?)$Te5t) - 8 T&e" M),+o5 .I"tre)t Rate ca" co"tai") o"l( #eci%al or i"te,er value. Te5t7(?)$Set6ocu) Te5t7(?)$Te5t - .. El)e I* C#ec(Te5t7(?)$Te5t) J 4D T&e" Te5t7(?)$Set6ocu) M),+o5 .I"tre)t Rate )&oul be le)) t&a" 4DP. E" I* E" I*
/+
E" I* Ca)e D I* Tri%(Te5t7(D)$Te5t) - .. T&e" Te5t7(D)$Set6ocu) M),+o5 .Perio )&oul "ot be e%!t(. E5it Sub El)e I* (C&eckNu%(Te5t7(D)$Te5t) - 8) T&e" Te5t7(D)$Set6ocu) Te5t7(D)$Te5t - .. M),+o5 .Perio co"tai") o"l( i,it). E5it Sub El)e I* I"t(Te5t7(D)$Te5t) J 3F T&e" Te5t7(D)$Set6ocu) Te5t7(D)$Te5t - .. M),+o5 .Perio )&oul "ot e5cee 3F %o"t&). E5it Sub E" I* E" I* E" I* #i% A%t A) #ouble #i% Per A) #ouble #i% #ur A) I"te,er #i% i A) I"te,er Per - 7 I* I" e5 - D T&e" #ur - CI"t(=al(Te5t7(D)$Te5t) N 74) 6or i - 7 To #ur Per - Per B (7 C =al(Te5t7(?)$Te5t) N 788) Ne5t i A%t - =al(Te5t7(3)$Te5t) B Per Label3$Ca!tio" - Rou" (A%t9 8) Te5t7(F)$Te5t - Rou" (A%t N =al(Te5t7(D)$Te5t)9 8) E" I* I* (obMLoa"$C&eckLoa"A%ou"t(Te5t7(4)$Te5t9 Te5t7(3)$Te5t)) T&e" Te5t7(D)$Te5t - .. Te5t7(3)$Set6ocu) Te5t7(3)$Te5t - .. E" I* Ca)e 7 I* Tri%(Te5t7(7)$Te5t) - .. T&e" Te5t7(7)$Set6ocu) M),+o5 .#ate )&oul "ot be e%!t(. E5it Sub El)e
/-
I* (Not vali _ ate(Te5t7(7)$Te5t)) T&e" Te5t7(7)$Set6ocu) E" I* E" I* E" Select E" Sub 6r%E%!lo(ee #i% obMCo%! A) Ne' E%!Ma)ter #i% E)ca!e A) +oolea" Private Sub Co%%a" D_Click() obMCo%!$Ne5tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" F_Click() obMCo%!$Previou)Recor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" G_Click() obMCo%!$La)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" H_Click() obMCo%!$6ir)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e
/.
Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" I_Click() U"loa Me E" Sub Private Sub Co%%a" I_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) U"loa Me E" Sub Private Sub 6or%_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) I* +utto" - 4 T&e" Po!u!Me"u *r%Mai"Me"u$Utilitie) E" I* E" Sub Private Sub Co%%a" 7_Click() obMCo%!$A Recor obMCo%!$Ge"E"tr( obMCo%!$Ge"Co e Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - obMCo%!$E%!Co e Te5t7(4)$Te5t - .. Te5t7(3)$Te5t - .. Te5t7(?)$Te5t - .. Te5t7(D)$Te5t - .. Te5t7(F)$Te5t - .. Te5t7(G)$Te5t - .. Te5t7(H)$Te5t - .. Co%%a" 4$E"able - True Co%%a" 7$E"able - 6al)e Te5t7(4)$Set6ocu) E" Sub Private Sub Co%%a" 4_Click() I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .E%!lo(ee "a%e )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(3)$Te5t) - .. T&e"
//
Te5t7(3)$Set6ocu) M),+o5 .#e)i,"atio" )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(?)$Te5t) - .. T&e" Te5t7(?)$Set6ocu) M),+o5 . Level "o$ )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(D)$Te5t) - .. T&e" Te5t7(D)$Set6ocu) M),+o5 .#e!art%e"t Co e )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(F)$Te5t) - .. T&e" Te5t7(F)$Set6ocu) M),+o5 .#ate )&oul "ot be e%!t(. E5it Sub E" I* I* (Tri%(Te5t7(G)$Te5t) - ..) T&e" Te5t7(G)$Set6ocu) M),+o5 .Salar( )&oul "ot be e%!t(. E" I* Tra")*er#ata obMCo%!$SaveRecor Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" Sub Public Sub Get#ata() Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - obMCo%!$E%!Co e Te5t7(4)$Te5t - obMCo%!$ENa%e Te5t7(3)$Te5t - obMCo%!$#e)i,"atio" Te5t7(?)$Te5t - obMCo%!$LevelNo Te5t7(D)$Te5t - obMCo%!$#e!tCo e Te5t7(F)$Te5t - obMCo%!$>oi"#ate Te5t7(G)$Te5t - obMCo%!$+a)ic Te5t7(H)$Te5t - obMCo%!$Re%ark) E" Sub Public Sub Tra")*er#ata() obMCo%!$E"tr(No - Te5t7(8)$Te5t
/0
obMCo%!$E%!Co e - Te5t7(7)$Te5t obMCo%!$ENa%e - Te5t7(4)$Te5t obMCo%!$#e)i,"atio" - Te5t7(3)$Te5t obMCo%!$LevelNo - Te5t7(?)$Te5t obMCo%!$#e!tCo e - Te5t7(D)$Te5t obMCo%!$>oi"#ate - Te5t7(F)$Te5t obMCo%!$+a)ic - Te5t7(G)$Te5t obMCo%!$Re%ark) - Te5t7(H)$Te5t E" Sub Private Sub Co%%a" 3_Click() obMCo%!$E itRecor Co%%a" 4$E"able - True Co%%a" 3$E"able - True E" Sub Private Sub 6or%_Oe(Pre))(Oe(A)cii A) I"te,er) Select Ca)e Oe(A)cii Ca)e vbOe(U! obMCo%!$6ir)tRecor Ca)e vbOe(#o'" obMCo%!$La)tRecor Ca)e vbOe(Le*t obMCo%!$Previou)Recor Ca)e vbOe(Ri,&t obMCo%!$Ne5tRecor E" Select E" Sub Private Sub 6or%_Loa () *r%E%!lo(ee$Le*t - ?FH8 *r%E%!lo(ee$To! - 4F88 Co%%a" 4$E"able - 6al)e I* (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 7$E"able - 6al)e Co%%a" 4$E"able - 6al)e Co%%a" 3$E"able - 6al)e E" I* obMCo%!$Get=alue6ro%Table Get#ata E" Sub Private Sub Te5t7_Got6ocu)(I" e5 A) I"te,er) Select Ca)e I" e5
03
Ca)e (?) *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - )Hel!M), )Hel!M), - . Pre)) E)ca! 6or Hel! . Ca)e (D) *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - )Hel!M), )Hel!M), - . Pre)) E)ca! 6or Hel! . E" Select E" Sub Private Sub Te5t7_Oe(Pre))(I" e5 A) I"te,er9 Oe(A)cii A) I"te,er) I* Oe(A)cii - 73 T&e" I* I" e5 - 77 T&e" Te5t7(8)$Set6ocu) El)e Te5t7(I" e5 C 7)$Set6ocu) E" I* E" I* I* Oe(A)cii - 4G A" I" e5 - ? T&e" Loa *r%LvlLi)t *r%LvlLi)t$S&o' E)ca!e - True E" I* I* Oe(A)cii - 4G A" I" e5 - D T&e" Loa *r%#e!tLi)t *r%#e!tLi)t$S&o' E)ca!e - True E" I* E" Sub Private Sub Te5t7_Lo)t6ocu)(I" e5 A) I"te,er) Select Ca)e I" e5 Ca)e (4) I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .E%!lo(ee "a%e )&oul "ot be e%!t(. El)e I* C&eckAl!&a(Te5t7(4)$Te5t) - 8 T&e" Te5t7(4)$Set6ocu) Te5t7(4)$Te5t - .. M),+o5 .E%!lo(ee "a%e )&oul co"tai") o"l( al!&abet)9$(#ot) a" )!ace. E" I* E" I* Ca)e (3) I* Tri%(Te5t7(3)$Te5t) - .. T&e" Te5t7(3)$Set6ocu)
01
M),+o5 .#e)i,"atio" )&oul "ot be e%!t(. El)e I* C&eckAl!&a(Te5t7(3)$Te5t) - 8 T&e" Te5t7(3)$Set6ocu) Te5t7(3)$Te5t - .. M),+o5 .#e)i,"atio" )&oul co"tai") o"l( al!&abet)9$(#ot) a" )!ace. E" I* E" I* Ca)e (?) I* Not ()LvlCo e - ..) T&e" Te5t7(?)$Te5t - )LvlCo e )LvlCo e - .. *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - .. E)ca!e - 6al)e E5it Sub El)e I* Tri%(Te5t7(?)$Te5t) - .. A" E)ca!e - 6al)e T&e" Te5t7(?)$Set6ocu) M),+o5 . Level "o$ )&oul "ot be e%!t(. E5it Sub E" I* E)ca!e - 6al)e E" I* I* Not (Tri%(Te5t7(?)$Te5t) - ..) T&e" I* (C&eckLvlCo e(Te5t7(?)$Te5t) - 8) T&e" Te5t7(?)$Set6ocu) Te5t7(?)$Te5t - .. M),+o5 . Level "o$ oe) "ot e5i)t. E" I* E" I* Ca)e (D) I* Not ()#e!tCo e - ..) T&e" Te5t7(D)$Te5t - )#e!tCo e )#e!tCo e - .. *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - .. E)ca!e - 6al)e E5it Sub El)e I* Tri%(Te5t7(D)$Te5t) - .. A" E)ca!e - 6al)e T&e" Te5t7(D)$Set6ocu) M),+o5 .#e!art%e"t Co e )&oul "ot be e%!t(. E5it Sub E" I* E)ca!e - 6al)e E" I* I* Not (Tri%(Te5t7(D)$Te5t) - ..) T&e"
02
I* (C&eck#e!tCo e(Te5t7(D)$Te5t) - 8) T&e" Te5t7(D)$Set6ocu) Te5t7(D)$Te5t - .. M),+o5 . #e!art%e"t co e oe) "ot e5i)t. E" I* E" I* Ca)e (F) I* Tri%(Te5t7(F)$Te5t) - .. T&e" Te5t7(F)$Set6ocu) M),+o5 .#ate )&oul "ot be e%!t(. E5it Sub El)e I* (Not vali _ ate(Te5t7(F)$Te5t)) T&e" Te5t7(F)$Set6ocu) E" I* E" I* Ca)e (G) I* (Tri%(Te5t7(G)$Te5t) - ..) T&e" Te5t7(G)$Set6ocu) M),+o5 .Salar( )&oul "ot be e%!t(. E5it Sub El)e I* (C&eckNu%(Te5t7(G)$Te5t) - 8) T&e" Te5t7(G)$Set6ocu) Te5t7(G)$Te5t - .. M),+o5 .E"ter o"l( i,it) i" )alar(. E" I* E" I* E" Select E" Sub
(rmEm'2er%etails
#i% obMCo%! A) Ne' E%!Per#etail #i% bA Ne' A) +oolea" #i% bE it A) +oolea" #i% A) I"te,er #i% %% A) I"te,er #i% (( A) I"te,er #i% a( A) I"te,er #i% E)ca!e A) +oolea" Private Sub Co%%a" 7_Click() obMCo%!$A Recor 03
bA Ne' - True obMCo%!$Ge"E"tr( Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - .. Te5t7(4)$Te5t - .. Te5t7(3)$Te5t - .. Co%bo7$Te5t - .M. Co%bo4$Te5t - .Marie . Te5t7(F)$Te5t - .. Te5t7(G)$Te5t - .. Te5t7(H)$Te5t - .. Te5t7(I)$Te5t - .. Te5t7(78)$Te5t - .. Te5t7(77)$Te5t - .. Te5t7(74)$Te5t - .. Te5t7(73)$Te5t - .. Te5t7(7?)$Te5t - .. Te5t7(7D)$Te5t - .. Te5t7(7F)$Te5t - .. Te5t7(7)$Set6ocu) Co%%a" 4$E"able - True Co%%a" 7$E"able - 6al)e Te5t7(7)$Set6ocu) E" Sub Private Sub Co%%a" 4_Click() I* Tri%(Te5t7(7)$Te5t) - .. T&e" Te5t7(7)$Set6ocu) M),+o5 .E%!lo(ee Co e )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .6at&er "a%e )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(3)$Te5t) - .. T&e" Te5t7(3)$Set6ocu) M),+o5 .#ate )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(F)$Te5t) - .. T&e" Te5t7(F)$Set6ocu) M),+o5 .Per%a"e"t A re)) )&oul "ot be e%!t(. E5it Sub
0"
E" I* I* Tri%(Te5t7(G)$Te5t) - .. T&e" Te5t7(G)$Set6ocu) M),+o5 .Per%a"e"t Cit( )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(H)$Te5t) - .. T&e" Te5t7(H)$Set6ocu) M),+o5 .Per%a"e"t State )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(77)$Te5t) - .. T&e" Te5t7(77)$Set6ocu) M),+o5 .Corre)!o" e"ce A re)) )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(74)$Te5t) - .. T&e" Te5t7(74)$Set6ocu) M),+o5 .Corre)!o" e"ce Cit( )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(73)$Te5t) - .. T&e" Te5t7(73)$Set6ocu) M),+o5 .Corre)!o" e"ce State )&oul "ot be e%!t(. E" I* I* obMCo%!$bA Mo e T&e" I* (obMCo%!$C&eck#u!E%!(Te5t7(7)$Te5t)) T&e" M),+o5 .Recor Alrea ( E5i)t. Te5t7(7)$Set6ocu) Te5t7(7)$Te5t - .. E5it Sub E" I* E" I* Tra")*er#ata obMCo%!$SaveRecor Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" Sub Public Sub Get#ata() Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - obMCo%!$E%!No Te5t7(4)$Te5t - obMCo%!$6at&erNa%e Te5t7(3)$Te5t - obMCo%!$#ateO*+irt&
0+
Co%bo7$Te5t - obMCo%!$Se5 Co%bo4$Te5t - obMCo%!$MaritalStatu) Te5t7(F)$Te5t - obMCo%!$PerA re)) Te5t7(G)$Te5t - obMCo%!$PerCit( Te5t7(H)$Te5t - obMCo%!$PerState Te5t7(I)$Te5t - obMCo%!$PerPi" Te5t7(78)$Te5t - obMCo%!$PerP&o"e Te5t7(77)$Te5t - obMCo%!$CorA re)) Te5t7(74)$Te5t - obMCo%!$CorCit( Te5t7(73)$Te5t - obMCo%!$CorState Te5t7(7?)$Te5t - obMCo%!$CorPi" Te5t7(7D)$Te5t - obMCo%!$CorP&o"e Te5t7(7F)$Te5t - obMCo%!$Re%ark) E" Sub Public Sub Tra")*er#ata() obMCo%!$E"tr(No - Te5t7(8)$Te5t obMCo%!$E%!No - Te5t7(7)$Te5t obMCo%!$6at&erNa%e - Te5t7(4)$Te5t obMCo%!$#ateO*+irt& - Te5t7(3)$Te5t obMCo%!$Se5 - Tri%(Co%bo7$Te5t) obMCo%!$MaritalStatu) - Co%bo4$Te5t obMCo%!$PerA re)) - Te5t7(F)$Te5t obMCo%!$PerCit( - Te5t7(G)$Te5t obMCo%!$PerState - Te5t7(H)$Te5t obMCo%!$PerPi" - Te5t7(I)$Te5t obMCo%!$PerP&o"e - Te5t7(78)$Te5t obMCo%!$CorA re)) - Te5t7(77)$Te5t obMCo%!$CorCit( - Te5t7(74)$Te5t obMCo%!$CorState - Te5t7(73)$Te5t obMCo%!$CorPi" - Te5t7(7?)$Te5t obMCo%!$CorP&o"e - Te5t7(7D)$Te5t obMCo%!$Re%ark) - Te5t7(7F)$Te5t E" Sub Private Sub Co%%a" 3_Click() obMCo%!$E itRecor Co%%a" 4$E"able - True Co%%a" 3$E"able - 6al)e E" Sub Private Sub Co%%a" ?_Click() obMCo%!$#eleteRecor E" Sub Private Sub Co%%a" D_Click()
0-
obMCo%!$Ne5tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" F_Click() obMCo%!$Previou)Recor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" G_Click() obMCo%!$La)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" H_Click() obMCo%!$6ir)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" I_Click() U"loa Me E" Sub Private Sub Co%%a" I_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) U"loa Me
0.
E" Sub Private Sub 6or%_Oe(Pre))(Oe(A)cii A) I"te,er) Select Ca)e Oe(A)cii Ca)e vbOe(U! obMCo%!$6ir)tRecor Ca)e vbOe(#o'" obMCo%!$La)tRecor Ca)e vbOe(Le*t obMCo%!$Previou)Recor Ca)e vbOe(Ri,&t obMCo%!$Ne5tRecor E" Select E" Sub Private Sub 6or%_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) I* +utto" - 4 T&e" Po!u!Me"u *r%Mai"Me"u$Utilitie) E" I* E" Sub Private Sub 6or%_Loa () *r%E%!Per#etail$Le*t - 4HH8 *r%E%!Per#etail$To! - 4388 Co%%a" 4$E"able - 6al)e I* (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 7$E"able - 6al)e Co%%a" 4$E"able - 6al)e Co%%a" 3$E"able - 6al)e Co%%a" ?$E"able - 6al)e E" I* I* (Tri%(Acce))Ri,&t) - .2rite.) T&e" Co%%a" ?$E"able - 6al)e E" I* obMCo%!$Get=alue6ro%Table Get#ata E" Sub
Private Sub Te5t7_Oe(Pre))(I" e5 A) I"te,er9 Oe(A)cii A) I"te,er) I* Oe(A)cii - 73 T&e" I* I" e5 - 7F T&e"
0/
Te5t7(8)$Set6ocu) El)e I* I" e5 - 3 T&e" I" e5 - D E" I* Te5t7(I" e5 C 7)$Set6ocu) E" I* E" I* I* Oe(A)cii - 4G A" I" e5 - 7 T&e" )#e) - .EMPLO;EE. Loa *r%E%!Li)t *r%E%!Li)t$S&o' E)ca!e - True E" I* E" Sub Private Sub Te5t7_Got6ocu)(I" e5 A) I"te,er) I* I" e5 - 7 T&e" *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - )Hel!M), )Hel!M), - . Pre)) E)ca! 6or Hel! . E" I* E" Sub Private Sub Te5t7_Lo)t6ocu)(I" e5 A) I"te,er) Select Ca)e (I" e5) Ca)e 7 I* Not ()E%!Co e - ..) T&e" Te5t7(7)$Te5t - )E%!Co e )E%!Co e - .. *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - .. E)ca!e - 6al)e El)e I* Tri%(Te5t7(7)$Te5t) - .. A" E)ca!e - 6al)e T&e" Te5t7(7)$Set6ocu) M),+o5 .E%!lo(ee Co e )&oul "ot be e%!t(. E5it Sub E" I* E)ca!e - 6al)e E" I* I* Not (Tri%(Te5t7(7)$Te5t) - ..) T&e" I* (C&eckE%!Co e(Te5t7(7)$Te5t) - 8) T&e" Te5t7(7)$Set6ocu)
00
Te5t7(7)$Te5t - .. M),+o5 .E%!lo(ee co e oe) "ot e5i)t. E" I* E" I* I* (obMCo%!$C&eck#u!E%!(Te5t7(7)$Te5t)) T&e" M),+o5 .Recor Alrea ( E5i)t. Te5t7(7)$Set6ocu) Te5t7(7)$Te5t - .. E" I* Ca)e 4 I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .6at&er "a%e )&oul "ot be e%!t(. E5it Sub El)e I* C&eckAl!&a(Te5t7(4)$Te5t) - 8 T&e" Te5t7(4)$Set6ocu) Te5t7(4)$Te5t - .. M),+o5 .6at&er "a%e )&oul co"tai") o"l( al!&abet)9$(#ot) a" )!ace. E" I* E" I* Ca)e 3 I* Tri%(Te5t7(3)$Te5t) - .. T&e" Te5t7(3)$Set6ocu) M),+o5 .#ate )&oul "ot be e%!t(. E5it Sub El)e I* (Not vali _ ate(Te5t7(3)$Te5t)) T&e" Te5t7(3)$Set6ocu) E" I* E" I* Ca)e F I* Tri%(Te5t7(F)$Te5t) - .. T&e" Te5t7(F)$Set6ocu) M),+o5 .Per%a"e"t A re)) )&oul "ot be e%!t(. E5it Sub E" I* Ca)e G I* Tri%(Te5t7(G)$Te5t) - .. T&e" Te5t7(G)$Set6ocu) M),+o5 .Per%a"e"t Cit( )&oul "ot be e%!t(. E5it Sub E" I* Ca)e H I* Tri%(Te5t7(H)$Te5t) - .. T&e" Te5t7(H)$Set6ocu)
133
M),+o5 .Per%a"e"t State )&oul "ot be e%!t(. E5it Sub El)e I* C&eckAl!&a(Te5t7(H)$Te5t) - 8 T&e" Te5t7(H)$Set6ocu) Te5t7(H)$Te5t - .. M),+o5 .State )&oul co"tai") o"l( al!&abet). E" I* E" I* Ca)e I I* Tri%(Te5t7(I)$Te5t) EJ .. T&e" I* C&eckNu%(Te5t7(I)$Te5t) - 8 T&e" Te5t7(I)$Te5t - .. Te5t7(I)$Set6ocu) M),+o5 .Pi" co e co"tai" o"l( i,it). El)e I* Le"(Te5t7(I)$Te5t) E F T&e" M),+o5 .Pi" co e too )&ort. Te5t7(I)$Set6ocu) E" I* E" I* E" I* Ca)e 77 I* Tri%(Te5t7(77)$Te5t) - .. T&e" Te5t7(77)$Set6ocu) M),+o5 .Corre)!o" e"ce A re)) )&oul "ot be e%!t(. E5it Sub E" I* Ca)e 74 I* Tri%(Te5t7(74)$Te5t) - .. T&e" Te5t7(74)$Set6ocu) M),+o5 .Corre)!o" e"ce Cit( )&oul "ot be e%!t(. E5it Sub E" I* Ca)e 73 I* (Te5t7(73)$Te5t) - .. T&e" Te5t7(73)$Set6ocu) M),+o5 .Corre)!o" e"ce State )&oul "ot be e%!t(. E5it Sub El)e I* C&eckAl!&a(Te5t7(73)$Te5t) - 8 T&e" Te5t7(73)$Set6ocu) Te5t7(73)$Te5t - .. M),+o5 .State )&oul co"tai") o"l( al!&abet). E" I* E" I*
131
Ca)e 7? I* Tri%(Te5t7(7?)$Te5t) EJ .. T&e" I* C&eckNu%(Te5t7(7?)) - 8 T&e" Te5t7(7?)$Te5t - .. Te5t7(7?)$Set6ocu) M),+o5 .Pi" co e co"tai" o"l( i,it). El)e I* Le"(Te5t7(7?)$Te5t) E F T&e" M),+o5 .Pi" co e too )&ort. Te5t7(7?)$Set6ocu) E" I* E" I* E" I* E" Select E" Sub 6r%Atte" a"ce #i% obMCo%! A) Ne' Atte" a"ce #i% E)ca!e A) +oolea" Private Sub Co%bo7_Lo)t6ocu)() #i% i A) I"te,er i-8 2&ile (i E Co%bo7$Li)tCou"t) I* Not (Co%bo7$Te5t - Co%bo7$Li)t(i)) T&e" %atc& - 6al)e El)e %atc& - True E5it Sub E" I* i-iC7 2e" I* %atc& - 6al)e T&e" M),+o5 .Select %o"t& *ro% li)t. Co%bo7$Set6ocu) E" I* E" Sub Private Sub Co%%a" 7_Click() obMCo%!$A Recor obMCo%!$Ge"E"tr( Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - .. Te5t7(4)$Te5t - .8. Te5t7(3)$Te5t - .8.
132
Te5t7(?)$Te5t - .8. Te5t7(D)$Te5t - .8. Co%bo7$Te5t - .Select. Co%%a" 4$E"able - True Co%%a" 7$E"able - 6al)e Te5t7(7)$Set6ocu) E" Sub Private Sub Co%%a" 4_Click() I* (Tri%(Te5t7(7)$Te5t) - ..) T&e" Te5t7(7)$Set6ocu) M),+o5 .E%!lo(ee Co e )&oul "ot be e%!t(. E5it Sub E" I* I* (Tri%(Te5t7(4)$Te5t) - ..) T&e" Te5t7(4)$Set6ocu) M),+o5 .Ca)ual Leave )&oul "ot be e%!t(. E5it Sub E" I* I* (Tri%(Te5t7(3)$Te5t) - ..) T&e" Te5t7(3)$Set6ocu) M),+o5 .Me iacal Leave )&oul "ot be e%!t(. E5it Sub E" I* I* (Tri%(Te5t7(?)$Te5t) - ..) T&e" Te5t7(?)$Set6ocu) M),+o5 .Ear" Leave )&oul "ot be e%!t(. E5it Sub E" I* I* (Tri%(Te5t7(D)$Te5t) - ..) T&e" Te5t7(D)$Set6ocu) M),+o5 .Ab)e"t )&oul "ot be e%!t(. E5it Sub E" I* #i% i A) I"te,er i-8 #i% %atc& A) +oolea" 2&ile ((i E Co%bo7$Li)tCou"t) A" (%atc& - 6al)e)) I* Not (Co%bo7$Te5t - Co%bo7$Li)t(i)) T&e" %atc& - 6al)e El)e %atc& - True E" I* i-iC7 2e" I* %atc& - 6al)e T&e"
133
M),+o5 .Select %o"t& *ro% li)t. Co%bo7$Set6ocu) E5it Sub E" I* Tra")*er#ata Ol E"tr(No - Te5t7(8)$Te5t obMCo%!$SaveRecor Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" Sub Public Sub Get#ata() Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - obMCo%!$E%!No Te5t7(4)$Te5t - obMCo%!$CL Te5t7(3)$Te5t - obMCo%!$ML Te5t7(?)$Te5t - obMCo%!$EL Te5t7(D)$Te5t - obMCo%!$Ab)e"t Co%bo7$Te5t - obMCo%!$Mo"t&) E" Sub Public Sub Tra")*er#ata() obMCo%!$E"tr(No - Te5t7(8)$Te5t obMCo%!$E%!No - Te5t7(7)$Te5t obMCo%!$CL - =al(Te5t7(4)$Te5t) obMCo%!$ML - =al(Te5t7(3)$Te5t) obMCo%!$EL - =al(Te5t7(?)$Te5t) obMCo%!$Ab)e"t - =al(Te5t7(D)$Te5t) obMCo%!$Mo"t&) - Co%bo7$Te5t E" Sub Private Sub Co%%a" 3_Click() obMCo%!$E itRecor Co%%a" 4$E"able - True Co%%a" 3$E"able - 6al)e E" Sub Private Sub Co%%a" ?_Click() obMCo%!$#eleteRecor E" Sub Private Sub Co%%a" D_Click() obMCo%!$Previou)Recor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e"
13"
Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" F_Click() obMCo%!$6ir)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" G_Click() obMCo%!$Ne5tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" H_Click() obMCo%!$La)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" Co%%a" 7$E"able Co%%a" 4$E"able Co%%a" 3$E"able Co%%a" ?$E"able U"loa Me E" Sub I_Click() - True - True - True - True
13+
Private Sub Co%%a" I_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) U"loa Me E" Sub Private Sub 6or%_Oe(Pre))(Oe(A)cii A) I"te,er) Select Ca)e Oe(A)cii Ca)e vbOe(U! obMCo%!$6ir)tRecor Ca)e vbOe(#o'" obMCo%!$La)tRecor Ca)e vbOe(Le*t obMCo%!$Previou)Recor Ca)e vbOe(Ri,&t obMCo%!$Ne5tRecor E" Select E" Sub Private Sub 6or%_Loa () Co%%a" 4$E"able - 6al)e I* (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 7$E"able - 6al)e Co%%a" 4$E"able - 6al)e Co%%a" 3$E"able - 6al)e Co%%a" ?$E"able - 6al)e E" I* I* (Tri%(Acce))Ri,&t) - .2rite.) T&e" Co%%a" ?$E"able - 6al)e E" I* *r%Atte" a"ce$Le*t - ?FH8 *r%Atte" a"ce$To! - 3F88 obMCo%!$Get=alue6ro%Table Get#ata E" Sub Private Sub 6or%_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) I* +utto" - 4 T&e" Po!u!Me"u *r%Mai"Me"u$Utilitie) E" I* E" Sub
13-
I* I" e5 - 7 T&e" *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - )Hel!M), )Hel!M), - . Pre)) E)ca! 6or Hel! . E" I* E" Sub Private Sub Te5t7_Oe(Pre))(I" e5 A) I"te,er9 Oe(A)cii A) I"te,er) I* Oe(A)cii - 73 T&e" I* I" e5 - D T&e" Te5t7(8)$Set6ocu) El)e Te5t7(I" e5 C 7)$Set6ocu) E" I* E" I* I* Oe(A)cii - 4G A" I" e5 - 7 T&e" )#e) - .EMPLO;EE. Loa *r%E%!Li)t *r%E%!Li)t$S&o' E)ca!e - True E" I* E" Sub Private Sub Te5t7_Lo)t6ocu)(I" e5 A) I"te,er) Select Ca)e (I" e5) Ca)e 7 I* Not ()E%!Co e - ..) T&e" Te5t7(7)$Te5t - )E%!Co e )E%!Co e - .. *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - .. E)ca!e - 6al)e E5it Sub El)e I* Tri%(Te5t7(7)$Te5t) - .. A" E)ca!e - 6al)e T&e" Te5t7(7)$Set6ocu) M),+o5 .E%!lo(ee Co e )&oul "ot be e%!t(. E5it Sub E" I* E)ca!e - 6al)e E" I* I* Not (Tri%(Te5t7(7)$Te5t) - ..) T&e" I* (C&eckE%!Co e(Te5t7(7)$Te5t) - 8) T&e" Te5t7(7)$Set6ocu)
13.
Te5t7(7)$Te5t - .. M),+o5 .E%!lo(ee co e oe) "ot e5i)t. El)e *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - .. E" I* E" I* Ca)e 4 I* (Tri%(Te5t7(4)$Te5t) - ..) T&e" Te5t7(4)$Set6ocu) M),+o5 .Ca)ual Leave )&oul "ot be e%!t(. E5it Sub El)e I* (C&eckNu%(Te5t7(4)$Te5t) - 8) T&e" Te5t7(4)$Set6ocu) Te5t7(4)$Te5t - .8. M),+o5 .Ca)ual Leave co"tai") o"l( i,it). E" I* E" I* Ca)e 3 I* (Tri%(Te5t7(3)$Te5t) - ..) T&e" Te5t7(3)$Set6ocu) M),+o5 .Me iacal Leave )&oul "ot be e%!t(. E5it Sub El)e I* (C&eckNu%(Te5t7(3)$Te5t) - 8) T&e" Te5t7(3)$Set6ocu) Te5t7(3)$Te5t - .8. M),+o5 .Me ical Leave co"tai") o"l( i,it). E" I* E" I* Ca)e ? I* (Tri%(Te5t7(?)$Te5t) - ..) T&e" Te5t7(?)$Set6ocu) M),+o5 .Ear" Leave )&oul "ot be e%!t(. E5it Sub El)e I* (C&eckNu%(Te5t7(?)$Te5t) - 8) T&e" Te5t7(?)$Set6ocu) Te5t7(?)$Te5t - .8. M),+o5 .Ear" Leave co"tai") o"l( i,it). E" I* E" I* Ca)e D I* (Tri%(Te5t7(D)$Te5t) - ..) T&e" Te5t7(D)$Set6ocu) M),+o5 .Ab)e"t )&oul "ot be e%!t(.
13/
E5it Sub El)e I* (C&eckNu%(Te5t7(D)$Te5t) - 8) T&e" Te5t7(D)$Set6ocu) Te5t7(D)$Te5t - .8. M),+o5 .Ab)e"t co"tai") o"l( i,it). E" I* E" I* E" Select E" Sub
(rmEm'Edu%etails
#i% obMCo%! A) Ne' E%!E u#etail #i% E)ca!e A) +oolea" Private Sub Co%%a" 7_Click() obMCo%!$A Recor obMCo%!$Ge"E"tr( Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - .. Te5t7(4)$Te5t - .. Te5t7(3)$Te5t - .. Te5t7(?)$Te5t - .. Te5t7(D)$Te5t - .. Te5t7(F)$Te5t - .. Te5t7(G)$Te5t - .. Te5t7(H)$Te5t - .. Te5t7(I)$Te5t - .. Co%%a" 4$E"able - True Co%%a" 7$E"able - 6al)e Te5t7(7)$Set6ocu) E" Sub Private Sub Co%%a" 4_Click() I* Tri%(Te5t7(7)$Te5t) - .. T&e" Te5t7(7)$Set6ocu) M),+o5 .E%!lo(ee Co e )&oul "ot be e%!t(. E5it Sub E" I* I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .Ge"ral <uili*icatio" )&oul "ot be e%!t(.
130
E5it Sub E" I* I* obMCo%!$bA Mo e T&e" I* (obMCo%!$C&eck#u!E%!(Te5t7(7)$Te5t)) T&e" M),+o5 .Recor Alrea ( E5i)t. Te5t7(7)$Set6ocu) Te5t7(7)$Te5t - .. E5it Sub E" I* E" I* Tra")*er#ata obMCo%!$SaveRecor Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" Sub Public Sub Get#ata() Te5t7(8)$Te5t - obMCo%!$E"tr(No Te5t7(7)$Te5t - obMCo%!$E%!No Te5t7(4)$Te5t - obMCo%!$Ge"<uali Te5t7(3)$Te5t - obMCo%!$Tec&<uali Te5t7(?)$Te5t - obMCo%!$E5!erie"ce Te5t7(D)$Te5t - obMCo%!$NoO*;ear) Te5t7(F)$Te5t - obMCo%!$La)tE%!lo(er Te5t7(G)$Te5t - obMCo%!$Slar(#r'a" Te5t7(H)$Te5t - obMCo%!$#uratio" Te5t7(I)$Te5t - obMCo%!$Re%ark) E" Sub Public Sub Tra")*er#ata() obMCo%!$E"tr(No - Te5t7(8)$Te5t obMCo%!$E%!No - Te5t7(7)$Te5t obMCo%!$Ge"<uali - Te5t7(4)$Te5t obMCo%!$Tec&<uali - Te5t7(3)$Te5t obMCo%!$E5!erie"ce - Te5t7(?)$Te5t obMCo%!$NoO*;ear) - Te5t7(D)$Te5t obMCo%!$La)tE%!lo(er - Te5t7(F)$Te5t obMCo%!$Slar(#r'a" - Te5t7(G)$Te5t obMCo%!$#uratio" - Te5t7(H)$Te5t obMCo%!$Re%ark) - Te5t7(I)$Te5t E" Sub Private Sub Co%%a" 3_Click() obMCo%!$E itRecor
113
Co%%a" 4$E"able - True Co%%a" 3$E"able - 6al)e E" Sub Private Sub Co%%a" ?_Click() obMCo%!$#eleteRecor E" Sub Private Sub Co%%a" D_Click() obMCo%!$Ne5tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" F_Click() obMCo%!$Previou)Recor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" G_Click() obMCo%!$La)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I* E" Sub Private Sub Co%%a" H_Click() obMCo%!$6ir)tRecor Get#ata I* Not (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 4$E"able - 6al)e Co%%a" 7$E"able - True Co%%a" 3$E"able - True E" I*
111
E" Sub Private Sub Co%%a" I_Click() U"loa Me E" Sub Private Sub Co%%a" I_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) U"loa Me E" Sub Private Sub 6or%_Mou)e#o'"(+utto" A) I"te,er9 S&i*t A) I"te,er9 : A) Si",le9 ; A) Si",le) I* +utto" - 4 T&e" Po!u!Me"u *r%Mai"Me"u$Utilitie) E" I* E" Sub Private Sub 6or%_Oe(Pre))(Oe(A)cii A) I"te,er) Select Ca)e Oe(A)cii Ca)e vbOe(U! obMCo%!$6ir)tRecor Ca)e vbOe(#o'" obMCo%!$La)tRecor Ca)e vbOe(Le*t obMCo%!$Previou)Recor Ca)e vbOe(Ri,&t obMCo%!$Ne5tRecor E" Select E" Sub Private Sub 6or%_Loa () *r%E%!E u#etail$Le*t - ?FH8 *r%E%!E u#etail$To! - 4F88 Co%%a" 4$E"able - 6al)e I* (Tri%(Acce))Ri,&t) - .Rea .) T&e" Co%%a" 7$E"able - 6al)e Co%%a" 4$E"able - 6al)e Co%%a" 3$E"able - 6al)e Co%%a" ?$E"able - 6al)e E" I* I* (Tri%(Acce))Ri,&t) - .2rite.) T&e" Co%%a" ?$E"able - 6al)e E" I* obMCo%!$Get=alue6ro%Table
112
Get#ata E" Sub Private Sub Te5t7_Oe(Pre))(I" e5 A) I"te,er9 Oe(A)cii A) I"te,er) I* Oe(A)cii - 73 T&e" I* I" e5 - 77 T&e" Te5t7(8)$Set6ocu) El)e Te5t7(I" e5 C 7)$Set6ocu) E" I* E" I* I* Oe(A)cii - 4G A" I" e5 - 7 T&e" )#e) - .EMPLO;EE. Loa *r%E%!Li)t *r%E%!Li)t$S&o' E)ca!e - True E" I* E" Sub Private Sub Te5t7_Got6ocu)(I" e5 A) I"te,er) I* I" e5 - 7 T&e" *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - )Hel!M), )Hel!M), - . Pre)) E)ca! 6or Hel! . E" I* E" Sub Private Sub Te5t7_Lo)t6ocu)(I" e5 A) I"te,er) Select Ca)e (I" e5) Ca)e 7 I* Not ()E%!Co e - ..) T&e" Te5t7(7)$Te5t - )E%!Co e )E%!Co e - .. *r%Mai"Me"u$)t+ar7$Pa"el)(4)$Te5t - .. E)ca!e - 6al)e I* (obMCo%!$C&eck#u!E%!(Te5t7(7)$Te5t)) T&e" M),+o5 .Recor Alrea ( E5i)t. Te5t7(7)$Set6ocu) Te5t7(7)$Te5t - .. E" I* El)e I* Tri%(Te5t7(7)$Te5t) - .. A" E)ca!e - 6al)e T&e" Te5t7(7)$Set6ocu) M),+o5 .E%!lo(ee Co e )&oul "ot be e%!t(.
113
E5it Sub E" I* E)ca!e - 6al)e E" I* I* Not (Tri%(Te5t7(7)$Te5t) - ..) T&e" I* (C&eckE%!Co e(Te5t7(7)$Te5t) - 8) T&e" Te5t7(7)$Set6ocu) Te5t7(7)$Te5t - .. M),+o5 .E%!lo(ee co e oe) "ot e5i)t. E" I* E" I* I* (obMCo%!$C&eck#u!E%!(Te5t7(7)$Te5t)) T&e" M),+o5 .Recor Alrea ( E5i)t. Te5t7(7)$Set6ocu) Te5t7(7)$Te5t - .. E" I* Ca)e 4 I* Tri%(Te5t7(4)$Te5t) - .. T&e" Te5t7(4)$Set6ocu) M),+o5 .Ge"ral <uili*icatio" )&oul "ot be e%!t(. E5it Sub E" I* E" Select E" Sub
(rm#bout
Private Sub Co%%a" 7_Click() U"loa Me E" Sub Private Sub 6or%_Loa () AboutHel!$Le*t - ?FH8 AboutHel!$To! - 3F88 E" Sub Private Sub LabelD_Click() E" Sub
11"
11+
SO&T2ARE TESTING
Testin& and debu&&in& strate&$ T*e testin& and debu&&in& o! t*e Human Resource 5ana&ement was done 9ee'in& t*e !ollowin& &uidelines. T*e !irst sta&e testin& o! t*e s$stem was unit testin&. Unit testin& was 'er!ormed as and w*en eac* 'ro&ram was read$. #!ter eac* unit was tested t*orou&*l$ t*en t*e s$stem was 'ut t*rou&* s$stem test. Here t*e in'uts to t*e s$stem were &iven and t*e out'ut noted. T*e error in t*e s$stem to 'ut to correction and t*en a&ain t*e 'rocess was re'eated.
Je$ c*ec9< T*is is ver$ im'ortant test !or t*e s$stem. It must be con!irmed t*at on a''endin& a new record t*e 'rimar$ 9e$ is unique. #lso w*ile modi!$in& t*e record t*e 'rimar$ 9e$ can not be modi!ied. I! a du'licate 9e$ is entered t*en an error messa&e must in!orm t*e user o! it. )ommit and rollbac9 test< T*e unit testin& also tests w*et*er on savin& t*e record6 does t*e record is saved to t*e database. In case o! a database error t*e entire transaction must rollbac9 to t*e state o! t*e database was be!ore t*e transaction. To 'er!orm t*is test a database error *as to be simulated and t*en a c*ec9 needs to be made on w*et*er t*e database rollbac9 *as ta9en 'lace or not.
11-
tress test< T*e !inal test to be 'er!ormed durin& unit testin& in t*e stress testin& *ere t*e 'ro&ram is 'ut t*rou&* e=treme stress6 li9e all t*e 9e$s o! t*e 9e$board bein& 'ressed or jun9 data bein& 'ut t*rou&*. T*e s$stem bein& tested s*ould be able to *andle t*at stress.
S4ste( testi+,:
Once t*e entire s$stem *as been subjected to a unit test and t*e bu&s removed6 t*e s$stem is 'ut t*rou&* a s$stem test. T*e s$stem is tested as a w*ole to c*ec9 !or s$stem inte&rit$ and co*esiveness amon&st various units.
A##e/t)+#e testi+,:
Once t*e testin& is com'leted on t*e develo'ers end t*en t*e s$stem was 'ut t*rou&* an acce'tance test. T*e client conducted t*is test. T*e customer service s$stem is 'ut t*rou&* a Real Time test. T*e s$stem *as been im'lemented on:line !or a section o! t*e users and is bein& tested simultaneousl$.
0e1u,,i+,:
T*e debu&&in& '*ase is an in*erent 'art o! t*e testin&. #ll t*e errors a!ter eac* c$cle is tested are noted down. Eac* error is t*en ta9en one b$ one and t*e cause o! error traced. T*ese debu&&in& 'rocesses t*en result in error correction. T*e c$cle between testin& and debu&&in& continuous till all errors are removed. T*e debu&&in& 'rocess in eac* '*ase o! testin& requires a di!!erent e=ercise<: Unit Testin&< #!ter a list o! errors is made. Eac* error is ta9en one b$ one and 'roblem is traced down to 'iece o! t*e 'ro&ram code t*at is creatin& 'roblem. us'endin& t*e 'ro&ram at 'oints and t*e c*ec9in& t*e validit$ o! data at t*at 'oint and also t*e values t*e variables ta9e at t*at 'oint does t*is. $stem Testin&< ince s$stem testin& is basicall$ a test o! t*e out'uts to a &iven set o! in'uts6 w*en a wron& out'ut is recorded t*e activit$ is< (ind t*e module6 w*ic* is causin& t*e 'roblem. Ait*in t*e module c*ec9 eac* 'rocess and earmar9 t*e 'rocess6 w*ic* &ives a wron& out'ut. Ait*in t*e 'rocess mar9 out 'ro&ram6 w*ic* is &eneratin& an error and t*en correct t*e error usin& t*e same !ormula as above.
Inte&ration Testin&< Here t*e activit$ is to !ind out w*ere t*e !ault lies K wit* t*e client or wit* t*e server. Or else t*e !ault ma$ lie wit* t*ree middle ware. Once t*e 'roblem is traced down to w*ere it lies is removed.
11.
(inall$ 'roject is run to test t*e connectivit$ and inte&rit$ o! di!!erent o'tions &iven in t*e menu to t*e c*oices &iven b$ t*e user. T*is is to ensure t*at t*e s$stem is res'ondin& well and &ivin& best results as 'er user e='ectations and requirements.
11/
110
HRM will *ave a 'ower!ul securit$ c*ec9s. T*e levels o! securities are !ollowin&< 1. A##ess Co+trol: A*o *as ri&*t to access t*e so!twareM 2. Aut!oriA)tio+: %e!inin& ri&*ts o! an user 3. Aut!e+ti#)tio+< )*ec9in& w*o t*e user is ". 0)t) I+te,rit4: 2rotection o! data !rom 5odi!ication and deletion 0)t) Se#urit4: 5aintain con!identialit$ o! data.
123
121
HRM is customi;ed so!tware !or Human Resource %e'artment. It wor9s well6 but we 9now t*ere is a limit !or eac* and ever$ item o! t*e universe. HR5 *as also some limits. #s I tried ma9e it 'ower!ul and eas$ but t*ese ma9e some limits. T*e 1imits o! t*e HR5 are !ollowin&< 1. &ull4 de/e+d o+ t!e 0)t)1)se M)+),e(e+t S4ste(: HR5 is d$namic. T*e value o! (orms is &enerated b$ t*e database value. 2. Need /o;er ul ser*er: I! t*e server is slow/wee96 t*an s'eed o! t*e so!tware become slower. 3. 0e/e+d o+ ser*er: HR5 is !ull$ centrali;ed6 so some time it becomes its drawbac9.
122
123
12"
12+
$I$%OGRAPH6
I am %ee'a9 Jumar Iadav6 a student o! I@DOU !or 4)#. I *ave studied 8isual 4asic as a subject in m$ "t* sem o! t*is course and I *ave done !or !ew 'rojects in 8isual 4asic too. In t*ose 'rojects I *ave used E1 erver as t*e database and t*us I &ained 9nowled&e. I *ave also studied !ew boo9s on 8isual 4asic and E1 erver6 w*ic* includes 5asterin& 8isual 4asic6 u'er 4ible !or 8isual 4asic6 E1 erer Ti's6 etc.
12-