Payroll

'pROjECt NAmE: sAmpLE pAYrOLL sYsTEm 'CrEATeD bY: lOUrEMiE mACtAL 'dAtE cREaTEd: aUGuSTs 23,2009

C O M M Private Sub Command1_Click() A Text4.Text = Val(Text3.Text) * 125 N Text5.Text = Val(Text4.Text) D Text7.Text = Val(Text5.Text) - Val(Text6.Text) B Textrecocord.Text = num & " Net Pay: " & Text7.Text & vbTab & vbNewLine & U Textrecocord.Text T Textrecocord.Text = num & " Gross Pay: " & Text5.Text & vbTab & "Deduction: " & T Text6.Text vbNewLine & Textrecocord.Text O N Textrecocord.Text = num & " Hour: " & Text3.Text & vbTab & " Rate: " & Text4.Text & 1— vbNewLine & Textrecocord.Text C Textrecocord.Text = num & " Name: " & Text1.Text & vbTab & " Position: " & Text2.Text & A vbNewLine & Textrecocord.Text L End Sub C U Private Sub subclear_Click() L Text1.Text = vbclear A Text2.Text = vbclear T Text3.Text = vbclear E Command button-Text4.Text = vbclear subclear Text5.Text = vbclear Text6.Text = vbclear Text7.Text = vbclear End Sub textrecocord GENERAL …..DECLERATION…….

Sample Payroll System Name: Position: Hour: Gross pay: Deduction: Net Pay:

Command1 Text1-text7

Labels2-

comput

clear

Label 1

subclear