Scribd
Upload
80 views41 pages

Mobile Shop Inventory Management System

This document contains code for an inventory management system for a mobile shop developed using Visual Basic 6.0. The code handles adding, editing, deleting, and finding inventory items and cash card entries for customers. Functions are included to connect to a backend database, validate and add new records, update existing records, and populate dropdown lists and fields from the database. The system also includes timers for scrolling captions and changing label colors.

Uploaded by

Puneet Chawla
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
80 views41 pages

Mobile Shop Inventory Management System

This document contains code for an inventory management system for a mobile shop developed using Visual Basic 6.0. The code handles adding, editing, deleting, and finding inventory items and cash card entries for customers. Functions are included to connect to a backend database, validate and add new records, update existing records, and populate dropdown lists and fields from the database. The system also includes timers for scrolling captions and changing label colors.

Uploaded by

Puneet Chawla
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

MIRAN SAHIB, JAMMU

ON

UNDER THE GUIDANCE OF MISS MEENAKSHI VAID

SUBMITTED BY RAJAT KUMAR CLASS ROLL NO:-19 BOARD ROLL NO:-

ACKNOWLEDGEMENT
I express my deep sense of gratitude to Meenakshi Vaid of J&K Police Public School, Miran Sahib Jammu. Its a great privilege to have been her student & benefited from her excellent guidance.

Name:-RAJAT KUMAR Class:- 12th

CERTIFICATE
This is to certify that the project entitled INVENTORY MANAGEMENT OF A MOBILE

SHOP present in them has been successfully completed by RAJAT KUMAR of class XII .In the due fulfillment of requirement for annual session 2012-2013.

Teachers Signature

Principal Signature

CONTENTS
Certificate Acknowledgement Department Profile System Requirements Introduction to the Visual Basic Objectives & Scopes Coding Screen Shots Bibliography

Introduction

Project on INVENTORY MANAGEMENT OF A MOBILE SHOP is developed by Kumar system of Mobile shop to users. With the help of this project, we are making efforts to fully computerize the systems of Mobile shop by providing different services to the customers Rajat for providing fully computerized

WORKING ENVIRONMENT
Hardware Environment
Processor RAM HARD DISK Pentium-IV 512 MB RAM 80 GB

Software Environment
OPERATING SYSTEM BACK END FRONTEND Microsoft Windows XP/2000 MS-SQL Server 2000 MS VISUAL BASIC 6.0

INTRODUCTION TO VISUAL BASIC 6.0


In the software development some activities are performed after the main development is complete. Implementation phase is concerned with the actual installation of the software on the computer and then testing it. Two types of specification are required to implement the system; these are software and hardware requirements. System implementation is described in two sections: Firstly, the implementation of the Patient Information System as front end in Visual Basic 6.0 and back end as ORACLE Server. VISUAL BASIC 6.0 DEVELOPMENT SYSTEM Visual Basic is an event driven programming language. Programming in Visual Basic is done visually, which means that as you design your application you will know how your application will look on execution. You can therefore change and experiment with the design to meet your requirement. The main advantage of Visual Basic is that it is Rapid application Development Tool. This is the main reason why Visual Basic is extensively as a prototyping type of language. The predecessor of Visual Basic was BASIC (Beginner All Purpose Symbolic Instruction Code). Basic was mainly interpreter-based language whereas Visual Basic is partly interpreter-based and partly compiler-based. Also Visual Basic supports the OOP but there was no concept of OOP in BASIC. Visual Basic works with all the RDBMS without any problems and provides easy methods for inserting, updating and accessing the data from the database.

CODING
Dim scroll As String Dim start As Integer Dim scroll1 As String Dim start1 As Integer Dim TXT As Control Dim clicked As Boolean Private Sub ADDCARD_Click() Unload Form1 [Link] End Sub Private Sub ADDMOBILES_Click() Unload Form1 [Link] End Sub Private Sub DELETECARD_Click() Unload Form1 Unload Form2 [Link] [Link] = "DELETING CASH CARD ENTRIES" [Link] = False [Link] = True [Link] = "Deleting Cash Card Entries" End Sub Private Sub DELETEMOBILES_Click() Unload Form1 [Link] [Link] = "DELETING HANDSET DATA" [Link] = False [Link] = True [Link] = "Deleting Mobile Handsets Entries" End Sub Private Sub EDITCARD_Click() Unload Form1 Unload Form2 [Link] [Link] = "EDITING CASH CARD ENTRIES" [Link] = True [Link] = False [Link] = "Editing Cash Card Entries" End Sub Private Sub EDITMOBILES_Click() Unload Form1 [Link] [Link] = "EDITING HANDSET DATA" [Link] = True [Link] = "Editing Mobile Handsets Entries" End Sub Private Sub FINDCARD_Click() Unload Form1

Unload Form2 [Link] [Link] = "FINDING CASH CARD ENTRIES" [Link] = False [Link] = False [Link] = "Finding Cash Card Entries" End Sub Private Sub FINDMOBILE_Click() Unload Form1 [Link] End Sub Private Sub Form_activate() [Link](1) = Format(Date, "long Date") [Link](2).Text = "MAIN MENU" [Link](3) = Format(Now, "long Time") start = 0 scroll = "WELCOME" start1 = 0 scroll1 = "Inventory Management" End Sub Private Sub Form_Load() [Link] = 12000 [Link] = 8980 [Link] = 0 [Link] = (12000 - [Link]) / 2 End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub RE_Click() Unload Form1 [Link] End Sub Private Sub SUM_Click() [Link] End Sub Private Sub Timer1_Timer() Dim sent As String start = start + 1 If start > Len(scroll) Then start = 1 [Link] = "" End If sent = sent + Mid(scroll, start, 1) [Link] = [Link] + sent End Sub Private Sub Timer2_Timer() Dim sent As String start1 = start1 + 1 If start1 > Len(scroll1) Then start1 = 1

[Link] = "" End If sent = sent + Mid(scroll1, start1, 1) [Link] = [Link] + sent End Sub Private Sub Timer3_Timer() If [Link] = RGB(250, 0, 0) Then [Link] = RGB(0, 0, 250) Else [Link] = RGB(250, 0, 0) End If End Sub Private Sub Timer4_Timer() If [Link] = "Inventory management" Then [Link] = "" Else [Link] = "Inventory management" End If End Sub Private Sub Timer5_Timer() [Link](3) = Format(Now, "long Time") End Sub Private Sub Timer6_Timer() Call backup End Sub Dim find As String Private Sub Form_activate() [Link] = 12000 [Link] = 8980 [Link] = 0 [Link] = (12000 - [Link]) / 2 [Link] = Format(Date, "dd/mm/yy") [Link] End Sub Private Sub ADD_Click() 'adding data to database Dim cn As New [Link] Dim rs As New [Link] Call MAKECONNECTION(cn, rs, "select * from CASHCARD") If [Link] = "" Then MsgBox "ENTER CUSTOMER NAME", vbInformation, "BLANK ENTRY" [Link] Exit Sub ElseIf [Link] = "" Then MsgBox "ENTER RELATIONSHIP NAME ", vbInformation, "BLANK ENTRY" [Link] Exit Sub ElseIf [Link] = "" Then MsgBox "ENTER LOCAL ADDRESS ", vbInformation, "BLANK ENTRY" [Link] Exit Sub ElseIf [Link] = "" Then MsgBox "ENTER PERMANENT ADDRESS ", vbInformation, "BLANK ENTRY" [Link]

10

Exit Sub ElseIf [Link] = "" Then MsgBox "ENTER MOBILE NUMBER ", vbInformation, "BLANK ENTRY" [Link] Exit Sub ElseIf [Link] = "" Then MsgBox "ENTER SIM NUMBER ", vbInformation, "BLANK ENTRY" [Link] Exit Sub ElseIf [Link] = "" Then MsgBox "ENTER DATE as dd/mm/yy ", vbInformation, "BLANK ENTRY" [Link] Exit Sub ElseIf [Link] = "" Then MsgBox "ENTER AMOUNT ", vbInformation, "BLANK ENTRY" [Link] Exit Sub ElseIf Combo1 = "" Then MsgBox "ENTER COMPANY NAME FROM LIST ", vbInformation, "BLANK ENTRY" [Link] Exit Sub End If 'ADDING DATA TO FIELDS OF CASHCARD TABLE IN [Link] [Link] 'By adEditAdd AddNew method is invoked 'but the new record is in the buffer & no new record has been saved If [Link] = adEditAdd Then rs("CUSTNAME") = UCase([Link]) rs("RELNAME") = UCase([Link]) rs("ADDLOCAL") = UCase([Link]) rs("ADDPER") = UCase([Link]) rs("MOBNO") = [Link] rs("SIMNO") = [Link] rs("DATE") = [Link] rs("COMPANY") = [Link] On Error GoTo error rs("AMOUNT") = CInt([Link]) End If If MsgBox("ARE SURE TO ADD THE RECORD", vbYesNoCancel) = vbYes Then 'SAVE THE RECORD [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" MsgBox "DATA ADDED", vbInformation Else 'CANCEL ANY CHANGES MADE TO RECORDSET [Link] MsgBox "NO NEW RECORD ADDED", vbExclamation End If GoTo 200 error: MsgBox "INPUT VALID AMOUNT", vbCritical, "INVALID ENTRY"

11

Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from CASHCARD") [Link] Do While [Link] = False If [Link]("CUSTNAME") = List1 Then [Link]("CUSTNAME") = UCase([Link]) [Link]("RELNAME") = UCase([Link]) [Link]("ADDLOCAL") = UCase([Link]) [Link]("ADDPER") = UCase([Link]) [Link]("MOBNO") = ([Link]) [Link]("SIMNO") = [Link] [Link]("COMPANY") = [Link] [Link]("DATE") = [Link] [Link]("AMOUNT") = CInt([Link]) GoTo 10 End If [Link] Loop 10: If MsgBox("DO REALLY WANT TO EDIT THE RECORD", vbYesNo, "EDITING RECORD") = vbYes Then [Link] MsgBox "RECORD UPDATED", vbInformation, "UPDATED" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" Else [Link] MsgBox "RECORD NOT MODIFIED", vbExclamation, "NO MODIFICATION" Exit Sub End If [Link] [Link] 30: If [Link] = False Then [Link] [Link]("CUSTNAME") [Link] GoTo 30 End If End Sub Private Sub Command2_Click() Dim cn As New [Link] Dim rs As New [Link] If ([Link]) = "" Then MsgBox "SELECT THE ENTRY TO BE DELETED" Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from CASHCARD") [Link]

12

Do While [Link] = False If [Link]("CUSTNAME") = List1 Then [Link]("CUSTNAME") = UCase([Link]) [Link]("RELNAME") = UCase([Link]) [Link]("ADDLOCAL") = UCase([Link]) [Link]("ADDPER") = UCase([Link]) [Link]("MOBNO") = ([Link]) [Link]("SIMNO") = [Link] [Link]("COMPANY") = [Link] [Link]("DATE") = [Link] [Link]("AMOUNT") = CInt([Link]) GoTo 10 End If [Link] Loop 10: If MsgBox("DO REALLY WANT TO DELETE THE RECORD", vbYesNo, "EDITING RECORD") = vbYes Then [Link] [Link] MsgBox "RECORD DELETED", vbInformation, "DELETED" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" Else MsgBox "RECORD NOT DELETED", vbExclamation, "NO DELETION" Exit Sub End If [Link] [Link] 30: If [Link] = False Then [Link] [Link]("CUSTNAME") [Link] GoTo 30 End If End Sub Private Sub Command3_Click() Dim cn As New [Link] Dim rs As New [Link] Call MAKECONNECTION(cn, rs, "select * from CASHCARD") [Link] = True [Link] If [Link] = True Then MsgBox "NO RECORDS AVAILABLE", vbCritical, "EMPTY RECORD" Exit Sub End If [Link]

13

Do While [Link] = False [Link] [Link]("CUSTNAME") [Link] MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text11_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] length = Len([Link]) If length = 0 Then Exit Sub End If If length = 8 Then GoTo 20 Else Exit Sub End If 20: sel = [Link] Call MAKECONNECTION(cn, rs, "select * from CASHCARD") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = [Link]("DATE") Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text12_Change() Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = ""

14

[Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = False If Len([Link]) = 10 Then GoTo 100 Else Exit Sub End If 100: sel = [Link] Call MAKECONNECTION(cn, rs, "select * from CASHCARD") If [Link] = False Then [Link] 10: Do While [Link] = False If sel = [Link]("MOBNO") Then [Link] = UCase([Link]("CUSTNAME")) [Link] = UCase([Link]("RELNAME")) [Link] = UCase([Link]("ADDLOCAL")) [Link] = UCase([Link]("ADDPER")) [Link] = [Link]("MOBNO") [Link] = [Link]("SIMNO") [Link] = [Link]("DATE") [Link] = [Link]("COMPANY") [Link] = str([Link]("AMOUNT")) [Link] GoTo 10 End If [Link] Loop End If If [Link] = "" Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub

Private Sub Timer2_Timer() If [Link] = "Display All" Then [Link] = "" Else [Link] = "Display All" End If End Sub Private Sub Timer3_Timer() Call backup End Sub Private Sub Command1_Click() Dim cn As New [Link] Dim rs As New [Link] If ([Link]) = "" Then MsgBox "SELECT THE ENTRY TO BE MODIFIED" Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from CASHCARD") [Link]

15

Do While [Link] = False If [Link]("CUSTNAME") = List1 Then [Link]("CUSTNAME") = UCase([Link]) [Link]("RELNAME") = UCase([Link]) [Link]("ADDLOCAL") = UCase([Link]) [Link]("ADDPER") = UCase([Link]) [Link]("MOBNO") = ([Link]) [Link]("SIMNO") = [Link] [Link]("COMPANY") = [Link] [Link]("DATE") = [Link] [Link]("AMOUNT") = CInt([Link]) GoTo 10 End If [Link] Loop 10: If MsgBox("DO REALLY WANT TO EDIT THE RECORD", vbYesNo, "EDITING RECORD") = vbYes Then [Link] MsgBox "RECORD UPDATED", vbInformation, "UPDATED" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" Else [Link] MsgBox "RECORD NOT MODIFIED", vbExclamation, "NO MODIFICATION" Exit Sub End If [Link] [Link] 30: If [Link] = False Then [Link] [Link]("CUSTNAME") [Link] GoTo 30 End If End Sub Private Sub Command2_Click() Dim cn As New [Link] Dim rs As New [Link] If ([Link]) = "" Then MsgBox "SELECT THE ENTRY TO BE DELETED" Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from CASHCARD") [Link] Do While [Link] = False If [Link]("CUSTNAME") = List1 Then [Link]("CUSTNAME") = UCase([Link]) [Link]("RELNAME") = UCase([Link])

16

[Link]("ADDLOCAL") = UCase([Link]) [Link]("ADDPER") = UCase([Link]) [Link]("MOBNO") = ([Link]) [Link]("SIMNO") = [Link] [Link]("COMPANY") = [Link] [Link]("DATE") = [Link] [Link]("AMOUNT") = CInt([Link]) GoTo 10 End If [Link] Loop 10: If MsgBox("DO REALLY WANT TO DELETE THE RECORD", vbYesNo, "EDITING RECORD") = vbYes Then [Link] [Link] MsgBox "RECORD DELETED", vbInformation, "DELETED" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" Else MsgBox "RECORD NOT DELETED", vbExclamation, "NO DELETION" Exit Sub End If [Link] [Link] 30: If [Link] = False Then [Link] [Link]("CUSTNAME") [Link] GoTo 30 End If End Sub Private Sub Command3_Click() Dim cn As New [Link] Dim rs As New [Link] Call MAKECONNECTION(cn, rs, "select * from CASHCARD") [Link] = True [Link] If [Link] = True Then MsgBox "NO RECORDS AVAILABLE", vbCritical, "EMPTY RECORD" Exit Sub End If [Link] Do While [Link] = False [Link] [Link]("CUSTNAME") [Link] Loop End Sub

17

Private Sub Form_activate() [Link] = 12000 [Link] = 8980 [Link] = 0 [Link] = (12000 - [Link]) / 2 [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False Private Sub List1_Click() Dim cn As New [Link] Dim rs As New [Link] Call MAKECONNECTION(cn, rs, "select * from CASHCARD WHERE CUSTNAME='" & [Link] & "'") If [Link] = False Then [Link] = UCase([Link]("CUSTNAME")) [Link] = UCase([Link]("RELNAME")) [Link] = UCase([Link]("ADDLOCAL")) [Link] = UCase([Link]("ADDPER")) [Link] = [Link]("MOBNO") [Link] = [Link]("SIMNO") [Link] = UCase([Link]("COMPANY")) [Link] = [Link]("DATE") [Link] = str([Link]("AMOUNT")) Else Exit Sub End If End Sub Private Sub M_MENU_Click() Unload Form3 [Link] End Sub Private Sub Option1_Click() [Link] = False [Link] = True [Link] = False [Link] End Sub Private Sub Option2_Click() [Link] = False [Link] = True [Link] = False [Link] End Sub Private Sub Option3_Click() [Link] = False [Link] = False [Link] = False [Link] = True [Link] End Sub Private Sub Text1_Change() Dim sel As String Dim cn As New [Link]

18

Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] length = Len([Link]) sel = UCase(Left([Link], length)) If length = 0 Then Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from CASHCARD") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = UCase(Left([Link]("CUSTNAME"), length)) Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text11_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] length = Len([Link]) If length = 0 Then Exit Sub End If If length = 8 Then GoTo 20 Else Exit Sub End If 20: sel = [Link]

19

Call MAKECONNECTION(cn, rs, "select * from CASHCARD") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = [Link]("DATE") Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text12_Change() Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = False If Len([Link]) = 10 Then GoTo 100 Else Exit Sub End If 100: sel = [Link] Call MAKECONNECTION(cn, rs, "select * from CASHCARD") If [Link] = False Then [Link] 10: Do While [Link] = False If sel = [Link]("MOBNO") Then [Link] = UCase([Link]("CUSTNAME")) [Link] = UCase([Link]("RELNAME")) [Link] = UCase([Link]("ADDLOCAL")) [Link] = UCase([Link]("ADDPER")) [Link] = [Link]("MOBNO") [Link] = [Link]("SIMNO") [Link] = [Link]("DATE") [Link] = [Link]("COMPANY") [Link] = str([Link]("AMOUNT")) [Link] GoTo 10 End If [Link] Loop End If If [Link] = "" Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub

20

Private Sub Timer2_Timer() If [Link] = "Display All" Then [Link] = "" Else [Link] = "Display All" End If End Sub Private Sub Timer3_Timer() Call backup End Sub

Private Sub Combo1_click() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] sel = Combo1 Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = [Link]("TYPE") Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Command1_Click() Dim cn As New [Link]

21

Dim rs As New [Link] If ([Link]) = "" Then MsgBox "SELECT THE ENTRY TO BE MODIFIED" Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS ") [Link] Do While [Link] = False If [Link]("CUSTNAME") = List1 Then [Link]("CUSTNAME") = UCase([Link]) [Link]("AMOUNT") = CInt([Link]) [Link]("DATE") = [Link] [Link]("TYPE") = UCase([Link]) [Link]("MAKE") = UCase([Link]) [Link]("SERIAL") = UCase([Link]) GoTo 10 End If [Link] Loop 10: If MsgBox("DO YOU REALLY WANT TO EDIT THE RECORD", vbYesNo, "EDITING RECORD") = vbYes Then [Link] MsgBox "RECORD UPDATED", vbInformation, "UPDATED" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" Else [Link] MsgBox "RECORD NOT MODIFIED", vbExclamation, "NO MODIFICATION" Exit Sub End If [Link] [Link] 30: If [Link] = False Then [Link] [Link]("CUSTNAME") [Link] GoTo 30 End If End Sub Private Sub Command2_Click() Dim cn As New [Link] Dim rs As New [Link] If ([Link]) = "" Then MsgBox "SELECT THE ENTRY TO BE DELETED" Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS ") [Link] Do While [Link] = False If [Link]("CUSTNAME") = List1 Then [Link]("CUSTNAME") = UCase([Link])

22

[Link]("AMOUNT") = CInt([Link]) [Link]("DATE") = [Link] [Link]("TYPE") = UCase([Link]) [Link]("MAKE") = UCase([Link]) [Link]("SERIAL") = UCase([Link]) GoTo 10 End If [Link] Loop 10: If MsgBox("DO YOU REALLY WANT TO DELETE THE RECORD", vbYesNo, "DELETING RECORD") = vbYes Then [Link] [Link] MsgBox "RECORD DELETED", vbInformation, "DELETED" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" Else MsgBox "RECORD NOT DELETED", vbExclamation, "NO DELETION" Exit Sub End If [Link] [Link] 30: If [Link] = False Then [Link] [Link]("CUSTNAME") [Link] GoTo 30 End If End Sub Private Sub Command3_Click() Dim cn As New [Link] Dim rs As New [Link] Call MAKECONNECTION(cn, rs, "select * from HANDSETS") [Link] = True [Link] If [Link] = True Then MsgBox "NO RECORDS AVAILABLE", vbCritical, "EMPTY RECORD" Exit Sub End If [Link] Do While [Link] = False [Link] [Link]("CUSTNAME") [Link] Loop End Sub Private Sub Form_Load() Unload Form1 [Link] = 12000

23

[Link] = 8890 [Link] = 0 [Link] = (12000 - [Link]) / 2 [Link] = False [Link] = False [Link] = False End Sub

Private Sub List1_Click() Dim cn As New [Link] Dim rs As New [Link] Call MAKECONNECTION(cn, rs, "select * from HANDSETS WHERE CUSTNAME='" & [Link] & "'") If [Link] = False Then [Link] = UCase([Link]("CUSTNAME")) [Link] = str([Link]("AMOUNT")) [Link] = [Link]("DATE") [Link] = UCase([Link]("TYPE")) [Link] = UCase([Link]("MAKE")) [Link] = [Link]("SERIAL") End If End Sub Private Sub M_MENU_Click() Unload Form5 [Link] End Sub Private Sub Option1_Click() [Link] = True [Link] = False [Link] = False [Link] End Sub Private Sub Option3_Click() [Link] = True [Link] = False [Link] = False [Link] End Sub Private Sub Option6_Click() [Link] = True [Link] = False [Link] = False [Link] End Sub Private Sub Text1_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = ""

24

[Link] = "" [Link] = "" [Link] length = Len([Link]) sel = UCase(Left([Link], length)) If length = 0 Then Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = UCase(Left([Link]("CUSTNAME"), length)) Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text2_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] length = Len([Link]) sel = UCase(Left([Link], length)) If length = 0 Then Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = UCase(Left([Link]("MAKE"), length)) Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If

25

End Sub Private Sub Text3_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] length = Len([Link]) sel = UCase(Left([Link], length)) If length = 0 Then Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = UCase(Left([Link]("COMPANY"), length)) Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text4_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = ""

26

[Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] length = Len([Link]) If length = 10 Then GoTo 20 Else Exit Sub End If 20: Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = UCase(Left([Link]("MOBNO"), length)) Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text5_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] sel = [Link] length = Len([Link]) If length = 8 Then GoTo 20 Else Exit Sub End If 20: Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = [Link]("DATE") Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link]

27

Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Timer1_Timer() If [Link] = "Display All" Then [Link] = "" Else [Link] = "Display All" End If End Sub Private Sub Timer2_Timer() Call backup End Sub rivate Sub Combo1_click() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] sel = Combo1 Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = [Link]("TYPE") Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Command1_Click() Dim cn As New [Link] Dim rs As New [Link]

28

If ([Link]) = "" Then MsgBox "SELECT THE ENTRY TO BE MODIFIED" Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS ") [Link] Do While [Link] = False If [Link]("CUSTNAME") = List1 Then [Link]("CUSTNAME") = UCase([Link]) [Link]("AMOUNT") = CInt([Link]) [Link]("DATE") = [Link] [Link]("TYPE") = UCase([Link]) [Link]("MAKE") = UCase([Link]) [Link]("SERIAL") = UCase([Link]) GoTo 10 End If [Link] Loop 10: If MsgBox("DO YOU REALLY WANT TO EDIT THE RECORD", vbYesNo, "EDITING RECORD") = vbYes Then [Link] MsgBox "RECORD UPDATED", vbInformation, "UPDATED" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" Else [Link] MsgBox "RECORD NOT MODIFIED", vbExclamation, "NO MODIFICATION" Exit Sub End If [Link] [Link] 30: If [Link] = False Then [Link] [Link]("CUSTNAME") [Link] GoTo 30 End If End Sub Private Sub Command2_Click() Dim cn As New [Link] Dim rs As New [Link] If ([Link]) = "" Then MsgBox "SELECT THE ENTRY TO BE DELETED" Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS ") [Link] Do While [Link] = False If [Link]("CUSTNAME") = List1 Then [Link]("CUSTNAME") = UCase([Link]) [Link]("AMOUNT") = CInt([Link])

29

[Link]("DATE") = [Link] [Link]("TYPE") = UCase([Link]) [Link]("MAKE") = UCase([Link]) [Link]("SERIAL") = UCase([Link]) GoTo 10 End If [Link] Loop 10: If MsgBox("DO YOU REALLY WANT TO DELETE THE RECORD", vbYesNo, "DELETING RECORD") = vbYes Then [Link] [Link] MsgBox "RECORD DELETED", vbInformation, "DELETED" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" Else MsgBox "RECORD NOT DELETED", vbExclamation, "NO DELETION" Exit Sub End If [Link] [Link] 30: If [Link] = False Then [Link] [Link]("CUSTNAME") [Link] GoTo 30 End If End Sub Private Sub Command3_Click() Dim cn As New [Link] Dim rs As New [Link] Call MAKECONNECTION(cn, rs, "select * from HANDSETS") [Link] = True [Link] If [Link] = True Then MsgBox "NO RECORDS AVAILABLE", vbCritical, "EMPTY RECORD" Exit Sub End If [Link] Do While [Link] = False [Link] [Link]("CUSTNAME") [Link] Loop End Sub Private Sub Form_Load() Unload Form1 [Link] = 12000 [Link] = 8890

30

[Link] = 0 [Link] = (12000 - [Link]) / 2 [Link] = False [Link] = False [Link] = False End Sub

Private Sub List1_Click() Dim cn As New [Link] Dim rs As New [Link] Call MAKECONNECTION(cn, rs, "select * from HANDSETS WHERE CUSTNAME='" & [Link] & "'") If [Link] = False Then [Link] = UCase([Link]("CUSTNAME")) [Link] = str([Link]("AMOUNT")) [Link] = [Link]("DATE") [Link] = UCase([Link]("TYPE")) [Link] = UCase([Link]("MAKE")) [Link] = [Link]("SERIAL") End If End Sub Private Sub M_MENU_Click() Unload Form5 [Link] End Sub Private Sub Option1_Click() [Link] = True [Link] = False [Link] = False [Link] End Sub Private Sub Option3_Click() [Link] = True [Link] = False [Link] = False [Link] End Sub Private Sub Option6_Click() [Link] = True [Link] = False [Link] = False [Link] End Sub Private Sub Text1_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = ""

31

[Link] = "" [Link] length = Len([Link]) sel = UCase(Left([Link], length)) If length = 0 Then Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = UCase(Left([Link]("CUSTNAME"), length)) Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text2_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] length = Len([Link]) sel = UCase(Left([Link], length)) If length = 0 Then Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = UCase(Left([Link]("MAKE"), length)) Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub

32

Private Sub Text3_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] length = Len([Link]) sel = UCase(Left([Link], length)) If length = 0 Then Exit Sub End If Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = UCase(Left([Link]("COMPANY"), length)) Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text4_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = ""

33

[Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] length = Len([Link]) If length = 10 Then GoTo 20 Else Exit Sub End If 20: Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = UCase(Left([Link]("MOBNO"), length)) Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Text5_Change() Dim sel As String Dim cn As New [Link] Dim rs As New [Link] [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] sel = [Link] length = Len([Link]) If length = 8 Then GoTo 20 Else Exit Sub End If 20: Call MAKECONNECTION(cn, rs, "select * from HANDSETS") If [Link] = False Then [Link] 10: Do While [Link] = False [Link] = True If sel = [Link]("DATE") Then [Link] [Link]("CUSTNAME") [Link] GoTo 10 End If [Link] Loop

34

End If If [Link] = 0 Then MsgBox "REQUIRED INFORMATION NOT FOUND", vbExclamation, "NOT FOUND" End If End Sub Private Sub Timer1_Timer() If [Link] = "Display All" Then [Link] = "" Else [Link] = "Display All" End If End Sub Private Sub Timer2_Timer() Call backup End Sub

35

Code For The Main Form

Code for Adding Cash Card Entries

36

Code For Finding Cash card Enteries

Coding For New Mobile Enteries

37

Code For Finding The Mobile Handset Enteries

Code For Recharge Card Enteries

38

Code For The Editing CashCard Form

Code For Deleting Cash Card Enteries Form

39

Code For Editing Mobile Handeset Enteries Form

Code For Deleting The Mobile Handset Enteries

40

BIBLIOGRAPHY
[Link] 1 2 3 4 Name of the Book System Analysis and Design MS-Access Introduction to database Management System Mastering Visual Basic 6.0 Author Awadh R.B Patel Bipin C Desai Evangelos Petroutsos

41

You might also like