小区物业管理信息系统 第7页
【参考文献】
[1] 莫继红.计算机在生活小区物业管理中的应用[J],电脑与信息技术,1997，1:29～30.
[2] 陈火根.智能化物业管控一体化系统模型及其实现[J],计算机工程与应用,1998,2:80～81.
[3] 洪文霞,卢培猛.智能管理系统在住宅小区的应用[J],住宅科技，2003, 4.
[4]瞿雷，畅园公寓智能化方案[J],住宅科技，2003 , 8:165-167.
[5] 李东森,许昌学院.浅析住宅小区智能化[J],许昌师专学报，2002, 5.
[6]高鹏,邢明.一种智能小区自动化管理系统的设计[J],微计算机信息，2005.
[7]周伟良,张旭东,唐晓庆.物业管理信息系统的设计与实现[J],安徽建筑工业学院学报（自然科学版），2001, 4:74-79.
[8] 张基温.信息系统开发案例（第二期）[M]，北京：清华大学出版社，1999.
[9] Fry James P,Sibley Edgor H.Evolution of Data Base Management
Systems[M].ACM Computing Surveys,1976,18(1):241-246.
[10] 姜旭平编著.企业管理信息系统开发的理论和方法[M]，北京：清华大学出版社，1998:148-152.
[11] 宁正元. Delphi程序设计和应用教程[M]，中国水利水电出版社,2001.
[12] WANG Jiu-hong. Programming for Asp and Web database[J], Journal
of Jianghan University(Natural Sciences),2002, 19(2): 39-41.
[13] 陆昌辉，吴晓华.《SQL Server 2000开发人员指南》[M]，北京希望电子出版社, 2002:152-162.
[14]蔡健龙.物业管理企业内部控制系统初探[J],湖南财经高等专科学校学报，2001,3:52-70.
[15] Ramon A.Mata-Toledo.SQL编程习题与解答 [M],胡志君 高燕林 译 .北
京.机械工业出版社. 2002,8:220-225
[16] Taylor Robert W,Frank Randall L.CODASYL Date Base Management
Systems[M].ACM Computing Surveys,1976,8(1):77-79.
[17]Albert T P So ed.Building automation on the information superhighway[J], ASHRAE transac-tions, 2002:81-86.
附 录
主要代码：
通过权限选择开放功能：
procedure TWXDJ.FormShow(Sender: TObject);
begin
if MainForm.Query1.Locate('使用选项','维修信息登记',[loCaseInsensitive]) then
begin
if MainForm.Query1.FieldByName('读写').AsString='读' then
begin
Bitbtn1.Enabled:=False;
Bitbtn2.Enabled:=False;
Bitbtn3.Enabled:=False;
end;
end;
end;
添加，修改，保存，删除等相关操作功能：
procedure TWXDJ.BitBtn1Click(Sender: TObject); //添加或保存数据
begin
if BitBtn1.Caption='添加[&I]' then //添加数据
begin
Table1.Append; //增加一条新记录
BitBtn1.Caption:='保存[&S]';
BitBtn2.Caption:='取消[&U]';
BitBtn3.Enabled:=False;
BitBtn4.Enabled:=False;
BitBtn6.Enabled:=True;
DBNavigator1.Enabled:=False;
GroupBox1.Enabled:=True;
DBEdit2.Setfocus; //焦点跳转到“居住位置”输入框
End
Else //保存数据
begin
if (Length(Table1.FieldByname('居住位置').AsString)=0) or
(Length(Table1.FieldByname('维修项目').AsString)=0) or
(Length(Table1.FieldByname('开工时间').AsString)=0) then
begin
ShowMessage('请输入维修相关信息');
DBEdit2.SetFocus;
End
Else //保存数据添加
begin
BitBtn1.Caption:='添加[&I]';
BitBtn2.Caption:='修改[&E]';
BitBtn3.Enabled:=True;
BitBtn4.Enabled:=True;
BitBtn6.Enabled:=False;
DBNavigator1.Enabled:=True;
GroupBox1.Enabled:=False;
try
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select MAX(编号) From 维修信息');
Query1.Open;
Table1.FieldByName('编号').AsInteger:=Query1.Fields[0].AsInteger+1;
DateTimePicker1.Date:=Table1.FieldByName('开工时间').AsDateTime;
DateTimePicker1.Time:=0;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select Count(编号) From 维修信息 Where 开工时间>:A and 开工时间<:B');
Query1.ParamByname('A').AsDatetime:=DateTimePicker1.DateTime;
Query1.ParamByName('B').AsDatetime:=DateTimePicker1.DateTime+1;
Query1.Open;
Table1.FieldByName('维修编号').AsString:=DateTimeTOStr(DateTimePicker1.DateTime)+'00'+IntToStr(Query1.Fields[0].AsInteger+1);
Table1.Post;
Except
ShowMessage('重复维修编号，保存失败.');
end;
end;
end;
end;
procedure TWXDJ.BitBtn2Click(Sender: TObject); //修改或取消操作
begin
if BitBtn2.Caption='修改[&E]' then
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页