-
Notifications
You must be signed in to change notification settings - Fork 1
/
MainForm.vb
27 lines (23 loc) · 1.21 KB
/
MainForm.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Imports System.Windows.Forms
Imports SalaryReports.UserControls
Namespace SalaryReports
Public Partial Class MainForm
Inherits System.Windows.Forms.Form
Public Sub New()
Me.InitializeComponent()
End Sub
Private Sub windowsUIView1_QueryControl(ByVal sender As Object, ByVal e As DevExpress.XtraBars.Docking2010.Views.QueryControlEventArgs)
Select Case CInt(e.Document.Tag)
Case 0
e.Control = New SalaryReports.UserControls.DocumentViewerUserControl() With {.Report = New SalaryReports.ManagementReport()}
Case 1
e.Control = New SalaryReports.UserControls.DocumentViewerUserControl() With {.Report = New SalaryReports.EmployeeReport()}
Case 2
Dim report As SalaryReports.EmployeeReport = New SalaryReports.EmployeeReport()
report.Parameters(CStr(("paramEmpName"))).Value = String.Empty
report.Parameters(CStr(("paramEmpName"))).Visible = False
e.Control = New SalaryReports.UserControls.DocumentViewerUserControl() With {.Report = report}
End Select
End Sub
End Class
End Namespace