delphi小區(qū)物業(yè)管理系統(tǒng)課程設(shè)計(jì)_第1頁(yè)
已閱讀1頁(yè),還剩22頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、<p><b>  課程設(shè)計(jì)任務(wù)書(shū)</b></p><p>  題 目: 小區(qū)物業(yè)管理系統(tǒng) </p><p>  姓 名: </p><p>  學(xué) 號(hào): &l

2、t;/p><p>  專(zhuān)業(yè)班級(jí): </p><p>  課 程: Delphi應(yīng)用程序設(shè)計(jì) </p><p>  指導(dǎo)教師: 職稱(chēng): 講 師 </p><p>  完成時(shí)間: 2012年 12 月---

3、-2013年 1 月</p><p>  2012年12 月30日</p><p>  課程設(shè)計(jì)任務(wù)書(shū)及成績(jī)?cè)u(píng)定</p><p><b>  目 錄</b></p><p>  緒論……………………………………………………………………………………………4</p><p>  1 系統(tǒng)分析…………

4、…………………………………………………………………………4</p><p>  1.1系統(tǒng)目標(biāo)……………………………………………………………………………4 </p><p>  1.2 開(kāi)發(fā)環(huán)境…………………………………………………………… ……………4</p><p>  1.3可行性分析…………… …………………………………………… ……………5</p&

5、gt;<p>  2 數(shù)據(jù)庫(kù)表的描述及其關(guān)系……………………………………………… ……………5</p><p>  2.1 數(shù)據(jù)需求……………………………………………………………………………5</p><p>  2.2 系統(tǒng)E-R圖………………………………………………………………………6</p><p>  2.3 數(shù)據(jù)字典…………………………

6、………………………………………………7</p><p>  2.4 數(shù)據(jù)庫(kù)的建立……………………………………………………………………8</p><p>  3 功能模塊圖………………………………………………………………………………8</p><p>  4 主要功能的實(shí)現(xiàn)代碼……………………………………………………………………9</p><p

7、>  4.1 項(xiàng)目文件代碼……………………………………………………………………9</p><p>  4.2 登陸界面…………………………………………………………………………10</p><p>  4.3 登陸界面代碼……………………………………………………………………14</p><p>  4.4增加管理員代碼…………………………………………………………

8、15</p><p>  4.5住戶查詢(xún)代碼實(shí)現(xiàn)………………… …………… ……………………16</p><p>  4.6增加住戶代碼實(shí)現(xiàn)………………………………………………………17</p><p>  4.7修改住戶代碼實(shí)現(xiàn)………………………………………………………………18</p><p>  4 程序運(yùn)行效果及其分析…………………

9、………………………………………………19</p><p>  5 課程設(shè)計(jì)總結(jié)………………………………………………………………………………22</p><p><b>  緒論</b></p><p>  隨著我國(guó)經(jīng)濟(jì)發(fā)展和城市開(kāi)發(fā),物業(yè)管理已形成規(guī)模,其效益也越來(lái)越明顯。在對(duì)地方政府經(jīng)濟(jì)效益而言,主要體現(xiàn)為:減少了大量的財(cái)政補(bǔ)貼,對(duì)住宅區(qū)開(kāi)發(fā)

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

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

12、t;  1 系統(tǒng)分析</b></p><p><b>  1.1 系統(tǒng)目標(biāo)</b></p><p> ?。?)合理的設(shè)計(jì)數(shù)據(jù)庫(kù)</p><p>  盡量合理地減少數(shù)據(jù)庫(kù)數(shù)據(jù)的冗余,使重復(fù)的數(shù)據(jù)保持在最小限度,這樣將會(huì)少占用存儲(chǔ)空間,減少產(chǎn)生混亂影響的危險(xiǎn),還能提高計(jì)算機(jī)的運(yùn)行速度。</p><p> ?。?)

13、設(shè)計(jì)出友好的界面</p><p>  界面的友好與否是軟件優(yōu)劣的重要方面之一。窗口界面的各個(gè)控件布局要合理、美觀。</p><p> ?。?)強(qiáng)大的信息管理和查詢(xún)、分析能力</p><p>  可以對(duì)學(xué)生管理工作相關(guān)數(shù)據(jù)進(jìn)行對(duì)方面查詢(xún),提高各個(gè)模塊的數(shù)據(jù)交換。</p><p><b>  1.2 開(kāi)發(fā)環(huán)境</b><

14、/p><p>  本系統(tǒng)面向Windows操作系統(tǒng),以Microsoft SQL Server 2000作為后臺(tái)數(shù)據(jù)庫(kù),充分考慮了兼容性的問(wèn)題,系統(tǒng)具有較好的課擴(kuò)展性,并從數(shù)據(jù)庫(kù)的應(yīng)用和開(kāi)發(fā)的實(shí)效性角度出發(fā),采用delphi7作為開(kāi)發(fā)工具,采用面向?qū)ο蠹夹g(shù),系統(tǒng)具有高效性。</p><p><b>  1.3 可行性分析</b></p><p>&

15、lt;b> ?。?)技術(shù)可行性</b></p><p>  隨著計(jì)算機(jī)技術(shù)的發(fā)展,要將對(duì)黎明小區(qū)的物業(yè)管理從原始的文檔管理轉(zhuǎn)化為信息化管理,是有很強(qiáng)的可行性的。而且很多新型小區(qū)已經(jīng)實(shí)現(xiàn)了物業(yè)管理信息化,市面上也有很多免費(fèi)的小區(qū)物業(yè)管理軟件,所以要實(shí)現(xiàn)物業(yè)管理的信息化在技術(shù)上的可行性是毋庸置疑的。本設(shè)計(jì)要做的只是針對(duì)小區(qū)的真實(shí)的物業(yè)管理工作來(lái)開(kāi)發(fā)出適用的物業(yè)管理系統(tǒng),面向Windows操作系統(tǒng),以

16、Microsoft SQL Server 2000作為后臺(tái)數(shù)據(jù)庫(kù),并從數(shù)據(jù)庫(kù)的應(yīng)用和開(kāi)發(fā)的實(shí)效性角度出發(fā),采用delphi7做為開(kāi)發(fā)工具,采用面向?qū)ο蠹夹g(shù)。在之前做過(guò)的課程設(shè)計(jì)中,都是通過(guò)這兩種開(kāi)發(fā)工具來(lái)實(shí)現(xiàn)的,因此在技術(shù)上不存在問(wèn)題。</p><p><b> ?。?)經(jīng)濟(jì)可行性</b></p><p>  本系統(tǒng)對(duì)經(jīng)濟(jì)上沒(méi)有太多的要求,只要具備計(jì)算機(jī)及相應(yīng)的運(yùn)行軟

17、件即可開(kāi)發(fā)。項(xiàng)目成功后,數(shù)據(jù)的處理加快,可以節(jié)省人力,節(jié)約時(shí)間。而且系統(tǒng)對(duì)于輸入輸出的規(guī)范,也提高了數(shù)據(jù)可用性,增強(qiáng)了數(shù)據(jù)安全系數(shù),能夠更方便、簡(jiǎn)單、快速地查詢(xún)樓宇、門(mén)店、業(yè)主的各個(gè)方面的信息,方便快捷的繳費(fèi),登記、排查所有的安全隱患,所有的票據(jù)、協(xié)議的生成、打印等,對(duì)提高小區(qū)物業(yè)管理水平有一定得現(xiàn)實(shí)意義。</p><p><b>  (3)管理可行性</b></p><

18、p>  本系統(tǒng)以實(shí)際工作為原型,抽象相關(guān)人員工作原理,系統(tǒng)也設(shè)計(jì)到權(quán)限的管理,對(duì)相關(guān)數(shù)據(jù)進(jìn)行保密,數(shù)據(jù)的打印頁(yè)更加簡(jiǎn)單,系統(tǒng)實(shí)施以后,管理者不會(huì)存在管理方面的問(wèn)題。</p><p><b> ?。?)操作可行性</b></p><p>  本系統(tǒng)采用面向?qū)ο蠹夹g(shù),開(kāi)發(fā)出來(lái)的界面友好,幾乎人人都可以很簡(jiǎn)單地按照相關(guān)說(shuō)明進(jìn)行操作。系統(tǒng)能為物業(yè)管理者和業(yè)主提供高效、方

19、便快捷的服務(wù),工作量和出錯(cuò)率遠(yuǎn)遠(yuǎn)低于傳統(tǒng)管理模式,同時(shí)新系統(tǒng)操作簡(jiǎn)單易上手,特別是與實(shí)際流程一致,用戶可以很快熟悉和習(xí)慣。</p><p><b>  5)進(jìn)度可行性</b></p><p>  我所調(diào)查的組織是個(gè)規(guī)模小、核心流程連貫的小區(qū),它的相對(duì)簡(jiǎn)單的業(yè)務(wù)活動(dòng),可以使我很快獲得系統(tǒng)需求信息、系統(tǒng)的實(shí)現(xiàn)時(shí)按照又準(zhǔn)備有條理的進(jìn)度安排來(lái)進(jìn)行的,可以再規(guī)定規(guī)定期限內(nèi)完成。

20、</p><p>  數(shù)據(jù)庫(kù)表的結(jié)構(gòu)描述及其關(guān)系</p><p><b>  2.1 數(shù)據(jù)需求</b></p><p>  根據(jù)系統(tǒng)的要求,首先將要記錄的信息分類(lèi),要記錄的信息如下:</p><p> ?。?)住戶表:住戶編號(hào)、住戶姓名、性別、電話、備注;</p><p> ?。?)房屋表:房屋編

21、號(hào)、所屬樓棟、住戶編號(hào)、住戶姓名、遷入時(shí)間、入住期限、備注;</p><p>  (3)車(chē)位表:車(chē)位編號(hào)、住戶編號(hào)、租用時(shí)間、期限、備注;</p><p> ?。?)繳費(fèi)表:繳費(fèi)記錄、住戶編號(hào)、住戶姓名、備注;</p><p>  (5)報(bào)修表:住戶編號(hào)、住戶姓名、報(bào)修范圍、時(shí)間、備注;</p><p> ?。?)管理員表:管理員帳戶、密碼;

22、</p><p>  根據(jù)這些需求,本系統(tǒng)需要6個(gè)表:“住戶表”用于增加用戶信息;“房屋表”用于增加修改用戶房屋信息;“車(chē)位表”用于增加修改住戶租用車(chē)位信息;“繳費(fèi)表”用于記錄住戶所交各種費(fèi)用;“報(bào)修表”用于記錄住戶報(bào)修信息;“管理員表”用于管理員登陸,增加,修改等操作。</p><p><b>  2.2系統(tǒng)E-R圖</b></p><p>

23、<b>  2.3 數(shù)據(jù)字典</b></p><p><b>  住戶表</b></p><p><b>  房屋表</b></p><p><b>  車(chē)位表</b></p><p><b>  繳費(fèi)表</b></p>

24、<p><b>  報(bào)修表</b></p><p><b>  管理員表</b></p><p><b>  2.4 數(shù)據(jù)庫(kù)建立</b></p><p>  直接打開(kāi)SQL2005,新建一個(gè)數(shù)據(jù)庫(kù)名為“xqwy”然后在建好的數(shù)據(jù)庫(kù)中根據(jù)需要新建表。</p><p>

25、<b>  3. 功能模塊圖</b></p><p><b>  主要功能的實(shí)現(xiàn)代碼</b></p><p><b>  1.項(xiàng)目文件代碼</b></p><p>  program Project2;</p><p><b>  uses</b><

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

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

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

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

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

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

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

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

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

35、gt;</p><p><b>  2.登陸界面</b></p><p>  unit Unit1;</p><p><b>  interface</b></p><p><b>  uses</b></p><p>  Windows, Messag

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

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

38、: TMenuItem;</p><p>  N4: TMenuItem;</p><p>  N5: TMenuItem;</p><p>  N6: TMenuItem;</p><p>  N7: TMenuItem;</p><p>  N8: TMenuItem;</p><p>  

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

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

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

42、);</p><p>  procedure N6Click(Sender: TObject);</p><p>  procedure N7Click(Sender: TObject);</p><p>  procedure N10Click(Sender: TObject);</p><p>  procedure N11Click(S

43、ender: TObject);</p><p>  procedure N8Click(Sender: TObject);</p><p>  procedure N12Click(Sender: TObject);</p><p>  procedure N14Click(Sender: TObject);</p><p>  proce

44、dure N19Click(Sender: TObject);</p><p>  procedure N20Click(Sender: TObject);</p><p>  procedure N16Click(Sender: TObject);</p><p>  procedure N18Click(Sender: TObject);</p>

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

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

47、;</p><p><b>  begin</b></p><p><b>  close</b></p><p><b>  end;</b></p><p>  procedure TForm1.N2Click(Sender: TObject);</p>&l

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

49、Object);</p><p><b>  begin</b></p><p>  Form5:=TForm5.Create(self);</p><p>  Form5.Show;</p><p><b>  end;</b></p><p>  procedure TF

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

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

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

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

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

55、</p><p>  Form10.Show;</p><p><b>  end;</b></p><p>  procedure TForm1.N14Click(Sender: TObject);</p><p><b>  begin</b></p><p>  For

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

57、</p><p>  Form11:=TForm11.Create(self);</p><p>  Form11.Show;</p><p><b>  end;</b></p><p>  procedure TForm1.N20Click(Sender: TObject);</p><p>

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

59、ect);</p><p><b>  begin</b></p><p>  Form14:=TForm14.Create(self);</p><p>  Form14.Show;</p><p><b>  end;</b></p><p>  procedure TF

60、orm1.N18Click(Sender: TObject);</p><p><b>  begin</b></p><p>  Form15:=TForm15.Create(self);</p><p>  Form15.Show;</p><p><b>  end;</b></p>

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

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

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

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

65、gt;  private</b></p><p>  { Private declarations }</p><p><b>  public</b></p><p>  { Public declarations }</p><p><b>  end;</b></p>

66、<p><b>  var</b></p><p>  Form3: TForm3;</p><p>  implementation</p><p>  uses Unit18;</p><p>  {$R *.dfm}</p><p>  procedure TForm3.Butt

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

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

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

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

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

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

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

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

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

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

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

78、t;<b>  end;</b></p><p>  5.住戶查詢(xún)代碼實(shí)現(xiàn)</p><p>  procedure TForm5.Button1Click(Sender: TObject);</p><p><b>  begin</b></p><p>  if combobox1.Text=&#

79、39;按住戶編號(hào)查詢(xún)' then</p><p><b>  begin</b></p><p>  with dm.ADOQuery2 do</p><p><b>  begin</b></p><p><b>  close;</b></p><

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

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

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

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

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

85、m7.ShowModal;</p><p>  form7.Free;</p><p><b>  end;</b></p><p><b>  end.</b></p><p>  6.增加住戶代碼實(shí)現(xiàn)</p><p>  procedure TForm6.Button1C

86、lick(Sender: TObject);</p><p><b>  begin</b></p><p>  if Edit1.Text ='' then</p><p><b>  begin</b></p><p>  MessageBox(handle,'住戶編號(hào)不

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

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

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

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

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

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

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

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

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

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

97、tion.MessageBox('添加失敗,檢查信息是否存在或正確','失敗',64);</p><p><b>  end;</b></p><p><b>  end;</b></p><p>  7.修改住戶代碼實(shí)現(xiàn)</p><p>  procedure TF

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

99、t;</p><p><b>  try</b></p><p>  with dm.ADOQuery2 do</p><p><b>  begin</b></p><p><b>  edit;</b></p><p>  fieldbyname(&

100、#39;住戶編號(hào)').Value:=trim(Edit1.Text);</p><p>  fieldbyname('姓名').Value:=trim(Edit2.Text);</p><p>  fieldbyname('電話').Value:=trim(Edit3.Text);</p><p>  fieldbyname(

101、'性別').Value:=trim(Edit6.Text);</p><p>  fieldbyname('聯(lián)系地址').Value:=trim(Edit4.Text);</p><p>  fieldbyname('備注').Value:=trim(Edit5.Text);</p><p><b>  po

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

103、MessageBox('修改失敗','提示',64);</p><p><b>  end;</b></p><p><b>  mrcancel:</b></p><p><b>  end;</b></p><p><b>  en

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

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

106、心思和努力去完成這個(gè)系統(tǒng)。在做這個(gè)系統(tǒng)的這段時(shí)間里,我學(xué)到了我以前沒(méi)有掌握牢的知識(shí)。更重要的是了解了開(kāi)發(fā)一個(gè)系統(tǒng)軟件的步驟和方法策略。如何去思考問(wèn)題,又如何去解決問(wèn)題。</p><p>  經(jīng)過(guò)這次設(shè)計(jì),讓我更好地鞏固了書(shū)本里的理論知識(shí),并將知識(shí)用于實(shí)踐,掌握了使用SQL Server和Delphi進(jìn)行系統(tǒng)設(shè)計(jì)的基本原則和基本方法,還使我在實(shí)際的編程中提高了編程能力,也加強(qiáng)了我綜合運(yùn)用所學(xué)知識(shí)和技能對(duì)實(shí)際問(wèn)題的分

溫馨提示

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

最新文檔

評(píng)論

0/150

提交評(píng)論