Vb.net UI

最新推荐文章于 2024-01-31 13:44:54 发布

原创最新推荐文章于 2024-01-31 13:44:54 发布 · 369 阅读

0 ·

CC 4.0 BY-SA版权

Imports System.Data
Imports System.Data.SqlClient

Imports Gates.DA
Imports Gates.BL

Public Class ctrQuerybyPN

Dim _DBTrans As DBTransaction
Dim _BL As Gates.BL.Common

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connec As String = Gates.BL.clxMain.CONNECTIONSTRING
        Dim reDS As New DataSet
        '_DBTrans = New DBTransaction(connec)
        _BL = New Common(connec)
        reDS = _BL.QueryByPN(TextBox1.Text)

DataGridView1.DataSource = reDS.Tables(0)
DataGridView1.Enabled = True

End Sub
End Class