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

Private Sub Form_Load()
On Error GoTo ErrorHandler
    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
    ' àª×èÍÁµèÍ°Ò¹¢éÍÁÙÅ
    Call OpenDataBase
    
    ' ¼Áãªé ComboBox ÁÒà»ç¹à§×è͹ä¢ã¹¡ÒþÔÁ¾ìÃÒ§ҹ
    cmbPrint.Clear
    cmbPrint.AddItem " ¾ÔÁ¾ìÃÒª×è;¹Ñ¡§Ò¹·Ñé§ËÁ´"
    cmbPrint.AddItem " ¾ÔÁ¾ìÃÒ§ҹµÒÁá¼¹¡"
    cmbPrint.AddItem " ¾ÔÁ¾ìÃÒ§ҹµÒÁµÓá˹è§"
    cmbPrint.ListIndex = 0

ExitProc:
    Exit Sub
    
ErrorHandler:
    MsgBox "Error : " & Err.Number & vbCrLf & Err.Description, vbOKOnly + vbExclamation, "ÃÒ§ҹ¤ÇÒÁ¼Ô´¾ÅÒ´"
    Resume ExitProc
End Sub

Private Sub cmdPreview_Click()
    Set RS = New ADODB.Recordset
    ' ¼Á¡µÑÇÍÂèÒ§¢Í§¡ÒÃàª×èÍÁ¤ÇÒÁÊÑÁ¾Ñ¹¸ìẺ§èÒÂæãËé¾Õè¹éͧä´éÃѺªÁ¡Ñ¹¹èФÃѺ
    ' Íѹ·Õè¨ÃÔ§ÍÂèÒ§¼ÅÃÇÁ¢Í§à§Ô¹à´×͹ àÃÒ¡çÊÒÁÒöãªé¡ÒÃ·Ó Group à¾×èÍËÒ¤èÒ Sum á·¹¡çä´é
    ' ¡çÅͧä»ÊÃÃËÒäÍà´ÕÂãÊèàÍÒàͧÅèСѹ
    Statement = "SELECT tblEmployee.EmployeePK, tblEmployee.EmployeeID, " & _
                            " tblEmployee.EmployeeName, tblEmployee.DateStart, " & _
                            " tblPosition.PositionName, tblDepartment.DepartmentName, " & _
                            " tblEmployee.Salary " & _
                            " FROM (tblPosition INNER JOIN tblEmployee ON tblPosition.PositionPK = " & _
                            " tblEmployee.PositionFK) INNER JOIN " & _
                            " tblDepartment ON tblEmployee.DepartmentFK = tblDepartment.DepartmentPK "
                            
    ' ¾Õè¹éͧ¤ÃѺ ... ¡Ò÷ӡÅØèÁ ¡Ñº ¡ÒÃãªé ORDER ÁѹÁÕ¤ÇÒÁÊÑÁ¾Ñ¹¸ì¡Ñ¹¹èФÃѺ
    ' ËÅÒµèÍËÅÒ¤¹¡çÁÑ¡¨Ð¾ÅÒ´ÍÐäçèÒÂæẺ¹Õéä´éàÊÁÍ ... äÁèàª×èͼÁ¡çÅͧ·´Êͺ´Ùä´éàÅÂÇèÒ
    ' ËÒ¡¤Ø³·Ó ORDER äÁèµÃ§¡Ñº¡ÅØèÁ·Õèµéͧ¡Òà ¼ÅÅѾ¸ì¨Ðà¡Ô´ÍÐäâÖé¹ÁÒºéÒ§
    Select Case cmbPrint.ListIndex
        ' áÊ´§¢éÍÁÙž¹Ñ¡§Ò¹·Ñé§ËÁ´
        Case 0
            Statement = Statement & " ORDER BY EmployeeID "
        ' áÊ´§ÃÒ§ҹµÒÁµÓá˹è§
        Case 1
            Statement = Statement & " ORDER BY DepartmentName, EmployeeID "
        ' áÊ´§ÃÒ§ҹµÒÁá¼¹¡
        Case 2
            Statement = Statement & " ORDER BY PositionName, EmployeeID "
    End Select
    
    RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
    
    ' ÊèǹÊӤѭ㹡Ò÷ÓÃÒ§ҹ´éÇ Active Report
    ' µÑ駤èÒ ËÃ×Í ¡Òü١ÃÒ§ҹà¢éҡѺ Object
    Set rptPrint = New arEmployeeListGroup   ' ÁÒ¨Ò¡ª×èÍä¿ÅìÃÒ§ҹ (Designer)
    
    ' ARViewEmployeeList µÑǹÕé¤×Í Control ·ÕèÇÒ§äÇéÍÂÙ躹¿ÍÃìÁ frmPrintEmployee
    Set Me.ARViewEmployeeList.object = rptPrint
    
    ' ¼Ù¡°Ò¹¢éÍÁÙÅ (Bound Control) Ẻ Run Time à¢éҡѺ Object
    ' dcRptData µÑǹÕéÁѹä»ÍÂÙè·ÕèẺ¿ÍÃìÁ¡ÒÃáÊ´§¼Å¢Í§ ActiveReport ¹èФÃѺ
    Set rptPrint.dcRptData.Recordset = RS
End Sub

Option Explicit

Private bLastPage As Boolean
' »ÃСÒȵÑÇá»Ã i ãËÁè à»ÅÕè¹ÁÒà»ç¹áºº Public ÊÓËÃѺÃÒ§ҹ¹Õé
' ËÁÒ¤ÇÒÁÇèÒã¹·Ø¡æâ»Ãá¡ÃÁÂèÍ¢ͧÃÒ§ҹ¹Õéà·èÒ¹Ñé¹ ¨ÐÁͧàËç¹µÑÇá»Ã·Õè¼Á»ÃСÒÈäÇ麹ÊØ´
' ÃÒ§ҹÍ×è¹¹èÐÁѹÁͧäÁèàËç¹ËÃÍ¡¤ÃѺ ... ¾Õè¹éͧ
Private i As Integer
Private SumSalary As Double
' àËÍææææ §§¡Ñ¹ÅèÐ«Ô ÎèÇ ... »ÃСÒȵÑÇá»Ãà»ç¹áºº Private ´Ñ¹ÁҺ͡à»ç¹ Public

' Êèǹ¹Õéà»ç¹Êèǹ¢Í§¡ÒÃÍèÒ¹¢éÍÁÙÅà¢éÒÁÒ·ÕÅÐÃÒ¡ÒÃ
' ¹Í¡¨Ò¡¹Õé GroupHeader1.GroupValue ¹ÕèáËÅÐ ¤×Í ¡ÒèѴ¡ÅØèÁÃÒ§ҹ
Private Sub ActiveReport_FetchData(eof As Boolean)
    ' ËÒ¡ËÁ´¢éÍÁÙÅ bLastPage ¨ÐÁÕ¤èÒà»ç¹¨ÃÔ§
    bLastPage = dcRptData.Recordset.eof
    
    If Not eof Then
        ' à¾ÔèÁ¨Ó¹Ç¹¡ÒùѺ¢Í§ÅӴѺ·Õè
        i = i + 1
        Select Case frmPrintEmployee.cmbPrint.ListIndex
            Case 0  ' áÊ´§ÃÒ¡Ò÷Ñé§ËÁ´
            Case 1  ' ᡵÒÁá¼¹¡
                GroupHeader1.GroupValue = dcRptData.Recordset("DepartmentName")
            Case 2  ' ᡵÒÁµÓá˹è§
                GroupHeader1.GroupValue = dcRptData.Recordset("PositionName")
        End Select
    End If
End Sub

' Êèǹ¢Í§¡Ò÷ӡÅØèÁ¢éÍÁÙÅ ·Ó¡ÒÃá¨é§¼ÙéãªéÇèÒäÍé¹ÕèÁѹ¤×ÍÃÒ§ҹÍÐäà ??????
Private Sub GroupHeader1_Format()
    Select Case frmPrintEmployee.cmbPrint.ListIndex
        Case 0  ' áÊ´§ÃÒ¡Ò÷Ñé§ËÁ´
            lblGroupData.Caption = "ÃÒ§ҹÃÒª×è;¹Ñ¡§Ò¹·Ñé§ËÁ´:"
            lblDepartment.Alignment = ddTXLeft
            lblDepartment.Caption = "á¼¹¡"
        Case 1  ' ᡵÒÁá¼¹¡
            lblGroupData.Caption = "á¼¹¡: " & dcRptData.Recordset("DepartmentName")
            ' ãªé§Ò¹ Control ãËé¤ØéÁ¤èÒ â´Â¡ÒáÓ˹´ã¹¢³Ð Run-Time
            lblDepartment.Alignment = ddTXRight
            lblDepartment.Caption = "à§Ô¹à´×͹"
        Case 2  ' ᡵÒÁµÓá˹è§
            lblGroupData.Caption = "µÓá˹è§: " & dcRptData.Recordset("PositionName")
            ' ãªé§Ò¹ Control ãËé¤ØéÁ¤èÒ â´Â¡ÒáÓ˹´ã¹¢³Ð Run-Time
            lblPosition.Caption = "á¼¹¡"
            lblPosition.Alignment = ddTXLeft
            lblDepartment.Caption = "à§Ô¹à´×͹"
            txtDepartment.Alignment = ddTXRight
    End Select
End Sub

' ÃÒÂÅÐàÍÕ´µèÒ§æ¡ç¨Ð¹ÓÁÒáÊ´§ã¹ Detail ÍÂÙèáÅéÇ
Private Sub Detail_Format()
    ' ¤ÃÒǹÕé¤èÒ i ¨Ðà¾ÔèÁ¤èÒ¡çÍÂÙè·Õè Group á·¹
    txtItem.Text = i & "."
    
    txtEmployeeID.Text = "" & Trim(dcRptData.Recordset("EmployeeID"))
    txtName.Text = "" & Trim(dcRptData.Recordset("EmployeeName"))
    txtPosition.Text = "" & Trim(dcRptData.Recordset("PositionName"))
    ' µÃǨÊͺà§×è͹䢢ͧ¡ÒþÔÁ¾ì
    Select Case frmPrintEmployee.cmbPrint.ListIndex
        Case 0
            ' ¾ÔÁ¾ìÃÒ§ҹÍÍ¡»¡µÔ
            txtDepartment.Text = "" & Trim(dcRptData.Recordset("DepartmentName"))
        Case 1
            ' àÍÒª×èÍá¼¹¡ä»äÇéÊèǹËÑÇÃÒ§ҹ (GroupHeader) ´Ñ§¹Ñé¹¼Á¡çàÅÂàÍÒà§Ô¹à´×͹
            ' ÁÒÂÑ´ãÊèäÇéã¹ÃÒª×èÍá¼¹¡á·¹ ... (ãªé§Ò¹ Control ãËé¤ØéÁ¤èÒ)
            txtDepartment.Text = Format(Trim(dcRptData.Recordset("Salary")), "#,##0.00")
            txtDepartment.Alignment = ddTXRight
        Case 2
            ' Êèǹ¹Õé¼Á¡ç¹Óª×èÍá¼¹¡ÁÒãÊèäÇéµÃ§µÓá˹觫èÐ Êèǹà§Ô¹à´×͹¡çä»ãÊèäÇéã¹á¼¹¡á·¹ ... ÍÔÍÔÍÔÍÔÍÔ
            txtPosition.Text = "" & Trim(dcRptData.Recordset("DepartmentName"))
            txtDepartment.Text = Format(Trim(dcRptData.Recordset("Salary")), "#,##0.00")
    End Select
    
    txtDateStart.Text = FormatDateTime(dcRptData.Recordset("DateStart"), vbShortDate)
    
    ' ¼Á¶Ö§ä´éºÍ¡ÇèÒ¹ÕèáËÅТéʹբͧ Active Report à¾ÃÒÐâ¤é´Áѹà¹Õ¹æ¨Ò¡ VB à´êÐæææææ
    ' ·ÓãËéäÁèä»ÊѺʹ ËÃ×Í ¨´¨Ó ÊÔè§Í×è¹ã´ ... à¾ÔèÁàµÔÁ
    ' äÁèµéͧãªéÊٵà áµèÍÒÈѵÑÇá»Ã㹡ÒÃà¡çº¤èÒá·¹
    SumSalary = SumSalary + dcRptData.Recordset("Salary")
    ' ¤èÒ¹Õé¨Ð¹Óä»áÊ´§µÍ¹·éÒÂÃÒ§ҹ ËÃ×Í GroupFooter ¤ÃѺ¾Õè¹éͧ
    ' ÊÁÁصÔÇèÒá¼¹¡¹ÕéÁÕ¾¹Ñ¡§Ò¹ 10 ¤¹ ÃÒ§ҹ (Detail) ã¹Êèǹ¹Õé¡ç¨Ð Loop ä»·Õè
    ' ActiveReport_FetchData(eof As Boolean) 10 Ãͺ à¾×èÍ·Ó¡ÒÃáÊ´§¼ÅÃÒ§ҹ
    ' «Öè§ã¹áµèÅÐÃͺ¡ç¨Ð·Ó¡Òúǡ¨Ó¹Ç¹à§Ô¹à´×͹¢Í§¾¹Ñ¡§Ò¹áµèÅФ¹äÇéã¹ SumSalary
End Sub

Private Sub GroupFooter1_Format()
    ' ¡Ã³Õ·ÕèãËé¾ÔÁ¾ìÃÒª×è;¹Ñ¡§Ò¹ÍÍ¡ÁÒ·Ñé§ËÁ´ ´Ñ§¹Ñé¹ ...
    ' ¼Á¨ÐäÁèáÊ´§¨Ó¹Ç¹à§Ô¹à´×͹ÍÍ¡ÁÒ ¡ç§èÒÂæá¤è¡Ó˹´¤ÇÒÁÊÙ§¢Í§Êèǹ¹Õéà»ç¹ 0
    ' âË ... ¤Ô´ä´éä§à¹Õè 55555
    If frmPrintEmployee.cmbPrint.ListIndex = 0 Then GroupFooter1.Height = 0
    
    ' ¡Ã³ÕàÅ×Í¡¡Ò÷ÓÃÒ§ҹµÒÁá¼¹¡ ËÃ×Í µÓáË¹è§ ¤ÇÒÁÊÙ§¨ÐÁÕ¤èÒ»¡µÔ à·èҡѺµÍ¹ Design
    ' ¼ÅÃÇÁ¢Í§à§Ô¹à´×͹¡ç¨Ð»ÃÒ¡¯ÍÍ¡ÁÒ â´Â ...
    ' ¹Ó¤èÒ·Õèä´é¨Ò¡¡Òúǡ (Sum) ã¹ Detail ÁÒáÊ´§¼ÅµÍ¹·éÒÂÃÒ§ҹ (GroupFooter)
    txtSumSalary.Text = "ÃÇÁ¨Ó¹Ç¹à§Ô¹à´×͹: " & Format(SumSalary, "#,##0.00")
    ' Íѹ¹Õé¨ÐÇèÒä»áÅéÇ¡çä»ãªé SQL Statement ã¹àÃ×èͧ¢Í§ Group á·¹¡çä´éà¹éÍ ... ¾Õè¹éͧ
    
    ' ¡Ã³Õ·Õèà»ç¹ Group
    ' àÁ×è;ÔÁ¾ì¼ÅÅѾ¸ìã¹áµèÅСÅØèÁàÃÕºÃéÍÂáÅéÇ ¡ç·Ó¡ÒÃà¤ÅÕÂÃì¤èÒãËÁè
    i = 1:  SumSalary = 0
End Sub