📄 searchbytimefm.pas.~11~

📁 一款房产中介软件
💻 ~11~
📖 第 1 页 / 共 5 页
字号:
            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.公司编号) 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.公司编号) 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.公司编号) where ' + wstr2;
         open;
         StaticText25.Caption := fieldbyname('SUM1').Text;
         StaticText32.Caption := fieldbyname('SUM2').Text;

      End Else If TabSheet2.Showing Then Begin
         total := 0;
         sql.Text :=
            'SELECT sum(a.合同约定建筑面积) AS SUM1 FROM 单元信息表   a ' +
            ' INNER JOIN 单元预售表  b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            ' (b.签订合同日期 ' + WENDStr + ' and ' + wstr11;

         open;

         StaticText2.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;

         sql.Text :=
            'SELECT sum(a.合同约定建筑面积) AS SUM1 FROM 单元信息表   a ' +
            ' INNER JOIN 单元抵押表   b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            ' (b.抵押期限起始日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText3.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;

         sql.Text :=
            'SELECT sum(a.合同约定建筑面积) AS SUM1 FROM 单元信息表  a ' +
            ' INNER JOIN 单元租赁表  b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            ' b.最后租房=TRUE AND ' +
            ' (b.租赁登记日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText4.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         sql.Text :=
            'SELECT sum(a.合同约定建筑面积) AS SUM1 FROM 单元信息表  a ' +
            ' INNER JOIN 单元预定表   b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            ' (b.认购书签订日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText5.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         sql.Text :=
            'SELECT sum(a.合同约定建筑面积) AS SUM1 FROM 单元信息表   a ' +
            ' INNER JOIN 单元预留表   b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            ' (b.预留起始日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText6.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         sql.Text :=
            'SELECT sum(a.合同约定建筑面积) AS SUM1 FROM 单元信息表   a ' +
            ' INNER JOIN 单元拆迁还建表  b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            ' (b.签订合同日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText7.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         sql.Text :=
            'SELECT sum(a.合同约定建筑面积) AS SUM1 FROM 单元信息表   a ' +
            ' INNER JOIN 单元未售表   b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            ' B.最后定价=TRUE AND ' +
            ' (b.待售起始日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText8.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         StaticText1.Caption := FloatToStr(total);
 //面积 完毕
         total := 0;
         sql.Text :=
            'SELECT count(a.合同约定建筑面积) AS SUM1 FROM 单元信息表  a ' +
            ' INNER JOIN 单元预售表  b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            ' (b.签订合同日期 ' + WENDStr + ' and ' + wstr11;

         open;

         StaticText9.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton8.Enabled := fieldbyname('sum1').AsFloat > 0;
         sql.Text :=
            'SELECT count(a.合同约定建筑面积) AS SUM1 FROM 单元信息表  a ' +
            ' INNER JOIN 单元抵押表  b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            ' (b.抵押期限起始日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText10.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton9.Enabled := fieldbyname('sum1').AsFloat > 0;
         sql.Text :=
            'SELECT count(a.合同约定建筑面积) AS SUM1 FROM 单元信息表 a ' +
            ' INNER JOIN 单元租赁表  b ' +
            ' ON (a.公司编号=b.公司编号) WHERE ' + wstr2 + ' AND ' +
            '  b.最后租房=TRUE AND ' +
            ' (b.租赁登记日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText11.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton10.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'SELECT count(a.合同约定建筑面积) AS SUM1 FROM 单元信息表  a ' +
            ' INNER JOIN 单元预定表   b ' +
            ' ON a.公司编号=b.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.认购书签订日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText12.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton11.Enabled := fieldbyname('sum1').AsFloat > 0;
         sql.Text :=
            'SELECT count(a.合同约定建筑面积) AS SUM1 FROM 单元信息表 a ' +
            ' INNER JOIN 单元预留表   b ' +
            ' ON a.公司编号=b.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.预留起始日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText13.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton12.Enabled := fieldbyname('sum1').AsFloat > 0;

         sql.Text :=
            'SELECT count(a.合同约定建筑面积) AS SUM1 FROM 单元信息表  a ' +
            ' INNER JOIN 单元拆迁还建表  b ' +
            ' ON a.公司编号=b.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.签订合同日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText14.Caption := fieldbyname('SUM1').Text;
         total := total + fieldbyname('SUM1').AsFloat;
         LbButton13.Enabled := fieldbyname('sum1').AsFloat > 0;
         sql.Text :=
            'SELECT count(a.合同约定建筑面积) AS SUM1 FROM 单元信息表  a ' +
            ' INNER JOIN 单元未售表  b ' +
            ' ON a.公司编号=b.公司编号 WHERE ' + wstr2 + ' AND ' +
            '  B.最后定价=TRUE AND ' +
            ' (b.待售起始日期 ' + WENDStr + ' and ' + wstr11;
         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.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.签订合同日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText16.Caption := fieldbyname('SUM1').Text;
         sql.Text :=
            'SELECT sum(B.抵押总价) AS SUM1 FROM 单元信息表  a ' +
            ' INNER JOIN 单元抵押表  b ' +
            ' ON a.公司编号=b.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.抵押期限起始日期 ' + WENDStr + ' and ' + wstr11;
         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.公司编号 WHERE ' + wstr2 + ' AND ' +
            '  b.最后租房=TRUE AND ' +
            ' (b.租赁登记日期 ' + WENDStr + ' and ' + wstr11;
         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.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.认购书签订日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText19.Caption := fieldbyname('SUM1').Text;
         sql.Text :=
            'SELECT sum(b.预留总价) AS SUM1 FROM 单元信息表   a ' +
            ' INNER JOIN 单元预留表   b ' +
            ' ON a.公司编号=b.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.预留起始日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText20.Caption := fieldbyname('SUM1').Text;
         sql.Text :=
            'SELECT sum(b.补差价) AS SUM1 FROM 单元信息表  a ' +
            ' INNER JOIN 单元拆迁还建表   b ' +
            ' ON a.公司编号=b.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.签订合同日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText21.Caption := fieldbyname('SUM1').Text;
         sql.Text :=
            'SELECT sum(b.待售总价) AS SUM1 FROM 单元信息表   a ' +
            ' INNER JOIN 单元未售表   b ' +
            ' ON a.公司编号=b.公司编号 WHERE ' + wstr2 + ' AND ' +
            '  B.最后定价=TRUE AND ' +
            ' (b.待售起始日期 ' + WENDStr + ' and ' + wstr11;
         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.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.签订合同日期 ' + WENDStr + ' and ' + wstr11;
         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.公司编号 WHERE ' + wstr2 + ' AND ' +
            ' (b.签订合同日期 ' + WENDStr + ' and ' + wstr11;
         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.公司编号 WHERE ' + wstr2 + ' AND ' +
            '  b.最后租房=TRUE AND ' +
            ' (b.租赁登记日期 ' + WENDStr + ' and ' + wstr11;
         open;
         StaticText25.Caption := fieldbyname('SUM1').Text;
         StaticText32.Caption := fieldbyname('SUM2').Text;
      End Else If TabSheet3.Showing Then Begin
         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;
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -