vb課程設(shè)計(jì)-旅游信息管理系統(tǒng)-閱讀頁(yè)
2025-02-25 08:33本頁(yè)面
【正文】 = End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() = False = = = End Sub Private Sub Command1_Click() If = Then MsgBox (對(duì)不起，您還沒(méi)有輸入要查詢的游客編號(hào)，請(qǐng)輸入！ ) Exit Sub End If If Len() 0 Then = adCmdText = select*from 游客表單 where 編號(hào) =39。 Trim() amp。 = True Else MsgBox (請(qǐng)輸入要查找的游客編號(hào)！ ) = Exit Sub End If End Sub Private Sub Command2_Click() If = Then MsgBox (請(qǐng)先選擇游客性別 .) Exit Sub End If 沈 陽(yáng) 大 學(xué) 課程 設(shè)計(jì)說(shuō)明書 If = 男 Then = adCmdText = select*from 游客表單 where 性別 = 39。 = True Exit Sub End If If = 女 Then = adCmdText = select*from 游客表單 where 性別 = 39。 = True Exit Sub End If End Sub Private Sub Command3_Click() If = Then MsgBox (對(duì)不起，您還沒(méi)有輸入要查詢的導(dǎo)游編號(hào)，請(qǐng)輸入！ ) Exit Sub End If If Len() 0 Then = adCmdText = select*from 導(dǎo)游表單 where 編號(hào) =39。 Trim() amp。 = True Else MsgBox (請(qǐng)輸入要查找的導(dǎo)游編號(hào)！ ) = Exit Sub End If End Sub Private Sub Command4_Click() = adCmdText = select*from 游客表單 = True End Sub 沈 陽(yáng) 大 學(xué) 課程 設(shè)計(jì)說(shuō)明書 Private Sub Command5_Click() = adCmdText = select*from 導(dǎo)游表 單 = True End Sub Private Sub Form_Load() = False = False End Sub Private Sub Command1_Click() End Sub Private Sub cmdAdd_Click() If = Then MsgBox 請(qǐng)輸入線路名稱 = Exit Sub End If = adCmdText = select * from 旅游線路表單 where 名稱 =39。 Trim() amp。 If = False Then MsgBox 已經(jīng)存在此線路，請(qǐng)重新輸入！ = Exit Sub End If If = Then MsgBox 請(qǐng)輸入景點(diǎn) Exit Sub End If If = Then MsgBox 請(qǐng)輸入行程天數(shù) 沈 陽(yáng) 大 學(xué) 課程 設(shè)計(jì)說(shuō)明書 Exit Sub End If If = Then MsgBox 請(qǐng)輸入報(bào)價(jià) Exit Sub End If If = Then MsgBox 請(qǐng)輸入住宿 Exit Sub End If If = Then MsgBox 請(qǐng)輸入行程安排 Exit Sub End If If = Then MsgBox 請(qǐng)輸入說(shuō)明 Exit Sub End If If = Then MsgBox 請(qǐng)輸入編號(hào) Exit Sub End If Dim res As Integer res = MsgBox(確實(shí)添加此記錄 !, vbExclamation + vbYesNo + vbDefaultButton2) 39。如果確實(shí)要添加 (名稱 ).Value = Trim() (主要景點(diǎn) ).Value = Trim() (行程天數(shù) ).Value = Trim() (報(bào)價(jià) ).Value = Trim() (住宿 ).Value = Trim() (行程安排 ).Value = Trim() (說(shuō)明 ).Value = Trim() (編號(hào) ).Value = Trim() 沈 陽(yáng) 大 學(xué) 課程 設(shè)計(jì)說(shuō)明書 MsgBox 恭喜你添加成功 End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = False = = = = 39。 amp。 39
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1