【正文】 = NowUser 39。================================================!!!!!!!!!!!!!!!!!!!!!!!!!!!39。H112Private Const SC_MOVE = amp。但這不要緊，編程最大的喜事莫過于完成所有程序的那一刻，雖然后續(xù)還有很多維護和修改任務(wù)，但是心里突然輕松下來那一刻的心情是無與倫比的。同時提供了兩套外觀，春天里這套外觀可以避免用戶的審美疲勞。設(shè)計好軟件的幾大模塊，采用自頂向下的經(jīng)典設(shè)計方法，確定實現(xiàn)的功能，開始設(shè)計數(shù)據(jù)庫。（2）可以方便的利用API函數(shù)實現(xiàn)窗體的各種效果。 39。維修完后要進行登記，選擇登記后，系統(tǒng)加載當(dāng)前狀態(tài)為 維修的房間，記錄維修費用和維修員，確定后，系統(tǒng)將操作 roomlogin和reminder表，保持?jǐn)?shù)據(jù)庫系統(tǒng)的參照完整性] ，添加員工，修改密碼[說明:只有管理員，即超級用戶才能添加操作員和員工，但是普通擁護可以修改自己的密碼。 。 *39。當(dāng)客戶需要調(diào)整房間時，點登記后，系統(tǒng)自動加載已入住客戶的房間和空閑的房間號碼，當(dāng)用戶選擇要調(diào)房的客戶時，系統(tǒng)自動加載客戶的信息。嵌入的查詢語句為：select umber,ame,cictype,cium,csex,caddress,ctel,cmember,croom,ctype,cprice,cindate,coutdate,cstatue from cmanage where croom=39。E:\39。Roomlogin(Rid,rname,rtype,rdescribe,rprice,rstatue,ruser)。從而大幅度提高工作效率，提高實施管理的準(zhǔn)確性、科學(xué)性，使擔(dān)負(fù)管理的工作人員從繁雜的手工勞作中解脫出來。然而，傳統(tǒng)的人工管理模式已經(jīng)遠遠不能滿足有效、快捷地處理經(jīng)營中產(chǎn)生的大量信息數(shù)據(jù)的需要，從而使得企業(yè)決策層無法及時、準(zhǔn)確地掌握一線資料，繼而影響對市場進行正確地分析和預(yù)測。⑵ 課程設(shè)計內(nèi)容中要求的設(shè)計結(jié)果。 學(xué)籍管理系統(tǒng)一般來說，選擇課題應(yīng)以在規(guī)定的時間內(nèi)能完成，并能得到應(yīng)有的鍛煉為原則。● 關(guān)系模式的規(guī)范化處理。運用ER方法，設(shè)計出系統(tǒng)的各個局部ER模型。實踐中這是一個需要與用戶不斷交流才能逐步確定的需求。本階段應(yīng)該對整個應(yīng)用情況作全面的、詳細的調(diào)查，確定特定數(shù)據(jù)庫應(yīng)用環(huán)境下的設(shè)計目標(biāo)，收集該應(yīng)用環(huán)境下針對系統(tǒng)設(shè)計所需要的基礎(chǔ)數(shù)據(jù)以及對這些數(shù)據(jù)的具體存儲要求，從而確定用戶的需求。⒈ 系統(tǒng)需求分析需求分析是數(shù)據(jù)庫系統(tǒng)設(shè)計的一個重要的環(huán)節(jié)。⑶ 安全性和完整性功能。設(shè)計局部概念模式。將概念設(shè)計階段產(chǎn)生的全局概念模式（ER圖）轉(zhuǎn)換成初始的關(guān)系模式。各課題的難易度有一定的差異，因此，參加課程設(shè)計的學(xué)生首先要了解設(shè)計的任務(wù)，仔細閱讀各個課題的設(shè)計要求，為了避免多人選同一題，所做課題為（學(xué)號最后兩位數(shù) mod 課題號，比如學(xué)號23號，選題為23 mod 10=3,即做第三題——學(xué)生管理系統(tǒng)）。 工資管理系統(tǒng) 賓館客房管理信息系統(tǒng)內(nèi)容及要求如下：⑴ 設(shè)計任務(wù)、要求及所用軟件環(huán)境或工具介紹。尤其是對于星級賓館，既需要完成前臺的一些服務(wù)工作，還需要完成后臺的管理工作。 用戶需求分析建立一套功能完善的管理信息系統(tǒng)，既能滿足業(yè)務(wù)人員日常處理的需要，增強企業(yè)經(jīng)營全過程的數(shù)字化管理水平；又能滿足管理人員決策分析的需要，提高公司管理層對公司經(jīng)營反饋信息的響應(yīng)速度。Gmanage(Gid,gname,gtype,gnum,gprice,guse,gsum,gdate,guser,gdw)。,size=5mB,maxsize=20mb,filegrowth=10%)log on(name=hotel_log,filename=39。點擊房間能顯示在該房間入住過的客戶。其他用戶自定義完整性約束都通過對控件的屬性設(shè)置來完成，當(dāng)用戶輸入數(shù)據(jù)破壞完整性時，系統(tǒng)會發(fā)出警告，以保持?jǐn)?shù)據(jù)庫的完整性] 調(diào)房，住宿、退宿查詢 [說明:通過入口可以打開窗體。 amp。 amp。在主窗體中便會有提示需要維修的房間，可以通過房態(tài)查詢，查看需要維修的房間號。 amp。（1）可視畫編程，豐富的控件，隨用隨拖，對控件對象編程，很方便。到賓館調(diào)查和到網(wǎng)上收集信息，以及參考了其他信息管理系統(tǒng)，心里就有了輪廓。考慮到用戶使用的方便性，軟件主界面提供了很多入口，以及直觀的圖形顯示，方便用戶操作，因而也給客戶帶來方便，免去了客戶的很多等待時間，提升賓館的形象。本欲來讓老師答辯的，但因個人原因，在答辯那天趕回家了，所以沒得完成最終的答辯。獲取“變動”信息Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SYSCOMMAND = amp。 Minute(Time) = Year(Date) Year()End SubPrivate Sub Command1_Click() 39。)ZSDJ(4).Text = (rtype): ZSDJ(5).Text = (rprice)End SubPrivate Sub Combo5_click() = End SubPrivate Sub DTP3_Change()ZSDJ(6).Text = End SubPrivate Sub Form_Load()If bgi = 1 Then = If bgi = 0 Then = Nothing = Date: = Date: = Date 39。計算折前宿費 ZSDJ(9).Text = ZSDJ(7).Text 39。按回車鍵ZSDJ(3)獲得焦點 Case 3 If KeyCode = vbKeyReturn Then 39。ZSDJ(5)獲得焦點End SubPrivate Sub dj_Click()39。 Minute(Time) amp。 amp。將 Cancel 設(shè)置成 True。用戶按下了“取消”按鈕。從對話框中獲取用戶選定數(shù)值。設(shè)置控件有效或無效 39。u: h$ = MsgBox(沒有空閑房間,客房已滿, 48, Error): = False: = False: = False: = True: = True End SubPrivate Sub ok_Click() 39。On Error GoTo u = (rname)ZSDJ(4).Text = (rtype)ZSDJ(5).Text = (rprice)Set Room = (select * from roomlogin ) While Not If (rstatue) = 空閑 Then (rname) Wend = Year(Date) amp。按回車鍵ZSDJ(10)獲得焦點 Case 10 If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus 39。用val函數(shù)將字符串轉(zhuǎn)換為數(shù)字 = + Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text)) 39。設(shè)置ZSDJ(8)有效 ZSDJ(8).SetFocus 39。定義一個整型變量Dim InLog As RecordsetDim Room As RecordsetDim Remind As RecordsetPrivate Sub Combo4_Click()Set Room = (select * from roomlogin where rname=39。如果按下鼠標(biāo)左鍵 Dim ReturnVal As Long X = ReleaseCapture() ReturnVal = SendMessage(, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0) End IfEnd Sub Private Sub Form_Load() LoadAccess Set Emp = (select * from empl) = Year(Date) amp。當(dāng)前用戶權(quán)限Public mydb As 39。接著在不同機環(huán)境器上測試，有些控件因為沒有帶走，所以報錯，后來帶上控件后都能正常運行，在xp和win7上都能正常運行。有了數(shù)據(jù)庫作為整個設(shè)計的底層，就好象蓋房子有了骨架，而軟件就象是磚瓦，只是將骨架填充完善，給客戶一個好的外觀。在對數(shù)據(jù)庫操作方面，引用了DAO 對象，使用DAO編程連接和操作。) cr 這是直接用嵌入sql語句來插入記錄。 amp。當(dāng)選報修時候，系統(tǒng)自動加載空閑的房間號。如果是掛帳，用戶可以選擇掛帳，在客戶結(jié)帳的時候，調(diào)出掛帳結(jié)帳窗體，系統(tǒng)自動加載掛帳的單位，用戶選擇掛帳單位，系統(tǒng)自動加載需還金額。原住房產(chǎn)生的費用將加在新入住房間上,而提醒表中原房間改為現(xiàn)房間。 39。超級用戶能對押金進行追加，其他用戶必須在超級用戶協(xié)助下才能完成押金追加] 主面板[說明：主界面用VB中的MDIForm，多入口提供給用戶操作，包括菜單欄、工具欄（可選擇顯示和不顯示）、側(cè)邊欄(可隱藏)、主面板Panel(提供操作員最常用的操作，節(jié)約時間)，在狀態(tài)欄可以顯示系統(tǒng)時間和當(dāng)前用戶以及需要維修的房間數(shù)。Cmanage(umber,ame,cictype,cium,csex,caddress,ctel,cmember,croom,ctype,cprice, cindate,cintype,coutdate,cya,cyaadd,cstatue,cchange,creason,cmtel,cmmeeting,cmcar,cmdamage,cmother,cmshould,cmpay,cmback,cuser)。四、 財務(wù)管理：追加押金，增刪財務(wù)，日報表五、 員工管理：增改員工，查刪員工六、 系統(tǒng)管理：增刪管理員，修改密碼，以及預(yù)留的基于SQL的數(shù)據(jù)庫管理(該程序考慮到