realtyb32a.pas

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

          s:=s+''',钥匙发放='''+s1;
          s:=s+''',资料发放='''+s2;
          s:=s+''',购房合同号='''+edit5.Text;
          s:=s+''',收楼书号='''+edit6.Text;
          s:=s+''',入伙通知书='''+edit7.Text;
          s:=s+''',存放位置='''+edit8.Text;
          s:=s+''',产权证号='''+edit9.Text;
          s:=s+''',土地证号='''+edit10.Text;
          s:=s+''',客户迁入='''+s3;
          s:=s+''',房间以前客户全部迁出='''+s4;
          s:=s+''',代缴类型='''+s5;
          s:=s+''' where 单号='''+f_RealtyB32.ListView1.Selected.SubItems[20]+'''';

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

          for i:=0 to listview1.Items.Count-1 do
          begin
              if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
              if listview1.Items.Item[i].SubItems[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
              if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
              if listview1.Items.Item[i].SubItems[3]='' then listview1.Items.Item[i].SubItems[3]:='-';
              if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';

              s:='insert into 入伙登记明细 (单号,房间验收项目,验收结果,验收人,验收说明,';
              s:=s+'备注)';
              s:=s+' values (:s1,:s2,:s3,:s4,:s5,';
              s:=s+':s6)';

              query.SQL.Clear;
              query.SQL.Add(s);

              query.Parameters.ParamByName('s1').Value:=edit12.Text;
              query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;
              query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].SubItems[0];
              query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].SubItems[1];
              query.Parameters.ParamByName('s5').Value:=listview1.Items.Item[i].SubItems[2];
              query.Parameters.ParamByName('s6').Value:=listview1.Items.Item[i].SubItems[3];


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

          query.SQL.Clear;
          Query.SQL.Add('select * from 入伙登记 where 单号='''+f_RealtyB32.ListView1.Selected.SubItems[20]+'''');
          Query.Open ;
          if query.RecordCount>0 then
          begin
              s1:='-';
              s2:='-';
              s3:='-';
              s4:='-';
              s5:='-';
              s6:='-';
              s7:='-';
              s8:='-';
              s9:='-';
              s10:='-';

              query1.SQL.Clear;
              query1.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                   s1:=query1.fieldbyname('电话').Value;
                   s2:=query1.fieldbyname('性别').Value;
                   s3:=query1.fieldbyname('身份证号码').Value;
                   s4:=query1.fieldbyname('工作单位').Value;
              end;
              query1.SQL.Clear;
              query1.SQL.Add('select * from 职员 where 名称='''+query.fieldbyname('接待人员').Value+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                  s5:=query1.fieldbyname('职务').Value;
                  s6:=query1.fieldbyname('岗位').Value;
              end;

              query1.SQL.Clear;
              query1.SQL.Add('select * from 房间 where 编号='''+query.fieldbyname('房间').Value+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                  s7:=query1.fieldbyname('名称').Value;
                  s8:=query1.fieldbyname('楼宇').Value;
                  s9:=query1.fieldbyname('管理区').Value;
                  r1:=query1.fieldbyname('管理处').Value;
              end;

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

              query1.SQL.Clear;
              query1.SQL.Add('select * from 管理区 where 编号='''+s9+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                 s11:=query1.fieldbyname('名称').Value;
              end;

              query1.SQL.Clear;
              query1.SQL.Add('select * from 组织机构 where 编号='''+r1+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                 r2:=query1.fieldbyname('名称').Value;
              end;


              with f_RealtyB32.ListView1.Selected do
              begin
                  caption:=r2;
                  SubItems[0]:=s11;
                  SubItems[1]:=s10;
                  SubItems[2]:=Query.FieldByName('房间').Value;
                  SubItems[3]:=s7;
                  SubItems[4]:=Query.FieldByName('客户').Value;

                  SubItems[5]:=Query.FieldByName('入伙日期').Value;
                  SubItems[6]:=s1;
                  SubItems[7]:=s2;
                  SubItems[8]:=s3;
                  SubItems[9]:=s4;

                  SubItems[10]:=Query.FieldByName('接待人员').Value;
                  SubItems[11]:=s5;
                  SubItems[12]:=s6;
                  SubItems[13]:=Query.FieldByName('资料发放').Value;
                  SubItems[14]:=Query.FieldByName('钥匙发放').Value;

                  SubItems[15]:=Query.FieldByName('购房合同号').Value;
                  SubItems[16]:=Query.FieldByName('收楼书号').Value;
                  SubItems[17]:=Query.FieldByName('入伙通知书').Value;
                  SubItems[18]:=Query.FieldByName('产权证号').Value;
                  SubItems[19]:=Query.FieldByName('土地证号').Value;

                  SubItems[20]:=Query.FieldByName('单号').Value;
                  SubItems[21]:=Query.FieldByName('审核').Value;
              end;
          end;
          query.Close;
          query.free;
          query1.Close;
          query1.free;
          query2.close;
          query2.free;

          close;
    end
    else
    begin
          query.SQL.Clear;
          query.sql.Add('select * from 入伙登记 where 单号='''+edit12.Text+'''');
          query.Open;
          if query.RecordCount>0 then
          begin
              showmessage('单号重复!');
              edit12.SetFocus;
              query.Close;
              query.Free;
              exit;
          end;



          if s3='Y' then
          begin
              query1.SQL.Clear;
              query1.SQL.Add('select * from 房间 where 编号='''+s10+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                  r1:=query1.fieldbyname('管理处').Value;
              end;

              s:='insert into 客户迁入 (编号,房间,客户,迁入日期,迁入性质,迁入说明,管理处)';
              s:=s+'values(:s1,:s2,:s3,:s4,:s5,:s6,:s7)';

              query.sql.Clear;
              query.SQL.Add(s);

              query.Parameters.ParamByName('s1').Value:=edit12.Text;
              query.Parameters.ParamByName('s2').Value:=s10;
              query.Parameters.ParamByName('s3').Value:=edit2.Text;
              query.Parameters.ParamByName('s4').Value:=datetostr(datetimepicker1.Date);
              query.Parameters.ParamByName('s5').Value:='-';
              query.Parameters.ParamByName('s6').Value:='-';
              query.Parameters.ParamByName('s7').Value:=r1;

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


          //-------------------保存主表

          s:='insert into 入伙登记 (单号,房间,客户,入伙日期,接待人员,';
          s:=s+'钥匙发放,资料发放,购房合同号,收楼书号,入伙通知书,';
          s:=s+'存放位置,产权证号,土地证号,客户迁入,房间以前客户全部迁出,审核)';
          s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
          s:=s+':s6,:s7,:s8,:s9,:s10,';
          s:=s+':s11,:s12,:s13,:s14,:s15,:s16)';

          query.SQL.Clear;
          query.SQL.Add(s);

          query.Parameters.ParamByName('s1').Value:=edit12.Text;
          query.Parameters.ParamByName('s2').Value:=s10;
          query.Parameters.ParamByName('s3').Value:=edit2.Text;
          query.Parameters.ParamByName('s4').Value:=datetostr(datetimepicker1.Date);
          query.Parameters.ParamByName('s5').Value:=edit3.Text;

          query.Parameters.ParamByName('s6').Value:=s1;
          query.Parameters.ParamByName('s7').Value:=s2;
          query.Parameters.ParamByName('s8').Value:=edit5.Text;
          query.Parameters.ParamByName('s9').Value:=edit6.Text;
          query.Parameters.ParamByName('s10').Value:=edit7.Text;

          query.Parameters.ParamByName('s11').Value:=edit8.Text;
          query.Parameters.ParamByName('s12').Value:=edit9.Text;
          query.Parameters.ParamByName('s13').Value:=edit10.Text;
          query.Parameters.ParamByName('s14').Value:=s3;
          query.Parameters.ParamByName('s15').Value:=s4;
          query.Parameters.ParamByName('s16').Value:='N';

          DataModuleADO.ADOConnection1.BeginTrans;
          query.ExecSQL;
          DataModuleADO.ADOConnection1.CommitTrans;


          //-----------------保存从表

          for i:=0 to listview1.Items.Count-1 do
          begin
              if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
              if listview1.Items.Item[i].SubItems[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
              if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
              if listview1.Items.Item[i].SubItems[3]='' then listview1.Items.Item[i].SubItems[3]:='-';
              if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';


              s:='insert into 入伙登记明细 (单号,房间验收项目,验收结果,验收人,验收说明,';
              s:=s+'备注)';
              s:=s+' values (:s1,:s2,:s3,:s4,:s5,';
              s:=s+':s6)';

              query.SQL.Clear;
              query.SQL.Add(s);

              query.Parameters.ParamByName('s1').Value:=edit12.Text;
              query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;
              query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].SubItems[0];
              query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].SubItems[1];
              query.Parameters.ParamByName('s5').Value:=listview1.Items.Item[i].SubItems[2];
              query.Parameters.ParamByName('s6').Value:=listview1.Items.Item[i].SubItems[3];


              DataModuleADO.ADOConnection1.BeginTrans;
              query.ExecSQL;
              DataModuleADO.ADOConnection1.CommitTrans;

              //f_RealtyB32.ListView1.Selected.SubItems[21]:=edit12.Text;
          end;

          showmessage('保存成功!');

          query.SQL.Clear;
          Query.SQL.Add('select * from 入伙登记 where 单号='''+edit12.Text+'''');
          Query.Open ;
          if query.RecordCount>0 then
          begin
              s1:='-';
              s2:='-';
              s3:='-';
              s4:='-';
              s5:='-';
              s6:='-';
              s7:='-';
              s8:='-';
              s9:='-';
              s10:='-';

              query1.SQL.Clear;
              query1.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                   s1:=query1.fieldbyname('电话').Value;
                   s2:=query1.fieldbyname('性别').Value;
                   s3:=query1.fieldbyname('身份证号码').Value;
                   s4:=query1.fieldbyname('工作单位').Value;
              end;

              query1.SQL.Clear;
              query1.SQL.Add('select * from 职员 where 名称='''+query.fieldbyname('接待人员').Value+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                  s5:=query1.fieldbyname('职务').Value;
                  s6:=query1.fieldbyname('岗位').Value;
              end;
              
              query1.SQL.Clear;
              query1.SQL.Add('select * from 房间 where 编号='''+query.fieldbyname('房间').Value+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                  s7:=query1.fieldbyname('名称').Value;
                  s8:=query1.fieldbyname('楼宇').Value;
                  s9:=query1.fieldbyname('管理区').Value;
                  r1:=query1.fieldbyname('管理处').Value;
              end;

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

              query1.SQL.Clear;
              query1.SQL.Add('select * from 管理区 where 编号='''+s9+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                 s11:=query1.fieldbyname('名称').Value;
              end;

              query1.SQL.Clear;
              query1.SQL.Add('select * from 组织机构 where 编号='''+r1+'''');
              query1.Open;
              if query1.RecordCount>0 then
              begin
                 r2:=query1.fieldbyname('名称').Value;
              end;


              with f_RealtyB32.ListView1.Items.Add do
              begin
                  Caption:=r2;
                  SubItems.Add(s11);
                  SubItems.Add(s10);
                  SubItems.Add(Query.FieldByName('房间').Value);
                   SubItems.Add(s7);
                  SubItems.Add(Query.FieldByName('客户').Value);

                  SubItems.Add(Query.FieldByName('入伙日期').Value);
                  SubItems.Add(s1);
                  SubItems.Add(s2);
                  SubItems.Add(s3);
                  SubItems.Add(s4);

                  SubItems.Add(Query.FieldByName('接待人员').Value);
                  SubItems.Add(s5);
                  SubItems.Add(s6);
                  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;
          query.Close;
          query.free;
          query1.Close;
          query1.free;
          query2.close;
          query2.free;
          if  f_RealtyB32.ListView1.Items.Count>0 then f_RealtyB32.ListView1.Items.Item[0].Selected:=true;



          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit5.Text:='';
          edit6.Text:='';
          edit7.Text:='';
          edit8.Text:='';
          edit9.Text:='';
          edit10.Text:='';
          checkbox1.Checked:=false;
          checkbox2.Checked:=false;
          checkbox3.Checked:=false;
          checkbox4.Checked:=false;

          listview1.Items.Clear;
      end;


end;

end.