auditingregulation.aspx.vb

一个很不错的实验室管理系统,用vb+sql编写,功能强大,界面美观

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

Public Class AuditingRegulation
    Inherits clsDataAccess
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents btnOk As System.Web.UI.WebControls.Button
    Protected WithEvents tblRegulation As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents lblWarning As System.Web.UI.WebControls.Label

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.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
    Public strStandard As String '标准编号
    Public intRowCount As Int16 '行数
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load      
        strStandard = Request.Params("standardserial")
        PubStrSql = "select distinct Project,StandardTemplate,StandardChecked from TestProject" _
        & " where StandardSerial='" & strStandard & "'"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "TestProject")
        '定义行、列对象
        Dim myaddrow As HtmlTableRow
        Dim myaddcell As HtmlTableCell
        'intRowCount为表中对应标准的记录数
        intRowCount = PubDataSet.Tables("TestProject").Rows.Count
        '若数据库中有对应标准的记录，则生成表格
        If intRowCount <> 0 Then
            'r为行数，c为列数
            Dim r%, c%, j%, k%
            '首先生成一个空表，并加入到tblRegulation中
            For r = 0 To intRowCount - 1
                myaddrow = New HtmlTableRow()
                For c = 0 To 1
                    myaddcell = New HtmlTableCell()
                    myaddcell.Align = "middle"
                    myaddcell.Controls.Add(New LiteralControl())
                    myaddrow.Cells.Add(myaddcell)
                Next
                tblRegulation.Rows.Add(myaddrow)
            Next
            Dim strProjectName As String '项目名称
            Dim CheckBoxObj As CheckBox
            '循环生成表格
            For j = 0 To intRowCount - 1
                'strProjectName为项目名称
                strProjectName = Trim(PubDataSet.Tables("TestProject").Rows(j)("Project").ToString)
                '将checked属性的状态赋给kstr,判断该字段是否为空，为空则赋k值为0
                k = PubDataSet.Tables("TestProject").Rows(j)("StandardChecked")
                CheckBoxObj = New CheckBox()
                With CheckBoxObj
                    .ID = "Checkbox" & j + 1
                    .Text = strProjectName
                    .Checked = k
                End With
                tblRegulation.Rows(j + 2).Cells(0).Controls.Add(CheckBoxObj)
                tblRegulation.Rows(j + 2).Cells(1).InnerText = "演示版"
            Next
            '产生一个空行
            myaddrow = New HtmlTableRow()
            myaddcell = New HtmlTableCell()
            myaddcell.ColSpan = 2
            myaddcell.Align = "middle"
            myaddcell.Controls.Add(New LiteralControl())
            myaddrow.Cells.Add(myaddcell)
            tblRegulation.Rows.Add(myaddrow)
            tblRegulation.Rows(intRowCount + 2).Cells(0).Controls.Add(btnOk)
        Else '数据库中若没有记录，则生成空白一行，显示“数据库中没有对应该标准的记录”
            myaddrow = New HtmlTableRow()
            myaddcell = New HtmlTableCell()
            myaddcell.ColSpan = 2
            myaddcell.Align = "middle"
            myaddcell.Controls.Add(New LiteralControl())
            myaddrow.Cells.Add(myaddcell)
            tblRegulation.Rows.Add(myaddrow)
            tblRegulation.Rows(intRowCount + 2).Cells(0).Controls.Add(lblWarning)
        End If
    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        '与数据库连接
        PubStrSql = "select distinct Project,StandardTemplate,StandardChecked from TestProject" _
        & " where StandardSerial='" & strStandard & "'"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "TestProject")
        Dim CheckboxState(intRowCount) As Boolean
        Dim CheckboxText(intRowCount) As String
        Dim CheckBoxObj As CheckBox       
        Dim i%, k%
        For i = 0 To intRowCount - 1
            CheckBoxObj = CType(tblRegulation.Controls(1).FindControl("Checkbox" & CStr(i + 1)), CheckBox)
            CheckboxText(i) = CheckBoxObj.Text
            CheckboxState(i) = CheckBoxObj.Checked
            '首先将每一个item的selected的状态赋给k
            If CheckboxState(i) = True Then
                k = 1
            Else
                k = 0
            End If
            PubStrSql = "update TestProject Set StandardChecked=" & k _
            & " where StandardSerial='" & strStandard _
            & "' and Project='" & PubDataSet.Tables("TestProject").Rows(i)("Project") & "'"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlCmd.ExecuteNonQuery()
        Next
    End Sub
End Class