版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
1、一、教學目標及基本要求:1、了解學生管理系統(tǒng)的系統(tǒng)設計。2、熟悉用 Visual Basic 語言對旅游信息管理系統(tǒng)的程序開發(fā)。3、掌握用 Visual Basic 對系統(tǒng)的主要功能進行設計。二、教學重點:1、Visual Basic 集成開發(fā)環(huán)境;2、旅游信息管理系統(tǒng)的系統(tǒng)設計的步驟;3、主要功能的模塊設計;4、系統(tǒng)管理系統(tǒng)的數據庫設計。三、教學難點:數據庫的連接四、教學內容:1、旅游信息管理系統(tǒng)的系統(tǒng)設計2、旅游信息管理系統(tǒng)的程序開發(fā)3、旅游信息管理系統(tǒng)的主要功能模塊程序設計五、主要內容:本章將介紹 Visual Basic 應用程序開發(fā)實例 - 旅游信息管理系統(tǒng)。 本學生管 理系統(tǒng)采用V
2、isual Basic 6.0 作為系統(tǒng)開發(fā)環(huán)境,以SQL SERVERS據庫作為 后臺數據庫。在功能能夠滿足要求的條件下,SQL SERVE數據庫往往成為一些小型數據庫軟件的首選。 Visual Basic 6.0 作為一種現代的編程語言,提供了 完善的指令控制語句, 類與對象的支持及豐富的數據類型, 滿足了代碼的模塊化 要求,更有利于今后對系統(tǒng)的擴展與修改。本旅游信息管理系統(tǒng)的主要特點有; 一是可以對旅客的資料、 旅游信息等進行全方位的管理; 二是界面設計簡單易懂, 操作簡便;三是簡單實用的數據庫、報表設計及打印功能。六、旅游信息管理系統(tǒng)的系統(tǒng)設計旅游信息的管理是一項既重要又繁瑣的工作。
3、為更好的做好這項工作, 提高 工作效率,更好的為旅行社的發(fā)展和一線教學服務, 開發(fā)一套旅游信息管理系統(tǒng), 不僅可以節(jié)省人力物力, 而且增強了旅游信息資料的安全性, 提高旅行社的管理 能力。七、15.1.1 旅游信息管理系統(tǒng)的需求分析旅游信息管理系統(tǒng)的實現, 可以使旅行社更方便的對旅客檔案等進行查詢和 錄入,實現旅游信息管理的信息化與現代化。八、旅游信息管理系統(tǒng)的功能模塊設計旅游信息管理系統(tǒng)由系統(tǒng)管理、訂單管理、路線管理、課程管理、打印報表、 系統(tǒng)維護等模塊組成。具體如下:1 系統(tǒng)管理模塊:該模塊由添加用戶名、密碼組成。2 訂單管理模塊:該模塊由增加訂單、修改訂單、刪除訂單組成。3路線管理模塊:
4、該模塊由路線編號、路線名稱、單價組成。4打印報表模塊:該模塊由了旅客檔案信息組成。5系統(tǒng)維護模塊:該模塊由關于系統(tǒng)、數據庫備份組成。旅游信息管理系統(tǒng)功能結構圖:旅游信息管理系統(tǒng)數據庫設計:數據庫名稱“ yh”,其中包括1、用戶名2、密碼用戶表字段名稱字段類型字段大小是否為空描述yhmNchar(10)10是用戶名(主鍵)mmNchar(IO)10是密碼數據庫名稱“ lyxx ” ,其中包括1編號2、姓名3、單價4、報名人數 5、總價6、押金旅游信息表字段名稱字段類型字段大小是否為空描述idNchar(10)10是編號 (主鍵)n ameNchar(10)10是姓名priceNchar(10)1
5、0是單價cou ntNchar(10)10是報名人數pricesNchar(10)10是總價yaji nNchar(10)10是押金數據庫名稱“ lylx ”,其中包括1編號2、路線3、單價旅游路線表字段名稱1字段類型字段大小是否為空描述IdNchar(10)10是編號 (主鍵)luxia nNchar(10)10是路線priceNchar(10)10是單價旅游信息管理系統(tǒng)流程圖:增加進入主界面選擇操作內容旅游信息管理訂單管理修改路線管理路 線 編 號路線旅游管理系統(tǒng)運行程序1、 Visual Basic 與 SQL SERVER 數據庫連接,代碼如下: SqlConnection conn
6、= new SqlConnection ();conn.ConnectionString = server=.;database=xg120407;uid=sa;pwd=jsjxjf ; conn.Open();2、 程序運行結果(1)、運行程序首先進入用戶登陸界面, 輸入用戶名和密碼, 單擊確定,進入系統(tǒng)主程序界 面:(2) 、在主程序界面 旅游信息管理界面 ,選擇 “新增訂單” ,錄入訂單信 息,點擊“添加”,就保存了新增的訂單信息,因為訂單編號是自增的,所以沒 有出現訂單編號相同的情況;BE 9.廉沛忙床理:悴改訂單陽撫営住(3) 、在主程序界面旅游信息管理界面,選擇“修改訂單”,在檢索
7、框中 進行模糊查詢,即可查詢到訂單信息,進行修改和退訂;族番信息后臺管理新増訂單修改訂單路霾管理訂單編號貳姓名:檢素(4) 、選擇“路線管理”,錄入路線信息,點擊“增加”,即可保存新的旅 游路線;(5)、選擇“路線管理”,在瀏覽界面上選中某天訂單信息進行修改和刪除;/下拉列表框數據綁定public void combobox_new()SqlConnection conn = new SqlConnection (connstring); conn. Ope n();stri ng strCmd = select * from lylx ;SqlDataAdapter da = new Sql
8、DataAdapter (strCmd, conn); DataSet ds = new DataSet ();da.Fill(ds,lylx);comboBoxl.DataSource = ds.Tableslylx;comboBoxl.ValueMember =id ; /combobox 真實值comboBoxl.DisplayMember =luxia n ; /combobox 顯示值comboBox2.DataSource = ds.Tableslylx;comboBox2.ValueMember =id ; /combobox 真實值comboBox2.DisplayMember
9、 =luxia n ; /combobox 顯示值/id 編號自增public void _id()SqlConnection conn = new SqlConnection (connstring);conn.Open();string strCmd;strCmd = select top 1 id from lyxx order by id desc ; SqlDataAdapter da = new SqlDataAdapter (strCmd, conn); DataSet ds = new DataSet ();da.Fill(ds);txt_id1.Text = ds.Table
10、s0.Rows00.ToString();int _id = Int32 .Parse(txt_id1.Text);_id+;txt_id1.Text = _id.ToString();/ 價格轉換字符public void _prices()/if(txt_price1.Text.Length = 0)/ return;/int _prices , _price, _count;_price =Int32 .Parse(txt_price1.Text); / 將 string 轉換為 int_count = Int32 .Parse(txt_count1.Text);_prices = _p
11、rice * _count;txt_prices1.Text = _prices.ToString();/ 刷新價格 public void price_new()DataTable table1 = this .comboBox1.DataSource as DataTable ; / 新建 table1 為 combobo的數據源int row in dex = this .comboBoxl.Selected In dex;/ 定義變量 rowin dex為 combobox的選擇行索引/if(table1.Rows.Count = 0)/ / return;/string str =
12、table1.Rowsrowindex price .ToString(); / 獲取數據源 rowindex 行price列的值txt_price1.Text = str;_prices();/ 更新 dataGridView_1,_2 數據public void data_new()SqlConnection conn = new SqlConnection (connstring); conn.Open();string strCmd;strCmd =select * from lyxx ;SqlDataAdapter da = new SqlDataAdapter (strCmd, c
13、onn); DataSet ds = new DataSet();da.Fill(ds);int hs;hs = ds.Tables0.Rows.Count;dataGridView_1.RowCount = hs;dataGridView_2.RowCount = hs; dataGridView_1.ColumnCount = 7; dataGridView_2.ColumnCount = 7;for ( int i = 0; i = hs - 1; i+)for ( int k = 0; k = 6; k+)dataGridView_1.Rowsi.Cellsk.Value=ds.Tab
14、les0.Rowsik.ToString();dataGridView_2.Rowsi.Cellsk.Value=ds.Tables0.Rowsik.ToString();/dataGridView_1.DataSource = ds.Tableslyxx;/dataGridView_2.DataSource = ds.Tableslyxx;/ 更新 dataGridView_3 (路線表)數據 public void data_luxian()SqlConnection conn = new SqlConnection (connstring); conn.Open();string str
15、Cmd;strCmd = select * from lylx ;SqlDataAdapter da = new SqlDataAdapter (strCmd, conn);DataSet ds = new DataSet (); da.Fill(ds);/if(ds.Tables0.Rows.Count = 0)/ return;/int hs;hs = ds.Tables0.Rows.Count; dataGridView_3.ColumnCount = 3;dataGridView_3.RowCount = hs;for ( int i = 0; i = hs - 1; i+)for (
16、 int k = 0; k = 2; k+) dataGridView_3.Rowsi.Cellsk.Value ds.Tables0.Rowsik.ToString();/dataGridView_3.DataSource = ds.Tableslylx;private void btn_add_Click( object sender, EventArgs e)SqlConnection conn = new SqlConnection (connstring); conn.Open();string strCmd;strCmd =select * from lyxx where id =
17、 + txt_id1.Text +SqlDataAdapter da = new SqlDataAdapter (strCmd, conn);DataSet ds = new DataSet (); da.Fill(ds);if (ds.Tables0.Rows.Count = 1 )MessageBox.Show( 用戶已存在! );elsestrCmd = insert into lyxx values ( + txt_id1.Text + , + txt_name1.Text + , + comboBox1.Text + , + txt_price1.Text + , + txt_cou
18、nt1.Text + , + txt_prices1.Text + , + txt_yajin1.Text + ); ;SqlCommandCmd = new SqlCommand(strCmd, conn);Cmd.ExecuteNonQuery();data_new();_id();/ 人數只允許輸入整數private void txt_count1_KeyPress( object sender, KeyPressEventArgs e)/判斷,如果這次輸入不是數字,并且也不是控制字元:退格等。if (! Char.lsNumber(e.KeyChar) & ! Char.lsContr
19、ol(e.KeyChar)/ 設置此次輸入已處理,讓窗口不再受理。e.Handled =true ;return ;elseprice_new();/ 檢索查詢private void btn_select_Click( object sender, EventArgs e)if (txt_select.Text.Length = 0)data_new();SqlConnection conn = new SqlConnection (connstring);conn.Open();string strCmd;% or idstrCmd =select * from lyxx where na
20、me like %+ txt_select.Text +like % + txt_select.Text + % ;SqlDataAdapter da = new SqlDataAdapter (strCmd, conn); DataSet ds = new DataSet ();da.Fill(ds);int hs;hs = ds.Tables0.Rows.Count;dataGridView_2.RowCount = hs; dataGridView_2.ColumnCount = 7;for ( int i = 0; i = hs-1; i+)for ( int k = 0; k = 6; k+)da
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
- 5. 人人文庫網僅提供信息存儲空間,僅對用戶上傳內容的表現方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年寧夏工業(yè)職業(yè)學院高職單招語文2018-2024歷年參考題庫頻考點含答案解析
- 2025至2031年中國尼龍絲拉絲機行業(yè)投資前景及策略咨詢研究報告
- 市場競爭態(tài)勢分析-第3篇-深度研究
- 光伏發(fā)電效率提升-第2篇-深度研究
- 互聯網信息服務業(yè)國際競爭力提升研究-深度研究
- 二零二五年度股份回購協(xié)議書版:跨國公司中國區(qū)股份回購與員工福利保障合同
- 二零二五年度電子合同系統(tǒng)在線爭議解決服務合同
- 2025年度私人墓地買賣及墓園維護合同
- 二零二五年度醫(yī)療健康領域科技成果轉化合同
- 二零二五年度打工人簽訂競業(yè)協(xié)議財產保全與創(chuàng)業(yè)指導合同
- 小學數學分數四則混合運算300題帶答案
- 林下野雞養(yǎng)殖建設項目可行性研究報告
- 心肺復蘇術課件2024新版
- 大型商場招商招租方案(2篇)
- 2024年交管12123學法減分考試題庫和答案
- 臨床下肢深靜脈血栓的預防和護理新進展
- 2024年山東泰安市泰山財金投資集團有限公司招聘筆試參考題庫含答案解析
- 英語主語從句省公開課一等獎全國示范課微課金獎課件
- C139客戶開發(fā)管理模型
- 年度工作總結與計劃會議
- 醫(yī)保按病種分值付費(DIP)院內培訓
評論
0/150
提交評論