auditingmethod.aspx.vb

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

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

Public Class AuditingMethod
    Inherits clsDataAccess
    Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
    Protected WithEvents btnOk As System.Web.UI.WebControls.Button
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents tblTestMethod As System.Web.UI.HtmlControls.HtmlTable
    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

    Dim strStandard As String '标准编号
    Dim intRowCount As Int16 '行数
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim r As Int16 '循环变量
        Dim c As Int16
        Dim j, k As Int16 
        '标准编号
        strStandard = Request.Params("standardserial")
        '显示数据库中实验方法的审核信息
        PubStrSql = "select distinct Project,MethodTemplate,MethodChecked from TestProject" _
        & " where StandardSerial='" & strStandard & "' order by project"
        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为列数
            '首先生成一个空表，并加入到tblTestMethod中
            '此表一共rowcount行，2列
            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
                tblTestMethod.Rows.Add(myaddrow)
            Next

            Dim strProjectName As String '项目名称
            Dim strCheckedState As String '实验项目的实验方法审核状态
            Dim CheckboxObj As CheckBox
            '循环生成表格,j为表格的行数
            For j = 0 To intRowCount - 1
                With PubDataSet.Tables("TestProject")
                    strProjectName = Trim(.Rows(j)("Project").ToString)
                    strCheckedState = Trim(.Rows(j)("MethodChecked").ToString)
                End With
                '将各个项目名称加入到表格中
                CheckboxObj = New CheckBox()
                With CheckboxObj
                    .ID = "Checkbox" & j + 1
                    .Text = strProjectName
                    .Checked = strCheckedState
                End With
                tblTestMethod.Rows(j + 2).Cells(0).Controls.Add(CheckboxObj)
                tblTestMethod.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)
            tblTestMethod.Rows.Add(myaddrow)
            tblTestMethod.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)
            tblTestMethod.Rows.Add(myaddrow)
            tblTestMethod.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,MethodTemplate,MethodChecked from TestProject" _
        & " where StandardSerial='" & strStandard & "' order by project"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "TestProject")
        Dim CheckboxObj As CheckBox
        Dim i%, k%
        Dim CheckboxState(intRowCount) As Boolean
        Dim CheckboxText(intRowCount) As String
        For i = 0 To intRowCount - 1
            CheckboxObj = CType(tblTestMethod.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 MethodChecked=" & k _
            & " where StandardSerial='" & strStandard & "' and Project='" _
            & PubDataSet.Tables("TestProject").Rows(i)("Project") & "'"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlCmd.ExecuteNonQuery()
        Next
    End Sub

End Class