form1.vb

在本实例中

        Me.Cmbdno.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.Cmbdno.DropDownWidth = 64
        Me.Cmbdno.Location = New System.Drawing.Point(80, 24)
        Me.Cmbdno.Name = "Cmbdno"
        Me.Cmbdno.Size = New System.Drawing.Size(72, 20)
        Me.Cmbdno.TabIndex = 4
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(8, 56)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(72, 16)
        Me.Label9.TabIndex = 3
        Me.Label9.Text = "查询职务"
        '
        'BtSearch2
        '
        Me.BtSearch2.Location = New System.Drawing.Point(176, 24)
        Me.BtSearch2.Name = "BtSearch2"
        Me.BtSearch2.Size = New System.Drawing.Size(48, 24)
        Me.BtSearch2.TabIndex = 2
        Me.BtSearch2.Text = "查询"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(8, 24)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(72, 16)
        Me.Label6.TabIndex = 0
        Me.Label6.Text = "查询部门"
        '
        'Gdresult
        '
        Me.Gdresult.DataMember = ""
        Me.Gdresult.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.Gdresult.Location = New System.Drawing.Point(8, 104)
        Me.Gdresult.Name = "Gdresult"
        Me.Gdresult.Size = New System.Drawing.Size(248, 176)
        Me.Gdresult.TabIndex = 1
        '
        'TxtemployeeID
        '
        Me.TxtemployeeID.Location = New System.Drawing.Point(112, 16)
        Me.TxtemployeeID.Name = "TxtemployeeID"
        Me.TxtemployeeID.Size = New System.Drawing.Size(96, 21)
        Me.TxtemployeeID.TabIndex = 1
        Me.TxtemployeeID.Text = ""
        '
        'TBpre
        '
        Me.TBpre.ImageIndex = 1
        Me.TBpre.ToolTipText = "显示上一条"
        '
        'TBNext
        '
        Me.TBNext.ImageIndex = 2
        Me.TBNext.ToolTipText = "显示下一条"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(32, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(56, 16)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "雇员编号"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(32, 61)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 16)
        Me.Label2.TabIndex = 0
        Me.Label2.Text = "雇员姓名"
        '
        'Txttitle
        '
        Me.Txttitle.Location = New System.Drawing.Point(112, 90)
        Me.Txttitle.Name = "Txttitle"
        Me.Txttitle.Size = New System.Drawing.Size(96, 21)
        Me.Txttitle.TabIndex = 1
        Me.Txttitle.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(32, 98)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 16)
        Me.Label3.TabIndex = 0
        Me.Label3.Text = "职    务"
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.TBfirst, Me.TBpre, Me.TBNext, Me.TBlast})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.Iml
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(552, 28)
        Me.ToolBar1.TabIndex = 0
        '
        'TBlast
        '
        Me.TBlast.ImageIndex = 3
        '
        'Iml
        '
        Me.Iml.ImageSize = New System.Drawing.Size(16, 16)
        Me.Iml.ImageStream = CType(resources.GetObject("Iml.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.Iml.TransparentColor = System.Drawing.Color.Transparent
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.RichTextBox1)
        Me.GroupBox1.Controls.Add(Me.Label8)
        Me.GroupBox1.Controls.Add(Me.Txtdeptno)
        Me.GroupBox1.Controls.Add(Me.Label7)
        Me.GroupBox1.Controls.Add(Me.TxteName)
        Me.GroupBox1.Controls.Add(Me.Txttitle)
        Me.GroupBox1.Controls.Add(Me.TxtemployeeID)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.PiBox)
        Me.GroupBox1.Location = New System.Drawing.Point(0, 32)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(240, 336)
        Me.GroupBox1.TabIndex = 1
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "职工信息"
        '
        'RichTextBox1
        '
        Me.RichTextBox1.Location = New System.Drawing.Point(120, 176)
        Me.RichTextBox1.Name = "RichTextBox1"
        Me.RichTextBox1.Size = New System.Drawing.Size(112, 152)
        Me.RichTextBox1.TabIndex = 6
        Me.RichTextBox1.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(128, 160)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 16)
        Me.Label8.TabIndex = 5
        Me.Label8.Text = "其他信息"
        '
        'Txtdeptno
        '
        Me.Txtdeptno.Location = New System.Drawing.Point(112, 127)
        Me.Txtdeptno.Name = "Txtdeptno"
        Me.Txtdeptno.Size = New System.Drawing.Size(96, 21)
        Me.Txtdeptno.TabIndex = 4
        Me.Txtdeptno.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(32, 135)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 3
        Me.Label7.Text = "所属部门"
        '
        'TxteName
        '
        Me.TxteName.Location = New System.Drawing.Point(112, 53)
        Me.TxteName.Name = "TxteName"
        Me.TxteName.Size = New System.Drawing.Size(96, 21)
        Me.TxteName.TabIndex = 1
        Me.TxteName.Text = ""
        '
        'PiBox
        '
        Me.PiBox.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.PiBox.Location = New System.Drawing.Point(8, 168)
        Me.PiBox.Name = "PiBox"
        Me.PiBox.Size = New System.Drawing.Size(112, 160)
        Me.PiBox.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PiBox.TabIndex = 4
        Me.PiBox.TabStop = False
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.GroupBox5)
        Me.GroupBox3.Controls.Add(Me.GroupBox4)
        Me.GroupBox3.Location = New System.Drawing.Point(272, 32)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(272, 376)
        Me.GroupBox3.TabIndex = 3
        Me.GroupBox3.TabStop = False
        '
        'SaveFileDialog1
        '
        Me.SaveFileDialog1.FileName = "doc1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(552, 421)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.ToolBar1)
        Me.Name = "Form1"
        Me.Text = "主窗口"
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        CType(Me.Gdresult, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        TxtemployeeID.Text = myrow.Item(0).ToString
        ' 显示雇员编号
        TxteName.Text = myrow.Item(1).ToString
        '显示雇员名称
        Txttitle.Text = myrow.Item(2).ToString
        '显示雇员当前状态
        Txtdeptno.Text = myrow.Item(10).ToString
        '取得雇员信息
        Dim info As String
        info = "电话：" & myrow.Item(7).ToString & Chr(10) & "地址：" & myrow.Item(6).ToString & Chr(10) & "个人描述：" & myrow.Item(8).ToString
        RichTextBox1.Text = info
        eid = TxtemployeeID.Text


    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick

        If e.Button Is TBfirst Then
            nrow = 0
            TBNext.Enabled = True
        ElseIf e.Button Is TBpre Then
            nrow = nrow - 1
            If nrow = -1 Then
                TBpre.Enabled = False
                Exit Sub
            End If
            TBNext.Enabled = True
        ElseIf e.Button Is TBNext Then
            nrow = nrow + 1
            If nrow = mytable.Rows.Count Then
                TBNext.Enabled = False
                Exit Sub
            End If
            TBpre.Enabled = True
        ElseIf e.Button Is TBlast Then
            nrow = mytable.Rows.Count - 1
            TBpre.Enabled = True

        End If
        Try

            myrow = mytable.Rows.Item(nrow)
            '取得当前行
            TxtemployeeID.Text = myrow.Item(0).ToString
            '显示雇员编号
            TxteName.Text = myrow.Item(1).ToString
            '显示雇员名称
            Txttitle.Text = myrow.Item(2).ToString
            '显示雇员当前状态
            Txtdeptno.Text = myrow.Item(8).ToString
            Dim info As String
            info = "电话：" & myrow.Item(7).ToString & Chr(10) & "地址：" & myrow.Item(6).ToString & Chr(10) & "个人描述：" & myrow.Item(8).ToString
            RichTextBox1.Text = info
            eid = TxtemployeeID.Text
            '显示图片
            If flag = 0 Then
                PiBox.Image.Dispose()
                PiBox.Image = Nothing
                LoadPict()
            ElseIf flag = 1 Then
                LoadPict()
                flag = 0
            End If

        Catch
            MessageBox.Show(Err.Description, "错误信息", MessageBoxButtons.OK, MessageBoxIcon.Error)
            '显示错误信息
        End Try
    End Sub

    Private Sub BtAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtAdd.Click
        Dim Newform As New update()
        Newform.Show()

    End Sub

    Private Sub BtDel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtDel.Click
        Dim ed As Exception
        Try
            '重新建立一个数据库的连接
            Dim mycon As OleDb.OleDbConnection
            Dim mycmd As OleDb.OleDbCommand
            Dim strDele As String
            Dim myds As Data.DataSet
            mycon = New OleDb.OleDbConnection("Provider=SQLOLEDB;Data Source=qianzh;" & _
                                                               "Integrated Security=SSPI;Initial Catalog=employ")
            mycon.Open()
            strDele = "DELETE FROM employees WHERE (employeeid = '" & TxtemployeeID.Text & "')"
            '执行删除操作
            mycmd = New OleDb.OleDbCommand(strDele, mycon)
            mycmd.ExecuteNonQuery()
            mycon.Close()
        Catch ed
            MessageBox.Show("删除出错" & ed.ToString, "错误")
        End Try


        '以下清空显示 
        If MessageBox.Show("您即将删除" & TxtemployeeID.Text & "," & TxteName.Text & "的资料", "确认", _
        MessageBoxButtons.YesNo, MessageBoxIcon.Question) _
          = DialogResult.Yes Then


            TxtemployeeID.Text = ""
            TxteName.Text = ""
            Txttitle.Text = ""
            Txtdeptno.Text = ""
            PiBox.Image.Dispose()
            PiBox.Image = Nothing
            flag = 1
            RichTextBox1.Text = ""
            'qingkong