realtye41a.pas

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

   i:integer;
begin
   if Edit1.Text='' then
   begin
      showMessage('请输入客户名称');
      Edit1.SetFocus;
      exit;
   end;


   if Edit5.Text='' then Edit5.Text:='-';
   if Edit6.Text='' then Edit6.Text:='-';
   if Edit7.Text='' then Edit7.Text:='-';
   if Edit8.Text='' then Edit8.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_RealtyE42.bMod then
   begin
       DataModuleADO.ADOConnection1.BeginTrans;
       query.SQL.Text:='delete  from 代租合同租金 where 单号='''+f_RealtyE42.ListView1.Selected.Caption+'''';
       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+''' where 单号='''+f_RealtyE42.ListView1.Selected.Caption+'''';

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


       if listview1.Items.Count>0 then
       begin
           for i:=0 to listview1.Items.Count-1 do
           begin
               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:=EditID.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:=strtofloat(listview1.Items.Item[i].SubItems[2]);

               query.Parameters.ParamByName('s6').Value:=strtofloat(listview1.Items.Item[i].SubItems[3]);

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

       query.sql.clear;
       Query.SQL.Add('select * from 代租合同 where 单号='''+editID.Text+'''');
       Query.Open ;
       if query.recordcount>0 then
       begin
            d1:=0.00;

            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_RealtyE42.ListView1.Selected do
            begin
                Caption:=Query.FieldByName('单号').Value;
                SubItems[0]:=Query.FieldByName('客户').Value;
                SubItems[1]:=Query.FieldByName('日期').Value;
                SubItems[2]:=Query.FieldByName('记租日期').Value;
                SubItems[3]:=Query.FieldByName('截止日期').Value;

                SubItems[4]:=sState;
                SubItems[5]:=Query.FieldByName('审核').Value;
                SubItems[6]:=query.fieldbyname('审核人').Value;
                SubItems[7]:=floattostr(d1);
                SubItems[8]:=Query.FieldByName('操作员').Value;

                SubItems[9]:=Query.FieldByName('修订').Value;
                SubItems[10]:=Query.FieldByName('审核日期').Value;
            end;
       end;
       query.close;
       query.free;
       query1.close;
       query1.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+'客户电话,身份证号,备注,操作员,修订,审核,审核日期,审核人) values (:s1,:s2,:s3,:s4,:s5,';
       s:=s+':s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13)';

       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:=Edit8.Text;
       Query.Parameters.ParamByName('s10').Value:=Edit9.Text;
       Query.Parameters.ParamByName('s11').Value:='N';
       Query.Parameters.ParamByName('s12').Value:='1980-01-01';
       Query.Parameters.ParamByName('s13').Value:='未审核';
       DataModuleADO.ADOConnection1.BeginTrans;
       Query.execsql;
       DataModuleADO.ADOConnection1.CommitTrans;

       if listview1.Items.Count>0 then
       begin
           for i:=0 to listview1.Items.Count-1 do
           begin
               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:=EditID.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:=strtofloat(listview1.Items.Item[i].SubItems[2]);

               query.Parameters.ParamByName('s6').Value:=strtofloat(listview1.Items.Item[i].SubItems[3]);

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

       showMessage('保存成功!');

       query.SQL.Clear;
       Query.SQL.Add('select * from 代租合同 where 单号='''+editID.Text+'''');
       Query.Open ;
       if query.RecordCount>0 then
       begin
           d1:=0.00;

           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_RealtyE42.ListView1.Items.Add do
           begin
              Caption:=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(sState);
              SubItems.Add(Query.FieldByName('审核').Value);
              SubItems.Add(query.fieldbyname('审核人').Value);
              SubItems.Add(floattostr(d1));
              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;

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

       listview1.Items.Clear;
   end;





end;

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

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

end.