freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

旅行社綜合管理系統(tǒng)—(編輯修改稿)

2024-09-07 12:08 本頁面
 

【文章內(nèi)容簡介】 ion, 警告! Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 請輸入報價!, vbOKOnly + vbExclamation, 警告! Text1(3).SetFocus Exit Sub End If If = Then MsgBox 請輸入交通方式!, vbOKOnly + vbExclamation, 警告! Exit Sub End If If Text1(5).Text = Then MsgBox 請輸入住宿標準!, vbOKOnly + vbExclamation, 警告! Text1(5).SetFocus Exit Sub End If If Text1(6).Text = Then 39。以上均為在輸入為空的警告 MsgBox 請輸入行程安排!, vbOKOnly + vbExclamation, 警告! Text1(6).SetFocus Exit Sub End If If flag = 1 Then 39。添加操作 sql = select * from 旅游線路表 where 名稱=39。 + Text1(0).Text + 39。 = adUseClient sql, conn, adOpenKeyset, adLockOptimistic If = False Then 39。判斷是否已經(jīng)存在記錄 MsgBox 已經(jīng)存在這個旅游線路的記錄!, vbOKOnly + vbExclamation, 警告! Text1(0).SetFocus Else rs!名稱 = Text1(0).Text rs!主要景點 = Text1(1).Text rs!行程天數(shù) = Text1(2).Text rs!報價 = Text1(3).Text rs!交通 = rs!住宿 = Text1(5).Text rs!行程安排 = Text1(6).Text rs!說明 = Text1(7).Text Set rs = Nothing MsgBox 記錄已經(jīng)成功添加!, vbOKOnly + vbExclamation, 添加結(jié)果! = select * from 旅游線路表 Unload Me End If ElseIf flag = 2 Then 39。修改操作 select * from 旅游線路表 where 名稱=39。 + Text1(0).Text + 39。, conn, 1, 3 If Then Exit Sub rs!名稱 = Text1(0).Text rs!主要景點 = Text1(1).Text rs!行程天數(shù) = Text1(2).Text rs!報價 = Text1(3).Text rs!交通 = rs!住宿 = Text1(5).Text rs!行程安排 = Text1(6).Text rs!說明 = Text1(7).Text Set rs = Nothing MsgBox 記錄已經(jīng)成功修改!, vbOKOnly + vbExclamation, 修改結(jié)果! = select * from 旅游線路表 Unload Me End IfEnd Sub退出按鈕過程代碼:Private Sub Command2_Click() Unload Me Exit SubEnd Sub窗體調(diào)用時加載信息的過程代碼:Private Sub Form_Load() If = False And = False Then For i = 0 To 7 Text1(i) = (i + 1) Next i If Not IsNull((5)) Then = (5) Else = Else For i = 0 To 7 Text1(i) = Next i = End If With Combo1 39。添加交通方式選項 .AddItem 雙飛 .AddItem 單飛 .AddItem 雙臥 .AddItem 旅行大巴 End With If flag = 1 Then 39。判斷為添加信息 = 添加 + Call init = 0 ElseIf flag = 2 Then 39。判斷為修改信息 = 修改 + Else = amp。 詳細信息 39。判斷為查詢詳細信息 = False = False = 返回 End IfEnd Sub 創(chuàng)建旅游線路查詢窗體,并將該窗體的名稱修改為lyxlcx。該窗體的主要目的是用于對旅游線路進行條件查詢,設置該窗體的基本屬性,如下表所示:窗體lyxlcx的主要屬性屬性項名屬性設置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal,作為該窗體的數(shù)據(jù)源,注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源,但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用,比較麻煩,因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時,數(shù)據(jù)源就已經(jīng)加載,其代碼如下:Private Sub Form_Load() = = adCmdUnknownsql = select * from 旅游線路表 = sql = False = False = FalseIf = False Then End IfSet = Adodc1Option1(0).Value = True = End Sub3.在窗體中放入一個表格控件DataGrid1,該控件的主要作用是顯示數(shù)據(jù),對數(shù)據(jù)進行編輯,其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項名屬性設置內(nèi)容NameDatagrid1Caption旅游線路管理表格AllowaddnewfalseAllowdeletefalseAllowupdatafalseDatasourceAdodc14. 在窗體中放入一個文本框,用于輸入查詢關(guān)鍵字;三個按鈕,名稱分別為提交、重置、詳細信息;三個單選框,名稱分別為所有線路、按旅游線路、按行程天數(shù),作用是為了提供查詢的條件;另外還放入一個標簽用于說明文本框的作用。其過程代碼如下:Option ExplicitDim sql As String提交按鈕過程代碼:Private Sub Command1_Click()Dim str As Stringstr = If Option1(0).Value Then sql = select * from 旅游線路表 = ElseIf Option1(1).Value Then If = Then MsgBox 請輸入線路名稱!, vbCritical, 警告 Exit Sub End If str = 名稱=39。 amp。 Trim() + 39。 sql = select * from 旅游線路表 where amp。 str ElseIf Option1(2).Value Then If = Then MsgBox 請輸入行程天數(shù)!, vbCritical, 警告 Exit Sub End If str = 行程天數(shù)= amp。 Trim() sql = select * from 旅游線路表 where amp。 strEnd If = sql End Sub重置按鈕過程代碼:Private Sub Command2_Click() = End Sub詳細信息按鈕過程代碼:Private Sub Command3_Click() 1End Sub單選框過程代碼:Private Sub Option1_Click(Index As Integer)If Index = 1 Then = 旅游線路ElseIf Index = 2 Then = 行程天數(shù)Else = 關(guān)鍵字End IfEnd Sub 其中本窗體中的詳細信息按鈕單擊事件所調(diào)用的窗體lyxledit2布局和前一個管理窗口中詳細信息按鈕所調(diào)用的窗體lyxledit布局大致相同,但是少了一個組合框,少了一個確定按鈕,因為在查詢模塊中不提供數(shù)據(jù)的修改。Lyxledit2中所采用的過程代碼如下:Option ExplicitDim i As Integer返回按鈕過程代碼:Private Sub Command2_Click() Unload Me Exit SubEnd SubPrivate Sub Form_Load() If = False And = False Then For i = 0 To 7 Text1(i) = (i + 1) Next i Else For i = 0 To 7 Text1(i) = Next i End If = amp。 詳細信息End Sub 創(chuàng)建導游管理窗體導游管理是旅行社管理的一個重要方面,一個好的導游管理模塊對于導游數(shù)據(jù)的創(chuàng)建、更新、刪除、修改都是十分必要的,創(chuàng)建該管理窗體的基本方法如下:1.在工程中增加一個新的窗體,并將該窗體的名稱修改為dygl。設置該窗體的基本屬性,如下表所示:窗體dygl的主要屬性屬性項名屬性設置內(nèi)容Borderstyle1fixedStartupposition2屏幕中心Windowsstate0normal2.在窗體中放入一個ADODC1控件,作為該窗體的數(shù)據(jù)源,注意該工程完全可以直接引入由數(shù)據(jù)環(huán)境引入的數(shù)據(jù)源,但使用數(shù)據(jù)環(huán)境往往需要通過編制命令后再進行各種使用,比較麻煩,因此我們?nèi)圆捎檬褂胊dodc1控件引入數(shù)據(jù)源的方法,在窗體調(diào)用時,數(shù)據(jù)源就已經(jīng)加載,其代碼如下:Private Sub Form_Load() = = adCmdUnknownsql = select * from 導游數(shù)據(jù)表 = sql = False = False = FalseIf = False Then End IfSet = Adodc1End Sub3.在窗體中放入一個表格控件DataGrid1,該控件的主要作用是顯示數(shù)據(jù),對數(shù)據(jù)進行編輯,其表格控件的基本屬性如下表所示。表格控件DATAGIRD1的基本屬性屬性項名屬性設置內(nèi)容NameDatagrid1Caption導游管理表格AllowaddnewTrueAllowdeleteTrueAllowupdataTrueDatasourceAdodc14.在窗體中再放入八個按鈕控件,分別設置其CAPTION為,詳細信息、增加、刪除、修改、首記錄、前一個、
點擊復制文檔內(nèi)容
范文總結(jié)相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1