📄 acquery.vb

📁 vb。net 2003数据库设计整套源代码
💻 VB
📖 第 1 页 / 共 2 页
字号:
上一页 12
        '
        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 = ""
        '
        'acquery
        '
        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.txtdescript, Me.txtprice, Me.txtstand, Me.txtano, Me.txtaname, Me.Label6, Me.Label5, Me.Label4, Me.Label2, Me.Label1})
        Me.Name = "acquery"
        Me.Text = "零件查询"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim Mydb As DAO.Database
    '定义一个DAO.Database数据库对象
    Dim MyWs As DAO.Workspace
    '定义一个工作空间DAO.Workspace
    Dim MySql As String
    '定义一个字符串用来存放SQL查询语言
    Dim Myrec As DAO.Recordset
    '定义一个数据项DAO.Recordset
    Dim de As DAO.DBEngine = New DAO.DBEngine()
    '定义一个数据引擎DAO.DBEngine()
    Public Function OpenDb() As Short
        '定义一个数据打开函数
        Dim dbstr As String
        '定义一个字符串来存放数据库所在目录
        dbstr = Application.StartupPath & "\depot.mdb"
        '取得数据库所在目录
        MyWs = de.Workspaces(0)
        '建立一个工作空间
        Mydb = MyWs.OpenDatabase(dbstr, False, False)
        '打开数据库存放于Mydb
        dbstr = "select * from accessory"
        '设置SQL打开方式
        Myrec = Mydb.OpenRecordset(dbstr, DAO.RecordsetTypeEnum.dbOpenDynaset)
        '打开数据项
    End Function

    Public Sub wquery_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        '当程序被激活时发生的事件
        txtano.Text = Myrec.Fields(0).Value.ToString
        '给 txtnumber.Text赋值为数据项的0单员中的内容
        txtaname.Text = Myrec.Fields(1).Value.ToString
        '给 txtname.Text赋值为数据项的1单员中的内容
        txtstand.Text = Myrec.Fields(2).Value.ToString
        '给 txtdate.Text赋值为数据项的3单员中的内容
        txtprice.Text = Myrec.Fields(3).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容
        txtdescript.Text = Myrec.Fields(4).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容
    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("已经是最后一条")
            '如果到了末尾则鸣笛而不向下移动数据项
            Exit Sub
        Else
            Myrec.MoveNext()
            '如果没有到底末尾则向下移动数据项
            If Myrec.EOF = True Then
                MsgBox("已经是最后一条")
                Exit Sub

            End If

        End If

        txtano.Text = Myrec.Fields(0).Value.ToString
        '给 txtnumber.Text赋值为数据项的0单员中的内容
        txtaname.Text = Myrec.Fields(1).Value.ToString
        '给 txtname.Text赋值为数据项的1单员中的内容
        txtstand.Text = Myrec.Fields(2).Value.ToString
        '给 txtdate.Text赋值为数据项的3单员中的内容
        txtprice.Text = Myrec.Fields(3).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容
        txtdescript.Text = Myrec.Fields(4).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容
    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
            '如果到了则鸣笛而不向上移动数据项
        Else
            Myrec.MovePrevious()
            '如果没到则向前移动数据项
            If Myrec.BOF = True Then
                MsgBox("已经是第一条")
                Exit Sub
            End If
        End If

        txtano.Text = Myrec.Fields(0).Value.ToString
        '给 txtnumber.Text赋值为数据项的0单员中的内容
        txtaname.Text = Myrec.Fields(1).Value.ToString
        '给 txtname.Text赋值为数据项的1单员中的内容
        txtstand.Text = Myrec.Fields(2).Value.ToString
        '给 txtdate.Text赋值为数据项的3单员中的内容
        txtprice.Text = Myrec.Fields(3).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容
        txtdescript.Text = Myrec.Fields(4).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容

    End Sub

    Private Sub btfirst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btfirst.Click
        Myrec.MoveFirst()
        txtano.Text = Myrec.Fields(0).Value.ToString
        '给 txtnumber.Text赋值为数据项的0单员中的内容
        txtaname.Text = Myrec.Fields(1).Value.ToString
        '给 txtname.Text赋值为数据项的1单员中的内容
        txtstand.Text = Myrec.Fields(2).Value.ToString
        '给 txtdate.Text赋值为数据项的3单员中的内容
        txtprice.Text = Myrec.Fields(3).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容
        txtdescript.Text = Myrec.Fields(4).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容

    End Sub

    Private Sub btlast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btlast.Click
        Myrec.MoveLast()
        txtano.Text = Myrec.Fields(0).Value.ToString
        '给 txtnumber.Text赋值为数据项的0单员中的内容
        txtaname.Text = Myrec.Fields(1).Value.ToString
        '给 txtname.Text赋值为数据项的1单员中的内容
        txtstand.Text = Myrec.Fields(2).Value.ToString
        '给 txtdate.Text赋值为数据项的3单员中的内容
        txtprice.Text = Myrec.Fields(3).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容
        txtdescript.Text = Myrec.Fields(4).Value.ToString
        '给 txttel.Text赋值为数据项的2单员中的内容

    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 accessory where aname='" & strtem & "'"
            '建立查询语句  
        ElseIf cmbsearch.Text = "零件号" Then
            dbstr = "select * from accessory where ano='" & 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
            txtano.Text = Myrec.Fields(0).Value.ToString
            '给 txtnumber.Text赋值为数据项的0单员中的内容
            txtaname.Text = Myrec.Fields(1).Value.ToString
            '给 txtname.Text赋值为数据项的1单员中的内容
            txtstand.Text = Myrec.Fields(2).Value.ToString
            '给 txtdate.Text赋值为数据项的3单员中的内容
            txtprice.Text = Myrec.Fields(3).Value.ToString
            '给 txttel.Text赋值为数据项的2单员中的内容
            txtdescript.Text = Myrec.Fields(4).Value.ToString
            '给 txttel.Text赋值为数据项的2单员中的内容
        End If
    End Sub
End Class
上一页 12
⌨️ 快捷键说明

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