【正文】 nteger, Shift As Integer) If KeyCode = 13 Then End Sub按照如上方法設(shè)計(jì)窗體如下：代碼設(shè)計(jì)：Private Sub Form_Load() = PROVIDER=MSDASQL。 amp。DSN=。databasefile=d:\\aa\\。PWD=123456 = select * from tb_tfd 39。 amp。 39。End SubPrivate Sub Command3_Click() = True Unload MeEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End Sub按照如上方法設(shè)計(jì)窗體如下：代碼設(shè)計(jì)：Private Sub Command2_Click() = select * from tb_kf where 房間號(hào) like 39。 39。DRIVER={Oracle in OraDb11g_home1 }。 server=。 UID=scott。 PWD=123456。 Set = Adodc1 39。nbsp。 height: 17px。 border: solid 1px 153966。 color: 283439。nbsp。 height: 17px。 border: solid 1px 153966。 color: 283439。 if(()==0) flag=0。 i ()。amp。 user=(Users)(userName).get(0)。 ListRoleper rolepers=(())。 ListString urllist=new ArrayListString()。 j ()。 ((j).getPermission().getPermissionurl())。 ().getSession().put(permissionlist,permissionlit)。 }else{ flag=0。 }菜單添加頁面前臺(tái)核心代碼： div id=divTitle菜品管理添加菜品/div div id=divFrom s:form action=addfood s:textfield name=foodname label=菜品名稱 cssClass=txt/s:textfield s:textfield name=foodprice label=菜品價(jià)格 cssClass=txt /s:textfield s:textfield name=foodhelpcode label=助記碼 cssClass=txt/s:textfield s:select cssClass=txt label=所屬菜系 name=foodtypeid list= listKey=foodtypeid listValue=foodtypename headerKey=1 headerValue=請選擇您的菜系 multiple=false/ s:textarea cssClass=txt name=foodremark label=備注/s:textarea s:submit value=確定 cssClass=btnClass/s:submit/s:form /div/div菜單添加后臺(tái)處理核心代碼：public class AddFoodAction extends ActionSupport{ private String foodhelpcode。 private String foodprice。 private int foodtypeid。 private FoodTypeServices foodTypeServices。 } public void setFoodTypeServices(FoodTypeServices foodTypeServices) { = foodTypeServices。 } public void setFoodhelpcode(String foodhelpcode) { = foodhelpcode。 } public void setFoodname(String foodname) { = foodname。 } public void setFoodprice(String foodprice) { = foodprice。 } public void setFoodremark(String foodremark) { = foodremark。 } public void setFoodtypeid(int foodtypeid) { = foodtypeid。 } public void setFoodServices(FoodServices foodServices) { = foodServices。 Food food = new Food()。 (foodname)。 (foodremark)。 if ((food)) { return addFoodSuccess。 } }}菜品管理前臺(tái)核心代碼： table width=100% border=0 cellpadding=0 cellspacing=1 bgcolor=a8c7ce onMouseOver=changeto() onmouseout=changeback() tr td width=9% height=20 bgcolor=d3eaef class=STYLE10div align=center input type=checkbox name=checkbox id=checkbox / /div/td td width=15% height=20 bgcolor=d3eaef class=STYLE6div align=centerspan class=STYLE10菜系編號(hào)/span/div/td td width=15% height=20 bgcolor=d3eaef class=STYLE6div align=centerspan class=STYLE10菜系名稱/span/div/td td width=22% height=20 bgcolor=d3eaef class=STYLE6div align=centerspan class=STYLE10備注/span/div/td td width=17% height=20 bgcolor=d3eaef class=STYLE6div align=centerspan class=STYLE10基本操作/span/div/td /tr s:iterator value= var=foodType tr td height=20 bgcolor=FFFFFFdiv align=center input type=checkbox name=checkbox2 id=checkbox2 //div /td td height=20 bgcolor=FFFFFF class=STYLE6div align=center${}/div /td td height=20 bgcolor=FFFFFF class=STYLE19div align=center${}/div /td td height=20 bgcolor=FFFFFF class=STYLE19div align=center${}/div /td td height=20 bgcolor=FFFFFFdiv align=center class=STYLE21 c:if test=${flags1 ==0} a href=?foodTypeId=${}amp。return clickdel()。刪除 /a | a href=?foodTypeId=${}編輯 /a/div/td /tr /s:iterator /table菜品管理后臺(tái)核心代碼：public String execute() { ListFoodtype foodtypelist=foodTypeServices.selectFoodType()。 ActionContext session = ()。 (foodtypelist, foodtypelist)。 return success。return clickdel()39。return clickdel()。刪除/a |ahref=?roomtypeid=${}編輯/a|ahref=?roomTypeID=${}房間概況/a/div/td/tr /s:iterator/table客房類型后臺(tái)處理代碼：public class FindAllRoomTypeAction { private Roomtype roomtype。 private ListRoomtype rTypeList。 ().getSession().put(rTypeList, rTypeList)。 return selectAllRoomTypeSuccess。 } public void setRoomtype(Roomtype roomtype) { = roomtype。 } public void setRoomTypeServices(RoomTypeServices rTypeServices) { = rTypeServices。 } public void setrTypeList(ListRoomtype rTypeList) { = rTypeList。 通過本次課程設(shè)計(jì)，基本掌握了利用VB建立酒店管理系統(tǒng)的前臺(tái)界面，結(jié)合上課所學(xué)內(nèi)容在Oracle上建立表格，并通過添加新數(shù)據(jù)源的方法將前臺(tái)與后臺(tái)Oracle數(shù)據(jù)連接，基本實(shí)現(xiàn)了課程設(shè)計(jì)的要求。36 / 36