SPLASH SCREEN

PASSWORD SCREEN
Password Verification Screen
Welcome Screen
MDI FORM
MDI FORM
Transaction Entry Form
Daily Transaction Account
Edit Transaction
Edit Transaction
Edit Transaction
Edit Transaction
Record Form
Record Form
Record Form
Record Form
Daily Transaction Account
Daily Transaction Account
Daily Transaction Account
Daily Transaction Account
Entry Option
Client Information
Client Information
Client Information
Client Information
Client Information
Delete Form
Query Form
Query Form

Query Form
Query Form
Query Form
Query Form
Query Form
Report Form
Report Form
 ACCOUNTS.FRM

Dim CON As Connection

Dim REC As Recordset
Public a As String
Dim rec1 As Recordset

Private Sub cmdClose_Click()

Unload Me
End Sub

Private Sub cmdEdit_Click()

Form6.Show
Me.Hide
End Sub

Private Sub cmdnextrecord_Click()

On Error GoTo ERR
Text1(4).Text = vbNullString
Text1(4).SetFocus
rec1.MoveNext
For i = 0 To 1 Step 1
Text1(i).Text = rec1.Fields(i)
Next
SQL1 = "select max(tranjectionno) from accentry WHERE SRNO= " & Text1(0).Text &
" "
Module1.OPEN_RECORDSET2 REC2, SQL1
If REC2.Fields(0) <> False Then
Text1(2).Text = (REC2.Fields(0) + 1)
Text1(3).Text = a
Else
Text1(2).Text = 1
End If
REC.AddNew
cmdsave.Enabled = True
cmdnextrecord.Enabled = False
cmdsave.Default = True
ERR:
If ERR = 3021 Then
'REC1.MoveLast
MsgBox "No Further Records", vbExclamation, "NO RECORD"
cmdnextrecord.Enabled = False
End If
End Sub

Private Sub CMDSTART_Click()

Module1.OPEN_RECORDSET REC, "select * from accentry"
REC.AddNew
Text1(3).SetFocus
CMDSTART.Visible = False
End Sub

Private Sub Form_Load()

On Error GoTo ERR
Module1.OPEN_CONNECTION
Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = False
Shape4.Visible = False
Shape5.Visible = False
cmdnextrecord.Visible = False
LOCKING True
Set CON = New Connection
CON.Open "accounts"
Module1.OPEN_RECORDSET REC, "select * from accentry"
Set rec1 = New Recordset
rec1.Open "select * from accINFO order by srno ", CON, adOpenKeyset,
adLockOptimistic
If Not rec1.EOF Then
rec1.MoveFirst
For i = 0 To 1 Step 1
Text1(i).Text = rec1.Fields(i)
Next
SQL = "select max(tranjectionno) from accentry WHERE SRNO= " & Text1(0).Text & "
"
Module1.OPEN_RECORDSET2 REC2, SQL
If REC2.Fields(0) <> False Then
Text1(2).Text = (REC2.Fields(0) + 1)
Text1(0).Enabled = False
Text1(1).Enabled = False
Text1(2).Enabled = False
Else
Text1(2).Text = 1
Text1(0).Enabled = False
Text1(1).Enabled = False
Text1(2).Enabled = False
End If
REC.AddNew
Else
MsgBox "NO RECORDS AVAILABLE", vbCritical, "NO RECORDS"
End If
ERR:
End Sub
Sub SR()
For i = 0 To 4 Step 1
Text1(i).Text = REC.Fields(i)
Next
Text1(3).Text = Format(REC.Fields(3), "DD/MMM/YYYY")
End Sub
Sub FILL()
REC!srno = Text1(0).Text
REC!Name = Text1(1).Text
REC!TRANJECTIONNO = Text1(2).Text
REC!DATE = Text1(3).Text
REC!amount = Text1(4).Text
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

Single)
cmdEdit.ForeColor = vbBlue
Label9.ForeColor = vbBlue
Label10.ForeColor = vbBlue
Label11.ForeColor = vbBlue
Label7.ForeColor = vbBlue

Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = False
Shape4.Visible = False
Shape5.Visible = False

End Sub

Private Sub Label10_Click()

DATE.Show
LOCKING False
Module1.date1 = False
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y

As Single)
Label10.ForeColor = vbRed
Shape4.Visible = True
End Sub

Private Sub Label11_Click()

If (MsgBox("DO U WANT TO SKIP THE ENTRY ", vbYesNoCancel, "SKIP
ENTRY")) = vbYes Then
cmdnextrecord_Click
If Text1(3).Text = vbNullString Then
Text1(3).SetFocus
Else
Text1(4).SetFocus
End If
Else
End If
End Sub

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y

As Single)
Label11.ForeColor = vbRed
Shape3.Visible = True

End Sub

Private Sub Label7_Click()

EDIT.Show
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

Single)
Label7.ForeColor = vbRed
Shape5.Visible = True
End Sub

Public Sub Label9_Click()

DETAILSCOPY.Show
account.Hide
End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

Single)
Label9.ForeColor = vbRed
Shape2.Visible = True
End Sub
Private Sub cmdedit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y
As Single)
cmdEdit.ForeColor = vbRed
Shape1.Visible = True
End Sub

Public Sub LOCKING(ByVal BLN As Boolean)

Dim Text1 As TextBox
For Each Text1 In Me.Text1
Text1.Locked = BLN
Next
End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

Select Case Index
Case 3
If Text1(Index).Text <> vbNullString Then
If KeyCode = 13 Then
Text1(4).SetFocus
End If
End If
Case 4
If KeyCode = 13 Then
cmdSAVE_Click
End If
End Select
End Sub

Private Sub Text1_LostFocus(Index As Integer)

Select Case Index

Case 4
If Text1(Index) <> vbNullString Then
Text1(Index).Text = Text1(Index).Text
End If
End Select
End Sub
Private Sub cmdSAVE_Click()
On Error GoTo ERR
If Text1(3).Text = vbNullString Then
MsgBox "Enter The Date" & vbCrLf & "It Cannot Contain Null Value", vbExclamation
+ vbOKOnly, "SECURITY"
Text1(3).SetFocus
Exit Sub
End If
If Text1(4).Text <> vbNullString Then
If Not IsNumeric(Text1(4).Text) Then
MsgBox "Enter Numeric Value", vbExclamation + vbOKOnly, "SECURITY"
Text1(4).SelStart = 0
Text1(4).SelLength = Len(Text1(4).Text)
Text1(4).SetFocus
Exit Sub
End If
Else
MsgBox "Enter The Value", vbExclamation + vbOKOnly, "SECURITY"
Text1(4).SetFocus
Exit Sub
End If
If REC.EditMode = adEditAdd Then
Call FILL
MsgBox "Record Saved", vbInformation, "SAVE"
a = Text1(3).Text
cmdnextrecord.Visible = True
cmdnextrecord.Default = True
cmdnextrecord.Enabled = True
cmdsave.Enabled = False
Else
End If
REC.UpdateBatch adAffectAll
SR
ERR:
If ERR = 3704 Then
MsgBox " Please Press The Start Button" & vbCrLf & "For Continuing Saving",
vbInformation, "ERROR"
Text1(3).Text = vbNullString
Text1(4).Text = vbNullString
CMDSTART.Visible = True
CMDSTART.Default = True
End If
End Sub
 DATE.FRM

Public validmonth As Boolean

Private Sub COMMANDBUtton1_Click()
On Error GoTo DATEERROR
Dim ISVALID As Boolean
Dim D As Date
D = TXTDATE(1).Text & "/" & TXTDATE(0).Text & "/" & TXTDATE(2).Text
Me.Hide
Unload Me
If Module1.date1 = False Then
account.Text1(3).Text = Format(D, "dd/mmm/yyyy")
account.Text1(4).SetFocus
account.Label10.Caption = "CHANGE DATE"
ElseIf Module1.date1 = True Then
MANUAL.Text1(3).Text = Format(D, "dd/mmm/yyyy")
MANUAL.Text1(4).SetFocus
MANUAL.cmddate.Caption = "CHANGE DATE"
End If

DATEERROR:
If ERR = 13 Then
MsgBox "This Month Don't Have So Many Days", vbInformation, "Wrong Month"
ISVALID = True
TXTDATE(Index).SetFocus
End If
If ISVALID = True Then
Cancel = True
TXTDATE(0).SelStart = 0
TXTDATE(0).SelLength = Len(TXTDATE(0).Text)
End If
End Sub

Private Sub CommandButton2_Click()

Unload Me
End Sub

Private Sub TXTDATE_KeyPress(Index As Integer, KeyAscii As Integer)

Dim iserr As Boolean
Select Case Index
Case 2
If KeyAscii = 13 Then
If Len(TXTDATE(Index).Text) = 4 Then
COMMANDBUtton1_Click
Else
MsgBox "ENTER THE YEAR IN 4 DIGIT FORMAT", vbInformation, "YEAR"
iserr = True
End If
End If
If iserr = True Then
Cancel = True
TXTDATE(Index).SelStart = 0
TXTDATE(Index).SelLength = Len(TXTDATE(Index).Text)
End If
End Select
End Sub

Private Sub TXTDATE_Validate(Index As Integer, Cancel As Boolean)

Dim ISERROR As Boolean
Dim ISNULL As Boolean
Select Case Index
Case 0, 1, 2
If TXTDATE(Index).Text <> vbNullString Then
If IsNumeric(TXTDATE(Index).Text) Then
Select Case Index
Case 0
If Not (TXTDATE(Index).Text > 0 And TXTDATE(Index).Text < 32) Then
MsgBox "Enter a Valid Date", vbInformation, "VALID DATE"
ISERROR = True
End If
Case 1
If Not (TXTDATE(Index).Text > 0 And TXTDATE(Index).Text < 13) Then
MsgBox "Enter a Valid Month", vbInformation, "VALID MONTH"
ISERROR = True
End If
Case 2
If Len(TXTDATE(Index).Text) <> 4 Then
MsgBox "ENTER THE MONTH IN 4 DIGIT FORMAT", vbInformation, "YEAR"
ISERROR = True
End If

End Select
Else
MsgBox "Enter A Valid Number In The Field", vbInformation, "NUMBER"
ISERROR = True
End If
Else
ISNULL = True
End If
End Select

If ISERROR = True Then

Cancel = True
TXTDATE(Index).SelStart = 0
TXTDATE(Index).SelLength = Len(TXTDATE(Index).Text)
End If
If ISNULL = True Then
Cancel = True
TXTDATE(Index).SetFocus
MsgBox "Cannot Enter Null Value", vbInformation, "EMPTY"
End If
End Sub
 DELETE.FRM

Private Sub cmdCancel_Click()

Unload Me
End Sub

Private Sub cmdDelete_Click()

On Error GoTo ERR
On Error Resume Next
bal = Val(Label3.Caption)
If bal <> 0 Then
MsgBox "YOU CANNOT DELETE THE RECORD", vbCritical, "BALANCE
REMAINING"
Exit Sub
ElseIf bal = 0 Then
If MsgBox("WANT TO DELETE", vbYesNoCancel, "DELETE") = vbYes Then
ans = MsgBox(" PRESS 'YES' FOR DELETE" & vbCrLf & vbCrLf & "PRESS 'NO'
FOR RENEW", vbYesNoCancel)
If ans = vbYes Then
SQL = "delete from accinfo where srno=" & Combo1.Text & ""
Module1.CON_EXECUTE (SQL)
SQL1 = "delete from accentry where srno=" & Combo1.Text & ""
Module1.CON_EXECUTE (SQL1)
MsgBox "Record Deleted", vbInformation, "DELETE"
cmdDelete.Enabled = False
Label2.Caption = ""
Label3.Caption = ""
REC.UpdateBatch
ElseIf ans = vbNo Then
SQL = "delete from accentry where srno=" & Combo1.Text & ""
Module1.CON_EXECUTE (SQL)
SQL1 = "UPDATE ACCINFO SET CASE=0 WHERE SRNO=" & Combo1.Text & " "
Module1.CON_EXECUTE (SQL1)
'REC.Update
DELETEFORM.WindowState = 2
Timer1.Enabled = True
Combo2.SetFocus
cmdDelete.Enabled = False
End If
End If
End If
ERR:
End Sub

Private Sub Combo1_click()

On Error GoTo ERR
Label2.Visible = True
Label3.Visible = True
Label4.Visible = True
Label5.Visible = True
cmdDelete.Enabled = True
SQL = "select name from accinfo where srno=" & Combo1.Text & ""
Module1.OPEN_RECORDSET2 REC2, SQL
Label2.Caption = REC2.Fields(0)
Call BALANCE
ERR:
If ERR = 3021 Then
MsgBox "CLIENT NOT EXIST", vbCritical
End If
End Sub

Private Sub COMMANDBUtton1_Click()

On Error GoTo ERR
If Text1(0).Text = "" And Text1(3).Text = "" And Text1(4).Text = "" And Text1(5).Text
= "" Then
MsgBox "CANNOT ENTER NULL VALUE", vbCritical
End If
If combo4.Text <> vbNullString Then
D = Combo2.Text & "-" & combo3.Text & "-" & combo4.Text
Text1(0).Text = Format(D, "dd/mmm/yyyy")
Text1(0).Visible = True
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Combo2.Visible = False
combo3.Visible = False
combo4.Visible = False
End If
SQL = "UPDATE ACCINFO SET STARTINGDATE=#" & Text1(0).Text &
"#,CASE=" & Text1(3).Text & ",TOTALDAYS=" & Text1(4).Text & ",WAGESDAY="
& Text1(5).Text & " WHERE SRNO=" & Combo1.Text & ""
Module1.CON_EXECUTE (SQL)
MsgBox "RECORD RENEWED SUCCESSFULLY", vbInformation, "RENEWED"
Call BALANCE
ERR:
If Not IsDate(Text1(0).Text) Then
MsgBox "WRONG DATE" & vbCrLf & "ENTER DATE CAREFULLY", vbCritical,
"DATE ERROR"
Text1(0).Visible = False
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Combo2.Visible = True
combo3.Visible = True
combo4.Visible = True
'Combo2.Text = Day(Text1(0).Text)
'combo3.Text = Format(Text1(0).Text, "MMMM")
'combo4.Text = Year(Text1(0).Text)
Combo2.SetFocus
Exit Sub
End If
If ERR = 13 Then
MsgBox "ERROR"
End If
End Sub

Private Sub Form_Load()

Module1.OPEN_CONNECTION
SQL = "SELECT srno FROM ACCINFO"
Module1.OPEN_RECORDSET2 REC2, SQL
While Not REC2.EOF
Combo1.AddItem REC2.Fields(0)
REC2.MoveNext
Wend
With combo3
.AddItem "January"
.AddItem "February"
.AddItem "March"
.AddItem "April"
.AddItem "May"
.AddItem "June"
.AddItem "July"
.AddItem "August"
.AddItem "September"
.AddItem "October"
.AddItem "November"
.AddItem "December"
End With
For i = 1 To 31 Step 1
Combo2.AddItem i
Next
For i = 1980 To 2050 Step 1
combo4.AddItem i
Next
End Sub
Sub BALANCE()
On Error GoTo ERR
SQL = "select sum(AMOUNT)FROM ACCENTRY WHERE SRNO=" & Combo1.Text
& ""
SQL1 = "SELECT CASE FROM ACCINFO WHERE SRNO=" & Combo1.Text & ""
Module1.OPEN_RECORDSET2 REC2, SQL1
a = Val(REC2.Fields(0))
REC2.Close
Module1.OPEN_RECORDSET2 REC2, SQL
If REC2.Fields(0) <> False Then
b = Val(REC2.Fields(0))
Label3.Caption = (a - b) & " Rs."
Else
Label3.Caption = a & " Rs."
End If
ERR:
End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

Select Case Index
Case 5
If KeyCode = 13 Then
COMMANDBUtton1_Click
End If
End Select
End Sub

Private Sub Text1_Validate(Index As Integer, Cancel As Boolean)

Dim iserr As Boolean
Dim errdate As Boolean
Dim ISNULL As Boolean
Dim day1 As Date
Select Case Index
Case 3, 4, 5
If Text1(Index).Text <> vbNullString Then
If IsNumeric(Text1(Index)) Then
Else
iserr = True
End If
Else
ISNULL = True
End If
Case 2
 If Not IsDate(Text1(Index).Text) Then
errdate = True
End If
End Select
If iserr = True Then
Cancel = True
MsgBox "Please Enter Numeric Value", vbInformation, "SECURITY"
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index).Text)
End If

If errdate = True Then

Cancel = True
MsgBox "ENTER DATE IN 'DD/MMM/YYYY' FORM", vbInformation,
"SECURITY"
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index).Text)
Else
errdate = False
End If
If ISNULL = True Then
Cancel = True
Text1(Index).SetFocus
MsgBox "Please Enter The Value", vbExclamation, "SECURITY"
End If
End Sub

Private Sub Timer1_Timer()

Static BLN As Boolean
If BLN = True Then
Label13.Visible = True
Else
Label13.Visible = False
End If
BLN = Not BLN

End Sub
 DETAIL.FRM

Public Sub cmdAdd_Click()

On Error GoTo ERR
REC.AddNew
SETLOCKING False
Button False
cmdCancel.Left = 6840
cmdCancel.Top = 6240
Call BLK
lblStatus.Caption = "ADD RECORD"
Text1(0).SetFocus
Text1(2).Visible = False
For i = 0 To 2
Combo1(i).Visible = True
Next
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Label12.Visible = False
Label11.Visible = False

ERR:
End Sub

Private Sub CMDBACK_Click()

Me.Hide
account.Show
Unload Me
End Sub

Private Sub cmdCancel_Click()

On Error Resume Next
SETLOCKING True
Text1(0).Enabled = True
Button True
cmdCancel.Cancel = True
REC.CancelUpdate
'REC.MoveFirst
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
For i = 0 To 2
Combo1(i).Visible = False
Next
Text1(2).Visible = True
SR
cmdAdd.Default = True
Label11.Visible = True
Text2.Visible = True
lblStatus.Caption = ""
End Sub

Private Sub cmdEdit_Click()

On Error GoTo ERR
MsgBox " CAN UPDATE RECORD NOW", vbExclamation, "EDIT"
Text1(0).Enabled = False
SETLOCKING False
Button False
cmdCancel.Left = 6840
cmdCancel.Top = 6240
Text1(2).Visible = False
For i = 0 To 2
Combo1(i).Visible = True
Next
Label8.Visible = True
Label9.Visible = True
Label10.Visible = True
Combo1(0).Text = Day(Text1(2).Text)
Combo1(1).Text = Format(Text1(2).Text, "mmmm")
Combo1(2).Text = Year(Text1(2).Text)
lblStatus.Caption = "EDITING RECORD"
ERR:
If ERR = 13 Then
MsgBox ERR.Description
End If
End Sub
Private Sub cmdFind_Click()
SEARCH.Show
End Sub

Private Sub cmdFirst_Click()

On Error GoTo FERR
REC.MoveFirst
SR
FERR:
End Sub

Private Sub cmdLast_Click()

On Error GoTo LERR
REC.MoveLast
SR
LERR:
End Sub

Private Sub cmdNext_Click()

On Error GoTo NEXTERR
REC.MoveNext
SR
NEXTERR:
If REC.EOF Then
MsgBox "No Further Records", vbInformation, "No Next"
REC.MoveLast
End If
End Sub

Private Sub cmdPrevious_Click()

On Error GoTo prev_err
REC.MovePrevious
SR
prev_err:
If REC.BOF Then
MsgBox "No Previous Rrecords", vbInformation, "MESSAGE"
REC.MoveFirst
End If
End Sub

Private Sub cmdRefresh_Click()

On Error GoTo rERR
REC.Requery
REC2.Requery
rERR:
MsgBox ERR.Description
End Sub

Public Sub cmdSAVE_Click()

On Error GoTo SERR
If Text1(0).Text = vbNullString Then
Text1(0).SetFocus
MsgBox "Please Enter The Value", vbExclamation, "SECURITY"
End If

SQL = "select srno from accinfo"

Module1.OPEN_RECORDSET2 REC2, SQL
While Not REC2.EOF
If Text1(0).Enabled = True Then
If REC2.Fields(0) = Val(Text1(0).Text) Then
MsgBox "Enter Another Serial No." & vbCrLf & "It Would Create Duplicacy",
vbInformation, "DUPLICACY"
Text1(0).SelStart = 0
Text1(0).SelLength = Len(Text1(0).Text)
Text1(0).SetFocus
Exit Sub
End If
Else
End If
REC2.MoveNext
Wend

If REC.EditMode = adEditAdd Then

FILL
MsgBox "record saved", vbExclamation, "SAVE"
SETCOMBO False
Else
FILL
MsgBox "RECORD CHANGED", vbExclamation, "CHANGED"
SETCOMBO False
Text1(0).Enabled = True
End If
REC.UpdateBatch adAffectAll
SR
SETLOCKING True
Button True
Text2.Visible = True
Label11.Visible = True
Set REC = Nothing
SERR:
If Not IsDate(Text1(2).Text) Then
MsgBox "ENTER THE VALID DATE", vbCritical, "INVALID DATE"
End If
If ERR = 13 Then
MsgBox ERR.Description
End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyEscape
cmdClose_Click
 Case vbKeyEnd
cmdLast_Click
Case vbKeyHome
cmdFirst_Click
' Case vbKeyUp, vbKeyPageUp
' If Shift = vbCtrlMask Then
' cmdFirst_Click
' Else
' cmdPrevious_Click
' End If
'Case vbKeyDown, vbKeyPageDown
' If Shift = vbCtrlMask Then
' cmdLast_Click
' Else
' cmdNext_Click
'End If
End Select
End Sub
Private Sub SETLOCKING(BLN As Boolean)
If BLN = True Then
Dim Text1 As TextBox
For Each Text1 In Me.Text1
Text1.Locked = True
Next
Else
For Each Text1 In Me.Text1
Text1.Locked = False
Next
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
cmdClose_Click
End If
End Sub

Private Sub Form_Load()

On Error GoTo ERR

Dim i As Integer
SETLOCKING True
Button True
flag = False
With Combo1(1)
.AddItem "January"
 .AddItem "February"
.AddItem "March"
.AddItem "April"
.AddItem "May"
.AddItem "June"
.AddItem "July"
.AddItem "August"
.AddItem "September"
.AddItem "October"
.AddItem "November"
.AddItem "December"
End With
For i = 1 To 31 Step 1
Combo1(0).AddItem i
Next
For i = 1980 To 2050 Step 1
Combo1(2).AddItem i
Next
For Index = 0 To 2
Combo1(Index).ListIndex = 0
Next
For i = 0 To 2
Combo1(i).Visible = False
Next
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Text1(2).Left = 4200
Text1(2).Top = 2520
CMDBACK.Visible = False
Module1.OPEN_CONNECTION
If SEARCH.BOOL <> True Then
Module1.OPEN_RECORDSET REC, "SELECT * FROM ACCINFO ORDER BY
SRNO"
If Not REC.EOF Then
Call SR
Else
MsgBox "No Records Available", vbInformation, "No Records"
Button False
cmdAdd.Enabled = True
cmdAdd.Visible = True
cmdCancel.Left = 6840
cmdCancel.Top = 6240
cmdClose.Visible = True
lblStatus.Caption = "NO RECORD"
SETLOCKING True
End If
End If
ERR:
If ERR = 80004005 Then
MsgBox ERR.Description
End If
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub

Sub FILL()
Dim D As Date
Dim i As Integer
D = Combo1(0).Text & "/" & Combo1(1).Text & "/" & Combo1(2).Text
Text1(2).Text = Format(D, "DD/MMM/YYYY")
For i = 0 To 5 Step 1
REC.Fields(i) = Trim(Text1(i).Text)
Next
End Sub
Sub SR()
On Error GoTo SERR
For i = 0 To 1 Step 1
Text1(i).Text = REC.Fields(i)
Next
Text1(2).Text = Format(REC.Fields(2), "DD/MMM/YYYY")
For i = 3 To 5 Step 1
Text1(i).Text = REC.Fields(i)
Next
Text1(3).Text = Text1(3).Text & " Rs."
Text1(5).Text = Text1(5).Text & " Rs."
Call BALANCE
SERR:
If ERR = 94 Then
MsgBox ERR.Description
End If
End Sub
Sub BLK()
For i = 0 To 5
Text1(i).Text = vbNullString
Next
Combo1(0).ListIndex = 0
Combo1(1).ListIndex = 0
Combo1(2).ListIndex = 0
lblStatus.Caption = ""
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case Index
Case 0, 3, 4
If Text1(Index).Text <> vbNullString Then
If KeyCode = 13 Then
Text1(Index + 1).SetFocus
End If
End If
Case 1
If Text1(Index).Text <> vbNullString Then
If KeyCode = 13 Then
Combo1(0).SetFocus
End If
End If
Case 5
If KeyCode = 13 Then
cmdSAVE_Click
End If
End Select
End Sub

Private Sub Text1_Validate(Index As Integer, Cancel As Boolean)

Dim iserr As Boolean
Dim errdate As Boolean
Dim ISNULL As Boolean
Dim day1 As Date
Select Case Index
Case 1, 2, 3, 4, 5
If Text1(Index).Text <> vbNullString Then
Select Case Index
Case 0, 3, 4, 5
If IsNumeric(Text1(Index)) Then
Else
iserr = True
End If
End Select
Select Case Index
Case 2
If IsDate(Text1(Index).Text) Then
Else
errdate = True
End If
End Select
Else
 ISNULL = True

End If
If iserr = True Then
Cancel = True
MsgBox "Please Enter Numeric Value", vbInformation, "SECURITY"
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index).Text)
End If

If errdate = True Then

Cancel = True
MsgBox "ENTER DATE IN 'DD/MMM/YYYY' FORM", vbInformation,
"SECURITY"
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index).Text)
Else
errdate = False
End If
If ISNULL = True Then
Cancel = True
Text1(Index).SetFocus
MsgBox "Please Enter The Value", vbExclamation, "SECURITY"
End If
End Select
End Sub
Private Sub SETCOMBO(BLN As Boolean)
Label8.Visible = BLN
Label9.Visible = BLN
Label10.Visible = BLN
For i = 0 To 2
Combo1(i).Visible = BLN
Next
Text1(2).Visible = Not BLN
cmdAdd.Default = True
End Sub
Sub BALANCE()
On Error GoTo ERR
Label12.Visible = True
SQL = "select sum(AMOUNT)FROM ACCENTRY WHERE SRNO=" & Text1(0).Text
& ""
SQL1 = "SELECT CASE FROM ACCINFO WHERE SRNO=" & Text1(0).Text & ""
Module1.OPEN_RECORDSET2 REC2, SQL1
a = Val(REC2.Fields(0))
REC2.Close
Module1.OPEN_RECORDSET2 REC2, SQL
If REC2.Fields(0) <> False Then
b = Val(REC2.Fields(0))
Label12.Caption = (a - b) & " Rs."
Else
Label12.Caption = a & " Rs."
End If
ERR:
End Sub
 DETAILSCOPY.FRM

Private Sub COMMANDBUtton1_Click()

account.Show
Unload Me
End Sub

Private Sub Form_Load()

SQL = "SELECT * FROM ACCINFO WHERE SRNO=" & account.Text1(0).Text & ""
Module1.OPEN_CONNECTION
Module1.OPEN_RECORDSET REC, SQL
If Not REC.EOF Then
Call SR
Call BALANCE
Else
MsgBox "NO RECORD", vbCritical, "MESSAGE"
End If
End Sub
Sub SR()
On Error GoTo SERR
For i = 0 To 1 Step 1
Text1(i).Text = REC.Fields(i)
Next
Text1(2).Text = Format(REC.Fields(2), "DD/MMM/YYYY")
For i = 3 To 5 Step 1
Text1(i).Text = REC.Fields(i)
Next
Text1(3).Text = Text1(3).Text & " Rs."
Text1(5).Text = Text1(5).Text & " Rs."
SERR:
If ERR = 94 Then
MsgBox ERR.Description
End If
End Sub
Sub BALANCE()
On Error GoTo ERR
Label12.Visible = True
SQL = "select sum(AMOUNT)FROM ACCENTRY WHERE SRNO=" & Text1(0).Text
& ""
SQL1 = "SELECT CASE FROM ACCINFO WHERE SRNO=" & Text1(0).Text & ""
Module1.OPEN_RECORDSET2 REC2, SQL1
a = Val(REC2.Fields(0))
Module1.OPEN_RECORDSET2 REC2, SQL
If REC2.Fields(0) <> False Then
b = Val(REC2.Fields(0))
Label12.Caption = (a - b) & " Rs."
Else
Label12.Caption = a & " Rs."
End If
ERR:
End Sub
 EDIT.FRM

Dim col As Collection

Private Sub CMDEDITOK_Click()
Module1.OPEN_RECORDSET REC, "SELECT * FROM ACCENTRY"
SQL = "UPDATE ACCENTRY SET AMOUNT=" & Text2(4).Text & " WHERE
SRNO=" & Text2(0).Text & "AND TRANJECTIONNO=" & Text2(2).Text & " "
Module1.CON_EXECUTE (SQL)
MsgBox "RECORD UPDATED", vbInformation, "CHANGE"
End Sub

Private Sub CMDOK1_Click()

If Option2.Value = True Then
SR
Label1.Caption = "ENTER THE SR NO."
ElseIf Option1.Value = True Then
SR
Label1.Caption = "ENTER THE NAME "
Else
MsgBox "CHOOSE ANy OPTION", vbCritical
End If
End Sub

Private Sub COMMANDBUtton1_Click()

Module1.OPEN_CONNECTION
If Text1.Text <> vbNullString Then
If Option1.Value = True Then
SQL1 = "select * from accentry where name ='" & Text1.Text & "' ORDER BY
TRANJECTIONNO"
Module1.OPEN_RECORDSET REC, SQL1
ElseIf Option2.Value = True Then
SQL = "select * from accentry where srno = " & Text1.Text & " ORDER BY
TRANJECTIONNO"
Module1.OPEN_RECORDSET REC, SQL
End If
If Not REC.EOF Then
Set MSHFlexGrid1.DataSource = REC
Else
MsgBox "Record Not Available", vbExclamation, "no record"
MSHFlexGrid1.ClearStructure
MSHFlexGrid1.Rows = 2
MSHFlexGrid1.Cols = 2
End If
Else
MSHFlexGrid1.ClearStructure
MSHFlexGrid1.Rows = 2
MSHFlexGrid1.Cols = 2
End If

End Sub

Private Sub Form_Load()

Label1.Visible = False
Text1.Visible = False
CommandButton1.Visible = False
Shape2.Visible = False
Set col = New Collection
col.Add Text2(0).Text
col.Add Text2(1).Text
col.Add Text2(2).Text
col.Add Text2(3).Text
col.Add Text2(4).Text
End Sub
Sub SR()
Label1.Visible = True
Text1.Visible = True
Shape2.Visible = True
CommandButton1.Visible = True
Text1.SetFocus
End Sub

Private Sub MSHFlexGrid1_DblClick()

If MsgBox("Do U Want To Edit The Record", vbYesNo, "EDIT") = vbYes Then
MSHFlexGrid1.col = 0
Text2(0).Text = MSHFlexGrid1.Text
MSHFlexGrid1.col = 1
Text2(1).Text = MSHFlexGrid1.Text
MSHFlexGrid1.col = 2
Text2(2).Text = MSHFlexGrid1.Text
MSHFlexGrid1.col = 3
Text2(3).Text = Format(MSHFlexGrid1.Text, "dd/mmm/yyyy")
MSHFlexGrid1.col = 4
Text2(4).Text = Format(MSHFlexGrid1.Text, ".00 ")
Else
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then
COMMANDBUtton1_Click
End If
End Sub
 FRMSPLASH.FRM

Option Explicit

Private Sub Form_Click()

Unload Me
password.Show
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Unload Me
password.Show
End Sub

Private Sub Frame1_Click()

Unload Me
password.Show
End Sub

Private Sub imgLogo_Click()

Unload Me
password.Show
End Sub

Private Sub Timer1_Timer()

Unload Me
password.Show
End Sub
 MANUAL.FRM

Private Sub cmdClose_Click()

Unload Me
End Sub

Private Sub cmddate_Click()

DATE.Show
Module1.date1 = True
End Sub

Private Sub cmddate_MouseMove(Button As Integer, Shift As Integer, X As Single, Y

As Single)
cmddate.ForeColor = vbRed
Shape4.Visible = True
End Sub

Private Sub cmdnextrecord_Click()

REC.AddNew
cmdsave.Enabled = True
Combo1.ListIndex = 0
Text1(1).Text = vbNullString
Text1(2).Text = vbNullString
Text1(3).Text = vbNullString
Text1(4).Text = vbNullString
cmdnextrecord.Enabled = False
Combo1.SetFocus
End Sub

Private Sub cmdSAVE_Click()

On Error GoTo ERR
If Combo1.Text = vbNullString Then
MsgBox "Select A Value", vbInformation, "SELECT A VALUE"
Combo1.SetFocus
Else
End If
If Text1(3).Text = vbNullString Then
MsgBox "Enter The Date" & vbCrLf & "It Cannot Contain Null Value", vbExclamation
+ vbOKOnly, "SECURITY"
Text1(3).SetFocus
Exit Sub
End If
If Text1(4).Text <> vbNullString Then
If Not IsNumeric(Text1(4).Text) Then
MsgBox "Enter Numeric Value", vbExclamation + vbOKOnly, "SECURITY"
Text1(4).SelStart = 0
Text1(4).SelLength = Len(Text1(4).Text)
Text1(4).SetFocus
Exit Sub
End If
Else
MsgBox "Enter The Value", vbExclamation + vbOKOnly, "SECURITY"
Text1(4).SetFocus
Exit Sub
End If
If REC.EditMode = adEditAdd Then
Call FILL
REC.UpdateBatch adAffectAll
MsgBox "Record Saved", vbInformation, "SAVE"
Else
FILL
REC.UpdateBatch adAffectAll
MsgBox "Record Changed", vbInformation, "EDIT"
End If
SR
cmdsave.Enabled = False
cmdnextrecord.Default = True
cmdnextrecord.Enabled = True
ERR:
If ERR = 3704 Then
MsgBox " Please Press The Start Button" & vbCrLf & "For Continuing Saving",
vbInformation, "ERROR"
Text1(3).Text = vbNullString
Text1(4).Text = vbNullString
CMDSTART.Visible = True
CMDSTART.Default = True
End If
End Sub

Private Sub cmdview_Click()

Form6.Show
Form6.CMDBACK.Visible = False
Me.Hide
Unload Me
End Sub
Private Sub cmdview_MouseMove(Button As Integer, Shift As Integer, X As Single, Y
As Single)
cmdview.ForeColor = vbRed
Shape1.Visible = True
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

If Combo1.Text <> vbNullString Then
If KeyCode = 13 Then
Text1(1).SetFocus
End If
Else
MsgBox "Select A Value", vbInformation, "SELECT A VALUE"
End If
End Sub

Private Sub Form_Load()

Module1.OPEN_CONNECTION
Module1.OPEN_RECORDSET REC2, "SELECT SRNO FROM ACCINFO"
While Not REC2.EOF
Combo1.AddItem REC2.Fields(0)
REC2.MoveNext
Wend
Shape1.Visible = False
Shape4.Visible = False
Module1.OPEN_RECORDSET REC, "select * from accentry"
REC.AddNew
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

Single)
Shape1.Visible = False
Shape4.Visible = False
cmdview.ForeColor = vbBlue
cmddate.ForeColor = vbBlue
End Sub

Private Sub Text1_GotFocus(Index As Integer)

'On Error GoTo ERR
Select Case Index
Case 1
Module1.OPEN_RECORDSET2 REC2, "select name from accinfo where srno=" &
Combo1.Text & ""
Text1(Index).Text = REC2.Fields(0)
Module1.OPEN_RECORDSET2 REC2, "select max(tranjectionno) from accentry where
srno=" & Combo1.Text & ""
Text1(2).Text = 1
Text1(2).SelStart = Len(Text1(2).Text)
Text1(2).SetFocus
If REC2.Fields(0) <> 0 Then
Text1(2).Text = (REC2.Fields(0) + 1)
Text1(2).SelStart = Len(Text1(2).Text)
Text1(2).SetFocus
End If
End Select
'ERR:
'If ERR = 94 Then
'Text1(2).Text = 1
'End If
End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

Select Case Index
Case 1, 2
If KeyCode = 13 Then
Text1(Index + 1).SetFocus
End If
Case 3
If KeyCode = 13 Then
MsgBox "Enter The Date", vbCritical, "Click The Date Label"
Text1(Index).SetFocus
End If
Case 4
If KeyCode = 13 Then
cmdSAVE_Click
End If
End Select
End Sub

Private Sub Text1_LostFocus(Index As Integer)

Select Case Index
Case 0
Module1.OPEN_RECORDSET2 REC2, "select name from accinfo where srno=" &
Combo1.Text & ""
Text1(Index).Text = REC2.Fields(0)
Module1.OPEN_RECORDSET2 REC2, "select max(tranjectionno) from accentry where
srno=" & Combo1.Text & ""
If REC2.Fields(0) <> 0 Then
Text1(2).Text = (REC2.Fields(0) + 1)
Text1(2).SelStart = Len(Text1(2).Text)
Text1(2).SetFocus
End If
End Select
End Sub

Sub SR()
Combo1.Text = REC.Fields(0)
For i = 1 To 4 Step 1
Text1(i).Text = REC.Fields(i)
Next
Text1(3).Text = Format(REC.Fields(3), "DD/MMM/YYYY")
End Sub
Sub FILL()
REC!srno = Combo1.Text
REC!Name = Text1(1).Text
REC!TRANJECTIONNO = Text1(2).Text
REC!DATE = Text1(3).Text
REC!amount = Text1(4).Text
End Sub
 MDIFORM1.FRM

Private Sub MDIForm_Unload(Cancel As Integer)

End
End Sub

Private Sub mnuadd_Click()

details.Show
'Button False
details.cmdAdd_Click
End Sub

Private Sub MNUCALCULATOR_Click()

Shell ("C:\WINDOWS\SYSTEM32\CALC.EXE")
End Sub

Private Sub mnudelete_Click()

DELETEFORM.Show
End Sub

Private Sub mnuexit_Click()

If MsgBox("DO U WANT TO EXIT", vbYesNo, "EXIT") = vbYes Then
End
End If
End Sub

Private Sub mnufind_Click()

SEARCH.Show
End Sub

Private Sub mnuhelptopis_Click()

helpfrm.Show

End Sub

Private Sub MNUNOTEPAD_Click()

Shell ("C:\WINDOWS\SYSTEM32\NOTEPAD.EXE")
End Sub

Private Sub MNUQUERY_Click()

QUERY.Show
End Sub

Private Sub mnureport_Click()

REPORT.Show
End Sub

Private Sub mnutranjection_Click()

Option1.Show
End Sub

Private Sub MNUVIEW_Click()

details.Show
Button True

End Sub

Private Sub MNUVIEWTRANJECTION_Click()

Form6.Show
Form6.CMDBACK.Visible = False
End Sub
 OPTION1.FRM

Private Sub CommandButton2_Click()

If Option1.Value = True Then
account.Show
ElseIf Option3.Value = True Then
MANUAL.Show
CommandButton2.Default = True
End If
Me.Hide
Unload Me
End Sub
 PASSWORD.FRM

Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub CMDOK_Click()

On Error Resume Next
Dim SQL As String
If Len(Text1.Text) = 0 Then
MsgBox "PLEASE ENTER THE NAME", vbDefaultButton2, "Reminder"
Text1.SetFocus
End If
SQL = "SELECT * FROM PASSWORD1"
Module1.OPEN_RECORDSET REC, SQL
Dim PASSWORD_STRING, NAME_STRING As String
NAME_STRING = UCase(Trim(Text1.Text))
PASSWORD_STRING = UCase(Trim(Text2.Text))
REC.MoveFirst
If NAME_STRING <> REC!USER_NAME Then
If Len(Text2.Text) <> 0 Then
If PASSWORD_STRING <> REC!password Then
b=b+1
Module1.a = 2
Form2.Enabled = True
Form2.Show
Else
MsgBox "INVALID USER", vbExclamation, "ACCESS DENIED"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
Else
MsgBox "ENTER THE PASSWORD", vbDefaultButton1, "PASSWORD"
Text2.SetFocus
End If
Else
b=b+1
Module1.a = 2
Form2.Enabled = True
Form2.Show
End If
If NAME_STRING = REC!USER_NAME Then
If PASSWORD_STRING = REC!password Then
Module1.a = 1
Form2.Enabled = True
Form2.Show
End If
End If
End Sub

Private Sub CommandButton4_Click()

End Sub

Private Sub CommandButton5_Click()

End Sub

Private Sub Form_Load()

Text1.Text = ""
Text2.Text = ""
'Text1.SetFocus
Module1.OPEN_CONNECTION
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If Text1.Text <> vbNullString Then
If KeyCode = 13 Then
Text2.SetFocus
End If
End If
End Sub

'Private Sub Text2_LostFocus()

'If Len(Text2.Text) = 0 Then
'MsgBox "PLEASE ENTER THE NAME", vbCritical, "Reminder"
'Text2.SetFocus
'End If
'End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
'CMDOK.Default = True
CMDOK_Click
End If
End Sub
 QUERY.FRM

Dim flag As Boolean

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
COMMANDBUtton1_Click
End If
End Sub

Private Sub COMMANDBUtton1_Click()

On Error GoTo ERR
If List1.Text = "Info. Of An Client" Then
If Combo1.Text <> vbNullString Then
INVISIBLE True
Timer1.Enabled = False
Timer2.Enabled = True
Label2.Visible = True
Text1.Visible = True
Shape2.Visible = True
Module1.OPEN_RECORDSET REC, "select name from accinfo where srno=" &
Combo1.Text & ""
Label8.Caption = "NAME OF CLIENT:"
Text4.Text = UCase(REC.Fields(0))
REC.Close
Set REC = Nothing
Label6.Caption = "BALANCE AMOUNT:"
Module1.OPEN_RECORDSET2 REC2, "SELECT
COUNT(TRANJECTIONNO)FROM ACCENTRY WHERE SRNO=" & Combo1.Text
& ""
Text2.Text = REC2.Fields(0)
REC2.Close
Set REC2 = Nothing
Module1.OPEN_RECORDSET REC, "SELECT CASE FROM ACCINFO WHERE
SRNO=" & Combo1.Text & ""
Module1.OPEN_RECORDSET2 REC2, "SELECT SUM(AMOUNT)FROM
ACCENTRY WHERE SRNO=" & Combo1.Text & ""
Label2.Caption = "TOTAL CASE AMOUNT:"
Text1.Text = REC.Fields(0) & " Rs."
Label5.Caption = "TOTAL TRANSACTION'S :"
 Text3.Text = REC.Fields(0) - REC2.Fields(0)
Text3.Text = Text3.Text & " Rs."
Text3.SetFocus
Else:
MsgBox "CHOOSE SERIAL NO.", vbCritical, "message"
End If
REC.Close
Set REC = Nothing
REC2.Close
Set REC2 = Nothing

ElseIf List1.Text = "Transaction's On Any Date" Then

Dim D As String
If Combo2.Text <> "" And combo3.Text <> "" And combo4.Text <> "" Then
D = (combo3.Text & "-" & Combo2.Text & "-" & combo4.Text)
D = Format(D, "DD-MMM-YY")
INVISIBLE True
Timer1.Enabled = True
Timer2.Enabled = False
Label2.Visible = True
Text1.Visible = True
Label6.Visible = False
Text3.Visible = False
Shape2.Visible = True
Label8.Caption = "Date:"
Text4.Text = D
SQL = "select date from accentry"
Module1.OPEN_RECORDSET REC, SQL
While Not REC.EOF
a = REC.Fields(0)
a = Format(a, "dd-mmm-yy")
If StrComp(D, a) = 0 Then
SQL1 = "select count(*) from accentry where date=#" & D & "#"
Module1.OPEN_RECORDSET2 REC2, SQL1
If REC2.Fields(0) <> False Then
Text1.Text = REC2.Fields(0)
Label2.Caption = "Clients Who Gave Amount:"
SQL1 = "select sum(amount)from accentry where date=#" & D & "# "
Module1.OPEN_RECORDSET2 REC2, SQL1
If REC2.Fields(0) <> False Then
Text2.Text = REC2.Fields(0)
Text2.Text = Text2.Text & " Rs."
Label5.Caption = "Total Amount:"
flag = True
Exit Sub
End If
End If
Else
flag = False
Label2.Caption = ""
End If
REC.MoveNext
Wend
If flag = False Then
Label2.Visible = False
Label5.Visible = False
Label6.Visible = False
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
MsgBox "No Transaction On This Date", vbCritical, "message"
Exit Sub
End If
Else
MsgBox "CHOOSE DATE", vbCritical, "MESSAGE"
End If
End If
ERR:
If ERR = 94 Then
Text3.Text = REC.Fields(0) & " Rs."
Text3.SetFocus
End If
End Sub

Private Sub Form_Load()

Module1.OPEN_CONNECTION
Module1.OPEN_RECORDSET REC, "select srno from accinfo"
While Not REC.EOF
Combo1.AddItem REC.Fields(0)
REC.MoveNext
Wend
REC.Close
With List1
.AddItem "Total No. Of Clients"
.AddItem "Total Balance Amount"
.AddItem "Total Money Invested"
.AddItem "Info. Of An Client"
.AddItem "Transaction's On Any Date"
For i = 1 To 31
Combo2.AddItem i
Next
For i = 1 To 12
combo3.AddItem i
Next
For i = 1980 To 2050
combo4.AddItem i
Next
End With
End Sub

Private Sub List1_DblClick()

Module1.OPEN_CONNECTION
If List1.Text = "Total No. Of Clients" Then
SR False
INVISIBLE False
sr1 False
Label2.Caption = "TOTAL NO. OF CLIENTS ARE "
Module1.OPEN_RECORDSET REC, "SELECT COUNT(*) FROM ACCINFO"
Text1.Text = REC.Fields(0)

ElseIf List1.Text = "Total Balance Amount" Then

SR False
INVISIBLE False
sr1 False
Label2.Caption = "TOTAL BALANCE AMOUNT:-"
Module1.OPEN_RECORDSET REC, "SELECT SUM(CASE) FROM ACCINFO"
Module1.OPEN_RECORDSET2 REC2, "SELECT SUM(AMOUNT) FROM
ACCENTRY"
Text1.Text = (REC.Fields(0) - REC2.Fields(0)) & " Rs."

ElseIf List1.Text = "Total Money Invested" Then

INVISIBLE False
SR False
sr1 False
Label2.Caption = "TOTAL MONEY INVESTED:-"
Module1.OPEN_RECORDSET REC, "select sum(case) from accinfo"
Text1.Text = (REC.Fields(0)) & " Rs."

ElseIf List1.Text = "Info. Of An Client" Then

Timer2.Enabled = True
Timer1.Enabled = False
Call show1
SR False
sr1 True
Call visible1

Combo1.ListIndex = 0
 ElseIf List1.Text = "Transaction's On Any Date" Then
Timer1.Enabled = True
Timer2.Enabled = False
Call show1
sr1 False
SR True
visible1
Combo2.ListIndex = 0
combo3.ListIndex = 0
combo4.ListIndex = 0

End If
End Sub

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then
List1_DblClick
End If
End Sub
Sub SR(ByVal BLN As Boolean)
Label10.Visible = BLN
Label9.Visible = BLN
Label7.Visible = BLN
Combo2.Visible = BLN
combo3.Visible = BLN
combo4.Visible = BLN
CommandButton1.Visible = BLN
Shape3.Visible = BLN
End Sub

Sub sr1(ByVal BLN As Boolean)

Shape3.Visible = BLN
Label3.Visible = BLN
Combo1.Visible = BLN
CommandButton1.Visible = BLN
End Sub

Private Sub Timer2_Timer()

Static BLN As Boolean
Label4.Visible = True
If BLN = False Then
Image1.Visible = True
Label4.Caption = "Select The Serial No."
Else
Image1.Visible = False
Label4.Caption = ""
End If
BLN = Not BLN
End Sub
Sub INVISIBLE(ByVal BLN As Boolean)
Label5.Visible = BLN
Label6.Visible = BLN
Label8.Visible = BLN
Text2.Visible = BLN
Text3.Visible = BLN
Text4.Visible = BLN
Timer1.Enabled = BLN
Timer2.Enabled = BLN
Label2.Visible = Not BLN
Text1.Visible = Not BLN
Label4.Visible = BLN
Image1.Visible = BLN
Shape2.Visible = Not BLN
End Sub

Private Sub Timer1_Timer()

Static BLN As Boolean
Label4.Visible = True
If BLN = False Then
Label4.Caption = "Enter The Date"
Image1.Visible = True
Else
Label4.Caption = ""
Image1.Visible = False
End If
BLN = Not BLN
End Sub
Sub show1()
Label5.Visible = False
Text2.Visible = False
End Sub
Sub visible1()
Label8.Visible = False
Label2.Visible = False
Label5.Visible = False
Label6.Visible = False
Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
End Sub
 REPORT.FRM

Private Sub COMMANDBUtton1_Click()

If Option2.Value = True Then
Module1.OPEN_RECORDSET2 REC2, "select tranjectionno,date,AMOUNT from
accentry where srno=" & Val(Text1.Text) & " order by tranjectionno"
If Not REC2.EOF Then
Set DataEnvironment1.rsCommand1.DataSource = REC2
DataReport1.Show
Else
MsgBox "NO RECORD AVAILABLE", vbInformation, "NOT EXIST"
End If
REC2.Close
ElseIf Option5.Value = True Then
Module1.OPEN_RECORDSET2 REC2, "SELECT
SRNO,NAME,TRANJECTIONNO,AMOUNT FROM ACCENTRY WHERE DATE=#"
& Combo1.Text & "# ORDER BY SRNO"
Set DataEnvironment1.rsCommand2.DataSource = REC2
DataReport2.Show
End If
End Sub

Private Sub CommandButton2_Click()

If Option2.Value = True Then
SERIAL True
Text1.SetFocus
ElseIf Option5.Value = True Then
SERIAL False
Combo1.SetFocus
ElseIf Option3.Value = True Then
SERIAL False
Combo1.Visible = False
Label2.Visible = False
CommandButton1.Visible = False
DataReport3.Show
Else
MsgBox "CHOOSE OPTION", vbCritical, "MESSAGE"
End If
End Sub
Sub SERIAL(ByVal BLN As Boolean)
Label1.Visible = BLN
Text1.Visible = BLN
CommandButton1.Visible = True
Combo1.Visible = Not BLN
Label2.Visible = Not BLN

End Sub

Private Sub Form_Load()

Module1.OPEN_CONNECTION
Module1.OPEN_RECORDSET REC, "SELECT distinct date FROM ACCentry order by
date"
While Not REC.EOF
Combo1.AddItem Format(REC.Fields(0), "dd/mmm/yy")
REC.MoveNext
Wend
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then
COMMANDBUtton1_Click
End If
End Sub
 SEARCH.FRM

Public BOOL As Boolean

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdFind_Click()

If optsr.Value = True Then
If txtCode.Text <> vbNullString Then
If IsNumeric(txtCode.Text) Then
SQL = "select * from accinfo where SRNO=" & txtCode.Text & ""
Else
MsgBox ("Enter Numeric Value"), vbCritical, "MESSAGE"
txtCode.Text = ""
txtCode.SetFocus
End If
Else
MsgBox ("Cannot Enter Null Value"), vbCritical, "MESSAGE"
End If
ElseIf optname.Value = True Then
If txtname.Text <> vbNullString Then
SQL = "select * from accinfo where name='" & txtname.Text & "'"
Else
MsgBox ("Cannot Enter Null Value"), vbCritical, "MESSAGE"
txtname.Text = ""
txtname.SetFocus
End If
End If
Module1.OPEN_CONNECTION
Module1.OPEN_RECORDSET REC, SQL
If Not REC.EOF Then
details.Show
details.SR
Else
MsgBox "Record Not Exist", vbCritical, "MESSAGE"
End If
Unload Me
End Sub

Private Sub Form_Load()

BOOL = True
End Sub

Private Sub Form_Unload(Cancel As Integer)

BOOL = False
End Sub

Private Sub optname_Click()

txtname.Enabled = True
txtname.SetFocus
End Sub

Private Sub optsr_Click()

txtCode.Enabled = True
txtCode.SetFocus
End Sub
 Module1.bas

Public a, b As Integer
Public date1 As Boolean
Dim CON As Connection
Public REC2 As Recordset
Public rec1 As Recordset
Public REC As Recordset

Function OPEN_CONNECTION()
Set CON = New ADODB.Connection
'CON.Open "ACCOUNTS"
CON.Open "PROVIDER=Microsoft.Jet.Oledb.4.0;Data Source=" & _
App.Path & "\accounts.mdb"
End Function
Function OPEN_RECORDSET(REC As Recordset, ByVal SQL_STRING As String) As
Recordset
Set REC = New ADODB.Recordset
REC.Open SQL_STRING, CON, adOpenKeyset, adLockOptimistic
Set OPEN_RECORDSET = REC
End Function
Function CON_EXECUTE(ByVal SQL_STRING As String)
CON.Execute (SQL_STRING)
End Function
Function OPEN_RECORDSET2(REC2 As Recordset, ByVal SQL_STRING As String)
As Recordset
Set REC2 = New ADODB.Recordset
REC2.Open SQL_STRING, CON, adOpenKeyset, adLockOptimistic
Set OPEN_RECORDSET2 = REC2
End Function
 Module2.Bas
Public Sub Button(BLN As Boolean)
If BLN = False Then
details.cmdCancel.Left = 5640
details.cmdCancel.Top = 5640
End If
With details
.cmdEdit.Visible = BLN
.cmdAdd.Visible = BLN
.cmdsave.Visible = Not BLN
.cmdNext.Enabled = BLN
.cmdPrevious.Enabled = BLN
.cmdLast.Enabled = BLN
.cmdFirst.Enabled = BLN
.cmdClose.Visible = BLN
.cmdCancel.Visible = Not BLN
.cmdRefresh.Visible = BLN
.cmdFind.Visible = BLN
End With

End Sub
Report1
Report2
 ACKNOWLEDGEMENT

The formal acknowledgement will hardly be sufficient in expressing

our deep sense of gratitude towards the almighty GOD who helped
me to accomplish this project.

We are grateful to our project guide Mr. Hitesh Juneja for her
timely help and for explaining me all the details of the project and
all kind of help provided during the course of my project. We owe
our sincere gratitude towards Mr. Mohan Lal (H.O.D) who co-
operated us. His sound hold on matters related to this project has
helped me tremendously to make the project more suitable for real
time operations.
We would also like to thank our parents and our friends for their
help and useful suggestions through out our course of studies.

We are thankful to the entire staff of Comp./IT Deptt, For their

convenience help and guidance.
Finally, our special expression of gratitude to the almighty for loving
mercies, protection, guidance and blessings.

Ms Hitesh Juneja Mr Mohan Lal

Project Guide Project Incharge
Lecturer H.O.D
Computer Dept Computer Dept
G.P.Uttawar G.P. Uttawar
 GOVT. POLYTECHNIC UTTAWAR, MEWAT

CERTIFICATE

This is to certify that the following student:

Satyawan Singh (041408054)
of final year(6th semester) Computer Engg. has successfully
completed a major project on “Finance Management”
under our supervision and guidance. This project has been
completed satisfactorily.

Ms Hitesh Juneja Mr Mohan Lal

Project Guide Project Incharge
Lecturer H.O.D
Computer Dept Computer Dept
G.P.Uttawar G.P.Uttawar
 Introduction To Project

This project is related to finance Company. This company finance to

their client. And client have to pay the finance money back in a limited

period with interest. He has to pay back money daily. In future we can

create new account or we can edit or delete a account of our client. If

the client have lend the money and money is right now not refund then

we are not able to delete the record. We can also get the full report of

our client by his personal information or how much he has paid to us or

how much he has to pay.

 FEASIBILTY STUDY
The first step in the Software Development Life Cycle (SDLC) is

the preliminary investigation to determine the feasibility of the

system. The purpose of the preliminary investigation is to

evaluate project requests. It is not a design study nor does it

include the collection of details to describe the business system

in all aspect. Rather it is the collecting of the information that

helps committee members to evaluate the merits of the project

request and make an informed judgment about the feasibility of

the proposed project.

The preliminary investigation should accomplish the

following objectives.

 Clarify and understand the project request.

 Determine the size of the project.

 Assess costs and benefits of alternative approaches.

 Determine the technical and operational feasibility of

alternative approaches.
  Report the findings to management; with

recommendations outlining the acceptance or rejection

of the proposal.

The feasibility study helps in checking the feasibility of the software

under three major perspectives.

 Technical Feasibility

 Economical Feasibility

 Operational Feasibility

1. Technical Feasibility Study: The technical issues raised

during the technical feasibility analysis are:

i. Does the necessary technology exist to do what is

suggested?

ii. Does the proposal equipment have the technical

capacity to hold the data required to use the new

system?

iii. Will the proposed system & components provide

adequate responses to inquiries, regardless of the

number or locations of users?

iv. Can the system be expanded?

 As the software is very much economically feasible it is really

important for it to be technically sound. The software is build using:

1) MS ACCESS as Back End- MS ACCESS takes care of the

following:

 Updating the database

 Retrieving information from the database.

 Accepting query language statements

 Enforcing security specifications

 Enforcing data integrity specifications

 Enforcing transaction consistency

 Managing data sharing

 Optimizing queries

 Managing system catalogs

2) VB as Front End- VB is a language that allows us to build

and control Forms easily.

Both the above Softwares used in our Project are the latest &

best for Window Application Development. Besides this when the

Client Logins in our Website, user authorization is checked on

each page.

ECONOMICAL FEASIBILTY STUDY: Among the most important

information contained in feasibility study is Cost Benefit Analysis

and assessment of the economic justification for a computer

based system project. Cost Benefit Analysis delineates costs for

the project development and weighs them against tangible and

intangible benefits of a system. Cost Benefits Analysis is

complicated by the criteria that vary with the characteristics of the

system to be developed, the relative size of the project and the

expected return on investment desired as part of company’s

strategic plan. In addition, many benefits derived from a

computer-based system are intangible (e.g. better design quality

through iterative optimization, increased customer satisfaction

through programmable control etc.)

Our Project is Economicaly Feasibile both for the

developer of the Website & the user of the Website because

the Customer who places the order of the Books online, gets

the Books at cheap rate as compared to when purchased from

 bookstore because the middlemen between the producer & the

customer is eliminated. In the same way it is profitable for the

Developers of the website because they get Commission from

the dealer who place their books on the website for sale.

3. Operational Feasibility Study: A proposed system is

beneficial only if it can be turned into an information system that

will meet the operational requirements of an organization. A

system often fails if it does not fit within existing operations and

if users resist the change.

Important issues a systems developer must look into are:

 Will the new system be used if implemented in an

organization?

 Are there major barriers to implementation or is

proposed system accepted without destructive

resistance?

Our project is operationally feasible since the website design is

kept simple keeping in mind the users i.e orders can be placed

easily by filling & selecting information. No special trainingis

required to operate the Website. Oredrs can be placed easily by

following the given instructions on the Website. Thus the website

serves the purpose of freeing the end user from the extra burden

of finding a particular book in one store or the other. One can

easily search whether seats for required route are available or

not & then can place orders

 1. S0FTWARE DEVELOPMENT LIFE CYCLE

Every software development consists several phases, have certain

predefined works and at the end of each phase document is

prepared. This phase is based on certain Software Development

Model.

SOFTWARE DEVELOPMENT MODELS

Software engineering is a discipline that integrates process,

methods, and tools for the development of computer software. To

solve actual problems in an industry setting, software engineer or

a team of software engineers must incorporate a development

strategy that encompasses, methods, and tools. This strategy is

often referred to as a process model or a software-engineering

paradigm.

A number of different process models for the software engineering

have been proposed, each exhibiting strengths and weaknesses,

but all having a series of generic phases in common. Some of the

commonly used software process models are:

 The linear sequential model

 The prototyping model

 The RAD model

 The incremental model

 The spiral model

A particular process model for software engineering is chosen on

the nature of the project and the application at hand, the methods

and the tools to be used, and the controls are required.

All software development can be characterized as a problem-

solving loop in which four distinct stages are encountered:

 Status Quo

 Problem Definition

 Technical Development

 Solution Integration

2.1.2 SOFTWARE REQUIREMENT ANALYSIS

The requirements gathering process is intensified and focused

specifically on software. To understand the nature of the

program(s) to be built, the software engineer (“analyst”) must

understand the information domain for the software, as well as

required function, behavior, performance, and interfacing.

Requirements for the both the system and the software are

documented and reviewed with the customer.

DESIGN:

Software design is actually a multi-step process that focuses on

four distinct attributes of a program: data structures, software

architecture, interface representations, and procedural (algorithm)

detail. The design process translates requirement into a

representation of the software that can be assessed for quality

before code generation begins. Like requirements, the design is

documented and becomes part of the software configuration.

CODE GENERATION

The design must be translated in to a machine-readable form. The

testing process focuses on the logical internals of the software,

assuring that all statements have been tested and on the

functional externals that is, conducting tests to uncover errors and

ensure that defined inputs will produce actual results that agree

with required results.

TESTING

Once code has been generated, program testing begins. The

testing process focuses on the logical internals of the software,

 assuring that all statements have been tested and on the

functional externals that is, conducting tests to uncover errors and

ensure that defined inputs will produce actual results that agree

with required results.

MAINTENANCE:

Software will undoubtedly undergo change after it is delivered to

the customer (A possible exception is embedded

software).Change will occur because errors have been

encountered, because the software must be adapted to

accommodate change in its external environment (e.g. A change

required because of a new operating system or peripheral device),

or because the customer requires functional or performance

enhancements. Software maintenance reapplies each of the

preceding phases to an existing program rather than a new one.

SOFTWARE
ENTRY CRITERIA DEVELOPMENT EXIT CRITERIA
&
TESTING

2.1.3 DEVELOPMENT PROCESS PHASES

 Project Startup.

 Requirement Analysis.
  High Level Design.

 Low Level Design.

 Coding.

 System & Integration Testing.

 System Acceptance Testing.

 Release of Product.

 Project Windup.

 Software Warranty Support Maintenance.

Review Documents prepared in Software Development

 Product Feasibility Reviews (PFR).

 Software Requirement Review (SRR).

 Preliminary Design Review (PDR).

 Source Code Review (SCR).

 Acceptance Test Review (ATR).

 Product Release Review (PRR).

 Product Post-Mortem (PPM).

2.1.4 PROJECT STARTUP

A complete understanding of software requirements is essential to

the success of a software development effort. No matter how well

designed or well coded, a poorly analyzed and specified program will

disappoint the user and bring grief to the developer.

The requirement analysis task is a process of discovery, refinement,

modeling, and specification. The software scope, initially established

in the system- engineering step and refined during software project

planning, is refined in detail. Models of the required data, information

and control flow, and operational behavior are created. Alternative

solutions are allocated to various software elements.

Actually, requirement’s analysis is a software-engineering task that

bridges the gap between system-level software allocation and

software designs as shown in figure below:

SOFTWARE SOFTWARE
SOFTWARE
ENGINEERING DESIGN
REQUIREMENT
ANALYSIS

Requirement Analysis

Requirement analysis enables the system engineer to specify

function and performance, indicate software’s interface with other

system elements, and establish constraints that software must meet.

Requirements allow the software engineer (often called analyst in this

role) to refine the software are allocation and build modules of the

data, functional, and behavioral domains that will be treated by

software. Analysis provides the software designer with models that

can be translated in to data, architectural, interface, and procedural

design. Finally, the requirement specification provides the developer

and the customer with the means to assess quality once software is

built. Developer and the customer with the analysis may be divided

into five areas of effort:

 Problem Recognition

 Evaluation and Synthesis

 Modeling

 Specification

 Review

Initially, the analyst studies the system specification (if one exists)

and the software project plan. It is important to important to

understand software in a system context and to review the software

scope that was used to generate planning estimates. Next,

communication for analysis must be established so that problem

recognition is ensured. The goal of the analyst is recognition of the

basic problem elements as perceived by the user/customer.

Problem evaluation and solution synthesis is the next major area of

effort for analysis. The analyst must define all extremely observable

data objects, evaluate the flow and content of information; define and

elaborate all software function; understand software behavior in the

context of events that effects the system; estimate system interface

characteristics; and uncover additional design constraints. Each of

these tasks serves to describe the problem so that an overall

approach or solution may be synthesized.

Upon evaluating current problems and desired information (input and

output), the analyst begins to synthesize one or more solutions. To

begins, the data, processing functions and behavior of the system are

defined in detail. Once this information has been established, basic

architecture for implementation is considered. A client/server

approach would seem to be appropriate, but does it fall within the

scope outlined in the software plan? A database management system

(DBMS) would seem to be required, but is the user/client’s need for

associatively justified? The process of evaluation and synthesis

continues until both analyst and customer feels confident that

software can be adequately specified for subsequent development

steps.
Throughout evaluation and solution synthesis, the analyst’s primary

focus is on “what”, not “how”. What data does the system produce

and consume what constraints apply? During the evaluation and

solution synthesis activity, the analyst creates models of the system

m an effort to better understand the data and control flow, functional

processing and behavioral operation, and information content. The

model serves as a foundation, for software design and as the basis

for the creation of a specification for the software.

2.1.5 ELEMENTS OF ANALYSIS MODEL

The analysis model must achieve three primary objectives:

 To describe what the customer requires

 To establish a basis for the creation of software design, ad

 To define a set of requirements that can be validated once the

software is built.

2.1.6 SOFTWARE DESIGN

Design is the first phase in the development phase for any system. It

may be defined as “the process of applying various techniques and

principles for the purpose of defining a device a process or a system

in sufficient detail to permit physical realization. The designer’s goal is

to produce a model or representation of an entity that will later be

built. The process by which the model is developed combines

intuition and judgment based on experience in building similar

entities, a set of principles and/or heuristic that guides the way in

which the model evolves, a set of criteria that enables quality to be

judged, and a process of iteration that ultimately leads to a final

design representation.

Actually software design sites at the technical kernel of the software

engineering process and is applied regardless of the software

process model that is used. Beginning once software requirements

have been analyzed and specified, software design is the first of

three technical activity designs, code generation and testing which

are required to build and verify the software.

Each activity transforms information in a manner that ultimately

results in validated computer software. Each of the elements of the

analysis model provides information that is required to create a

design model. Software requirements manifested by the data,

functional and behavioral model feed the design steps. Using one of

a number of design methods, the design step produces a data design

an architectural design an interface design, and a procedural design.

This data design transforms the information domain model created

during analysis into the data structures that will be required to

implement the software. The data objects and the relationships

defined in the entity-relationship diagram and the detailed design

depicted in the data dictionary provides the basis for the data design

activity.

The architectural design defines the relationship among those major

structural elements of the program. This design representation- the

modular framework of a computer program- can be derived from the

analysis model(s) and the interaction of sub-system defined within the

analysis model.

The interface design describes how the software communication

within itself, to systems that inter-operate with it, and with humans

who use it. An interface implies a flow of information (e.g. data and

/or control).Therefore, the data and flow diagrams provide the

information required for the interface design.

The procedural design transforms structural elements of the program

architecture into a procedural description of software components.

Information obtained from the PSPEC, CSPEC, and STD serves as

the basis for procedural design. During design, we make decisions

that will ultimately affect the success of software construction, and as

important, the ease with which software can be maintained.

Actually, the importance of software can be stated in a single word-

quality. Design is the place where quality is fostered in software

development. Design provides us with representations of software

that can be assessed for quality. Design is the only way we can

accurately translates a customer’s requirements into a finished

software product or system. Software design serves as the

foundation of all the software engineering and software maintenance

steps that follow. Without design, we risk building an unstable

system-one that will fail when small changes are made; one that may

be difficult to test; one whose utility can not be accessed until the late

in the software engineering process, when time is short and many

dollars have already been spent.

 System Design

Designing is the most important part of software development.

It requires careful planning and logical thinking on the part of system

designer. IT should be done with at most care because if this phase

contains any error then it is going to affect the performance of the

system. As a result, it may take more of processing time, more of

coding time and extra workload.

This important phase is composed of several steps. Design

goes through a logical and physical stage of development.

 The Logical Design reviews the overall framework of

development, prepares input/output specificatopns, marks edit,

security and controls specifications. Detail implementation plan

prepares logical walkthrough.

 The Physical Design maps out the details pf the physical

system, plans the implementation and specifies any hardware

or software.
 Logical Design

The logical framework of the automation to be carried out was

designed. The system works at two levels of authorization:

 Administrator Level

 User Level

Administrative Activities:

These include:

1) Creation, Deletion and Updating of users in order to give the

users the permission to login the system.

2) Giving access permissions, that is determining which user

will have how much of access to the system.

3) Retrieving and traversing the user information.

4) Enabling only the authorized users to login to the system and

with the granted permissions only.

5) Maintaining the master database

User Activities:
These include:

1) Handling the various transactions that are undertaken in

the processing of the customer relationship cases, as admin

data.

2) Firing Queries.

3) Generating Reports.
 HARDWARE AND SOFTWARE
REQUIREMENTS

SOFTWARE REQUIREMENTS:

Platform Used: Windows XP (Professional)

Back End: MS-ACCESS 2000

Front End: VB 6.0

HARDWARE REQUIREMENTS:

Processor used: P-IV

RAM: 512 MB

Hard Disk: 80GB

O.S: Windows XP
 TESTING

The development of the software system involves a series of the

production activities where opportunities for the injection of human

felicities are enormous. Errors may begin to occur at the very

inception of the process of the human inability to perform and

communicate with the perfection, software development is

accompanied by a quality assurance activity. Software testing is a

critical element of software quality assurance and represents the

ultimate review of specification, design and code generation.

No program or system design is perfect; communication between the

client and designers is not always complete or clear; and time is

really short. The result is errors and more errors. The number and the

nature of errors in anew design depends on several factors.

*Communication between the user and the designer.

*The programmer’s ability to generate a code that reflects exactly the

system specifications.

*The time frame for the design.

A newly designed system should have all the pieces in working order,

but in reality each piece works independently. Now is the time to pull

all the pieces into one system and test it to determine whether it

meets the user requirements. This is the last chance to detect and

correct error before the system is installed for the user acceptance

testing. The purpose of the system testing is to consider all likely

variations to which it will be subjected and then push the system to its

limits. The basic purpose of testing is to detect the errors that may be

in the program:

There are two basic approaches:-

1.Functional Testing: In this the structure of the program is not

consider, Test cases are decided on the basis of the requirements or

the specifications of the program or the modules are consider for the

test. Due to this it is often called BLACK BOX TESTING.

2.Structural Testing: In the structural testing, can be generated

based on the actual code of the program or the module to be tested,

it deals with the internal structure of the program responsible for

actually implementing that function, this approach is called GLASS

BOX TESTING.
SYSTEM TESTING:

*The raw data is fed into the database.

*The module is working in a good condition.