frmfindhouse_name.vb

来自「由VB开发的基于SQL的小区物业管理系统」· VB 代码 · 共 14 行

Option Strict Off
Option Explicit On
Friend Class frmFindHouse_Name
    Inherits System.Windows.Forms.Form

    Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs)
        Me.Close()

    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        DGVResult.DataSource = DBHouse.LoadHouse("Name", Me.TxtName.Text, "")
    End Sub
End Class