engineer.aspx.vb

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

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Engineer
    Inherits clsDataAccess
    Protected WithEvents btnCheckObj As System.Web.UI.WebControls.Button
    Protected WithEvents btnCheckMethod As System.Web.UI.WebControls.Button
    Protected WithEvents btnCheckRequire As System.Web.UI.WebControls.Button
    Protected WithEvents TableMain As System.Web.UI.WebControls.Table

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <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: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Dim RadioCtrl As RadioButton  '要添加的单选按钮
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        
        '显示数据库中待审核的标准
        '判断是否有权限
        If Session("UserType") <> "总工程师" Then
            Response.Redirect("NoQualification.htm")
        End If
        Dim i, j As Int16
        Dim Cell As TableCell
        Dim Row As TableRow
        Dim lblTitle As Label '标题        
        Dim iCount As Int16
        Dim iNeedCell As Int16   '需要在表格中补充的Cell数
        '生成的表格
        '每一行4个cell

        '第一行加入标题
        Row = New TableRow()
        Cell = New TableCell()
        lblTitle = New Label()

        lblTitle.Text = "选择标准"
        Cell.Controls.Add(lblTitle)
        Cell.ColumnSpan = 4
        Cell.HorizontalAlign = HorizontalAlign.Center
        Row.Cells.Add(Cell)
        TableMain.Rows.Add(Row)
        '生成下面的行
        '为TestProject数据库操作准备
        PubStrSql = "select distinct testproject.standardserial  from testobj,testproject  " _
        & " where (testproject.standardserial=testobj.standardserial) and " _
        & "(testproject.methodchecked=0  or testproject.standardchecked=0 or testobj.checked=0)"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "Result")
        '判断是否有待审核的记录
        iCount = PubDataSet.Tables("Result").Rows.Count
        If iCount = 0 Then '没有要审核的标准
            Response.Redirect("NoStandard.htm")
        End If
        '读数据并显示
        For i = 0 To iCount - 1
            '每4个为一行
            If i Mod 4 = 0 Then
                Row = New TableRow()
            End If

            Cell = New TableCell()
            RadioCtrl = New RadioButton()

            RadioCtrl.Text = Trim(PubDataSet.Tables("Result").Rows(i)("standardserial"))
            RadioCtrl.GroupName = "RadioGroup"
            RadioCtrl.ID = Replace((CStr(i) + "_" + RadioCtrl.Text), ":", "$") '使单选按钮的ID为其文本值与序号的串

            Cell.Controls.Add(RadioCtrl)
            Row.Cells.Add(Cell)
            TableMain.Rows.Add(Row)
        Next
        iNeedCell = 4 - iCount Mod 4
        For i = 1 To iNeedCell
            Cell = New TableCell()
            Row.Cells.Add(Cell)
            TableMain.Rows.Add(Row)
        Next
    End Sub

    Private Sub btnCheckObj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckObj.Click
        '审核实验目的
        Session("standardserial") = GetRadioText(Trim(Request.Form("radiogroup")))
        Response.Redirect("AuditiongObject.aspx?standardserial=" & Session("standardserial"))
    End Sub

    Private Sub btnCheckMethod_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckMethod.Click
        '审核实验方法
        Session("standardserial") = GetRadioText(Trim(Request.Form("radiogroup")))
        Response.Redirect("AuditingMethod.aspx?standardserial=" & Session("standardserial"))
    End Sub


    Private Sub btnCheckRequire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckRequire.Click
        '审核标准要求
        Session("standardserial") = GetRadioText(Trim(Request.Form("radiogroup")))
        Response.Redirect("AuditingRegulation.aspx?standardserial=" & Session("standardserial"))
    End Sub

    Private Function GetRadioText(ByVal str As String) As String
        '将传过来的单选按钮的ID进行分解
        '单选按钮ID的格式：单选按钮ID=顺序号 + "_" + 单选按钮的文本值
        '参数：  str   被选中的单选按钮的ID 
        '返回：  空    表示无被选中的按钮
        '        非空  表示选中按钮的文本值
        Dim strID As String
        Dim iPos As Integer
        Dim strText As String

        strID = str
        iPos = InStr(strID, "_")

        If iPos = 0 Then
            GetRadioText = ""
            Exit Function
        End If
        strText = Right(strID, Len(strID) - iPos)
        GetRadioText = Replace(strText, "$", ":")
    End Function

End Class