realtya321.pas

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

            subitems.Add(edit1.Text);
            subitems.Add(edit2.Text);
            subitems.Add(datetostr(datetimepicker1.Date));
            subitems.Add(edit3.Text);
            subitems.Add(edit4.Text);
            subitems.Add(edit5.Text);
            subitems.Add(edit6.Text);
            subitems.Add(s3);
        end;

        if f_RealtyA32.pagecontrol1.ActivePageIndex=2 then
        with f_RealtyA32.ListView3.Items.Add do
        begin
            Caption:=s4;
            subitems.Add(edit1.Text);
            subitems.Add(edit2.Text);
            subitems.Add(datetostr(datetimepicker1.Date));
            subitems.Add(edit3.Text);
            subitems.Add(edit4.Text);
            subitems.Add(edit5.Text);
            subitems.Add(edit6.Text);
            subitems.Add(s3);
        end;

        if f_RealtyA32.pagecontrol1.ActivePageIndex=3 then
        with f_RealtyA32.ListView4.Items.Add do
        begin
            Caption:=s4;
            subitems.Add(edit1.Text);
            subitems.Add(edit2.Text);
            subitems.Add(datetostr(datetimepicker1.Date));
            subitems.Add(edit3.Text);
            subitems.Add(edit4.Text);
            subitems.Add(edit5.Text);
            subitems.Add(edit6.Text);
            subitems.Add(s3);
        end;

        if f_RealtyA32.pagecontrol1.ActivePageIndex=4 then
        with f_RealtyA32.ListView5.Items.Add do
        begin
            Caption:=s4;
            subitems.Add(edit1.Text);
            subitems.Add(edit2.Text);
            subitems.Add(datetostr(datetimepicker1.Date));
            subitems.Add(edit3.Text);
            subitems.Add(edit4.Text);
            subitems.Add(edit5.Text);
            subitems.Add(edit6.Text);
            subitems.Add(s3);
        end;

        Edit1.ItemIndex:=Edit1.Items.IndexOf('');
        Edit2.Text:='';
        Edit3.Text:='';
        Edit4.Text:='';
        Edit5.Text:='';
        Edit6.Text:='';
        Edit7.Text:='';
        Edit1.SetFocus;
     end;


     if  f_RealtyA32.bMod=true then
     begin
        if s1='管理区' then
        begin
            r2:=f_RealtyA32.listview1.Selected.Subitems[0];
            r3:=f_RealtyA32.listview1.Selected.Subitems[7];


            if Edit1.Text<> f_RealtyA32.listview1.Selected.Subitems[0] then
            begin
                s:='select * from 房产验收 where 所属单位='''+f_RealtyA32.listview1.Selected.Caption;
                s:=s+''' and 类别='''+s1;
                s:=s+''' and 验收项目='''+edit1.Text+'''';

                query.SQL.Add(s);
                query.Open;
                if query.RecordCount>0 then
                begin
                   showmessage('验收项目重复');
                   edit1.SetFocus;
                   exit;
                end;
            end;
        end;

        if s1='楼宇' then
        begin
            r2:=f_RealtyA32.listview2.Selected.Subitems[0];
            r3:=f_RealtyA32.listview2.Selected.Subitems[7];


            if Edit1.Text<> f_RealtyA32.listview2.Selected.Subitems[0] then
            begin
                s:='select * from 房产验收 where 所属单位='''+f_RealtyA32.listview2.Selected.Caption;
                s:=s+''' and 类别='''+s1;
                s:=s+''' and 验收项目='''+edit1.Text+'''';

                query.SQL.Add(s);
                query.Open;
                if query.RecordCount>0 then
                begin
                   showmessage('验收项目重复');
                   edit1.SetFocus;
                   exit;
                end;
            end;
        end;

        if s1='房间' then
        begin
            r2:=f_RealtyA32.listview3.Selected.Subitems[0];
            r3:=f_RealtyA32.listview3.Selected.Subitems[7];


            if Edit1.Text<> f_RealtyA32.listview3.Selected.Subitems[0] then
            begin
                s:='select * from 房产验收 where 所属单位='''+f_RealtyA32.listview3.Selected.Caption;
                s:=s+''' and 类别='''+s1;
                s:=s+''' and 验收项目='''+edit1.Text+'''';

                query.SQL.Add(s);
                query.Open;
                if query.RecordCount>0 then
                begin
                   showmessage('验收项目重复');
                   edit1.SetFocus;
                   exit;
                end;
            end;
        end;

        if s1='停车场' then
        begin
            r2:=f_RealtyA32.listview4.Selected.Subitems[0];
            r3:=f_RealtyA32.listview4.Selected.Subitems[7];


            if Edit1.Text<> f_RealtyA32.listview4.Selected.Subitems[0] then
            begin
                s:='select * from 房产验收 where 所属单位='''+f_RealtyA32.listview4.Selected.Caption;
                s:=s+''' and 类别='''+s1;
                s:=s+''' and 验收项目='''+edit1.Text+'''';

                query.SQL.Add(s);
                query.Open;
                if query.RecordCount>0 then
                begin
                   showmessage('验收项目重复');
                   edit1.SetFocus;
                   exit;
                end;
            end;
        end;

        if s1='车位' then
        begin
            r2:=f_RealtyA32.listview5.Selected.Subitems[0];
            r3:=f_RealtyA32.listview5.Selected.Subitems[7];


            if Edit1.Text<> f_RealtyA32.listview5.Selected.Subitems[0] then
            begin
                s:='select * from 房产验收 where 所属单位='''+f_RealtyA32.listview5.Selected.Caption;
                s:=s+''' and 类别='''+s1;
                s:=s+''' and 验收项目='''+edit1.Text+'''';

                query.SQL.Add(s);
                query.Open;
                if query.RecordCount>0 then
                begin
                   showmessage('验收项目重复');
                   edit1.SetFocus;
                   exit;
                end;
            end;
        end;


        s:='update 房产验收 set 验收项目='''+Edit1.Text;
        s:=s+''',验收结果='''+Edit2.Text;
        s:=s+''',验收日期='''+datetostr(datetimepicker1.Date);
        s:=s+''',负责人='''+Edit3.Text;
        s:=s+''',验收人='''+Edit4.Text;
        s:=s+''',验收说明='''+Edit5.Text;
        s:=s+''',备注='''+Edit6.Text;
        s:=s+''',所属单位='''+s3;
        s:=s+''' where 类别='''+ s1;
        s:=s+''' and 验收项目='''+r2;
        s:=s+''' and 所属单位='''+r3;
        s:=s+'''';

        DataModuleADO.ADOConnection1.BeginTrans;
        Query.SQL.Text:=s;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        if f_RealtyA32.pagecontrol1.ActivePageIndex=0 then
        with f_RealtyA32.ListView1.Selected do
        begin
            Caption:=s4;
            subitems[0]:=edit1.Text;
            subitems[1]:=edit2.Text;
            subitems[2]:=datetostr(datetimepicker1.Date);
            subitems[3]:=edit3.Text;
            subitems[4]:=edit4.Text;
            subitems[5]:=edit5.Text;
            subitems[6]:=edit6.Text;
            subitems[7]:=s3;
        end;

        if f_RealtyA32.pagecontrol1.ActivePageIndex=1 then
        with f_RealtyA32.ListView2.Selected do
        begin
            Caption:=s4;
            subitems[0]:=edit1.Text;
            subitems[1]:=edit2.Text;
            subitems[2]:=datetostr(datetimepicker1.Date);
            subitems[3]:=edit3.Text;
            subitems[4]:=edit4.Text;
            subitems[5]:=edit5.Text;
            subitems[6]:=edit6.Text;
            subitems[7]:=s3;
        end;

        if f_RealtyA32.pagecontrol1.ActivePageIndex=2 then
        with f_RealtyA32.ListView3.Selected do
        begin
            Caption:=s4;
            subitems[0]:=edit1.Text;
            subitems[1]:=edit2.Text;
            subitems[2]:=datetostr(datetimepicker1.Date);
            subitems[3]:=edit3.Text;
            subitems[4]:=edit4.Text;
            subitems[5]:=edit5.Text;
            subitems[6]:=edit6.Text;
            subitems[7]:=s3;
        end;

        if f_RealtyA32.pagecontrol1.ActivePageIndex=3 then
        with f_RealtyA32.ListView4.Selected do
        begin
            Caption:=s4;
            subitems[0]:=edit1.Text;
            subitems[1]:=edit2.Text;
            subitems[2]:=datetostr(datetimepicker1.Date);
            subitems[3]:=edit3.Text;
            subitems[4]:=edit4.Text;
            subitems[5]:=edit5.Text;
            subitems[6]:=edit6.Text;
            subitems[7]:=s3;
        end;

        if f_RealtyA32.pagecontrol1.ActivePageIndex=4 then
        with f_RealtyA32.ListView5.Selected do
        begin
            Caption:=s4;
            subitems[0]:=edit1.Text;
            subitems[1]:=edit2.Text;
            subitems[2]:=datetostr(datetimepicker1.Date);
            subitems[3]:=edit3.Text;
            subitems[4]:=edit4.Text;
            subitems[5]:=edit5.Text;
            subitems[6]:=edit6.Text;
            subitems[7]:=s3;
        end;

        close;
     end;
end;

procedure Tf_RealtyA321.Button3Click(Sender: TObject);
begin
    if f_RealtyA32.pagecontrol1.ActivePageIndex=0 then
    begin
        f_RealtyA11:=Tf_RealtyA11.Create(self);
        f_RealtyA11.ToolButton6.Visible:=true;
        f_RealtyA11.ShowModal;

        if  f_RealtyA11.bOk=true then
        begin
            edit7.Text:=f_RealtyA11.sNum+'--'+f_RealtyA11.sName;
        end;


    end;

    if f_RealtyA32.pagecontrol1.ActivePageIndex=1 then
    begin
        f_RealtyA12:=Tf_RealtyA12.Create(self);
        f_RealtyA12.ToolButton6.Visible:=true;
        f_RealtyA12.ShowModal;

        if  f_RealtyA12.bOk=true then
        begin
            edit7.Text:=f_RealtyA12.sNum+'--'+f_RealtyA12.sName;
        end;


    end;

    if f_RealtyA32.pagecontrol1.ActivePageIndex=2 then
    begin
        f_RealtyA14:=Tf_RealtyA14.Create(self);
        f_RealtyA14.ToolButton6.Visible:=true;
        f_RealtyA14.ShowModal;

        if  f_RealtyA14.bOk=true then
        begin
            edit7.Text:=f_RealtyA14.sNum+'--'+f_RealtyA14.sName;
        end;


    end;

    if f_RealtyA32.pagecontrol1.ActivePageIndex=3 then
    begin
        f_RealtyA13:=Tf_RealtyA13.Create(self);
        f_RealtyA13.ToolButton6.Visible:=true;
        f_RealtyA13.ShowModal;

        if  f_RealtyA13.bOk=true then
        begin
            edit7.Text:=f_RealtyA13.sNum+'--'+f_RealtyA13.sName;
        end;


    end;

    if f_RealtyA32.pagecontrol1.ActivePageIndex=4 then
    begin
        f_RealtyA15:=Tf_RealtyA15.Create(self);
        f_RealtyA15.ToolButton6.Visible:=true;
        f_RealtyA15.ShowModal;

        if  f_RealtyA15.bOk=true then
        begin
            edit7.Text:=f_RealtyA15.sNum+'--'+f_RealtyA15.sName;
        end;


    end;
end;

procedure Tf_RealtyA321.Edit2Select(Sender: TObject);
begin
    if edit2.Text='新增验收结果' then
    begin
        mainform.t1:='验收结果';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit2.Items.Add(mainform.t1);
            edit2.ItemIndex:=edit2.Items.IndexOf(mainform.t1);
        end
        else edit2.ItemIndex:=edit2.Items.IndexOf('');
    end;
end;

end.