realtye12a.pas

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

      Edit1.SetFocus;
      exit;
   end;

   if Edit8.Text='' then
   begin
       showMessage('请输入保证金额');
       Edit8.SetFocus;
       exit;
   end;

   edit8.Text:=mainform.StdDou2(edit8.text);
   if Edit5.Text='' then Edit5.Text:='-';
   if Edit6.Text='' then Edit6.Text:='-';
   if Edit7.Text='' then Edit7.Text:='-';
   if Edit9.Text='' then Edit9.Text:='-';

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

   if f_RealtyE13.bMod then
   begin
       if editID.Text<>mainform.t1 then
       begin
           query.sql.clear;
           query.SQL.Add('select * from 租赁合同 where 单号='''+editID.Text+'''');
           query.Open;
           if query.RecordCount>0 then
           begin
               showmessage('单号已存在!');
               editID.SetFocus;
               query.Close;
               query.free;
               exit;
           end;
       end;
       DataModuleADO.ADOConnection1.BeginTrans;
       query.SQL.Text:='delete  from 租赁合同租金 where 单号='''+mainform.t1+'''';
       query.ExecSQL;
       DataModuleADO.ADOConnection1.CommitTrans;

       DataModuleADO.ADOConnection1.BeginTrans;
       query.SQL.Text:='delete  from 租赁合同收费 where 单号='''+mainform.t1+'''';
       query.ExecSQL;
       DataModuleADO.ADOConnection1.CommitTrans;


       s:='update 租赁合同 set 单号='''+editID.Text;
       s:=s+''',客户='''+edit1.Text;
       s:=s+''',日期='''+datetostr(edit2.date);
       s:=s+''',记租日期='''+datetostr(edit3.date);
       s:=s+''',截止日期='''+datetostr(edit4.date);
       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+''',操作员 ='''+edit11.Text;
       s:=s+''',修订='''+edit12.Text;
       s:=s+''' where 单号='''+mainform.t1+'''';

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

       mainform.t1:=editID.Text;

       if listview1.Items.Count>0 then
       begin
           for i:=0 to listview1.Items.Count-1 do
           begin
               s:='insert into 租赁合同租金 (单号,房间,建筑面积,收费项目,收费标准,';
               s:=s+'单价,金额,时间,单位1,单位2,';
               s:=s+'比例,周期,开始递增时间)';
               s:=s+'values(:s1,:s2,:s3,:s4,:s5,';
               s:=s+':s6,:s7,:s8,:s9,:s10,';
               s:=s+':s11,:s12,:s13)';

               query.SQL.Clear;
               query.SQL.Add(s);
               query.Parameters.ParamByName('s1').Value:=EditID.Text;
               query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;
               query.Parameters.ParamByName('s3').Value:=strtofloat(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:=strtofloat(listview1.Items.Item[i].SubItems[3]);
               query.Parameters.ParamByName('s7').Value:=strtofloat(listview1.Items.Item[i].SubItems[4]);
               query.Parameters.ParamByName('s8').Value:=listview1.Items.Item[i].SubItems[5];
               query.Parameters.ParamByName('s9').Value:=listview1.Items.Item[i].SubItems[6];
               query.Parameters.ParamByName('s10').Value:=listview1.Items.Item[i].SubItems[7];

               query.Parameters.ParamByName('s11').Value:=strtofloat(listview1.Items.Item[i].SubItems[8]);
               query.Parameters.ParamByName('s12').Value:=strtofloat(listview1.Items.Item[i].SubItems[9]);
               query.Parameters.ParamByName('s13').Value:=listview1.Items.Item[i].SubItems[10];

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

       if listview2.Items.Count>0 then
       begin
           for i:=0 to listview2.Items.Count-1 do
           begin
               s:='insert into 租赁合同收费 (单号,收费项目,收费金额) values(:s1,:s2,:s3)';

               query.SQL.Clear;
               query.SQL.Add(s);
               query.Parameters.ParamByName('s1').Value:=EditID.Text;
               query.Parameters.ParamByName('s2').Value:=listview2.Items.Item[i].Caption;
               query.Parameters.ParamByName('s3').Value:=strtofloat(listview2.Items.Item[i].SubItems[0]);

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

      query.sql.clear;
      Query.SQL.Add('select * from 租赁合同 where 单号='''+mainform.t1+'''');
      Query.Open;
      if query.recordcount>0 then
      begin
          s1:='-';
          d1:=0.00;
          query1.SQL.Clear;
          query1.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
          query1.Open;
          if query1.RecordCount>0 then  s1:=query1.fieldbyname('客户代码').Value;

          query1.SQL.Clear;
          query1.SQL.Add('select * from 租赁合同收费 where 单号='''+query.fieldbyname('单号').Value+'''');
          query1.Open;
          while not query1.Eof do
          begin
               d1:=d1+strtofloat(query1.fieldbyname('收费金额').Value);
               query1.Next;
          end;

          sDate:=query.fieldbyname('截止日期').Value;
          if (sDate<datetostr(date)) then sState:='合同中'
          else sState:='合同过期';
          with f_RealtyE13.ListView1.Selected do
          begin
              Caption:=Query.FieldByName('单号').Value;
              SubItems[0]:=Query.FieldByName('日期').Value;
              SubItems[1]:=s1;
              SubItems[2]:=Query.FieldByName('客户').Value;
              SubItems[3]:=Query.FieldByName('记租日期').Value;

              SubItems[4]:=Query.FieldByName('截止日期').Value;
              SubItems[5]:=sState;
              SubItems[6]:=Query.FieldByName('单号').Value;
              SubItems[7]:=floattostr(Query.FieldByName('保证金额').Value);

              SubItems[8]:=Query.FieldByName('操作员').Value;
              SubItems[9]:=Query.FieldByName('修订').Value;
              SubItems[10]:=Query.FieldByName('租赁用途').Value;
              SubItems[11]:=Query.FieldByName('备注').Value;

              SubItems[12]:=Query.FieldByName('审核').Value;
              SubItems[13]:=Query.FieldByName('审核日期').Value;
              SubItems[14]:=Query.FieldByName('审核人').Value;
          end;
      end;
      query1.close;
      query1.free;

      query.Close;
      query.Free;
      close;
   end
   else
   begin
       query.sql.clear;
       query.SQL.Add('select * from 租赁合同 where 单号='''+editID.Text+'''');
       query.Open;
       if query.RecordCount>0 then
       begin
           showmessage('单号已存在!');
           editID.SetFocus;
           query.close;
           query.free;
           exit;
       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)';
       query.SQL.Clear;
       Query.SQL.Add(s);
       Query.Parameters.ParamByName('s1').Value:=EditID.Text;
       Query.Parameters.ParamByName('s2').Value:=Edit1.Text;
       Query.Parameters.ParamByName('s3').Value:=datetostr(Edit2.Date);
       Query.Parameters.ParamByName('s4').Value:=datetostr(Edit3.Date);
       Query.Parameters.ParamByName('s5').Value:=datetostr(Edit4.Date);

       Query.Parameters.ParamByName('s6').Value:=Edit5.Text;
       Query.Parameters.ParamByName('s7').Value:=Edit6.Text;
       Query.Parameters.ParamByName('s8').Value:=Edit7.Text;
       Query.Parameters.ParamByName('s9').Value:=mainform.StdDou2(Edit8.Text);
       Query.Parameters.ParamByName('s10').Value:=Edit9.Text;

       Query.Parameters.ParamByName('s11').Value:=Edit10.Text;
       Query.Parameters.ParamByName('s12').Value:=Edit11.Text;

       DataModuleADO.ADOConnection1.BeginTrans;
       Query.execsql;
       DataModuleADO.ADOConnection1.CommitTrans;

       mainform.t1:=editID.Text;

       if listview1.Items.Count>0 then
       begin
           for i:=0 to listview1.Items.Count-1 do
           begin
               s:='insert into 租赁合同租金 (单号,房间,建筑面积,收费项目,收费标准,';
               s:=s+'单价,金额,时间,单位1,单位2,';
               s:=s+'比例,周期,开始递增时间)';
               s:=s+'values(:s1,:s2,:s3,:s4,:s5,';
               s:=s+':s6,:s7,:s8,:s9,:s10,';
               s:=s+':s11,:s12,:s13)';

               query.SQL.Clear;
               query.SQL.Add(s);
               query.Parameters.ParamByName('s1').Value:=EditID.Text;
               query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;
               query.Parameters.ParamByName('s3').Value:=strtofloat(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:=strtofloat(listview1.Items.Item[i].SubItems[3]);
               query.Parameters.ParamByName('s7').Value:=strtofloat(listview1.Items.Item[i].SubItems[4]);
               query.Parameters.ParamByName('s8').Value:=listview1.Items.Item[i].SubItems[5];
               query.Parameters.ParamByName('s9').Value:=listview1.Items.Item[i].SubItems[6];
               query.Parameters.ParamByName('s10').Value:=listview1.Items.Item[i].SubItems[7];

               query.Parameters.ParamByName('s11').Value:=strtofloat(listview1.Items.Item[i].SubItems[8]);
               query.Parameters.ParamByName('s12').Value:=strtofloat(listview1.Items.Item[i].SubItems[9]);
               query.Parameters.ParamByName('s13').Value:=listview1.Items.Item[i].SubItems[10];

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

       if listview2.Items.Count>0 then
       begin
           for i:=0 to listview2.Items.Count-1 do
           begin
               s:='insert into 租赁合同收费 (单号,收费项目,收费金额) values(:s1,:s2,:s3)';

               query.SQL.Clear;
               query.SQL.Add(s);
               query.Parameters.ParamByName('s1').Value:=EditID.Text;
               query.Parameters.ParamByName('s2').Value:=listview2.Items.Item[i].Caption;
               query.Parameters.ParamByName('s3').Value:=strtofloat(listview2.Items.Item[i].SubItems[0]);

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

       showMessage('保存成功!');

      query.sql.clear;
      Query.SQL.Add('select * from 租赁合同 where 单号='''+mainform.t1+'''');
      Query.Open ;
      if query.RecordCount>0 then
      begin
          s1:='-';
          d1:=0.00;
          query1.SQL.Clear;
          query1.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
          query1.Open;
          if query1.RecordCount>0 then  s1:=query1.fieldbyname('客户代码').Value;

          query1.SQL.Clear;
          query1.SQL.Add('select * from 租赁合同收费 where 单号='''+query.fieldbyname('单号').Value+'''');
          query1.Open;
          while not query1.Eof do
          begin
               d1:=d1+strtofloat(query1.fieldbyname('收费金额').Value);
               query1.Next;
          end;

          sDate:=query.fieldbyname('截止日期').Value;
          if (sDate<datetostr(date)) then sState:='合同中'
          else sState:='合同过期';
          with f_RealtyE13.ListView1.Items.Add do
          begin
              Caption:=Query.FieldByName('单号').Value;
              SubItems.Add(Query.FieldByName('日期').Value);
              SubItems.Add(s1);
              SubItems.Add(Query.FieldByName('客户').Value);
              SubItems.Add(Query.FieldByName('记租日期').Value);

              SubItems.Add(Query.FieldByName('截止日期').Value);
              SubItems.Add(sState);
              SubItems.Add(Query.FieldByName('单号').Value);
              SubItems.Add(floattostr(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;
      query1.Close;
      query1.free;
      query.Close;
      query.free;
   end;



   getID;
   edit1.Text:='';
   edit2.Date:=date;
   edit3.Date:=date;
   edit4.date:=date;
   edit5.Text:='';
   edit6.Text:='';
   edit7.Text:='';
   edit8.Text:='';
   edit9.Text:='';
   edit10.Text:='';
   edit11.Text:='';
   edit12.Text:='';
   edit13.Text:='';

   listview1.Items.Clear;
   listview2.Items.Clear;

end;

procedure Tf_RealtyE12A.Button5Click(Sender: TObject);
begin
    close;
end;

end.