酒店管理系統(tǒng)開發(fā)文檔

Building industry opens up new world of entrepreneurial struggle to build a three provinces of regional central cities-in the Communist x counties the six plenary session members and comrades: today, I was commissioned by the County party Committee Standing Committee, reports to the General Assembly. Consideration of all members and alternates, and comrades attending advice. A, and this year yilai of work recalled this year yilai, in municipal of right led Xia, County solidarity led County people, to science development views for guide, to good activities for mainline, according to a city four modernizations three more of development thought, concentrated poly force, work hard, political, and economic, and culture, and social and party of construction are made has new progress, County rendering out wind fresh are, and career prosperity, and social settled, and people mind into of good situation. (A) facilitating the construction of the project. Firmly establish the scratch project is economic, grasping development project is to hold philosophy, to extraordinary efforts to promoting the construction of key projects. Plot 108 key projects for the year, with a total investment of 29.3 billion yuan, iron plate, Josh stone cement waste heat power generation and 13 projects completed, worship of 1.2 million tons of pellets, Hua Yu 80,000 sets of grandparent chicken farming, 47 projects under construction, completed investment of 3.95 billion yuan, annual plan of 69.3%. The first half of the Countys gross domestic product is expected to reached 8.5 billion yuan, and total revenue of 943 million Yuan. (B) structural adjustment achieved remarkable results. Actively transforming the pattern of economic development, industrial ecology, and agricultural modernization and industrialization of services. High x-County Tin iron circular economy demonstration area, and further expand economic development zone Jing Dian recycle economy ecology industry Park, Park, circular economy and rapid economic development. Focus more on the dialectical relationship between development and environmental protection, energy saving and emission reduction projects play an important role. Vigorously developing agriculture, ecological agriculture, agriculture, modern agricultural clearing along the River Promenade begins to take shape. Key tourism projects is going well, WA Palace area was named top ten most influential cultural relics in Hebei province landscape. Develop new services, and services with new developments. (C) urban-rural integration process. Promoting three-year difference campaign, battle of two large demolition completed 32 days of 530,000 square meters, exceeded the annual Task 7 months in advance. General big building jiangjun road, bridge and highway bridges, the green heart of the city and other urban construction projects, and focus on building new countryside and new housing model villages, urban and rural areas improve. Highway opened to traffic, Liu Zhang, Qing LAN high-speed x-County section completed by the end of August. Urban and rural中國計(jì)量學(xué)院現(xiàn)代科技學(xué)院課程設(shè)計(jì)報告本課程設(shè)計(jì)名稱 數(shù)據(jù)庫課程設(shè)計(jì) 課程設(shè)計(jì)題目 簡單酒店管理系統(tǒng) 系 （部） 信息系 學(xué) 號 專 業(yè) 計(jì)算機(jī) 姓 名 姚攀攀 班 級 111 指導(dǎo)教師 關(guān) 偉 2014年 5 月 30 日一 開發(fā)背景隨著社會服務(wù)行業(yè)的發(fā)展，酒店行業(yè)對自身提供服務(wù)的質(zhì)量和能力也有了更高的要求。酒店管理系統(tǒng)正是在這樣的情況之下越來越受到重視。酒店內(nèi)部服務(wù)項(xiàng)目 眾多，既需要完成前臺的服務(wù)工作，還需要完成后臺的管理工作。如果沒有一套可靠的酒店管理系統(tǒng)，單憑手工操作，不僅效率低，而且會極大地影響到酒店的服務(wù)質(zhì)量。二酒店管理系統(tǒng)的分析和設(shè)計(jì)2.1需要解決的問題目前手工操作或采用舊管理系統(tǒng)的酒店在運(yùn)營時存在如下幾個主要問題:1房間的預(yù)定功能不能或無法完全的實(shí)現(xiàn)，手工記錄或早期系統(tǒng)無法即時了解當(dāng)天的房間使用狀況，無法判斷房間是否被重復(fù)預(yù)定，客人無法在到達(dá)酒店前隨時進(jìn)行酒店預(yù)訂和房間信息的了解。 2賓客住宿時，操作員不能直接了解實(shí)際房價和房間使用情況；對于預(yù)定賓客無法做到有效的查詢、直接入住。 3收銀處不能快速的了解待結(jié)用戶的情況，無法有效的督促其進(jìn)行費(fèi)用的繳納；當(dāng)用戶結(jié)賬時，對于其消費(fèi)情況無法快速的查詢并清楚的顯示，容易出現(xiàn)費(fèi)用糾紛，住房費(fèi)用靠人工進(jìn)行計(jì)算，容易出現(xiàn)差錯。4管理部門無法直接、快速查詢、統(tǒng)計(jì)客人實(shí)際消費(fèi)情況，營業(yè)情況。5酒店經(jīng)理不能直接、及時了解客房開房情況，客人消費(fèi)情況，酒店?duì)I業(yè)收入情況，沒有各種所需的數(shù)據(jù)分析。6由于人手操作的緣故，所有統(tǒng)計(jì)報表都由人手工計(jì)算和制作，不但效率低，容易差錯，更無法作大型復(fù)雜的統(tǒng)計(jì)，先進(jìn)的管理模式無法在酒店應(yīng)用，直接影響酒店管理水平的提高。7. 客人無法提前了解酒店直觀的了解酒店位置，房間信息,進(jìn)行客房預(yù)訂等。2.2 系統(tǒng)設(shè)計(jì)目標(biāo)針對舊系統(tǒng)的主要問題，本系統(tǒng)提出的總目標(biāo)是為酒店賓客提供迅速、高效、滿意的服務(wù)；最大程度的減少事務(wù)處理過程中的誤差；及時、準(zhǔn)確地反映酒店的運(yùn)作情況、經(jīng)營情況，從而提高酒店的服務(wù)質(zhì)量，獲得更好的經(jīng)濟(jì)效益。具體的目標(biāo)包括：1賓客在線自助預(yù)定服務(wù)功能。2快速辦理客人入住 3客房管理功能：顯示當(dāng)前各房間狀態(tài)（Available/InUse/Booked）4房費(fèi)扣除系統(tǒng)：自動扣除每日房費(fèi)或半日房費(fèi)，使收銀員不必再進(jìn)行繁瑣的計(jì)算。5結(jié)帳系統(tǒng)：自動顯示當(dāng)前待結(jié)、欠款賓客；轉(zhuǎn)帳、入帳、鎖單功能；由電腦自動記錄每位客人的每筆消費(fèi)記錄，確保準(zhǔn)確無誤。6客人資料管理功能：對住宿用戶、預(yù)定用戶、歷史用戶進(jìn)行設(shè)置和管理。7綜合查詢功能。8賬務(wù)統(tǒng)計(jì)功能：根據(jù)需求統(tǒng)計(jì)每日或每月賓館收入、消費(fèi)情況，方便財(cái)務(wù)部門進(jìn)行資金的核對，并直觀的顯示出各段時間酒店的運(yùn)營狀況、入住狀況。9系統(tǒng)運(yùn)行穩(wěn)定可靠、各項(xiàng)維護(hù)功能齊全、易于維護(hù)。10簡單、友好的操作界面。2.3系統(tǒng)性能要求本系統(tǒng)的最終用戶涉及酒店前臺操作人員、收銀員、財(cái)務(wù)人員、經(jīng)理、后勤部門，負(fù)責(zé)了整個酒店的運(yùn)作。因此系統(tǒng)必須運(yùn)行穩(wěn)定可靠。并且操作界面要簡單友好，功能按鈕用詞要明確，提示要完備，使用戶在較短的時間內(nèi)掌握軟件的使用方法。2.4系統(tǒng)運(yùn)行環(huán)境硬件環(huán)境：1.CPU 主頻Pentium3GHz或更高。2.內(nèi)存512M或更高3.顯示器分辨率800*600或更高。操作系統(tǒng)：Windows XPWindows 2003三 功能模塊劃分：簡單酒店管理系統(tǒng)的 系統(tǒng)功能模塊如下圖3-1所示：簡單酒店管理系統(tǒng)客房信息信息查詢結(jié)賬賬務(wù)賬單統(tǒng)計(jì)管理員設(shè)置輔助功能關(guān)于系統(tǒng)系統(tǒng)功能模塊圖（3-1）3.1客房信息：該模塊主要包括：客人入住信息，換房信息，退房信息，預(yù)訂，押金等信息3.2信息查詢：此模塊主要包括:入住旅客信息，房間狀態(tài)，物料消耗，押金消費(fèi)等查詢操作3.3結(jié)賬模塊：此模塊主要包括：餐費(fèi)，話費(fèi)，消費(fèi)入賬，物資總消耗3.4賬務(wù)賬單統(tǒng)計(jì)此模塊主要包括：客房入住，客房話費(fèi)，客房餐費(fèi)，客房消費(fèi)等統(tǒng)計(jì)操作3.5管理員設(shè)置此模塊主要包括：管理員管理，密碼修改，系統(tǒng)日志查看，數(shù)據(jù)備份等操作。3.6輔助功能此模塊主要包括：計(jì)算器，記事本，播放器，小游戲等調(diào)用操作3.7關(guān)于系統(tǒng)此模塊主要包括：系統(tǒng)的相關(guān)信息四 系統(tǒng)功能流程圖：顧客查看房間狀態(tài)查看顧客信息結(jié)帳查看押金信息更換房間前臺接待員發(fā)出預(yù)請求是否為空顧客發(fā)出換房請求換房成功房間已有人，請另換房顧客查看顧客消費(fèi)狀況請求結(jié)賬返回房間信息管理員后臺數(shù)據(jù)管理五 數(shù)據(jù)庫設(shè)計(jì)5.1.1客戶入住單表5.2客房結(jié)賬單5.3客房預(yù)約單表5.4操作用戶表5.5消費(fèi)入帳表5.6消費(fèi)物品表5.7話費(fèi)入賬表5.8酒店信息表5.9酒店房間表5.10餐費(fèi)入賬六 模塊實(shí)現(xiàn)過程6.1主界面設(shè)計(jì)如下圖所示實(shí)現(xiàn)過程，建立一個窗體，命名為mainform,在工具箱中找到menustrip,分別輸入相應(yīng)的菜單項(xiàng)，在form_load時間中添加如下形式的代碼：Dim MyDlg As New 當(dāng)前窗體() MyDlg.ShowDialog()連接子窗體。6.2工具欄的實(shí)現(xiàn)工具欄圖示：實(shí)現(xiàn)方法：在工具箱中把tooltcrip按鈕拖到主窗體中，右擊鼠標(biāo)，選擇新建按鈕，選擇屬性-添加北京 圖片，將圖片引入到當(dāng)前項(xiàng)目中，雙擊按鈕填寫時間，代碼如下：Dim MyDlg As New 當(dāng)前窗體() MyDlg.ShowDialog()6.3模塊功能實(shí)現(xiàn)過程1建立一個模塊（modul）進(jìn)行數(shù)據(jù)庫連接，起連接代碼如下：Module MdlCommon Public txtSQL As String 存放SQL語句 Public DBSet As DataSet 查詢得到的記錄集 Public ErrorMsg As String 存放錯誤信息 Public Function ExecuteSQL(ByVal strSQL As String, ByRef errMsg As String) As DataSet Dim cnn As SqlClient.SqlConnection Dim cmd As New SqlClient.SqlCommand() Dim adpt As SqlClient.SqlDataAdapter Dim rst As New DataSet() Dim SplitSQL() As String errMsg = Try SplitSQL = Split(strSQL) cnn = New SqlClient.SqlConnection(data source=(local);initial catalog=urp;user id=sa;pwd=1234) If InStr(INSERT,DELETE,UPDATE, UCase$(SplitSQL(0) Then cmd.Connection = cnn cmd.Connection.Open() cmd.CommandText = strSQL cmd.ExecuteNonQuery() Else adpt = New SqlClient.SqlDataAdapter(strSQL, cnn) adpt.Fill(rst) ExecuteSQL = rst End If Catch ex As Exception errMsg = ex.Message Finally rst = Nothing cnn = Nothing End Try End Function End Module 2.部分功能實(shí)現(xiàn)介紹：2.1入住登記：單擊菜單項(xiàng)里面的客房入住下拉菜單，單擊【客人入住信息】或單擊工具欄中【住房信息】按鈕，彈出如圖所示窗體：可以在里面輸入相應(yīng)的信息，并進(jìn)行保存。代碼如下：Imports System.Data.SqlClientImports System.IOPublic Class BookForm Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged strsql = select * from 酒店房間 where 類別= & ComboBox1.Text & objconn1.Open() ad = New SqlDataAdapter(strsql, objconn1) objconn1.Close() objdset1.Clear() ad.Fill(objdset1, a) DataGridView1.DataSource = objdset1.Tables(a) Me.TextBox1.Text = Me.DataGridView1.CurrentRow.Cells(0).Value End Sub Private Sub 新增Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新增Button.Click If Trim(TextBox1.Text) = Then MsgBox(房間類別不能為空！, 64, 提示) TextBox1.Focus() Else Dim strin As String objconn1.Open() Dim yybh As New SqlParameter(yybh, SqlDbType.NVarChar, 30) Dim fh As New SqlParameter(fh, SqlDbType.NVarChar, 30) Dim ysyj As New SqlParameter(ysyj, SqlDbType.Float) Dim rzrq As New SqlParameter(rzrq, SqlDbType.DateTime, 16) Dim lkrq As New SqlParameter(lkrq, SqlDbType.DateTime, 20) Dim krxm As New SqlParameter(krxm, SqlDbType.NVarChar, 30) Dim zsrs As New SqlParameter(zsrs, SqlDbType.Int) Dim krxb As New SqlParameter(krxb, SqlDbType.NVarChar, 20) Dim lxdh As New SqlParameter(lxdh, SqlDbType.NVarChar, 20) strin = insert into 客房預(yù)約單(預(yù)約編號,房號,預(yù)收押金,入住日期,離開日期,客人姓名,住宿人數(shù),客人性別,聯(lián)系電話) values(yybh,fh,ysyj,rzrq,lkrq,krxm,zsrs,krxb,lxdh) Dim objcmd1 As New SqlCommand(strin, objconn1) objcmd1.Parameters.Add(yybh) objcmd1.Parameters.Add(fh) objcmd1.Parameters.Add(ysyj) objcmd1.Parameters.Add(rzrq) objcmd1.Parameters.Add(lkrq) objcmd1.Parameters.Add(krxm) objcmd1.Parameters.Add(zsrs) objcmd1.Parameters.Add(krxb) objcmd1.Parameters.Add(lxdh) yybh.Value = 預(yù)約編號TextBox.Text fh.Value = TextBox1.Text ysyj.Value = 預(yù)收押金TextBox.Text rzrq.Value = 入住日期DateTimePicker.Text lkrq.Value = 離開日期DateTimePicker.Text krxm.Value = 客人姓名TextBox.Text zsrs.Value = 住宿人數(shù)ComboBox.Text krxb.Value = 客人性別ComboBox.Text lxdh.Value = 聯(lián)系電話TextBox.Text objcmd1.ExecuteNonQuery() objconn1.Close() objcmd1.Dispose() Dim MyCount As Integer = Convert.ToInt16(Me.DataGridView1.CurrentRow.Cells(5).Value.ToString() If MyCount 0 Then MsgBox(該房間已住人！請另選房間！) Else MsgBox(添加成功！, 64, 提示) End If End If End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Me.TextBox1.Text = Me.DataGridView1.CurrentRow.Cells(0).Value.ToString End Sub Private Sub BookForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim MyConnection As New SqlConnection(conn) MyConnection.Open() Dim MyCommand As SqlCommand = MyConnection.CreateCommand() MyCommand.CommandText = Select max(預(yù)約編號) 最大編號 From 客房預(yù)約單 Dim MyResult As Object = MyCommand.ExecuteScalar() Dim MyID As System.Int64 = 1 If (Not (MyResult Is System.DBNull.Value) Then Dim MyMaxID As String = MyResult.ToString().Trim() MyMaxID = MyMaxID.Substring(2, MyMaxID.Length - 2) MyID = Convert.ToInt64(MyMaxID) + 1 End If Dim MyLength As Integer = MyID.ToString().Length Dim MyNewID As String = Select Case (MyLength) Case 1 MyNewID = YY + MyID.ToString() Case 2 MyNewID = YY + MyID.ToString() Case 3 MyNewID = YY00000 + MyID.ToString() Case 4 MyNewID = YY0000 + MyID.ToString() Case 5 MyNewID = YY000 + MyID.ToString() Case 6 MyNewID = YY00 + MyID.ToString() Case 7 MyNewID = YY0 + MyID.ToString() End Select If (MyConnection.State = ConnectionState.Open) Then MyConnection.Close() End If Me.預(yù)約編號TextBox.Text = MyNewID End SubEnd Class2.2旅客換房登記單擊菜單項(xiàng)里面的客房入住下拉菜單，單擊【客人換房信息】或單擊工具欄中【旅客換房信息】按鈕，彈出如圖所示窗體：可以通過旅客入住編號，酒店房間類別兩種方式進(jìn)行查詢，通過第二個表的信息查看房間狀態(tài)，并進(jìn)行換房操作，實(shí)現(xiàn)過程如下：Imports System.Data.SqlClientImports System.IOPublic Class ChangeHouseForm Private Sub 根據(jù)當(dāng)前選擇換房Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 根據(jù)當(dāng)前選擇換房Button.Click Dim My住宿人數(shù) As Integer = Convert.ToInt16(Me.客房入住單DataGridView.CurrentRow.Cells(10).Value.ToString() Dim My可入住人數(shù) As Integer = Convert.ToInt16(Me.酒店客房信息DataGridView.CurrentRow.Cells(4).Value.ToString() Dim My已住人數(shù) As Integer = Convert.ToInt16(Me.酒店客房信息DataGridView.CurrentRow.Cells(5).Value.ToString() If (My住宿人數(shù) My可入住人數(shù)) Then MessageBox.Show(沒有足夠的床位進(jìn)行換房操作！, 信息提示, MessageBoxButtons.OK, MessageBoxIcon.Information) Return End If Dim My入住編號 As String = Me.客房入住單DataGridView.CurrentRow.Cells(0).Value.ToString() Dim My原房號 As String = Me.客房入住單DataGridView.CurrentRow.Cells(1).Value.ToString() Dim My新房號 As String = Me.酒店客房信息DataGridView.CurrentRow.Cells(0).Value.ToString() If My已住人數(shù) 0 Then MsgBox(此房間已住人，無法換房！) Return Else Dim MyInfo As String = 是否確定將 + My入住編號 + 中的客人從 + My原房號 + 號房換到 + My新房號 + 號房？ If (MessageBox.Show(MyInfo, 信息提示, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No) Then Return End If End If Dim MyConnection As New SqlConnection(conn) MyConnection.Open() Dim MyCommand As SqlCommand = MyConnection.CreateCommand() Dim MySQL As String = Update 酒店房間 Set 已入住人數(shù)=已入住人數(shù)+ + My住宿人數(shù).ToString() + WHERE 房號= + My新房號.ToString() + ; MySQL = MySQL + Update 酒店房間 Set 已入住人數(shù)=已入住人數(shù)- + My住宿人數(shù).ToString() + WHERE 房號= + My原房號.ToString() + ; MySQL = MySQL + Update 客房入住單 Set 房號= + My新房號.ToString() + WHERE 入住編號= + My入住編號.ToString() + ; MyCommand.CommandText = MySQL MyCommand.ExecuteNonQuery() MsgBox(換房成功！) If (MyConnection.State = ConnectionState.Open) Then MyConnection.Close() End If End Sub Private Sub 旅客登記信息Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 旅客登記信息Button.Click Dim MySQL As String = Select * From 客房入住單 Where 入住編號 LIKE + Me.ComboBox1.Text + AND 入住編號 NOT IN (Select 入住編號 FROM 客房結(jié)帳單) Dim MyConnection As New SqlConnection(conn) MyConnection.Open() Dim MyTable As New DataTable() Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection) MyAdapter.Fill(MyTable) Me.客房入住單DataGridView.DataSource = MyTable If (MyConnection.State = ConnectionState.Open) Then MyConnection.Close() End If End Sub Private Sub 酒店房間類別ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 酒店房間類別ComboBox.SelectedIndexChanged strsql = select * from 酒店房間 where 類別= & 酒店房間類別ComboBox.Text & objconn1.Open() ad = New SqlDataAdapter(strsql, objconn1) objconn1.Close() objdset1.Clear() ad.Fill(objdset1, b) 酒店客房信息DataGridView.DataSource = objdset1.Tables(b) End SubEnd Class2.3結(jié)賬登記單擊菜單項(xiàng)里面的【結(jié)賬】下拉菜單，單擊【總費(fèi)用結(jié)賬】或單擊工具欄中【旅客結(jié)賬】按鈕，彈出如圖所示窗體：可以通過選擇酒店房號，旅客姓名進(jìn)行旅客結(jié)賬單打印，并進(jìn)行相應(yīng)保存，具體實(shí)現(xiàn)代碼如下：Imports System.Data.SqlClientImports System.IOPublic Class ConsumeForm Private My入住編號 As String Private MyID As Integer Private MyconsumeTable As New DataTable() Private Sub ConsumeForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load strsql = select * from 消費(fèi)物品 objconn1.Open() ad = New SqlDataAdapter(strsql, objconn1) objconn1.Close() objdset1.Clear() ad.Fill(objdset1, a) 消費(fèi)品價格DataGridView.DataSource = objdset1.Tables(a) Me.消費(fèi)品名稱TextBox.DataBindings.Add(text, objdset1.Tables(a), 名稱) Me.單價TextBox.DataBindings.Add(text, objdset1.Tables(a), 單價) End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim MySQL As String = Select 客人姓名,入住編號 From 客房入住單 Where 房號= + Me.ComboBox1.Text + AND 入住編號 NOT IN(Select 入住編號 FROM 客房結(jié)帳單) Dim MyConnection As New SqlConnection(conn) MyConnection.Open() Dim MyGuestTable As New DataTable() Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection) MyAdapter.Fill(MyGuestTable) Me.ComboBox2.DataSource = MyGuestTable Me.ComboBox2.DisplayMember = 客人姓名 Me.ComboBox2.ValueMember = 入住編號 If (MyConnection.State = ConnectionState.Open) Then MyConnection.Close() End If End Sub Private Sub 添加Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加Button.Click MyID = MyID + 1 Dim MyRow As DataRow = MyconsumeTable.NewRow() MyRow(1) = MyID MyRow(名稱) = Me.消費(fèi)品名稱TextBox.Text MyRow(單價) = Me.單價TextBox.Text MyRow(數(shù)量) = Me.數(shù)量TextBox.Text MyRow(折扣價格) = Me.折扣價格TextBox.Text MyconsumeTable.Rows.Add(MyRow) End SubEnd Class2.4旅客消費(fèi)賬單單擊菜單項(xiàng)里面的【賬單信息】下拉菜單，單擊【統(tǒng)計(jì)消費(fèi)】或單擊工具欄中【消費(fèi)結(jié)賬】按鈕，彈出如圖所示窗體：通過查詢期間內(nèi)的總消費(fèi)，并進(jìn)行打印，具體實(shí)現(xiàn)過程如下：文件名：PrintConsumeForm.vbImports System.TypeImports System.Data.SqlClientImports System.IOImports Microsoft.Office.Interop.ExcelImports System.ReflectionImports Microsoft.Office.CorePublic Class PrintConsumeForm Public MyPrintTable As System.Data.DataTable Dim conn As String = data source=.;connect timeout=300; initial catalog=MyHotel;integrated security=true; Dim objconn1 As New SqlConnection(conn) Private Sub 查詢Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handle