Free source code for billing software system

Private Sub Command1_Click()
DBASE ("BILL")
RS.MoveLast
RS.AddNew
RS.Fields("ICD") = Val(Text1.Text)
RS.Fields("INM") = Text2.Text
RS.Fields("RPN") = Val(Text3.Text)
RS.Update
MsgBox ("SUCESSFULLY STORED")
End Sub

Private Sub Command2_Click()
DBASE ("SUPPLIERS")
RS.AddNew
RS.Fields("SUPCODE") = Val(Text4.Text)
RS.Fields("SUPNAME") = (Text5.Text)
RS.Update
MsgBox ("SUCESSFULLY STORED")
End Sub

Private Sub Command3_Click()
Unload Me
Form2.Show
End Sub

Private Sub Command4_Click()
Unload Me
Form2.Show
End Sub

Private Sub Form_Load()
DBASE ("BILL")
RS.MoveLast
Text1.Text = RS.Fields("ICD") + 1
DBASE ("SUPPLIERS")
RS.MoveLast
Text4.Text = RS.Fields("SUPCODE") + 1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 13 Then
MsgBox ("enter number only")
KeyAscii = 0
End If

If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 13 Then
MsgBox ("enter number only")
KeyAscii = 0
End If

If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 13 Then
MsgBox ("enter number only")
KeyAscii = 0
End If

If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub


PREPARE THE 6TH FORM LIKE FOLLOWS



PROGRAM

Private Sub Command1_Click()
Dim MB, TMP
DBASE ("BILL")
RS.MoveFirst
While Not RS.EOF
If RS.Fields("ICD") = Val(Text1.Text) Then
TMP = 2
MB = MsgBox("ARE YOU SURE DO YOU WANT TO DELETE", vbYesNo, "USER MESSAGE ")
If MB = vbYes Then
RS.Delete
MsgBox ("SUCESSFULLY DELETED")
End If
Text1.Text = ""
End If
RS.MoveNext
Wend


If TMP <> 2 Then
MsgBox ("RECORD NOT FOUND")
End If
TMP = 0
End Sub

Private Sub Command2_Click()
Form6.Hide
Form2.Show
End Sub

Private Sub Command3_Click()
Dim MB, TMP
DBASE ("SUPPLIERS")
RS.MoveFirst
While Not RS.EOF
If RS.Fields("SUPCODE") = Val(Text2.Text) Then
TMP = 2
MB = MsgBox("ARE YOU SURE DO YOU WANT TO DELETE", vbYesNo, "USER MESSAGE ")
If MB = vbYes Then
RS.Delete
MsgBox ("SUCESSFULLY DELETED")
End If
Text1.Text = ""
End If
RS.MoveNext
Wend


If TMP <> 2 Then
MsgBox ("RECORD NOT FOUND")
End If
TMP = 0
End Sub


Private Sub Command4_Click()
Unload Me
Form2.Show
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 13 Then
MsgBox ("enter number only")
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 13 Then
MsgBox ("enter number only")
KeyAscii = 0
End If
End Sub

EXE FILE CREATION

OPEN FILE MENU CLICK MAKE PROJECT 1.EXEGIVE FILE NAME(EG:BILLING)OK.  MINIMIZE THE VB WINDOWCLICK START BUTTONCLICK SEARCH (OR) FIND SELECT ALL FILES (OR) FOLDERSGIVE FILE NAME IN FILE NAME TEXT BOX(EG:BILLING.EXE)CLICK SEARCHSELECT OUR FILERIGHT CLICK THE MOUSECLICK SEND TOCLICK DESK TOPNOW MINIMIZE ALL APPLICATIONDOUBLE CLICK OUR EXE NAME FROM DESKTOP AND WORK WITH YOUR SOFTWARE.