realtyc25a.pas

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

var
    query,query1,query2:TADOQuery;
    s,s1,r,ss,s2,rr:string;
    i:integer;
    b:bool;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;
    Query2:=TADOQuery.Create(nil);
    Query2.Connection:=DataModuleADO.ADOConnection1;


    if f_RealtyC25.TreeView1.Selected.Text='所有组织机构' then
    begin
        for i:=0 to  listview1.Items.Count-1 do
        begin
            ss:=listview1.Items.Item[i].SubItems[2];

            if ss='Y'  then
            begin
                query.SQL.Clear;
                query.SQL.Add('select * from 车位 ');
                query.Open;
                while not query.eof do
                begin
                    s1:=query.fieldbyname('编号').Value;

                    query1.SQL.Clear;
                    query1.SQL.Add('select * from 房间收费项目设置 where 房间编号='''+s1+''' and 收费项目编号='''+listview1.Items.item[i].SubItems[0]+'''');
                    query1.Open;
                    if query1.RecordCount=0 then
                    begin
                        s:='insert into 房间收费项目设置 (房间编号,收费项目编号,收费标准编号,开始计费日期,';
                        s:=s+'收费帐号,收取) values (:s1,:s2,:s3,:s4,:s5,:s6)';

                        query1.sql.Clear ;
                        query1.sql.add(s);
                        query1.Parameters.ParamByName('s1').Value:=trim(s1);
                        query1.Parameters.ParamByName('s2').Value:=listview1.Items.item[i].SubItems[0];
                        query1.Parameters.ParamByName('s3').Value:=mainform.getNum(listview1.Items.item[i].SubItems[3]);
                        query1.Parameters.ParamByName('s4').Value:=listview1.Items.item[i].SubItems[4];
                        query1.Parameters.ParamByName('s6').Value:='-';
                        query1.Parameters.ParamByName('s7').Value:=listview1.Items.item[i].SubItems[2];

                        DataModuleADO.ADOConnection1.BeginTrans;
                        query1.ExecSQL;
                        DataModuleADO.ADOConnection1.CommitTrans;
                    end;
                    query.Next;
                end
            end;
        end;
    end;


    if f_RealtyC25.TreeView1.Selected.Text<>'所有组织机构' then
    begin
        for i:=0 to  listview1.Items.Count-1 do
        begin
            ss:=listview1.Items.Item[i].SubItems[2];

            if ss='Y'  then
            begin
                b:=false;

                s:='select * from 管理区 where 名称='''+f_RealtyC25.treeview1.Selected.Text+'''';
                query.sql.clear;
                Query.SQL.Add(s);
                Query.Open ;
                if query.RecordCount>0 then
                begin
                    b:=true;
                    rr:=Query.FieldByName('编号').Value;

                    s:='select * from 房间 where 管理区='''+rr+'''';
                    query.SQL.Clear;
                    query.SQL.Add(s);
                    query.Open;
                    while not query.eof do
                    begin
                        s1:=query.fieldbyname('编号').Value;

                        query1.SQL.Clear;
                        query1.SQL.Add('select * from 房间收费项目设置 where 房间编号='''+s1+''' and 收费项目编号='''+listview1.Items.item[i].SubItems[0]+'''');
                        query1.Open;
                        if query1.RecordCount=0 then
                        begin
                            s:='insert into 房间收费项目设置 (房间编号,收费项目编号,收费标准编号,开始计费日期,';
                            s:=s+'指定金额,收费帐号,收取) values (:s1,:s2,:s3,:s4,:s5,:s6,:s7)';

                            query1.sql.Clear ;
                            query1.sql.add(s);
                            query1.Parameters.ParamByName('s1').Value:=trim(s1);
                            query1.Parameters.ParamByName('s2').Value:=listview1.Items.item[i].SubItems[0];
                            query1.Parameters.ParamByName('s3').Value:=mainform.getNum(listview1.Items.item[i].SubItems[3]);
                            query1.Parameters.ParamByName('s4').Value:=listview1.Items.item[i].SubItems[4];
                            query1.Parameters.ParamByName('s5').Value:='0.00';
                            query1.Parameters.ParamByName('s6').Value:='';
                            query1.Parameters.ParamByName('s7').Value:=listview1.Items.item[i].SubItems[2];

                            DataModuleADO.ADOConnection1.BeginTrans;
                            query1.ExecSQL;
                            DataModuleADO.ADOConnection1.CommitTrans;
                        end;
                        query.Next;
                    end;
                end;

                s:='select * from 楼宇 where 名称='''+f_RealtyC25.treeview1.Selected.Text+'''';
                query.sql.clear;
                Query.SQL.Add(s);
                Query.Open ;
                if query.RecordCount>0 then
                begin
                    b:=true;
                    rr:=Query.FieldByName('编号').Value;

                    s:='select * from 房间 where 楼宇='''+rr+'''';
                    query.SQL.Clear;
                    query.SQL.Add(s);
                    query.Open;
                    while not query.eof do
                    begin
                        s1:=query.fieldbyname('编号').Value;

                        query1.SQL.Clear;
                        query1.SQL.Add('select * from 房间收费项目设置 where 房间编号='''+s1+''' and 收费项目编号='''+listview1.Items.item[i].SubItems[0]+'''');
                        query1.Open;
                        if query1.RecordCount=0 then
                        begin
                            s:='insert into 房间收费项目设置 (房间编号,收费项目编号,收费标准编号,开始计费日期,';
                            s:=s+'指定金额,收费帐号,收取) values (:s1,:s2,:s3,:s4,:s5,:s6,:s7)';

                            query1.sql.Clear ;
                            query1.sql.add(s);
                            query1.Parameters.ParamByName('s1').Value:=trim(s1);
                            query1.Parameters.ParamByName('s2').Value:=listview1.Items.item[i].SubItems[0];
                            query1.Parameters.ParamByName('s3').Value:=mainform.getNum(listview1.Items.item[i].SubItems[3]);
                            query1.Parameters.ParamByName('s4').Value:=listview1.Items.item[i].SubItems[4];
                            query1.Parameters.ParamByName('s5').Value:='0.00';
                            query1.Parameters.ParamByName('s6').Value:='-';
                            query1.Parameters.ParamByName('s7').Value:=listview1.Items.item[i].SubItems[2];

                            DataModuleADO.ADOConnection1.BeginTrans;
                            query1.ExecSQL;
                            DataModuleADO.ADOConnection1.CommitTrans;
                        end;
                        query.Next;
                    end;
                end;    


                s:='select * from 组织机构 where 名称 = '''+f_RealtyC25.treeview1.Selected.Text+'''';

                query.SQL.Clear;
                Query.SQL.Add(s);
                Query.Open ;
                if query.RecordCount>0 then
                begin
                    s1:=Query.FieldByName('stampt').Value;

                    s:='select * from 组织机构 where 组织机构类别='''+'管理处';
                    s:=s+''' and stampt like '''+s1+'%''';

                    query1.SQL.Clear;
                    Query1.SQL.Add(s);
                    Query1.Open ;
                    while not Query1.Eof do
                    begin
                        s:='select * from 房间 where 管理处 ='''+Query1.FieldByName('编号').Value+'''';
                        query.SQL.Clear;
                        query.SQL.Add(s);
                        query.Open;
                        while not query.Eof do
                        begin
                            s1:=query.fieldbyname('编号').Value;

                            query2.SQL.Clear;
                            query2.SQL.Add('select * from 房间收费项目设置 where 房间编号='''+s1+''' and 收费项目编号='''+listview1.Items.item[i].SubItems[0]+'''');
                            query2.Open;
                            if query2.RecordCount=0 then
                            begin
                                s:='insert into 房间收费项目设置 (房间编号,收费项目编号,收费标准编号,开始计费日期,';
                                s:=s+'指定金额,收费帐号,收取) values (:s1,:s2,:s3,:s4,:s5,:s6,:s7)';

                                query2.sql.Clear ;
                                query2.sql.add(s);
                                query2.Parameters.ParamByName('s1').Value:=trim(s1);
                                query2.Parameters.ParamByName('s2').Value:=listview1.Items.item[i].SubItems[0];
                                query2.Parameters.ParamByName('s3').Value:=mainform.getNum(listview1.Items.item[i].SubItems[3]);
                                query2.Parameters.ParamByName('s4').Value:=listview1.Items.item[i].SubItems[4];
                                query2.Parameters.ParamByName('s5').Value:='0.00';
                                query2.Parameters.ParamByName('s6').Value:='-';
                                query2.Parameters.ParamByName('s7').Value:=listview1.Items.item[i].SubItems[2];

                                DataModuleADO.ADOConnection1.BeginTrans;
                                query2.ExecSQL;
                                DataModuleADO.ADOConnection1.CommitTrans;
                            end ;

                           query.Next;
                        end;  
                        query1.next;
                    end;

                end;
            end;
        end;
    end;
    showmessage('保存成功');

    f_RealtyC25.bChange:=true;
end;

procedure Tf_RealtyC25A.Button7Click(Sender: TObject);
begin
    close;
end;

end.