standardmaintenance.aspx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Public Class StandardMaintenance
    Inherits clsDataAccess
    Protected WithEvents divNewClass As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents errorMessage As System.Web.UI.HtmlControls.HtmlGenericControl    
    Protected WithEvents lblErrorMessage As System.Web.UI.WebControls.Label
    Protected WithEvents txtNewClass As System.Web.UI.WebControls.TextBox
    Protected WithEvents Validator_txtNewClass As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents txtAbstract As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtConsumeArea As System.Web.UI.WebControls.TextBox
    Protected WithEvents Validator_txtConsumeArea As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents btnNewClass As System.Web.UI.WebControls.Button
    Protected WithEvents DataGridCurrentClass As System.Web.UI.WebControls.DataGrid
    Protected WithEvents drpCurrentClass As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtNewStandard As System.Web.UI.WebControls.TextBox
    Protected WithEvents Validator_txtNewStandard As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents drpStandardSerial As System.Web.UI.WebControls.DropDownList
    Protected WithEvents drpIceboxType As System.Web.UI.WebControls.DropDownList
    Protected WithEvents btnNewStandard As System.Web.UI.WebControls.Button
    Protected WithEvents DataGridCurrentStandard As System.Web.UI.WebControls.DataGrid

#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

    Sub GetData()
        '初始化页面控件应该显示的数据
        PubStrSql = "select * from standard"
        '取得标准类别、标准缩写和消费地区
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "standard")
        '显示
        With DataGridCurrentClass
            .DataSource = PubDataSet.Tables("standard")
            .DataBind()
        End With
        '在下拉框中显示现有类别
        With drpCurrentClass
            .DataSource = PubDataSet.Tables("standard")
            .DataBind()
        End With
        '在下面的标准维护DataGrid中显示该标准类别的编号
        If PubDataSet.Tables("standard").Rows.Count <> 0 Then
            Dim strFirstStandardClass As String
            strFirstStandardClass = drpCurrentClass.SelectedItem.Text.Trim()
            PubStrSql = "select * from standardserial where standardclass='" & strFirstStandardClass & "'"
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "standardserial")
            With DataGridCurrentStandard
                .DataSource = PubDataSet.Tables("standardserial")
                .DataBind()
            End With
            PubStrSql = "select standardserial from standardserial where standardclass='" _
            & strFirstStandardClass & "' group by standardserial"
            PubDataAdapter.SelectCommand.CommandText = PubStrSql
            PubDataAdapter.Fill(PubDataSet, "serial")
            With drpStandardSerial
                .DataSource = PubDataSet
                .DataMember = "serial"
                .DataBind()
            End With
        End If
    End Sub
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            Response.Cache.SetNoStore()
            GetData() '从数据库中取出标准
        End If
    End Sub
    Sub DataGridCurrentClassDataBind()
        '绑定DataGridCurrentClass以显示当前的标准类型
        PubStrSql = "select * from standard"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "standard")
        DataGridCurrentClass.DataSource = PubDataSet
        DataGridCurrentClass.DataMember = "standard"
        DataGridCurrentClass.DataBind()
    End Sub


    Private Sub btnNewClass_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewClass.Click
        '增加新类别        
        Dim ConsumeArea(100) As String
        Dim strSource As String
        Dim intnum, i, intloopindex As Int16
        If txtNewClass.Text.Trim() <> "" Then
            PubStrSql = "insert into standard (standardClass,abstract,consumArea)"
            PubStrSql = PubStrSql & "  values ('" & txtNewClass.Text.Trim()
            PubStrSql = PubStrSql & "','" & txtAbstract.Text.Trim()
            PubStrSql = PubStrSql & "','" & txtConsumeArea.Text.Trim() & "')"
            lblErrorMessage.Text = ""
            PubSqlCmd.CommandText = PubStrSql
            Try
                PubSqlCmd.ExecuteNonQuery()
            Catch eSQL As SqlException
                lblErrorMessage.Text = "*<u>" & txtNewClass.Text.Trim() _
                & "</u>" & "已经存放到数据库中，请使用其它名称"
            End Try
            '消费地区            
            If txtConsumeArea.Text.Trim <> "" Then
                strSource = txtConsumeArea.Text.Trim
                intnum = 0
                '多个消费地区的输入格式是消费地区1、消费地区2、消费地区3
                Do While InStr(strSource, "、")
                    intnum = intnum + 1
                    i = InStr(strSource, "、")
                    ConsumeArea(intnum) = Trim(Left(strSource, i - 1))
                    strSource = Mid(strSource, i + 1)
                Loop
                ConsumeArea(intnum + 1) = Trim(strSource)
                '调用自定义控件中的方法插入数据库
                For intloopindex = 1 To intnum + 1
                    PubStrSql = "insert into ConsumeAddress(ConsumeAddress) "
                    PubStrSql = PubStrSql & "values('" & ConsumeArea(intloopindex) & "')"                    
                    PubSqlCmd.CommandText = PubStrSql
                    Try
                        PubSqlCmd.ExecuteNonQuery()
                    Catch
                    End Try
                Next
            End If
            GetData()
        End If
    End Sub
    Sub currentClassDoEdit(ByVal objSource As Object, ByVal objArgs As DataGridCommandEventArgs)
        'CurrentClass编辑按钮的处理函数
        DataGridCurrentClass.EditItemIndex = objArgs.Item.ItemIndex
        DataGridCurrentClassDataBind()
    End Sub

    Sub currentClassDoDelete(ByVal objSource As Object, ByVal objArgs As DataGridCommandEventArgs)
        '删除消费地区
        PubStrSql = "select consumarea from standard where standardclass='" _
        & DataGridCurrentClass.DataKeys(objArgs.Item.ItemIndex) & "'"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "tblArea")
        If PubDataSet.Tables("tblArea").Rows.Count > 0 Then
            PubStrSql = "delete from consumeaddress where consumeaddress='" _
            & PubDataSet.Tables("tblArea").Rows(0)("consumarea") & "'"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlCmd.ExecuteNonQuery()
        End If
        'CurrentClass删除按钮的处理函数
        PubStrSql = "delete from standard where standardClass='" _
        & DataGridCurrentClass.DataKeys(objArgs.Item.ItemIndex) & "'"
        PubSqlCmd.CommandText = PubStrSql
        PubSqlCmd.ExecuteNonQuery()
        DataGridCurrentClassDataBind()
        '显示下面的标准类别
        PubStrSql = "select * from Standard"
        PubDataAdapter.SelectCommand.CommandText = PubStrSql
        PubDataAdapter.Fill(PubDataSet, "tblClass")
        With drpCurrentClass
            .DataSource = PubDataSet.Tables("tblClass")
            .DataBind()
        End With
    End Sub


    Sub currentClassDoCancel(ByVal objSource As Object, ByVal objArgs As DataGridCommandEventArgs)
        'CurrentClass取消按钮的处理函数
        DataGridCurrentClass.EditItemIndex = -1
        DataGridCurrentClassDataBind()
    End Sub
    Sub currentClassDoUpdate(ByVal objSource As Object, ByVal objArgs As DataGridCommandEventArgs)
        'CurrentClass更新按钮的处理函数
        Dim objAbstractCtrl As TextBox
        Dim objConsumeAreaCtrl As TextBox
        objAbstractCtrl = objArgs.Item.Cells(1).Controls(0)
        objConsumeAreaCtrl = objArgs.Item.Cells(2).Controls(0)
        If objAbstractCtrl.Text.Trim.Length > 10 Then
            lblErrorMessage.Text = "缩写超过10个字符，无法输入到数据库中"
            Exit Sub
        End If
        PubStrSql = "UPDATE Standard SET abstract='" & objAbstractCtrl.Text.Trim()
        PubStrSql = PubStrSql & "', consumArea='" & objConsumeAreaCtrl.Text.Trim()
        PubStrSql = PubStrSql & "' WHERE standardClass='" _
        & DataGridCurrentClass.DataKeys(objArgs.Item.ItemIndex) & "'"
        PubSqlCmd.CommandText = PubStrSql
        Try
            PubSqlCmd.ExecuteNonQuery()