【正文】 end。 end。 Abort。]的費(fèi)用信息數(shù)據(jù)有誤，沒有保存！ 39。編號為 [39。 。G39。).AsFloat:=StrToFloat([10,a])。 (39。D39。).AsInteger:=StrToInt([8,a])。 (39。B39。).AsDateTime:=StrToDate([5,a])。 (39。F39。 For a:=1 to do begin 。Where 水 表編號 =:F39。)。 (39。,mtCustom,[mbYes,mbNo],0)=mrYes then begin 。 運(yùn)用當(dāng)前的數(shù)據(jù)更新數(shù)據(jù)庫，使別的模塊顯示現(xiàn)在的數(shù)據(jù)： begin if MessageDlg(39。 end。 Except begin Abort。 If y = 7 Then begin Try [8,x]:=IntToStr(StrToInt([7,x])StrToInt([6,x]))。 begin x:=。 var Key: Word。 。)39。 end。39。39。39。 or 房間編號=39。 For a:=1 to do begin ZDZ[a]:=[a]。A39。)。 (39。電表編號 in (39。)。 (39。 把數(shù)據(jù)寫入相應(yīng)的數(shù)據(jù)庫表中： 。 。).AsString。 [11,a]:=.FieldByName(39。實(shí)收金額 39。).AsString。 [9,a]:=.FieldByName(39。使用數(shù) 39。).AsString。 [7,a]:=.FieldByName(39。上月讀數(shù) 39。).AsString。 [5,a]:=.FieldByName(39。計(jì)費(fèi)起始日期 39。).AsString。 [3,a]:=.FieldByName(39。戶主姓名 39。).AsString。 While Not do begin [1,a]:=.FieldByName(39。 :=SDFSQ.+1。)。 (39。)。39。+ZDZ[a]+39。39。 (39。).AsString:=ListBox1.[0]。 (39。Where 房間編號 =:A 39。)。 (39。Where 水表編號 in (39。)。 (39。 。//分配動(dòng)態(tài)變量 ,記得釋放掉 ZD:=39。 end else begin if not Assigned(SDFSQ) then begin SDFSQ:=(Self)。請選擇要瀏覽的大樓 .39。 a:integer。 var ZD: String。 end。 。 procedure (Sender: TObject)。 end。 begin if Not Assigned(WZXXDY) then begin WZXXDY:=(Self)。 end。 。 procedure (Sender: TObject)。 end。 begin if not Assigned(ZXDDY) then begin ZXDDY:=(Self)。 end。 procedure (Sender: TObject)。 GCBSJDY:=Nil。 var Action: TCloseAction)。 end。 begin 。 procedure (Sender: TObject。 //退出 begin Close。 end。 。 procedure (Sender: TObject)。 end。 //瀏覽維修數(shù)據(jù) begin If Not Assigned(WXXXLL) Then begin WXXXLL:=(Self)。 end。是否刪除當(dāng)前記錄 ?39。 procedure (Sender: TObject)。 end。 :=False。 :=False。 :=True。修改 [amp。I]39。 End Else //取消操作 begin :=39。 :=True。 :=True。 :=False。取消 [amp。S]39。 //數(shù)據(jù)處于編輯狀態(tài) :=39。E]39。 //修改或取消操作 begin if =39。 end。 end。)。 Except ShowMessage(39。+IntToStr(Qu[0].AsInteger+1)。).AsString:=DateTimeTOStr()+39。 (39。).AsDatetime:=+1。 (39。A39。)。 (39。 。).AsDateTime。 :=(39。編號39。 。Select MAX(編號 ) From 維修信息 39。 。 :=False。 :=False。 :=True。修改 [amp。I]39。 End Else //保存數(shù)據(jù)添加 begin :=39。)。).AsString)=0) then begin ShowMessage(39。).AsString)=0) or (Length((39。).AsString)=0) or (Length((39。 //焦點(diǎn)跳轉(zhuǎn)到“居住位置”輸入框 End Else //保存數(shù)據(jù) begin if (Length((39。 :=True。 :=True。 :=False。取消 [amp。S]39。 //增加一條新記錄 :=39。I]39。 //添加或保存數(shù)據(jù) begin if =39。 end。 end。 :=False。讀 39。讀寫 39。維修信息登記39。使用選項(xiàng) 39。 祝愿所有人以后的工作順利！ 【參考文獻(xiàn)】 [1] 莫繼紅 .計(jì)算機(jī)在生活小區(qū)物業(yè)管理中的應(yīng)用 [J],電腦與信息技術(shù) ,1997，1:29～ 30. [2] 陳火根 .智能化物業(yè)管控一體化系統(tǒng)模型及其實(shí)現(xiàn) [J],計(jì)算機(jī)工 程與應(yīng)用 ,1998,2:80～ 81. [3] 洪文霞 ,盧培猛 .智能管理系統(tǒng)在住宅小區(qū)的應(yīng)用 [J],住宅科技， 2021, 4. [4]瞿雷，暢園公寓智能化方案 [J],住宅科技， 2021 , 8:165167. [5] 李東森 ,許昌學(xué)院 .淺析住宅小區(qū)智能化 [J],許昌師專學(xué)報(bào)， 2021, 5. [6]高鵬 ,邢明 .一種智能小區(qū)自動(dòng)化管理系統(tǒng)的設(shè)計(jì) [J],微計(jì)算機(jī)信息， 2021. [7]周偉良 ,張旭東 ,唐曉慶 .物業(yè)管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) [J],安徽建筑工業(yè)學(xué)院學(xué)報(bào)（自然科學(xué)版）， 2021, 4:7479. [8] 張基溫 .信息系統(tǒng)開發(fā)案例（第二期） [M]，北京：清華大學(xué)出版社， 1999. [9] Fry James P,Sibley Edgor of Data Base Management Systems[M].ACM Computing Surveys,1976,18(1):241246. [10] 姜旭平編著 .企業(yè)管理信息系統(tǒng)開發(fā)的理論和 方法 [M]，北京：清華大學(xué)出版社， 1998:148152. [11] 寧正元 . Delphi 程序設(shè)計(jì)和應(yīng)用教程 [M]，中國水利水電出版社 ,2021. [12] WANG Jiuhong. Programming for Asp and Web database[J], Journal of Jianghan University(Natural Sciences),2021, 19(2): 3941. [13] 陸昌輝，吳曉華 .《 SQL Server 2021 開發(fā)人員指南》 [M]，北京希 望電子出版社 , 2021:152162. [14]蔡健龍 .物業(yè)管理企業(yè)內(nèi)部控制系統(tǒng)初探 [J],湖南財(cái)經(jīng)高等?？茖W(xué)校學(xué)報(bào)，2021,3:5270. [15] Ramon 編程習(xí)題與解答 [M],胡志君 高燕林 譯 .北 京 .機(jī)械工業(yè)出版社 . 2021,8:220225 [16] Taylor Robert W,Frank Randall Date Base Management Systems[M].ACM Computing Surveys,1976,8(1):7779. [17]Albert T P So automation on the information superhighway[J], ASHRAE transactions, 2021:8186. 附 錄 主要代碼： 通過權(quán)限選擇開放功能： procedure (Sender: TObject)。 另外，感謝畢設(shè)