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

正文內(nèi)容

數(shù)據(jù)庫(kù)課程設(shè)計(jì)酒店管理系統(tǒng)-資料下載頁(yè)

2025-04-15 08:46本頁(yè)面
  

【正文】 、3代表維護(hù)中。 備注:證件類型:1代表身份證、2代表學(xué)生證、3代表軍官證、4代表軍官證、5代表士兵證、6代表護(hù)照、7代表戶口本、8代表其他。事由:1代表出差、2代表旅游、3代表探親、4代表開(kāi)會(huì)。測(cè)試:輸入另外一個(gè)用戶名,登陸成功輸入錯(cuò)誤用戶名,顯示沒(méi)有這個(gè)用戶,登錄失敗測(cè)試:點(diǎn)擊客房信息查詢時(shí),出現(xiàn)客房信息查詢窗口備注:客房類型:1代表豪華套裝、2代表標(biāo)準(zhǔn)套間、3代表標(biāo)準(zhǔn)間、4代表三人間、5代表單人間??头繝顟B(tài):1代表房間可用、2代表房間使用中、3代表維護(hù)中。附錄:實(shí)現(xiàn)代碼登陸代碼:39。Dim t%Private Sub Form_Unload(Cancel As Integer) = vbDefaultEnd SubPrivate Sub Adodc1_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) MsgBox Data error event hit err: amp。 DescriptionEnd SubPrivate Sub Adodc1_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) = Record: amp。 CStr()End SubPrivate Sub Adodc1_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancelEnd SubPrivate Sub Command3_Click() On Error GoTo RefreshErr Exit SubRefreshErr: MsgBox End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command1_Click()Static t%Do While = FalseIf = Text3(0).Text Then If = Trim(Text3(1).Text) Then MsgBox 登陸成功, vbOKOnly + vbInformation, 登錄 authority = Val(Trim(Text3(2))) Exit Sub Else MsgBox 密碼錯(cuò)誤, vbOKOnly + vbExclamation, 登錄 t = t + 1 If t = 3 Then MsgBox 不能再次登, vbOKOnly + vbExclamation, 登錄 End If Exit Sub End IfElseEnd IfLoopIf = True Then MsgBox 沒(méi)有這個(gè)用戶End Sub客房信息查詢:Private Sub Toolbar1_ButtonClick(ByVal Button As ) If (1).Enabled = True Then End IfEnd Sub參考文獻(xiàn):王刪,:高等教育出版社,:清華大學(xué)出版社, 總結(jié)通過(guò)這次數(shù)據(jù)庫(kù)課程設(shè)計(jì),我覺(jué)得自己學(xué)會(huì)很多東西。首先,我對(duì)課程設(shè)計(jì)的步驟和要求有了大概的了解了。其次,在系統(tǒng)實(shí)現(xiàn)的時(shí)候,我又了解了許多以前不懂的VB知識(shí),覺(jué)得很有成就感。唯一感到不足的是在系統(tǒng)實(shí)現(xiàn)這一章,我只實(shí)現(xiàn)了兩個(gè)功能,其中一個(gè)功能覺(jué)得做的不是很好,但是,我知道自己的能力有限,自己還沒(méi)有到了可以將一個(gè)系統(tǒng)全部實(shí)現(xiàn)的水平,不過(guò)沒(méi)關(guān)系,知識(shí)就是慢慢學(xué)的嘛。所以,我覺(jué)得這次課程設(shè)計(jì)還是達(dá)到了我預(yù)定的目標(biāo)了。總之,這次課程設(shè)計(jì)對(duì)我今后的學(xué)習(xí)和工作會(huì)有很大的幫助。33 / 33
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1