Case Tool Lab Manual 5z1n41

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN

DEPARTMENT OF IT OBJECT ORIENTED ANALYSIS DESIGN LAB MANUAL IT6513-CASE TOOLS LAB YEAR/SEM: III/IV REGULATION 2013

1


SYLLABUS IT6513 CASE TOOLS LABORATORY LTPC 0032

Develop software for an application using typical Case Tool, following Software Engineering methodology as given below: 1. Problem Statement Thorough study of the problem – Identify project scope, Objectives and infrastructure. 2. Business modeling and requirements specification: The specification language Unified Modeling Language (UML), will be used. 3. UML - Use work products – data dictionary, use case diagrams and activity diagrams, build and test, class diagrams, sequence diagrams, collaboration diagrams and add interface to class diagrams. 4. Software Implementation Coding - Use tools for automatic code generation from system specifications. 5. Change Management –Program, Data and Documentation management 6. Software Testing - Prepare test plan, perform validation testing, coverage analysis, memory leaks, develop test case hierarchy, Site check and site monitor. 7. Software Documentation and Reverse Engineering - Apply Reverse Engineering approach and compare with the forward engineering approach. Prepare documents and reports Total: 45 hrs.

2


SUDHARSAN ENGINEERING COLLEGE SATHIYAMANGALAM DEPARTMENT OF MCA

CA5205-CASE TOOLS LAB LIST OF EXPERIMENTS

Year/Sem: II /III DEPT

DATE :09.07.10

:MCA

1. Develop a Stock Maintainence Software. 2. Develop a Online Quiz System Software. 3. Develop a ATM Software. 4. Develop a Library Information System Software. 5. Develop a Payroll System Software. 6. Develop a Railway Reservation System Software. 7. Develop a Course Registration System Software. 8. Develop a Student Information System Software. 9. Develop a Expert System Software.

R.YUVARANI STAFF-INCHARGE

HoD/MCA

3


ONLINE QUIZ SYSTEM

4


ONLINE QUIZ SYSTEM AIM: To develop the online quiz system by using visual basic as front end and MSaccess as back end. PROGRAM ANALYSIS AND PROJECT PLANNING PURPOSE: The purpose of the SRS is to fully describe the functionality of online quiz system identified and it also describe non-functional requirements and design control and other factors. PROJECT SCOPE: The SRS applies to the online quiz system. Initially the project is going to be implement interact level and later the organization has an idea to upgrade in internet level the project merit in guide. OBJECTIVES:   

Easy to use Modern way of learning. Including the students power to answer.

HARDWARE REQUIREMENTS: 1. Intel Motherboard With Pentium Processor 2. RAM 256MB(minimum) 3. Hard disk 40GB(minimum) SOFTWARE REQUIREMENTS: 1. Microsoft VisualBasic6.0 2. Microsoft Access 3. Rational Rose

5


SOFTWARE REQUIRMENT ANALYSIS: OVERALL DESCRIPTION: The product will take with inspiration auto used system.All the function provide by the students,staff and system istration.  Online Testing.  Random generation of questions.  Multimedia representation of question and answer if needed.

INTENDED AUDIENCE:   Staff  Student PRODUCT FUNCTIONS: : has ability to the student to provide -id and . STAFF: Prepare question for exam and set the parameter add subject,modify the test. STUDENT: Under takes online test the must be able to answer the question and get the marks,the students must have a ID and

6


ONLINE QUIZ SYSTEM USE CASE DIAGRAM:

Authentication

Question setup

Quiz

score

7

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN CLASS DIAGRAM:

8

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN SEQUENCE DIAGRAM:

database

enter id

id entered check id

check if or check result display question answering

answer

verification result

mark calculation

display score

9

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN COLLABORATION DIAGRAM: 4: check if or

databas e 3: check id 8: answer

2: id entered 7: answering

10: mark calculation 1: enter id 6: display question 11: display score

5: check result 9: verification result

10


VB SOURCE CODE Form1.frm Dim db As Database Dim rs As Recordset Private Sub Command1_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = Trim(Text1.Text) Then If Data1.Recordset.Fields(1) = Trim(Text2.Text) Then Form2.Show Unload Me Else MsgBox (" Is Incorrect") Exit Do End If End If Data1.Recordset.MoveNext Loop End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Set db = OpenDatabase("E:\ArunMani - Regrunp\TOTAL COLLECTIONS\ Backup\CASE PRINTOUT\CASE PRINTOUT\quiz\QUIZ.mdb") Set rs = db.OpenRecordset("quiz") End Sub Form2.frm Private Sub Command1_Click() Form1.Show Unload Me End Sub Private Sub Command2_Click() Form3.Show Unload Me End Sub Private Sub Form_Activate() Option1.Value = False Option2.Value = False Option3.Value = False End Sub

11

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Private Sub Option1_Click() Form5.Label3.Caption = Option1.Caption Form5.Label4.Caption = "wrong" Form5.Label5.Caption = 0 End Sub Private Sub Option2_Click() Form5.Label3.Caption = Option2.Caption Form5.Label4.Caption = "wrong" Form5.Label5.Caption = 0 End Sub Private Sub Option3_Click() Form5.Label3.Caption = Option3.Caption Form5.Label4.Caption = "correct" Form5.Label5.Caption = 5 End Sub Form3.frm: Private Sub Command1_Click() Form2.Show Unload Me End Sub Private Sub Command2_Click() Form4.Show Unload Me End Sub Private Sub Form_Activate() Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Form5.Label6.Caption = Option1.Caption Form5.Label7.Caption = "wrong" Form5.Label8.Caption = 0 End Sub Private Sub Option2_Click() Form5.Label6.Caption = Option2.Caption Form5.Label7.Caption = "correct" Form5.Label8.Caption = 5 End Sub Private Sub Option3_Click() Form5.Label6.Caption = Option3.Caption Form5.Label7.Caption = "wrong" Form5.Label8.Caption = 0 End Sub Form4.frm: Private Sub Command1_Click() Form3.Show

12

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Unload Me End Sub Private Sub Command2_Click() Form5.Show Unload Me End Sub Private Sub Form_Activate() Option1.Value = False Option2.Value = False Option3.Value = False End Sub Private Sub Option1_Click() Form5.Label9.Caption = Option1.Caption Form5.Label10.Caption = "Correct" Form5.Label11.Caption = 5 End Sub Private Sub Option2_Click() Form5.Label9.Caption = Option2.Caption Form5.Label10.Caption = "Wrong" Form5.Label11.Caption = 0 End Sub Private Sub Option3_Click() Form5.Label9.Caption = Option3.Caption Form5.Label10.Caption = "Wrong" Form5.Label11.Caption = 0 End Sub Form5.frm: Private Sub Command1_Click() End End Sub Private Sub Command2_Click() Label13.Caption = Val(Label5.Caption) + Val(Label8.Caption) + Val(Label11.Caption) If Val(Label13.Caption) >= 10 Then MsgBox "Congratulations", vbInformation Else MsgBox ("Better Luck Next Time") End If End Sub

13


OUTPUT FORM form : (Form1.frm)

Question 1 : (Form2.frm)

14




15


Results : (Form5.frm)

16


17


RESULT: Thus the Payroll system was developed by using visual basic in front end and MS-Access in back end.

18


TICKET RESERVATION SYSTEM

19


TICKET RESERVATION SYSTEM AIM: To create a simple and easier method of reserving train tickets. OBJECTIVE: The main objective of our railway reservation system is to serve as a very effective and portal for the reservation of railways.You can know the train timings,train routes,ticket availability,and much more in just a few clicks. INFORMATION DESCRIPTION: DETAILED DESCRIPTION OF PROJECT:    

Search for the required train. Check for the availability of the ticket. If available reserve the ticket. Else search for another train.

HARDWARE DESCRIPTION: 1.Pentium Processor 2. Intel Motherboard 3. RAM 256MB(minimum) 4. Hard disk 40GB(minimum) SOFTWARE DESCRIPTION: 4. Microsoft VisualBasic6.0 5. Microsoft Access 6. Rational Rose HUMAN INTERFACE DESCRIPTION: Interface going to be used is a friendly interface,it is an online interface which will satisfy the s needs. FUNCTIONAL DESCRIPTION: PERFORMANCE CHARACTERISTICS:   

Fast access Easy access for end s. Simple steps for reservation and cancellation. 20

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN DATABASE REQUIREMENTS:    

Details of Indian trains. Fare of trains according to classes. Percentage of concessions according to persons such as students,senior citizens etc.., Above database are stored in MS-Access.

NON FUNCTIONAL REQUIREMENTS: AVAILABILITY: Available to all systems around the clock. Available in any environment Suites for everyone that is no credit card needed. Just enter the bank name and no for payment. MAINTAINABILITY: Regular updates of database Backup of database is maintained to avoid the loss of data due to power failure. Less memory space required. BEHAVIOUR DESCRIPTION: This project has mainly two functions:1.Reservation  Easy and fast steps to reserve a ticket.  Before reserving we can check the availability,timings etc.., 2.Cancellation    

Easy and few steps to cancel the tickets. The money will be automatically refunded in the bank . Specified at the time of reservation. The history of reservation is maintained.

21


TICKET RESERVATION SYSTEM USECASE DIAGRAM:

DETAILS

TRAIN MASTER DETAILS

RESERVATION/CANCELLATION

CHECK AVAILABILITY

CONFIRMATION

CLASS DIAGRAM:

22

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN SEQUENCE DIAGRAM:

DATABASE

ENQUIRY

RESERVATION

CHECK AVAILABILITY

NO OF SEATS

ALLOTMENT

CONFIRMATION

UPDATION OF SEATS

23


COLLABORATION DIAGRAM:

5: ALLOTMENT

1: ENQUIRY 2: RESERVATION 6: CONFIRMATION

3: CHECK AVAILABILITY 7: UPDATION OF SEATS

4: NO OF SEATS

DATABA SE

24


VB SOURCE CODE

Form1.frm: Private Sub Command1_Click() If Combo1.Text = "" Then MsgBox "Choose a Train" Else Form2.Show Form1.Hide End If End Sub Private Sub Form_Load() Combo1.AddItem "Pallavan" Combo1.AddItem "Vaigai" Combo1.AddItem "Hawra" Combo1.AddItem "Valluvan" Combo1.AddItem "Theni" End Sub Form2.frm: Private Sub Command1_Click() Form3.Show Form2.Hide End Sub Private Sub Command2_Click() Form4.Show Form2.Hide End Sub Private Sub Command3_Click() Form5.Show Form2.Hide End Sub Private Sub Command4_Click() End End Sub Private Sub Command5_Click()

25

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Form1.Show Form2.Hide End Sub Private Sub Form_Load() Text1.Text = Form1.Combo1.Text If Text1.Text = "Pallavan" Then Form2.Text2.Text = "10.00" Form2.Text3.Text = "10.30" ElseIf Text1.Text = "Vaigai" Then Form2.Text2.Text = "18.00" Form2.Text3.Text = "18.30" ElseIf Text1.Text = "Hawra" Then Form2.Text2.Text = "12.30" Form2.Text3.Text = "13.00" ElseIf Text1.Text = "Valluvan" Then Form2.Text2.Text = "14.00" Form2.Text3.Text = "16.30" ElseIf Text1.Text = "Theni" Then Form2.Text2.Text = "19.00" Form2.Text3.Text = "23.00" End If Data1.Refresh Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = Trim(Text1.Text) Then Text4.Text = Data1.Recordset.Fields(3) Text5.Text = Data1.Recordset.Fields(4) End If Data1.Recordset.MoveNext Loop End Sub Form3.frm: Dim a, b, c As Integer Private Sub Command2_Click() Form3.Hide Form2.Show End Sub Private Sub Command1_Click() a = Data1.Recordset.RecordCount Data1.Refresh Data1.Recordset.AddNew Data1.Recordset.Fields(0) = Text1.Text

26

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Data1.Recordset.Fields(1) = Text2.Text If b = 1 Then Data1.Recordset.Fields(2) = Option1.Caption ElseIf b = 2 Then Data1.Recordset.Fields(2) = Option2.Caption End If Data1.Recordset.Fields(3) = Text3.Text If c = 1 Then Data1.Recordset.Fields(4) = Option3.Caption ElseIf c = 2 Then Data1.Recordset.Fields(4) = Option4.Caption End If Data1.Recordset.Fields(6) = Form2.Text1.Text a=a+1 Data1.Recordset.Fields(5) = a Data1.Recordset.Update MsgBox "your Seat Reserved" MsgBox a, , "YOUR CODE" End Sub Private Sub Option1_Click() b=1 End Sub Private Sub Option2_Click() b=2 End Sub Private Sub Option3_Click() c=1 End Sub Private Sub Option4_Click() c=2 End Sub Form4.frm: Dim a As Boolean Private Sub Command1_Click() a = False Data1.Refresh Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = Trim(Text1.Text) Then

27

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN If Data1.Recordset.Fields(5) = Trim(Text2.Text) Then a = True Frame1.Visible = True Text3.Text = Data1.Recordset.Fields(0) Text4.Text = Data1.Recordset.Fields(1) If Data1.Recordset.Fields(2) = Trim("Male") Then Option1.Value = True Option2.Value = False ElseIf Data1.Recordset.Fields(2) = Trim("Female") Then Option2.Value = True Option1.Value = False End If Text5.Text = Data1.Recordset.Fields(3) If Data1.Recordset.Fields(4) = Trim("A/C") Then Option4.Value = True Option3.Value = False ElseIf Data1.Recordset.Fields(4) = Trim("Ordinary") Then Option4.Value = False Option3.Value = True End If End If End If Data1.Recordset.MoveNext Loop If Not a Then MsgBox "You didnot reserve any seats" End If End Sub Private Sub Command2_Click() Form3.Show Form4.Hide End Sub Form5.frm: Dim a As Boolean Private Sub Command1_Click() a = False Data1.Refresh Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Text1.Text = Data1.Recordset.Fields(0).Value And Text1.Text = Data1.Recordset.Fields(5).Value Then a = True MsgBox "Record found.Do u want to cancel the ticket", vbOKCancel

28

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Data1.Recordset.Delete Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop If Not a Then MsgBox "Ticket cancelled" End If End Sub Private Sub Command2_Click() End End Sub

OUTPUT FORMS Train Selection : (Form1.frm)

Train Timings : (Form2.frm)

29


Reservation : (Form3.frm)

30


Cancellation : (Form5.frm)

31

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Confirmation : (Form4.frm)

32


RESULT: Thus the Ticket reservation system was developed by using visual basic in front end and MS-Access in back end.

33


STUDENT’S INFORMATION SYSTEM

34


STUDENT’S INFORMATION SYSTEM INTRODUCTION: GOAL: Software development process involves four modules analysis,deg,coding and testing of the software.Our goal is to develop software for storing student’s information,which we have named as student’s information system. OBJECTIVE: Our objective is to first understand the software to be developed,analyze the process and finally implement the concepts to develop software along with the considerations for various levels,to provide a secured and a reliable software to store the details of the student’s studying in our institution. INFORMATION DESCRIPTION: DETAILED DESCRIPTION: In this project development,we will have a database as a back end to store the details of the student’s,which will include, 1.Student name 2. number 3.Department 4.Year 5.Address & ph.no 6.Marks We will have three different :s,staff and student’s.They will be provided with different access levels. The will be allowed to ADD,EDIT AND VIEW the student’s information.The staff will be allowed to EDIT AND VIEW student’s records.The students will be allowed only to VIEW the records. HARDWARE DESCRIPTION: 1. Intel Motherboard with Pentium Processor 2. RAM 256MB(minimum) 3. Hard disk 40GB(minimum)

35


SOFTWARE DESCRIPTION: Microsoft VisualBasic6.0 Microsoft Access Rational Rose FUNCTIONAL DESCRIPTION: PERFORMANCE CHARACTERISTICS: In this project,the s will be students,staff and s.The operations involved will be    

Addition of records Edition of records Deletion of records Viewing of records

The supreme access will be provided to the who will be allowed to perform all the operations. DATABASE REQUIREMENTS: We will use MS Access as a back end to store our information.The database will be linked in the forms created using VB. NON-FUNCTIONAL DESCRIPTION: RELIABILITY: The software is designed considering the reliability of ATM system. AVAILABILITY: This software will be available to all the s inside the campus. SECURITY: This software will provide a good security by providing authentication.The s are allowed to access the database after their id and gets authenticated.

36


MAINTAINABILITY: Easier to maintain and update the database.

STUDENT MARK ANALYSIS SYSTEM USECASE DIAGRAM:

authentication

student

percalculation student1

reports

37


CLASS DIAGRAM:

38


SEQUENCE DIAGRAM:

39


40



2: check 7: search

9: calculate

1: id & 6: mark analysis

db 3: checking status 8: mark analysis

4: enter reg no 10: report 5: reg no

student

41


VB SOURCE CODE

: (Form1.frm) Private Sub Command1_Click() If Trim(Text1.Text) = "" And Trim(Text2.Text) = "sec" Then Form2.Show Unload Me Else If Trim(Text1.Text) = "staff" And Trim(Text2.Text) = "sec" Then Form3.Show Unload Me Else If Trim(Text1.Text) = "student" And Trim(Text2.Text) = "cse" Then Form4.Show Unload Me Else MsgBox "Check name & " End If End If End If End Sub Private Sub Command2_Click() End End Sub Details : (Form2.frm) Private Sub Command1_Click() Data1.Recordset.AddNew Data1.Recordset.Fields(0) = Text1.Text Data1.Recordset.Fields(1) = Text2.Text Data1.Recordset.Fields(2) = Text3.Text Data1.Recordset.Fields(3) = Text4.Text Data1.Recordset.Fields(4) = Text5.Text Data1.Recordset.Fields(5) = Text6.Text Data1.Recordset.Update MsgBox "RECORD ADDED" End Sub Private Sub Command2_Click() Dim b As String Data1.Recordset.MoveFirst a = False Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = Trim(Text1.Text) Then MsgBox "RECORD FOUND" a = True

42

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN MsgBox "Are you sure want to delete", vbOKCancel If vbOK Then Data1.Recordset.Delete MsgBox "RECORD DELETED" Form2.Show ElseIf vbCancel Then Form2.Show End If Exit Do End If Data1.Recordset.MoveNext Loop If Not a Then MsgBox "RECORD NOT FOUND" End If End Sub Private Sub Command3_Click() Form4.Show Unload Me End Sub Private Sub Command4_Click() End End Sub Private Sub Form_Load() Dim a As Boolean End Sub Search : (Form4.frm) Private Sub Command1_Click() Data1.Refresh fnd = False Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF fnd = True If Data1.Recordset.Fields(0) = Trim(Text1) Then Frame2.Visible = True Text3.Text = Data1.Recordset.Fields(2) Text4.Text = Data1.Recordset.Fields(3) Text5.Text = Data1.Recordset.Fields(4) Text6.Text = Data1.Recordset.Fields(5) End If Data1.Recordset.MoveNext Loop If Not fnd Then MsgBox "CHECK NAME AND NO" End If End Sub Private Sub Command2_Click()

43

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN End End Sub

OUTPUT FORMS : (Form1.frm)

Details : (Form2.frm)

44


Search : (Form4.frm)

45


46


RESULT: Thus the Student information system was developed by using visual basic in front end and MS-Access in back end.

47


PAYROLL SYSTEM PAYROLL SYSTEM AIM: To develop the payroll system by using visual basic as front end and MS-access as back end. PROGRAM ANALYSIS AND PROJECT PLANNING PURPOSE: The purpose of the program analysis and project planning is to fully describe the functionality of payroll system identified and it also describe non-functional requirements and design control and other factors. PROJECT SCOPE: The program analysis and project planning applies to the payroll system.Initially the project is going to be implement interact level and later the organization has an idea to upgrade in internet level the project merit include this project might suppresses the complication in calculating payroll for human resources in large organization. OBJECTIVES:   

Easy to use More robust To reduce the manual operation in calculating the payroll

HARDWARE REQUIREMENTS: 1)Intel Motherboard with Pentium Processor 2)RAM 256MB(minimum) 3)Hard disk 40GB(minimum) SOFTWARE REQUIREMENTS: 1)Microsoft VisualBasic6.0 2)Microsoft Access 3) Rational Rose SOFTWARE REQUIRMENT ANALYSIS:

48

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN The following sub sections describe the usage of the payroll system.There are three modules.  Use entry  Verification of  Employee salary calculation INTENDED AUDIENCE:  Employee  PRODUCT FUNCTIONS: Here short briefing on payroll system.It has the following four modules.The modules are:1. ENTRY: The has to provide the name and the pin number.The pin is the four digit number which is also called a secret key known to the . 2.VERIFICATION OF : The is matched with one already present in the data base is the is scanned.If the is correct the is logged in else the false message is generated. 3. EMPLOYEE SALARY CALCULATION: In the database, name of the each employee will be stored with all needed informations.Depending upon that information the salary will be calculated for employee.

49


PAYROLL SYSTEM USECASE DIAGRAM:

50


authentication

employees database

clerk

employee

salary calculation

manager

reports

officer

51


CLASS DIAGRAM:

SEQUENCE DIAGRAM:

52


53



12: pay slip generation

9: cal sal details

reports

salary calculation

13: display the pay slip

11: transfer the salary

1: check emp id 6: monthly attendance 14: database 8: read monthly details database 7: request for monthly details 10: update the salary in monthly

3: is authenticated 15: successfully

2: checking for valid id 4: update monthly details 5: if id is valid

databas e

54


VB SOURCE CODE Form : (Form1.frm) Private Sub Command1_Click() If (Text1.Text = "" And Text2.Text = "sec") Then Form2.Show Else MsgBox "Please enter the correct name and pwd" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Choice Form : (Form2.frm) Private Sub Command1_Click() Form3.Show Unload Me End Sub Private Sub Command2_Click() Form3.Visible = False End Sub Payslip : (Form3.frm) Private Sub Command1_Click() Data1.Recordset.MoveFirst For i = 0 To Data1.Recordset.RecordCount - 1 If Text1.Text = Data1.Recordset.Fields(5) Then Frame1.Visible = True Text2.Text = Data1.Recordset.Fields(0) Text3.Text = Data1.Recordset.Fields(1) Text4.Text = Data1.Recordset.Fields(2) Text5.Text = Data1.Recordset.Fields(3) Text6.Text = Data1.Recordset.Fields(4) Text8.Text = Data1.Recordset.Fields(5) Text9.Text = Data1.Recordset.Fields(6) Text10.Text = Data1.Recordset.Fields(7) 55

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Text11.Text = Data1.Recordset.Fields(8) Text12.Text = Data1.Recordset.Fields(9) End If Data1.Recordset.MoveNext Next End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" End Sub Private Sub Command3_Click() Text7.Text = ((Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) - (Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text))) End Sub

56


OUTPUT FORM Form : (Form1.frm)

Choice : (Form2.frm)

57


PaySlip : (Form3.frm)

58


RESULT: Thus the Payroll system was developed by using visual basic in front end and MS-Access in back end.

59


LIBRARY INFORMATION SYSTEM

60


LIBRARY INFORMATION SYSTEM INTRODUCTION: GOAL: The main goal of library information system is to view all the information about the books as well as information relevant to the library. OBJECTIVE: Our objective is to create library information system,which consists of modules each of which performs its own function efficiently. INFORMATION DESCRIPTION: DETAILED DESCRIPTION: Basically the s of the library information system are categorized into two groups.They are and . is the one who has the control over the whole system.He can add,delete,view information as well as borrow some books.The control separates him from other s. The can only view the information about the books and borrow books from the library for certain period of time if he has enough library cards.After that period he has to return those books back to the library to avoid fine. HARDWARE DESCRIPTION: 1. Intel Motherboard with Pentium Processor 2. RAM 256MB(minimum) 3. Hard disk 40GB(minimum) SOFTWARE DESCRIPTION: 7. Microsoft VisualBasic6.0 8. Microsoft Access 9. Rational Rose INTERFACE DESCRIPTION:

61

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN To interact with the system the has to have certain things.name,,Bookname,etc.The name is unique all over the system.The separates the from the .To view the information certain attributes has to be given like Bookname etc. FUNCTIONAL DESCRIPTION: PERFORMANCE CHARACTERISTICS: The overall performance of the system mainly depends upon the server,Network and the managing data resources.To achieve higher performance the speed of the server and the Network must be greater. Also we have to manage the database efficiently. DATABASE REQUIREMENTS: For the library information system we have to maintain two separate databases,one for storing name and the and the other for book details.The first database must have two columns and the other must have at least five columns.We use MS Access to create those databases. NON-FUNCTIONAL REQUIREMENTS: AVAILABILITY: The software consists of separate modules for the to add,delete information about the books. SECURITY: The whole data in the system is protected;no one can access that information without rights. Only and instrator can access that information. BEHAVIOURAL DESCRIPTION: The can to the system and can view the information about the books,by giving any one of attributes.The result will be displayed separately.The can to the system and view the information about the books and he can add or delete the book details to the system.Also he can issue books and cards also by ing the ID.

62


LIBRARY MANAGEMENT SYSTEM USECASE DIAGRAM:

authentication

specification of book

make reservation librarian 1

remove reservation

lend book

return book

63


CLASS DIAGRAM:

64


SEQUENCE DIAGRAM:

65


member

librariyan

server

enter reg no

type of req

take book

book name

check

check

success

book is reserved

terminate

66

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN COLLBORATION DIAGRAM:

1: enter reg no 3: take book 9: terminate

member

librariyan 2: type of req 4: book name 8: book is reserved 7: success 6: check 5: check

server

67


VB SOURCE CODE Form1.frm Private Sub Command1_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = Text1 And Data1.Recordset.Fields(1) = Text2 Then i = 1 Form2.Show Unload Me Else Exit Do End If Data1.Recordset.MoveNext Loop If Not (i = 1) Then MsgBox "error" End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Dim i As Integer End Sub Form2.frm Private Sub Command1_Click() Form3.Show Me.Hide End Sub Private Sub Command2_Click() Form4.Show Me.Hide End Sub Private Sub Command3_Click() Form5.Show Me.Hide End Sub

68

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Private Sub FORM11_Click() Form1.Show Me.Hide End Sub Form3.frm Private Sub Command1_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = Text1 Then i = 1 Text2 = Data1.Recordset.Fields(0) Text3 = Data1.Recordset.Fields(2) End If Data1.Recordset.MoveNext Loop If Not (i = 1) Then MsgBox "BOOK IS NOT AVAILABLE" End If End Sub Private Sub Command2_Click() Dim i As Integer J = 0 Data1.Recordset.MoveFirst While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = Text2 And Data1.Recordset.Fields(2) > 0 Then Data3.Recordset.AddNew J = 1 Data1.Recordset.Edit Data1.Recordset.Fields(2) = Data1.Recordset.Fields(2) - 1 Data3.Recordset.Fields(0) = Text2 Data3.Recordset.Fields(1) = Text4 Data3.Recordset.Fields(2) = Text2 Data3.Recordset.Fields(3) = Text5 Data3.Recordset.Fields(4) = Text6 Data1.Recordset.Update Data3.Recordset.Update MsgBox "GOT THE BOOK" End If Data1.Recordset.MoveNext Wend 69

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN If Not J = 1 Then MsgBox "BOOK IS NOT AVAILABLE" End If End Sub Private Sub Command3_Click() Me.Hide Form2.Show End Sub Private Sub Form_Load() Dim i As Integer End Sub Form4.frm Private Sub Command1_Click() Data1.Recordset.MoveFirst While Not Data1.Recordset.EOF If Text1 = Data1.Recordset.Fields(0) And Text6 = Data1.Recordset.Fields(1) Then Text2 = Data1.Recordset.Fields(1) Text3 = Data1.Recordset.Fields(2) Text4 = Data1.Recordset.Fields(4) End If Data1.Recordset.MoveNext Wend End Sub Private Sub Command2_Click() Data1.Recordset.MoveFirst While Not Data1.Recordset.EOF If Text1 = Data1.Recordset.Fields(2) Then Data1.Recordset.Edit Text2 = Data1.Recordset.Fields(1) Text3 = Data1.Recordset.Fields(2) Text4 = Data1.Recordset.Fields(4) Data1.Recordset.Fields(3) = Text7 Data1.Recordset.Fields(4) = 10 + Data1.Recordset.Fields(3) Data1.Recordset.Update End If Data1.Recordset.MoveNext Wend MsgBox "Book Renewed" 70

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN End Sub Private Sub FORM13_Click() Me.Hide Form2.Show End Sub Form5.frm Private Sub Command1_Click() Dim J As Integer J = 0 Data1.Recordset.MoveFirst While Not Data1.Recordset.EOF If Text1 = Data1.Recordset.Fields(2) And Text2 = Data1.Recordset.Fields(1) Then J = 1 Data1.Recordset.Edit Data1.Recordset.Delete MsgBox " Book Returned" End If Data1.Recordset.MoveNext Wend Data2.Recordset.MoveFirst While Not Data1.Recordset.EOF If Data2.Recordset.Fields(0) = Text1 Then Data2.Recordset.Edit Data2.Recordset.Fields(2) = Data1.Recordset.Fields(2) + 1 Data2.Recordset.Update End If Data2.Recordset.MoveNext Wend If Not J = 1 Then MsgBox "BOOK IS NOT AVAILABLE" End If End Sub Private Sub Command2_Click() Me.Hide Form2.Show End Sub

71



Choice Form : (Form2.frm)

72

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Borrow Book : (Form3.frm)

73

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Renewal : (Form4.frm)

74

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Return : (Form5.frm)

75


RESULT: Thus the Library information system was developed by using visual basic in front end and MS-Access in back end.

76


COURSE REGISTRATION SYSTEM

77


COURSE REGISTRATION SYSTEM AIM: To develop the course registration system by using visual basic as front end and MS-access as back end. PROGRAM ANALYSIS AND PROJECT PLANNING PURPOSE: The purpose of the program analysis and project planning is to fully describe the functionality of course registration system identified and it also describe non-functional requirements and design control and other factors. PROJECT SCOPE: The program analysis and project planning applies to the course registration system.Initially the project is going to be implement interact level and later the organization has an idea to upgrade in internet level the project merit include this project might suppresses the complication in manual course registration. OBJECTIVES:  

It reduces the workload of institutions and students,by the system registration will not offer the physical appearance of the applier. It consumes more time.

HARDWARE REQUIREMENTS: 4. Pentium Processor 5. Intel Motherboard 6. RAM 256MB(minimum) 7. Hard disk 40GB(minimum) SOFTWARE REQUIREMENTS: 10. Microsoft VisualBasic6.0 11. Microsoft Access 12. Rational Rose SOFTWARE REQUIRMENT ANALYSIS: The following sub sections describe the usage of the payroll system.There are five modules.  Use entry

78

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN  Verification of  Student details  Select the college  Select the desired course INTENDED AUDIENCE:  

Student

PRODUCT FUNCTIONS: Here short briefing on course registration.It has the following five modules. The modules are:1. ENTRY: The has to provide the name and the pin number.The pin is the four digit number, which is also called a secret key known to the . 2.VERIFICATION OF : The is matched with one already present in the data base is the is scanned.If the is correct the is logged in else the false message is generated. 3. STUDENT DETAILS: The student will enter their personal details and their academic details.Depending upon that information the desired college and course will be ed for each student. 4.COLLEGE DETAILS: Using the database,name of each college will be stored and displayed. 5.COURSE DETAILS: Available course in each college will be displayed.

79


COURSE REGISTRATION SYSTEM

USECASE DIAGRAM:

student details

database manager college details

available course

university

update

seat details

registration

student

course selection

80


CLASS DIAGRAM:

81


SEQUENCE DIAGRAM:

82


83


COLLABORATION DIAGRAM: 9: check the status of the student 1: enter the name and 3: send details 5: enter the name student

universit y 2: enter the mark 4: enter the college name

10: update student details 8: select the college and department 6: the college 7: send college details0

college

VB SOURCE CODE 84

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Form1.frm: Private Sub Command1_Click() If Trim(Text1.Text) = "" And Trim(Text2.Text) = "sec" Then Frame1.Visible = True Else MsgBox "enter valid id" End If End Sub Private Sub Command2_Click() If Text3.Text = " " Or Text4.Text = " " Or Text5.Text = " " Then MsgBox "enter details " Else Form2.Show End If Form2.Text1.Text = Text3.Text Form2.Text2.Text = Text4.Text Form2.Text3.Text = Text5.Text End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Me.Left = 250 Me.WindowState = 2 End Sub Form2.frm: Private Sub Combo1_Click() Select Case (Combo1.ListIndex) Case 0 Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = "sudharsan engineering college" Then Call info End If Data1.Recordset.MoveNext Loop Case 1 Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = "JJ college of engineering" Then Call info

85

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN End If Data1.Recordset.MoveNext Loop Case 2 Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = "PSNA engineering college" Then Call info End If Data1.Recordset.MoveNext Loop Case 3 Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = "CIT engineering college" Then Call info End If Data1.Recordset.MoveNext Loop Case 4 Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = "GUINDY engineering college" Then Call info End If Data1.Recordset.MoveNext Loop End Select End Sub Private Sub Form_Load() Me.WindowState = 2 End Sub Public Sub info() Text4.Text = Data1.Recordset.Fields(0).Value Text5.Text = Data1.Recordset.Fields(1).Value Text6.Text = Data1.Recordset.Fields(2).Value Text7.Text = Data1.Recordset.Fields(3).Value Text8.Text = Data1.Recordset.Fields(4).Value Text9.Text = Data1.Recordset.Fields(5).Value Text10.Text = Data1.Recordset.Fields(6).Value Text11.Text = Data1.Recordset.Fields(7).Value Text12.Text = Data1.Recordset.Fields(8).Value

86

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Text13.Text = Data1.Recordset.Fields(9).Value Text14.Text = Data1.Recordset.Fields(10).Value Text15.Text = Data1.Recordset.Fields(11).Value Text16.Text = Data1.Recordset.Fields(12).Value Text17.Text = Data1.Recordset.Fields(13).Value Text18.Text = Data1.Recordset.Fields(14).Value Text19.Text = Data1.Recordset.Fields(15).Value End Sub Private Sub Text10_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text10.Text = Val(Text10.Text) - 1 Data1.Recordset.Fields(6).Value = Text10.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "it" End Sub Private Sub Text11_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text11.Text = Val(Text11.Text) - 1 Data1.Recordset.Fields(7).Value = Text11.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "it" End Sub Private Sub Text12_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit

87

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Text12.Text = Val(Text12.Text) - 1 Data1.Recordset.Fields(8).Value = Text12.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "it" End Sub Private Sub Text13_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text13.Text = Val(Text13.Text) - 1 Data1.Recordset.Fields(9).Value = Text13.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "it" End Sub Private Sub Text14_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text14.Text = Val(Text14.Text) - 1 Data1.Recordset.Fields(10).Value = Text14.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "eee" End Sub Private Sub Text15_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then

88

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Data1.Recordset.Edit Text15.Text = Val(Text15.Text) - 1 Data1.Recordset.Fields(11).Value = Text15.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "eee" End Sub Private Sub Text16_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text16.Text = Val(Text16.Text) - 1 Data1.Recordset.Fields(12).Value = Text16.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "eee" End Sub Private Sub Text17_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text17.Text = Val(Text17.Text) - 1 Data1.Recordset.Fields(13).Value = Text17.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "eee" End Sub Private Sub Text18_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF

89

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text18.Text = Val(Text18.Text) - 1 Data1.Recordset.Fields(14).Value = Text18.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "eee" End Sub Private Sub Text19_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text19.Text = Val(Text19.Text) - 1 Data1.Recordset.Fields(15).Value = Text19.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "eee" End Sub Private Sub Text5_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text5.Text = Val(Text5.Text) - 1 Data1.Recordset.Fields(1).Value = Text5.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "cse" End Sub Private Sub Text6_Click() Data1.Recordset.MoveFirst

90

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text6.Text = Val(Text6.Text) - 1 Data1.Recordset.Fields(2).Value = Text6.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "cse" End Sub Private Sub Text7_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text7.Text = Val(Text7.Text) - 1 Data1.Recordset.Fields(3).Value = Text7.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "cse" End Sub Private Sub Text8_Click() Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text8.Text = Val(Text8.Text) - 1 Data1.Recordset.Fields(4).Value = Text8.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "cse" End Sub Private Sub Text9_Click()

91

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Data1.Recordset.MoveFirst Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0).Value = Combo1.Text Then Data1.Recordset.Edit Text9.Text = Val(Text9.Text) - 1 Data1.Recordset.Fields(5).Value = Text9.Text Data1.Recordset.Update End If Data1.Recordset.MoveNext Loop Form3.Show Form3.Text2.Text = "it" End Sub

92


OUTPUT FORMS Form : (Form1.frm)

93


Course Details : (Form2.frm)

94


Acknowledgement Form : (Form3.frm)

95


RESULT:

96


Thus the Course registration system was developed by using visual basic in front end and MS-Access in back end.

STOCK MAINTENANCE SYSTEM

97


STOCK MAINTENANCE SYSTEM AIM To develop the stock maintenance project. It can be used to maintain the details about a stock contained by some company. PROJECT DESCRIPTION Stock maintenance project mainly used to store the stock details and retrieve the data. Stock entry forms are used to update the databases. The sale form can be used to view the sales details. The company return form can be used to show the details of defective products. Item details can be used to show the current status of the stock. The exit buttons closes the forms of the project. HARDWARE REQUIREMENTS    

Pentium IV Processor Intel Motherboard RAM(256 MB) HARD DISK(20GB)

SOFTWARE REQUIREMENTS  Rational Rose  Microsoft VB 6.0  MS-Access MODULES     

Authentication Stock entry Sales Details Order Details Item Details

MODULE DESCRIPTION

98

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN 1. Authentication Get the name and validate it accordingly. 2. Stock Entry Product purchased details are entered through this form. It can be used to enter the item code name, bought cost, company name and no. of items. The data is then stored in the database. 3. Stock Details In this module its used to store the sales product details and also show the sales details. 4. Order Details Order details form can be used to generate orders and view previous stored order details. 5. Item Details Show the current details of the stock details. NON FUNCTIONALITY SECURITY It is a source project because it contains id and . MAINTAINABILITY Authorized only can access it, thus it is easily maintainable. AVAILABILITY It is available for all type of companies (i.e.) large scale or small scale. FLEXIBILITY It is a friendly project. More modules can be easily added, thus it is quite flexible.

99


STOCK MAINTANANCE SYSTEM UseCase Diagram:

Authentication

Item

Purchase details

Delivery report

Quality remaining

Class Diagram:

100


Sequence Diagram:

101


stock

name and

check

checking status

order the item

checking for the order

processing

report the order

delivery status

102


Collaboration Diagram: 2: check 6: processing

1: name and 5: checking for the order

stock 3: checking status 7: report the order

4: order the item

8: delivery status

VB SOURCE CODE 103

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Form1.frm Private Sub Command1_Click() If (Text1.Text = "Ramesh" And Text2.Text = "sec") Then Unload Me Form11.Show Else MsgBox "Wrong " End If End Sub Private Sub Command2_Click() End End Sub Form11.frm Private Sub Command1_Click() Form111.Show Form11.Visible = False End Sub Private Sub Command2_Click() Form112.Show Form11.Visible = False End Sub Private Sub Command3_Click() Form113.Show Form11.Visible = False End Sub Private Sub Command4_Click() Form2.Show Form11.Visible = False End Sub Private Sub Command5_Click() Form8.Show Form2.Visible = False End Sub

Form111.frm Private Sub Command1_Click() 104

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN MsgBox ("ADD DATA") Data1.Recordset.MoveLast Data1.Recordset.AddNew Data1.Recordset.Fields(0) Data1.Recordset.Fields(1) Data1.Recordset.Fields(2) Data1.Recordset.Fields(3) Data1.Recordset.Fields(4) Data1.Recordset.Update End Sub

= = = = =

Form111.Text1.Text Form111.Text2.Text Form111.Text3.Text Form111.Text4.Text Form111.Text5.Text

Private Sub Command2_Click() Data1.Recordset.Delete Data1.Recordset.MoveNext MsgBox ("DATA DELETED") End Sub Private Sub Command3_Click() Data1.Refresh End Sub Private Sub Command4_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified MsgBox ("DATA UPDATE") End Sub Private Sub Command5_Click() Form11.Show Form111.Hide End Sub Form112.frm Private Sub Command1_Click() MsgBox ("ADD DATA") Data1.Recordset.AddNew Data1.Recordset.Fields(0) = Form112.Text1.Text Data1.Recordset.Fields(1) = Form112.Text2.Text Data1.Recordset.Fields(2) = Form112.Text3.Text Data1.Recordset.Fields(3) = Form112.Text4.Text Data1.Recordset.Fields(4) = Form112.Text5.Text Data1.Recordset.Update End Sub Private Sub Command2_Click() Form11.Show 105

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Me.Hide End Sub Private Sub Command3_Click() Form112.Text1.Text = "" Form112.Text2.Text = "" Form112.Text3.Text = "" Form112.Text4.Text = "" Form112.Text5.Text = "" End Sub Form113.frm Private Sub Command2_Click() Data1.Recordset.Delete Data1.Recordset.MoveNext MsgBox ("DATA DELETED") End Sub Private Sub Command3_Click() Data1.Refresh End Sub Private Sub Command4_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified MsgBox ("DATA UPDATED") End Sub Private Sub Command5_Click() Form2.Show Form1.Text1 = " " Form1.Text2 = " " End Sub Private Sub Command6_Click() MsgBox ("ADD DATA") Data1.Recordset.AddNew Data1.Recordset.Fields(0) = Form113.Text1.Text Data1.Recordset.Fields(1) = Form113.Text2.Text Data1.Recordset.Fields(2) = Form113.Text3.Text Data1.Recordset.Fields(3) = Form113.Text4.Text Data1.Recordset.Fields(4) = Form113.Text5.Text Data1.Recordset.Fields(5) = Form113.Text6.Text Data1.Recordset.Fields(6) = Form113.Text7.Text Data1.Recordset.Update End Sub 106

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Form2.frm Private Sub Command1_Click() Form21.Show Form11.Hide End Sub Private Sub Command2_Click() Form22.Show Form11.Hide End Sub Private Sub Command3_Click() Form11.Show Form22.Hide End Sub Form21.frm Private Sub Command1_Click() Data1.Recordset.MoveLast Data1.Recordset.AddNew Data1.Recordset.Fields(0) = Text1.Text Data1.Recordset.Fields(1) = Text2.Text Data1.Recordset.Fields(2) = Text3.Text Data1.Recordset.Fields(3) = Text4.Text Data1.Recordset.Fields(4) = Text5.Text Data1.Recordset.Update Data1.Recordset.MoveNext MsgBox "ordered" End Sub Private Sub Command2_Click() Form2.Show Form21.Hide End Sub Form22.frm Private Sub Command2_Click() Form2.Show Form22.Hide End Sub

107



Choice : (Form11.frm)

108

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Items : (Form111.frm)

Ordered Items : (Form112.frm)

109

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Order Items : (Form21.frm)

Ordered Delivery System : (Form2.frm)

110


Results: Thus Stock maintenance project was successfully completed.

111


ATM SYSTEM

112


ATM SYSTEM INTRODUCTION: GOAL: Software development process involves four modules: analysis,deg,coding and testing of the software.Our goal is to develop software for ATM system interaction,which is available to all s.this ATM system is easy to access and is available all over India with 24 hours of service. OBJECTIVE: Our objective is to understand the software to be developed,analyze the process and finally implement the concepts to develop software.The primary objective is to implement ATM system. 1.only bank clients can access ATM with their card. 2.Others s are not allowed to access ATM. INFORMATION DESCRIPTION: DETAILED DESCRIPTION: The client must be able to deposit amount to and withdraw amount from their using ATM system.Each transaction must be recorded and the client must be able to review all transaction performed against given amount. When the client inserts the ATM card,the approval process is enabled.The system asks to enter the pin code.If code is valid,the client’s is available.If the code is invalid,an appropriate message is displayed to the client. When the client’s is available,the screen displays four features for the client.One is to check the transaction made.Second to deposit amount.Third is to withdraw amount and the final option is to save the transaction. The client may need to deposit the amount and select this feature.This feature gets input from the client.It asks for the amount to be deposited and the deposit is in the way of cash. The client can also withdraw the amount. The withdraw amount screen asks for the amount to be withdrawn. This verifies the amount to check whether the amount is available or not.If it is available,it asks to eject cash and perform ejection.If it is not available,then the appropriate message is displayed. 113


The client then,can save the transaction.The system creates the record of the transaction.This is made whenever amount is deposited or withdrawn.A printed slip is ejected for the client to know about their transaction. The client can also check the transaction.The system displays the information and the transaction history.The client can also have a print of information. After the client’s transaction is over,he/she requests to eject the card.The ATM system process is over. HARDWARE DESCRIPTION: 1. Intel Motherboard with Pentium Processor 2. RAM 256MB(minimum) 3. Hard disk 40GB(minimum) SOFTWARE DESCRIPTION: 13. Microsoft VisualBasic6.0 14. Microsoft Access 15. Rational Rose INTERFACE DESCRIPTION: We will design a interface,which will be interactive and will be designed in such a way that it will get all the required details and will check for validation.After authentication,the access will be given to the s. FUNCTIONAL DESCRIPTION: PERFORMANCE CHARACTERISTICS: The ATM system is designed for clients will allow withdrawal of up to Rs.15,000/=only.The amount exceeding that will not be allowed.Transaction slip will give the details of balance, number and last date of transaction. DATABASE REQUIREMENTS: A database required for ATM system that include client name, number,pin number,balance,transaction and last transaction.This is maintained by creating a database in MS Access.

114


NON- FUNCTIONAL REQUIREMENTS: RELIABILITY: Yes,the software is designed considering the reliability of the ATM system. AVAILABILITY: Yes, ATM system is made available for clients with 24-hour service all over India. SECURITY: Yes,ATM systems are more secured,as PIN numbers are known only to those clients who access it. MAINTAINABILITY: Yes,easier the maintenance and update the database.

115


AUTOMATIC TELLER MACHINE USECASE DIAGRAM:

Enter pin

Withdraw

atm Deposit

Checktransaction

1

check

CLASS DIAGRAM:

116


SEQUENCE DIAGRAM: atm

check pin no

pin valid/invalid

check

display status

check amount

display status

update

117



1: check pin no 3: check 5: check amount 7: update atm

2: pin valid/invalid 4: display status 6: display status

118


VB SOURCE CODE Choice.frm Private Sub Command1_Click() .Show Unload Me End Sub Private Sub Command3_Click() Unload Me End Sub

.frm Private Sub Command1_Click() Withdraw.Show Unload Me End Sub Private Sub Command3_Click() ViewBalance.Show Unload Me End Sub

ViewBalance.frm Dim db As Database Dim rs As Recordset Private Sub Command1_Click() rs.MoveFirst Do Until rs.EOF If rs(0) = Text4.Text And rs(1) = Text1.Text Then Text3.Text = rs(2) a = rs(2) End If rs.MoveNext Loop End Sub Private Sub Command3_Click() .Show Unload Me End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load()

119

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Set db = OpenDatabase("E:\PRINT OUT OOAD\CASE PRINTOUT\CASE PRINTOUT\Automatioc Teller Machine\ATM.mdb") Set rs = db.OpenRecordset("") End Sub

Withdraw.frm Dim db As Database Dim rs As Recordset Dim a As Double Private Sub Command1_Click() Command2.Enabled = True rs.MoveFirst Do Until rs.EOF If rs(0) = Text4.Text And rs(1) = Text1.Text Then Text3.Text = rs(2) a = rs(2) End If rs.MoveNext Loop End Sub Private Sub Command2_Click() rs.MoveFirst Do Until rs.EOF If rs(1) = Text1.Text And rs(0) = Text4.Text Then a = rs(2) rs.Edit rs(2) = a - Text2.Text Text3.Text = rs(2) Text2.Text = "" rs.Update MsgBox "Amount Withdrawed" End If rs.MoveNext Loop End Sub Private Sub Command3_Click() .Show Unload Me End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() Set db = OpenDatabase("E:\PRINT OUT OOAD\CASE PRINTOUT\CASE PRINTOUT\Automatioc Teller Machine\ATM.mdb") Set rs = db.OpenRecordset("") End Sub

120


OUTPUT FORM Form 1 : (Choice.frm)

Form 2 : (.frm)

121


Form 3 : (Withdraw.frm)

122


Form 4 : (ViewBalance.frm)

123


RESULT: Thus the ATM System was developed by using visual basic in front end and MS-Access in back end.

124


EXPERT SYSTEM

125


EXPERT SYSTEM AIM: To develop an expert system using visual basic in front end and MS Access as back end. PROGRAM ANALYSIS AND PROJECT PLANNING: PURPOSE: The expert system takes inspiration Medical Transcription system as a system where the doctors reward the patient’s disease and display the reports corresponding to their disease. PROJECT SCOPE: The Doctor Patient and system provide all the function    

Updating Patient Details Billing Medicine Catalog

SOFTWARE REQUIREMENT ANALYSIS: INTENDED AUDIENCE:  Patient  Doctor  PRODUCT FUNCTIONS: ENTER SYMPTOMS: Here the patient goes to the doctor his/her treatment and tells the symptoms to the doctor.Then the doctor takes about the disease and prescribes few medicines some instructions. MEDICINE CATALOG: Patient gets that the medicine from the medical shop and the entires are entered in the database. GENERATION OF REPORTS: All the details about the patient and his/her disease are finally entered in the database.

126

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN DOCTOR FORM: For getting patient name and symptoms and display reports. OFFICIAL FORM: For getting patient details and billing. PATIENT DATABASE: For updating patient and increment acquire.

127


EXPERT SYSTEM USECASE DIAGRAM:

View The Bill and Report

Diagonsis Disease

Doctor

Medicine_Catalog

Medicine Catalog Up Pattern

Patient

Maintain Patient Details

Maintain Doctor

Official

Billing System

Issue Bill Report

128


CLASS DIAGRAM:

129


SEQEUENCE DIAGRAM:

130


131

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN COLLABORATION DIAGRAM:

patient db 6: Get Details From Patient Name

patient 4: Enter The Symptomps

7: Get Symptomps

5: Add Patient Details

9: Send Disease Name 8: Display Report 1: Enter name & 2: Validate name &

3:

front

doctor form

medical catalog

VB SOURCE CODE Form 1.frm

132

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Dim a As Boolean Private Sub Command1_Click() Data1.Refresh Data1.Recordset.MoveFirst a = False Do While Not Data1.Recordset.EOF If Data1.Recordset.Fields(0) = Trim(Text1.Text) And Data1.Recordset.Fields(1) = Trim(Text2.Text) Then a = True Text2.Text = Data1.Recordset.Fields(2) Text3.Text = Data1.Recordset.Fields(3) Text4.Text = Data1.Recordset.Fields(4) Form3.Text4.Text = Data1.Recordset.Fields(5) Exit Do End If Data1.Recordset.MoveNext Loop If Not a Then MsgBox "Not consulted any doctor" Form2.Show End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Form3.Show End Sub Form2.frm Private Sub Command1_Click() Form1.Show End Sub Private Sub Command2_Click() Data1.Recordset.MoveLast Data1.Recordset.AddNew Data1.Recordset.Fields(0) = Text1.Text Data1.Recordset.Fields(1) = Text2.Text Data1.Recordset.Fields(2) = Text3.Text Data1.Recordset.Fields(3) = Text4.Text Data1.Recordset.Fields(4) = Text5.Text 133

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Data1.Recordset.Fields(5) = Text6.Text Data1.Recordset.Update MsgBox "DATA ADDED" End Sub Form3.frm Option Explicit Private Sub Command1_Click() If Text2.Text = "fever" Then Text3.Text = "Paracetamol" Form4.Text4.Text = "50" ElseIf Text2.Text = "headache" Then Text3.Text = "cold act" Form4.Text4.Text = "25" ElseIf Text2.Text = "vomit" Then Text3.Text = "vomitstop" Form4.Text4.Text = "75" ElseIf Text2.Text = "acidity" Then Text3.Text = "Gelucil" Form4.Text4.Text = "60" ElseIf Text2.Text = "stomachpain" Then Text3.Text = "Bolex" Form4.Text4.Text = "25" ElseIf Text2.Text = "cold" Then Text3.Text = "Action500" Form4.Text4.Text = "70" Else MsgBox "Enter proper disease" End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Form4.Show End Sub Private Sub Form_Load() Text1.Text = Date End Sub

134

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Form4.frm Private Sub Command1_Click() Form5.Show End Sub Private Sub Form_Load() Text1.Text = Form1.Text1.Text Text2.Text = Form3.Text2.Text Text3.Text = Form3.Text3.Text End Sub Form5.frm Option Explicit Private Sub Command1_Click() MsgBox "GET WELL SOON" End End Sub Private Sub Form_Load() Text2.Text = Form4.Text4.Text Text1.Text = "100" End Sub

OUTPUT FORMS 135


Patient Details : (Form1.frm)

Medicine Details : (Form2.frm)

Bill Amount : (Form3.frm)

136


Consulting Fee : (Form5.frm)

137

CSEITQUESTIONS.BLOGSPOT.IN | CSEITQUESTIONS.BLOGSPOT.IN Details : (Form2.frm)

138


RESULT: Thus the Expert system was developed by using visual basic in front end and MS-Access in back end.

139

Case Tool Lab Manual 5z1n41

Overview 5o1f4z

More details 6z3438

Related Documents c2h70

Case Tool Lab Manual 5z1n41

Case Tool Lab Schedule 1v2e3q

Case Lab Manual 3g3t6r

Case Tools Lab Manual 5z5v5s

Case Tool Benefits 3n4f6q

Case Tools And Testing Lab Manual 253k5o

More Documents from "PRIYA RAJI" n442n

Fourth Semester Probability And Queuing Theory Two Marks With Answers Regulation 2013 1t3917

Question Bank For Internet Programming Regulation 2013 6n1f3f

Question Bank For Artificial Intelligence Regulation 2013 47125c

Software Engineering Lab Manual 6l6l5d

Case Tool Lab Manual 5z1n41

First Semester Engineering Chemistry - I Question Bank 3s76d