staclientinfocontrol.ascx.vb

这是一个订单管理系统

Imports System.Data
Partial Class StaClientInfoControl
    Inherits System.Web.UI.UserControl

    Private Const MESSAGEID As String = "MESSAGEID"
    Public Event msgSubPanel(ByVal MsgDescription As String)
    Protected Sub sshow()
        Dim i As Integer = 0
        Dim strCelTempID As String = "tblCell"        'cell part name
        Dim strLblTempID As String = "lblCell"        'label part name
        Dim strTabRowTempID As String = "tabrow"      'table row part name
        Dim strBtnTempID As String = "btnUpdate"      'button part name
        Dim strChkSetOff As String = "chkSetOff"      'checkbox setoff part name
        Dim strChkSetStop As String = "chkSetStop"    'checkbox stop part name
        Dim strtxtTempID As String = "txtCell"        'textbox part name
        Dim aryDate As New ArrayList
        Dim strTemp As String
        Dim dsTemp As New DataSet
        Dim strSql As String = ""
        strSql = OrderDll.ClassStatistics.f_Get_SQL_Date()
        dsTemp = OrderDll.C_SQLUtil.fExecuteDataset(strSql)
        For Each row As DataRow In dsTemp.Tables(0).Rows
            strTemp = row("strDate")
            aryDate.Add(strTemp)
        Next
        dsTemp.Dispose()
        Dim intMoney As Integer = 0

        strSql = OrderDll.ClassStatistics.fGet_SQL_Cli_Data()
        dsTemp = OrderDll.C_SQLUtil.fExecuteDataset(strSql)
        For Each row As DataRow In dsTemp.Tables(0).Rows
            For Each str As String In aryDate
                i = i + 1
                Dim tabrow As HtmlTableRow = New HtmlTableRow()

                Dim tblCell1 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell1 As Label = New Label()

                Dim tblCell2 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell2 As Label = New Label()

                Dim tblCell3 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell3 As Label = New Label()

                Dim tblCell4 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell4 As Label = New Label()

                Dim tblCell5 As HtmlTableCell = New HtmlTableCell()
                Dim lblCell5 As Label = New Label()



                'set the style
                'tblCell1.Width = 60 & "px"
                'tblCell2.Width = 50 & "px"
                'tblCell3.Width = 60 & "px"

                'tblCell4.Width = 70 & "px"

                'column 1
                tabrow.ID = strTabRowTempID & i
                lblCell1.ID = strCelTempID & "1" & i.ToString
                tblCell1.ID = strLblTempID & "1" & i.ToString

                lblCell1.Text = row("strCliName")
                tblCell1.Controls.Add(lblCell1)

                tabrow.Cells.Add(tblCell1)

                'column 2
                lblCell2.ID = strCelTempID & "2" & i.ToString
                tblCell2.ID = strLblTempID & "2" & i.ToString
                lblCell2.Text = row("intCliId")

                tblCell2.Controls.Add(lblCell2)

                tabrow.Cells.Add(tblCell2)

                'column 3
                lblCell3.ID = strCelTempID & "3" & i.ToString
                tblCell3.ID = strLblTempID & "3" & i.ToString
                lblCell3.Text = str
                tblCell3.Controls.Add(lblCell3)
                tabrow.Cells.Add(tblCell3)

                'column 4
                lblCell4.ID = strCelTempID & "4" & i.ToString
                tblCell4.ID = strLblTempID & "4" & i.ToString
                OrderDll.ClassStatistics.sGetTotalMon(row("intCliId"), str, intMoney)
                lblCell4.Text = intMoney
                tblCell4.Controls.Add(lblCell4)

                tabrow.Cells.Add(tblCell4)

                tblList.Rows.Add(tabrow)

            Next
            Session(MESSAGEID) = 1
            RaiseEvent msgSubPanel("")
        Next
    End Sub

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