freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內容

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

2025-06-28 16:47本頁面
  

【正文】 資料,對組織內部整體狀況和信息處理過程進行分析,從業(yè)務全過程和角度進行分析。在這個過程中我感覺到自己還是很有收獲的,在很大程度上提高了自己的獨立解決問題能力和思維方式。極大地鍛煉了自己的動手能力,這是本人在實踐經驗上的一次積累。在開發(fā)過程中我用的是Delphi7這一可視化開發(fā)工具,之前我并沒有接觸任何可視化開發(fā)工具,這次設計使我認識了可視化開發(fā)工具,并學會了使用Delphi這一可視化開發(fā)工具。這是本人在知識面上的又一次擴充。開發(fā)過程中遇到了一些困難,在用戶菜單權限設計方面,因為用的是Access后臺數據庫,所以不能通過登錄一致設計用戶菜單的權限,但后來通過在各模塊中單獨設計用戶判斷,添加限制權限語句解決了這一問題,雖然顯得比較笨拙,但也使問題得到了解決。另外,對Delphi不熟,所以在設計時只用了常用的幾個控件,這使得各個功能模塊的界面都很相似。但這些困難并沒有將我嚇到,反倒更加激起了我對數據庫和Delphi知識的學習興趣。 整個系統在設計方面由于自己的知識和認識方面的欠缺有些地方還不盡人意,比如在數據備份和數據還原方面。開始時考慮要加上數據備份和數據還原模塊,后來由于在技術方面欠缺,所以就放棄了。系統的核心模塊是樓盤信息管理、住戶信息管理、停車場管理、收費項目管理和報修及投訴項目管理,這些模塊能基本滿足小區(qū)物業(yè)管理人員的日常工作和管理。 在開發(fā)的過程中參照了大量的資料,通過自己的理解和實踐?;窘鉀Q了開發(fā)過程中所遇到的問題,我深深的覺得在大學培養(yǎng)的是一種學習能力而不僅僅體現在期終考試的分數上。在大學學習的都是一些基礎,而正是因為有這些基礎我們才能夠很快的掌握一門編程語言和技術。也正是因為我們具備了這種良好的學習能力,并通過我們自身不斷的學習,就可以不斷的更新自己所掌握知識的廣度和深度,只有這樣才能使我們在以后的學習和工作中游刃有余。九、 致謝能夠順利地完成這次畢業(yè)設計,離不開魯文英老師和熊之光老師的悉心指導。在整個開發(fā)過程中不論是在開發(fā)初期的系統規(guī)劃,還是在開發(fā)中期的系統完善方面都給我提了許多好的修改意見。在此衷心的對魯文英老師說聲“謝謝”。在開發(fā)的過程中也得到了不少同學的幫助,在此也對那些幫助過我的同學說聲“謝謝”。附錄:1. 項目文件:begin 。 := 39。小區(qū)物業(yè)管理系統39。 (TmainForm, mainForm)。 。end.2. 主窗體界面設置程序代碼:procedure (Sender: TObject)。 //登錄begin (TloginForm, loginForm)。 。end。procedure (Sender: TObject)。 //修改密碼begin (Tpassword_Form, password_Form)。 。 :=false。end。procedure (Sender: TObject)。 //退出系統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)。 //退出系統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)。 //顯示系統時間begin [1].Text:=39。 系統時間: 39。+timetostr(now)。end。procedure (Sender: TObject)。 //顯示系統日期begin [0].Text:=39。 系統日期: 39。+datetostr(date) end。procedure (Sender: TObject)。 //用戶管理begin if not Assigned(user_Form) then begin (Tuser_Form, user_Form)。 end。 。end。procedure (Sender: TObject)。 //關于系統begin if not Assigned(about_Form) then begin (Tabout_Form, about_Form)。 end。 。end。3. 登錄窗體設置程序代碼:procedure (Sender: TObject)。 //確定按鈕單擊事件var aname,apassword,sqlstr:string。 a,b:integer。begin //有輸入時,從數據庫中檢驗用戶信息 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。 //驗證通過,根據權限設置菜單項的可訪問性 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。 //關閉登錄窗口 。 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
點擊復制文檔內容
法律信息相關推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1