Jump to content

User:SivakumarChidambaram/SDLC

From Wikipedia, the free encyclopedia

New article name is


References[edit]

External links[edit]




Program management (Software) (Article under construction)

Table of Contents

SDLC: Software Development Life Cycle. 1

1. Requirement Analysis -> Feasibility Report. 1

Pros and Cons of Nuclear Energy ( Exercise topic). 2

Other Research areas: 4



SDLC: Software Development Life Cycle


Phases of SDLC (and the deliverable at each phase):


1. Requirement Analysis -> Feasibility Report 

               After a few meetings with the customer the Analyst Programmer (AP) decides what is possible and feasible to be done with in the given budget of the project. Ap makes a list of features the software will do and more importantly what it WILL NOT DO and prepares a pilot (demo) software for the user to see. Upon mutual agreement, the development work starts.

Example: Creation of a web Site(www.VMB.com) for a Matrimonial Service (Marriage Bureau) similar to www.Shaadi.com, www.intimateMatrimonials.com , www.smsKerala.com , www.meetMatch.com , www.Grihasta.com etc

In this case of preparing the web pages for www.VMB.com (VMB = Vaishnava Marriage Bureau ), apart the standard hardware requirements of a PC, Internet connection, minimum 1GB space, 512 MB RAM, GHZ clock speed, the specific softwares needed would be as follows:

1. WAMP or LAMP Server ( Apache, MySQL, PHP on either Windows or Linux)

2. Domain hosting – either from a third party vendor like www.TopHostReviews.com , www.eWebGuru.com , www.net4Domain.com , www.indiaHosting.org , www.HostVoice.com and so on, or from an in-house hosting service like www.indNet.net In this case the Client(Customer) has a pre purchased space with www.indent.net and hence it can be used to for hosting the web pages.

3. The site’s pages can be developed off line using WAMP server and uploaded after the QA(Quality Assurance) phase.

2. Data Analysis -> DFD Data Flow Diagram

3. SAD System Analysis & Design

4. Program Design

5. Detailed DB design

6. Test Cases

7. Implementation & Contingency plan

8. User Manuals & Training sessions

9. Software SIGNOFF

10. Post Sales Support

11. Future versions/enhancements/ongoing maintanence

An Example Source code or a VB . Net Project: Advertisement Management System


Imports System.Data.SqlClient Module General 

   'Public con As New SqlConnection("Data Source=ADMIN;Initial Catalog=master;Integrated Security=True")
   Public con As New SqlConnection("Data Source=ADMIN;Initial Catalog=master;Integrated Security=True")

   Public Sub Openconnection()
       Try
           If con.State = ConnectionState.Open Then con.Close()
           con.Open()
       Catch ex As Exception

       End Try
   End Sub
   Public Sub CloseConnection()
       con.Close()
   End Sub
   Public Function FunId(ByVal feild As String, ByVal tbl As String) As Integer
       Dim ret As Integer
       Dim da As New SqlDataAdapter("select max(" & feild & ") from " & tbl, con)
       Dim ddt As New DataTable
       da.Fill(ddt)
       If ddt.Rows.Count > 0 Then
           If IsDBNull(ddt.Rows(0).Item(0)) = True Then
               ret = 1
           Else
               ret = Val(ddt.Rows(0).Item(0)) + 1
           End If
       Else
           ret = 1
       End If
       ddt.Dispose()
       da.Dispose()

       Return ret
   End Function
   Public Sub FillItem(ByVal fld As String, ByVal tbl As String, ByVal cmb As ComboBox)
       Openconnection()
       Try
           Dim ccm As New SqlCommand("select distinct(" & fld & ") from " & tbl, con)
           Dim dr As SqlDataReader
           dr = ccm.ExecuteReader
           cmb.Items.Clear()
           While dr.Read
               cmb.Items.Add(dr(0).ToString)
           End While
           dr.Close()
           ccm.Dispose()
       Catch ex As Exception

       End Try

   End Sub

End Module


Imports System.Data.SqlClient Public Class Main 

   Dim cst As Customer
   Dim con As New SqlConnection
   Dim mar As Marketing
   Dim Ord As FrmOrderDet
   Dim bil As FrmBill
   Dim rptf As FormRpt
   Dim vc As ViewCust
   Dim vo As ViewOrder
   Dim vb As ViewBill
   Private Sub CustomerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerToolStripMenuItem.Click
       cst = New Customer
       cst.MdiParent = Me
       cst.Show()
   End Sub

   Private Sub MarketingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MarketingToolStripMenuItem.Click
       mar = New Marketing
       mar.MdiParent = Me
       mar.Show()

   End Sub

   Private Sub Main_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       End
   End Sub

   Private Sub Main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

   End Sub

   Private Sub OrderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrderToolStripMenuItem.Click
       Ord = New FrmOrderDet
       Ord.MdiParent = Me
       Ord.Show()
   End Sub

   Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
       End
   End Sub

   Private Sub BillsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BillsToolStripMenuItem.Click
       bil = New FrmBill
       bil.MdiParent = Me
       bil.Show()
   End Sub

   Private Sub CustomerToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerToolStripMenuItem2.Click
       Dim rpt As New RptCustomer
       rptf = New FormRpt
       rptf.CV1.ReportSource = rpt
       rptf.MdiParent = Me
       rptf.Show()
   End Sub

   Private Sub MarketingToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MarketingToolStripMenuItem1.Click
       Dim rpt As New RptMarket
       rptf = New FormRpt
       rptf.CV1.ReportSource = rpt
       rptf.MdiParent = Me
       rptf.Show()
   End Sub

   Private Sub OrderToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrderToolStripMenuItem2.Click
       Dim rpt As New RptOrder
       rptf = New FormRpt
       rptf.CV1.ReportSource = rpt
       rptf.MdiParent = Me
       rptf.Show()

   End Sub

   Private Sub BillToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BillToolStripMenuItem1.Click
       Dim rpt As New RptBill
       rptf = New FormRpt
       rptf.CV1.ReportSource = rpt
       rptf.MdiParent = Me
       rptf.Show()

   End Sub

   Private Sub CustomerToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerToolStripMenuItem1.Click
       vc = New ViewCust
       vc.MdiParent = Me
       vc.Show()
   End Sub

   Private Sub OrderToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrderToolStripMenuItem1.Click
       vo = New ViewOrder
       vo.MdiParent = Me
       vo.Show()
   End Sub

   Private Sub BillToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BillToolStripMenuItem.Click
       vb = New ViewBill
       vb.MdiParent = Me
       vb.Show()
   End Sub

   Private Sub CalculatorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculatorToolStripMenuItem.Click
       Dim prs As New Process
       Try
           prs.StartInfo.FileName = "calc.exe"
           prs.Start()
       Catch ex As Exception
       End Try
   End Sub

   Private Sub NotepadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotepadToolStripMenuItem.Click
       Dim prs As New Process
       Try
           prs.StartInfo.FileName = "notepad.exe"
           prs.Start()
       Catch ex As Exception
       End Try
   End Sub

   Private Sub WordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WordToolStripMenuItem.Click
       Dim prs As New Process
       Try
           prs.StartInfo.FileName = "wordpad.exe"
           prs.Start()
       Catch ex As Exception
       End Try
   End Sub

End Class


<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class FormRpt 

   Inherits System.Windows.Forms.Form

   'Form overrides dispose to clean up the component list.
   <System.Diagnostics.DebuggerNonUserCode()> _
   Protected Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing AndAlso components IsNot Nothing Then
           components.Dispose()
       End If
       MyBase.Dispose(disposing)
   End Sub

   'Required by the Windows Form Designer
   Private components As System.ComponentModel.IContainer

   'NOTE: The following procedure is required by the Windows Form Designer
   'It can be modified using the Windows Form Designer.  
   'Do not modify it using the code editor.
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.CV1 = New CrystalDecisions.Windows.Forms.CrystalReportViewer
       Me.SuspendLayout()
       '
       'CV1
       '
       Me.CV1.ActiveViewIndex = -1
       Me.CV1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
       Me.CV1.DisplayGroupTree = False
       Me.CV1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.CV1.Location = New System.Drawing.Point(0, 0)
       Me.CV1.Name = "CV1"
       Me.CV1.SelectionFormula = ""
       Me.CV1.Size = New System.Drawing.Size(855, 508)
       Me.CV1.TabIndex = 0
       Me.CV1.ViewTimeSelectionFormula = ""
       '
       'FormRpt
       '
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(855, 508)
       Me.Controls.Add(Me.CV1)
       Me.Name = "FormRpt"
       Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
       Me.Text = "Report"
       Me.ResumeLayout(False)

   End Sub
   Friend WithEvents CV1 As CrystalDecisions.Windows.Forms.CrystalReportViewer

End Class


Imports System.Data.SqlClient Public Class FrmBill 

   Private Sub FrmBill_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Try
           FunView()
           FillItem("pno", "orderdet", CmbOrderNo)

       Catch ex As Exception

       End Try
   End Sub
   Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
       General.Openconnection()
       Try
           TxtBillNo.Text = FunId("billno", "billdet")
           DtBill.Focus()
       Catch ex As Exception

       End Try
   End Sub
   Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
       'Dim chk As Integer
       Openconnection()
       Try
           If Val(TxtBillNo.Text) < FunId("billno", "billdet") Then
               MsgBox("This is An Exist Record.. Click Update to Save This Record")
               Exit Sub
           End If
           Dim cmd As New SqlCommand("insert into billdet values(" & CmbOrderNo.Text & "," & TxtBillNo.Text & ",'" & Format(DtBill.Value, "yyyy/MM/dd") & "'," & TxtCustNo.Text & ",'" & TxtCName.Text & "','" & TxtEdition.Text & "','" & TxtMagazine.Text & "','" & TxtColumn.Text & "','" & TxtDisp.Text & "','" & TxtDateOfWeek.Text & "'," & TxtAmount.Text & ")", con)
           cmd.ExecuteNonQuery()
           MsgBox("Record Saved Successfully")
           FunClear()
           FunView()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Sub FunClear()
       TxtAmount.Clear()
       TxtBillNo.Clear()
       TxtCName.Clear()
       TxtColumn.Clear()
       TxtCustNo.Clear()
       TxtDateOfWeek.Clear()
       TxtDisp.Clear()
       TxtEdition.Clear()
       TxtMagazine.Clear()
       CmbOrderNo.SelectedIndex = -1
   End Sub

   Sub FunView()
       Openconnection()
       Try
           Dim da As New SqlDataAdapter("select billno as BillNumber,pno as OrderNo,cname as Customer,tot as TotalAmout from billdet", con)
           Dim dt As New DataTable
           da.Fill(dt)
           Dim dv As New DataView(dt)
           DGCustomer.DataSource = dv
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnView.Click
       Openconnection()
       Try
           If TxtBillNo.Text <> "" Then
               Dim cmd As New SqlCommand("update billdet set cname='" & TxtCName.Text & "',pno=" & CmbOrderNo.Text & ",cno=" & TxtCustNo.Text & ",bdat='" & Format(DtBill.Value, "yyyy/MM/dd") & "',mname='" & TxtMagazine.Text & "',col='" & TxtColumn.Text & "',disp='" & TxtDisp.Text & "',dow='" & TxtDateOfWeek.Text & "',edi='" & TxtEdition.Text & "',tot=" & TxtAmount.Text & " where billno=" & TxtBillNo.Text, con)
               cmd.ExecuteNonQuery()
               MsgBox("Record Updated Successfully")
               FunClear()
           End If

       Catch ex As Exception

       End Try
   End Sub
   Private Sub DGCustomer_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGCustomer.CellDoubleClick
       Openconnection()
       Try
           If DGCustomer.CurrentRow.Index < DGCustomer.RowCount Then
               Dim ada As New SqlDataAdapter("select * from billdet where pno=" & DGCustomer.Item(0, DGCustomer.CurrentRow.Index).Value, con)
               Dim dtab As New DataTable
               ada.Fill(dtab)
               If dtab.Rows.Count > 0 Then
                   TxtBillNo.Text = dtab.Rows(0).Item("billno")
                   DtBill.Value = Format(CType(dtab.Rows(0).Item("bdat"), Date), "yyyy/MM/dd")
                   TxtCustNo.Text = dtab.Rows(0).Item("cno")
                   TxtCName.Text = dtab.Rows(0).Item("cname")
                   CmbOrderNo.SelectedItem = dtab.Rows(0).Item("pno")
                   TxtMagazine.Text = dtab.Rows(0).Item("mname")
                   TxtColumn.Text = dtab.Rows(0).Item("col")
                   TxtDisp.Text = dtab.Rows(0).Item("disp")
                   TxtAmount.Text = dtab.Rows(0).Item("tot")
                   TxtDateOfWeek.Text = dtab.Rows(0).Item("dow")
                   TxtEdition.Text = dtab.Rows(0).Item("edi")
               End If
           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub CmbOrderNo_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbOrderNo.SelectedIndexChanged
       Openconnection()
       Try
           If CmbOrderNo.SelectedIndex >= 0 Then
               Dim das As New SqlDataAdapter("select cno,cname,edi,mname,col,dsptype,dow from orderdet where pno=" & CmbOrderNo.Text, con)
               Dim dd As New DataTable
               das.Fill(dd)
               TxtCustNo.Text = dd.Rows(0).Item(0)
               TxtCName.Text = dd.Rows(0).Item(1)
               TxtEdition.Text = dd.Rows(0).Item(2)
               TxtMagazine.Text = dd.Rows(0).Item(3)
               TxtColumn.Text = dd.Rows(0).Item(4)
               TxtDisp.Text = dd.Rows(0).Item(5)
               TxtDateOfWeek.Text = dd.Rows(0).Item(6)
           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
       Me.Close()

   End Sub

   Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
       TxtAmount.Text = ""
       TxtBillNo.Text = ""
       TxtCName.Text = ""
       TxtColumn.Text = ""
       TxtCustNo.Text = ""
       TxtDateOfWeek.Text = ""
       TxtDisp.Text = ""
       TxtEdition.Text = ""
       TxtMagazine.Text = ""
       CmbOrderNo.Text = ""
   End Sub

End Class

Public Class FormRpt

End Class

Imports System.Data.SqlClient Public Class FrmOrderDet 

   Dim Medi As String
   Private Sub FrmOrderDet_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

       Try
           FunView()
           FillItem("mname", "orderdet", CmbMagazine)
           FillItem("cno", "custdet", CmbCustno)
           FillItem("dsptype", "orderdet", CmbDispType)
           FillItem("edi", "orderdet", TxtEdition)
       Catch ex As Exception
       End Try
       
   End Sub

   Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
       General.Openconnection()
       Try
           TxtPublish.Text = FunId("Pno", "orderdet")
           DTPublish.Focus()
       Catch ex As Exception

       End Try
   End Sub
   Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
       'Dim chk As Integer
       If CmbMagazine.Enabled = True Then
           Medi = CmbMagazine.Text
       ElseIf CmbNews.Enabled = True Then
           Medi = CmbNews.Text
       End If
       Openconnection()
       Try
           If Val(TxtPublish.Text) < FunId("pno", "orderdet") Then
               MsgBox("This is An Exist Record.. Click Update to Save This Record")
               Exit Sub
           End If
           Dim cmd As New SqlCommand("insert into orderdet values(" & TxtPublish.Text & ",'" & Format(DTPublish.Value, "yyyy/MM/dd") & "'," & CmbCustno.SelectedItem & ",'" & TxtCname.Text & "','" & TxtAdd.Text & "','" & Medi & "','" & TxtCol.Text & "','" & CmbDispType.Text & "','" & TxtMsg.Text & "','" & TxtCaption.Text & "','" & CmbDayofweek.Text & "','" & TxtPage.Text & "','" & TxtEdition.Text & "','" & Format(DTPDate.Value, "yyyy/MM/dd") & "')", con)
           cmd.ExecuteNonQuery()
           MsgBox("Record Saved Successfully")
           FunClear()
           FunView()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Sub FunClear()
       TxtCaption.Clear()
       TxtCname.Clear()
       TxtEdition.SelectedIndex = -1
       TxtMsg.Clear()
       TxtPage.Clear()
       TxtPublish.Clear()
       TxtAdd.Clear()
       CmbCustno.SelectedIndex = -1
       CmbDayofweek.SelectedIndex = -1
       CmbDispType.SelectedIndex = -1
       CmbMagazine.SelectedIndex = -1
       CmbNews.SelectedIndex = -1
   End Sub

   Sub FunView()
       Openconnection()
       Try
           Dim da As New SqlDataAdapter("select pno as Number,cname as Customer,dop as DateOfPublish from orderdet", con)
           Dim dt As New DataTable
           da.Fill(dt)
           Dim dv As New DataView(dt)
           DGCustomer.DataSource = dv
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnView.Click
       Openconnection()
       Try
           If TxtPublish.Text <> "" Then
               Dim cmd As New SqlCommand("update orderdet set cname='" & TxtCname.Text & "',address='" & TxtAdd.Text & "',cno='" & CmbCustno.Text & "',pdat='" & Format(DTPublish.Value, "yyyy/MM/dd") & "',mname='" & Medi & "',col='" & TxtCol.Text & "',dsptype='" & CmbDispType.Text & "',dspmsg='" & TxtMsg.Text & "',cap='" & TxtCaption.Text & "',dow='" & CmbDayofweek.SelectedItem & "',dspage='" & TxtPage.Text & "',edi='" & TxtEdition.Text & "',dop='" & Format(DTPDate.Value, "yyyy/MM/dd") & "' where pno=" & TxtPublish.Text, con)
               cmd.ExecuteNonQuery()
               MsgBox("Record Updated Successfully")
               FunClear()
           End If

       Catch ex As Exception

       End Try
   End Sub
   Private Sub DGCustomer_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGCustomer.CellDoubleClick
       Openconnection()
       Try
           If DGCustomer.CurrentRow.Index < DGCustomer.RowCount Then
               Dim ada As New SqlDataAdapter("select * from orderdet where pno=" & DGCustomer.Item(0, DGCustomer.CurrentRow.Index).Value, con)
               Dim dtab As New DataTable
               ada.Fill(dtab)
               If dtab.Rows.Count > 0 Then
                   TxtPublish.Text = dtab.Rows(0).Item(0)
                   DTPublish.Value = Format(CType(dtab.Rows(0).Item("pdat"), Date), "yyyy/MM/dd")
                   CmbCustno.Text = dtab.Rows(0).Item("cno")
                   TxtCname.Text = dtab.Rows(0).Item("cname")
                   TxtAdd.Text = dtab.Rows(0).Item("address")
                   Medi = dtab.Rows(0).Item("mname")
                   TxtCol.Text = dtab.Rows(0).Item("col")
                   CmbDispType.Text = dtab.Rows(0).Item("dsptype")
                   TxtMsg.Text = dtab.Rows(0).Item("dspmsg")
                   TxtCaption.Text = dtab.Rows(0).Item("cap")
                   CmbDayofweek.SelectedItem = dtab.Rows(0).Item("dow")
                   TxtPage.Text = dtab.Rows(0).Item("dspage")
                   TxtEdition.Text = dtab.Rows(0).Item("edi")
                   DTPDate.Value = Format(CType(dtab.Rows(0).Item("dop"), Date), "yyyy/MM/dd")
               End If
               If CmbNews.Enabled = True Then
                   CmbNews.Text = Medi
               ElseIf CmbMagazine.Enabled = True Then
                   CmbMagazine.Text = Medi
               End If
           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub RDNews_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDNews.CheckedChanged
       If RDNews.Checked = True Then
           CmbNews.Enabled = True
           CmbMagazine.Enabled = False
       Else
           CmbNews.Enabled = False
           CmbMagazine.Enabled = True
       End If
   End Sub

   Private Sub CmbCustno_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbCustno.Click
  
   End Sub

   Private Sub CmbCustno_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbCustno.SelectedIndexChanged
       Openconnection()
       Try
           If CmbCustno.SelectedIndex >= 0 Then
               Dim das As New SqlDataAdapter("select cname,address from custdet where cno=" & CmbCustno.Text, con)
               Dim dd As New DataTable
               das.Fill(dd)
               TxtCname.Text = dd.Rows(0).Item(0)
               TxtAdd.Text = dd.Rows(0).Item(1)

           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
       Me.Close()
   End Sub

   Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
       TxtAdd.Text = ""
       TxtCaption.Text = ""
       TxtCname.Text = ""
       TxtCol.Text = ""
       TxtEdition.Text = ""
       TxtMsg.Text = ""
       TxtPage.Text = ""
       TxtPublish.Text = ""
       CmbCustno.Text = ""
       CmbDayofweek.Text = ""
       CmbDispType.Text = ""
       CmbMagazine.Text = ""
       CmbNews.Text = ""
   End Sub

End Class

Imports System.Data.SqlClient Public Class Marketing 

   Private Sub Marketing_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Try
           FunView()
       Catch ex As Exception

       End Try
   End Sub
   Sub FunView()
       Openconnection()
       Try
           Dim da As New SqlDataAdapter("select eno as Number,ename as Name,area as Area from mardet", con)
           Dim dt As New DataTable
           da.Fill(dt)
           Dim dv As New DataView(dt)
           DGCustomer.DataSource = dv
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
       General.Openconnection()
       Try
           TxtId.Text = FunId("eno", "mardet")
           TxtEname.Focus()
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnSave.Click
       'Dim chk As Integer
       Openconnection()
       Try
           If Val(TxtId.Text) < FunId("eno", "mardet") Then
               MsgBox("This is An Exist Record.. Click Update to Save This Record")
               Exit Sub
           End If
           Dim cmd As New SqlCommand("insert into mardet values(" & TxtId.Text & ",'" & TxtEname.Text & "','" & TxtAdd.Text & "','" & TxtArea.Text & "','" & TxtPh.Text & "','" & TxtEmail.Text & "')", con)
           cmd.ExecuteNonQuery()
           MsgBox("Record Saved Successfully")
           FunClear()
           FunView()
       Catch ex As Exception

       End Try
   End Sub
   Sub FunClear()
       TxtId.Clear()
       TxtAdd.Clear()
       TxtEname.Clear()
       TxtEmail.Clear()
       TxtArea.Clear()
       TxtPh.Clear()
   End Sub

   Private Sub BtnView_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnView.Click
       Openconnection()
       Try
           If TxtId.Text <> "" Then
               Dim cmd As New SqlCommand("update mardet set ename='" & TxtEname.Text & "',address='" & TxtAdd.Text & "',area='" & TxtArea.Text & "',ph='" & TxtPh.Text & "',email='" & TxtEmail.Text & "' where eno=" & TxtId.Text, con)
               cmd.ExecuteNonQuery()
               MsgBox("Record Updated Successfully")
               FunClear()
           End If

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub
   Private Sub DGCustomer_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGCustomer.CellDoubleClick
       Openconnection()
       Try
           If DGCustomer.CurrentRow.Index < DGCustomer.RowCount Then
               Dim ada As New SqlDataAdapter("select * from mardet where eno=" & DGCustomer.Item(0, DGCustomer.CurrentRow.Index).Value, con)
               Dim dtab As New DataTable
               ada.Fill(dtab)
               If dtab.Rows.Count > 0 Then
                   TxtId.Text = dtab.Rows(0).Item(0)
                   TxtEname.Text = dtab.Rows(0).Item(1)
                   TxtAdd.Text = dtab.Rows(0).Item("address")
                   TxtArea.Text = dtab.Rows(0).Item("area")
                   TxtPh.Text = dtab.Rows(0).Item("ph")
                   TxtEmail.Text = dtab.Rows(0).Item("email")
               End If
           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
       Me.Close()
   End Sub

   Private Sub DGCustomer_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGCustomer.CellContentClick

   End Sub

   Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
       TxtId.Clear()
       TxtAdd.Clear()
       TxtEname.Clear()
       TxtEmail.Clear()
       TxtArea.Clear()
       TxtPh.Clear()
   End Sub

End Class

Imports System.Data.SqlClient Public Class Customer 

   Private Sub Customer_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
   End Sub



   Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
       General.Openconnection()
       Try
           TxtId.Text = FunId("cno", "custdet")
           TxtCname.Focus()
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
       'Dim chk As Integer
       Openconnection()
       Try
           If Val(TxtId.Text) < FunId("cno", "custdet") Then
               MsgBox("This is An Exist Record.. Click Update to Save This Record")
               Exit Sub
           End If
           Dim cmd As New SqlCommand("insert into custdet values(" & TxtId.Text & ",'" & TxtCname.Text & "','" & TxtAdd.Text & "','" & TxtOcc.Text & "','" & TxtPh.Text & "','" & TxtEmail.Text & "')", con)
           cmd.ExecuteNonQuery()
           MsgBox("Record Saved Successfully")
           FunClear()
           FunView()
       Catch ex As Exception

       End Try
   End Sub

   Sub FunClear()
       TxtId.Clear()
       TxtAdd.Clear()
       TxtCname.Clear()
       TxtEmail.Clear()
       TxtOcc.Clear()
       TxtPh.Clear()
   End Sub

   Sub FunView()
       Openconnection()
       Try
           Dim da As New SqlDataAdapter("select cno as Number,cname as Name,ph as Phone from custdet", con)
           Dim dt As New DataTable
           da.Fill(dt)
           Dim dv As New DataView(dt)
           DGCustomer.DataSource = dv
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnView.Click
       Openconnection()
       Try
           If TxtId.Text <> "" Then
               Dim cmd As New SqlCommand("update custdet set cname='" & TxtCname.Text & "',address='" & TxtAdd.Text & "',occ='" & TxtOcc.Text & "',ph='" & TxtPh.Text & "',email='" & TxtEmail.Text & "' where cno=" & TxtId.Text, con)
               cmd.ExecuteNonQuery()
               MsgBox("Record Updated Successfully")
               FunClear()
           End If

       Catch ex As Exception

       End Try
   End Sub

   Private Sub DGCustomer_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGCustomer.CellDoubleClick
       Openconnection()
       Try
           If DGCustomer.CurrentRow.Index < DGCustomer.RowCount Then
               Dim ada As New SqlDataAdapter("select * from custdet where cno=" & DGCustomer.Item(0, DGCustomer.CurrentRow.Index).Value, con)
               Dim dtab As New DataTable
               ada.Fill(dtab)
               If dtab.Rows.Count > 0 Then
                   TxtId.Text = dtab.Rows(0).Item(0)
                   TxtCname.Text = dtab.Rows(0).Item(1)
                   TxtAdd.Text = dtab.Rows(0).Item(2)
                   TxtOcc.Text = dtab.Rows(0).Item("occ")
                   TxtPh.Text = dtab.Rows(0).Item("ph")
                   TxtEmail.Text = dtab.Rows(0).Item("email")
               End If
           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
       Me.Close()
   End Sub
   
   
   Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
       Call txtclear()
   End Sub
   Sub txtclear()
       TxtCname.Text = ""
       TxtAdd.Text = ""
       TxtOcc.Text = ""
       TxtPh.Text = ""
       TxtEmail.Text = ""
       TxtId.Text = ""

   End Sub

   Private Sub Customer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Try
           FunView()
       Catch ex As Exception

       End Try
   End Sub

End Class

Imports System.Data.SqlClient Public Class FrmOrderDet 

   Dim Medi As String
   Private Sub FrmOrderDet_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

       Try
           FunView()
           FillItem("mname", "orderdet", CmbMagazine)
           FillItem("cno", "custdet", CmbCustno)
           FillItem("dsptype", "orderdet", CmbDispType)
           FillItem("edi", "orderdet", TxtEdition)
       Catch ex As Exception
       End Try
       
   End Sub

   Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
       General.Openconnection()
       Try
           TxtPublish.Text = FunId("Pno", "orderdet")
           DTPublish.Focus()
       Catch ex As Exception

       End Try
   End Sub
   Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
       'Dim chk As Integer
       If CmbMagazine.Enabled = True Then
           Medi = CmbMagazine.Text
       ElseIf CmbNews.Enabled = True Then
           Medi = CmbNews.Text
       End If
       Openconnection()
       Try
           If Val(TxtPublish.Text) < FunId("pno", "orderdet") Then
               MsgBox("This is An Exist Record.. Click Update to Save This Record")
               Exit Sub
           End If
           Dim cmd As New SqlCommand("insert into orderdet values(" & TxtPublish.Text & ",'" & Format(DTPublish.Value, "yyyy/MM/dd") & "'," & CmbCustno.SelectedItem & ",'" & TxtCname.Text & "','" & TxtAdd.Text & "','" & Medi & "','" & TxtCol.Text & "','" & CmbDispType.Text & "','" & TxtMsg.Text & "','" & TxtCaption.Text & "','" & CmbDayofweek.Text & "','" & TxtPage.Text & "','" & TxtEdition.Text & "','" & Format(DTPDate.Value, "yyyy/MM/dd") & "')", con)
           cmd.ExecuteNonQuery()
           MsgBox("Record Saved Successfully")
           FunClear()
           FunView()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Sub FunClear()
       TxtCaption.Clear()
       TxtCname.Clear()
       TxtEdition.SelectedIndex = -1
       TxtMsg.Clear()
       TxtPage.Clear()
       TxtPublish.Clear()
       TxtAdd.Clear()
       CmbCustno.SelectedIndex = -1
       CmbDayofweek.SelectedIndex = -1
       CmbDispType.SelectedIndex = -1
       CmbMagazine.SelectedIndex = -1
       CmbNews.SelectedIndex = -1
   End Sub

   Sub FunView()
       Openconnection()
       Try
           Dim da As New SqlDataAdapter("select pno as Number,cname as Customer,dop as DateOfPublish from orderdet", con)
           Dim dt As New DataTable
           da.Fill(dt)
           Dim dv As New DataView(dt)
           DGCustomer.DataSource = dv
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnView.Click
       Openconnection()
       Try
           If TxtPublish.Text <> "" Then
               Dim cmd As New SqlCommand("update orderdet set cname='" & TxtCname.Text & "',address='" & TxtAdd.Text & "',cno='" & CmbCustno.Text & "',pdat='" & Format(DTPublish.Value, "yyyy/MM/dd") & "',mname='" & Medi & "',col='" & TxtCol.Text & "',dsptype='" & CmbDispType.Text & "',dspmsg='" & TxtMsg.Text & "',cap='" & TxtCaption.Text & "',dow='" & CmbDayofweek.SelectedItem & "',dspage='" & TxtPage.Text & "',edi='" & TxtEdition.Text & "',dop='" & Format(DTPDate.Value, "yyyy/MM/dd") & "' where pno=" & TxtPublish.Text, con)
               cmd.ExecuteNonQuery()
               MsgBox("Record Updated Successfully")
               FunClear()
           End If

       Catch ex As Exception

       End Try
   End Sub
   Private Sub DGCustomer_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGCustomer.CellDoubleClick
       Openconnection()
       Try
           If DGCustomer.CurrentRow.Index < DGCustomer.RowCount Then
               Dim ada As New SqlDataAdapter("select * from orderdet where pno=" & DGCustomer.Item(0, DGCustomer.CurrentRow.Index).Value, con)
               Dim dtab As New DataTable
               ada.Fill(dtab)
               If dtab.Rows.Count > 0 Then
                   TxtPublish.Text = dtab.Rows(0).Item(0)
                   DTPublish.Value = Format(CType(dtab.Rows(0).Item("pdat"), Date), "yyyy/MM/dd")
                   CmbCustno.Text = dtab.Rows(0).Item("cno")
                   TxtCname.Text = dtab.Rows(0).Item("cname")
                   TxtAdd.Text = dtab.Rows(0).Item("address")
                   Medi = dtab.Rows(0).Item("mname")
                   TxtCol.Text = dtab.Rows(0).Item("col")
                   CmbDispType.Text = dtab.Rows(0).Item("dsptype")
                   TxtMsg.Text = dtab.Rows(0).Item("dspmsg")
                   TxtCaption.Text = dtab.Rows(0).Item("cap")
                   CmbDayofweek.SelectedItem = dtab.Rows(0).Item("dow")
                   TxtPage.Text = dtab.Rows(0).Item("dspage")
                   TxtEdition.Text = dtab.Rows(0).Item("edi")
                   DTPDate.Value = Format(CType(dtab.Rows(0).Item("dop"), Date), "yyyy/MM/dd")
               End If
               If CmbNews.Enabled = True Then
                   CmbNews.Text = Medi
               ElseIf CmbMagazine.Enabled = True Then
                   CmbMagazine.Text = Medi
               End If
           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub RDNews_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RDNews.CheckedChanged
       If RDNews.Checked = True Then
           CmbNews.Enabled = True
           CmbMagazine.Enabled = False
       Else
           CmbNews.Enabled = False
           CmbMagazine.Enabled = True
       End If
   End Sub

   Private Sub CmbCustno_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbCustno.Click
  
   End Sub

   Private Sub CmbCustno_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbCustno.SelectedIndexChanged
       Openconnection()
       Try
           If CmbCustno.SelectedIndex >= 0 Then
               Dim das As New SqlDataAdapter("select cname,address from custdet where cno=" & CmbCustno.Text, con)
               Dim dd As New DataTable
               das.Fill(dd)
               TxtCname.Text = dd.Rows(0).Item(0)
               TxtAdd.Text = dd.Rows(0).Item(1)

           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
       Me.Close()
   End Sub

   Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
       TxtAdd.Text = ""
       TxtCaption.Text = ""
       TxtCname.Text = ""
       TxtCol.Text = ""
       TxtEdition.Text = ""
       TxtMsg.Text = ""
       TxtPage.Text = ""
       TxtPublish.Text = ""
       CmbCustno.Text = ""
       CmbDayofweek.Text = ""
       CmbDispType.Text = ""
       CmbMagazine.Text = ""
       CmbNews.Text = ""
   End Sub

End Class


Imports System.Data.SqlClient Public Class ViewOrder 

   Private Sub ViewOrder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Openconnection()
       Try
           Dim da As New SqlDataAdapter("select pno as Number,pdat as Date,cname as Customer,mname Magazine,edi as Edition,dop as DateOfPublish from orderdet", con)
           Dim dt As New DataTable
           da.Fill(dt)
           Dim dv As New DataView(dt)
           DGCustomer.DataSource = dv
       Catch ex As Exception

       End Try
   End Sub


End Class


Imports System.Data.SqlClient Public Class FrmBill 

   Private Sub FrmBill_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       Try
           FunView()
           FillItem("pno", "orderdet", CmbOrderNo)

       Catch ex As Exception

       End Try
   End Sub
   Private Sub BtnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNew.Click
       General.Openconnection()
       Try
           TxtBillNo.Text = FunId("billno", "billdet")
           DtBill.Focus()
       Catch ex As Exception

       End Try
   End Sub
   Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
       'Dim chk As Integer
       Openconnection()
       Try
           If Val(TxtBillNo.Text) < FunId("billno", "billdet") Then
               MsgBox("This is An Exist Record.. Click Update to Save This Record")
               Exit Sub
           End If
           Dim cmd As New SqlCommand("insert into billdet values(" & CmbOrderNo.Text & "," & TxtBillNo.Text & ",'" & Format(DtBill.Value, "yyyy/MM/dd") & "'," & TxtCustNo.Text & ",'" & TxtCName.Text & "','" & TxtEdition.Text & "','" & TxtMagazine.Text & "','" & TxtColumn.Text & "','" & TxtDisp.Text & "','" & TxtDateOfWeek.Text & "'," & TxtAmount.Text & ")", con)
           cmd.ExecuteNonQuery()
           MsgBox("Record Saved Successfully")
           FunClear()
           FunView()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

   Sub FunClear()
       TxtAmount.Clear()
       TxtBillNo.Clear()
       TxtCName.Clear()
       TxtColumn.Clear()
       TxtCustNo.Clear()
       TxtDateOfWeek.Clear()
       TxtDisp.Clear()
       TxtEdition.Clear()
       TxtMagazine.Clear()
       CmbOrderNo.SelectedIndex = -1
   End Sub

   Sub FunView()
       Openconnection()
       Try
           Dim da As New SqlDataAdapter("select billno as BillNumber,pno as OrderNo,cname as Customer,tot as TotalAmout from billdet", con)
           Dim dt As New DataTable
           da.Fill(dt)
           Dim dv As New DataView(dt)
           DGCustomer.DataSource = dv
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnView.Click
       Openconnection()
       Try
           If TxtBillNo.Text <> "" Then
               Dim cmd As New SqlCommand("update billdet set cname='" & TxtCName.Text & "',pno=" & CmbOrderNo.Text & ",cno=" & TxtCustNo.Text & ",bdat='" & Format(DtBill.Value, "yyyy/MM/dd") & "',mname='" & TxtMagazine.Text & "',col='" & TxtColumn.Text & "',disp='" & TxtDisp.Text & "',dow='" & TxtDateOfWeek.Text & "',edi='" & TxtEdition.Text & "',tot=" & TxtAmount.Text & " where billno=" & TxtBillNo.Text, con)
               cmd.ExecuteNonQuery()
               MsgBox("Record Updated Successfully")
               FunClear()
           End If

       Catch ex As Exception

       End Try
   End Sub
   Private Sub DGCustomer_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGCustomer.CellDoubleClick
       Openconnection()
       Try
           If DGCustomer.CurrentRow.Index < DGCustomer.RowCount Then
               Dim ada As New SqlDataAdapter("select * from billdet where pno=" & DGCustomer.Item(0, DGCustomer.CurrentRow.Index).Value, con)
               Dim dtab As New DataTable
               ada.Fill(dtab)
               If dtab.Rows.Count > 0 Then
                   TxtBillNo.Text = dtab.Rows(0).Item("billno")
                   DtBill.Value = Format(CType(dtab.Rows(0).Item("bdat"), Date), "yyyy/MM/dd")
                   TxtCustNo.Text = dtab.Rows(0).Item("cno")
                   TxtCName.Text = dtab.Rows(0).Item("cname")
                   CmbOrderNo.SelectedItem = dtab.Rows(0).Item("pno")
                   TxtMagazine.Text = dtab.Rows(0).Item("mname")
                   TxtColumn.Text = dtab.Rows(0).Item("col")
                   TxtDisp.Text = dtab.Rows(0).Item("disp")
                   TxtAmount.Text = dtab.Rows(0).Item("tot")
                   TxtDateOfWeek.Text = dtab.Rows(0).Item("dow")
                   TxtEdition.Text = dtab.Rows(0).Item("edi")
               End If
           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub CmbOrderNo_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbOrderNo.SelectedIndexChanged
       Openconnection()
       Try
           If CmbOrderNo.SelectedIndex >= 0 Then
               Dim das As New SqlDataAdapter("select cno,cname,edi,mname,col,dsptype,dow from orderdet where pno=" & CmbOrderNo.Text, con)
               Dim dd As New DataTable
               das.Fill(dd)
               TxtCustNo.Text = dd.Rows(0).Item(0)
               TxtCName.Text = dd.Rows(0).Item(1)
               TxtEdition.Text = dd.Rows(0).Item(2)
               TxtMagazine.Text = dd.Rows(0).Item(3)
               TxtColumn.Text = dd.Rows(0).Item(4)
               TxtDisp.Text = dd.Rows(0).Item(5)
               TxtDateOfWeek.Text = dd.Rows(0).Item(6)
           End If
       Catch ex As Exception

       End Try
   End Sub

   Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
       Me.Close()

   End Sub

   Private Sub BtnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClear.Click
       TxtAmount.Text = ""
       TxtBillNo.Text = ""
       TxtCName.Text = ""
       TxtColumn.Text = ""
       TxtCustNo.Text = ""
       TxtDateOfWeek.Text = ""
       TxtDisp.Text = ""
       TxtEdition.Text = ""
       TxtMagazine.Text = ""
       CmbOrderNo.Text = ""
   End Sub

End Class

Imports System.Data.SqlClient Public Class ViewBill 

   Private Sub ViewBill_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Openconnection()
       Try
           Dim da As New SqlDataAdapter("select billno as BillNumber,pno as OrderNo,cname as Customer,mname as Magazine,edi as Edition,tot as TotalAmout from billdet", con)
           Dim dt As New DataTable
           da.Fill(dt)
           Dim dv As New DataView(dt)
           DGCustomer.DataSource = dv
       Catch ex As Exception

       End Try
   End Sub


End Class

Imports System.Data.SqlClient Public Class ViewCust 

   Private Sub ViewCust_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Openconnection()
       Try
           Dim da As New SqlDataAdapter("select cno as Number,cname as Name,address as Address,ph as Phone,occ as Occupation from custdet", con)
           Dim dt As New DataTable
           da.Fill(dt)
           Dim dv As New DataView(dt)
           DGCustomer.DataSource = dv
       Catch ex As Exception

       End Try
   End Sub

End Class







References ( to Reliable Published Sources):

1. Software Engineering, a practioners approach, TMH(Tata McGraw Hill), 2006, 2ed

2. www.Google.com

Retrieved from "https://en.wikipedia.org/w/index.php?title=User:SivakumarChidambaram/SDLC&oldid=878402856"