delphi小區(qū)物業(yè)管理系統(tǒng)課程設計(存儲版)
【正文】 ……… 4 系統(tǒng)目標 ……………………………………………………… ……… …………… 4 開發(fā)環(huán)境 ………………………………………………………… … …………… 4 可行性分析 …………… …………………………………………… …………… 5 2 數(shù)據(jù)庫表的描述及其關系 ……………………………………………… …………… 5 數(shù)據(jù)需求 …………………………… ……………………………………………… 5 系統(tǒng) ER圖 …………………………………………… …… …………………… 6 數(shù)據(jù)字典 ……………………………………………… …… …………………… 7 數(shù)據(jù)庫的建立 ………………………………… …… …………………………… 8 3 功能模塊圖 ………………………………………… ……… …………………………… 8 4 主要功能的實現(xiàn)代碼 …………………………… …………… ………………………… 9 項目文件代碼 …………………………… ……………… ……………… ……… 9 登陸界面 …………………………………… ………………… ………………… 10 登陸界面代 碼 …………………………… …………… ………………………… 14 增加管理員代碼 ………………………………………………………… 15 住戶查詢代碼實現(xiàn) ………………… …………… …………………… 16 增加住戶代碼實現(xiàn) ……………………………………………………… 17 修改住戶代碼實現(xiàn) …………………………………… ……… ………………… 18 4 程序運行效果及其分析 …………………… ………… …………………… …………… 19 5 課程設計總結 ……………………………………………………………………………… 22 4 緒論 隨著我國經(jīng)濟發(fā)展和城市開發(fā)，物業(yè)管理已形成規(guī)模，其效益也越來越明顯。論文首先介紹了課題研究的意義、國內(nèi)外現(xiàn)狀等。而且很多新型小區(qū)已經(jīng)實現(xiàn)了物業(yè)管理信息化，市面上也有很多免費的小區(qū)物業(yè)管理軟件，所以要實現(xiàn)物業(yè)管理的信息化在技術上的可行性是毋庸置疑的。系統(tǒng)能為物業(yè)管理者 和業(yè)主提供高效、方便快捷的服務，工作量和出錯率遠遠低于傳統(tǒng)管理模式，同時新系統(tǒng)操作簡單易上手，特別是與實際流程一致，用戶可以很快熟悉和習慣。39。39。39。39。39。 Form3:=(application)。 N1: TMenuItem。 N9: TMenuItem。 N17: TMenuItem。 procedure N2Click(Sender: TObject)。 procedure N19Click(Sender: TObject)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 End unit Unit3。 Button2: TButton。 15 。39。39。 end else begin := 100 //用戶名和密碼正確將激活主界面 // end。) and (39。a39。添加成功 39。,64) end。 begin if =39。A39。)。 17 procedure (Sender: TObject)。 then begin MessageBox(handle,39。 if =39。 exit。,MB_OK+MB_ICONWARNING)。,39。 (39。).Value:=trim()。e39。添加成功 39。,64)。住戶編號 39。 fieldbyname(39。).Value:=trim()。 except (39。 登陸界面可實現(xiàn)登錄功能，可判斷密碼是否正確。在做這個系統(tǒng)的這段時間里，我學到了我以前沒有掌握牢的知識。 。然后，在老師的輔導和同學的幫助下，我更加深入的去 考慮這個系統(tǒng)。 mrcancel: end。提示 39。 fieldbyname(39。電話 39。,mtconfirmation,[mbyes,mbcancel],0) of mryes: try with do begin edit。,39。 end。).Value:=trim()。 (39。 try with do begin close。 then begin MessageBox(handle,39。,39。,MB_OK+MB_ICONWARNING)。 exit。 begin if =39。 end。 (39。)。 end。,39。 end。)。 begin if (39。用戶號或密碼不正確 39。39。39。 {$R *.dfm} procedure (Sender: TObject)。 Edit2: TEdit。 14 。 。 。 。 。 。 implementation {$R *.dfm} procedure (Sender: TObject)。 procedure N12Click(Sender: TObject)。 N20: TMenuItem。 N15: TMenuItem。
畢業(yè)設計相關推薦
鄂ICP備17016276號-1