Blog for coders

Tuesday, September 11, 2012

Add fck editor in php

include "fckeditor/fckeditor.php"; //Top of the page

where you need the edior

$FCKeditor = new FCKeditor('FCKeditor1');

$FCKeditor->BasePath = 'fckeditor/';

$FCKeditor->Value = $content;

$FCKeditor->Height = '400px';

$FCKeditor->Create();

Monday, September 10, 2012

To find the second highest salary from a table

select top 1 name,id from tbltest where name not in (select top 1 name from tbltest order by name desc) order by name desc

Same if you want to select the nth highest salary from a table

select top 1 name,id from tbltest where name not in (select top n name from tbltest order by name desc) order by name desc

Thursday, August 30, 2012

Convert number into words in SQL server

Create a function named InWords

CREATE FUNCTION [dbo].[InWords] (@intNumberValue bigint)
RETURNS VARCHAR(2000)
AS
BEGIN
DECLARE @strNumberString VARCHAR(9)
DECLARE @strReturn VARCHAR(2000)
DECLARE @intUnits SMALLINT
-- Create table of number groups
DECLARE @tblNumberGroups TABLE (Units SMALLINT, Hundreds SMALLINT, Tens SMALLINT)
-- Handle errors and 'quick wins'
IF @intNumberValue IS NULL RETURN NULL
IF ISNUMERIC(@intNumberValue)=0 RETURN NULL
IF @intNumberValue = 0 RETURN 'ZERO'
IF @intNumberValue < 0
BEGIN
SET @strReturn='MINUS '
SET @intNumberValue=ABS(@intNumberValue)
END
SET @intUnits =0
-- Populate table of number groups
WHILE (@intNumberValue % 1000) > 0 OR (@intNumberValue/1000) >0
BEGIN
INSERT INTO @tblNumberGroups (Units, Hundreds, Tens) VALUES (@intUnits, (@intNumberValue % 1000)/100, (@intNumberValue % 1000) % 100 )
SELECT @intNumberValue = CAST (@intNumberValue / 1000 AS INTEGER)
SET @intUnits = @intUnits + 1
END
-- Remove last unit added
SET @intUnits = @intUnits-1
-- Concatenate text number by reading number groups in reverse order
SELECT @strReturn = ISNULL(@strReturn,' ') +
ISNULL(
ISNULL((CASE Hundreds
WHEN 1 THEN 'ONE HUNDRED '
WHEN 2 THEN 'TWO HUNDRED '
WHEN 3 THEN 'THREE HUNDRED '
WHEN 4 THEN 'FOUR HUNDRED '
WHEN 5 THEN 'FIVE HUNDRED '
WHEN 6 THEN 'SIX HUNDRED '
WHEN 7 THEN 'SEVEN HUNDRED '
WHEN 8 THEN 'EIGHT HUNDRED '
WHEN 9 THEN 'NINE HUNDRED '
END),' ') +
CASE WHEN (Hundreds >0 OR Units<@intUnits) AND Tens > 0 THEN ' AND ' ELSE ' ' END +
ISNULL((CASE Tens / 10
WHEN 2 THEN 'TWENTY '
WHEN 3 THEN 'THIRTY '
WHEN 4 THEN 'FORTY '
WHEN 5 THEN 'FIFTY '
WHEN 6 THEN 'SIXTY '
WHEN 7 THEN 'SEVENTY '
WHEN 8 THEN 'EIGHTY '
WHEN 9 THEN 'NINETY '
END),' ') +
ISNULL((CASE Tens
WHEN 10 THEN 'TEN '
WHEN 11 THEN 'ELEVEN '
WHEN 12 THEN 'TWELVE '
WHEN 13 THEN 'THIRTEEN '
WHEN 14 THEN 'FOURTEEN '
WHEN 15 THEN 'FIFTEEN '
WHEN 16 THEN 'SIXTEEN '
WHEN 17 THEN 'SEVENTEEN '
WHEN 18 THEN 'EIGHTEEN '
WHEN 19 THEN 'NINETEEN '
END),' ') +
COALESCE(
CASE WHEN Tens %10 =1 AND Tens / 10 <> 1 THEN 'ONE ' END,
CASE WHEN Tens %10 =2 AND Tens / 10 <> 1 THEN 'TWO ' END,
CASE WHEN Tens %10 =3 AND Tens / 10 <> 1 THEN 'THREE ' END,
CASE WHEN Tens %10 =4 AND Tens / 10 <> 1 THEN 'FOUR ' END,
CASE WHEN Tens %10 =5 AND Tens / 10 <> 1 THEN 'FIVE ' END,
CASE WHEN Tens %10 =6 AND Tens / 10 <> 1 THEN 'SIX ' END,
CASE WHEN Tens %10 =7 AND Tens / 10 <> 1 THEN 'SEVEN ' END,
CASE WHEN Tens %10 =8 AND Tens / 10 <> 1 THEN 'EIGHT ' END,
CASE WHEN Tens %10 =9 AND Tens / 10 <> 1 THEN 'NINE ' END,
' ')+
COALESCE(
CASE WHEN Units=1 AND (Hundreds>0 OR Tens>0) THEN 'THOUSAND ' END,
CASE WHEN Units=2 AND (Hundreds>0 OR Tens>0) THEN 'MILLION ' END,
CASE WHEN Units=3 AND (Hundreds>0 OR Tens>0) THEN 'BILLION ' END,
CASE WHEN Units=4 AND (Hundreds>0 OR Tens>0) THEN 'TRILLION ' END,
' ')
,' ')
FROM @tblNumberGroups
ORDER BY units DESC

-- Get rid of all the spaces
WHILE CHARINDEX(' ', @strReturn)>0
BEGIN
SET @strReturn = REPLACE(@strReturn,' ',' ')
END
SET @strReturn = LTRIM(RTRIM(@strReturn))
RETURN @strReturn
END
GO

Now execute the query to call the function with the given parameters and get the result
select dbo.InWords(-234973555459)
---------------------------------------------------------------
MINUS TWO HUNDRED AND THIRTY FOUR BILLION NINE HUNDRED AND SEVENTY THREE MILLION FIVE HUNDRED AND FIFTY FIVE THOUSAND FOUR HUNDRED AND FIFTY NINE

For more you can visit
http://stackoverflow.com/questions/4245330/sql-query-for-retrieving-numeric-value-and-printing-as-words

Wednesday, August 29, 2012

Convert Numeric value in words in PHP

Get Query string values from Javascript

Saturday, August 18, 2012

If your are having a problem with "DbContext" class in Entity coding.
Please download the dll from http://packages.nuget.org/v1/package/download/entityframework/4.3.0
and remane "EntityFramework.4.3.0.nupkg" to "EntityFramework.4.3.0.nupkg.rar".
Add the dll reference into your project and go on .

thanks

Thursday, May 10, 2012

add ToolStripMenuItem in ContextMenuStrip

Dim n As New NotifyIcon
Dim icon1 As New Icon("1.ico")
        n.Icon = icon1

        n.Visible = True

Private Sub DisplayContextMenus()

        Dim _ContextMenu As New ContextMenuStrip, cMenuMod As New ToolStripMenuItem, cMenuSubMod As New ToolStripMenuItem, MenuForm As New ToolStripMenuItem
        Dim dtModule As New DataTable
        Dim dtSubModule As New DataTable
        Dim dtForm As New DataTable
        'Addition of User Privilege Menus
        dtModule = _CDALMenu.Dotask("GET_MODULE_BY_USER_ID", 0, 0, modgrocery.iUserid, "", 0)
        For i As Integer = 0 To dtModule.Rows.Count - 1
            cMenuMod = New ToolStripMenuItem
            With cMenuMod
                .Text = "&" & dtModule.Rows(i)("mod_name").ToString
                .Name = dtModule.Rows(i)("mod_name").ToString
            End With
            'Addition of User Privilege SubMenus
            dtSubModule = _CDALMenu.Dotask("GET_SUBMODULE_BY_MODID_USER_ID", dtModule.Rows(i)("mod_id").ToString, 0, modgrocery.iUserid, "", 0)
            For j As Integer = 0 To dtSubModule.Rows.Count - 1
                cMenuSubMod = New ToolStripMenuItem
                With cMenuSubMod
                    .Text = "&" & dtSubModule(j)("smd_name").ToString
                    .Name = dtSubModule(j)("smd_name").ToString
                End With
                dtForm = _CDALMenu.Dotask("GET_FORM_BY_SUBMODID_USER_ID", 0, dtSubModule.Rows(j)("smd_id").ToString, modgrocery.iUserid, "", 0)
                For k As Integer = 0 To dtForm.Rows.Count - 1
                    MenuForm = New ToolStripMenuItem
                    With MenuForm
                        .Text = "&" & dtForm(k)("frm_name").ToString
                        .Name = dtForm(k)("frm_name").ToString
                    End With

                    ' cMenuSubMod.DropDownItems.Add(MenuForm.ToString, Nothing, New System.EventHandler(AddressOf SelectedChildMenu_OnClick))
                    ' cMenuSubMod.Items.Add(MenuForm)
                    cMenuSubMod.DropDownItems.Add(MenuForm.ToString, Nothing, New System.EventHandler(AddressOf SelectedChildMenu_OnClick))
                    cMenuMod.DropDownItems.Add(cMenuSubMod)
                    'cMenuSubMod.MenuItems.Add(MenuForm)
                    'cMenuMod.i.Add(cMenuSubMod)
                    '_ContextMenu.MenuItems.Add(
                Next
            Next
            _ContextMenu.Items.Add(cMenuSubMod)
            ' _ContextMe'nu.Items.Add(
        Next
        n.ContextMenuStrip = _ContextMenu
    End Sub