realtya111.pas

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

    tmpNode:TTreeNode;
begin
    if edit1.Text='' then
    begin
         showmessage('请输入编号!');
         edit1.SetFocus;
         exit;
    end;

    if edit2.Text='' then
    begin
         showmessage('请输入名称!');
         edit2.SetFocus;
         exit;
    end;
    if edit18.Text='' then
    begin
         showmessage('请输入管理处!');
         edit18.SetFocus;
         exit;
    end;

    s1:=edit4.Text;
    s2:=edit5.Text;
    if edit3.Text='' then edit3.Text:='-';
    if edit4.Text='' then s1:='-';
    if edit5.Text='' then s2:='-';
    if edit9.Text='' then edit9.Text:='-';
    if edit10.Text='' then edit10.Text:='-';
    if edit11.Text='' then edit11.Text:='-';
    if edit12.Text='' then edit12.Text:='-';
    if edit13.Text='' then edit13.Text:='-';
    if edit14.Text='' then edit14.Text:='-';
    if edit15.Text='' then edit15.Text:='-';
    if edit17.Text='' then edit17.Text:='-';


    edit9.Text:=mainform.StdDou2(edit9.Text);
    edit10.Text:=mainform.StdDou2(edit10.Text);
    edit11.Text:=mainform.StdDou2(edit11.Text);
    edit12.Text:=mainform.StdDou2(edit12.Text);
    edit13.Text:=mainform.StdDou2(edit13.Text);
    edit14.Text:=mainform.StdDou2(edit14.Text);
    edit15.Text:=mainform.StdDou2(edit15.Text);
    edit16.Text:=mainform.StdDou2(edit16.Text);


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


    if f_RealtyA11.bMod=false then
    begin
        s:='select * from  管理区 where 编号='''+Edit1.Text;
        s:=s+'''';

        query.SQL.Add(s);
        query.Open;
        if query.RecordCount>0 then
        begin
            showmessage('编号重复!,请重新输入!');
            edit1.SetFocus;
            exit;
        end;

        s:='insert into  管理区(编号,名称,管理处,地址,开发商,承建商,';
        s:=s+'竣工日期,入伙日期,开工日期,总占地面积,总建筑面积,总使用面积,';
        s:=s+'容积率,绿化率,覆盖率,道路面积,公共场所面积,';
        s:=s+'说明)';
        s:=s+' Values(:s1,:s2,:s3,:s18,:s4,:s5,';
        s:=s+':s6,:s7,:s8,:s9,:s10,';
        s:=s+':s11,:s12,:s13,:s14,:s15,';
        s:=s+':s16,:s17)';

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

        query.Parameters.ParamByName('s1').Value:=edit1.Text;
        query.Parameters.ParamByName('s2').Value:=edit2.Text;
        query.Parameters.ParamByName('s3').Value:=mainform.getNum(Edit18.Text);
        query.Parameters.ParamByName('s18').Value:=edit3.Text;
        query.Parameters.ParamByName('s4').Value:=s1;
        query.Parameters.ParamByName('s5').Value:=s2;
        query.Parameters.ParamByName('s6').Value:=datetostr(edit6.date);
        query.Parameters.ParamByName('s7').Value:=datetostr(edit7.date);
        query.Parameters.ParamByName('s8').Value:=datetostr(edit8.date);
        query.Parameters.ParamByName('s9').Value:=edit9.Text;
        query.Parameters.ParamByName('s10').Value:=edit10.Text;
        query.Parameters.ParamByName('s11').Value:=edit11.Text;
        query.Parameters.ParamByName('s12').Value:=edit12.Text;
        query.Parameters.ParamByName('s13').Value:=edit13.Text;
        query.Parameters.ParamByName('s14').Value:=edit14.Text;
        query.Parameters.ParamByName('s15').Value:=edit15.Text;
        query.Parameters.ParamByName('s16').Value:=edit16.Text;
        query.Parameters.ParamByName('s17').Value:=edit17.Text;

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


        s:='select * from  管理区 where 编号='''+Edit1.Text;
        s:=s+'''';

        query.sql.clear;
        query.sql.add(s);
        query.Open;
        if query.RecordCount>0 then
        begin
             with f_RealtyA11.ListView1.Items.Add do
             begin
                  Caption:=Query.FieldByName('编号').Value;
                  SubItems.Add(Query.FieldByName('名称').Value);
                  SubItems.Add(Query.FieldByName('地址').Value);
                  Subitems.Add(mainform.getLastName(Edit18.Text));
                  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);
                  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;
        
        GetId;

        Edit2.Text := '';
        Edit3.Text := '';
        edit4.ItemIndex:=Edit4.Items.IndexOf('');
        edit5.ItemIndex:=Edit5.Items.IndexOf('');
        Edit4.Text := '';
        Edit5.Text := '';
        Edit6.date := date;
        Edit7.date := date;
        Edit8.date := date;
        Edit9.Text := '';
        Edit10.Text := '';
        Edit11.Text := '';
        Edit12.Text := '';
        Edit13.Text := '';
        Edit14.Text := '';
        Edit15.Text := '';
        Edit16.Text := '';
        Edit17.Text := '';
        edit18.ItemIndex:=Edit18.Items.IndexOf('');

    end;



    if f_RealtyA11.bMod=true then
    begin
        if Edit1.Text<>f_RealtyA11.ListView1.Selected.Caption then
        begin
            s:='select * from  管理区 where 编号='''+Edit1.Text;
            s:=s+'''';

            query.SQL.Add(s);
            query.Open;
            if query.RecordCount>0 then
            begin
                showmessage('编号重复!,请重新输入!');
                edit1.SetFocus;
                exit;
            end;
        end;
          s:='update 管理区 set 编号='''+edit1.Text;
          s:=s+''',名称='''+edit2.Text;
          s:=s+''',管理处='''+mainform.getNum(Edit18.Text);
          s:=s+''',地址='''+edit3.Text;
          s:=s+''',开发商='''+s1;
          s:=s+''',承建商='''+s2;
          s:=s+''',开工日期='''+datetostr(edit6.date);
          s:=s+''',竣工日期='''+datetostr(edit7.Date);
          s:=s+''',入伙日期='''+datetostr(edit8.Date);
          s:=s+''',总占地面积='+edit9.Text;
          s:=s+',总建筑面积='+edit10.Text;
          s:=s+',总使用面积='+edit11.Text;
          s:=s+',容积率='+edit12.Text;
          s:=s+',绿化率='+edit13.Text;
          s:=s+',覆盖率='+edit14.Text;
          s:=s+',道路面积='+edit15.Text;
          s:=s+',公共场所面积='+edit16.Text;
          s:=s+',说明='''+edit17.Text;
          s:=s+''' where 编号='''+f_RealtyA11.ListView1.Selected.Caption;
          s:=s+'''';

          query.SQL.Clear;
          query.sql.Add(s);
          DataModuleADO.ADOConnection1.BeginTrans;
          query.ExecSQL;
          DataModuleADO.ADOConnection1.CommitTrans;

          s:='select * from  管理区 where 编号='''+Edit1.Text;
          s:=s+'''';

          query.sql.clear;
          query.sql.add(s);
          query.Open;
          if query.RecordCount>0 then
          begin
              with f_RealtyA11.ListView1.Selected do
              begin
                  Caption:=query.fieldbyname('编号').Value;
                  SubItems[0]:=query.fieldbyname('名称').Value;
                  SubItems[1]:=query.fieldbyname('地址').Value;
                  SubItems[2]:=mainform.getLastName(Edit18.Text);
                  SubItems[3]:=query.fieldbyname('开发商').Value;
                  SubItems[4]:=query.fieldbyname('承建商').Value;
                  SubItems[5]:=query.fieldbyname('开工日期').Value;
                  SubItems[6]:=query.fieldbyname('竣工日期').Value;
                  SubItems[7]:=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;
                  SubItems[15]:=query.fieldbyname('公共场所面积').Value;
                  SubItems[16]:=query.fieldbyname('说明').Value;
              end;
          end;

          query.close;
          query.Free;

          close;
    end;

end;

procedure Tf_RealtyA111.ToolButton5Click(Sender: TObject);
begin
    close;
end;

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

end.