淺談客房管理系統(tǒng)-資料下載頁(yè)
2025-04-16 13:53本頁(yè)面
【正文】 錯(cuò)誤End SubPrivate Sub Data1_Reposition() = 記錄： amp。 ( + 1)End SubPrivate Sub Form_Load() = amp。 \ End Sub制作客戶查詢窗體該窗體主要為已經(jīng)住店和離店的客戶進(jìn)行查找的窗體,查找方式按綜合查詢方式進(jìn)行,制作過(guò)程如下:1. 再工程中增加一個(gè)新的窗體form4,其屬性與結(jié)構(gòu)設(shè)置和前面類似, 省略2. 在該窗體中放入一個(gè)數(shù)據(jù)控件data1, 其屬性與結(jié)構(gòu)設(shè)置和前面類似, 省略3. 在該窗體中放入若干文本框控件,其屬性和結(jié)構(gòu)如前面”表1”所示: 略4. 再窗體中放入其他相應(yīng)控件,并設(shè)置其相關(guān)屬性過(guò)程代碼如下:Private Sub Command1_Click()Dim msgDim oldmarkoldmark = msg = Trim(InputBox(請(qǐng)輸入 + , 查詢))If = 房號(hào) Thenmsg = 房號(hào) like 39。 amp。 msg amp。 39。End IfIf = 姓名 Thenmsg = 姓名 like 39。 amp。 msg amp。 39。End IfIf = 性別 Thenmsg = 性別 like 39。 amp。 msg amp。 39。End IfIf = 年齡 Thenmsg = 年齡 like 39。 amp。 msg amp。 39。End IfIf = 國(guó)籍 Thenmsg = 國(guó)籍 like 39。 amp。 msg amp。 39。End IfIf = 身份證號(hào) Thenmsg = 身份證號(hào) like 39。 amp。 msg amp。 39。End IfIf = 客房級(jí)別 Thenmsg = 客房級(jí)別 like 39。 amp。 msg amp。 39。End IfIf = 用房天數(shù) Thenmsg = 用房天數(shù) like 39。 amp。 msg amp。 39。End IfIf = 住店日期 Thenmsg = 住店日期 like 39。 amp。 msg amp。 39。End IfIf = 離店日期 Thenmsg = 離店日期 like 39。 amp。 msg amp。 39。End IfIf Then End If msgIf ThenMsgBox (沒(méi)有符合條件的住房) = oldmarkEnd IfEnd SubPrivate Sub mand2_Click()Unload MeEnd SubPrivate Sub Data1_Error(DataErr As Integer, Response As Integer)39。這就是放置錯(cuò)誤處理代碼的地方39。如果想忽略錯(cuò)誤，注釋掉下一行代碼39。如果想捕捉錯(cuò)誤，在這里添加錯(cuò)誤處理代碼MsgBox 數(shù)據(jù)錯(cuò)事件命中錯(cuò)誤： amp。 Error$(DataErr)Response = 0 39。忽略錯(cuò)誤End SubPrivate Sub Data1_Reposition() = 記錄： amp。 ( + 1)End SubPrivate Sub Form_Load() = amp。 \End Sub Summary : The 21st century is a kownledge economy , information explosion is a characteristic in this , managements and usings of informations are putting forward higher demand to enterprises in information age, This reflects it in two aspects mainly, firstly,The world that we are in bee ocean , knowledge of information already, Enterprises must possess and obtain , deal with and use the ability of the information from the environment of an enterprise, secondly,Enterprise must have been managing and using enterprise’s data information that reflects enterprise of states,witch it produces constantly itself and that describes control letters of management activity to possess also, Having no need for reticence, Visual Basic is a kind of puter language with the fastest developing speed in recent years, Its is favored by numerous puters and programmers with practicabilities succinctly. The ones that pass through Microsoft dealling in generality, Setting up the ability that windows uses conveniently for this language, Thus offered and developed many tasks and high performances that various kinds of business system’s needs.參考文獻(xiàn):《信息系統(tǒng)開(kāi)發(fā)方法教程》 清華大學(xué)出版社 陳佳 編著《中文Access2002》實(shí)用教程》 電子工業(yè)出版社 趙增敏等 編著《Visual Basic 實(shí)用培訓(xùn)教程》 人民郵電出版社 金英姿等 編著《數(shù)據(jù)庫(kù)開(kāi)發(fā)及工程實(shí)例》 人民郵電出版社 姚魏 編著《數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)技術(shù)》 人民郵電出版社 郭琦 編著《VISUAL BASIC 數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)與工程實(shí)踐》 人民郵電出版社 求是科技 編著《深入學(xué)習(xí):VISUAL BASIC 》 電子工業(yè)出版社 [美] dan fox 編著 18 / 18
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1