formstaff.vb

详细介绍了系统的设计过程,对于初学者是一个不错的参考资料

        'csyy
        '
        Me.csyy.Location = New System.Drawing.Point(80, 104)
        Me.csyy.Name = "csyy"
        Me.csyy.Size = New System.Drawing.Size(80, 21)
        Me.csyy.TabIndex = 7
        Me.csyy.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 109)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(64, 12)
        Me.Label4.TabIndex = 6
        Me.Label4.Text = "出生年月:"
        '
        'bmbh
        '
        Me.bmbh.Location = New System.Drawing.Point(80, 80)
        Me.bmbh.Name = "bmbh"
        Me.bmbh.Size = New System.Drawing.Size(80, 21)
        Me.bmbh.TabIndex = 5
        Me.bmbh.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 83)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(64, 17)
        Me.Label3.TabIndex = 4
        Me.Label3.Text = "部门编号:"
        '
        'ygmc
        '
        Me.ygmc.Location = New System.Drawing.Point(80, 56)
        Me.ygmc.Name = "ygmc"
        Me.ygmc.Size = New System.Drawing.Size(80, 21)
        Me.ygmc.TabIndex = 3
        Me.ygmc.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 59)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 14)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "员工名称:"
        '
        'ygbh
        '
        Me.ygbh.Location = New System.Drawing.Point(80, 32)
        Me.ygbh.Name = "ygbh"
        Me.ygbh.Size = New System.Drawing.Size(80, 21)
        Me.ygbh.TabIndex = 1
        Me.ygbh.Text = ""
        '
        'label1
        '
        Me.label1.Location = New System.Drawing.Point(8, 36)
        Me.label1.Name = "label1"
        Me.label1.Size = New System.Drawing.Size(64, 11)
        Me.label1.TabIndex = 0
        Me.label1.Text = "员工编号:"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(304, 200)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(56, 23)
        Me.Button1.TabIndex = 4
        Me.Button1.Text = "增加"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(360, 200)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(56, 23)
        Me.Button2.TabIndex = 5
        Me.Button2.Text = "退出"
        '
        'FrmStaff
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(488, 278)
        Me.Controls.Add(Me.Ygxx)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "FrmStaff"
        Me.Text = "员工信息表"
        Me.Ygxx.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Mytag = 0 Then
            InsertSub()
        ElseIf Mytag = 1 Then
            UpdateSub()
        End If
    End Sub
    Private Sub InsertSub()
        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim cmd As OleDbCommand
        Dim SQLString As String

        SQLString = "INSERT INTO 员工信息表 (员工编号,员工姓名,部门编号,性别,职位,最高学历,联系电话,住址,生日,出生地)" & _
             " VALUES(" & CInt(ygbh.Text) & ",'" & ygmc.Text & "'," & _
             CInt(bmbh.Text) & ",'" & xb.Text & "','" & zw.Text & "','" & _
             xl.Text & "','" & lxdh.Text & "','" & jtzz.Text & "','" & _
             csyy.Text & "','" & csd.Text & "')"
        Cn.ConnectionString = connstr
        Cn.Open()

        cmd = New OleDbCommand(SQLString, Cn)
        Try
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cmd.Dispose()
        Cn.Dispose()
    End Sub
    Private Sub UpdateSub()
        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim cmd As OleDbCommand
        Dim SQLString As String

        SQLString = "UpDate 员工信息表 Set 员工编号=" & CInt(Ybm.SelectedItem) & ",员工姓名='" & _
        ygmc.Text & "',部门编号=" & CInt(bmbh.Text) & ",性别='" & _
        xb.Text & "',职位='" & zw.Text & "',最高学历='" & _
        xl.Text & "',联系电话='" & lxdh.Text & "',住址='" & _
        jtzz.Text & "',生日='" & csyy.Text & "',出生地='" & _
        csd.Text & "'  where 员工编号 = " & CInt(Ybm.SelectedItem)

        Cn.ConnectionString = connstr
        Cn.Open()

        cmd = New OleDbCommand(SQLString, Cn)
        Try
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        cmd.Dispose()
        Cn.Dispose()
    End Sub

    Private Sub FrmStaff_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim searchSql As String
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader

        If Mytag = 0 Then
            Me.ygbh.Visible = True
            Me.Ybm.Visible = False
            Me.Button1.Text = "添加"
        ElseIf Mytag = 1 Then
            Me.ygbh.Visible = False
            Me.Ybm.Visible = True
            searchSql = "select 员工编号 from 员工信息表"
            Me.ygmc.ReadOnly = True
            Try
                Cn.ConnectionString = connstr
                Cn.Open()
                cmd = New OleDbCommand(searchSql, Cn)
                dr = cmd.ExecuteReader()
                Dim i As Integer = 0
                Do While dr.Read()
                    Me.Ybm.Items.Add(dr.GetValue(0))
                Loop
                dr.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            Me.Button1.Text = "修改"
        End If
    End Sub

    Private Sub Ybm_SelectionChangeCommitted1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Ybm.SelectionChangeCommitted

        Dim connstr As New String("provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;")
        Dim Cn As New OleDbConnection
        Dim searchSql As String
        Dim cmd As OleDbCommand
        Dim dr As OleDbDataReader

        searchSql = "select 员工姓名,部门编号,性别,职位,最高学历,联系电话,住址,生日,出生地 from 员工信息表 where 员工编号=" & CInt(Ybm.SelectedItem)
        Try
            Cn.ConnectionString = connstr
            Cn.Open()
            cmd = New OleDbCommand(searchSql, Cn)
            dr = cmd.ExecuteReader()
            Do While dr.Read()
                Me.ygmc.Text = dr.GetString(0)
                Me.bmbh.Text = dr.GetValue(1)
                Me.xb.Text = dr.GetValue(2)
                Me.zw.Text = dr.GetValue(3)
                Me.xl.Text = dr.GetValue(4)
                Me.lxdh.Text = dr.GetValue(5)
                Me.jtzz.Text = dr.GetValue(6)
                Me.csyy.Text = dr.GetValue(7)
                Me.csd.Text = dr.GetValue(8)
            Loop
            dr.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Cn.Dispose()
        cmd.Dispose()
    End Sub
End Class