Visual Basic 6.0 ¡Ñº¡Ò÷ÓÃÒ§ҹ´éÇ Active Report µÍ¹·Õè 1

Option Explicit
' »ÃСÒȵÑÇá»ÃẺ Object à¾×èÍÃѺ§Ò¹ä»¾ÔÁ¾ì
Dim rptPrint As Object
' µÑÇá»Ã·Õèãªéã¹ÃкءÒäé¹ËÒ ËÃ×Í ¡Ó˹´ªèǧ¡ÒþÔÁ¾ìËÃ×ÍäÁè
Dim blnSearch  As Boolean

Private Sub Form_Load()
On Error GoTo ErrorHandler
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    ' àª×èÍÁµèÍ°Ò¹¢éÍÁÙÅ
    Call OpenDataBase
    
    With ARViewEmployeeList
        .Zoom = 100   ' ¤èÒ % ¡ÒÃáÊ´§¼Å
        ' áÅÐÍ×è¹æÍÕ¡ ... àÍÒäÇéµÍ¹Ë¹éÒÅèСѹ
    End With
    
    ' µÑ駤èÒà»ç¹à·ç¨à¾×èͺ觺͡ÇèÒäÁèãªè¡Òäé¹ËÒ¢éÍÁÙÅ
    blnSearch = False
    ' Íѹ·Õè¨ÃÔ§¡è͹·Ó¡Òà Preview ¼Á¨Ð·Óà»ç¹¿Ñ§¤ìªÑè¹á·¹àÍÒ àªè¹ PreviewReport(False)
    ' àÇÅÒ»ÃСÒÈ㹿ѧ¤ìªÑè¹ ¡ç¨Ð»ÃСÒÈẺ¹Õé ... Function PreviewReport(blnSearch As Boolean)
    ' à¾ÃÒÐÊÑè§áºº¹ÕéÁѹ§èÒ áÅÐ Êдǡ¡ÇèÒàÂÍФÃѺ
ExitProc:
    Exit Sub
    
ErrorHandler:
    MsgBox "Error : " & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbExclamation, "ÃÒ§ҹ¤ÇÒÁ¼Ô´¾ÅÒ´"
    Resume ExitProc
End Sub

' à¡Ô´à˵ءÒó존»ØèÁ Preview ËÃ×Í cmdPreview_Click

Private Sub cmdPreview_Click()
    Set RS = New ADODB.Recordset
    ' ãËéáÊ´§¼Å·Ñé§ËÁ´¹èÐÁѹ¹Ò¹ ... ¨ÃÔ§æáÅéǵéͧàÅ×͡੾ÒÐÃÒ¡Ò÷Õèµéͧ¡ÒÃÁÒ¡¡ÇèÒ
    ' ¡Òäé¹ËÒ ËÃ×Í ¡Ó˹´ªèǧ¢éÍÁÙÅ
    ' Íѹ¹Õé¾Õè¹éͧµéͧÅͧä»ãÊèäÍà´Õ¢ͧµÑÇàͧà¢éÒä»´éÇÂÅèСѹ¤ÃѺ
    If blnSearch Then
        Statement = "SELECT tblEmployee.EmployeePK, tblEmployee.EmployeeID, tblEmployee.EmployeeName, " & _
                                " tblEmployee.DateStart, tblPosition.PositionName, tblDepartment.DepartmentName " & _
                                " FROM (tblPosition INNER JOIN tblEmployee ON tblPosition.PositionPK = " & _
                                " tblEmployee.PositionFK) INNER JOIN " & _
                                " tblDepartment ON tblEmployee.DepartmentFK = tblDepartment.DepartmentPK " '& _
                                " [EmployeeID] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
                                " [EmployeeName] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
                                " [PositionName] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
                                " [DepartmentName] " & " Like '%" & Trim(txtSearch.Text) & "%'" & _
                                " ORDER BY EmployeeID "
                                ' ËÃ×Í BETWEEN ...
    ' ãËéáÊ´§¼ÅÍÍ¡ÁÒ·Ñé§ËÁ´
    Else
        Statement = "SELECT tblEmployee.EmployeePK, tblEmployee.EmployeeID, tblEmployee.EmployeeName, " & _
                                " tblEmployee.DateStart, tblPosition.PositionName, tblDepartment.DepartmentName " & _
                                " FROM (tblPosition INNER JOIN tblEmployee ON tblPosition.PositionPK = " & _
                                " tblEmployee.PositionFK) INNER JOIN " & _
                                " tblDepartment ON tblEmployee.DepartmentFK = tblDepartment.DepartmentPK " & _
                                " ORDER BY EmployeeID "
    End If
    '
    RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
    
    ' =====================================================
    ' ÊèǹÊӤѭ㹡Ò÷ÓÃÒ§ҹ´éÇ Active Report
    ' µÑ駤èÒ ËÃ×Í ¡Òü١ÃÒ§ҹà¢éҡѺ Object
    Set rptPrint = New arEmployeeList   ' ÁÒ¨Ò¡ª×èÍä¿ÅìÃÒ§ҹ (Designer)
    
    ' ARViewEmployeeList µÑǹÕé¤×Í ARViewer Control ·ÕèÇÒ§äÇéÍÂÙ躹¿ÍÃìÁ frmPrintEmployee
    Set Me.ARViewEmployeeList.object = rptPrint
    
    ' ¼Ù¡°Ò¹¢éÍÁÙÅ (Bound Control) Ẻ Run Time à¢éҡѺ Object
    ' dcRptData µÑǹÕéÁѹä»ÍÂÙè·ÕèẺ¿ÍÃìÁÃÒ§ҹ¢Í§ ActiveReport (Designer) ¹èФÃѺ
    Set rptPrint.dcRptData.Recordset = RS
    ' RecordSet µÑǹÕé¹ÕèáËÅзÕè¶Ù¡Êè§ÍÍ¡ä»Âѧ Designer â´Â dcRptData ¨Ðà»ç¹µÑÇÃѺ¤èÒ
    ' =====================================================
End Sub

' àÁ×èͼ١¤èÒµèÒ§æà¢éÒËҡѹáÅéÇ ... µèÍ仡ç¨Ð¡ÃÐâ´´ä»·Ó§Ò¹Âѧ Designer ·ÕèàÃÒÍ͡ẺàÍÒäÇé
' àÃÔèÁµé¹¡ÒõÑ駤èÒµèÒ§æ·Õè¹Õè ... àËÁ×͹¡Ñº Form_Load ã¹ MS Visual Basic ¤ÃѺ
Private Sub ActiveReport_Initialize()
    ' ¡ÒäǺ¤ØÁ¡Ò÷ӧҹẺ Run Time ¨ÐÁÕ»ÃÐÊÔ·¸ÔÀÒ¾·Õè´Õ¡ÇèÒ Design Time
    ' ¢¹Ò´¢Í§¡ÃдÒÉ
    PageSettings.PaperSize = 9 ' A4
    ' µÑ駤èÒã¹á¹ÇµÑé§
    PageSettings.Orientation = ddOPortrait
    ' ËÃ×Íá¹Ç¹Í¹
    ' PageSettings.Orientation = ddOLandscape
    ' ˹èÇ Twip ¹èФÃѺ ¹Ñ蹤×Í 1440 Twip = 1 ¹ÔéÇ ËÃ×Í 2.54 Cm.
    ' ÍÂÒ¡ä´é˹èÇÂÇѴẺä˹¡ç·ÓºÑ­­ÑµÔäµÃÂÒ§¤ìËÒ¤èÒàÍÒàͧ¤ÃѺ
    PageSettings.LeftMargin = 300
    PageSettings.RightMargin = 300
    PageSettings.BottomMargin = 300
    PageSettings.TopMargin = 300
    ' à¤ÅÕÂÃì¤èÒ¡è͹·Ó¡ÒÃáÊ´§¼Å
    txtItem.Text = ""
    txtEmployeeID.Text = ""
    txtName.Text = ""
    txtPosition.Text = ""
    txtDepartment.Text = ""
    txtDateStart.Text = ""
    txtDayWork.Text = ""
    lblContinued.Caption = ""
End Sub

' ÃÒÂÅÐàÍÕ´µèÒ§æ¡ç¨Ð¹ÓÁÒáÊ´§ã¹ Detail ÍÂÙèáÅéÇ
Private Sub Detail_Format()
' ÍÂÒ¡ãËé¾Õè¹éͧÅͧ·´ÊͺàÍÒàͧ¤ÃѺ ÇèÒËÒ¡àÃÒäÁèãªéµÑÇá»Ã i à»ç¹ Static áÅéǼŷÕèä´éÁѹ¨Ðà»ç¹Âѧä§
'Dim i As Long
' à¡çº¤èҢͧµÑÇá»Ã i àÍÒäÇéµÅÍ´ ... ¹Ò¹æ¤ÃÑ駷Õèä´éãªéµÑÇá»ÃẺ¹Õé
Static i As Long
    i = i + 1
    txtItem.Text = i & "."
    ' dcRptData ¡ç¤×Í ADO Control ·ÕèàÃÒ¹ÓÁÒÇÒ§äÇ麹ÃÒ§ҹ¹Ñè¹áËÅÐ
    ' à¾Õ§áµèàÃÒ¼Ù¡°Ò¹¢éÍÁÙÅà¢éÒ (Bound Control) µÍ¹ÊÑè§ Run Time â´ÂÇÔ¸Õ·ÕèÊØ´áʹ¨Ð§èÒ´ÒÂ
    ' rptPrint.dcRptData.Recordset = RS 㹿ÍÃìÁ¾ÔÁ¾ì§Ò¹ (frmPrintEmployee)
    ' ¨Ò¡¹Ñé¹áµèÅпÔÅ´ì (¨Ò¡ Query ·ÕèÍÂÙè㹿ÍÃìÁ frmPrintEmployee) àÃÒ¡ç¹ÓÁÒ¼Ù¡à¢éҡѺ TextBox Control
    ' ´Ñ§¹Ñé¹ ... ÍÂèÒÅ×ÁµéͧÊÃéÒ§¤ÇÒÁÊÑÁ¾Ñ¹¸ìãËéÁѹµÃ§ ËÃ×Í ÊÍ´¤Åéͧ¡Ñ¹´éǹèТÍÃѺ
    txtEmployeeID.Text = "" & Trim(dcRptData.Recordset("EmployeeID"))
    txtName.Text = "" & Trim(dcRptData.Recordset("EmployeeName"))
    txtPosition.Text = "" & Trim(dcRptData.Recordset("PositionName"))
    txtDepartment.Text = "" & Trim(dcRptData.Recordset("DepartmentName"))
    txtDateStart.Text = FormatDateTime(dcRptData.Recordset("DateStart"), vbShortDate)
    ' àÃÕ¡ãªé§Ò¹ Public Function CalcDate(Çѹ·ÕèàÃÔèÁ§Ò¹, Çѹ·Õè»Ñ¨¨ØºÑ¹) ... Ê觤èÒ¡ÅѺÁÒà»ç¹ String
    txtDayWork.Text = "(ÍÒÂاҹ: " & CalcDate(txtDateStart.Text, Now) & ")"
    ' ¡Å䡢ͧÁѹµèÍä» ¤×Í ¡ÒÃǹÃͺÍÕ¡ ¨¹¡ÇèÒ¢éÍÁÙÅã¹ dcRptData ¨ÐËÁ´Å§¹Ñè¹àͧ
    
    ' ======================================================================
    ' ÁͧãËéªÑ´æ ¹Ñ蹡ç¤×Í ¤Ø³ÊÒÁÒö·Ó¡Òäӹdz ËÃ×Í µÑ駤èÒÊٵõèÒ§æä´é´éǵÑǤسàͧ
    ' â´Â¤èÒµèÒ§æ·ÕèàÃÒãªé¤Ó¹Ç³ Áѹ¨Ð¶Ù¡¹ÓÁÒáÊ´§¼Åŧ TextBox ËÃ×Í Label Control ä´éÍÂèÒ§§èÒÂÁÒ¡
    ' áÅзÕèÊӤѭ ... Áѹ·Ó§Ò¹áºº Real Time ¤ÃѺ¾Õè¹éͧ
    ' ÁÒ¶Ö§µÃ§¹Õé ... ¤Ø³¤Ô´ÇèÒ¶Ö§àÇÅÒ·Õè¨ÐÊÅÑ´ÃÑ¡à¨éÒ Crystal Report ä´éáÅéÇËÃ×ÍÂѧ ... 55555
    ' ======================================================================
End Sub

' Êè§ÍÍ¡à»ç¹ä¿Åì MS Excel ¡çÊØ´áʹ¨Ð§èÒ´Ò («èÐäÁèÁÕÅèÐ)
Private Sub cmdExportExcel_Click()
' ====================================================================
' ¡è͹ãªé§Ò¹ÍÂèÒÅ×Áä»àÅ×Í¡ Project --> References ... --> ActiveReports Excel Export Filter
' ====================================================================
    Dim oEXL As ActiveReportsExcelExport.ARExportExcel
    Set oEXL = New ActiveReportsExcelExport.ARExportExcel
    ' Êè§ÍÍ¡ä»·Õèä¿Åì MS Excel
    ' ËÒ¡µéͧ¡ÒÃãËé¼Ùéãªé§Ò¹ µÑ駪×èÍä¿ÅìàÍÒàͧ ¡ç¹Ó Common Dialog Control ÁÒãªé§Ò¹
    ' ã¹àÇçºä«µìáË觹ÕéÁÕãËé¾Õè¹éͧÍÂÙèáÅéÇ ... â»Ã´àÅ×Í¡àÍÒÁÒãªé§Ò¹àͧà¶Ô´
    oEXL.FileName = App.Path & "\EXCELTest.xls"
    oEXL.Export rptPrint.Pages
End Sub