delphi小區(qū)物業(yè)管理系統課程設計

上傳人：奔*** IP屬地：河北更新時間：2024-03-31 格式：doc 頁數：23 大?。?95.50KB 人氣指數：12 舉報 版權申訴

已閱讀1頁，還剩22頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　課程設計任務書　　題目：小區(qū)物業(yè)管理系統 　　姓名： 　　學號： &l

2、t;/p>　　專業(yè)班級： 　　課程： Delphi應用程序設計 　　指導教師：職稱：講師 　　完成時間： 2012年 12 月---

3、-2013年 1 月　　2012年12 月30日　　課程設計任務書及成績評定　　目錄　　緒論……………………………………………………………………………………………4　　1 系統分析…………

4、…………………………………………………………………………4　　1.1系統目標……………………………………………………………………………4 　　1.2 開發(fā)環(huán)境…………………………………………………………… ……………4　　1.3可行性分析…………… …………………………………………… ……………5</p&

5、gt;　　2 數據庫表的描述及其關系……………………………………………… ……………5　　2.1 數據需求……………………………………………………………………………5　　2.2 系統E-R圖………………………………………………………………………6　　2.3 數據字典…………………………

6、………………………………………………7　　2.4 數據庫的建立……………………………………………………………………8　　3 功能模塊圖………………………………………………………………………………8　　4 主要功能的實現代碼……………………………………………………………………9<p

7、>　　4.1 項目文件代碼……………………………………………………………………9　　4.2 登陸界面…………………………………………………………………………10　　4.3 登陸界面代碼……………………………………………………………………14　　4.4增加管理員代碼…………………………………………………………

8、15　　4.5住戶查詢代碼實現………………… …………… ……………………16　　4.6增加住戶代碼實現………………………………………………………17　　4.7修改住戶代碼實現………………………………………………………………18　　4 程序運行效果及其分析…………………

9、………………………………………………19　　5 課程設計總結………………………………………………………………………………22　　緒論　　隨著我國經濟發(fā)展和城市開發(fā)，物業(yè)管理已形成規(guī)模，其效益也越來越明顯。在對地方政府經濟效益而言，主要體現為：減少了大量的財政補貼，對住宅區(qū)開發(fā)

10、企業(yè)而言，能提高物業(yè)市場競爭力，使開發(fā)企業(yè)的房產暢銷，加速資金周轉。同時，完善的物業(yè)管理能為開發(fā)商樹立良好的企業(yè)形象，吸引更多的房地產交易商和消費者。在環(huán)境效益上，住宅區(qū)內的環(huán)境和布局、治安等與整個建設風貌融為一體，提高了房地產業(yè)的綜合效益。小區(qū)物業(yè)管理是針對當代社會這一市場需要應運而生的。用計算機操作的小區(qū)物業(yè)管理系統是為小區(qū)管理者和用戶更好的維護各項物業(yè)管理業(yè)務處理工作而開發(fā)的管理軟件。小區(qū)物業(yè)管理系統在現代社會是最熱門的行業(yè)，是最

11、關切老百姓實際生活的設計，各種人性化的配置，使管理者和業(yè)主對住宅小區(qū)中的事物能更方便、更快捷、更滿意的得到答復。因此，開發(fā)這樣一套小區(qū)物業(yè)管理系統軟件成為很有必要的事情。論文首先介紹了課題研究的意義、國內外現狀等。然后通過系統分析、系統設計、系統實現等幾步詳細說明了小區(qū)物業(yè)管理系統的開發(fā)。　　關鍵詞：小區(qū)物業(yè)，管理系統，用戶，Delphi <b&g

12、t;　　1 系統分析　　1.1 系統目標　?。?）合理的設計數據庫　　盡量合理地減少數據庫數據的冗余，使重復的數據保持在最小限度，這樣將會少占用存儲空間，減少產生混亂影響的危險，還能提高計算機的運行速度。　?。?）

13、設計出友好的界面　　界面的友好與否是軟件優(yōu)劣的重要方面之一。窗口界面的各個控件布局要合理、美觀。　?。?）強大的信息管理和查詢、分析能力　　可以對學生管理工作相關數據進行對方面查詢，提高各個模塊的數據交換。　　1.2 開發(fā)環(huán)境<

14、/p>　　本系統面向Windows操作系統，以Microsoft SQL Server 2000作為后臺數據庫，充分考慮了兼容性的問題，系統具有較好的課擴展性，并從數據庫的應用和開發(fā)的實效性角度出發(fā)，采用delphi7作為開發(fā)工具，采用面向對象技術，系統具有高效性。　　1.3 可行性分析&

15、lt;b>　?。?）技術可行性　　隨著計算機技術的發(fā)展，要將對黎明小區(qū)的物業(yè)管理從原始的文檔管理轉化為信息化管理，是有很強的可行性的。而且很多新型小區(qū)已經實現了物業(yè)管理信息化，市面上也有很多免費的小區(qū)物業(yè)管理軟件，所以要實現物業(yè)管理的信息化在技術上的可行性是毋庸置疑的。本設計要做的只是針對小區(qū)的真實的物業(yè)管理工作來開發(fā)出適用的物業(yè)管理系統，面向Windows操作系統，以

16、Microsoft SQL Server 2000作為后臺數據庫，并從數據庫的應用和開發(fā)的實效性角度出發(fā)，采用delphi7做為開發(fā)工具，采用面向對象技術。在之前做過的課程設計中，都是通過這兩種開發(fā)工具來實現的，因此在技術上不存在問題。　?。?）經濟可行性　　本系統對經濟上沒有太多的要求，只要具備計算機及相應的運行軟

17、件即可開發(fā)。項目成功后，數據的處理加快，可以節(jié)省人力，節(jié)約時間。而且系統對于輸入輸出的規(guī)范，也提高了數據可用性，增強了數據安全系數，能夠更方便、簡單、快速地查詢樓宇、門店、業(yè)主的各個方面的信息，方便快捷的繳費，登記、排查所有的安全隱患，所有的票據、協議的生成、打印等，對提高小區(qū)物業(yè)管理水平有一定得現實意義。　?。?）管理可行性<

18、p>　　本系統以實際工作為原型，抽象相關人員工作原理，系統也設計到權限的管理，對相關數據進行保密，數據的打印頁更加簡單，系統實施以后，管理者不會存在管理方面的問題。　?。?）操作可行性　　本系統采用面向對象技術，開發(fā)出來的界面友好，幾乎人人都可以很簡單地按照相關說明進行操作。系統能為物業(yè)管理者和業(yè)主提供高效、方

19、便快捷的服務，工作量和出錯率遠遠低于傳統管理模式，同時新系統操作簡單易上手，特別是與實際流程一致，用戶可以很快熟悉和習慣。　　5）進度可行性　　我所調查的組織是個規(guī)模小、核心流程連貫的小區(qū)，它的相對簡單的業(yè)務活動，可以使我很快獲得系統需求信息、系統的實現時按照又準備有條理的進度安排來進行的，可以再規(guī)定規(guī)定期限內完成。

20、　　數據庫表的結構描述及其關系　　2.1 數據需求　　根據系統的要求，首先將要記錄的信息分類，要記錄的信息如下：　?。?）住戶表：住戶編號、住戶姓名、性別、電話、備注；　　（2）房屋表：房屋編

21、號、所屬樓棟、住戶編號、住戶姓名、遷入時間、入住期限、備注；　　（3）車位表：車位編號、住戶編號、租用時間、期限、備注；　?。?）繳費表：繳費記錄、住戶編號、住戶姓名、備注；　?。?）報修表：住戶編號、住戶姓名、報修范圍、時間、備注；　?。?）管理員表：管理員帳戶、密碼；

22、　　根據這些需求，本系統需要6個表：“住戶表”用于增加用戶信息；“房屋表”用于增加修改用戶房屋信息；“車位表”用于增加修改住戶租用車位信息；“繳費表”用于記錄住戶所交各種費用；“報修表”用于記錄住戶報修信息；“管理員表”用于管理員登陸，增加，修改等操作。　　2.2系統E-R圖

23、　　2.3 數據字典　　住戶表　　房屋表　　車位表　　繳費表

24、　　報修表　　管理員表　　2.4 數據庫建立　　直接打開SQL2005，新建一個數據庫名為“xqwy”然后在建好的數據庫中根據需要新建表。

25、　　3. 功能模塊圖　　主要功能的實現代碼　　1.項目文件代碼　　program Project2;　　uses<

26、/p>　　Forms,　　windows,　　dialogs,　　Unit1 in 'Unit1.pas' {Form1},<

27、p>　　Unit2 in 'Unit2.pas' {Form2},　　Unit3 in 'Unit3.pas' {Form3},　　Unit4 in 'Unit4.pas' {Form4},　　Unit5 in 'Unit5.pas' {For

28、m5},　　Unit6 in 'Unit6.pas' {Form6},　　Unit7 in 'Unit7.pas' {Form7},　　Unit8 in 'Unit8.pas' {Form8},　　Unit9 in '

29、;Unit9.pas' {Form9},　　Unit10 in 'Unit10.pas' {Form10},　　Unit11 in 'Unit11.pas' {Form11},　　Unit12 in 'Unit12.pas' {Form12},</p&

30、gt;　　Unit13 in 'Unit13.pas' {Form13},　　Unit14 in 'Unit14.pas' {Form14},　　Unit15 in 'Unit15.pas' {Form15},　　Unit16 in '

31、Unit16.pas' {Form16},　　Unit17 in 'Unit17.pas' {Form17},　　Unit18 in 'Unit18.pas' {dm: TDataModule};　　{$R *.res}<b&

32、gt;　　begin　　Application.Initialize;　　Application.CreateForm(Tdm, dm);　　Form2:=TForm2.Create(application);　　Form2.Show;</p&g

33、t;　　Form2.Update;　　sleep(1000);　　Form3:=TForm3.Create(application);　　form2.Free;　　if form3.ShowModal=100 then<

34、p>　　begin　　Application.CreateForm(TForm1, Form1);　　Application.Run;　　end;　　End.</b&

35、gt;　　2.登陸界面　　unit Unit1;　　interface　　uses　　Windows, Messag

36、es, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, StdCtrls, jpeg, ExtCtrls, Menus,unit4,unit5,unit6 ,Unit8, Unit9, Unit7, Unit10, Unit11, Unit12,unit13,unit14,unit15;&

37、lt;p>　　type　　TForm1 = class(TForm)　　MainMenu1: TMainMenu;　　N1: TMenuItem;　　N2: TMenuItem;　　N3

38、: TMenuItem;　　N4: TMenuItem;　　N5: TMenuItem;　　N6: TMenuItem;　　N7: TMenuItem;　　N8: TMenuItem;

39、N9: TMenuItem;　　N10: TMenuItem;　　N11: TMenuItem;　　N12: TMenuItem;　　N13: TMenuItem;　　N14: TMenuItem;<

40、p>　　N15: TMenuItem;　　N16: TMenuItem;　　N17: TMenuItem;　　N18: TMenuItem;　　Image1: TImage;　　Label1: TLabel;</p&g

41、t;　　Label2: TLabel;　　N19: TMenuItem;　　N20: TMenuItem;　　procedure N4Click(Sender: TObject);　　procedure N2Click(Sender: TObject

42、);　　procedure N6Click(Sender: TObject);　　procedure N7Click(Sender: TObject);　　procedure N10Click(Sender: TObject);　　procedure N11Click(S

43、ender: TObject);　　procedure N8Click(Sender: TObject);　　procedure N12Click(Sender: TObject);　　procedure N14Click(Sender: TObject);　　proce

44、dure N19Click(Sender: TObject);　　procedure N20Click(Sender: TObject);　　procedure N16Click(Sender: TObject);　　procedure N18Click(Sender: TObject);

45、　　private　　{ Private declarations }　　public　　{ Public declarations }　　end;</b

46、>　　var　　Form1: TForm1;　　implementation　　{$R *.dfm}　　procedure TForm1.N4Click(Sender: TObject)

47、;　　begin　　close　　end;　　procedure TForm1.N2Click(Sender: TObject);&l

48、t;p>　　begin　　Form4:=TForm4.Create(self);　　Form4.Show;　　end;　　procedure TForm1.N6Click(Sender: T

49、Object);　　begin　　Form5:=TForm5.Create(self);　　Form5.Show;　　end;　　procedure TF

50、orm1.N7Click(Sender: TObject);　　begin　　Form6:=TForm6.Create(self);　　Form6.Show;　　end;&

51、lt;p>　　procedure TForm1.N10Click(Sender: TObject);　　begin　　Form8:=TForm8.Create(self);　　Form8.Show;　　end;

52、　　procedure TForm1.N11Click(Sender: TObject);　　begin　　Form9:=TForm9.Create(self);　　Form9.Show;&

53、lt;p>　　end;　　procedure TForm1.N8Click(Sender: TObject);　　begin　　Form7:=TForm7.Create(self);　　Fo

54、rm7.Show;　　end;　　procedure TForm1.N12Click(Sender: TObject);　　begin　　Form10:=TForm10.Create(self);

55、　　Form10.Show;　　end;　　procedure TForm1.N14Click(Sender: TObject);　　begin　　For

56、m12:=TForm12.Create(self);　　Form12.Show;　　end;　　procedure TForm1.N19Click(Sender: TObject);　　begin

57、　　Form11:=TForm11.Create(self);　　Form11.Show;　　end;　　procedure TForm1.N20Click(Sender: TObject);

58、　　begin　　Form13:=TForm13.Create(self);　　Form13.Show;　　end;　　procedure TForm1.N16Click(Sender: TObj

59、ect);　　begin　　Form14:=TForm14.Create(self);　　Form14.Show;　　end;　　procedure TF

60、orm1.N18Click(Sender: TObject);　　begin　　Form15:=TForm15.Create(self);　　Form15.Show;　　end;

61、;　　End　　3.登陸界面代碼　　unit Unit3;　　interface　　uses<

62、;/p>　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　　Dialogs, StdCtrls, jpeg, ExtCtrls;　　type

63、TForm3 = class(TForm)　　Image1: TImage;　　Label1: TLabel;　　Label2: TLabel;　　Edit1: TEdit;　　Edit2: TEdit;&

64、lt;p>　　Button1: TButton;　　Button2: TButton;　　procedure Button1Click(Sender: TObject);　　procedure Button2Click(Sender: TObject);<b&

65、gt;　　private　　{ Private declarations }　　public　　{ Public declarations }　　end;

66、　　var　　Form3: TForm3;　　implementation　　uses Unit18;　　{$R *.dfm}　　procedure TForm3.Butt

67、on1Click(Sender: TObject);　　begin　　dm.ADOQuery1.Close;　　dm.ADOQuery1.SQL.Clear;　　dm.ADOQuery1.SQL.Add('select * f

68、rom admin where 管理員='''+edit1.Text+''''+'and '+'密碼='''+edit2.Text+'''' );　　dm.ADOQuery1.Open;　　if dm.ADOQuery1

69、.Eof then　　begin　　showmessage('用戶號或密碼不正確');　　end　　else<p

70、>　　begin　　form3.ModalResult := 100 //用戶名和密碼正確將激活主界面//　　end;　　end;　　procedur

71、e TForm3.Button2Click(Sender: TObject);　　begin　　form3.Close;　　end;　　end.</p&

72、gt;　　4.增加管理員代碼　　procedure TForm4.Button1Click(Sender: TObject);　　begin　　if (edit1.Text<>'') an

73、d (edit2.Text<>'') then　　begin　　try　　with dm.ADOQuery1 do　　begin&

74、lt;/p>　　close;　　sql.Clear;　　sql.Add('insert admin values(:a,:b)'); //向管理員表中添加數據　　parameters.ParamByName('a'

75、).Value:=trim(edit1.Text); //用戶名　　parameters.ParamByName('b').Value:=trim(edit2.Text); //密碼　　execsql;　　end;<

76、/p>　　application.MessageBox('添加成功','提示',64);　　except　　application.MessageBox('用戶已經存在','失敗',64)<p&g

77、t;　　end;　　end　　else　　application.MessageBox('用戶或密碼不能為空','提示',64);<p&g

78、t;　　end;　　5.住戶查詢代碼實現　　procedure TForm5.Button1Click(Sender: TObject);　　begin　　if combobox1.Text=&#

79、39;按住戶編號查詢' then　　begin　　with dm.ADOQuery2 do　　begin　　close;<

80、;p>　　sql.Clear;　　sql.Add('select * from 住戶 where 住戶編號=:A ');　　Parameters.ParamByName('A').Value :=Edit1.Text;　　open;<

81、;/p>　　end;　　end　　else　　begin　　with dm.ADOQuery

82、2 do　　begin　　close;　　sql.Clear;　　sql.Add('select * from 住戶 where 姓名=:A ');<

83、p>　　Parameters.ParamByName('A').Value :=Edit1.Text;　　open;　　end;　　end;<p&g

84、t;　　end;　　procedure TForm5.Button2Click(Sender: TObject);　　begin　　form7:=TForm7.Create(self);　　for

85、m7.ShowModal;　　form7.Free;　　end;　　end.　　6.增加住戶代碼實現　　procedure TForm6.Button1C

86、lick(Sender: TObject);　　begin　　if Edit1.Text ='' then　　begin　　MessageBox(handle,'住戶編號不

87、能為空!','警告',MB_OK+MB_ICONWARNING);　　Edit1.SetFocus ;　　exit;　　end;　　if Edit2.Text ='

88、' then　　begin　　MessageBox(handle,'姓名不能為空!','警告',MB_OK+MB_ICONWARNING);　　Edit2.SetFocus ;

89、　　exit;　　end;　　if Edit3.Text ='' then　　begin　　MessageBox(handle,'電話不能為空!'

90、;,'警告',MB_OK+MB_ICONWARNING);　　Edit3.SetFocus ;　　exit;　　end;　　if Edit6.Text ='' th

91、en　　begin　　MessageBox(handle,'性別不能為空!','警告',MB_OK+MB_ICONWARNING);　　Edit6.SetFocus ;　　exit;&

92、lt;/b>　　end;　　try　　with dm.ADOQuery2 do　　begin

93、　　close;　　sql.Clear;　　sql.Add('insert 住戶 values (:a,:b,:c,:d,:e,:f)');　　parameters.ParamByName('a').Value:=trim(edit1.Text);</p&

94、gt;　　parameters.ParamByName('b').Value:=trim(edit2.Text);　　parameters.ParamByName('c').Value:=trim(edit6.Text);　　parameters.ParamByName('d').Va

95、lue:=trim(edit3.Text);　　parameters.ParamByName('e').Value:=trim(edit4.Text);　　parameters.ParamByName('f').Value:=trim(edit5.Text);

96、execsql;　　end;　　application.MessageBox('添加成功','提示',64);　　except　　applica

97、tion.MessageBox('添加失敗，檢查信息是否存在或正確','失敗',64);　　end;　　end;　　7.修改住戶代碼實現　　procedure TF

98、orm7.Button1Click(Sender: TObject);　　begin　　case messageDlg('確認修改？',mtconfirmation,[mbyes,mbcancel],0) of　　mryes:</b&g

99、t;　　try　　with dm.ADOQuery2 do　　begin　　edit;　　fieldbyname(&

100、#39;住戶編號').Value:=trim(Edit1.Text);　　fieldbyname('姓名').Value:=trim(Edit2.Text);　　fieldbyname('電話').Value:=trim(Edit3.Text);　　fieldbyname(

101、'性別').Value:=trim(Edit6.Text);　　fieldbyname('聯系地址').Value:=trim(Edit4.Text);　　fieldbyname('備注').Value:=trim(Edit5.Text);　　po

102、st;　　end;　　application.MessageBox('修改成功','提示',64);　　except　　application.

103、MessageBox('修改失敗','提示',64);　　end;　　mrcancel:　　end;　　en

104、d;　　程序運行效果及其分析　　登陸界面可實現登錄功能，可判斷密碼是否正確。　　登陸主界面，小區(qū)物業(yè)的基本操作都在此界面實現。　　住戶查詢，可實現住戶查詢，查詢住戶基本信息。　　增加住戶，可以增加住戶。<

105、/p>　　打印界面，可以實現各個表的打印功能。　　6.課程設計總結　　本次實驗我對delphi7有了比較深刻的認識，每一步驟的執(zhí)行都需要認真的考慮，我發(fā)現編一個優(yōu)秀的軟件決不是一蹴而就的事情，需要長時間的積累和經驗。然后，在老師的輔導和同學的幫助下，我更加深入的去考慮這個系統。并花了大量的

106、心思和努力去完成這個系統。在做這個系統的這段時間里，我學到了我以前沒有掌握牢的知識。更重要的是了解了開發(fā)一個系統軟件的步驟和方法策略。如何去思考問題，又如何去解決問題。　　經過這次設計，讓我更好地鞏固了書本里的理論知識，并將知識用于實踐，掌握了使用SQL Server和Delphi進行系統設計的基本原則和基本方法，還使我在實際的編程中提高了編程能力，也加強了我綜合運用所學知識和技能對實際問題的分

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
6. 下載文件中如有侵權或不適當內容，請與我們聯系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

delphi小區(qū)物業(yè)管理系統課程設計

文檔簡介

溫馨提示

最新文檔

評論

delphi小區(qū)物業(yè)管理系統課程設計

文檔簡介

溫馨提示

最新文檔

評論

免費下載