📄 wquery.vb

📁 vb。net 2003数据库设计整套源代码
💻 VB
📖 第 1 页 / 共 2 页
字号:
上一页 12
        Me.btlast.Location = New System.Drawing.Point(256, 144)
        Me.btlast.Name = "btlast"
        Me.btlast.Size = New System.Drawing.Size(64, 23)
        Me.btlast.TabIndex = 14
        Me.btlast.Text = "最末条"
        '
        'btexit
        '
        Me.btexit.Location = New System.Drawing.Point(256, 104)
        Me.btexit.Name = "btexit"
        Me.btexit.Size = New System.Drawing.Size(64, 23)
        Me.btexit.TabIndex = 15
        Me.btexit.Text = "退出"
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("隶书", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.Location = New System.Drawing.Point(8, 184)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 21)
        Me.Label3.TabIndex = 16
        Me.Label3.Text = "查询条件"
        '
        'btsearch
        '
        Me.btsearch.Location = New System.Drawing.Point(256, 184)
        Me.btsearch.Name = "btsearch"
        Me.btsearch.Size = New System.Drawing.Size(64, 23)
        Me.btsearch.TabIndex = 17
        Me.btsearch.Text = "查询"
        '
        'cmbsearch
        '
        Me.cmbsearch.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbsearch.Items.AddRange(New Object() {"姓名", "职工号"})
        Me.cmbsearch.Location = New System.Drawing.Point(80, 184)
        Me.cmbsearch.Name = "cmbsearch"
        Me.cmbsearch.Size = New System.Drawing.Size(80, 20)
        Me.cmbsearch.TabIndex = 19
        '
        'txtsearch
        '
        Me.txtsearch.Location = New System.Drawing.Point(176, 184)
        Me.txtsearch.Name = "txtsearch"
        Me.txtsearch.Size = New System.Drawing.Size(64, 21)
        Me.txtsearch.TabIndex = 20
        Me.txtsearch.Text = ""
        '
        'wquery
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.SystemColors.Window
        Me.ClientSize = New System.Drawing.Size(344, 221)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtsearch, Me.cmbsearch, Me.btsearch, Me.Label3, Me.btexit, Me.btlast, Me.btfirst, Me.btnext, Me.btpre, Me.txtsno, Me.txtage, Me.txttitle, Me.txtwno, Me.txtwname, Me.Label6, Me.Label5, Me.Label4, Me.Label2, Me.Label1})
        Me.Name = "wquery"
        Me.Text = "人员查询"
        Me.ResumeLayout(False)

    End Sub

#End Region

    '当窗体被激活时发生的事件
    Public Sub wquery_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        '给 txtwno.Text赋值为数据项的0单员中的内容
        txtwno.Text = Myrec.Fields(0).Value.ToString
        '给 txtwname.Text赋值为数据项的1单员中的内容
        txtwname.Text = Myrec.Fields(1).Value.ToString
        '给 txttitle.Text赋值为数据项的2单员中的内容
        txttitle.Text = Myrec.Fields(2).Value.ToString
        '给 txtage.Text赋值为数据项的3单员中的内容
        txtage.Text = Myrec.Fields(3).Value.ToString
        '给 txtsno.Text赋值为数据项的4单员中的内容
        txtsno.Text = Myrec.Fields(4).Value.ToString
    End Sub



    Private Sub btnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnext.Click
        If Myrec.EOF = True Then
            '判断是否移动到了末尾
            MsgBox("已经是最后一条")
            '如果到了不向下移动数据项退出SUB
            Exit Sub
        Else
            Myrec.MoveNext()
            '如果没有到底末尾则向下移动数据项
            If Myrec.EOF = True Then
                MsgBox("已经是最后一条")
                Exit Sub
            End If
        End If

        '给 txtwno.Text赋值为数据项的0单员中的内容
        txtwno.Text = Myrec.Fields(0).Value.ToString
        '给 txtwname.Text赋值为数据项的1单员中的内容
        txtwname.Text = Myrec.Fields(1).Value.ToString
        '给 txttitle.Text赋值为数据项的2单员中的内容
        txttitle.Text = Myrec.Fields(2).Value.ToString
        '给 txtage.Text赋值为数据项的3单员中的内容
        txtage.Text = Myrec.Fields(3).Value.ToString
        '给 txtsno.Text赋值为数据项的4单员中的内容
        txtsno.Text = Myrec.Fields(4).Value.ToString
    End Sub

    Private Sub btpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpre.Click
      
        If Myrec.BOF Then
            '如果达到了第一条记录
            MsgBox("已经是第一条")
            Exit Sub
            '如果到第一条则退出此SUB
        Else
            Myrec.MovePrevious()
            '如果没到则向前移动数据项
            If Myrec.BOF = True Then
                MsgBox("已经是第一条")
                Exit Sub
            End If
        End If



        '给 txtwno.Text赋值为数据项的0单员中的内容
        txtwno.Text = Myrec.Fields(0).Value.ToString
        '给 txtwname.Text赋值为数据项的1单员中的内容
        txtwname.Text = Myrec.Fields(1).Value.ToString
        '给 txttitle.Text赋值为数据项的2单员中的内容
        txttitle.Text = Myrec.Fields(2).Value.ToString
        '给 txtage.Text赋值为数据项的3单员中的内容
        txtage.Text = Myrec.Fields(3).Value.ToString
        '给 txtsno.Text赋值为数据项的4单员中的内容
        txtsno.Text = Myrec.Fields(4).Value.ToString

    End Sub

    Private Sub btfirst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btfirst.Click
        Myrec.MoveFirst()
        '给 txtwno.Text赋值为数据项的0单员中的内容
        txtwno.Text = Myrec.Fields(0).Value.ToString
        '给 txtwname.Text赋值为数据项的1单员中的内容
        txtwname.Text = Myrec.Fields(1).Value.ToString
        '给 txttitle.Text赋值为数据项的2单员中的内容
        txttitle.Text = Myrec.Fields(2).Value.ToString
        '给 txtage.Text赋值为数据项的3单员中的内容
        txtage.Text = Myrec.Fields(3).Value.ToString
        '给 txtsno.Text赋值为数据项的4单员中的内容
        txtsno.Text = Myrec.Fields(4).Value.ToString

    End Sub

    Private Sub btlast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btlast.Click
        Myrec.MoveLast()
        '给 txtwno.Text赋值为数据项的0单员中的内容
        txtwno.Text = Myrec.Fields(0).Value.ToString
        '给 txtwname.Text赋值为数据项的1单员中的内容
        txtwname.Text = Myrec.Fields(1).Value.ToString
        '给 txttitle.Text赋值为数据项的2单员中的内容
        txttitle.Text = Myrec.Fields(2).Value.ToString
        '给 txtage.Text赋值为数据项的3单员中的内容
        txtage.Text = Myrec.Fields(3).Value.ToString
        '给 txtsno.Text赋值为数据项的4单员中的内容
        txtsno.Text = Myrec.Fields(4).Value.ToString

    End Sub

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

    Private Sub btsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsearch.Click
        Dim strtem As String
        '定义一个字符串变量接收Inputbox的返回值
        Dim dbstr As String
        '定义一个查询字符串
        strtem = txtsearch.Text
        '接收输入值
        If cmbsearch.Text = "姓名" Then
            dbstr = "select * from worker where wname='" & strtem & "'"
            '建立查询语句  
        ElseIf cmbsearch.Text = "职工号" Then
            dbstr = "select * from worker where wno='" & strtem & "'"
            '建立查询语句   
        ElseIf cmbsearch.Text = "" Then
            MsgBox("请先选择查询条件")
            Exit Sub
        End If
        Myrec = Mydb.OpenRecordset(dbstr, DAO.RecordsetTypeEnum.dbOpenDynaset)
        '执行查询
        If Myrec.EOF Then
            '判断是否查询到了，如果没有查询到则提示没有查询到。
            If cmbsearch.Text = "姓名" Then
                MsgBox("没有查询到该职工信息,您的查询条件是姓名,您输入的是" & txtsearch.Text & " ")
            ElseIf cmbsearch.Text = "职工号" Then
                MsgBox("没有查询到该职工信息,您的查询条件是职工号,您输入的是" & txtsearch.Text & " ")
            End If

        Else
            '给 txtwno.Text赋值为数据项的0单员中的内容
            txtwno.Text = Myrec.Fields(0).Value.ToString
            '给 txtwname.Text赋值为数据项的1单员中的内容
            txtwname.Text = Myrec.Fields(1).Value.ToString
            '给 txttitle.Text赋值为数据项的2单员中的内容
            txttitle.Text = Myrec.Fields(2).Value.ToString
            '给 txtage.Text赋值为数据项的3单员中的内容
            txtage.Text = Myrec.Fields(3).Value.ToString
            '给 txtsno.Text赋值为数据项的4单员中的内容
            txtsno.Text = Myrec.Fields(4).Value.ToString

        End If
    End Sub


End Class
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -