searchbytimefm.pas

一款房产中介软件

         sql.Text :=
            'select sum(合同约定建筑面积) as sum1 from 单元信息表 where ' +
            wstr1 + ' and 销售类型=''未售''' + ' and ' + WENDStr;
         open;
         StaticText8.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         StaticText1.Caption := FloatToStr(total);

   //面积完毕
     //
         total := 0;
         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            + wstr1 + ' and 销售类型=''预(销)售''' + ' AND ' + WENDStr;
         open;
         StaticText9.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton8.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            + wstr1 + ' and 销售类型=''抵押''' + ' AND ' + WENDStr;
         open;
         StaticText10.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton9.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            + wstr1 + ' and 销售类型=''租赁''' + ' AND ' + WENDStr;
         open;
         StaticText11.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton10.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            +
            wstr1 + ' and 销售类型=''预定''' + ' AND ' + WENDStr;
         open;
         StaticText12.Caption := fieldbyname('SUM1').Text;
         LbButton11.Enabled := fieldbyname('sum1').AsFloat > 0;
         total := total + fieldbyname('SUM1').AsFloat;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            +
            wstr1 + ' and 销售类型=''预留''' + ' AND ' + WENDStr;
         open;
         StaticText13.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton12.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            +
            wstr1 + ' and 销售类型=''拆迁还建''' + ' AND ' + WENDStr;
         open;
         StaticText14.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton13.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            +
            wstr1 + ' and 销售类型=''未售''' + ' AND ' + WENDStr;
         open;
         StaticText15.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton14.Enabled := fieldbyname('sum1').AsFloat > 0;

         StaticText37.Caption := FloatToStr(total);
    //套数完成
         sql.Text := 'SELECT sum(b.成交总价) AS SUM1 FROM 单元信息表 a ' +
            'inner join 单元预售表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText16.Caption := fieldbyname('SUM1').Text;
         sql.Text := 'SELECT sum(b.抵押贷款额) AS SUM1 FROM 单元信息表 a ' +
            'inner join 单元抵押表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText17.Caption := fieldbyname('SUM1').Text;

         sql.Text :=
            'SELECT sum(b.已交租金) AS SUM1,sum(b.未交租金) AS SUM2 FROM 单元信息表 a ' +
            'inner join 单元租赁表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText18.Caption := FloatToStr(fieldbyname('SUM1').AsFloat +
            fieldbyname('SUM2').AsFloat);

         sql.Text := 'SELECT sum(b.预定总价) AS SUM1 FROM 单元信息表 a ' +
            'inner join  单元预定表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText19.Caption := fieldbyname('SUM1').Text;
         sql.Text := 'SELECT sum(b.预留总价) AS SUM1 FROM 单元信息表 a ' +
            'inner join  单元预留表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText20.Caption := fieldbyname('SUM1').Text;

         sql.Text := 'SELECT sum(b.补差价) AS SUM1 FROM 单元信息表 a ' +
            'inner join  单元拆迁还建表 b  on (a.公司编号=b.公司编号 and ' + WENDStr
            +
            ') where ' + wstr2;
         open;
         StaticText21.Caption := fieldbyname('SUM1').Text;
         sql.Text := 'SELECT sum(b.待售总价) AS SUM1 FROM 单元信息表 a ' +
            'inner join  单元未售表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ' and b.最后定价=true) where ' + wstr2;
         open;
         StaticText22.Caption := fieldbyname('SUM1').Text;

//销售金额完毕

         sql.Text :=
            'SELECT sum(b.已收款) as sum1,sum(b.未收款) as sum2 FROM 单元信息表 a ' +
            'inner join 单元预售表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText23.Caption := fieldbyname('SUM1').Text;
         StaticText30.Caption := fieldbyname('SUM2').Text;

         sql.Text :=
            'SELECT sum(b.已收款) as sum1,sum(b.未收款) as sum2 FROM 单元信息表 a ' +
            'inner join  单元拆迁还建表 b  on (a.公司编号=b.公司编号 and ' + WENDStr
            +
            ') where ' + wstr2;
         open;
         StaticText28.Caption := fieldbyname('SUM1').Text;
         StaticText35.Caption := fieldbyname('SUM2').Text;

         sql.Text :=
            'SELECT sum(b.已交租金) as sum1,sum(b.未交租金) as sum2 FROM 单元信息表 a ' +
            'inner join  单元租赁表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText25.Caption := fieldbyname('SUM1').Text;
         StaticText32.Caption := fieldbyname('SUM2').Text;

      End Else If TabSheet4.Showing Then Begin
         total := 0;
         sql.Text :=
            'select sum(合同约定建筑面积) as sum1 from 单元信息表 where ' +
            wstr1 + ' and 销售类型=''预(销)售''' + ' and ' + WENDStr;
         open;
         StaticText2.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;

         sql.Text :=
            'select sum(合同约定建筑面积) as sum1 from 单元信息表 where ' +
            wstr1 + ' and 销售类型=''抵押''' + ' and ' + WENDStr;
         open;
         StaticText3.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         sql.Text :=
            'select sum(合同约定建筑面积) as sum1 from 单元信息表 where ' +
            wstr1 + ' and 销售类型=''租赁''' + ' and ' + WENDStr;
         open;

         StaticText4.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         sql.Text :=
            'select sum(合同约定建筑面积) as sum1 from 单元信息表 where ' +
            wstr1 + ' and 销售类型=''预定''' + ' and ' + WENDStr;
         open;
         StaticText5.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         sql.Text :=
            'select sum(合同约定建筑面积) as sum1 from 单元信息表 where ' +
            wstr1 + ' and 销售类型=''预留''' + ' and ' + WENDStr;
         open;
         StaticText6.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         sql.Text :=
            'select sum(合同约定建筑面积) as sum1 from 单元信息表 where ' +
            wstr1 + ' and 销售类型=''拆迁还建''' + ' and ' + WENDStr;
         open;
         StaticText7.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         sql.Text :=
            'select sum(合同约定建筑面积) as sum1 from 单元信息表 where ' +
            wstr1 + ' and 销售类型=''未售''' + ' and ' + WENDStr;
         open;
         StaticText8.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         StaticText1.Caption := FloatToStr(total);

   //面积完毕
     //
         total := 0;
         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            + wstr1 + ' and 销售类型=''预(销)售''' + ' AND ' + WENDStr;
         open;
         StaticText9.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton8.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            + wstr1 + ' and 销售类型=''抵押''' + ' AND ' + WENDStr;
         open;
         StaticText10.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton9.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            + wstr1 + ' and 销售类型=''租赁''' + ' AND ' + WENDStr;
         open;
         StaticText11.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton10.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            +
            wstr1 + ' and 销售类型=''预定''' + ' AND ' + WENDStr;
         open;
         StaticText12.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('sum1').AsFloat;
         LbButton11.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            +
            wstr1 + ' and 销售类型=''预留''' + ' AND ' + WENDStr;
         open;
         StaticText13.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton12.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            +
            wstr1 + ' and 销售类型=''拆迁还建''' + ' AND ' + WENDStr;
         open;
         StaticText14.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton13.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'select count(合同约定建筑面积) as sum1 from 单元信息表 where '
            +
            wstr1 + ' and 销售类型=''未售''' + ' AND ' + WENDStr;
         open;
         StaticText15.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton14.Enabled := fieldbyname('sum1').AsFloat > 0;

         StaticText37.Caption := FloatToStr(total);
    //套数完成
         sql.Text := 'SELECT sum(b.成交总价) AS SUM1 FROM 单元信息表 a ' +
            'inner join 单元预售表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText16.Caption := fieldbyname('SUM1').Text;
         sql.Text := 'SELECT sum(b.抵押贷款额) AS SUM1 FROM 单元信息表 a ' +
            'inner join 单元抵押表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText17.Caption := fieldbyname('SUM1').Text;

         sql.Text :=
            'SELECT sum(b.已交租金) AS SUM1,sum(b.未交租金) AS SUM2 FROM 单元信息表 a ' +
            'inner join 单元租赁表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText18.Caption := FloatToStr(fieldbyname('SUM1').AsFloat +
            fieldbyname('SUM2').AsFloat);

         sql.Text := 'SELECT sum(b.预定总价) AS SUM1 FROM 单元信息表 a ' +
            'inner join  单元预定表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText19.Caption := fieldbyname('SUM1').Text;
         sql.Text := 'SELECT sum(b.预留总价) AS SUM1 FROM 单元信息表 a ' +
            'inner join  单元预留表 b  on (a.公司编号=b.公司编号 and ' + WENDStr +
            ') where ' + wstr2;
         open;
         StaticText20.Caption := fieldbyname('SUM1').Text;

         sql.Text := 'SELECT sum(b.补差价) AS SUM1 FROM 单元信息表 a ' +
            'inner join  单元拆迁还建表 b  on (a.公司编号=b.公司编号 and ' + WENDStr
            +