frmemployeereports.frm

This file came from Planet-Source-Code.com...the home millions of lines of source code You can view

            Caption         =   "&Generate"
            BeginProperty Font 
               Name            =   "Verdana"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   975
            Left            =   6000
            Picture         =   "frmemployeereports.frx":65E3
            Style           =   1  'Graphical
            TabIndex        =   3
            Top             =   2280
            Width           =   1215
         End
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BackColor       =   &H00FF8080&
            Caption         =   "Between"
            BeginProperty Font 
               Name            =   "Verdana"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   255
            Left            =   5880
            TabIndex        =   13
            Top             =   240
            Width           =   1095
         End
         Begin VB.Label Label2 
            Alignment       =   2  'Center
            BackColor       =   &H00FF8080&
            Caption         =   "And"
            BeginProperty Font 
               Name            =   "Verdana"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H00FFFFFF&
            Height          =   255
            Left            =   6000
            TabIndex        =   12
            Top             =   1080
            Width           =   735
         End
      End
      Begin VB.CommandButton cmd_per_doc_only 
         BackColor       =   &H00FFFFFF&
         Caption         =   "&Permanant Doctor Only"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1215
         Left            =   360
         Picture         =   "frmemployeereports.frx":671B
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   1800
         Width           =   1215
      End
   End
   Begin Crystal.CrystalReport Report 
      Left            =   0
      Top             =   0
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   348160
      PrintFileLinesPerPage=   60
   End
   Begin ActiveResizeCtl.ActiveResize ActiveResize1 
      Left            =   0
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      Resolution      =   4
      ScreenHeight    =   1024
      ScreenWidth     =   1280
      ScreenHeightDT  =   1024
      ScreenWidthDT   =   1280
      FormHeightDT    =   6210
      FormWidthDT     =   12330
      FormScaleHeightDT=   5700
      FormScaleWidthDT=   12210
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackColor       =   &H00FF8080&
      Caption         =   "EMPLOYEE REPORTS"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   435
      Left            =   4200
      TabIndex        =   17
      Top             =   240
      Width           =   4125
   End
End
Attribute VB_Name = "frmemployeereports"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public flag1 As String
Public flag2 As String

Private Sub cmd_emp_doconly_Click()
Report.ReportFileName = App.Path & "\Reports\Employee\total_doctor.rpt"
Report.DiscardSavedData = True
Report.WindowState = crptMaximized
Report.Action = 1
End Sub

Private Sub cmd_emp_only_Click()
Report.ReportFileName = App.Path & "\Reports\Employee\employee.rpt"
Report.DiscardSavedData = True
Report.ReplaceSelectionFormula ("")
Report.WindowState = crptMaximized
Report.Action = 1
End Sub

Private Sub cmd_emp_total_Click()
Report.ReportFileName = App.Path & "\Reports\Employee\employee.rpt"
Report.DiscardSavedData = True
Report.ReplaceSelectionFormula ("")
Report.WindowState = crptMaximized
Report.Action = 1
End Sub

Private Sub cmd_per_doc_only_Click()
Report.ReportFileName = App.Path & "\Reports\Employee\permenant Doctor.rpt"
Report.DiscardSavedData = True
Report.WindowState = crptMaximized
Report.Action = 1
End Sub



Private Sub Option1_Click(Index As Integer)

If Option1(0).Value = True Then
flag1 = "employee"
ElseIf Option1(1).Value = True Then
flag1 = "doctor"
End If

End Sub

Private Sub Option2_Click(Index As Integer)
If Option2(0).Value = True Then
flag2 = "bsal"
ElseIf Option2(1).Value = True Then
flag2 = "net"
ElseIf Option2(2).Value = True Then
flag2 = "gross"
End If
End Sub
Private Sub cmd_custom_Click()

'{SLIP.gross} >= 0  and {SLIP.gross} <= 1000000

'{SLIP.net} >= 0  and  {SLIP.net} <= 100000
If flag1 = "employee" And flag2 = "" Then

Report.ReportFileName = App.Path & "\Reports\Employee\Emplyee_salary.rpt"
Report.DiscardSavedData = True
Report.WindowState = crptMaximized
Report.Action = 1

ElseIf flag1 = "doctor" And flag2 = "" Then

Report.ReportFileName = App.Path & "\Reports\Employee\perdoctorsal.rpt"
Report.DiscardSavedData = True
Report.WindowState = crptMaximized
Report.Action = 1

ElseIf flag1 = "employee" And flag2 = "bsal" Then

Report.ReportFileName = App.Path & "\Reports\Employee\Emplyee_salary.rpt"
Report.DiscardSavedData = True
Report.ReplaceSelectionFormula ("{Employee.bsal}  >= " & Val(txtfrom) & " and  {Employee.bsal}<= " & Val(txtto) & "")
Report.WindowState = crptMaximized
Report.Action = 1

ElseIf flag1 = "employee" And flag2 = "net" Then

Report.ReportFileName = App.Path & "\Reports\Employee\Emplyee_salary.rpt"
Report.DiscardSavedData = True
Report.ReplaceSelectionFormula ("{SLIP.net} >= " & Val(txtfrom) & "  and  {SLIP.net} <= " & Val(txtto) & "")
Report.WindowState = crptMaximized
Report.Action = 1

ElseIf flag1 = "employee" And flag2 = "gross" Then

Report.ReportFileName = App.Path & "\Reports\Employee\Emplyee_salary.rpt"
Report.DiscardSavedData = True
Report.ReplaceSelectionFormula ("{SLIP.gross} >= " & Val(txtfrom) & "  and {SLIP.gross} <= " & Val(txtto) & "")
Report.WindowState = crptMaximized
Report.Action = 1

ElseIf flag1 = "doctor" And flag2 = "bsal" Then

Report.ReportFileName = App.Path & "\Reports\Employee\perdoctorsal.rpt"
Report.DiscardSavedData = True
Report.ReplaceSelectionFormula ("{Doctor_salary.basic} >= " & Val(txtfrom) & " and {Doctor_salary.basic} <= " & Val(txtto) & "")
Report.WindowState = crptMaximized
Report.Action = 1

ElseIf flag1 = "doctor" And flag2 = "net" Then

Report.ReportFileName = App.Path & "\Reports\Employee\perdoctorsal.rpt"
Report.DiscardSavedData = True
Report.ReplaceSelectionFormula ("{Doctor_salary.net} >= " & Val(txtfrom) & " and {Doctor_salary.net} <= " & Val(txtto) & "")
Report.WindowState = crptMaximized
Report.Action = 1


ElseIf flag1 = "doctor" And flag2 = "gross" Then

Report.ReportFileName = App.Path & "\Reports\Employee\perdoctorsal.rpt"
Report.DiscardSavedData = True
Report.ReplaceSelectionFormula ("{Doctor_salary.gross} >= " & Val(txtfrom) & " and {Doctor_salary.gross} <= " & Val(txtto) & "")
Report.WindowState = crptMaximized
Report.Action = 1

End If


End Sub