資源描述：
《旅店登記系統(tǒng)62342》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在行業(yè)資料-天天文庫。
1、沈陽航空航天大學課程設計學號2009040302095班級94030203姓名王東波指導教師王曉巖2011年3月15日沈陽航空航天大學設計用紙沈陽航空工業(yè)學院課程設計任務書學院：航空宇航工程專業(yè)：飛行器制造工程班級：94030203學號：2009040302095題目：旅店登記系統(tǒng)一、課程設計時間2011年3月7~11日（第1周），共計1周，20學時。二、課程設計內(nèi)容用VB編寫軟件完成以下任務：（1）輸入房間信息（旅店的房間號，價錢，是否住旅客等）保存在hotel.txt文件中。（2）新入住旅客住店登記。（3）旅客信息（旅客房間號，
2、姓名，旅客身份證號，聯(lián)系方式等）保存在person.txt文件中。（4）旅客退店。三、課程設計要求程序質(zhì)量：2貫徹事件驅(qū)動的程序設計思想。2用戶界面友好，功能明確，操作方便；可以加以其它功能或修飾。2用戶界面中的菜單至少應包括“房間信息添加”、“旅客入住”、“退房間”、“退出”4項。2代碼應適當縮進，并給出必要的注釋，以增強程序的可讀性。課程設計說明書：2課程結(jié)束后，上交課程設計說明書和源程序。課程設計說明書的格式和內(nèi)容參見提供的模板。四、指導教師和學生簽字指導教師：學生簽名：五、說明書成績六、教師評語第14頁，共14頁沈陽航空航天
3、大學設計用紙目錄一、需求分析4二、設計分析4三、技術要點5四、總結(jié)9五、完整的源程序10六、參考文獻14第14頁，共14頁沈陽航空航天大學設計用紙一、需求分析模擬旅店登錄業(yè)務，主要指“輸入房間信息”和“輸入旅客信息”和“退房”3種業(yè)務。要求：（1）輸入房間信息（旅店的房間號，價錢，是否住旅客等）保存在hotel.txt文件中。（2）新入住旅客住店登記。（3）旅客信息（旅客房間號，姓名，旅客身份證號，聯(lián)系方式等）保存在person.txt文件中。（4）旅客退店。二、設計分析（1）基本原理：文件的讀和寫，順序文件的訪問和讀寫，write
4、和print#命令（2）總體設計：Print#。write#語句連接Txt文本顯示圖1總體設計（3）詳細設計：旅店系統(tǒng)退房旅客信息旅客入店退出第14頁，共14頁沈陽航空航天大學設計用紙確定存入和信息顯示和住店圖2詳細設計三、技術要點（1）連接txt文檔顯示出來的代碼如下：PrivateSubCommand1_Click()DimiAsIntegeri=1Picture1.Print"房間號價錢空滿"Open"hotel.txt"ForInputAs#1DoWhileNotEOF(1)ReDimPreservestu(i)Input
5、#1,stu(i).num,stu(i).pri,stu(i).ynReDimPreservestu(i)i=i+1LoopClose#1Fori=1ToUBound(stu)Picture1.Printstu(i).num&Space(5)&stu(i).pri&Space(5)&stu(i).ynNextiEndSub'顯示房間信息（2）輸入住房信息的代碼如下：（3）PrivateSubCommand2_Click()（4）Dimi%（5）DimnumAsString（6）DimSFAsInteger（7）Fori=1ToUBo
6、und(stu)（8）IfText1.Text=stu(i).numThenstu(i).yn=1（9）Nexti第14頁，共14頁沈陽航空航天大學設計用紙（2）Picture1.Cls（3）Picture1.Print"房間號價錢空滿"（4）（5）Fori=1ToUBound(stu)（6）Picture1.Printstu(i).num&Space(5)&stu(i).pri&Space(5)&stu(i).yn（7）Nexti（8）Open"hotel.txt"ForOutputAs#1（9）Fori=1ToUBound(s
7、tu)（10）Write#1,stu(i).num,stu(i).pri,stu(i).yn（11）Nexti（12）Close#1（13）EndSub'更改房間信息（14）圖3圖書查詢第14頁，共14頁沈陽航空航天大學設計用紙（3）客人住店顯示并存入客人信息程序段如下：PrivateSubCommand1_Click()Open"D:DONGpersion.txt"ForAppendAs#1Write#1,Text1.Text,Val(Text2.Text),Val(Text3.Text),Val(Text5.Text)Dim
8、NAMEAsStringDimNUMBERAsIntegerDimFHONEAsIntegerDimfNAsIntegerText4.Text=Text1.Text&Space(2)&vbCrLf&Text2.Text&Space(2
