Friday, 28 February 2014

A Small Application to Provide Button Level Validation using VB.NET(using Single Table)

Take One DDL for Select ID,One Label for Msg, Two TextBox for ID & Desc and Six Buttons forAdd,Edit,Update,Clear,Delete and Save Operation.
1.While clicking Add Button- ID of Textbox generate automatically and then write descripion on Desc Textbox and then do operation for Save,Clear Operations.
2.While selecting ID of DDL- Then do for Edit,Update,Delete,Clear Operations.

here done Button Validation through 'Enable' features of Button and use Single Table.

Ans:-

Clicking Add Button..
Clicking Edit Button..
Clicking Update Button..
Clicking Save Button..



Clicking Delete Button:-
Clicking Clear Button:-
Default.aspx:-

 <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ Register Assembly="System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"
    Namespace="System.Web.UI" TagPrefix="asp" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Toshfa Operations Using VB</title>
    <%--<script type="text/javascript" language="javascript">
        function validate() {
            var desc = document.getElementById("txtDesc").value;
            var regx = /(^[A-Z]{1}[a-z]*[0-9]*[\s])*&/;
            if (desc.length == "" || desc.length == null) {
                alert("Description should not be Empty..");
                return false;
            }
            else {
                return true;
            }
            if (regx.test(desc)) {
                return true;
            }
            else {
                return false;
            }
        }
    
    </script>--%>
    
    <link href="StyleSheet.css" rel="stylesheet" type="text/css" />
</head>
<body>
    <form id="form1" runat="server">
    <asp:ScriptManager ID="ScriptManager1" runat="server">
    </asp:ScriptManager>
    <div class="divHeader">
    <center>
    <div class="div"><font color="white"> <marquee direction="right"><strong>TOSHFA</strong></marquee></font></div>
    <div class="divMid">
    <asp:UpdatePanel ID="UpdatePanel1" runat="server">
        <ContentTemplate>
    <table>
    <tr><td>Select/Edit</td><td>:</td><td><asp:DropDownList ID="ddlEdit" runat="server" AutoPostBack="true" >
        </asp:DropDownList></td></tr>
    <tr><td>Code</td><td>:</td><td><asp:TextBox ID="txtCode" ReadOnly="true" runat="server"></asp:TextBox></td></tr>
    <tr><td>Description</td><td>:</td><td><asp:TextBox ID="txtDesc" runat="server"></asp:TextBox></td></tr>
        </table> 
        </ContentTemplate>
        </asp:UpdatePanel>                   
        </div> 
        <br />
        <asp:Label ID="lblMsg" ForeColor="Red" runat="server" Text="GetMsgHere.."></asp:Label>
        <br />                
        <div class="divMid">                                                                                                 
        <asp:Button ID="btnAdd" CssClass="button" runat="server" Text="ADD" onclick="btnAdd_Click" 
                AccessKey="A" ToolTip="Alt+A" />
        &nbsp;
        <asp:Button ID="btnEdit" CssClass="button" runat="server" Text="Edit" 
                AccessKey="E" ToolTip="Alt+E" />
        &nbsp;
            <asp:Button ID="btnUpdate" CssClass="button" runat="server" Text="Update" 
                AccessKey="U" ToolTip="Alt+U" />
         &nbsp;
            <asp:Button ID="btnClear" CssClass="button" runat="server" Text="Clear" 
                AccessKey="C" ToolTip="Alt+C" />
             &nbsp;
            <asp:Button ID="btnDelete" CssClass="button" runat="server" Text="Delete" 
                AccessKey="D" ToolTip="Alt+D" />
             &nbsp;
            <asp:Button ID="btnSave" CssClass="button" runat="server" Text="Save" OnClientClick="validate()" AccessKey="S" ToolTip="Alt+S" />
        </div>
        <div class="div">Copy Rirht-2014 @ Acess Meditech Pvt. Ltd. Hyderabad.</div>
   </center>
    
    </div>
    </form>
</body>
</html>

Default.aspx.vb:-

Imports System
Imports System.Data
Imports System.Data.SqlClient

Partial Class _Default
    Inherits System.Web.UI.Page
    Dim cn As SqlConnection
    Dim cmd As SqlCommand
    Dim da As SqlDataAdapter
    Dim dt As DataTable
    Dim obj As New Class1
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack <> True Then
            DdlVisibility()
            btnAuthentication()
        End If
    End Sub
    Sub DdlVisibility()
        ddlEdit.Visible = False
    End Sub
    Sub btnAuthentication()
        obj.btnAuthentication(btnAdd, btnEdit, btnClear, btnSave, btnUpdate, btnDelete, txtCode, txtDesc)

    End Sub
    Sub AddBtnAuthentication()
        obj.btnAddEnabled(btnAdd, btnEdit, btnClear, btnSave, txtDesc)

    End Sub
    Sub EditBtnAuthentication()
        obj.btnEditEnabled(btnAdd, btnEdit, btnClear, btnUpdate, btnDelete, txtDesc)
    End Sub
    Sub ClrbtnAuthentication()
        obj.btnClearEnabled(btnAdd, btnEdit, btnClear, btnUpdate, btnDelete, btnSave)
    End Sub
    Sub UpdatebtnAuthentication()
        obj.btnUpdateEnabled(btnUpdate, btnDelete)
    End Sub
    Sub SavebtnAuthentication()
        obj.btnSaveEnabled(btnSave, btnClear)
    End Sub
    Sub DeletebtnAuthentication()
        obj.btnDeleteEnabled(btnUpdate, btnDelete)
    End Sub


    Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        txtDesc.Focus()
        DdlVisibility()
        AddBtnAuthentication()
        cn = New SqlConnection(obj.GetConnection())
        'cn.Open()                                                                      ' --No need to open the connection here
        cmd = New SqlCommand()
        cmd.Connection = cn
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "spGetMaxCodeNo"                      '--Here increment the Code as per Max value
        da = New SqlDataAdapter(cmd)
        dt = New DataTable()
        da.Fill(dt)
        If dt.Rows.Count > 0 Then
            txtCode.Text = dt.Rows(0)("code").ToString()
        End If
        'cn.Close ()
    End Sub

    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        SavebtnAuthentication()
        cn = New SqlConnection(obj.GetConnection())

        cmd = New SqlCommand()
        cmd.Connection = cn
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "spSaveToshfaData"                                       '--Here Inserting the value in DB
        cmd.Parameters.AddWithValue("@code", txtCode.Text)
        cmd.Parameters.AddWithValue("@description", txtDesc.Text)
        cmd.Parameters.AddWithValue("@smode", "0")
        Dim i As Integer = 0
        Try
            cn.Open()
            i = cmd.ExecuteNonQuery()
            If i > 0 Then
                lblMsg.Text = "Added Successfully.."
            Else
                lblMsg.Text = " Not Added Successfully.."
            End If
        Catch ex As Exception
            lblMsg.Text = ex.Message
        Finally
            cn.Close()
        End Try
    End Sub

    Protected Sub btnEdit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        DdlVisibility()
        ddlEdit.Visible = True
        EditBtnAuthentication()
        cn = New SqlConnection(obj.GetConnection())
        'cn.Open()                                                                          ' --No need to open the connection here
        cmd = New SqlCommand()
        cmd.Connection = cn
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "spShowData"                                    '--Here get data in to the DDL from DB
        da = New SqlDataAdapter(cmd)
        dt = New DataTable()
        da.Fill(dt)
        ddlEdit.DataTextField = "description"
        ddlEdit.DataValueField = "code"
        ddlEdit.DataSource = dt
        ddlEdit.DataBind()
        ddlEdit.Items.Insert(0, "--Select--")
        'cn.Close()
    End Sub

    Protected Sub ddlEdit_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlEdit.SelectedIndexChanged
        cn = New SqlConnection(obj.GetConnection())
        'cn.Open()                                                                       '--No need to open the connection here
        cmd = New SqlCommand()
        cmd.Connection = cn
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "spEditFrmToshfa"                             '--Here change DDl value as per select
        cmd.Parameters.AddWithValue("@code", ddlEdit.SelectedValue.ToString())
        da = New SqlDataAdapter(cmd)
        dt = New DataTable()
        da.Fill(dt)
        If dt.Rows.Count > 0 Then
            txtCode.Text = dt.Rows(0)("code").ToString()
            txtDesc.Text = dt.Rows(0)("description").ToString()
        End If
        'cn.Close()
    End Sub

    Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        UpdatebtnAuthentication()
        cn = New SqlConnection(obj.GetConnection())

        cmd = New SqlCommand()
        cmd.Connection = cn
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "spUpdateToshfaData"                          '--Here Update the data in DB
        cmd.Parameters.AddWithValue("@code", txtCode.Text)
        cmd.Parameters.AddWithValue("@description", txtDesc.Text)
        Dim rowAffected As Integer = 0
        Try
            cn.Open()
            rowAffected = cmd.ExecuteNonQuery()
            If rowAffected > 0 Then
                lblMsg.Text = "Updated.."
            Else
                lblMsg.Text = "Not Updated.."
            End If
        Catch ex As Exception
            lblMsg.Text = ex.Message
        Finally
            cn.Close()
        End Try

    End Sub

    Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        DeletebtnAuthentication()
        cn = New SqlConnection(obj.GetConnection())

        cmd = New SqlCommand()
        cmd.Connection = cn
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "spDeleteFromToshfa"                           '--Here Delete the data from DB
        cmd.Parameters.AddWithValue("@code", txtCode.Text)
        Dim rowAffected As Integer = 0
        Try
            cn.Open()
            rowAffected = cmd.ExecuteNonQuery()
            If rowAffected > 0 Then
                lblMsg.Text = "Deleted Successfully.."
            Else
                lblMsg.Text = "Not Deleted.."
            End If
        Catch ex As Exception
            lblMsg.Text = ex.Message
        Finally
            cn.Close()
        End Try
    End Sub

    Protected Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click
        DdlVisibility()
        ClrbtnAuthentication()
        txtCode.Text = String.Empty.ToString()
        txtDesc.Text = String.Empty.ToString()                          '--Here Clearing the data from txtbx & ddl
        ddlEdit.Items.Clear()
        lblMsg.Text = "All Cleared..Go Ahead..."
    End Sub
End Class

Get Connection Through Class file:-

Imports Microsoft.VisualBasic
Imports System.Web.UI.WebControls.Button
Imports System.Web.UI.WebControls.WebParts

Public Class Class1

    Public Function GetConnection() As String
        Dim strCon As String = "server=192.168.0.200;database=subsdb;user id=sa;pwd=amtpl@123"
        Return strCon
    End Function

    Public Sub btnAuthentication(ByVal bAdd As Button, ByVal bEdit As Button, ByVal bClear As Button, ByVal bSave As Button, ByVal bUpdate As Button, ByVal bDelete As Button, ByVal tbCode As TextBox, ByVal tbDesc As TextBox)

        bAdd.Enabled = False
        bEdit.Enabled = False
        bClear.Enabled = True
        bSave.Enabled = False
        bUpdate.Enabled = False
        bDelete.Enabled = False
        tbCode.Enabled = False
        tbDesc.Enabled = False
    End Sub

    Public Sub btnAddEnabled(ByVal bAdd As Button, ByVal bEdit As Button, ByVal bClear As Button, ByVal bSave As Button, ByVal tbDesc As TextBox)
        bAdd.Enabled = False
        bEdit.Enabled = False
        tbDesc.Enabled = True
        bSave.Enabled = True
        bClear.Enabled = True
    End Sub

    Public Sub btnEditEnabled(ByVal bAdd As Button, ByVal bEdit As Button, ByVal bClear As Button, ByVal bUpdate As Button, ByVal bDelete As Button, ByVal tbDesc As TextBox)
        bAdd.Enabled = False
        tbDesc.Enabled = True
        bUpdate.Enabled = True
        bClear.Enabled = True
        bEdit.Enabled = False
        bDelete.Enabled = True
    End Sub

    Public Sub btnClearEnabled(ByVal bAdd As Button, ByVal bEdit As Button, ByVal bClear As Button, ByVal bUpdate As Button, ByVal bDelete As Button, ByVal bSave As Button)
        bClear.Enabled = False
        bSave.Enabled = False
        bUpdate.Enabled = False
        bDelete.Enabled = False
        bAdd.Enabled = True
        bEdit.Enabled = True
    End Sub

    Public Sub btnUpdateEnabled(ByVal bUpdate As Button, ByVal bDelete As Button)
        bUpdate.Enabled = False
        bDelete.Enabled = False
    End Sub

    Public Sub btnSaveEnabled(ByVal bSave As Button, ByVal bClear As Button)
        bSave.Enabled = False
        bClear.Enabled = True
    End Sub

    Public Sub btnDeleteEnabled(ByVal bUpdate As Button, ByVal bDelete As Button)
        bUpdate.Enabled = False
        bDelete.Enabled = False
    End Sub

End Class

For Style write CSS code here:-

.divHeader
{
    border-color:Red;
    border-style:solid;
    border-width:2px;
    
    }
.div
{
    background-color:Gray;
}
.divMid
{
background-color:#CCFFFF;
}
.button{ background-color:Aqua; 
         border-bottom-color:Black; 
         width:70px; 
         height:25px
}

For Create Table and Stored Procedure:-


use subsdb


create table toshfa(code int constraint p_key primary key,description varchar(30))

--Insert code by max() & pass variable of description
--create proc spAddInToshfa(@description varchar(30))
--as
--begin
--insert into toshfa(code,description)values((select isnull(MAX(code),0)+1 from toshfa),@description)
--end

--exec spAddInToshfa 'fdsgggg'

--insert into test(id,name)values((select isnull(MAX(id),0)+1 from test),'nname')

--Delete

create proc spDeleteFromToshfa(@code int)
as
begin
delete from toshfa where code=@code;
end

exec spDeleteFromToshfa 2

--Edit/using selecting DDL and show in txtbx

create proc spEditFrmToshfa(@code int)
as
begin
select code,description from toshfa where code=@code;
end

--Show Data

create proc spShowData
as
begin
select description+'-'+cast(code as varchar)as description,code  from toshfa
end

--Get Max Code

create proc spGetMaxCodeNo
as
begin
select MAX(code)+1 as code from toshfa;
end

--Save

CREATE proc spSaveToshfaData(@code int,@description varchar(30),@smode int)  
as  
begin  
if @smode=0 
begin
select @code=isnull(max(code),0)+1 from toshfa
insert into toshfa(code,description)values(@code,@description) 
end 
else
begin
update toshfa set description=@description  where code=@code 
end
end

--Save
--create proc spSaveToshfaData(@code int,@description varchar(30))
--as
--begin
--insert into toshfa(code,description)values(@code,@description)
--end

--Update

create proc spUpdateToshfaData(@code int,@description varchar(30))
as
begin
update toshfa set description=@description where code=@code;
end

exec spUpdateToshfaData 1,'subs'
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)