版權(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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 小區(qū)物業(yè)管理系統(tǒng)課程設(shè)計(jì)報(bào)告
- 小區(qū)物業(yè)管理系統(tǒng)課程設(shè)計(jì)報(bào)告
- 課程設(shè)計(jì)---小區(qū)物業(yè)管理系統(tǒng)需求分析
- 課程設(shè)計(jì)--小區(qū)物業(yè)管理系統(tǒng)的設(shè)計(jì)實(shí)現(xiàn)
- 數(shù)據(jù)庫(kù)課程設(shè)計(jì)——小區(qū)物業(yè)管理系統(tǒng)
- 數(shù)據(jù)庫(kù)小區(qū)物業(yè)管理系統(tǒng)課程設(shè)計(jì)報(bào)告
- 課程設(shè)計(jì)----物業(yè)管理系統(tǒng)
- 管理信息系統(tǒng)課程設(shè)計(jì)報(bào)告--小區(qū)物業(yè)管理系統(tǒng)
- 物業(yè)管理系統(tǒng)課程設(shè)計(jì)報(bào)告
- c#課程設(shè)計(jì)--小區(qū)物業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)
- 基于delphi的小區(qū)物業(yè)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)【畢業(yè)論文】
- 基于delphi的小區(qū)物業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[文獻(xiàn)綜述]
- 基于delphi的小區(qū)物業(yè)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)[任務(wù)書(shū)]
- 小區(qū)物業(yè)管理系統(tǒng)
- 小區(qū)物業(yè)管理系統(tǒng)
- 小區(qū)物業(yè)管理系統(tǒng)
- 小區(qū)物業(yè)管理系統(tǒng)
- 小區(qū)物業(yè)管理系統(tǒng)
- 小區(qū)物業(yè)管理系統(tǒng)
- 小區(qū)物業(yè)管理系統(tǒng)(物業(yè)管理專(zhuān)業(yè)論文)
評(píng)論
0/150
提交評(píng)論