delphi小區(qū)物業(yè)管理系統(tǒng)課程設(shè)計(jì)-資料下載頁
2025-01-12 04:40本頁面
【正文】 Object)。 begin if =39。按住戶編號查詢 39。 then begin with do begin close。 。 (39。select * from 住戶 where 住戶編號 =:A 39。)。 (39。A39。).Value :=。 open。 end。 end else begin with do begin close。 。 (39。select * from 住戶 where 姓名 =:A 39。)。 (39。A39。).Value :=。 open。 end。 end。 end。 17 procedure (Sender: TObject)。 begin form7:=(self)。 。 。 end。 end. procedure (Sender: TObject)。 begin if =39。39。 then begin MessageBox(handle,39。住戶編號不能為空 !39。,39。警告 39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。 if =39。39。 then begin MessageBox(handle,39。姓名不能為空 !39。,39。警告 39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。 if =39。39。 then begin MessageBox(handle,39。電話不能為空 !39。,39。警告 39。,MB_OK+MB_ICONWARNING)。 。 exit。 end。 if =39。39。 then begin MessageBox(handle,39。性別不能為 空 !39。,39。警告 39。,MB_OK+MB_ICONWARNING)。 。 exit。 18 end。 try with do begin close。 。 (39。insert 住戶 values (:a,:b,:c,:d,:e,:f)39。)。 (39。a39。).Value:=trim()。 (39。b39。).Value:=trim()。 (39。c39。).Value:=trim()。 (39。d39。).Value:=trim()。 (39。e39。).Value:=trim()。 (39。f39。).Value:=trim()。 execsql。 end。 (39。添加成功 39。,39。提示 39。,64)。 except (39。添加失敗，檢查信息是否存在或正確 39。,39。失敗39。,64)。 end。 end。 procedure (Sender: TObject)。 begin case messageDlg(39。確認(rèn)修改？ 39。,mtconfirmation,[mbyes,mbcancel],0) of mryes: try with do begin edit。 fieldbyname(39。住戶編號 39。).Value:=trim()。 fieldbyname(39。姓名 39。).Value:=trim()。 fieldbyname(39。電話 39。).Value:=trim()。 fieldbyname(39。性別 39。).Value:=trim()。 19 fieldbyname(39。聯(lián)系地址 39。).Value:=trim()。 fieldbyname(39。備注 39。).Value:=trim()。 post。 end。 (39。修改成功 39。,39。提示 39。,64)。 except (39。修改失敗 39。,39。提示 39。,64)。 end。 mrcancel: end。 end。 登陸界面可實(shí)現(xiàn)登錄功能，可判斷密碼是否正確。 20 登陸主界面，小區(qū)物業(yè)的基本操作都在此界面實(shí)現(xiàn)。 住戶查詢，可實(shí)現(xiàn)住戶查詢，查詢住戶基本信息。 21 增加住戶，可以增加住戶。 打印界面，可以實(shí)現(xiàn)各個(gè)表的打印功能。 22 本次實(shí)驗(yàn)我對 delphi7有了比較深刻的認(rèn)識，每一步驟的執(zhí)行都需要認(rèn)真的考慮，我發(fā)現(xiàn)編一個(gè)優(yōu)秀的軟件決不是一蹴而就的事情，需要長時(shí)間的積累和經(jīng)驗(yàn)。然后，在老師的輔導(dǎo)和同學(xué)的幫助下，我更加深入的去 考慮這個(gè)系統(tǒng)。并花了大量的心思和努力去完成這個(gè)系統(tǒng)。在做這個(gè)系統(tǒng)的這段時(shí)間里，我學(xué)到了我以前沒有掌握牢的知識。更重要的是了解了開發(fā)一個(gè)系統(tǒng)軟件的步驟和方法策略。如何去思考問題，又如何去解決問題。 經(jīng)過這次設(shè)計(jì)，讓我 更好地鞏固了書本里的理論知識，并將知識用于實(shí)踐，掌握了使用 SQL Server 和 Delphi進(jìn)行系統(tǒng)設(shè)計(jì)的基本原則和基本方法，還使 我在實(shí)際的編程中提高了編程能力，也加強(qiáng)了 我 綜合運(yùn)用所學(xué)知識和技能對實(shí)際問題的分析概括的能力。 雖然在設(shè)計(jì)過程中遇到了很多問題，但最終將提開發(fā)出來了，這對 我 是一個(gè)很大的鼓 勵(lì)。以后 我 將更加深入地學(xué)習(xí)這方面的知識，并注重實(shí)踐，爭取將來能做出性能更好，功能更完善的系統(tǒng)。
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1