realtye11.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

            Query1.SQL.Add(s);
            Query1.Open ;
            while not Query1.Eof do
            begin
                s:='select * from 房间 where 名称 like ''%'+Edit1.text;
                s:=s+'%'' and 管理处 ='''+Query1.FieldByName('编号').Value;
                s:=s+''' order by 编号 asc';
                query.SQL.Clear;
                Query.SQL.Add(s);
                Query.Open ;
                while not Query.Eof do
                begin
                    s:='select * from 管理区  where 编号='''+query.fieldbyname('管理区').Value;
                    s:=s+''' and 名称 like ''%'+edit3.Text+'%''';
                    query2.SQL.Clear;
                    query2.SQL.Add(s);
                    query2.Open;
                    if query2.RecordCount>0 then
                    begin
                        s1:=query2.fieldbyname('名称').Value;
                        s:='select * from 楼宇 where 编号='''+query.fieldbyname('楼宇').Value;
                        s:=s+''' and 名称 like ''%'+edit2.Text+'%''';
                        query3.SQL.Clear;
                        query3.SQL.Add(s);
                        query3.Open;
                        if query3.RecordCount>0 then
                        begin
                            s2:=query3.fieldbyname('名称').Value;
                            with ListView1.Items.Add do
                            begin
                                Caption:=Query.FieldByName('编号').Value;
                                SubItems.Add(s1);
                                SubItems.Add(s2);
                                SubItems.Add(Query.FieldByName('单元号').Value);
                                SubItems.Add(Query.FieldByName('楼层号').Value);
                                SubItems.Add(Query.FieldByName('名称').Value);
                                SubItems.Add(Query.FieldByName('房型').Value);
                                SubItems.Add(Query.FieldByName('朝向').Value);
                                SubItems.Add(Query.FieldByName('建筑面积').Value);
                                SubItems.Add(Query.FieldByName('使用面积').Value);
                                SubItems.Add(Query.FieldByName('装修情况').Value);
                                SubItems.Add(Query.FieldByName('配套设施').Value);
                                SubItems.Add(Query.FieldByName('权属类型').Value);

                                SubItems.Add(Query.FieldByName('租赁单价').Value);
                                SubItems.Add(Query.FieldByName('租赁金额').Value);
                                SubItems.Add(Query.FieldByName('是否已租').Value);
                                SubItems.Add(Query.FieldByName('可租').Value);
                            end;
                        end;
                    end;
                    query.Next;
                end;
                query1.Next;
            end;
        end;
    end;
    query.close;
    query.Free;
    query1.close;
    query1.Free;
    query2.Close;
    query2.Free;
    query3.Close;
    query3.Free;

    if listview1.Items.Count>0 then listview1.Items.Item[0].Selected:=true;
end;

procedure Tf_RealtyE11.Button5Click(Sender: TObject);
begin
    TreeView1Click(Sender); 
end;

procedure Tf_RealtyE11.Button3Click(Sender: TObject);
Var
    Query,query1:TADOQuery;
    s1,s2:string;
begin
    ListView1.Items.Clear;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;

    Query.SQL.Add('select * from 房间 where 可租='''+'Y'+'''');
    Query.Open ;
    while not Query.Eof do
    begin
        query1.SQL.Clear;
        query1.SQL.Add('select * from 管理区 where 编号='''+query.fieldbyname('管理区').Value+'''');
        query1.Open;
        if query1.RecordCount>0 then  s1:=query.fieldbyname('名称').Value;

        query1.SQL.Clear;
        query1.SQL.Add('select * from 楼宇 where 编号='''+query.fieldbyname('楼宇').Value+'''');
        query1.Open;
        if query1.RecordCount>0 then s2:=query.fieldbyname('名称').Value;


        with ListView1.Items.Add do
        begin
            Caption:=Query.FieldByName('编号').Value;
            SubItems.Add(s1);
            SubItems.Add(s2);
            SubItems.Add(Query.FieldByName('单元号').Value);
            SubItems.Add(Query.FieldByName('楼层号').Value);
            SubItems.Add(Query.FieldByName('名称').Value);
            SubItems.Add(Query.FieldByName('房型').Value);
            SubItems.Add(Query.FieldByName('朝向').Value);
            SubItems.Add(Query.FieldByName('建筑面积').Value);
            SubItems.Add(Query.FieldByName('使用面积').Value);
            SubItems.Add(Query.FieldByName('装修情况').Value);
            SubItems.Add(Query.FieldByName('配套设施').Value);
            SubItems.Add(Query.FieldByName('权属类型').Value);

            SubItems.Add(Query.FieldByName('租赁单价').Value);
            SubItems.Add(Query.FieldByName('租赁金额').Value);
            SubItems.Add(Query.FieldByName('是否已租').Value);
            SubItems.Add(Query.FieldByName('可租').Value);
        end;
        query.Next;
    end;
    query.Close;
    query.Free;
    if listview1.Items.Count > 0 then ListView1.Items.Item[0].Selected := True;


end;

procedure Tf_RealtyE11.Button2Click(Sender: TObject);
Var
    Query,query1:TADOQuery;
    s1,s2:string;
begin
    ListView1.Items.Clear;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;

    Query.SQL.Add('select * from 房间 where 可租='''+'N'+'''');
    Query.Open ;
    while not Query.Eof do
    begin
        query1.SQL.Clear;
        query1.SQL.Add('select * from 管理区 where 编号='''+query.fieldbyname('管理区').Value+'''');
        query1.Open;
        if query1.RecordCount>0 then  s1:=query.fieldbyname('名称').Value;

        query1.SQL.Clear;
        query1.SQL.Add('select * from 楼宇 where 编号='''+query.fieldbyname('楼宇').Value+'''');
        query1.Open;
        if query1.RecordCount>0 then s2:=query.fieldbyname('名称').Value;


        with ListView1.Items.Add do
        begin
            Caption:=Query.FieldByName('编号').Value;
            SubItems.Add(s1);
            SubItems.Add(s2);
            SubItems.Add(Query.FieldByName('单元号').Value);
            SubItems.Add(Query.FieldByName('楼层号').Value);
            SubItems.Add(Query.FieldByName('名称').Value);
            SubItems.Add(Query.FieldByName('房型').Value);
            SubItems.Add(Query.FieldByName('朝向').Value);
            SubItems.Add(Query.FieldByName('建筑面积').Value);
            SubItems.Add(Query.FieldByName('使用面积').Value);
            SubItems.Add(Query.FieldByName('装修情况').Value);
            SubItems.Add(Query.FieldByName('配套设施').Value);
            SubItems.Add(Query.FieldByName('权属类型').Value);

            SubItems.Add(Query.FieldByName('租赁单价').Value);
            SubItems.Add(Query.FieldByName('租赁金额').Value);
            SubItems.Add(Query.FieldByName('是否已租').Value);
            SubItems.Add(Query.FieldByName('可租').Value);
        end;
        query.Next;
    end;
    query.Close;
    query.Free;
    if listview1.Items.Count > 0 then ListView1.Items.Item[0].Selected := True;


end;

procedure Tf_RealtyE11.Button4Click(Sender: TObject);
Var
    Query,query1:TADOQuery;
    s1,s2:string;
begin
    ListView1.Items.Clear;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;

    Query.SQL.Add('select * from 房间 where 是否已租='''+'Y'+'''');
    Query.Open ;
    while not Query.Eof do
    begin
        query1.SQL.Clear;
        query1.SQL.Add('select * from 管理区 where 编号='''+query.fieldbyname('管理区').Value+'''');
        query1.Open;
        if query1.RecordCount>0 then  s1:=query.fieldbyname('名称').Value;

        query1.SQL.Clear;
        query1.SQL.Add('select * from 楼宇 where 编号='''+query.fieldbyname('楼宇').Value+'''');
        query1.Open;
        if query1.RecordCount>0 then s2:=query.fieldbyname('名称').Value;


        with ListView1.Items.Add do
        begin
            Caption:=Query.FieldByName('编号').Value;
            SubItems.Add(s1);
            SubItems.Add(s2);
            SubItems.Add(Query.FieldByName('单元号').Value);
            SubItems.Add(Query.FieldByName('楼层号').Value);
            SubItems.Add(Query.FieldByName('名称').Value);
            SubItems.Add(Query.FieldByName('房型').Value);
            SubItems.Add(Query.FieldByName('朝向').Value);
            SubItems.Add(Query.FieldByName('建筑面积').Value);
            SubItems.Add(Query.FieldByName('使用面积').Value);
            SubItems.Add(Query.FieldByName('装修情况').Value);
            SubItems.Add(Query.FieldByName('配套设施').Value);
            SubItems.Add(Query.FieldByName('权属类型').Value);
            
            SubItems.Add(Query.FieldByName('租赁单价').Value);
            SubItems.Add(Query.FieldByName('租赁金额').Value);
            SubItems.Add(Query.FieldByName('是否已租').Value);
            SubItems.Add(Query.FieldByName('可租').Value);
        end;
        query.Next;
    end;
    query.Close;
    query.Free;
    if listview1.Items.Count > 0 then ListView1.Items.Item[0].Selected := True;


end;

procedure Tf_RealtyE11.Button6Click(Sender: TObject);
Var
    Query,query1:TADOQuery;
    s1,s2:string;
begin
    ListView1.Items.Clear;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;

    Query.SQL.Add('select * from 房间 where 是否已租='''+'N'+''' and 可租='''+'Y'+'''');
    Query.Open ;
    while not Query.Eof do
    begin
        query1.SQL.Clear;
        query1.SQL.Add('select * from 管理区 where 编号='''+query.fieldbyname('管理区').Value+'''');
        query1.Open;
        if query1.RecordCount>0 then  s1:=query.fieldbyname('名称').Value;

        query1.SQL.Clear;
        query1.SQL.Add('select * from 楼宇 where 编号='''+query.fieldbyname('楼宇').Value+'''');
        query1.Open;
        if query1.RecordCount>0 then s2:=query.fieldbyname('名称').Value;


        with ListView1.Items.Add do
        begin
            Caption:=Query.FieldByName('编号').Value;
            SubItems.Add(s1);
            SubItems.Add(s2);
            SubItems.Add(Query.FieldByName('单元号').Value);
            SubItems.Add(Query.FieldByName('楼层号').Value);
            SubItems.Add(Query.FieldByName('名称').Value);
            SubItems.Add(Query.FieldByName('房型').Value);
            SubItems.Add(Query.FieldByName('朝向').Value);
            SubItems.Add(Query.FieldByName('建筑面积').Value);
            SubItems.Add(Query.FieldByName('使用面积').Value);
            SubItems.Add(Query.FieldByName('装修情况').Value);
            SubItems.Add(Query.FieldByName('配套设施').Value);
            SubItems.Add(Query.FieldByName('权属类型').Value);
            
            SubItems.Add(Query.FieldByName('租赁单价').Value);
            SubItems.Add(Query.FieldByName('租赁金额').Value);
            SubItems.Add(Query.FieldByName('是否已租').Value);
            SubItems.Add(Query.FieldByName('可租').Value);
        end;
        query.Next;
    end;
    query.Close;
    query.Free;
    if listview1.Items.Count > 0 then ListView1.Items.Item[0].Selected := True;
end;

procedure Tf_RealtyE11.Button9Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyE11.Button8Click(Sender: TObject);
var
    query:TADOQuery;
    s:string;
begin
    if listview1.SelCount=0 then exit;

    if listview1.Selected.SubItems[15]='Y' then exit;

    f_RealtyE11A:=Tf_RealtyE11A.Create(self);
    f_RealtyE11A.ShowModal;

    if f_RealtyE11A.bOK=true then
    begin
        Query:=TADOQuery.Create(nil);
        Query.Connection:=DataModuleADO.ADOConnection1;

        query.SQL.add('select * from 房间 where 编号='''+listview1.Selected.Caption+'''');
        query.Open;
        if query.recordcount>0 then
        begin
            s:='update 房间 set 可租='''+'Y';
            s:=s+''',  租赁单价='+f_RealtyE11A.Edit1.Text;
            s:=s+',租赁金额='+f_RealtyE11A.Edit2.Text;
            s:=s+' where 编号='''+listview1.Selected.Caption+'''';
            query.SQL.Clear;
            query.SQL.Add(s);
            DataModuleADO.ADOConnection1.BeginTrans;
            query.ExecSQL;
            DataModuleADO.ADOConnection1.CommitTrans;
        end;
        query.Close;
        query.Free;

        listview1.Selected.SubItems[12]:=f_RealtyE11A.Edit1.Text;
        listview1.Selected.SubItems[13]:=f_RealtyE11A.Edit2.Text;
        listview1.Selected.SubItems[15]:='Y'
    end;

end;

procedure Tf_RealtyE11.Button7Click(Sender: TObject);
var
    query:TADOQuery;
    s:string;
begin
    if listview1.SelCount=0 then exit;
    if listview1.Selected.SubItems[15]='N' then exit;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    if(Application.MessageBox(PChar('确认要将该房间设为不可租吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then exit;

    query.SQL.add('select * from 房间 where 编号='''+listview1.Selected.Caption+'''');
    query.Open;
    if query.recordcount>0 then
    begin
        s:='update 房间 set 可租='''+'N';
        s:=s+''', 租赁单价='''+'0';
        s:=s+''', 租赁金额='''+'0';
        s:=s+''' where 编号='''+listview1.Selected.Caption+'''';
        query.SQL.Clear;
        query.SQL.Add(s);
        DataModuleADO.ADOConnection1.BeginTrans;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        listview1.Selected.SubItems[12]:='0';
        listview1.Selected.SubItems[13]:='0';
        listview1.Selected.SubItems[15]:='N';
    end;
    query.Close;
    query.Free;

end;

procedure Tf_RealtyE11.Button1Click(Sender: TObject);
begin
    TreeView1Click(Sender);
end;

procedure Tf_RealtyE11.Button10Click(Sender: TObject);
begin
    if listview1.SelCount=0 then exit;

    bOk:=true;
    sNum:=listview1.selected.caption;
    sname:=listview1.selected.subitems[4];
    close;
end;

procedure Tf_RealtyE11.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action := caFree;
end;

end.