Visual Basic 2010 数据库开发之酒店管理系统08入住登记查询

最新推荐文章于 2020-06-27 15:49:52 发布

原创最新推荐文章于 2020-06-27 15:49:52 发布 · 595 阅读

0 ·

CC 4.0 BY-SA版权

Visual Basic 2010 数据库开发实例专栏收录该内容

42 篇文章

订阅专栏

本文介绍了如何使用Visual Basic 2010开发酒店管理系统的入住登记和查询功能。通过实例详细讲解了数据库连接、数据操作及用户界面设计，帮助读者掌握基础的数据库应用开发技巧。

Imports System.Data.SqlClient
Public Class frmRuZhuChaXun
    Dim conn As SqlConnection = GetConnection()
    Dim strSql As String = "Select * From 住宿登记"
    Dim myda As New SqlDataAdapter(strSql, conn)
    Dim mydt As DataTable

    Private Sub FillDataAndView()
        mydt = New DataTable
        myda.Fill(mydt)
    End Sub

    Private Sub frmRuZhuChaXun_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        Me.Close()
        frmMain.Show()
    End Sub

    Private Sub frmRuZhuChaXun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillDataAndView()

        cmbMode.SelectedIndex = 0

        DataGridView1.DataSource = mydt
    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        DataGridView1.DataSource = Nothing
        strSql = "Select * From 住宿登记 Where " & cmbMode.Text & " like '%{0}%'"
        strSql = String.Format(strSql, txtCondition.Text)

        Dim da As SqlDataAdapter = New SqlDataAdapter(strSql, conn)
        Dim dt As New DataTable
        Try
            da.Fill(dt)
        Catch ex As Exception
            MsgBox("不存在")
        End Try

        DataGridView1.DataSource = dt
    End Sub

    Private Sub btnRef_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRef.Click
        frmRuZhuChaXun_Load(sender, e)
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
        frmMain.Show()
    End Sub
End Class