小區(qū)物業(yè)管理系統(tǒng)設(shè)計與實現(xiàn)畢業(yè)論文-資料下載頁

　　

【正文】 資料，對組織內(nèi)部整體狀況和信息處理過程進行分析，從業(yè)務(wù)全過程和角度進行分析。在這個過程中我感覺到自己還是很有收獲的，在很大程度上提高了自己的獨立解決問題能力和思維方式。極大地鍛煉了自己的動手能力，這是本人在實踐經(jīng)驗上的一次積累。在開發(fā)過程中我用的是Delphi7這一可視化開發(fā)工具，之前我并沒有接觸任何可視化開發(fā)工具，這次設(shè)計使我認識了可視化開發(fā)工具，并學會了使用Delphi這一可視化開發(fā)工具。這是本人在知識面上的又一次擴充。開發(fā)過程中遇到了一些困難，在用戶菜單權(quán)限設(shè)計方面，因為用的是Access后臺數(shù)據(jù)庫，所以不能通過登錄一致設(shè)計用戶菜單的權(quán)限，但后來通過在各模塊中單獨設(shè)計用戶判斷，添加限制權(quán)限語句解決了這一問題，雖然顯得比較笨拙，但也使問題得到了解決。另外，對Delphi不熟，所以在設(shè)計時只用了常用的幾個控件，這使得各個功能模塊的界面都很相似。但這些困難并沒有將我嚇到，反倒更加激起了我對數(shù)據(jù)庫和Delphi知識的學習興趣。 整個系統(tǒng)在設(shè)計方面由于自己的知識和認識方面的欠缺有些地方還不盡人意，比如在數(shù)據(jù)備份和數(shù)據(jù)還原方面。開始時考慮要加上數(shù)據(jù)備份和數(shù)據(jù)還原模塊，后來由于在技術(shù)方面欠缺，所以就放棄了。系統(tǒng)的核心模塊是樓盤信息管理、住戶信息管理、停車場管理、收費項目管理和報修及投訴項目管理,這些模塊能基本滿足小區(qū)物業(yè)管理人員的日常工作和管理。 在開發(fā)的過程中參照了大量的資料，通過自己的理解和實踐?；窘鉀Q了開發(fā)過程中所遇到的問題，我深深的覺得在大學培養(yǎng)的是一種學習能力而不僅僅體現(xiàn)在期終考試的分數(shù)上。在大學學習的都是一些基礎(chǔ)，而正是因為有這些基礎(chǔ)我們才能夠很快的掌握一門編程語言和技術(shù)。也正是因為我們具備了這種良好的學習能力，并通過我們自身不斷的學習，就可以不斷的更新自己所掌握知識的廣度和深度，只有這樣才能使我們在以后的學習和工作中游刃有余。九、 致謝能夠順利地完成這次畢業(yè)設(shè)計，離不開魯文英老師和熊之光老師的悉心指導(dǎo)。在整個開發(fā)過程中不論是在開發(fā)初期的系統(tǒng)規(guī)劃，還是在開發(fā)中期的系統(tǒng)完善方面都給我提了許多好的修改意見。在此衷心的對魯文英老師說聲“謝謝”。在開發(fā)的過程中也得到了不少同學的幫助，在此也對那些幫助過我的同學說聲“謝謝”。附錄：1. 項目文件：begin 。 := 39。小區(qū)物業(yè)管理系統(tǒng)39。 (TmainForm, mainForm)。 。end.2. 主窗體界面設(shè)置程序代碼：procedure (Sender: TObject)。 //登錄begin (TloginForm, loginForm)。 。end。procedure (Sender: TObject)。 //修改密碼begin (Tpassword_Form, password_Form)。 。 :=false。end。procedure (Sender: TObject)。 //退出系統(tǒng)begin close。end。procedure (Sender: TObject)。 //樓盤管理begin if not Assigned(lpgl_Form) then begin (Tlpgl_Form, lpgl_Form)。 := true。 := true。 := true。 end。 。end。procedure (Sender: TObject)。 //住戶管理begin if not Assigned(zhgl_Form) then begin (Tzhgl_Form, zhgl_Form)。 := true。 := true。 := true。 end。 。end。procedure (Sender: TObject)。 //停車管理begin if not Assigned(tcgl_Form) then begin (Ttcgl_Form, tcgl_Form)。 := true。 := true。 end。 。end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。 //物管收費begin if not Assigned(wgsf_Form) then begin (Twgsf_Form, wgsf_Form)。 := true。 := true。 := true。 end。 。end。procedure (Sender: TObject)。 //退出系統(tǒng)begin Close。end。procedure (Sender: TObject)。 //投訴項目管理begin if not Assigned(tsgl_Form) then begin (Ttsgl_Form, tsgl_Form)。 := true。 := true。 := true。 end。 。end。procedure (Sender: TObject)。//報修項目管理begin if not Assigned(bxgl_Form) then begin (Tbxgl_Form, bxgl_Form)。 := true。 := true。 := true。 end。 。end。procedure (Sender: TObject)。 //顯示系統(tǒng)時間begin [1].Text:=39。 系統(tǒng)時間: 39。+timetostr(now)。end。procedure (Sender: TObject)。 //顯示系統(tǒng)日期begin [0].Text:=39。 系統(tǒng)日期: 39。+datetostr(date) end。procedure (Sender: TObject)。 //用戶管理begin if not Assigned(user_Form) then begin (Tuser_Form, user_Form)。 end。 。end。procedure (Sender: TObject)。 //關(guān)于系統(tǒng)begin if not Assigned(about_Form) then begin (Tabout_Form, about_Form)。 end。 。end。3. 登錄窗體設(shè)置程序代碼：procedure (Sender: TObject)。 //確定按鈕單擊事件var aname,apassword,sqlstr:string。 a,b:integer。begin //有輸入時，從數(shù)據(jù)庫中檢驗用戶信息 if (length(trim()) 0) or (length(trim()) 0) then begin aname:=trim()。 apassword:=trim()。 sqlstr:=39。select * from user1 a,qxb b where (=39。39。39。+aname+39。39。39。)39。 sqlstr:=sqlstr+39。 and(=39。39。39。+apassword+39。39。39。)and(=)39。 sqlstr:=sqlstr+39。 order by 39。 with (nil) do try Close。 SessionName:=。 DatabaseName:=。 。 (sqlstr)。 Open。 //驗證通過，根據(jù)權(quán)限設(shè)置菜單項的可訪問性 if RecordCount 0 then begin First。 while not Eof do begin a:=strtoint(copy(FieldByName(39。cdx39。).AsString,1,1))。 b:=strtoint(copy(FieldByName(39。cdx39。).AsString,2,2))。 [a].Enabled :=true。 [a].Items[b].Enabled :=true。 Next。 end。 //激活按鈕 with mainform do begin := True。 := True。 := True。 := True。 := True。 := True。 end。 //主窗體狀態(tài)欄顯示用戶名 [2].Text:=39。 用戶: 39。+aname。 := false。 := false。 //關(guān)閉登錄窗口 。 end else //驗證不通過，提示錯誤信息 begin showmessage(39。請確認登錄的用戶名和密碼是否正確！39。)。 。 。 end。 finally Free。 end。 end else //無輸入，提示錯誤信息 begin showmessage(39。請輸入登錄用戶名和密碼！39。)。 。 end。end。procedure (Sender: TObject。 var Action: TCloseAction)。begin Action:=caFree。end。procedure (Sender: TObject。 var Key: Char)。begin if key=13 then begin key:=0。 perform(WM_NEXTDLGCTL,0,0)。 end。end。procedure (Sender: TObject。 var Key: Char)。begin if key = 13 then 。end。4. 其余代碼見光盤參考文獻 [M].電子工業(yè)出版社， 劉瑞新，汪遠征，[M].機械工業(yè)出版社, 0 [M].機械工業(yè)出版社， 孔璐，吳志堅，[M].國防工業(yè)出版社， [M].清華大學出版社，41