clientlist.ascx.vb

这是一个订单管理系统

Imports OrderDll

Partial Class ClientList
    Inherits System.Web.UI.UserControl

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

    Protected Sub Btn_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim id As String
        Dim cc As New ClassClient

        id = DirectCast(sender, Button).ID.Substring(3)
        If cc.Delete(Int32.Parse(id)) = False Then
            TableClear(TableClient)
            TableInit()
        Else

        End If

    End Sub

    Private Sub TableInit()
        Dim dsClient As Data.DataSet
        Dim cc As New ClassClient
        Dim count As Integer
        dsClient = New Data.DataSet
        If cc.List(dsClient) = False Then
            For count = 0 To dsClient.Tables(0).Rows.Count - 1
                TableClient.Controls.Add(GenrateRow( _
                    dsClient.Tables(0).Rows(count).Item(0).ToString(), _
                    dsClient.Tables(0).Rows(count).Item(1).ToString(), _
                    dsClient.Tables(0).Rows(count).Item(2), _
                    dsClient.Tables(0).Rows(count).Item(3)) _
                )
            Next
        Else

        End If

    End Sub

    Private Function GenrateRow(ByVal id As String, ByVal name As String, ByVal type As Integer, ByVal money As Double) As TableRow
        Dim tr As New TableRow
        Dim tc As TableCell
        Dim btnDel As Button
        Dim btnEdit As HtmlInputButton
        tc = New TableCell
        tc.Text = id
        tr.Controls.Add(tc)
        tc = New TableCell
        tc.Text = name
        tr.Controls.Add(tc)
        tc = New TableCell
        Select Case type
            Case 1
                tc.Text = "国企"
            Case 2
                tc.Text = "中外合资"
            Case 3
                tc.Text = "外资"
            Case 4
                tc.Text = "私营"
            Case Else
                tc.Text = "其他"
        End Select
        tr.Controls.Add(tc)
        tc = New TableCell
        tc.Text = money.ToString
        tr.Controls.Add(tc)
        tc = New TableCell
        btnEdit = New HtmlInputButton
        btnEdit.Attributes("value") = "修改"
        btnEdit.Attributes("onClick") = "javascript:window.navigate('ClientEdit.aspx?CID=" & id & "');"
        btnEdit.Attributes("class") = "Sytle_Button"
        tc.Controls.Add(btnEdit)
        btnDel = New Button
        btnDel.Text = "删除"
        btnDel.ID = "Del" & id
        AddHandler btnDel.Click, AddressOf Btn_Click
        btnDel.CssClass = "Sytle_Button"
        tc.Controls.Add(btnDel)
        tr.Controls.Add(tc)
        Return tr
    End Function

    Protected Sub TableClear(ByVal tbl As Table)
        Dim temp As TableRow
        temp = tbl.Controls(0)
        tbl.Controls.Clear()
        tbl.Controls.Add(temp)
    End Sub
End Class