Thaufiq News Mart - individual project

---

Thqufiq News Mart
30D,Road Stread
Oli Mohamed Pettain
Kanchipuram-6

   Business  Application  

Single Window Application

                                                                   SOURCE CODE

Dim p1, p2, p3, p4, p5, p6, p7, p8, p9, VAR1  As Double
'Dim COUNT As Integer





Private Sub CMDRESULT_Click()
Text21.Text = VAR1 - Val(Text20.Text)
Text22.Text = (Val(Text21.Text) / 100) * 10
Text23.Text = Val(Text21.Text) - Val(Text22.Text)
End Sub

Private Sub CMDSAVE_Click()
Set rs = New ADODB.Recordset
rs.Open "TABPAPER", con, adOpenStatic, adLockOptimistic
rs.AddNew
rs.sr = 1
rs.Day = Val(Combo1.Text)
rs.mon = Val(Combo2.Text)
rs.Year = Val(Text26.Text)
rs.paper = TPATER
rs.totalamount = Val(Text19.Text)
rs.comi = Val(Text22.Text)
rs.amount = Val(Text23.Text)
rs.Update
MsgBox Date & " Record Is Saved !", vbInformation

End Sub

Private Sub CMDTA_Click()
VAR1 = Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text13.Text) + Val(Text14.Text) + Val(Text15.Text) + Val(Text16.Text) + Val(Text17.Text) + Val(Text18.Text)
Text19.Text = VAR1
Dim TPAPER As Integer
TPATER = Val(DTH.Text) + Val(TGA.Text) + Val(TMA.Text) + Val(TMNI.Text) + Val(DC.Text) + Val(IE.Text) + Val(HD.Text) + Val(MRM.Text) + Val(TSAR.Text)
End Sub

Private Sub Command1_Click()

If dayname.Text = "Monday" Then
p1 = 3
p2 = 2
p3 = 4
p4 = 3
p5 = 1
p6 = 1.5
p7 = 2.5
p8 = 4
p9 = 0
ElseIf dayname.Text = "Tuseday" Then

p1 = 3
p2 = 2
p3 = 3
p4 = 3
p5 = 1
p6 = 1.5
p7 = 2.5
p8 = 4
p9 = 0

ElseIf dayname.Text = "Webnesday" Then

p1 = 3
p2 = 2
p3 = 3
p4 = 3
p5 = 1
p6 = 1.5
p7 = 2.5
p8 = 4
p9 = 0

ElseIf dayname.Text = "Thusday" Then

p1 = 3
p2 = 2
p3 = 3
p4 = 3
p5 = 1
p6 = 1.5
p7 = 2.5
p8 = 4
p9 = 0
ElseIf dayname.Text = "Friday" Then

p1 = 4
p2 = 3
p3 = 4
p4 = 3.5
p5 = 1
p6 = 1.5
p7 = 2.5
p8 = 4
p9 = 0
ElseIf dayname.Text = "Saturday" Then

p1 = 4
p2 = 3
p3 = 4
p4 = 3.5
p5 = 1
p6 = 1.5
p7 = 2.5
p8 = 4
p9 = 0

ElseIf dayname.Text = "Sunday" Then

p1 = 4
p2 = 3
p3 = 4
p4 = 4
p5 = 2
p6 = 3
p7 = 3
p8 = 4
p9 = 4

End If

Text10.Text = Val(DTH.Text) * p1
Text11.Text = Val(TGA.Text) * p2
Text12.Text = Val(TMA.Text) * p3
Text13.Text = Val(TMNI.Text) * p4
Text14.Text = Val(DC.Text) * p5
Text15.Text = Val(IE.Text) * p6
Text16.Text = Val(HD.Text) * p7
Text17.Text = Val(MRM.Text) * p8
Text18.Text = Val(TSAR.Text) * p9

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
p1 = 0
p2 = 0
p3 = 0
p4 = 0
p5 = 0
p6 = 0
p7 = 0
p8 = 0
p9 = 0
Set con = New ADODB.Connection
con.Open "sms"
End Sub

Private Sub Timer1_Timer()

LBTIME.Caption = Now
End Sub