Code for Member Registration IN OCS

Public ClassRegMemeber

    InheritsSystem.Web.UI.Page

    Dim con As NewOleDb.OleDbConnection

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.

    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Protected WithEvents TextBox3 AsSystem.Web.UI.WebControls.TextBox

    Protected WithEvents Label6 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents Label4 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents Label3 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents Label2 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents Label1 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents Button1 AsSystem.Web.UI.WebControls.Button

    Protected WithEvents Label8 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents TxtLocation AsSystem.Web.UI.WebControls.TextBox

    Protected WithEvents TxtDesignation AsSystem.Web.UI.WebControls.TextBox

    Protected WithEvents TxtPassword AsSystem.Web.UI.WebControls.TextBox

    Protected WithEvents TxtMemberID AsSystem.Web.UI.WebControls.TextBox

    'NOTE: The following placeholder declaration is required by the Web Form Designer.

    'Do not delete or move it.

    PrivatedesignerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Init

        'CODEGEN: This method call is required by the Web Form Designer

        'Do not modify it using the code editor.

        InitializeComponent()

    End Sub

#End Region

    Private Sub Page_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        con.ConnectionString = Application("Con")

        con.Open()

    End Sub

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

        IfSession("Member") = TxtMemberID.Text Then

            Label8.Text = "Already Information is Posted"

            ExitSub

        End If

        Try

            Dimcmd As NewOleDb.OleDbCommand

            cmd.Connection = con

            Dimquery As String

            query = "Insert into Member Values("

            query = query & SValue(Session("Team")) & ","

            query = query & SValue(TxtMemberID.Text) & ","

            query = query & SValue(TxtPassword.Text) & ","

            query = query & SValue(TxtDesignation.Text) & ","

            query = query & SValue(TxtLocation.Text) & ","

            query = query & "'Member')"

            cmd.CommandText = query

            cmd.ExecuteNonQuery()

            Label8.Text = "The Given Information is Posted"

            Session("Member") = TxtMemberID.Text

        Catchex As Exception

            Label8.Text = ex.Message

        End Try

    End Sub

End Class

Code for Notice Board IN OCS

Public ClassFrmNoticeBoard

    InheritsSystem.Web.UI.Page

    Dim con As NewOleDb.OleDbConnection

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.

    <System.Diagnostics.DebuggerStepThrough()> Private SubInitializeComponent()

    End Sub

    Protected WithEvents Label3 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents Label2 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents Label1 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents Button1 AsSystem.Web.UI.WebControls.Button

    Protected WithEvents Label8 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents Label4 AsSystem.Web.UI.WebControls.Label

    Protected WithEvents TxtMessage AsSystem.Web.UI.WebControls.TextBox

    Protected WithEvents TxtUser AsSystem.Web.UI.WebControls.TextBox

    Protected WithEvents TxtTeamName AsSystem.Web.UI.WebControls.TextBox

    Protected WithEvents ComType AsSystem.Web.UI.WebControls.DropDownList

    Protected WithEvents ComMember AsSystem.Web.UI.WebControls.DropDownList

    Protected WithEvents DataGrid1 AsSystem.Web.UI.WebControls.DataGrid

    'NOTE: The following placeholder declaration is required by the Web Form Designer.

    'Do not delete or move it.

    PrivatedesignerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Init

        'CODEGEN: This method call is required by the Web Form Designer

        'Do not modify it using the code editor.

        InitializeComponent()

    End Sub

#End Region

    Private Sub Page_Load(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        'Put user code to initialize the page here

       

        con.ConnectionString = Application("Con")

        con.Open()

        If Not Page.IsPostBack Then

            TxtTeamName.Text = Session("Team")

            TxtUser.Text = Session("MemID")

            Dimadp As New OleDb.OleDbDataAdapter("Select * from Member where TName='" & Session("Team") & "'", con)

            Dimdset As NewDataSet

            adp.Fill(dset, "MEMBER")

            ComMember.DataSource = dset.Tables(0)

            ComMember.DataValueField = "MEMID"

            ComMember.DataTextField = "MEMID"

            ComMember.DataBind()

            ComMember.Items.Remove(TxtUser.Text)

            Dimquery As String

            query = "Select * from NoticeBoard where VType =0 or VMemID='" & TxtUser.Text & "'"

            Dimdad As NewOleDb.OleDbDataAdapter(query, con)

            Dimds As NewDataSet

            dad.Fill(ds)

            DataGrid1.DataSource = ds

            DataGrid1.DataBind()

        End If

    End Sub

   

    Private Sub ComType_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesComType.SelectedIndexChanged

        ComMember.Visible = False

        IfComType.SelectedIndex = 2 ThenComMember.Visible = True

    End Sub

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

        IfTxtMessage.Text.Length < 0 Then Exit Sub

        Try

            Dimcmd As NewOleDb.OleDbCommand

            cmd.Connection = con

            DimQuery As String

            Query = "Insert into NoticeBoard Values (" & SValue(TxtTeamName.Text) & ","

            Query = Query & SValue(TxtUser.Text) & ","

            IfComType.SelectedIndex = 2 Then

                Query = Query & SValue(ComMember.SelectedValue) & ","

            Else

                Query = Query & "null,"

            EndIf

            Query = Query & ComType.SelectedIndex & ","

            Query = Query & SValue(TxtMessage.Text) & ")"

            Label8.Text = Query

            cmd.CommandText = Query

            cmd.ExecuteNonQuery()

            Label8.Text = "Information Posted"

        Catchex As Exception

            Label8.Text = ex.Message

        End Try

    End Sub

End Class

MAIN MODULES OF ONLINE TEAM COLLABORATION SYSTEM

In "ONLINE TEAM COLLABORATION SYSTEM", the users want to use this system should be registered then he will be allowed to use the system .Every users that they want to use this system must login with their username and password. Then he will be allowed to use the project tracking system and messaging system.

The main modules of the system are

1. Project tracking system

          2. Fast reliable messaging system.

          3. Private discussion forums.

          4. Centralized Storage of team members contact information.

          5. Login system.

          6. Registration system for new users

The “Online Team Collaboration System” is used by three levels of users. They are

           1. Team member

           2. Team Leader

          3. Administrator

1. New User

          If the user links to the system url the home page will be displayed .

In the home page there New Member registration link is provided. By clicking this link the   user  will register and join as a member to the system.

2. Team Leader

After credentials being checked by the system the Team Leader can see the following hyperlinks. By clicking these hyperlinks the team leader will guide to appropriate WebPages.

1.Add new project

          2.Allot tasks to the team members.

                   3.Check Task status.

                   4.Contacts Information

                   5.Scheduling

3. Team Member

         After credentials being checked by the system the Team member can see the following hyperlinks. By clicking these hyperlinks the team leader will guide to appropriate WebPages

1.Asigned Tasks.

                        2.Messages

                        3.Activity

                       4.Scheduling

SCOPE, LIMITATIONS OF PROJECT

 Scope of Usage

           This system can be used as an online service, through internet. This web application is very easy to use and navigable through links. This application has followed some design standards those are already used in software industry.   The time and economical factors are decreased.

Limitations

          This product is tested on Internet Explorer, Netscape Navigator. And this application requires high h/w configurations.

 Foreseeable Enhancement

          1. This Project can also be enhanced to mailing capability.

          2. It can also be enhanced to searching utility.

 Technical Experienced forms this project

          I had a great working experience in SI Software solutions, Bangalore. I have learnt how big projects are actually handled, how work has been divided among the team members, how work in a team and how to interact with other team members. I have learnt about the coding standards followed in software industry and technologies such asASP.net, MS-SQL, and HTML.

SYSTEM IMPLEMENTATION IN OCS

          The important phase of software development is concerned with the translating design specification into source code. The primary goal of implementation is to write source code and internal documentation, so that performance of code to its specifications can be easily verified an so that debugging, testing and modifications are erased. This goal is achieved by making the source code as clear and straight forward as possible.

          The project is developed on windows 2000 server, using Microsoft ASP.net as a server side  technology. The object oriented approach made this application reusable as it works on the platform of classes. Future amendments can be made to this project.

System Testing

System testing is actually a series of different tests whose primary purpose is to fully exercise the computer-based system.  Although each test has a different purpose, all work to verify that all system elements have been properly integrated to perform allocated functions.

 System Security

    

The system should be secure and only registered users with username and password can login to the system. The users of the system should be of four types: Administrator and normal user, team members and team leader. Administrator should be given all the privileges like addition, deletion and modification, where as normal user should be given addition and modification privileges only.

Maintenance

The system should handle all kinds of expectations in an interactive manner. Whenever an exception occurs, the system should display a message indicating the type of exception and should guide the user to overcome that exception.

Testing the main modules of the project

The test cases prepared for testing the main modules of the current project are as follows.

NAME OF THE MODULE: Registration

Field	Input	Output	Action
Name	Null	Name not entered	rectify
Email	Null	Email Required	Fill data
User name	Null	User name Required	Fill data
Password	Null	Password required	Fill Data
Address	Null	Address Required	Fill Data
Phone number	Null	Phone number required	Fill data
All fields entered	Valid	Accept	Start registration process

NAME OF THE MODULE: Login

Field	Input	Output	Action
User name	Null	User name should be not null	Rectify
	Invalid	Reject	Rectify
	Valid	Accept	Start validating
Password	Null	Password should be not null	Fill Data
	Invalid	Reject	Rectify
	Valid	Accept	Start validating

NAME OF THE MODULE: Messaging System

Field	Input	Output	Action
Team name	Null	Team name should be entered	Fill data
	Invalid	Reject	Rectify
	Valid	Accept	Process Data
Sender	Null	Sender name should be entered	Fill data
	Invalid	Reject	Rectify
	Valid	Accept	Send message