RedSouljaz Blog

Collapsible Drag & Drop Panels like Wordpress Dashboard using Jquery and ASP.NET

admin — Mon, 25 Apr 2011 09:02:49 +0000

I found a great article that teach us how to create drag and drop panel like dashboard in wordpress panel.
In this sites: http://webdeveloperplus.com/jquery/saving-state-for-collapsible-drag-drop-panels/ shows us how to create the drag and drop panel and save the state in PHP and mysql. In this article, I will show the code in ASP.NET using SQL Server 2005.

First, download jquery at http://jquery.com/
Second, create a testing table name it: widgets

CREATE TABLE [dbo].[widgets](
	[id] [int] IDENTITY(1,1) NOT NULL,
	[column_id] [int] NULL,
	[sort_no] [int] NULL,
	[collapsed] [int] NULL,
	[title] [varchar](100) NULL
)

- id stores the id of panel.
- column_id is the column number to which panel belongs.
- sort_no is the order of panel within column.
- collapsed stores information about whether the panel is collapsed or not.
- title is the title of the widget.

Insert data to widgets as screenshot below:

In ASP.NET Project, create xsd file to retrieve and insert data to widgets table and name it as ds_widget.xsd :

In widgetsDetailTableAdapter, use below query:
SELECT * FROM widgets WHERE column_id=@column_id ORDER BY sort_no

for UpdateQuery, use below query:
update widgets set column_id = @column_id, sort_no = @sort_no, collapsed = @collapsed
where id = @widgetid

Create new webpage, add these code

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>


<%@ Import Namespace="System.Data" %>


    
        
	    
       
    


    
    <%
        Response.Write("")

        'Must set the column manually
        For i As Integer = 1 To 2
            Response.Write("")
            Dim ds2 As ds_widgetTableAdapters.widgetsDetailTableAdapter = New ds_widgetTableAdapters.widgetsDetailTableAdapter
            Dim dt2 As New DataTable
            Try
                dt2 = ds2.GetData(i)
                For a As Integer = 0 To dt2.Rows.Count - 1
                    Response.Write("")
                    Response.Write("" & dt2.Rows(a)("title") & "")
                    Response.Write("", ">"))
                    Response.Write("TESTIS")
                    Response.Write("")
                    Response.Write("")
                Next
            Catch ex As Exception

            End Try
            Response.Write("")
        Next
            %>

Explanation:
In above code, we use post method that we call from widgetUpdate.aspx to save the state panel into database.
Here is the code for widgetUpdate.aspx (back Code using VB.NET)

Partial Public Class widgetUpdate
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim id As String = Request.Form("id")
        Dim collapsed As String = Request.Form("collapsed")
        Dim order As String = Request.Form("order")
        Dim column As String = Request.Form("column")

        Try
            'Dim products As List(Of widgets) = js.DeserializeObject(Request.Form("dataItem"))
            Dim qa As ds_widgetTableAdapters.QueriesTableAdapter = New ds_widgetTableAdapters.QueriesTableAdapter
            qa.UpdateQuery(extractNumber(column), order, collapsed, extractNumber(id))
        Catch ex As Exception

        End Try
    End Sub

    Function extractNumber(ByVal expression As String) As Integer
        Dim re As New Regex("[0-9]")
        Dim m As Match = re.Match(expression)
        Return m.Value
    End Function
End Class

The code is quite simple, we just get all the parameter that was sent from the main page, and save it to database based on the data that we received.
Extract Number function is used to get the number for the id and column no from the string.

For CSS CODE:

.column{
	width:49%;
	margin-right:.5%;
	min-height:300px;
	background:#fff;
	float:left;
}
.column .dragbox{
	margin:5px 2px  20px;
	background:#fff;
	position:relative;
	border:1px solid #ddd;
	-moz-border-radius:5px;
	-webkit-border-radius:5px;
}
.column .dragbox h2{
	margin:0;
	font-size:12px;
	padding:5px;
	background:#f0f0f0;
	color:#000;
	border-bottom:1px solid #eee;
	font-family:Verdana;
	cursor:move;
}
.dragbox-content{
	background:#fff;
	min-height:100px; margin:5px;
	font-family:'Lucida Grande', Verdana; font-size:0.8em; line-height:1.5em;
}
.column  .placeholder{
	background: #f0f0f0;
	border:1px dashed #ddd;
}
.dragbox h2.collapse{
	background:#f0f0f0 url('images/collapse.png') no-repeat top right;
}
.dragbox h2 .configure{
	font-size:11px; font-weight:normal;
	margin-right:30px; float:right;
}

A simpler collapsible drag & drop without can be read at:
http://webdeveloperplus.com/jquery/collpasible-drag-drop-panels/

Download Sourcecode:
http://www.mediafire.com/?0b0i6jd0p1kszb4

VB.NET – ASP.NET communication between user control and web page using event handler

admin — Thu, 21 Apr 2011 10:09:36 +0000

In this post, we want to show how button in user control communicate with web page in asp.net

First create user control called button.ascx.

Add 3 button, name it btnSave, btnEdit and btnCancel.

in button.ascx back code, add this code:

Public Partial Class button
    Inherits System.Web.UI.UserControl
    Public Event btnSaveHandler As System.EventHandler
    Public Event btnEditHandler As System.EventHandler
    Public Event btnCancelHandler As System.EventHandler

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSave.Click
        RaiseEvent btnSaveHandler(Me, New EventArgs())
    End Sub

    Protected Sub btnEdit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnEdit.Click
        RaiseEvent btnEditHandler(Me, New EventArgs())
    End Sub

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancel.Click
        RaiseEvent btnCancelHandler(Me, New EventArgs())
    End Sub
End Class

In Default.aspx, add 1 label called label1, then drag the button.ascx to the default.aspx.
Add code in default.aspx as below:

Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = Request.QueryString("label")
        AddHandler button1.btnCancelHandler, AddressOf cancelClick
        AddHandler button1.btnEditHandler, AddressOf editClick
        AddHandler button1.btnSaveHandler, AddressOf saveClick
    End Sub

    Private Sub cancelClick(ByVal sender As Object, ByVal e As EventArgs)
        Response.Redirect("default.aspx?label=Cancel")
    End Sub

    Private Sub editClick(ByVal sender As Object, ByVal e As EventArgs)
        Response.Redirect("default.aspx?label=Edit")
    End Sub

    Private Sub saveClick(ByVal sender As Object, ByVal e As EventArgs)
        Response.Redirect("default.aspx?label=Save")
    End Sub
End Class

Run it, you will see that button that we create in user control can be manipulate and used in default.aspx
See other example for communication between user control and page in:
http://www.codeproject.com/KB/user-controls/Page_UserControl.aspx

Fun with Pic Scatter for Facebook Profile

admin — Sat, 08 Jan 2011 15:06:34 +0000

Check this cool website tools to make your facebook profile picture more killer. Website: http://picscatter.com/

ILight Marina Bay Singapore

admin — Mon, 08 Nov 2010 12:33:36 +0000

Lumenocity Singapore

Digital Origami Tiger

Positive Attracts

My Public Garden

Star Cruise Superstar Virgo Trip to Redang

pinksouljaz — Sun, 03 Oct 2010 08:20:16 +0000

This was my first time took cruise and it was awesome. A nice view from the cruise itself seeing the ocean blue and the beautiful sky although the food they serve is average taste with abundant quantity to fill up your hunger.

They serve breakfast, morning tea, lunch, afternoon tea, dinner and supper. We can choose either chinese, western or international buffet serving.

The cruise staff was nice, they were friendly. They have tons of activities from kids to family. I had enjoyed the activities for the family.

The second day, we arrive at pulau redang which is our destination we only stop there for 6 hours. So, after lunch we went to that small island took a ferry from the cruise. When we get there, when we saw the beach.. wow beautiful.. its very nice, the fine sands, the sea… it is beautiful..

When we get there, my husband forgotten to bring ringgit malaysia which that we had prepared. We are lucky there were money changer at the resort lobby. So before we took off from the beach we enjoy 2 cold coconut… it was very nice to have coconut in such a hot weather

We decided to took off earlier to avoid long queue as wee need to take ferry to get back to the cruise..

We were exhausted that night, but we still watch one more show after dinner. Then we get back to our cabin to pack up our stuff as the third day we have to disembark from the cruise.

By: PinkSouljaz

ASP.NET – GridView – Get Hidden Field Value in RowCommand

admin — Tue, 21 Sep 2010 10:12:28 +0000

There is a problem when we set BoundField visibility to false, the column isn’t rendered to the client. A work around would be to use a HiddenField within a TemplateField instead.

Back Code:

    Protected Sub gridview1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gridview1.RowCommand

        If e.CommandName = "GetMemberID" Then

            Session("GetMemberID") = e.CommandArgument.ToString()

            Dim gv As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).NamingContainer, GridViewRow)

            Dim i As Integer = gv.RowIndex

            Dim row As GridViewRow = gridview1.Rows(i)

            Dim hidden As HiddenField = DirectCast(row.Cells(0).FindControl("fieldid"), HiddenField)

            Dim fieldid As Integer = CInt(hidden.Value)

        End If

    End Sub

Ask for username and password when calling reporting service

admin — Tue, 22 Jun 2010 03:42:47 +0000

These code allow us to set username and password for reporting services to avoid popup request authentication.

This code tested in Visual Studio 2008 and Reporting Services from SQL Server 2005

First create a class called ReportServerCredentials.vb

Imports Microsoft.VisualBasic
Imports Microsoft.Reporting.WebForms
Imports System.Security.Principal

Public NotInheritable Class ReportServerCredentials
    Implements IReportServerCredentials

    Public ReadOnly Property ImpersonationUser() As WindowsIdentity _
            Implements IReportServerCredentials.ImpersonationUser
        Get

            'Use the default windows user.  Credentials will be
            'provided by the NetworkCredentials property.
            Return Nothing

        End Get
    End Property

    Public ReadOnly Property NetworkCredentials() As Net.ICredentials _
            Implements IReportServerCredentials.NetworkCredentials
        Get

            'Read the user information from the web.config file.
            'By reading the information on demand instead of storing
            'it, the credentials will not be stored in session,
            'reducing the vulnerable surface area to the web.config
            'file, which can be secured with an ACL.

            'User name
            Dim userName As String = _
                ConfigurationManager.AppSettings("UserName")

            If (String.IsNullOrEmpty(userName)) Then
                Throw New Exception("Missing user name from web.config file")
            End If

            'Password
            Dim password As String = _
                ConfigurationManager.AppSettings("Password")

            If (String.IsNullOrEmpty(password)) Then
                Throw New Exception("Missing password from web.config file")
            End If

            'Domain
            Dim domain As String = _
                ConfigurationManager.AppSettings("SERVERNAME")

            If (String.IsNullOrEmpty(domain)) Then
                Throw New Exception("Missing domain from web.config file")
            End If

            Return New Net.NetworkCredential(userName, password, domain)

        End Get
    End Property

    Public Function GetFormsCredentials(ByRef authCookie As System.Net.Cookie, _
                                        ByRef userName As String, _
                                        ByRef password As String, _
                                        ByRef authority As String) _
                                        As Boolean _
            Implements IReportServerCredentials.GetFormsCredentials

        authCookie = Nothing
        userName = Nothing
        password = Nothing
        authority = Nothing

        'Not using form credentials
        Return False

    End Function

End Class

Second, add parameter key to your web.config

And then add this line of code before calling reportserverURL in the report view page:

ReportViewer1.ServerReport.ReportServerCredentials = New ReportServerCredentials()

Send Email with multiple attachments from VB.NET

admin — Thu, 03 Jun 2010 09:43:17 +0000

This code show how to send email multiple attachments from vb.net by using System.Net.Mail

1. This is how you use it

Dim fileAttch = New ArrayList
fileAttch.Add("C:\test.csv")
fileAttch.Add("C:\test2.csv")
fileAttch.Add("C:\test3.csv")

sendEmail.send(your_emailHost, "no-reply@company.com", your_EmailTo, your_EmailSubject, your_EmailBody, your_EmailccTo, fileAttch)

2. Create a class called sendEmail.vb

Imports System.IO
Imports System.Net.Mail
Imports Microsoft.VisualBasic
Imports System

Public Class sendEmail

    Public Shared Sub send(ByVal smtpHost As String, ByVal fromEmail As String, ByVal toEmail As String, ByVal subject As String, ByVal body As String, ByVal cc As String, Optional ByVal AttachmentFiles As ArrayList = Nothing)
        Dim mail As New MailMessage()

        '-----------------------------------
        'Set Email Address
        '-----------------------------------
        mail.From = New MailAddress(fromEmail)

        If toEmail = "" Then
            Throw New Exception("Error: No email address to send")
        End If
        If toEmail.Contains(";") Then
            Dim emailList As String()
            emailList = toEmail.Split(";")
            For Each email As String In emailList
                mail.To.Add(email)
            Next
        Else
            mail.To.Add(toEmail)
        End If
        If cc <> "" Then
            If cc.Contains(";") Then
                Dim ccList As String()
                ccList = cc.Split(";")
                For Each ccTo As String In ccList
                    mail.CC.Add(ccTo)
                Next
            Else
                mail.CC.Add(cc)
            End If
        End If

        '-----------------------------------
        'Set Email Address Content
        '-----------------------------------
        mail.Subject = subject
        mail.IsBodyHtml = True
        mail.Body = body

        Dim i As Integer
        Dim Attachment As System.Net.Mail.Attachment

        For i = 0 To AttachmentFiles.Count - 1
            If FileExists(AttachmentFiles(i)) Then
                Attachment = New Net.Mail.Attachment(AttachmentFiles(i))
                mail.Attachments.Add(Attachment)
            End If
        Next

        '-----------------------------------
        'Set Email Address Host
        '-----------------------------------
        Dim smtp As New SmtpClient(smtpHost)
        Try
            smtp.Send(mail)
        Catch ex As Exception
            '-------------------------------------------------
            MsgBox("Error " & ex.Message)
            '-------------------------------------------------
        End Try

    End Sub

    Private Shared Function FileExists(ByVal FileFullPath As String) As Boolean
        If Trim(FileFullPath) = "" Then Return False

        Dim f As New IO.FileInfo(FileFullPath)
        Return f.Exists

    End Function

End Class

Get first day of the month and last day of the month in VB.NET

admin — Thu, 03 Jun 2010 09:31:41 +0000

This code show how to get first date of the month and last day of the month date.

Private Function GetFirstDayOfMonth(ByVal dtDate As DateTime) As DateTime
        Dim dtFrom As DateTime = dtDate
        dtFrom = dtFrom.AddDays(-(dtFrom.Day - 1))
        Return dtFrom
    End Function

    Private Function GetLastDayOfMonth(ByVal dtDate As DateTime) As DateTime
        Dim dtTo As New DateTime(dtDate.Year, dtDate.Month, 1)
        dtTo = dtTo.AddMonths(1)
        dtTo = dtTo.AddDays(-(dtTo.Day))
        Return dtTo
    End Function

'if you put code like:
GetFirstDayOfMonth("2010-05-05") ' It will return = 2010-05-01
GetLastDayOfMonth("2010-05-05") ' It will return = 2010-05-31

VB.NET Set Data Table to CSV File

admin — Thu, 03 Jun 2010 09:22:08 +0000

This function show how to Convert DataTable to CSV File

    Sub SetDataTable_To_CSV(ByVal dtable As DataTable, ByVal path_filename As String, ByVal sep_char As String)
        Dim writer As System.IO.StreamWriter
        Try
            writer = New System.IO.StreamWriter(path_filename)

            Dim _sep As String = ""
            Dim builder As New System.Text.StringBuilder
            For Each col As DataColumn In dtable.Columns
                builder.Append(_sep).Append(col.ColumnName)
                _sep = sep_char
            Next
            writer.WriteLine(builder.ToString())

            For Each row As DataRow In dtable.Rows
                _sep = ""
                builder = New System.Text.StringBuilder

                For Each col As DataColumn In dtable.Columns
                    builder.Append(_sep).Append(row(col.ColumnName))
                    _sep = sep_char
                Next
                writer.WriteLine(builder.ToString())
            Next
        Catch ex As Exception

        Finally
            If Not writer Is Nothing Then writer.Close()
        End Try
    End Sub

This is how you use it

Dim dt As New DataTable
SetDataTable_To_CSV(dt, "C:\test.csv", ",")