EX: NO: 13

REPORT GENERATION

AIM To design a report for employee database using Visual Basic. PROCEDURE STEP 1: Start STEP 2: Create the form ith essential controls for employee details. STEP !: "nsert the data en#ironment for report generation STEP $: Connect the database STEP %: &rite the code for doing the appropriate operations in the employee database. STEP ': Sa#e the forms and pro(ect. STEP ): E*ecute the form. STEP +: Stop EXECUTION MAIN FORM CODE: Private Sub Comman 1!C"i#$%& ,nload -e .orm1.Visible / .alse .orm2.Visible / True 0oad .orm2 .orm2.Sho En Sub Private Sub Comman '!C"i#$%& ,nload -e .orm1.Visible / .alse .orm!.Visible / True 0oad .orm$ .orm!.Sho En Sub

Private Sub Comman 3!C"i#$%& ,nload -e .orm1.Visible / .alse .orm$.Visible / True 0oad .orm! .orm$.Sho En Sub Private Sub Comman (!C"i#$%& End En Sub Private Sub Comman )!C"i#$%& 1ata2eport1.Sho En Sub FORM' CREATION CODE: Genera" De#"aration 1im con 3s 4e 3151B.Connection 1im gp6 ded6 net 3s 1ouble Private Sub Comman 1!C"i#$%& gp / Val7Combo1."tem1ata7Combo1.0ist"nde*88 9 Val7Te*t).Te*t8 ded / Val7Te*t$.Te*t8 9 Val7Te*t%.Te*t8 9 Val7Te*t'.Te*t8 net / gp : ded con.E*ecute ;insert into emp #alues7<; = Te*t1.Te*t = ;<6<; = Te*t2.Te*t = ;<6<; = Combo1.Te*t = ;<6<; = Te*t!.Te*t = ;<6<; = Val7Combo1."tem1ata7Combo1.0ist"nde*88 = ;<6<; = Val7Te*t$.Te*t8 = ;<6<; = Val7Te*t%.Te*t8 = ;<6<; = Val7Te*t'.Te*t8 = ;<6<; = Val7Te*t).Te*t8 = ;<6<; = gp = ;<6<; = net = ;<6>8; -sgBo* 7;2ecords Created???????????;8 ,nload .orm2 0oad .orm1 .orm1.Sho En Sub Private Sub Form!*oa %& con.5pen ;Pro#ider/[email protected].$.>A1ata Source/1:BProgram .ilesB-icrosoft Visual StudioBVBC+BsubbuBemployee.mdbAPersist Security "nfo/.alse; En Sub Private Sub Form!Un"oa %Can#e" A+ Inte,er& con.Close En Sub

FORM3 UPDATION CODE: Genera" De#"aration 1im con 3s 4e 3151B.Connection 1im rs 3s 4e 3151B.2ecordset 1im n 3s 1ouble Private Sub Comman 1!C"i#$%& rs.5pen ;select D from emp here id/<; = Te*t1.Te*t = ;<;6 con n / rs..ields71>8 9 Val7Te*t2.Te*t8 con.E*ecute ;update emp set others/<; = Val7Te*t2.Te*t8 = ;<6netEsalary/<; = n = ;< here id/<; = Te*t1.Te*t = ;<; -sgBo* 7;2ecords ,pdated?????????????;8 ,nload .orm! 0oad .orm1 .orm1.Sho En Sub Private Sub Form!*oa %& con.5pen ;Pro#ider/[email protected].$.>A1ata Source/1:BProgram .ilesB-icrosoft Visual StudioBVBC+BsubbuBemployee.mdbAPersist Security "nfo/.alse; En Sub Private Sub Form!Un"oa %Can#e" A+ Inte,er& con.Close En Sub FORM( DISP*A- CODE: Genera" De#"aration 1im con 3s 4e 3151B.Connection 1im rs 3s 4e 3151B.2ecordset 1im num 3s String Private Sub Comman 1!C"i#$%& num / Te*t1.Te*t rs.5pen ;select D from emp here id/<; 9 num 9 ;<;6 con Set 1ata2eport1.1ataSource / rs 1ata2eport1.Sho En Sub Private Sub Form!*oa %& con.5pen ;Pro#ider/[email protected].$.>A1ata Source/1:BProgram .ilesB-icrosoft Visual StudioBVBC+BsubbuBemployee.mdbAPersist Security "nfo/.alse; En Sub

Private Sub Form!Un"oa %Can#e" A+ Inte,er& con.Close En Sub DATA.ASE: EMP*O-EE DETAI*S EMP*O- INFORMATION

EMP*O-EE CREATE FORM

DATA.ASE RECORDS:

UPDATE EMP*O-EE DETAI*S:

UPDATED DATA.ASE:

DISP*A-:

'

DATA REPORT:

EX: NO:

PA-RO** PROCESSING S-STEM

AIM To de#elop an application soft are for Payroll processing of an organiFation . DESIGN P*AN The 1esign plan consists of the follo ing: Pro(ect Plan Soft are reGuirement 3nalysis "mplementation and Coding Soft are testing Soft are 1ebugging Conclusion PRO/ECT P*AN The Pro(ect plan consists of three sections: Personal 1etails of an employee 3llo ances 1eduction and ChecHing the increment and 4et pay SOFT0ARE RE1UIREMENT ANA*-SIS The purpose of the Payroll as to pro#ide Payroll for the Employee ith allo ance and deduction indi#idually and to update the 4et pay. .unctionality of System: 1. Per+ona" Detai"+ o2 an Em3"o4ee: "t includes Employee 4ame 6Employee id63ddress61esignation and 1ate of Birth.

EXECUTION FORM 1: Pri#ate Sub Command1EClicH78 ,nload -e .orm2.Sho End Sub Pri#ate Sub Command2EClicH78 ,nload -e .orm!.Sho End Sub Pri#ate Sub Command!EClicH78 ,nload -e .orm$.Sho End Sub Pri#ate Sub Command$EClicH78 End End Sub Pri#ate Sub Command%EClicH78 ,nload -e .orm%.Sho End Sub

1>

FORM ': Pri#ate Sub Command1EClicH78 3dodc1.2ecordset.3dd4e 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset..ields7;eEno;8 / Val7Te*t2.Te*t8 3dodc1.2ecordset..ields7;des;8 / Te*t!.Te*t 3dodc1.2ecordset..ields7;age;8 / Val7Te*t$.Te*t8 3dodc1.2ecordset..ields7;se*;8 / Te*t%.Te*t 3dodc1.2ecordset..ields7;dob;8 / Val7Te*t'.Te*t8 3dodc1.2ecordset..ields7;do(;8 / Val7Te*t).Te*t8 3dodc1.2ecordset..ields7;sal;8 / Val7Te*t+.Te*t8 3dodc1.2ecordset..ields7;ph;8 / Val7Te*tC.Te*t8 3dodc1.2ecordset..ields7;eEmail;8 / Te*t1>.Te*t <3dodc1.2ecordset.,pdate End Sub Pri#ate Sub Command2EClicH78 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset.,pdate End Sub Pri#ate Sub Command!EClicH78 a / "nputBo*7;Enter the Employee 4umber;6 EmpEno8 3dodc1.2ecordset.-o#e.irst 5n Error IoTo di#a &hile 4ot 3dodc1.2ecordset..ields7;eEno;8 / Val7a8 3dodc1.2ecordset.-o#e4e*t &end di#a: End Sub Pri#ate Sub Command$EClicH78 b / -sgBo*7;3re you sure you ant to delete it....;6 #b5JCancel 9 #bE*clamation8 "f b / 1 Then 3dodc1.2ecordset.1elete 3dodc1.2ecordset.-o#e4e*t -sgBo* ;2ecord is 1eleted; Else End "f End Sub Pri#ate Sub Command%EClicH78 ,nload -e 0oad .orm1: .orm1.Visible / True End Sub

11

FORM 3: 1im c 3s Variant Pri#ate Sub Command1EClicH78 3dodc1.2ecordset.3dd4e 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset..ields7;eEno;8 / Val7Te*t2.Te*t8 3dodc1.2ecordset..ields7;sal;8 / Val7Te*t!.Te*t8 3dodc1.2ecordset..ields7;loan;8 / Val7Te*t$.Te*t8 3dodc1.2ecordset..ields7;loanEleft;8 / Val7Te*t%.Te*t8 3dodc1.2ecordset..ields7;ma;8 / Val7Te*t'.Te*t8 3dodc1.2ecordset..ields7;hra;8 / Val7Te*t).Te*t8 3dodc1.2ecordset..ields7;insEleft;8 / Val7Te*t+.Te*t8 3dodc1.2ecordset..ields7;da;8 / Val7Te*tC.Te*t8 3dodc1.2ecordset..ields7;totalEallo ;8 / Val7Te*t1>.Te*t8 <adodc1.2ecordset.,pdate End Sub Pri#ate Sub Command2EClicH78 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset.,pdate End Sub Pri#ate Sub Command!EClicH78 a / "nputBo*7;Enter the Employee 4umber;6 ;1i#a;8 3dodc1.2ecordset.-o#e.irst 5n Error IoTo di#a &hile 4ot 3dodc1.2ecordset..ields7;eEno;8 / Val7a8 3dodc1.2ecordset.-o#e4e*t &end di#a: End Sub Pri#ate Sub Command$EClicH78 b / -sgBo*7;3re you sure you ant to delete it....;6 #b5JCancel 9 #bCritical6 ;1i#a;8 "f b / 1 Then 3dodc1.2ecordset.1elete 3dodc1.2ecordset.-o#e4e*t -sgBo* ;2ecord is 1eleted; Else End "f End Sub Pri#ate Sub Command%EClicH78 ,nload -e 0oad .orm1: .orm1.Visible / True End Sub

12

Pri#ate Sub .ormE0oad78 c / 7Val7Te*t'.Te*t8 9 Val7Te*t).Te*t8 9 Val7Te*tC.Te*t88 Te*t1>.Te*t / c 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset.,pdate End Sub Pri#ate Sub Te*t!EChange78 * / Val7Te*t!.Te*t8 Te*t'.Te*t / 7* K 28 Te*t).Te*t / 7* K !8 Te*tC.Te*t / 7* K $8 c / 7Val7Te*t'.Te*t8 9 Val7Te*t).Te*t8 9 Val7Te*tC.Te*t88 Te*t1>.Te*t / c 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset.,pdate End Sub FORM (: 1im c 3s Variant Pri#ate Sub Command1EClicH78 3dodc1.2ecordset.3dd4e 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset..ields7;eEno;8 / Val7Te*t2.Te*t8 3dodc1.2ecordset..ields7;sal;8 / Val7Te*t!.Te*t8 3dodc1.2ecordset..ields7;spf;8 / Val7Te*t$.Te*t8 3dodc1.2ecordset..ields7;fa;8 / Val7Te*t%.Te*t8 3dodc1.2ecordset..ields7;hf;8 / Val7Te*t'.Te*t8 3dodc1.2ecordset..ields7;hr;8 / Val7Te*t).Te*t8 3dodc1.2ecordset..ields7;incomeEta*;8 / Val7Te*t+.Te*t8 3dodc1.2ecordset..ields7;others;8 / Val7Te*tC.Te*t8 3dodc1.2ecordset..ields7;totalEded;8 / Val7Te*t1>.Te*t8 <adodc1.2ecordset.,pdate End Sub Pri#ate Sub Command2EClicH78 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset.,pdate End Sub Pri#ate Sub Command!EClicH78 a / "nputBo*7;Enter the Employee 4umber;6 ;1i#a;8 3dodc1.2ecordset.-o#e.irst 5n Error IoTo di#a &hile 4ot 3dodc1.2ecordset..ields7;eEno;8 / Val7a8

1!

3dodc1.2ecordset.-o#e4e*t &end di#a: End Sub Pri#ate Sub Command$EClicH78 b / -sgBo*7;3re you sure you ant to delete it....;6 #b5JCancel 9 #bCritical6 ;1i#a;8 "f b / 1 Then 3dodc1.2ecordset.1elete 3dodc1.2ecordset.-o#e4e*t -sgBo* ;1eleted; Else End "f End Sub Pri#ate Sub Command%EClicH78 ,nload -e 0oad .orm1: .orm1.Visible / True End Sub Pri#ate Sub .ormE0oad78 * / Val7Te*t!.Te*t8 Te*t$.Te*t / 7* K >.28 Te*t%.Te*t / 7* K >.28 Te*t'.Te*t / 7* K >.28 Te*t).Te*t / 7* K >.28 Te*t+.Te*t / 7* K >.28 Te*tC.Te*t / 7* K >.28 c / 7Val7Te*t$.Te*t8 9 Val7Te*t%.Te*t8 9 Val7Te*t'.Te*t8 9 Val7Te*t).Te*t8 9 Val7Te*t+.Te*t8 9 Val7Te*tC.Te*t88 Te*t1>.Te*t / c 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset.,pdate End Sub Pri#ate Sub Te*t2EChange78 c / 7Val7Te*t$.Te*t8 9 Val7Te*t%.Te*t8 9 Val7Te*t'.Te*t8 9 Val7Te*t).Te*t8 9 Val7Te*t+.Te*t8 9 Val7Te*tC.Te*t88 Te*t1>.Te*t / c End Sub Pri#ate Sub Te*t!EChange78 * / Val7Te*t!.Te*t8 Te*t$.Te*t / 7* K >.28 Te*t%.Te*t / 7* K >.28 Te*t'.Te*t / 7* K >.28 Te*t).Te*t / 7* K >.28 Te*t+.Te*t / 7* K >.28

1$

Te*tC.Te*t / 7* K >.28 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset.,pdate End Sub FORM ): Pri#ate Sub Command1EClicH78 ,nload -e 0oad .orm1: .orm1.Visible / True End Sub Pri#ate Sub Command2EClicH78 End End Sub Pri#ate Sub Command!EClicH78 a / "nputBo*7;Enter the Employee 4umber;6 ;1i#a;8 3dodc1.2ecordset.-o#e.irst 5n Error IoTo di#a &hile 4ot 3dodc1.2ecordset..ields7;eEno;8 / Val7a8 3dodc1.2ecordset.-o#e4e*t &end di#a: End Sub Pri#ate Sub .ormE0oad78 3dodc1.2ecordset..ields7;eEname;8 / Te*t1.Te*t 3dodc1.2ecordset.,pdate End Sub Pri#ate Sub Te*t1EChange78 b / Val7Te*t!.Te*t8 9 Val7Te*t$.Te*t8 c / b : Val7Te*t%.Te*t8 Te*t'.Te*t / c End Sub

1%

1'

1)

1+

1C

CONC*USION The Payroll Soft are can be used in Corporate offices6 5rganiFations and "nstitutes for calculating the net pay feasibly. The soft are is user:friendly and can be handled by anyone. 2>

EX5NO: 16

*I.RAR- MANAGEMENT S-STEM

AIM To de#elop an application soft are for 0ibrary -anagement System. DESIGN P*AN The 1esign plan consists of the follo ing: Pro(ect Plan Soft are reGuirement 3nalysis "mplementation and Coding Soft are testing Soft are 1ebugging Conclusion PRO/ECT P*AN The Pro(ect plan consists of three sections: Student "nformation BooH "nformation Borro ing and returning Process SOFT0ARE RE1UIREMENT ANA*-SIS The purpose of the 0ibrary -anagement System is to manage Borro ing and recei#ing booHs from the student and updating booH information for e#ery transaction 7 both Borro ing = recei#ing8 . .unctionality of System: 2. Stu ent In2ormation: "t includes the student information for Borro ing and returning the booHs ith

21

the updated booHs information. !. .oo$ In2ormation: "t includes BooH "nformation such as 3uthor name 6Code6 account number 6 Publisher name61ate of "ssue and 1ate of returning .. (5 .orro7in, an en in, Pro#e++ "t displays the information about the booHs issued 6burro er6returning date 6duration to ha#e the booHs. SOFT0ARE TESTING The main ob(ecti#es of testing to ma*imiFe the test case 6 minimiFe the number of errors6 focus on correctness and efficiency of program."t helps to find out details of the student ho ha#e borro ed the particular booHs.Both the BooH information 6student information can be obtained. EXECUTION FORM 1: Pri#ate Sub Command1EClicH78 -e.Lide 0oad .orm% .orm%.Visible / True End Sub Pri#ate Sub Command2EClicH78 -e.Lide 0oad .orm! .orm!.Visible / True End Sub Pri#ate Sub Command!EClicH78 -e.Lide 0oad .orm$ .orm$.Visible / True End Sub Pri#ate Sub Command$EClicH78 End End Sub

22

FORM ': Pri#ate Sub Command1EClicH78 1ata1.2ecordset.3dd4e 1ata1.2ecordset..ields7;rollEno;8 / Val7Te*t1.Te*t8 1ata1.2ecordset..ields7;name;8 / Te*t2.Te*t 1ata1.2ecordset..ields7;dep;8 / Te*t!.Te*t 1ata1.2ecordset..ields7;year;8 / Val7Te*t$.Te*t8 1ata1.2ecordset.,pdate End Sub Pri#ate Sub Command2EClicH78 b / -sgBo*7;3re you sure u ant to delete it...;6 #b5JCancel 9 #bE*clamation8 "f b / 1 Then 1ata1.2ecordset.1elete 1ata1.2ecordset.-o#e4e*t -sgBo* ;2ecord is deleted; Else End "f End Sub Pri#ate Sub Command!EClicH78 a / "nputBo*7;Enter the student roll number;6 rollEno8 1ata1.2ecordset.-o#e.irst 5n Error IoTo (#m &hile 4ot 1ata1.2ecordset..ields7;rollEno;8 / Val7a8 1ata1.2ecordset.-o#e4e*t &end (#m: End Sub Pri#ate Sub Command%EClicH78 End End Sub Pri#ate Sub Command'EClicH78 ,nload -e 0oad .orm1: .orm1.Visible / True End Sub FORM 3: Pri#ate Sub Command1EClicH78 1ata1.2ecordset.3dd4e

2!

1ata1.2ecordset..ields7;booHEid;8 / Val7Te*t1.Te*t8 1ata1.2ecordset..ields7;name;8 / Te*t2.Te*t 1ata1.2ecordset..ields7;author;8 / Te*t!.Te*t 1ata1.2ecordset..ields7;copies;8 / Val7Te*t$.Te*t8 1ata1.2ecordset.,pdate End Sub Pri#ate Sub Command2EClicH78 b / -sgBo*7;3re you sure u ant to delete it...;6 #b5JCancel 9 #bE*clamation8 "f b / 1 Then 1ata1.2ecordset.1elete 1ata1.2ecordset.-o#e4e*t -sgBo* ;2ecord is deleted; Else End "f End Sub Pri#ate Sub Command!EClicH78 1im a 3s String a / "nputBo*7;Enter the booH name;6 booHEname8 1ata1.2ecordset.-o#e.irst 5n Error IoTo (#m 1o ,ntil 1ata1.2ecordset.E5. "f 1ata1.2ecordset7;booHEname;8 / a Then Te*t1 / 1ata1.2ecordset..ields7;booHEid;8 -sgBo* ;The booH id is ; 9 1ata1.2ecordset..ields7;booHEid;8 9 ; "t has ; 9 1ata1.2ecordset..ields7;copies;8 End "f 1ata1.2ecordset.-o#e4e*t 0oop (#m: End Sub Pri#ate Sub Command%EClicH78 End End Sub Pri#ate Sub Command'EClicH78 ,nload -e 0oad .orm1: .orm1.Visible / True End Sub Pri#ate Sub Te*t'EChange78 "f Te*t'.Te*t / > Then

2$

-sgBo* ;4o copies 3#ailable; End "f End Sub FORM (: 1im * 3s 1ate Pri#ate Sub Command1EClicH78 1ata1.2ecordset.3dd4e 1ata1.2ecordset..ields7;rollEno;8 / Val7Te*t1.Te*t8 1ata1.2ecordset..ields7;name;8 / Te*t2.Te*t 1ata1.2ecordset..ields7;booHEid;8 / Val7Te*t!.Te*t8 1ata1.2ecordset..ields7;booHEname;8 / Te*t$.Te*t 1ata1.2ecordset..ields7;currEdate;8 / Val7Te*t%.Te*t8 1ata1.2ecordset..ields7;dateEofEreturn;8 / Val7Te*t'.Te*t8 1ata1.2ecordset.,pdate End Sub Pri#ate Sub Command2EClicH78 b / -sgBo*7;3re you sure u ant to delete it...;6 #b5JCancel 9 #bE*clamation8 "f b / 1 Then 1ata1.2ecordset.1elete 1ata1.2ecordset.-o#e4e*t -sgBo* ;2ecord is deleted; Else End "f End Sub Pri#ate Sub Command!EClicH78 a / "nputBo*7;Enter the student roll number;6 rollEno8 1ata1.2ecordset.-o#e.irst 5n Error IoTo (#m &hile 4ot 1ata1.2ecordset..ields7;rollEno;8 / Val7a8 1ata1.2ecordset.-o#e4e*t &end (#m: End Sub Pri#ate Sub Command$EClicH78 Te*t'.Te*t / 1ateValue7Te*t%8 9 1% End Sub Pri#ate Sub Command%EClicH78 End End Sub Pri#ate Sub Command'EClicH78

2%

,nload -e 0oad .orm1: .orm1.Visible / True End Sub Pri#ate Sub Command)EClicH78 1im n 3s 1ouble n / 71ateValue7Te*t)8 : 1ateValue7Te*t%88 "f n M 1% Then n / n : 1% n/nK2 Te*t+ / n End "f End Sub Pri#ate Sub Te*t%EClicH78 "f Val7Te*t$.Te*t8 / > Then -sgBo* ;4o copies 3#ailable; End "f End Sub FORM ): Pri#ate Sub Command1EClicH78 .orm2.Sho End Sub Pri#ate Sub Command2EClicH78 .orm'.Sho End Sub Pri#ate Sub Command!EClicH78 .orm1.Sho End Sub FORM 8: Pri#ate Sub Command1EClicH78 .orm1.Sho End Sub

2'

2)

2+

2C

!>

Con#"u+ion This Soft are pro#ides an efficient ay of managing the library and it maHes easier for the user to orH ith application soft are. This pro(ect is user friendly and it reduces the time for the user to manage the library.

!1

EX5 NO: AIM

AUTOMATING .AN9ING S-STEM

To de#elop an application soft are for 3utomating BanHing System. DESIGN P*AN The 1esign plan consists of the follo ing: Pro(ect Plan Soft are reGuirement 3nalysis "mplementation and Coding Soft are testing Soft are 1ebugging Conclusion PRO/ECT P*AN The Pro(ect plan consists of three sections: 3uthentication Client details Sa#ings and &ithdra al process SOFT0ARE RE1UIREMENT ANA*-SIS The purpose of the 3utomating BanHing System as to pro#ide client ser#ices. .unctionality of System : %. Aut:enti#ation: "t includes #alidation of client user name and pass ord. '. C"ient Detai"+:

!2

"t includes client details such as Customer name 6Code6 account number 6 phone number and balance amount. 65 Savin,+ an 0it: ra7a" 3ro#e++ "t displays the current balance amount before and after depositing and amount. SOFT0ARE TESTING The main ob(ecti#es of testing to ma*imiFe the test case 6 minimiFe the number of errors6 focus on correctness and efficiency of program."t helps to find out details of the customer and displays the current financial position of the customer. EXECUTION FORM 1: Public ind 3s "nteger Public mo 3s 0ong Pri#ate Sub Command1EClicH78 3dodc1.2ecordset.-o#e.irst 1o ,ntil 3dodc1.2ecordset.E5. "f 73dodc1.2ecordset..ields7;name;8 / Te*t1.Te*t8 3nd 73dodc1.2ecordset..ields7;pass;8 / Te*t2.Te*t8 Then -e.ind / 3dodc1.2ecordset..ields7;inde*;8 ,nload -e .orm2.Sho End "f 3dodc1.2ecordset.-o#e4e*t 0oop Te*t1.Te*t / ;; Te*t2.Te*t / ;; End Sub Pri#ate Sub Command2EClicH78 End End Sub Pri#ate Sub .ormE0oad78 Te*t1.Te*t / ;; Te*t2.Te*t / ;; End Sub ithdra ing the

!!

FORM ': Pri#ate Sub Command1EClicH78 ,nload -e .orm!.Sho End Sub Pri#ate Sub Command2EClicH78 ,nload -e .orm$.Sho End Sub Pri#ate Sub Command!EClicH78 ,nload -e .orm%.Sho End Sub Pri#ate Sub Command$EClicH78 End End Sub Pri#ate Sub Command%EClicH78 End End Sub Pri#ate Sub Command'EClicH78 3dodc1.2ecordset.3dd4e End Sub Pri#ate Sub Command)EClicH78 3dodc1.2ecordset.1elete End Sub Pri#ate Sub Command+EClicH78 ,nload -e .orm1.Sho End Sub Pri#ate Sub .ormE0oad78 mo / .orm1.ind "f mo / > Then Command1.Visible / .alse Command2.Visible / .alse Command!.Visible / .alse Command$.Visible / .alse Else

!$

Command%.Visible / .alse Command'.Visible / .alse Command).Visible / .alse 1ataIrid1.Visible / .alse End "f End Sub FORM 3: Pri#ate Sub Command!EClicH78 ,nload -e .orm2.Sho End Sub Pri#ate Sub Command1EClicH78 ,nload -e .orm2.Sho End Sub Pri#ate Sub Command2EClicH78 End End Sub Pri#ate Sub .ormE0oad78 mo / .orm1.ind 3dodc1.2ecordset.-o#e 7mo8 End Sub

!%

FORM (: Pri#ate sa#e 3s "nteger Pri#ate temp 3s 0ong Pri#ate Sub Command1EClicH78 sa#e / "nputBo*7;Enter the amount to be sa#ed to your aKc;8 Te*t$.Te*t / Val7sa#e8 temp / 3dodc1.2ecordset..ields7;totalEamt;8 temp / Val7temp8 9 Val7sa#e8 3dodc1.2ecordset..ields7;totalEamt;8 / Val7temp8 3dodc1.2ecordset.,pdate Command2.Enabled / True End Sub Pri#ate Sub Command2EClicH78 c / -sgBo*7;3re you sure to cancel current sa#ing transaction...;6 #b5JCancel 9 #b"nformation8 "f c / 1 Then sa#e / Val7Te*t$.Te*t8 temp / Val7temp8 : Val7sa#e8 Te*t$.Te*t / ;; 3dodc1.2ecordset..ields7;totalEamt;8 / Val7temp8 3dodc1.2ecordset.,pdate End "f Command2.Enabled / .alse End Sub Pri#ate Sub Command!EClicH78 ,nload -e .orm2.Sho End Sub Pri#ate Sub .ormE0oad78 mo / .orm1.ind 3dodc1.2ecordset.-o#e 7mo8 Command2.Enabled / .alse End Sub

!'

FORM ): Pri#ate ithd 3s "nteger Pri#ate temp 3s 0ong Pri#ate Sub Command!EClicH78 ,nload -e .orm2.Sho End Sub Pri#ate Sub .ormE0oad78 mo / .orm1.ind 3dodc1.2ecordset.-o#e 7mo8 Command2.Enabled / .alse End Sub Pri#ate Sub Command1EClicH78 * / 3dodc1.2ecordset..ields7;totalEamt;8 ithd / "nputBo*7;Enter the amount to be &ithdra al to your aKc;8 Te*t$.Te*t / Val7 ithd8 "f 77Te*t$.Te*t8 M Val7*88 Then -sgBo* ; ithdra al cannot be possible; E*it Sub Else temp / 3dodc1.2ecordset..ields7;totalEamt;8 temp / Val7temp8 : Val7 ithd8 3dodc1.2ecordset..ields7;totalEamt;8 / Val7temp8 3dodc1.2ecordset.,pdate Command2.Enabled / True End "f End Sub Pri#ate Sub Command2EClicH78 c / -sgBo*7;3re you sure to cancel current &ithdra al transaction...;6 #b5JCancel 9 #b"nformation8 "f c / 1 Then ithd / Val7Te*t$.Te*t8 temp / Val7temp8 9 Val7 ithd8 Te*t$.Te*t / ;; 3dodc1.2ecordset..ields7;totalEamt;8 / Val7temp8 3dodc1.2ecordset.,pdate End "f Command2.Enabled / .alse End Sub

!)

!+

!C

$>

$1

Con#"u+ion Thus the Soft are pro#ides efficient ay for 3utomating BanHing process6"t pro#ides depositing and ithdra ing the amount. ay for

$2

EX: NO: AIM

STUD- EXPRIMENT TO DESIGN E;R MODE*

To design an Entity:relationship model. PROCEDURE STEP 1: Start STEP 2: Specify attributes and identify the primary Hey for Entity. STEP !: .ormulate the relation bet een entities. STEP $: Ensure that all the entities ha#e been modeled. STEP %: 4ormaliFe the entire model. STEP ': Stop DESCRIPTION OF ENTIT-;RE*ATIONS<IP S-M.O*S 1. 2ectangle "t represents Entity Sets 2. Ellipse "t represents 3ttributes !. 1iamond "t represents 2elation Set $. 0ines "t represents 0inH bet een attributes to entity set and entity set to relationship set. %. 1oubled Ellipse "t represents deri#ed attributes. '. 1ashed Ellipse "t represents primary Hey ). 1ouble 0ines "t represents participation of an entity in a relationship set. +. &eaH Entity Set 3n entity hich does not pass any attribute for primary Hey C. Strong Entity Set 3n entity hich passes a dominant parametric feature for uniGue identification.

$!

E;R MODE* FOR .AN9ING ENTERPRISE

Re+u"t: Thus the E:2 -odel has been studied and acGuired the Hno ledge.

$$

$%