adddatabase.aspx.vb

用VB.NET在VS.NET 2003下开发的完整的设备管理系统,后台数据库为SQL SERVER 2000,解压缩后请先阅读"说明"文件来部署此系统.

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

Public Class AddDatabase
    Inherits System.Web.UI.Page

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents equipmentnametxt As System.Web.UI.WebControls.DropDownList
    Protected WithEvents regularexpressionvalidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents equipmentnumbertxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents standerdtxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents makeshoptxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator4 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents makenumbertxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents RegValtxt1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents equitpmentnumbertxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegValtxt2 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents pricetxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator6 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegularExpressionValidator5 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents pricesourcetxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents placedownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents cardnumbertxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents regularexpressionvalidator7 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegValtxt4 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents yeardropdownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents monthdropdownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents daydropdownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents useunitdownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents uesyeardatedownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents uesmonthdatedownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents uesdaydatedownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents useperontxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents backyeardatedownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents backmonthdatedownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents backdaydatedownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents backperontxt As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents lbmsg As System.Web.UI.WebControls.Label
    Protected WithEvents mybutton As System.Web.UI.WebControls.Button
    Protected WithEvents regularexpressionvalidator8 As System.Web.UI.WebControls.RequiredFieldValidator

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If (Session("login_name") = "") Then
            Response.Redirect("../login.aspx")
        End If
        If Not Me.IsPostBack Then
            Me.cardDataBinding()
        End If
    End Sub

    Sub cardDataBinding()
        Dim i As Integer
        Dim SQLstr As String
        Dim myDataView As DataView

        SQLstr = "Select * From card"
        myDataView = Global.CreateDataView(SQLstr)

        '<---------------------------从found表中调入设备名称-------------------------------->  
        SQLstr = "Select 设备名称 from found"
        '将数组列表中各项值与下拉列表控件进行绑定
        equipmentnametxt.DataSource = Global.CreateDataView(SQLstr)
        equipmentnametxt.DataTextField = "设备名称"
        equipmentnametxt.DataValueField = "设备名称"
        equipmentnametxt.DataBind()

        '<----------------------------存放地点------------------------------->
        SQLstr = "Select 存放地点 from found"
        '将数组列表中各项值与下拉列表控件进行绑定
        placedownlist.DataSource = Global.CreateDataView(SQLstr)
        placedownlist.DataTextField = "存放地点"
        placedownlist.DataValueField = "存放地点"
        placedownlist.DataBind()
        '<--------------------------购置日期------------------------------------>	  
        Dim yearString(100) As String
        For i = 1949 To 2049
            yearString(i - 1949) = Convert.ToString(i)
        Next
        yeardropdownlist.DataSource = yearString
        yeardropdownlist.DataBind()

        Dim monthString(11) As String
        For i = 1 To 12
            monthString(i - 1) = Convert.ToString(i)
        Next
        monthdropdownlist.DataSource = monthString
        monthdropdownlist.DataBind()

        Dim dayString(30) As String
        For i = 1 To 31
            dayString(i - 1) = Convert.ToString(i)
        Next
        daydropdownlist.DataSource = dayString
        daydropdownlist.DataBind()

        '<-----------------------判断管理用户是哪个单位的管理人员----------------------------------->
        Dim useunitarraylist As ArrayList
        useunitarraylist = New ArrayList
        Dim person_tag As String = Global.ReturnSingleInfo("SELECT 权限 FROM person WHERE 登陆名='" & Session("login_name") & "'")
        If person_tag = "00" Then '是超级用户
            useunitarraylist.Add("计算机")
            useunitarraylist.Add("工商管理")
            useunitarraylist.Add("外语")
            useunitarraylist.Add("国土资源")
            useunitarraylist.Add("教务处")
            useunitarraylist.Add("财务处")
        ElseIf person_tag = "01" Then '是计算机管理人员
            useunitarraylist.Add("计算机")
        ElseIf person_tag = "02" Then '是工商管理维护人员
            useunitarraylist.Add("工商管理")
        ElseIf person_tag = "03" Then '是外语的管理人员
            useunitarraylist.Add("外语")
        ElseIf person_tag = "04" Then '是国土资源
            useunitarraylist.Add("国土资源")
        ElseIf person_tag = "05" Then '是教务
            useunitarraylist.Add("教务处")
        ElseIf person_tag = "06" Then '财务处
            useunitarraylist.Add("财务处")
        End If
        useunitdownlist.DataSource = useunitarraylist
        useunitdownlist.DataBind()

        '<------------------------------------领用日期------------------------------------------>
        Dim useyeararraylist As ArrayList
        useyeararraylist = New ArrayList  '年
        For i = 1990 To 2010
            useyeararraylist.Add(i)
        Next
        uesyeardatedownlist.DataSource = useyeararraylist
        uesyeardatedownlist.DataBind()

        Dim usemontharraylist As ArrayList  '月
        usemontharraylist = New ArrayList
        For i = 1 To 12
            usemontharraylist.Add(i)
        Next
        uesmonthdatedownlist.DataSource = usemontharraylist
        uesmonthdatedownlist.DataBind()

        Dim usedayarraylist As ArrayList   '日
        usedayarraylist = New ArrayList
        For i = 1 To 31
            usedayarraylist.Add(i)
        Next
        uesdaydatedownlist.DataSource = usedayarraylist
        uesdaydatedownlist.DataBind()

        '<--------------------------------------------回收日期--------------------------------------------->
        Dim backyeararraylist As ArrayList
        backyeararraylist = New ArrayList  '年
        For i = 1990 To 2010
            backyeararraylist.Add(i)
        Next
        backyeardatedownlist.DataSource = backyeararraylist
        backyeardatedownlist.DataBind()

        Dim backmontharraylist As ArrayList  '月
        backmontharraylist = New ArrayList
        For i = 1 To 12
            backmontharraylist.Add(i)
        Next
        backmonthdatedownlist.DataSource = backmontharraylist
        backmonthdatedownlist.DataBind()

        Dim backdayarraylist As ArrayList    '日
        backdayarraylist = New ArrayList
        For i = 1 To 31
            backdayarraylist.Add(i)
        Next
        backdaydatedownlist.DataSource = backdayarraylist
        backdaydatedownlist.DataBind()
    End Sub

    '<----------------------------增加的处理---------------------------------->
    Sub addbuttton_click(ByVal sender As Object, ByVal e As EventArgs)
        If Page.IsValid Then
            Dim ConnectionString As String
            Dim MyConnection As SqlConnection
            Dim InsertCmd As String
            Dim MyCommand As SqlCommand
            Dim buydatedownlist As String '定义购置日期
            Dim usedatedownlist As String '领用日期
            Dim backdatedownlist As String '回收日期
            buydatedownlist = yeardropdownlist.SelectedItem.Text & "-" & monthdropdownlist.SelectedItem.Text & "-" & daydropdownlist.SelectedItem.Text
            usedatedownlist = uesyeardatedownlist.SelectedItem.Text & "-" & uesmonthdatedownlist.SelectedItem.Text & "-" & uesdaydatedownlist.SelectedItem.Text
            backdatedownlist = backyeardatedownlist.SelectedItem.Text & "-" & backmonthdatedownlist.SelectedItem.Text & "-" & backdaydatedownlist.SelectedItem.Text
            MyConnection = Global.GetConnection("equipment")
            InsertCmd = "Insert into card(设备名称,型号,规格,生产厂家,制造号,设备编号,单价,资金来源,存放地点,购置日期,凭证号,使用单位,领用日期,领用经手人,回收日期,回收经手人) Values(@设备名称,@型号,@规格,@生产厂家,@制造号,@设备编号,@单价,@资金来源,@存放地点,@购置日期,@凭证号,@使用单位,@领用日期,@领用经手人,@回收日期,@回收经手人)"
            MyCommand = New SqlCommand(InsertCmd, MyConnection)
            '向MyCommand加入各参数对象
            MyCommand.Parameters.Add("@设备名称", SqlDbType.Char, 40)
            MyCommand.Parameters("@设备名称").Value = equipmentnametxt.SelectedItem.Text
            MyCommand.Parameters.Add("@型号", SqlDbType.Char, 12)
            MyCommand.Parameters("@型号").Value = equipmentnumbertxt.Value
            MyCommand.Parameters.Add("@规格", SqlDbType.Char, 18)
            MyCommand.Parameters("@规格").Value = standerdtxt.Value
            MyCommand.Parameters.Add("@生产厂家", SqlDbType.Char, 40)
            MyCommand.Parameters("@生产厂家").Value = makeshoptxt.Value
            MyCommand.Parameters.Add("@制造号", SqlDbType.Char, 20)
            MyCommand.Parameters("@制造号").Value = makenumbertxt.Value
            MyCommand.Parameters.Add("@设备编号", SqlDbType.Char, 20)
            MyCommand.Parameters("@设备编号").Value = equitpmentnumbertxt.Value
            MyCommand.Parameters.Add("@单价", SqlDbType.Float, 8)
            MyCommand.Parameters("@单价").Value = pricetxt.Value
            MyCommand.Parameters.Add("@资金来源", SqlDbType.Char, 18)
            MyCommand.Parameters("@资金来源").Value = pricesourcetxt.Value
            MyCommand.Parameters.Add("@存放地点", SqlDbType.Char, 20)
            MyCommand.Parameters("@存放地点").Value = placedownlist.SelectedItem.Text
            MyCommand.Parameters.Add("@购置日期", SqlDbType.SmallDateTime, 4)
            MyCommand.Parameters("@购置日期").Value = buydatedownlist
            MyCommand.Parameters.Add("@凭证号", SqlDbType.Int, 4)
            MyCommand.Parameters("@凭证号").Value = cardnumbertxt.Value
            MyCommand.Parameters.Add("@使用单位", SqlDbType.Char, 30)
            MyCommand.Parameters("@使用单位").Value = useunitdownlist.SelectedItem.Text
            MyCommand.Parameters.Add("@领用日期", SqlDbType.SmallDateTime, 4)
            MyCommand.Parameters("@领用日期").Value = usedatedownlist
            MyCommand.Parameters.Add("@领用经手人", SqlDbType.VarChar, 18)
            MyCommand.Parameters("@领用经手人").Value = useperontxt.Value
            MyCommand.Parameters.Add("@回收日期", SqlDbType.SmallDateTime, 4)
            MyCommand.Parameters("@回收日期").Value = backdatedownlist
            MyCommand.Parameters.Add(New SqlParameter("@回收经手人", SqlDbType.VarChar, 18))
            MyCommand.Parameters("@回收经手人").Value = backperontxt.Value

            MyCommand.Connection.Open() '打开连接

            '--------------------------------判断数据库中是否有相同的的记录----------------------------
            Try
                MyCommand.ExecuteNonQuery()
                lbmsg.Text = "增加记录成功！"
                lbmsg.ForeColor = Color.Green
            Catch Exp As SqlException
                If Exp.Number = 2627 Then
                    lbmsg.Text = "错误：编号值不能与已有值重复。"
                Else
                    lbmsg.Text = "错误: 增加记录失败，请检查输入信息是否正确。"
                End If
                lbmsg.ForeColor = Color.Red
            End Try
            MyCommand.Connection.Close() '关闭连接
        End If
    End Sub

End Class