การใช้งาน Datepicker by Jquery UI + ASP.NET

เริ่มแรกเราต้องไปโหลด Jquery UI และ Jquery มาก่อนนะครับ
Jquery UI ไปที่ http://jqueryui.com/download
สามารถเลือก theme ที่เราชอบได้ตามต้องการเลยครับ
ส่วน jquery ไปที่ http://jquery.com ครับ
หรือ ว่าหากไม่ต้องการ download ก็สามารถ ใช้งานผ่าน

Google Ajax API CDN

http://ajax.googleapis.com/ajax/libs/jquery/1.5.1/jquery.min.js
Microsoft CDN
http://ajax.aspnetcdn.com/ajax/jQuery/jquery-1.5.2.min.js
jQuery CDN (via Media Temple)
http://code.jquery.com/jquery-1.5.2.min.js Minified version
http://code.jquery.com/jquery-1.5.2.js Source version

ส่วน jquery UI ก้มีเช่นกันครับ

jQuery UI Library -
http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.10/jquery-ui.js
jQuery UI Library (Minified) - http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.10/jquery-ui.min.js
jQuery UI Base CSS - http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.10/themes/base/jquery-ui.css
jQuery Localization -
http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.10/i18n/jquery-ui-i18n.min.js


เริ่มแรก ให้เราสร้าง function jquery ไว้ที่ head ก่อน

  <link type="text/css" href="../css/flick/jquery-ui-1.8.5.custom.css" rel="stylesheet" />              
  
  
  

ส่วนของ html

    
    To:  

จะสังเกตุว่าผมใช้ control แบบ html แต่ว่าเติม runat="server" เข้าไปเพื่อจะได้ใช้เรียกจาก code behide ได้
เวลาใช้จะเป็น startdate.Value เป็นต้น
เมื่อแสดงผลจะได้



การใช้งาน dataTable plugin jquery in ASP.NET + Jquery UI Style

Read More....

Create Excel by VB.net

หัวข้อนี้ ผมจะมาแนะนำการสร้าง excel file จาก VB.NET ครับ
โดยมีการ กำหนด รูปแบบแสดงผลของ ข้อมูลใน sheet
โดยในที่นี้จะเป็นการเขียนข้อมูลลงบน text file ก่อน แล้วค่อยนำ text file มาเขียนลงบน excel อีกทีครับ
หลังจากนั้นจึงค่อยเปิดไฟล์ excel ที่ได้มาปรับแต่งรูปแบบอีกครั้ง

เมื่อสร้าง form แล้ว ให้ใส่โค้ดดังนี้

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim _fileNameTAB As String = "D:\tmp_" & Trim(Format(DateTimePicker1.Value, "ddMMyyyy")) & ".txt"
        Dim FileName As String = "D:\report_" & Trim(Format(DateTimePicker1.Value, "ddMMyyyy")) & ".xls"
        If System.IO.File.Exists(_fileNameTAB) Then System.IO.File.Delete(_fileNameTAB)
        Dim fs As System.IO.FileStream = System.IO.File.Create(_fileNameTAB)
        Dim writer As New System.IO.StreamWriter(fs)
        ' Open txt file with Excel for decoration
        Dim xlsAPP As New Microsoft.Office.Interop.Excel.Application
        Dim xlsBook As Microsoft.Office.Interop.Excel.Workbook


        Try
            '*** Create txt file ***'
            writer.WriteLine("TEST Data")

            writer.Close()
            writer.Dispose()
            fs.Close()
            fs.Dispose()
        Catch ex As Exception

            writer.Close()
            writer.Dispose()
            fs.Close()
            fs.Dispose()

            Exit Sub

        End Try

        ProgressBar1.Value = 2


        Try

            '*** Create excel  file ***'
            xlsAPP.Visible = False
            xlsBook = xlsAPP.Workbooks.Open(_fileNameTAB)

            '*** Create excel style ***'
            DecorateExcel(xlsBook)

            ' Save as Excel2007
            If System.IO.File.Exists(FileName) Then System.IO.File.Delete(FileName)
            xlsBook.SaveAs(FileName, Microsoft.Office.Interop.Excel.XlFileFormat.xlOpenXMLWorkbook)
            xlsBook.Close(SaveChanges:=False)

            xlsAPP.Quit()

            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlsAPP)
            GC.SuppressFinalize(xlsAPP)
            GC.Collect()
            xlsBook = Nothing
            xlsAPP = Nothing

            System.IO.File.Delete(_fileNameTAB)

        Catch ex As Exception
            xlsAPP.Quit()
            xlsBook = Nothing
            xlsAPP = Nothing
            System.IO.File.Delete(_fileNameTAB)

        End Try

    End Sub
   

อันนี้เป็นโค้ด กำหนด style ให้ excel
กำหนด font , style font ,MergeCells ,background color

Private Sub DecorateExcel(ByVal xlsBook As Microsoft.Office.Interop.Excel.Workbook)

        Dim xlsSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing
        xlsSheet = xlsBook.ActiveSheet
        xlsSheet.Range("A1:K1").EntireColumn.AutoFit()

        With xlsSheet.Range("A1:B1")
            .Font.Size = "9"
            .Bold = True
        End With

        With xlsSheet.Range("A1:B1")
            .Borders.Weight = 2
            .Interior.Color = System.Drawing.Color.Silver.ToArgb
            .MergeCells = True
        End With

    End Sub

บทความอื่นๆ

Use Crystal Report + Datatable by ASP.net

Read More....

การใช้งาน dataTable plugin jquery in ASP.NET + Jquery UI Style

ในบทความนี้จะเป็นการแนะนำการใช้ dataTable plugin ของ Jquery ร่วมกับ Jquery UI เพื่อความสวยงาม
และ การดึงข้อมูลแบบ Ajax ผ่าน jquery ด้วย ASP.NET ครับ
เริ่มแรก ต้อง
Add stylesheet Jquery UI

Add Jquery function

Html code

    

  
    
    

    
 รอสักครู่..... 

create file Handler.ashx

 Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        
        Dim trip As String = ""
        trip = context.Request("tripno")
        
        Dim str As String = "select client_c,cuscode,ordno,tripno,zoneno  from DDT_tracking where tripno = '" & Trim(trip) & "' "
        'clsdb.getjsonddt("select client_c,cuscode,ordno,tripno,zoneno  from DDT_tracking where tripno = '1026983' ")
       
        Dim Ds As DataSet
        Ds = clsdb.GetdatasetDDT(str)
        Dim Dt As DataTable = Ds.Tables(0)
        Dim i As Integer = 0
        Dim strReturnData As String
        strReturnData = "  " & _
                        " <table cellpadding='0' cellspacing='0' border='0' class='display' id='example'>  " & _
                        "<thead>" & _
                        "<tr><th>No.</th> <th width='20%'>Rendering engine</th>" & _
                        " <th width='25%'>Browser</th>" & _
                        "<th width='25%'>Platform(s)</th>" & _
                        "<th width='15%'>Engine version</th>" & _
                        "<th width='15%'>CSS grade</th> " & _
                        "<th width='15%'><input type='checkbox' name='checkall' id='checkall' text='All' ></th></tr> " & _
                        "</thead>" & _
                        "<tbody>"
        
        For i = 0 To Dt.Rows.Count - 1
            strReturnData &= " <tr> <td></td>"
            strReturnData &= " <td>" & Trim(Dt.Rows(i)("client_c").ToString) & "</td> "
            strReturnData &= " <td>" & Trim(Dt.Rows(i)("cuscode").ToString) & "</td> "
            strReturnData &= " <td>" & Trim(Dt.Rows(i)("ordno").ToString) & "</td> "
            strReturnData &= " <td>" & Trim(Dt.Rows(i)("tripno").ToString) & "</td> "
            strReturnData &= " <td>" & Trim(Dt.Rows(i)("zoneno").ToString) & "</td> "
            strReturnData &= " <td><input type='checkbox' name='check_" & Trim(Dt.Rows(i)("ordno").ToString) & "' value='" & Trim(Dt.Rows(i)("ordno").ToString) & "' class='dd' ></td> "
            strReturnData &= " </tr> "
        Next
  
        strReturnData &= " </tbody> " & _
         " <tfoot> " & _
            " <tr>" & _
                 "<th>No.</th> <th>Rendering engine</th>" & _
                " <th>Browser</th>" & _
                 "<th>Platform(s)</th>" & _
                " <th>Engine version</th>" & _
                 "<th>CSS grade</th>" & _
                 "<th>select</th> " & _
             "</tr>" & _
         "</tfoot>" & _
        "</table>  "
        
        context.Response.Write(strReturnData)
    End Sub

   Public Function GetdatasetDDT(ByVal sql As String) As DataSet
        Dim Ds As New DataSet()
        Try

            Connddthq.Open()
            Dim da As New OleDbDataAdapter(sql, Connddthq)
            da.Fill(Ds)
            Connddthq.Close()

        Catch ex As Exception
            strMsg = "[GetdatasetDDT] err=" & ex.Message.ToString()
        End Try
        Return Ds

    End Function

link ที่เกี่ยวข้อง
http://jquery.com

http://jqueryui.com

http://www.datatables.net



การใช้งาน Datepicker by Jquery UI + ASP.NET

Read More....