Payroll System (Anyone who know this) | Free source code, tutorials and articles

Share Your Source Code or Article

Do you have source code, articles, tutorials, web links, and books to share? You can write your own content here. You can even have your own blog.

Submit now...

Database Programming Made Easy

This tutorial will teach you step by step on how to connect and manipulate database. If you'd like to suggest a tutorial please write a comment at the bottom of this article.

Read more...

Hire Us to Do Your Work

Do you want a customized system? Do you want to setup your own website to do business? Then we are here to help you in your programming needs.

Search

Payroll System (Anyone who know this)

1 reply [Last post]

Wed, 02/03/2010 - 00:49

cidfrey

Offline

Joined: 12/17/2009

I have this Payroll System project for my MIS. I have this Print Slip Command Botton for printing the pay slip. Now I want to print those field names using a real printer (like HP or canon). I mean from Data Report the printer should print the content of the Data Report. Do I still need the name of the printer and the serial code of the printer? Or I need a code for it? If I need a code can you pls post it?

Any idea about this is accepted. Using Data Report only not Crystal Report.

Code for Command Botton

Private Sub Command10_Click()
If Text10.Text = "" Then
MsgBox "Enter employee number.", 0 + 48, "Message"
Text10.SetFocus
Exit Sub
End If

If Text11.Text = "" Then
MsgBox "Enter employee days of work.", 0 + 48, "Message"
Text11.SetFocus
Exit Sub
End If

y = MsgBox("Is employee Married?", vbYesNo + vbQuestion, "Question")
If y = vbYes Then
DataReport1.Show
Set DataReport1.DataSource = Adodc1
'==================================================================================
DataReport1.Sections("Section4").Controls("LabeL3").Caption = "NO. : " & Form3.Text10.Text & ""
DataReport1.Sections("Section4").Controls("Label4").Caption = "NAME : " & Form3.Text12.Text & ""
DataReport1.Sections("Section4").Controls("LabeL11").Caption = "POSITION : " & Form3.Text13.Text & ""
DataReport1.Sections("Section4").Controls("Label39").Caption = Form3.Text39.Text
DataReport1.Sections("Section4").Controls("Label37").Caption = Form3.Text38.Text
DataReport1.Sections("Section4").Controls("Label35").Caption = Form3.Text37.Text
DataReport1.Sections("Section4").Controls("Label33").Caption = Form3.Text36.Text
DataReport1.Sections("Section4").Controls("Label31").Caption = Form3.Text35.Text
DataReport1.Sections("Section4").Controls("Label29").Caption = Form3.Text34.Text
DataReport1.Sections("Section4").Controls("Label27").Caption = Form3.Text33.Text
DataReport1.Sections("Section4").Controls("Label25").Caption = Form3.Text32.Text
DataReport1.Sections("Section4").Controls("Label23").Caption = Form3.Text31.Text
DataReport1.Sections("Section4").Controls("Label21").Caption = Form3.Text26.Text
DataReport1.Sections("Section4").Controls("Label19").Caption = Form3.Text25.Text
DataReport1.Sections("Section4").Controls("Label17").Caption = Form3.Text11.Text
DataReport1.Sections("Section4").Controls("Label15").Caption = Form3.Text14.Text
DataReport1.Sections("Section4").Controls("Label13").Caption = Form3.Text18.Text
DataReport1.Sections("Section4").Controls("Label6").Caption = Form3.Text15.Text
DataReport1.Sections("Section4").Controls("LabeL8").Caption = Form3.Text19.Text
DataReport1.Sections("Section4").Controls("Label10").Caption = Form3.Text20.Text
'================================================================================
Else
DataReport4.Show
Set DataReport4.DataSource = Adodc1
'==================================================================================
DataReport4.Sections("Section4").Controls("LabeL3").Caption = "NO. : " & Form3.Text10.Text & ""
DataReport4.Sections("Section4").Controls("Label4").Caption = "NAME : " & Form3.Text12.Text & ""
DataReport4.Sections("Section4").Controls("LabeL11").Caption = "POSITION : " & Form3.Text13.Text & ""
DataReport4.Sections("Section4").Controls("Label39").Caption = Form3.Text39.Text
DataReport4.Sections("Section4").Controls("Label37").Caption = Form3.Text38.Text
DataReport4.Sections("Section4").Controls("Label35").Caption = Form3.Text37.Text
DataReport4.Sections("Section4").Controls("Label33").Caption = Form3.Text36.Text
DataReport4.Sections("Section4").Controls("Label31").Caption = Form3.Text35.Text
DataReport4.Sections("Section4").Controls("Label29").Caption = Form3.Text34.Text
DataReport4.Sections("Section4").Controls("Label27").Caption = Form3.Text33.Text
DataReport4.Sections("Section4").Controls("Label25").Caption = Form3.Text32.Text
DataReport4.Sections("Section4").Controls("Label23").Caption = Form3.Text31.Text
DataReport4.Sections("Section4").Controls("Label20").Caption = Form3.Text25.Text
DataReport4.Sections("Section4").Controls("Label21").Caption = Form3.Text26.Text
DataReport4.Sections("Section4").Controls("Label17").Caption = Form3.Text14.Text
DataReport4.Sections("Section4").Controls("Label15").Caption = Form3.Text11.Text
DataReport4.Sections("Section4").Controls("Label13").Caption = Form3.Text18.Text
DataReport4.Sections("Section4").Controls("Label6").Caption = Form3.Text15.Text
DataReport4.Sections("Section4").Controls("LabeL8").Caption = Form3.Text16.Text
DataReport4.Sections("Section4").Controls("Label10").Caption = Form3.Text17.Text
'================================================================================
End If
End Sub

The One Who Dreams Nothing, Achieves Nothing.

Tue, 02/09/2010 - 11:13

#1

Anonymous

is this this working

is this code working?

Post new comment

Subject:

Comment: *

Input format

Filtered HTML

Web page addresses and e-mail addresses turn into links automatically.
Lines and paragraphs break automatically.
You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>, <asp>, <c>, <cpp>, <csharp>, <css>, <java>, <java5>, <javascript>, <mysql>, <php>, <sql>, <vb>, <vbnet>. The supported tag styles are: <foo>, [foo].
You may use [inline:xx] tags to display uploaded files or images inline.
Links to specified hosts will have a rel="nofollow" added to them.
You may insert videos with [video:URL]

Full HTML

Web page addresses and e-mail addresses turn into links automatically.
Lines and paragraphs break automatically.
You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>, <asp>, <c>, <cpp>, <csharp>, <css>, <java>, <java5>, <javascript>, <mysql>, <php>, <sql>, <vb>, <vbnet>. The supported tag styles are: <foo>, [foo].
You may use [inline:xx] tags to display uploaded files or images inline.
Links to specified hosts will have a rel="nofollow" added to them.
You may insert videos with [video:URL]

More information about formatting options

File attachments

Changes made to the attachments are not permanent until you save this post.

Attach new file:

Images are larger than 500x500 will be resized. The maximum upload size is 10 MB. Only files with the following extensions may be uploaded: jpg jpeg gif png txt doc xls pdf ppt pps odt ods odp zip.

CAPTCHA

This question is for testing whether you are a human visitor and to prevent automated spam submissions.

What code is in the image?: *

Enter the characters shown in the image.

Feed subscription

What is RSS

Primary links

Languages

Share Your Source Code or Article

Database Programming Made Easy

Hire Us to Do Your Work

Search

Post new comment

Feed subscription

Popular

All time:

Recent comments

Poll

Step by Step Java Tutorial

Do You Have Question?

Point of Sale