[工學(xué)]vb課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告-文庫(kù)吧
2025-03-30 04:02 本頁(yè)面
【正文】 1(1).Text) = Then MsgBox 密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit SubEnd IfIf Trim(Text1(2).Text) = Then MsgBox 確認(rèn)密碼不能為空！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocusExit SubEnd IfIf Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 確認(rèn)密碼不正確！, vbExclamation + vbOKOnly, 警告 Text1(2).SetFocusExit SubEnd If opentable adousers, usersinfo 姓名= amp。 39。 amp。 Text1(0).Text amp。 39。, , adSearchForward, 1If = False Then MsgBox 已存在該用戶！, vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit SubEnd If opentable adousers, usersinfo .AddNew !姓名 = Trim(Text1(0).Text) !密碼 = Trim(Text1(1).Text) If Option1(0) Then !權(quán)限 = 1 If Option1(1) Then !權(quán)限 = 2 If Option1(2) Then !權(quán)限 = 3 .Update MsgBox 用戶添加成功！, vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End With Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3．3 創(chuàng)建系統(tǒng)主界面當(dāng)系統(tǒng)運(yùn)行時(shí)，首先進(jìn)入登錄界面，當(dāng)輸入帳號(hào)，密碼合法時(shí)，則啟動(dòng)系統(tǒng)主界面。主窗體是進(jìn)入其他模塊的入口。本系統(tǒng)主界面采用多文檔界面，設(shè)計(jì)情況如圖 設(shè)計(jì)主界面菜單項(xiàng)在操作項(xiàng)目比較多的情況下，通常是通過菜單來調(diào)用下級(jí)程序。菜單項(xiàng)的設(shè)計(jì)包含設(shè)置快捷鍵與訪問鍵，設(shè)置如表： 級(jí)別菜單名稱快捷鍵訪問鍵主菜單系統(tǒng)功能mnuSystemamp。S子菜單用戶管理mnuUserCtrl+Uamp。U退出系統(tǒng)mnuExitamp。X主菜單基本信息管理mnuInfoamp。I子菜單客房信息mnuRoomInfoCtrl+Ramp。R入住情況mnuGuestamp。G退房記錄mnuQuitamp。C主菜單信息查詢mnuQuerySelectamp。Q主菜單報(bào)表輸出mnuReportamp。R子菜單房間情況表mnuReportRoomCtrl+Ramp。R收費(fèi)情況表mnuReportMoneyamp。M主菜單窗口布局mnuWindowamp。W子菜單水平平鋪mnuHorCtrl+Ramp。H垂直平鋪mnuVeramp。V層疊mnuCascadeamp。C排列圖標(biāo)mnuIconamp。I主菜單幫助信息mnuHelpCtrl+Hamp。H內(nèi)容mnuContentamp。C索引mnuIndexamp。I設(shè)計(jì)主界面Option ExplicitPrivate Sub MDIForm_Load() = 賓館客房管理系統(tǒng)opentable adoroom, roomopentable adoguest, guestopentable adoquit, quitEnd SubPrivate Sub mnuCascade_Click() vbCascadeEnd SubPrivate Sub mnudenglu_Click()End SubPrivate Sub mnuExit_Click()Unload MeEnd SubPrivate Sub mnuGuest_Click()End SubPrivate Sub mnuHor_Click() vbTileHorizontalEnd SubPrivate Sub mnuIcon_Click() vbArrangeIconsEnd SubPrivate Sub mnuqueryguest_Click()End SubPrivate Sub mnuqueryroom_Click()End SubPrivate Sub mnuQuit_Click()End SubPrivate Sub mnuRoomInfo_Click()End SubPrivate Sub mnuUser_Click()End SubPrivate Sub mnuver_Click() vbTileVerticalEnd SubPrivate Sub toolbar1_buttonclick(ByVal button As ) Select Case Case 1 mnuRoomInfo_Click Case 2 mnuGuest_Click Case 3 mnuQuit_Click Case 4 mnuqueryroom_Click Case 5 39。mnuReportRoom_Click Case 6 mnuExit_Click End Select End Sub第二章 制作客戶信息登記窗體（趙巖輝）客戶信息窗體包括對(duì)全體旅客信息瀏覽，修改及刪除的窗體和添加新入住旅客信息窗體。旅客基本信息窗體，工作界面設(shè)計(jì)情況如圖： 控件名稱屬性設(shè)置值DataGrid1(名稱)dtgGuestInfoCommand1(名稱)cmdAddNewCaption添加(amp。A)Command2(名稱)cmdEditCaption修改(amp。E)控件名稱屬性設(shè)置值Command3(名稱)cmdDeleteCaption刪除(amp。D)Command4(名稱)cmdExitCaption退出(amp。X) 程序代碼如下：Option ExplicitPrivate Sub dtgguestrefresh()With dtgguestinfo Set .DataSource = .AllowRowSizing = False .HeadFont = 2 .MarqueeStyle = dbgHighlightRow .AllowAddNew = Fal
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1