Introduction

Existing System:

The client uses MS Excel, and maintains their product list, customer list, and prints the invoice, however it is not possible them to share the data from multiple system in multi user environment, there is lot of duplicate work, and chance of mistake. When the product price are changed they need to update each and every excel file. There is no option to find and print previous saved invoice. There is no security; any body can access any report and sensitive data, also no reports to find out the sales volume, stock list, and summary report

Proposed System:

. This E-Billing and invoicing system is used to overcome the entire problem which they are facing currently, and making complete atomization of manual billing and invoicing system

System Analysis

The following preliminary lists are based on initial interviews

Business Requirements:

The business goal for the application is to support an increase the productivity and complete automation of existing manual bill and invoice generation process. Business requirements are discussed in the Scope section, with the following additional detail:

  • Sales representatives need a method to store and access sales opportunity data, and when a sale is generated, convert some or all of the information into a sales order without re-entering information.
  • Each sales representative should receive customer and sales data pertinent only to them.
  • The accountant should be able to enter or update product information in one interface only, with all necessary product information being received by sales staff.
  • Manager must receive his or her customer and appointment data plus detailed and rollup information for each sales representative on his or her team.
  • The application should support the capability to use multi user environment.
  • The MIS Executive should able to generate all type of reports as and when required by the management.

The sales staff wants to improve their current ability to analyze their customers. In particular, they want to focus on identifying their best customers and building long-term relationships within that base. To enable them to accomplish this goal, they want to extract meaningful data that easily answers the following questions:

  • What are the early warning signs of problems?
  • Who are my best customers across product lines?
  • With whom do I focus my efforts for building a long-term relationship?
  • What are my customers’ issues as groups?
  • Geographically, where are my best customers?
  • What products are my customers buying and at what rate?

User Requirements:

User requirements are categorized by user type.

Sales Staff (Representatives and Managers)

  • View the data in various ways, for example:
    • Customers who are the top buyers of specific items
    • Best customers based on criteria to be determined
    • Best customers based on geographical analysis
    • Drops in a customer’s sales
  • Store multilingual and multiregional information in the database rather than relying on the sales staff to translate the information
  • Identify which product prices have been modified, especially on current orders in progress
  • Use opportunity rules, which are statements that help the sales representative convert an opportunity into a sale
  • Add third-party data sources and financial evaluation tools
  • Identify where promotions and programs would be the most beneficial
  • Apply discounts to customer orders:
    • Sales representatives can offer discounts up to 15 percent, or up to 20 percent with authorization.
    • Sales managers can offer discounts up to 20 percent
  • Enable capture, analysis, and sharing of data about a customer across the company
  • Use forecasts to establish sales goals
  • Allow all staff to view all contacts, but allow each contact to be assigned to a sales representative
Accountant
  • Update product details, including price, photo, and description
  • Add, delete, and update product specifications
  • Generate stock reports and check the availability, order the item as and when needed.
MIS Executive
  • Generate Reports as per requirement.
  • Share the data, and convert reports to different format like Text, CSV.

Operational Requirements:

The following requirements provide a high-level view of how the system will run:

  • Processor usage should not exceed 80 percent during concurrent uses.
  • Backups will occur incrementally throughout the day.
  • A full weekly backup is required to WORM drives.
  • Ensure that information is easy to access either, and meaningful for the sales representative and the company.
  • Minimize the technical knowledge that sales and marketing staff need to access the data, generate ad hoc queries, track promotions, and view customer segmentation information.
  • Any change to information must be reflected immediately, and the changes must be propagated to the search engine so that employees that perform searches see this new information.
  • The application should work with the existing communications and networking infrastructure.
  • The application should deploy with a minimum of additional operational processes, manual or otherwise.

System Requirements:

These are additional constraints from a system perspective:

  • Previous data of customer, product details must be imported in the new system.
  • The administrator must be able to monitor everything from the IT department.
  • The information must be accessible by everyone in the company as per the rights specify.

Success Criteria

To determine the success of this project, the following metrics can be quantified and used to analyze success factors.

Sales Automation

  • Problem customer identification. Ability to identify top 10 developing problem customers by sales representative.
  • Identification of best customers across product lines and regions. All customers can be sorted by the factors (to be determined) that rank them qualitatively. Variable sorts and rankings can be chosen by the sales representative.
  • Identification of issues across groups. All customers can be sorted by the issues (to be determined) within group categories that can be updated.  Variable sorts and rankings can be chosen by the sales representative or other user.
  • Analysis of quantities and rates of products. Products can be sorted by the quantity and dates sold. Variable sorts and rankings can be chosen by the user.

Software and Hardware Requirement:

   General Requirement for Server/Client:

 

Type Software Hardware
Work Station/ Node 1. Windows XP

2. VB Run time

3. MS Office

1. P-4

2. RAM -256 MB

Database Server 1.Win2000 Advance Server 1.P-4

2.RAM- 2GB

3.Hard Disk-160GB

4.RAID

Application Server 1.Win 2000 Advance Server 1.P-4

2.RAM- 1GB

3.Hard Disk-40GB

Development Tools and Technologies

Front End

  1. VB.Net

Why VB.Net?

VB.Net is built on the Windows Server System to take major advantage of the OS and which comes with a host of different servers which allows for building, deploying, managing and maintaining Windows Based solutions. The Windows Server System is designed with performance as priority and it provides scalability, reliability.

The advantage of VB.NET includes

  • Rapid Application Development (RAD) Support.
  • Powerful Windows-based Applications
  • Simplified Deployment
  • Powerful, Flexible, Simplified Data Access
  • Improved Coding
  • Direct Access to the OS Platform
  • Object-Oriented Constructs
  • COM Interoperability

Back End

  1. MS AccessWhy MS Access?
    MS Access is desktop RDMS support small application with all features like relational query, different data types, joins, and query. Includes

    • Easy to use and easy to deployment.
    • Integration with Windows OS
    • Scalability
    • Import and Export of data in all major database system.
    • Centralized Management
    • Reliability
    • Automating tasks

Class Diagrams

Class Diagram

Class Diagram

Activity Diagrams

Activity Diagram

Activity Diagram

Sequence Diagrams

Sequence Diagram

Sequence Diagram

 Data Flow Diagrams

Data flow Diagram

Data flow Diagram

Data Dictionary

Table : product_master

Owner:                                          dbo

Destination DB name:                   ebill

Number of columns:                     5

Number of indexes:                      2

Number of foreign keys:               0

Extended attributes:

OnFileGroup                           PRIMARY

Clustered PK                           Yes

Columns Data type Allow NULLs Value/range
Sno int Not allowed
ProdType nvarchar(60) Not allowed
ProdSubType nvarchar(60) Not allowed
Rate int Not allowed
isactive nvarchar(30) Not allowed
Indexes Type Columns
PK_ProductMaster_sno clustered, unique, primary key located on PRIMARY sno

Table : bill
Owner:dbo

Destination DB name:                   ebill

Number of columns:                     15

Number of indexes:                      3

Number of foreign keys:               0

Extended attributes:

OnFileGroup                           PRIMARY

Clustered PK                           Yes

Columns Data type Allow NULLs Value/range
sno int Not allowed
invoiceno nvarchar(60) Not allowed
canme nvarchar(60) Not allowed
Invoice_date datetime Not allowed
location nvarchar(60) Not allowed
chalan_no int Not allowed
customer_name nvarchar(100) Not allowed
Customer_address1 nvarchar(100) Not allowed
Customer_address2 nvarchar(100) Allowed
Total_amt int Not allowed
discount int Not allowed
Amt_words nvarchar(100) Not allowed
Paid_type nvarchar(60) Not allowed
Cheque_no nvarchar(60) Allowed
Entry_date datetime Not allowed
Indexes Type Columns
PK_Bill_SNO clustered, unique, primary key located on PRIMARY sno
IX_bill_cname nonclustered located on PRIMARY cname
IX_bill_invoiceno nonclustered, unique located on PRIMARY invoiceno

Table : bill_details

Owner:                                          dbo

Destination DB name:                   ebill

Number of columns:                     6

Number of indexes:                      3

Number of foreign keys:               2

Extended attributes:

OnFileGroup                           PRIMARY

Clustered PK                           Yes

Columns Data type Allow NULLs Value/range
sno int Not allowed
Bill_sno int Not allowed
Prod_sno nvarchar(60) Not allowed
qty datetime Not allowed
rate nvarchar(60) Not allowed
amt int Not allowed
Indexes Type Columns
PK_Bill_details_SNO clustered, unique, primary key located on PRIMARY sno
IX_bill_details_bill_sno nonclustered located on PRIMARY Bill_sno
IX_bill_deatils_prod_sno nonclustered, unique located on PRIMARY Prod_sno

Table : Company_master

Owner:                                          dbo

Destination DB name:                   ebill

Number of columns:                     7

Number of indexes:                      2

Number of foreign keys:               0

Extended attributes:

OnFileGroup                           PRIMARY

Clustered PK                           Yes

Columns Data type Allow NULLs Value/range
Company_name nvarchar(60) Not allowed
Address1 nvarchar(100) Not allowed
Address2 nvarchar(100) Allowed
city nvarchar(60) Not allowed
pin int Not allowed
telephone nvarchar(60) Not allowed
vatno nvarchar(60) Not allowed
Indexes Type Columns
PK_comapny_master_company_name clustered, unique, primary key located on PRIMARY Comapnay_name
IX_ comapny_master_pin nonclustered located on PRIMARY pin

Table : user_master

Owner:                                          dbo

Destination DB name:                   ebill

Number of columns:                     3

Number of indexes:                      2

Number of foreign keys:               0

Extended attributes:

OnFileGroup                           PRIMARY

Clustered PK                           Yes

Columns Data type Allow NULLs Value/range
user_name nvarchar(60) Not allowed
User_password nvarchar(60) Not allowed
User_type nvarchar(60) Allowed
Indexes Type Columns
PK_user_master_user_name clustered, unique, primary key located on PRIMARY user_name
IX_ user_master_user_type nonclustered located on PRIMARY

Implementation

FrmLogin

Dim Rs As New ADODB.Recordset

Private Sub Command1_Click()

‘>>> check wheather user name and password are blank

‘>>> if its is blan warn user to enter

If TxtUserName.Text = “” Or TxtPassword.Text = “” Then

MsgBox(“Enter user name and password …”, vbExclamation)

TxtUserName.SetFocus()

Exit Sub

End If

‘>>> check for entered company

‘>>> query to database and if no record found warn user to select company from the list.

If Rs.State = adStateOpen Then Rs.Close()

Rs.Open(“select * from company_master where company_name='” & CmbCompanyName.Text & “‘”, Cn, adOpenStatic, adLockReadOnly)

If Rs.RecordCount > 0 Then

CompanyName = CmbCompanyName.Text

Else

MsgBox(“Select company name from the list”, vbExclamation)

CmbCompanyName.SetFocus()

Exit Sub

End If

‘>>> check for username and password

‘>>> query to user_master with user_name and password

‘>>> if no record found check warn user for enter valid user namne and password

‘>>> if record found store user_nmae, user_type in global variable for future use.

If Rs.State = adStateOpen Then Rs.Close()

Rs.Open(“select * from user_master where USER_name ='” & TxtUserName.Text & “‘ and user_password ='” & TxtPassword & “‘”, Cn, adOpenStatic, adLockReadOnly)

If Rs.RecordCount > 0 Then

CheckLogin = True

UserName = IIf(IsNull(Rs(“USER_name”).Value) = True, “NA”, Rs(“USER_name”).Value)

UserType = IIf(IsNull(Rs(“user_type”).Value) = True, “NA”, Rs(“user_type”).Value)

Unload(Me)

Else

MsgBox(“Invalid User Name and Password … “, vbExclamation, “Login Error “)

TxtPassword.Text = “”

TxtUserName.SetFocus()

Exit Sub

End If

End Sub

Private Sub Command2_Click()

‘>>> close the application

End

FrmLogin = Nothing

End Sub

Private Sub Form_Load()

‘>>> open the global connection

If Cn.State = 1 Then Cn.Close()

OpenCon()

‘>>> center the form

Me.Move (Screen.Width – Width) / 2, (Screen.Height – Height) / 2

‘>>> fill the combo box with all company_name from company master

If Rs.State = adStateOpen Then Rs.Close()

Rs.Open(“select * from company_master “, Cn, adOpenStatic, adLockReadOnly)

CmbCompanyName.Clear()

If Rs.RecordCount > 0 Then

While Rs.EOF = False

CmbCompanyName.AddItem(Rs(“company_name”))

Rs.MoveNext()

End While

End If

If Rs.State = adStateOpen Then Rs.Close()

End Sub

Private Sub Form_QueryUnload(ByVal Cancel As Integer, ByVal UnloadMode As Integer)

‘>>> release all the object variable used by form

FrmLogin = Nothing

End Sub

FrmBillSummary

(Show bill summary for particular date range)

‘*************************************

‘            eBilling System

‘             Version 1.0.0

‘*************************************

‘         Show summery of bill

‘      Used Table : bill

‘                 : bill_details

‘show bill summary for seleted date

‘range, show report in crystal report

‘move data into temp table and show

‘report from temp table

‘*************************************

Option Explicit

Private Sub CmdClose_Click()

‘>>> close the form

Unload(Me)

End Sub

Private Sub CmdGetBill_Click()

‘NOTE : it is not the right solution to call crystal report by temp using temp table

‘some time it is a good practice for complecated databse relation table

‘This may not run properly in multi user environment

‘Better approch is passing value by SelectionFormula in crystal report

‘but anyway it is a working solution

‘>>> find the bill sno from seleted invoice no

‘>>> if record found

‘>>> delete temp bill na dbill_details

‘>>> insert from bill,bill_details to temp_bill, teemp_bill_details

Cn.Execute(“delete from temp_bill_details”)

Cn.Execute(“delete from temp_bill”)

Cn.Execute(“insert into temp_bill select * from bill  where invoice_date>=#” & Format(DTPicker1.Value, “dd-mmm-yy”) & “# and invoice_date<=#” & Format(DTPicker2.Value, “dd-mmm-yy”) & “# and cname='” & CompanyName & “‘ “) Cn.Execute(“insert into temp_bill_details select * from bill_details where bill_sno in (  select sno from bill  where  invoice_date >=#” & Format(DTPicker1.Value, “dd-mmm-yy”) & “# and invoice_date<=#” & Format(DTPicker2.Value, “dd-mmm-yy”) & “# and cname='” & CompanyName & “‘)”) Call OpenCon() ‘>>> open crystal report

Cr1.DataFiles(0) = App.Path & “\data.mdb”

Cr1.WindowState = crptMaximized

Cr1.ReportFileName = App.Path & “\reports\billsummary.rpt”

Cr1.Action = 1

End Sub

Private Sub Form_Load()

‘>>> cnter the form

Me.Left = (Screen.Width – Me.Width) / 2

Me.Top = (Screen.Height – Me.Height) / 2

‘>>> show the current date

DTPicker1.Value = Date

DTPicker2.Value = Date

End Sub

FrmExportData

(Export product Data in FlexGrid and MS-Excel with formatting)

 

‘*************************************

‘            eBilling System

‘             Version 1.0.0

‘*************************************

‘ Export product_master in grid and ms-excel

‘      Used Table : product_master

‘open the product_master in grid

‘display record in flex grid with gropu by product type

‘*************************************

Option Explicit

Private Sub CmdClose_Click()

‘>>> close the form

Unload(Me)

End Sub

Private Sub CmdExcel_Click()

‘>>>export data into ms excel from grid with formatting

‘>>> check the grid

If Mf1.TextMatrix(0, 0) = “” Then

MsgBox(“No Records Available for Exporting … “, vbExclamation)

Exit Sub

End If

Label1.Caption = “WAIT … Generate Excel ”

Label1.Refresh()

‘>>> creating excel object variable

Dim ex As New Excel.Application

Dim wb As New Workbook

Dim Es As New Worksheet

wb = ex.Workbooks.Add

Es = wb.Worksheets(1)

Dim i As Integer

Dim j As Integer

‘>>> set excel columns width as per flex grid columns width

For i = 0 To Mf1.Cols – 1

Mf1.Row = 1

Mf1.Col = i

Es.Columns(ReturnAlphabet(i + 1) & “:” & ReturnAlphabet(i + 1)).ColumnWidth = Mf1.CellWidth / 110

Next

‘>>> set data from grid to excel row, column wise

Dim K As Integer

For i = 0 To Mf1.Rows – 1

For j = 0 To Mf1.Cols – 1

ex.Cells(i + 1, j + 1) = Mf1.TextMatrix(i, j)

Next

Next

Dim R1 As String

Dim R2 As String

R2 = ReturnAlphabet(Mf1.Cols) & “1”

‘>>> formatting excel

Dim x As Range

‘>>>head

x = Es.Range(“A1:” & R2)

x.Font.Bold = True

x.Font.ColorIndex = 40

x.Interior.ColorIndex = 9

x.Interior.Pattern = xlSolid

x.HorizontalAlignment = xlCenter

x.VerticalAlignment = xlBottom

‘>>>border

R2 = ReturnAlphabet(Mf1.Cols) & Mf1.Rows – 1

x = Es.Range(“A1:” & R2)

With x.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With x.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With x.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With x.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With x.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With x.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

‘>>> FILL DETAILS

x = Es.Range(“A2:” & R2)

x.Interior.ColorIndex = 40

‘>>TOTAL

R2 = ReturnAlphabet(Mf1.Cols) & Mf1.Rows

x = Es.Range(“A” & Mf1.Rows & “:” & R2)

x.Font.Bold = True

x.Font.ColorIndex = 9

Es.Name = “Report”

ex.Visible = True

ex.Quit()

wb = Nothing

Es = Nothing

ex= Nothing

‘>>> process complete

Label1.Caption = “Ready”

Label1.Refresh()

End Sub

Private Sub CmdProductMaster_Click()

‘>>> reset the grid

Mf1.Rows = 2

Mf1.Cols = 3

Mf1.Clear()

Mf1.Refresh()

Mf1.Row = 0

Mf1.Col = 0

Mf1.ColWidth(0) = 800

Mf1.Text = “Sr”

Mf1.CellAlignment = 4

Mf1.CellFontName = “Arial”

Mf1.Font.Size = 10

Mf1.Font.Bold = True

Mf1.CellForeColor = vbBlue

Mf1.CellBackColor = vbCyan

Mf1.Col = 1

Mf1.ColWidth(1) = 2500

Mf1.Text = “Product Type”

Mf1.CellAlignment = 4

Mf1.CellFontName = “Arial”

Mf1.Font.Size = 10

Mf1.Font.Bold = True

Mf1.CellForeColor = vbBlue

Mf1.CellBackColor = vbCyan

Mf1.Col = 2

Mf1.ColWidth(2) = 5000

Mf1.Text = “Product”

Mf1.CellAlignment = 4

Mf1.CellFontName = “Arial”

Mf1.Font.Size = 10

Mf1.Font.Bold = True

Mf1.CellForeColor = vbBlue

Mf1.CellBackColor = vbCyan

‘>>> find distinct product type from product master

‘>>> loop all product type

Dim RS1 As New ADODB.Recordset

Dim Rs2 As New ADODB.Recordset

RS1.Open(“select distinct prod_type from product_master”, Cn, adOpenStatic, adLockReadOnly)

Dim i As Integer

Dim j As Integer

For i = 0 To RS1.RecordCount – 1

Me.Caption = i + 1

Mf1.Row = Mf1.Rows – 1

Mf1.Col = 0

Mf1.Text = i + 1

Mf1.Col = 1

Mf1.Text = RS1(“prod_type”)

‘>>> query product master for each prod type from outer loop

If Rs2.State = adStateOpen Then Rs2.Close()

Rs2.Open(“select prod_sub_type from product_master where prod_type ='” & RS1(“prod_type”) & “‘ order by prod_sub_type”, Cn, adOpenStatic, adLockReadOnly)

For j = 0 To Rs2.RecordCount – 1

Mf1.Row = Mf1.Rows – 1

Mf1.Col = 2

Mf1.Text = Rs2(0)

Mf1.Rows = Mf1.Rows + 1

Rs2.MoveNext()

Next

RS1.MoveNext()

Next

End Sub

Private Sub Form_Load()

‘>>> cnter the form

Me.Left = (Screen.Width – Me.Width)

Me.Top = (Screen.Height – Me.Height)

End Sub

FrmCompanyInfo

(Add/Modify Company Info)

‘*************************************

‘            eBilling System

‘             Version 1.0.0

‘*************************************

‘ add/edit/delete company details

‘      Used Table : company_master

‘open the company_master

‘display first record in form load

‘add edit save delete and navigation

‘*************************************

Option Explicit

Dim RS1 As New ADODB.Recordset

Dim AddEdit As String

Private Sub Command1_Click()

‘>>> close the form

Unload(Me)

End Sub

Private Sub Command11_Click()

‘>>> delete the record

If RS1.State = adStateClosed Then Exit Sub

If RS1.RecordCount <= 0 Then Exit Sub On Error GoTo myer1 ‘>>> confirm before delete

If MsgBox(“Delete the Record ? “, vbCritical + vbYesNo) = vbYes Then

RS1.Delete()

Call ClearText()

Command4_Click()

End If

Exit Sub

myer1:

MsgBox(“Error Occured : ” & Err.Description, vbCritical)

End Sub

Private Sub Command2_Click()

‘>>> move record ponter to first record

‘>>> display first record

On Error Resume Next

If RS1.State = adStateClosed Then Exit Sub

If RS1.RecordCount <= 0 Then Exit Sub RS1.MoveFirst() Call DisplayRecord() End Sub Private Sub Command3_Click() ‘>>> move back the record pointer and display current record

On Error Resume Next

If RS1.State = adStateClosed Then Exit Sub

If RS1.RecordCount <= 0 Then Exit Sub If RS1.AbsolutePosition > 1 Then

RS1.MovePrevious()

Else

MsgBox(“First Record ..”, vbInformation)

RS1.MoveFirst()

End If

Call DisplayRecord()

End Sub

Private Sub Command4_Click()

‘>>> move next the record pointer and display current record

On Error Resume Next

If RS1.State = adStateClosed Then Exit Sub

If RS1.RecordCount <= 0 Then Exit Sub

If RS1.AbsolutePosition < RS1.RecordCount Then RS1.MoveNext() Else MsgBox(“Last Record ..”, vbInformation) RS1.MoveLast() End If Call DisplayRecord() End Sub Private Sub Command5_Click() ‘>>> move last the record pointer and display current record

On Error Resume Next

If RS1.State = adStateClosed Then Exit Sub

If RS1.RecordCount <= 0 Then Exit Sub RS1.MoveLast() Call DisplayRecord() End Sub Private Sub Command6_Click() ‘>>> prepare for add record, clear all text box, set flag to ADD

If RS1.State = adStateClosed Then Exit Sub

If RS1.RecordCount <= 0 Then Exit Sub AddEdit = “ADD” Call ClearText() DE(False, True) TxtCompanyName.SetFocus() End Sub Private Sub Command7_Click() ‘>>> prepare for edit record,  set flag to EDIT

If RS1.State = adStateClosed Then Exit Sub

If RS1.RecordCount <= 0 Then Exit Sub AddEdit = “EDIT” DE(False, True) TxtCompanyName.SetFocus() End Sub Private Sub Command8_Click() ‘>>> save the record

‘>>> check for validation

‘>>> check the flag for ADD/Edit

If RS1.State = adStateClosed Then Exit Sub

If RS1.RecordCount <= 0 Then Exit Sub On Error GoTo myer1 If Trim(TxtCompanyName.Text) = “” Then MsgBox(“Enter Company Name  “, vbCritical) TxtCompanyName.SetFocus() Exit Sub End If If AddEdit = “ADD” Then RS1.AddNew() RS1(“company_name”) = TxtCompanyName.Text RS1(“Address1”) = TxtAddress1.Text RS1(“Address2”) = TxtAddress2.Text RS1(“city”) = TxtCity.Text RS1(“pin”) = TxtPin.Text RS1(“telephone”) = TxtTelephone.Text RS1(“vatno”) = TxtVatNo.Text RS1.Update() RS1.MoveLast() Call DisplayRecord() Else RS1(“Address1”) = TxtAddress1.Text RS1(“Address2”) = TxtAddress2.Text RS1(“city”) = TxtCity.Text RS1(“pin”) = TxtPin.Text RS1(“telephone”) = TxtTelephone.Text RS1(“vatno”) = TxtVatNo.Text RS1.Update() ‘>>> if it is edit after requery show the edited record

Dim p As Integer

p = RS1.AbsolutePosition

RS1.Requery()

RS1.MoveFirst()

RS1.Move(p – 1)

Call DisplayRecord()

End If

DE(True, False)

Exit Sub

myer1:

MsgBox(“Error Occured : ” & Err.Description, vbCritical)

End Sub

Private Sub Command9_Click()

‘>>> cancel save

DE(True, False)

End Sub

Private Sub Form_Load()

‘>>> center the form

Me.Move (Screen.Width – Width) / 2, (Screen.Height – Height) / 2

‘>>> reset connection

‘>>> clear all text

ClearText()

OpenCon()

‘>>> load alreday saved clent data

‘>>> and show the first record

If RS1.State = adStateOpen Then RS1.Close()

RS1.Open(“select * from company_master order by company_name “, Cn, adOpenDynamic, adLockOptimistic)

If RS1.RecordCount > 0 Then

RS1.MoveFirst()

Call DisplayRecord()

End If

DE(True, False)

End Sub

Private Sub ClearText()

‘>>> clear all text box in the form

Dim Ctl As Control

For Each Ctl In Me.Controls

If TypeOf Ctl Is TextBox Then

Ctl.Text = “”

End If

Next

End Sub

Private Sub DisplayRecord()

‘>>> display current record

On Error Resume Next

Call ClearText()

TxtCompanyName.Text = IIf(IsNull(RS1(“company_name”)) = True, “”, RS1(“company_name”))

TxtAddress1.Text = IIf(IsNull(RS1(“Address1”)) = True, “”, RS1(“Address1”))

TxtAddress2.Text = IIf(IsNull(RS1(“Address2”)) = True, “”, RS1(“Address2”))

TxtCity.Text = IIf(IsNull(RS1(“city”)) = True, “”, RS1(“city”))

TxtPin.Text = IIf(IsNull(RS1(“pin”)) = True, “”, RS1(“pin”))

TxtTelephone.Text = IIf(IsNull(RS1(“telephone”)) = True, “”, RS1(“telephone”))

TxtVatNo.Text = IIf(IsNull(RS1(“vatno”)) = True, “”, RS1(“vatno”))

Label17.Caption = RS1.AbsolutePosition & “/” & RS1.RecordCount

End Sub

Private Sub DE(ByVal T1 As Boolean, ByVal T2 As Boolean)

‘>>> enable disable buttons

Command2.Enabled = T1

Command3.Enabled = T1

Command4.Enabled = T1

Command5.Enabled = T1

Command6.Enabled = T1

Command7.Enabled = T1

Command11.Enabled = T1

Command8.Enabled = T2

Command9.Enabled = T2

Testing

System Development and Testing:

System Development is a process of conceiving the specification specified in the designing stage into source code. Careful study and observation about system designing were made and accordingly the system was coded to convert from designing to source code, where visual Basic as the front end and OracleXE as the backend. The System was developed such that it should be used for the future enhancement.

All the module of the system is combined and is put to the operational use. This means that the new and old system are run in the parallel for sometimes, errors are identified and the corresponding errors are to be concerned to get the required output.

The set of working programs and initialized tables are also provided for the easy start of the user, in addition, system documentation is also provided, all users have been trained to use the system.

This creates two problems,

  • The time lag between the cause and appearance of the problem.
  • The effect of system errors on files and records within the system.

Types of testing done:

Unit Testing:

Unit test is designed to ensure that the purpose for which it was designed for which it was designed for is fulfilled. Each and every module was tested individually with the test data and error messages were displayed for incorrect and sufficient for entry works. All validation was tested to correctness. Test data were fed in and results were checked for the maintenance module, to ensure that all tables created contained nothing but valid data. Reverential integrity constraints specified as part of the table definition was also tested.

Recovery Testing:

Many computer based systems must recover from faults and resume processing within a pre-specified time. In some cases a system must be fault tolerant.ie processing faults must not cause overall system function to cease. In the casers a system failure must be corrected within a specified period of time or severe economic damage will occur.

Security Testing:

Any computer-based system the manages sensitive information or cause action that can improperly harm individual is a tablet for improper or illegal penetration Security testing attempts to verify that protection mechanism built into a system will, in fact protect it from improper penetration . During security testing, the tester plays the role of the individual who desire to penetrate the system. The tester may attempt to acquire passwords through external clerical means; may attack the system with custom software designed to break down any defenses that have been constructed; may overwhelm the System.

Performance Testing:

For real time and embedded system, software that provides required functions but not confirm to performance requirements is unacceptable. Performance testing is designed to test the run time performance of software within the context of an integrated system. Performance testing occurs throughout all steps in the testing process. Even at unit level, the performance of an individual module may be accessed as white box test recon ducted. However, it is not until all system elements are fully integrated that true performance of a system can be ascertained.

Performance Tests are sometimes coupled with stress testing and often required other hardware and software implementation. It is often necessary to measure Resource utilization .By incrementing a system the tester can uncover situations that lead to degradation and possible system failure.

 

Integration Testing

In integration testing a system consisting of different modules is tested for problems arising from component interaction. Integration testing should be developed from the system specification. Firstly, a minimum configuration must be integrated and tested. In my project I have done integration testing in a bottom up fashion i.e. in this project I have started construction and testing with atomic modules. After unit testing the modules are integrated one by one and then tested the system for problems arising from component interaction.

White Box Testing

In white box testing knowing the internal working of the base, test can be conducted to ensure that internal operations are performed according to specification and all internal components have been adequately exercised. In white box testing logical path through the software are tested by providing test cases that exercise specific set of conditions and loops. Using white-box testing software developer can derive test case that

  • Guarantee that all independent paths within a module have been exercised at least once.
  • Exercise all logical decisions on their true and false side.
  • Exercise all loops at their boundaries and within their operational bound.
  • Exercise internal data structure to ensure their validity.

Experimental Results

FrmLogin

(Module to Authenticate User)

Log in

Log in

FrmBill

(Create and modify bill and print the saved bill)

Bill

Bill

FrmBillSummary

(Show bill summary for particular date range)

Bill Summary

Bill Summary

 

FrmExportData

(Export product Data in FlexGrid and MS-Excel with formatting)

Export Data

Export Data

 

 

FrmCompanyInfo

(Add/Modify Company Info)

Company Info

Company Info

Conclusion

This project was developed to fulfill user and business requirement; however there are lots of scope to improve the performance of the eBilling and Invoice System in the area of user interface, database performance, and query processing time. Etc.

So there are many things for future enhancement of this project. The future enhancements that are possible in the project are as follows.

  • Linking and integration of any legacy system for accounting.
  • Integration with travel agent through Web Services
  • Connection to third-party OLAP applications
  • Electronic Data Interchange (EDI) system between banks, other credit verification agency and their vendors
  • In the area of data security and system security.
  • Provide more online tips and help.
  • To optimize the query which is embedded in the system

Credits

V.Surya Indira

Categories

Recent Posts

Archives