ACKNOWLEDGEMENT
ACKNOWLEDGEMENT
It is with a great pleasure that I present my first venture in real life application of computing in the form of project work. I think all of those who devoted there precise time to my project it would not have been possible without the help of my teachers and some of my friends. I acknowledge my sincere gratitude to all those who helped me to make this project a success.
First of all I extend my sincere thanks to the faculty members of Information Technology department who tuned my knowledge in field of Information Technology. I thank them for their co-operation and guidance throughout the course.I extend my sincere thanks to the principal Mr. S.B.Singh.
I am also thankful to Mrs.Vaishali Kadam and Mrs.Aarti Patkar who showed faith in me and gave permission for the project. I also thank those who helped me directly or indirectly during my project.
PREFACE
It gives us great pleasure to present the project on “MOBILE SERVICING MANAGEMENT SYSTEM” prepared sincerely, punctually and with utmost efforts.
The contents of this book are presented into many chapters, in order to ease reading. The project has been illustrated with precise data elucidated with neat dataflow diagram, Entity-Relationship diagram and structure diagram that simplify in understanding the software. The project includes the software development tools like VB, data reports to present the software very precisely.
Meticulous care has been taken to make this project perfect and useful in every respect.
Name of Developer: Signature
Merwyn Noronha
Roshan Karkera
MOBILE SERVICING MANAGEMENT SYSTEM
SUBMITTED BY
Merwyn Noronha
Roshan Karkera
[Seat No.]
DATE OF SUBMISSION
Under the guidance of Mrs.Vashali Kadam
DEPARTMENT OF INFORMATION TECHNOLOGY
The Shankar Naryan College of Arts, Science and commerce
Navaghar, Mahavidayalaya Marg, Bhayander (East)
Thane – 401 105
INDEX
|Sr.No |Contents |Sub Contents |Page No. |
| | | | |
|1. |Introduction | | |
| | |Organizational Profile |5 |
| | |Introduction to Project |6 |
|2. |System Study & Analysis | | |
| | |Present System |7 |
| | |Scope & Objective of Project |8 |
| | |Proposed System |9 |
| | |Feasibility Study |11 |
| | |System Requirement |13 |
|3. |System Development | | |
| | |Data Flow Diagram |14 |
| | |Context Level |16 |
| | |DFD |19 |
| | |Gantt Chart |22 |
| | |Flow Chart |23 |
| | |E-R Diagram |26 |
| | |Event Table |29 |
| | |Database Design |30 |
| | |Menu Tree |31 |
|6. |Data Dictionaries | |32 |
|8. |Form Layouts | |35 |
|9. |Coding | |52 |
|11. |Testing | |91 |
|12. |Bibliography | |94 |
|15. |Conclusion | |95 |
INTRODUCTION
Organization Profile
Urmi Enterprise, a pioneer in mobile telephony. The company provides all types of GSM mobile repair services to the customers. Multimedia terminals and computer monitors round out our expertise in communications technology. The company administers state-of-the art hardware repair facilities that are easily accessible to the mainstream consumer.
The company believes in Quality Service and long term Relationship. They are into business since last seven years. The company has many branches spread all over Mumbai.
The company also deals in providing any type of mobile parts. The company also provides warranty for the services given to the customer. If the customer faces any problem during warranty period given by the company, then the company renders the service for free. The company also deals in selling mobile parts as well as branded handset at small scale.
The company handles services such as Mobile Repairing on the basis of internal or external faults. Internal faults like Replacement of battery, mobile display, Internal parts etc .External faults like keypad replacement, Replacement of mobile charger, change of body ,etc.
Introduction to the Project:
The main aim of developing Mobile Servicing Management System is to build a user friendly, efficient and robust system that will handle all operations related to the company. All the information will be stored in consistent and structured format which will allow easier retrieval of data. .The system is Management Oriented.
The project aims to develop software which will store data about their different Customers.There are different type of services provided by this project like Mobile servicing, Sales, Purchasing and Other services. This system provides Various Report Facility That can give Current Status Of site Or Client in integrated fashion, preferably with Graphics User Interface (GUI) .
The objective of the project is to create a system that :
➢ Provides customer identification e.g Job sheet no
➢ Provides relevant data about the stock
➢ Handles inventory stock of the company
➢ Provides data security
➢ Less prone to errors
➢ Efficient data storage that will reduce the redundancy of data
➢ Less chances of information Leakage
PRESENT SYSTEM
In the current system, the company work done is totally manual. First of all the management has to manually keep all the information regarding the Stock, Supplier and Customer.
Whenever a Customer enquires for any handset, the management quotation for that product. The information regarding the quotation is kept in the files. The management has to manually check the handset availability. This is performed frequently, which helps them to decide as to when a purchase order for required handset should be placed. Before placing the purchase order the supplier details are checked from the file. If for a particular Customer order, the required handset is consumed then the remaining handset information must be updated in the respective files. When certain handsets are purchased then that again must be updated in files.
So, in the current system all business transactions are made manually and many files and register are maintained and written work is more.
Problem :
In the Company most of the work is done manually by maintaining registers.
This involves many limitations such as:
➢ Increases the paper work
➢ The time to access the data increases
➢ Frequent visit by customer for their product query and enquiry
➢ Chances of Information Leakage or Loss of Information increases
➢ Maintaining records is not Integrated
➢ Duplication of data
➢ Sometimes its not possible to maintain current status of Site
Scope & Objective of Project:
The project aims to develop software which will store data about their different Customers. This system provides Various Report Facility That can give Current Status Of site Or Client in integrated fashion, preferably with Graphics User Interface (GUI) .
The objective of the project is to create a system that :
➢ Provides customer identification e.g Job sheet no
➢ Provides relevant data about the stock
➢ Handles inventory stock of the company
➢ Provides data security
➢ Less prone to errors
➢ Efficient data storage that will reduce the redundancy of data
➢ Less chances of information Leakage
Proposed System
• To overcome the difficulties and constraints that are in the present manual system, one can say that the computerized system can solve many problems to a certain extent. Hence, my project serves in interacting with many of the work process that is taking place in the company. The computerization of the inventory control system is more user friendly and as reliable.
• My project uses VISUAL BASIC as front-end and SQL as backend. This system contains different tables in which the corresponding data will be stored and it also provides multi-user facility.
• Computerizing will automate the Order Processing System (OPS) and the stock will be checked more efficiently.
• In the proposed system, the system will process the customer order will check whether the order can be processed or not. If the order can be processed then required handset or sparepart are deleted from the database and if not the system will tell which handset or sparepart are to be purchased.
• The system also maintains the description of the suppliers along with its Handset & Sparepart that they sell. This will decrease a lot of time in identifying the details of the suppliers.
• The customer will be informed by the service dept through SMS when their product is ready.
• The system gives customer and supplier a unique identity so that they can be easily identified.
• Automated computerized system will decrease manual work to some extent and improve work performance.
• There is also a provision for producing reports that management needs for planning and control.
• Finally, the system can provide security from malpractices done by the clerk in harnessing the company’s prosperity.So, the computerized system will provide an easy way to communicate.
Feasibility Study
To fulfill the requirement of the organization, acceptance criteria are needed. The user specifies all the needs that they want in their system by giving necessary data. When the developer develops the system he has to take all points into consideration and proceed accordingly. Once, when the system is completed the developer needs to check whether it fulfills the criteria of the user. If it is fulfill then the user accepts the system. This acceptance criteria depends not only on the designing but also the study of feasibility. So it is necessary to study the feasibility of the system. Feasibility study is to determine whether the solution is feasible (achievable).
Three major areas of feasibility are –
1. Economic feasibility
The benefits of the proposed system outweigh the costs specified by the budget of organization. Thus the system should be economically feasible for the organization.
2. Operational feasibility
The proposed system is desirable within the existing managerial and organizational framework. The system must be tested with the present data. It should work smoothly.
3. Technical Feasibility
The proposed solution can be implemented with the available hardware, software and technical resources in organization.
4. Sources of information
Information is gathered from person who work in that
organization, available ,Pamphlets, available reports.
Scope & Objective of Project :
The project aims to develop software which will store data about their different Customers. This system provides Various Report Facility That can give Current Status Of site Or Client in integrated fashion, preferably with Graphics User Interface (GUI) .
The objective of the project is to create a system that :
➢ Provides customer identification e.g Job sheet no
➢ Provides relevant data about the stock
➢ Handles inventory stock of the company
➢ Provides data security
➢ Less prone to errors
➢ Efficient data storage that will reduce the redundancy of data
➢ Less chances of information Leakage
PROCESSING ENVIRONMENT
Processing environment includes hardware and software
requirements.
1. Hardware Requirements
Microprocessor : Processor P-II & onwards
RAM : 4 MB RAM
Hard Disk : 8 GB HDD
2. Software requirements
Operating System : Microsoft TM Windows 98 or higher
Front End : Visual Basic 6.0
Back End : MS SQL 2000
Data Flow Diagram
A data flow diagram (DFD) is a graphical representation of the "flow" of data through an information system. A data flow diagram can also be used for the visualization of data processing (structured design). It is common practice for a designer to draw a context-level DFD first which shows the interaction between the system and outside entities. This context-level DFD is then "exploded" to show more detail of the system being modeled.
Data flow diagrams (DFDs) are one of the three essential perspectives of SSADM. With a dataflow diagram, users are able to visualize how the system will operate, what the system will accomplish and how the system will be implemented. Old system dataflow diagrams can be drawn up and compared with the new systems dataflow diagrams to draw comparisons to implement a more efficient system. Dataflow diagrams can be used to provide the end user with a physical idea of where the data they input, ultimately has an effect upon the structure of the whole system from order to dispatch to restock how any system is developed can be determined through a dataflow diagram.
There are several common modeling rules that I follow when creating DFDs:
1. All processes must have at least one data flow in and one data flow out.
2. All processes should modify the incoming data, producing new forms of outgoing data.
3. Each data store must be involved with at least one data flow.
4. Each external entity must be involved with at least one data flow.
5. A data flow must be attached to at least one process.
The four components of a data flow diagram (DFD) are
Data flow diagram notation:
External Entities/Terminators are outside of the system being modeled. Terminators represent where information comes from and where it goes.
Processes modify the inputs in the process of generating the outputs
Data Stores represent a place in the process where data comes to rest. A DFD does not say anything about the relative timing of the processes, so a data store might be a place to accumulate data over a year for the annual accounting process.
Data Flows are how data moves between terminators, processes, and data stores (those that cross the system boundary are known as IO or Input Output Descriptions).
A data flow diagram (DFD) is a graphical system model that shows all of the main requirements for an information system in one diagram: inputs and outputs, processes, and data storage. Everyone working on a development project can see all aspects of the system working together at once with DFD. That is one reason for its popularity. The DFD is also easy to read because it is graphical model.
End Users, management, and all information systems workers typically can read and interpret the DFD with minimal training.
Context Diagram
A DFD (Data Flow Diagram) that summarizes all processing activity within the system in a single process symbol is called Context Diagram. A context Diagram is a DFD that describes the highest-level view of a system are shown in own diagram, with the whole system represented as one process.
The context diagram provides a good overview of the scope of the system, showing the system in “context” but it does not show any detail about the processing that takes place inside the system. The context diagram for the security company management system is shown below. The inputs & outputs of the store are shown in the fig. The diagram shows the external entities of the system & how the data that flows through the system. This helps in determining the basic functionalities.
A context diagram is a top level (also known as Level 0) data flow diagram. It only contains one process node (process 0) that generalizes the function of the entire system in relationship to external entities.
[pic]
Data Flow Diagram (DFD)
Data Flow Diagram
(Level-1)
[pic]
Data Flow Diagram
(Level-1.1)
[pic]
Data Flow Diagram
(Level-1.2)
[pic]
Data Flow Diagram
(Level-2)
[pic]
Data Flow Diagram
(Level-2)
[pic]
Data Flow Diagram
(Level-4)
[pic]
Gantt Chart
[pic]
SYSTEM FLOW CHART
INTRODUCTION:
Flow charts used specifically for a process. A flow chart is defined as a pictorial representation describing a process being studied or even used to plan stages of a project. Flow charts tend to provide people with a common language or reference point when dealing with a project or process.
The flowchart is a means of visually presenting the flow of data through an information processing systems, the operations performed within the system and the sequence in which they are performed. The program flowchart can be likened to the blueprint of a building. As we know a designer draws a blueprint before starting construction on a building. Similarly, a programmer prefers to draw a flowchart prior to writing a computer program. As in the case of the drawing of a blueprint, the flowchart is drawn according to defined rules and using standard flowchart symbols prescribed by the American National Standard Institute, Inc.
MEANING OF A FLOWCHART
A flowchart is a diagrammatic representation that illustrates the sequence of operations to be performed to get the solution of a problem. Flowcharts are generally drawn in the early stages of formulating computer solutions. Flowcharts facilitate communication between programmers and business people. These flowcharts play a vital role in the programming of a problem and are quite helpful in understanding the logic of complicated and lengthy problems. Once the flowchart is drawn, it becomes easy to write the program in any high level language. Often we see how flowcharts are helpful in explaining the program to others. Hence, it is correct to say that a flowchart is a must for the better documentation of a complex program.
Four particular types of flow charts have proven useful when dealing with a process analysis: top-down flow chart, detailed flow chart, work flow diagrams, and a deployment chart. Each of the different types of flow charts tends to provide a different aspect to a process or a task. Flow charts provide an excellent form of documentation for a process, and quite often are useful when examining how various steps in a process work together.
[pic]
ENTITY RELATIONSHIP DIAGRAM
An ER-Diagram (Entity Relationship Diagram) is a graphical model of the data needed by a system. This included the entities about which information is stored and the relationship among them. It is produced in structured analysis methods.
An entity is a “thing” or “object” in the real world that is distinguishable from all set of objects. An entity set is a set of the same type that share same properties, or attributes.E-R diagram consists of the following major components:
[pic]
The traditional approach to system development places a great deal of emphasis on data storage requirements for the new system. Data storage requirements include the data entities, their attributes, and the relationships among the data entities. The model used to define the data storage requirements is called the Entity-Relationship Diagram
On the Entity-Relationship Diagram:
➢ Rectangles represent data entities
➢ Lines connecting the rectangles show the relationships among data entities.
➢ Ellipse represents the attributes of the entity.
The traditional approach to system development places a great deal of emphasis on data storage requirements for the new system. Data storage requirements include the data entities, their attributes, and the relationships among the data entities. The model used to define the data storage requirements is called the Entity-Relationship Diagram.
[pic]
Event Chart
| | | | | | |
|Event |Trigger |Source |Activity |Response |Destination |
|Customer makes enquiry for the product |Product enquiry. |Customer |Record Customer & enquiry |Duration time for |Customer |
| | | |details. |preparing | |
| | | | |Quotation | |
|Customer place an order |Customer wants to buy|Customer |Places an order |Order Details |System |
| |the products | | | | |
|Checking Stocks |Placing an Order |System |Checking Stocks |Stock Details |System |
|Order Fulfillment |Stock Clearance |System |Fulfill Orders |Order Clearance |Customer |
|Making Invoice |Payment Details |Customer |Prepared Pay Bill |Preparation of Bill |System |
|Order Reject |Stock unavailable |System |Waiting/Reject |Stock unavailable |Customer |
| | | |order | | |
|Placing order for new stock |Stock |System |Loading new stock |New stock updation |Supplier |
|Customer come for servicing |Problem occurs in |Customer |Repairing |Error correction |System |
| |Mobile | | | | |
|Purchase of Handsets/Accessories |New order |System |Create new purchase order |Purchase order |Supplier |
| | | | |Status | |
|System changes/cancels the purchase |Update purchase order|System |Create update order |Update order |Supplier |
|order | | | |confirmation | |
| | | | | | |
| | | | |Order status | |
|Stock Report |Report generation |Management |Produce list of all stock |Stock report |Management |
| | | |available | | |
|Invoice Report |Report generation |Management |Produce Invoice of Order |Invoice report |Management |
| | | |placed | | |
DATABASE DESIGN
[pic]
Menu Tree
[pic]
Data Dictionaries
1. TABLE NAME : Customer _master
DESCRIPTION: Keep information of customer
[pic]
2. Table Name: Model Master
Description: Keep information of Model
[pic]
3. Table Name: Part Master
Description: Keep information of parts
[pic]
4. Table Name: Staff Master
Description: Keep information of Staff
[pic]
5. Table Name: Services Details
Description: Keep information of customer services details
[pic]
6. Table Name: Sale Billing
Description: Keep information of Order billing details
[pic]
Form Layout
Main Form
[pic]
Customer Master
[pic]
Model Master
[pic]
Sparepart Master
[pic]
Supplier Master
[pic]
Customer Order Details
[pic]
SparePart Sales
[pic]
Model Sales
[pic]
Search
[pic]
Login Screen
[pic]
Common Sales
[pic]
Sale Billing
[pic]
Service Details
[pic]
Daily Report
[pic]
Backup Sql Database
[pic]
Invalid Email-ID Validation
[pic]
Number Validation
[pic]
Coding
Main Form Coding
Private Sub Image10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblarrow(7).Visible = True
lblDtls.Caption = " Allows you to log on And to create & change the ID ...!!! "
StatusBar1.Panels(2).Text = "LOGIN MASTER .."
End Sub
Private Sub Image12_Click()
'display the form
frmsalebilling.Show
End Sub
Private Sub lblExit2_Click()
'Exit the Program
Dim rstime As Recordset 'object created for displaying time
Dim b As Date 'Object created for date
Dim cn As ADODB.Connection 'connection made as "cn"
On Error GoTo errorhandle
Set cn = New ADODB.Connection
Set rstime = New ADODB.Recordset
cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Urmi"
cn.Open
If flag = True Then
MsgBox "Please Close Calculator First..."
flag = False
Exit Sub
Customer Master Coding
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim booledit As Boolean
Dim booladd As Boolean
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Urmi"
cn.Open
Set rs = New ADODB.Recordset
Set rscustomer = New ADODB.Recordset
rs.Open "select * from Customer_Master", cn, adOpenDynamic, adLockOptimistic
If rs.BOF And rs.EOF Then
cmd_add_Click
cmddelete.Enabled = False
Else
Call txtfill
End If
'Option1(0).Value = True
'rs.MoveLast
End Sub
Private Sub Form_Unload(Cancel As Integer)
cn.Close
End Sub
Private Sub txt_Email_LostFocus()
‘E-mail validation
'Dim pos, pos1, pos2 As Integer
'pos = InStr(1, txt_Email, "@")
'pos1 = InStr(1, txt_Email, ".")
'If (pos = 0 Or pos1 = 0) Then
'MsgBox ("Invalid Email-ID...please try again")
'txt_Email = ""
'txt_Email.SetFocus
'
'Else
' pos2 = InStr(pos1 + 1, txt_Email, ".")
'If (pos2 = 0) Then
'MsgBox (" invalid Email_id...")
'txtemail = ""
'txtemail.SetFocus
'Else
' If (pos2 + 2 Len(txt_Email)) Then
' MsgBox ("Invalid Email_id... 2")
'txt_Email = ""
'txt_Email.SetFocus
'
'End If
'End If
'End If
If txt_Email.Text = "" Then
txt_Email.Text = "N.A"
End If
End Sub
Model Master Coding …
Option Explicit
Dim rs As New ADODB.Recordset
Dim rs_Tech As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim f As Integer
Private Sub cmd_edit_Click()
Dim count As Integer
Dim i
If cmd_edit.Caption = "&Edit" Then
Frame1.Enabled = True
cmd_add.Caption = "&Save"
cmd_edit.Caption = "&Cancel"
lst_Technology.Enabled = True
lst_Technology2.Enabled = True
cmd_back.Enabled = False
cmddelete.Enabled = False
Text2.Enabled = True
'cmdtechno.Enabled =False
Addedit = 2
lst_Technology.clear
rs_Tech.Open "select * from TechnologyTable order by Technology_Name ", cn, adOpenDynamic, adLockOptimistic
While Not rs_Tech.EOF
count = 0
For i = 0 To lst_Technology2.ListCount - 1
If lst_Technology2.List(i) = rs_Tech(1) Then
count = 1
End If
Next i
If count = 1 Then
Else
lst_Technology.AddItem rs_Tech(1)
End If
rs_Tech.MoveNext
Wend
rs_Tech.Close
Else
If rs.EOF And rs.BOF Then
cmd_back_Click
Else
rs.MoveFirst
txtfill
'clearfield
lst_Technology2.clear
cmd_edit.Caption = "&Edit"
cmd_add.Caption = "&Add"
lst_Technology.Enabled = False
cmd_next.Enabled = True
cmd_prev.Enabled = True
cmd_back.Enabled = True
end sub
Sparepart Master Coding …
Dim resspare As New ADODB.Recordset
Dim rs_Sparepart As New ADODB.Recordset
Dim check As Integer
Private Sub cmd_add_Click()
If cmd_add.Caption = "&Add" Then
cmd_add.Caption = "&Save"
cmd_edit.Caption = "&Cancel"
cmd_next.Enabled = False
cmd_prev.Enabled = False
cmd_back.Enabled = False
cmddelete.Enabled = False
Frame1.Enabled = True
Dim res1 As New ADODB.Recordset
res1.Open "select max(Part_Id) from SparePartMaster", cn, adOpenDynamic, adLockOptimistic
If IsNull(res1(0)) Then
txt_part_code.Caption = 1
Else
txt_part_code.Caption = res1(0).Value + 1
End If
Call clearfield
check = 1
Else
If txt_qty.Text = 0 Or txtprice.Text = 0 Then
MsgBox "Zero value is not allowed"
Exit Sub
End If
If txtname.Text = "" Or txt_part_type.Text = "" Or txt_desc.Text = "" Or txt_qty.Text = "" Or txtprice.Text = "" Then
MsgBox " Enter All Neccessary Values", vbCritical
Else
If check = 1 Then
Dim restemp As New ADODB.Recordset
Set restemp = New Recordset
restemp.Open "insert into SparePartMaster values('" & txt_part_code.Caption & "','" & txtname.Text & "','" & txt_part_type.Text & "','" & txt_desc.Text & "'," & Val(txt_qty.Text) & "," & Val(txtprice.Text) & ")", cn, adOpenDynamic, adLockOptimistic
If Err.Number = 0 Then
MsgBox "RECORD SAVED", vbInformation
resspare.Requery
resspare.MoveLast
txtfill
cmd_add.Caption = "&Add"
cmd_edit.Caption = "&Edit"
cmd_prev.Enabled = True
cmd_next.Enabled = True
cmd_back.Enabled = True
cmddelete.Enabled = True
Frame1.Enabled = False
cmddelete.Enabled = True
Else
MsgBox Err.Description
MsgBox Err.Source
End If
End If
If check = 2 Then
'Dim restemp As new ADODB.Recordset
Set restemp = New Recordset
restemp.Open "update SparePartMaster set [PartName] = '" & txtname.Text & "',[Type]= '" & txt_part_type.Text & "', [Description]= '" & txt_desc.Text & "', [Quantity]= " & Val(txt_qty.Text) & ", [Price]=" & Val(txtprice.Text) & " where [Part_Id]='" & txt_part_code.Caption & "'", cn, adOpenDynamic, adLockOptimistic
'cmd_next_Click
If Err.Number = 0 Then
MsgBox "RECORD UPDATED", vbInformation
resspare.Requery
resspare.MoveLast
txtfill
cmd_add.Caption = "&Add"
cmd_edit.Caption = "&Edit"
cmd_prev.Enabled = True
cmd_next.Enabled = True
cmd_back.Enabled = True
Frame1.Enabled = False
Else
MsgBox Err.Description
MsgBox Err.Source
End If
End If
End If
End If
End Sub
Public Sub clearfield()
txt_desc.Text = ""
txt_qty.Text = ""
'txt_part_code.Text = ""
txt_part_type.Text = ""
txtname.Text = ""
txtprice.Text = ""
End Sub
Private Sub cmd_Delete_Click()
Set rs = New ADODB.Recordset
Dim del As String
del = "delete from SparePartMaster where Part_Id = " & Val(txt_part_code.Caption) & ""
MsgBox " This will delete U'r Record....!", vbExclamation
cn.Execute del
rs.MovePrevious
End Sub
Private Sub cmd_next_Click()
resspare.MoveNext
If resspare.EOF = True Then
resspare.MoveLast
MsgBox " This Is Last Record...", vbInformation
End If
Call txtfill
End Sub
Private Sub cmd_prev_Click()
resspare.MovePrevious
If resspare.BOF = True Then
resspare.MoveNext
MsgBox "This Is First Record...", vbInformation
End If
Call txtfill
End Sub
Private Sub cmd_back_Click()
MDIForm1.Show
Unload Me
End Sub
Private Sub cmddelete_Click()
On Error Resume Next
intchoice = MsgBox("Do you wan't to Delete this record", vbYesNo, "URMI ENTERPRISE.")
If intchoice = vbYes Then
Dim restemp2 As New ADODB.Recordset
Set restemp2 = New Recordset
restemp2.Open "delete from SparePartMaster where Part_Id = '" & txt_part_code.Caption & "' ", cn, adOpenDynamic, adLockOptimistic
If Err.Number = 0 Then
MsgBox "RECORD DELETED", vbInformation, "URMI ENTERPRISE."
resspare.Requery
resspare.MoveFirst
txtfill
Else
MsgBox Err.Description, vbCritical, "URMI ENTERPRISE."
MsgBox Err.Source, vbCritical, "URMI ENTERPRISE."
End If
If resspare.EOF And resspare.BOF Then
txt_part_code.Caption = ""
cmd_add_Click
For Each Control In frmSparepartMaster
If TypeOf Control Is TextBox Then
Control.Text = ""
End If
Next
End If
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
'connecting database to this form
c
Set resspare = New Recordset
resspare.Open "select * from SparePartMaster", cn, adOpenDynamic, adLockOptimistic
If resspare.EOF And resspare.BOF Then
MsgBox "No records in the backend", vbInformation
cmddelete.Enabled = False
cmd_prev.Enabled = False
cmd_next.Enabled = False
cmd_back.Enabled = False
cmd_add_Click
txtname.SetFocus
Else
txtfill
End If
'Frame1.Enabled = False
End Sub
Public Sub txtfill()
txt_part_code.Caption = resspare.Fields(0).Value
txtname.Text = resspare.Fields(1).Value
txt_part_type.Text = resspare.Fields(2).Value
txt_desc.Text = resspare.Fields(3).Value
txt_qty.Text = resspare.Fields(4).Value
txtprice.Text = resspare.Fields(5).Value
End Sub
Private Sub cmd_edit_Click()
If cmd_edit.Caption = "&Edit" Then
cmd_edit.Caption = "&Cancel"
cmd_add.Caption = "&Save"
cmd_prev.Enabled = False
cmd_next.Enabled = False
cmd_back.Enabled = False
cmddelete.Enabled = False
check = 2
Frame1.Enabled = True
Else
Private Sub txt_qty_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii 8) Then
KeyAscii = 0
End If
End Sub
Private Sub txtname_KeyPress(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) And (KeyAscii 8) And (KeyAscii 39) And (KeyAscii 32) Then
'MsgBox "enter only Alphabet's"
KeyAscii = 0
End If
End Sub
Private Sub txtname_LostFocus()
txtname.Text = UCase(txtname.Text)
End Sub
Private Sub txtprice_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii 8) Then
KeyAscii = 0
End If
End Sub
Supplier Master Coding …
Dim rs As New ADODB.Recordset
'Dim cn As New ADODB.Connection
Dim rscustomer As New ADODB.Recordset
Dim check As Integer
Dim rescorder As New ADODB.Recordset
Dim rescorder1 As New ADODB.Recordset
Dim booledit As Boolean
Dim booladd As Boolean
Dim boolstatus As Boolean
Dim Control As Object
Dim i As Integer
Dim inttemp As Integer
Dim intchoice As Integer
Private Sub cmdBkModel_Click()
'display the form
frmModelSaleDtls_Billing.Show
Unload Me
End Sub
Private Sub cmdBkModel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'mouseover effect while draging the mouse pointer to the button
cmdBkModel.BackColor = &H80000001
End Sub
Private Sub cmdBkSaleBilling_Click()
cmdBkModel.Enabled = True
cmdBkSparepart.Enabled = True
cmdBkSaleBilling.BackColor = &H80000001
cmdBkModel.BackColor = &H80000001
cmdBkSparepart.BackColor = &H80000001
End Sub
Private Sub cmdBkServiceDtls_Click()
frmServiceDtls.Show
Unload Me
End Sub
Private Sub cmdBkServiceDtls_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdBkServiceDtls.BackColor = &H80000001
End Sub
Private Sub cmdBkSparepart_Click()
frmSparepartSaleDtls_BIlLING.Show
Unload Me
End Sub
Private Sub cmdBkSparepart_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdBkSparepart.BackColor = &H80000001
End Sub
Private Sub cmddelete_Click()
'modified on 30/12/08
On Error Resume Next
intchoice = MsgBox("Do you wan't to Delete this record", vbYesNo, "URMI ENTERPRISE.")
If intchoice = vbYes Then
Dim restemp2 As New ADODB.Recordset
Set restemp2 = New Recordset
restemp2.Open "delete from SuppMaster where Supp_Id = " & Val(txt_Supp_Id.Caption) & " ", cn, adOpenDynamic, adLockOptimistic
If Err.Number = 0 Then
MsgBox "RECORD DELETED", vbInformation, "URMI ENTERPRISE."
rs.Requery
rs.MoveFirst
txtfill
Else
MsgBox Err.Description, vbCritical, "URMI ENTERPRISE."
MsgBox Err.Source, vbCritical, "URMI ENTERPRISE."
End If
If rs.EOF And rs.BOF Then
For Each Control In frmSuppMast
If TypeOf Control Is TextBox Then
Control.Text = ""
End If
Next
'cmd_next.Enabled = False
'cmd_prev.Enabled = False
'cmddelete.Enabled = False
cmd_add_Click
End If
End If
End Sub
Private Sub cmdsearch_Click()
frmsearch.Show
End Sub
Private Sub Form_Load()
'Set cn = New ADODB.Connection
'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\UrmiNokiaCenter.mdb;"
c
'cn.Open
Set rs = New ADODB.Recordset
Set rscustomer = New ADODB.Recordset
rs.Open "select * from SuppMaster", cn, adOpenDynamic, adLockOptimistic
If rs.BOF And rs.EOF Then
cmd_add_Click
cmddelete.Enabled = False
Else
Call txtfill
End If
'Option1(0).Value = True
'rs.MoveLast
End Sub
Private Sub cmd_add_Click()
'29/12/08
'Add supplier details
If cmd_add.Caption = "&Add" Then
cmd_add.Caption = "&Save"
cmd_edit.Caption = "&Cancel"
cmd_next.Enabled = False 'button are hidden
cmd_prev.Enabled = False 'button are hidden
cmd_back.Enabled = False 'button are hidden
cmdsearch.Enabled = False 'button are hidden
cmddelete.Enabled = False 'button are hidden
check = 1
Frame1.Enabled = True
Call clearfield
rscustomer.Open "select max(Supp_Id) from SuppMaster", cn, adOpenDynamic, adLockOptimistic
If IsNull(rscustomer(0)) Then
txt_Supp_Id = 1
Else
txt_Supp_Id.Caption = rscustomer(0) + 1
End If
Set rscustomer = Nothing
ElseIf cmd_add.Caption = "&Save" Then
If check = 1 Then
''' If txt_Mob.Text = 0 Or txt_Off_No.Text = 0 Or txt_Pincode.Text = 0 Or txt_Res_No.Text = 0 Then
''' MsgBox " Zero value is not allowed..!"
''' Exit Sub
''' End If
If txt_Supp_FName = "" Or txt_Supp_MName = "" Or txt_Supp_LName = "" Or txt_Add = "" Or txt_Pincode = "" Then
MsgBox " Enter All Neccessory Values", vbCritical
Exit Sub
fir = InStr(txt_Email, "@")
sec = InStr(txt_Email, ".")
If fir = 0 And sec = 1 Then
MsgBox ("Invalid Email-ID...please try again")
txt_Email = ""
txt_Email.SetFocus
ElseIf sec = 0 And fir = 1 Then
MsgBox ("Invalid Email-ID...please try again")
txt_Email = ""
txt_Email.SetFocus
ElseIf fir - sec = 1 Or sec - fir = 1 Then
MsgBox ("Invalid Email-ID...please try again")
txt_Email = ""
txt_Email.SetFocus
End If
End Sub
Private Sub txt_Mob_KeyPress(KeyAscii As Integer)
'validation for number
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii 8) Then
MsgBox "enter only number"
KeyAscii = 0
End If
End Sub
Private Sub txt_Mob_LostFocus()
If txt_Mob.Text = "" Then
txt_Mob.Text = "N.A"
End If
End Sub
Private Sub txt_Off_No_KeyPress(KeyAscii As Integer)
'validation for numbers
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii 8) Then
MsgBox "enter only number"
KeyAscii = 0
End If
End Sub
Private Sub txt_Off_No_LostFocus()
If txt_Off_No.Text = "" Then
txt_Off_No.Text = "N.A"
End If
End Sub
Private Sub txt_Pincode_KeyPress(KeyAscii As Integer)
'validation for numbers
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii 8) Then
MsgBox "enter only number"
KeyAscii = 0
End If
End Sub
Private Sub txt_Pincode_LostFocus()
'If txt_Pincode.Text = "" Then
'MsgBox "Please Enter Your Pincode "
'txt_Pincode.Text = ""
'txt_Pincode.SetFocus
'ElseIf txt_Pincode.Text = 0 Then
'MsgBox "Please Enter Your Pincode "
'txt_Pincode.Text = ""
'txt_Pincode.SetFocus
'End If
End Sub
Private Sub txt_Res_No_KeyPress(KeyAscii As Integer)
'validation for number
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii 8) Then
MsgBox "enter only number"
KeyAscii = 0
End If
End Sub
Private Sub add()
'create add function procedure
cmd_add.Caption = "&Save"
cmd_edit.Caption = "&Cancel"
cmd_next.Enabled = False
cmd_prev.Enabled = False
cmd_back.Enabled = False
'check = 1
Frame1.Enabled = True
If cmd_add.Caption = "&Add" Then
Call clearfield
rscustomer.Open "select max(Supp_Id) from SuppMaster", cn, adOpenDynamic, adLockOptimistic
If IsNull(rscustomer(0)) Then
txt_Supp_Id = 1
Else
txt_Supp_Id.Caption = rscustomer(0) + 1
End If
rscustomer.Close
If txt_Supp_FName = "" Or txt_Supp_MName = "" Or txt_Supp_LName = "" Or txt_Add = "" Or txt_Pincode = "" Then
MsgBox " Enter All Neccessory Values", vbCritical
Exit Sub
Else
'If check = 1 Then
cn.Execute "Insert into SuppMaster values (" & Val(txt_Supp_Id) & ",'" & txt_Supp_FName & "','" & txt_Supp_MName & "','" & txt_Supp_LName & "','" & txt_Add.Text & "'," & Val(txt_Pincode.Text) & "," & Val(txt_Res_No.Text) & "," & Val(txt_Off_No.Text) & "," & Val(txt_Mob) & ",'" & txt_Email.Text & "')"
If Err.Number = 0 Then
MsgBox "Record saved sucessfully ..."
rscustomer.Requery
rscustomer.MoveLast
txtfill
cmd_add.Caption = "&Add"
cmd_edit.Caption = "&Edit"
cmd_prev.Enabled = True
cmd_next.Enabled = True
cmd_back.Enabled = True
Frame1.Enabled = False
Else
MsgBox Err.Description
MsgBox Err.Source
End If
End If
ElseIf cmd_add.Caption = "&Save" Then
If txt_Supp_FName = "" Or txt_Supp_MName = "" Or txt_Supp_LName = "" Or txt_Add = "" Or txt_Pincode = "" Then
MsgBox " Enter All Neccessory Values", vbCritical
Exit Sub
cn.Execute "Update SuppMaster SET [Supp_FName] ='" & txt_Supp_FName & "',[Supp_MName] ='" & txt_Supp_MName & "',[Supp_LName] ='" & txt_Supp_LName & "', [Address]='" & txt_Add & "',[Phone_Res]=" & Val(txt_Res_No) & ",[Phone_Off]=" & Val(txt_Off_No) & ",[Mobile]=" & Val(txt_Mob) & ",[E_Mail]='" & (txt_Email) & "' where Supp_id = " & Val(txt_Supp_Id) & ""
If Err.Number = 0 Then
MsgBox "Record updated succesfully ..."
rscustomer.Requery
txtfill
cmd_add.Caption = "&Add"
cmd_edit.Caption = "&Edit"
cmd_prev.Enabled = True
cmd_next.Enabled = True
cmd_back.Enabled = True
Frame1.Enabled = False
Else
MsgBox Err.Description
MsgBox Err.Source
End If
End If
End If
End Sub
Service Details Coading …
Option Explicit
Dim rescorder As New ADODB.Recordset
Dim rescorder1 As New ADODB.Recordset
Dim booledit As Boolean
Dim booladd As Boolean
Dim boolstatus As Boolean
Dim Control As Object
Dim i As Integer
Dim inttemp As Integer
Dim intchoice As Integer
Private Sub cmdadd_Click()
On Error Resume Next
For Each Control In frmServiceDtls
If TypeOf Control Is TextBox Then
Control.Text = ""
End If
Next
'*******************************************
optWarrenty(0).Value = False
optWarrenty(1).Value = False
optMop(0).Value = False
optMop(1).Value = False
Dim res As New ADODB.Recordset
Set res = New Recordset
res.Open "select Cust_Id from Customer_Master", cn, adOpenDynamic, adLockOptimistic 'txtcustid.Clear
txtcustid.clear
While Not res.EOF
txtcustid.AddItem res.Fields(0).Value
res.MoveNext
Wend
Dim res1 As New Recordset
Set res1 = New Recordset
res1.Open "select Distinct(ProblemDesc) from ServiceDtls", cn, adOpenDynamic, adLockOptimistic
txtProbDesc.clear
While Not res1.EOF
txtProbDesc.AddItem res1.Fields(0).Value
res1.MoveNext
Wend
Dim restemp1 As New ADODB.Recordset
Set restemp1 = New Recordset
restemp1.Open "select max(JobsheetNo) from ServiceDtls", cn, adOpenDynamic, adLockOptimistic
Dim inttemp As Integer
Dim strchar As String
restemp1.MoveLast
strchar = restemp1.Fields(0).Value
strchar = Right(strchar, 3)
inttemp = CInt(strchar) + 1
If inttemp = 0 Then inttemp = inttemp + 1
If inttemp > 9 Then
txtJobsheetNo.Text = "J0" & inttemp
End If
If inttemp > 99 Then
txtJobsheetNo.Text = "J" & inttemp
End If
If inttemp ................
................
In order to avoid copyright disputes, this page is only a partial summary.
To fulfill the demand for quickly locating and searching documents.
It is intelligent file search solution for home and business.
Related download
Related searches
- words of acknowledgement for job well
- words of acknowledgement for job well done
- words of acknowledgement for funeral
- best acknowledgement sample
- acknowledgement statements examples
- words of acknowledgement for staff
- example of an acknowledgement page
- sample acknowledgement for project report
- list of acknowledgement words
- acknowledgement sample
- acknowledgement sample for project report
- acknowledgement for funeral program