插入职工信息.aspx.vb

用VB.NET做的软件工程课程设计

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Data.SqlClient
Imports System.IO
Imports System.Data
Partial Class 修改员工信息
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sqlConnectString As String = "data source=localhost; database=users;Integrated Security=SSPI; user Id=sa;password='';connection TimeOut=30;"
        Dim dCon = New SqlConnection(sqlConnectString)
        dCon.Open()
        Dim empname As String = Me.TextBox1.Text.ToString
        Dim empsex As String = Me.DropDownList1.Text
        Dim emprace As String = Me.TextBox4.Text.ToString
        Dim empyear As String = DropDownList5.Text.ToString
        Dim empmonth As String = Me.DropDownList2.Text
        Dim empday As String = Me.DropDownList3.Text
        Dim empnative As String = Me.TextBox6.Text.ToString
        Dim emppno As String = Me.TextBox3.Text.ToString
        Dim emppost As String = Me.TextBox7.Text.ToString
        Dim empremark As String = Me.TextBox2.Text.ToString
        Dim empdepart As String = Me.TextBox5.Text.ToString

        If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Or Trim(TextBox4.Text) = "" Or Trim(DropDownList5.Text) = "" Then
            MsgBox("请输入完整！")
            '  Response.Redirect("插入职工信息.aspx")
        Else
            If Asc(emppno) < 48 Or Asc(emppno) > 57 Then
                MsgBox("编号错误！")

                ' Response.Redirect("插入职工信息.aspx"
            Else


                Dim sql1 As String
                sql1 = "select count(*) from empinfo where empno='" + emppno + "'"
                Dim comm1 = New SqlCommand(sql1, dCon)
                Dim count As Short = CShort(comm1.ExecuteScalar())
                If count > 0 Then
                    MsgBox("此职工编号已存在！")
                    'Response.Redirect("管理员进入.aspx")
                Else
                    ' Dim temp1 = Val(DropDownList5.Text)
                    ' Dim temp2 = CStr(temp1)
                    Dim sql As String
                    sql = "insert into empinfo values('" + empname + "','" + empsex + "','" + emprace + "','" + empyear + "','" + empmonth + "','" + empday + "','" + empnative + "','" + emppno + "','" + emppost + "','" + empdepart + "','" + empremark + "')"
                    Dim comm = New SqlCommand(sql, dCon)
                    comm.ExecuteScalar()
                    MsgBox("插入成功！")
                    Response.Redirect("插入职工信息.aspx")
                End If
            End If
        End If


    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Response.Redirect("管理员进入.aspx")
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub
End Class