searchbysellfm.pas.~10~

一款房产中介软件

      open;
      StaticText18.Caption :=
         FloatToStr(fieldbyname('SUM1').AsFloat + fieldbyname('SUM2').AsFloat);
      sql.Text := 'select sum(预定总价) as sum1 from 单元预定表 where ' +
         wstr1;
      open;
      StaticText19.Caption := fieldbyname('SUM1').Text;
      sql.Text := 'select sum(预留总价) as sum1 from 单元预留表 where ' +
         wstr1;
      open;
      StaticText20.Caption := fieldbyname('SUM1').Text;

      sql.Text := 'select sum(补差价) as sum1 from 单元拆迁还建表 where ' +
         wstr1;
      open;
      StaticText21.Caption := fieldbyname('SUM1').Text;
      sql.Text := 'select sum(待售总价) as sum1 from 单元未售表 where ' +
         wstr1 + ' and 最后定价=TRUE';
      open;
      StaticText22.Caption := fieldbyname('SUM1').Text;
      StaticText38.Caption := FloatToStr(
         STRTOFLOATDEF(StaticText16.Caption, 0) +
         STRTOFLOATDEF(StaticText21.Caption, 0));
//销售金额完毕
      sql.Text :=
         'select sum(已收款) as sum1,sum(未收款) as sum2 from 单元预售表 where ' +
         wstr1;
      open;
      StaticText23.Caption := fieldbyname('SUM1').Text;
      StaticText30.Caption := fieldbyname('SUM2').Text;
      sql.Text :=
         'select sum(已收款) as sum1,sum(未收款) as sum2 from 单元拆迁还建表 where ' +
         wstr1;
      open;
      StaticText28.Caption := fieldbyname('SUM1').Text;
      StaticText35.Caption := fieldbyname('SUM2').Text;
      sql.Text :=
         'select sum(已交租金) as sum1,sum(未交租金) as sum2 from 单元租赁表 where ' +
         wstr1;
      open;
      StaticText25.Caption := fieldbyname('SUM1').Text;
      StaticText32.Caption := fieldbyname('SUM2').Text;

      StaticText39.Caption := FloatToStr(
         STRTOFLOATDEF(StaticText23.Caption, 0) +
         STRTOFLOATDEF(StaticText25.Caption, 0) +
         STRTOFLOATDEF(StaticText28.Caption, 0));
      StaticText40.Caption := FloatToStr(
         STRTOFLOATDEF(StaticText30.Caption, 0) +
         STRTOFLOATDEF(StaticText32.Caption, 0) +
         STRTOFLOATDEF(StaticText35.Caption, 0));
      Free;
   End;

End;

Procedure TfrmSearchBySell.LbButton1Click(Sender: TObject);
Begin
   SaveDBGridEhToFile(ADOQuery4, DBGridEh4, SaveDialog1);
End;

Procedure TfrmSearchBySell.GetRecByTypestr(stype: String);
Var
   SQLTEXT          : String;
Begin
   If stype = '预(销)售' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
         'inner join (单元预售表 b ' +
         'inner join 客户信息表 c on b.客户编号=c.客户编号)' +
         'on (a.公司编号=b.公司编号 '

   Else If stype = '拆迁还建' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
         'inner join (单元拆迁还建表 b ' +
         'inner join 客户信息表 c on b.客户编号=c.客户编号)' +
         ' on (a.公司编号=b.公司编号 '

   Else If stype = '未售' Then
      SQLTEXT :=
         'SELECT a.*,b.* FROM 单元信息表 a ' +
         'inner join 单元未售表 b ' +
         ' on (a.公司编号=b.公司编号 and 最后定价=TRUE '

   Else If stype = '抵押' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
         'inner join (单元抵押表 b ' +
         'inner join 客户信息表 c on b.客户编号=c.客户编号) ' +
         'on (a.公司编号=b.公司编号 '

   Else If stype = '租赁' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
         'inner join (单元租赁表 b ' +
         'inner join 租户信息表 c on b.出租户编号=c.出租户编号) ' +
         'on (a.公司编号=b.公司编号 and B.最后租房=TRUE '

   Else If stype = '预定' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
         'inner join (单元预定表 b ' +
         'inner join 客户信息表 c on b.客户编号=c.客户编号) ' +
         'on (a.公司编号=b.公司编号 '

   Else If stype = '预留' Then
      SQLTEXT :=
         'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
         'inner join (单元预留表 b ' +
         'inner join 客户信息表 c on b.客户编号=c.客户编号) ' +
         'on (a.公司编号=b.公司编号 ';

   If Not CheckBox1.Checked Then
      SQLTEXT := SQLTEXT + ' and a.幢号=''' +
         ADOQuery3.fieldbyname('幢号').Text + '''';

   SQLTEXT := SQLTEXT +
      ') where a.房号=b.房号 and a.幢号=b.幢号 and a.项目编号=b.项目编号 and b.是否过期=false';
   ADOQuery4.sql.Text := SQLTEXT;

   ADOQuery4.open;

   DBGridEh4.FindColumn('是否过期').Visible := false;
   DBGridEh4.FindColumn('过期日期').Visible := false;
End;

Procedure TfrmSearchBySell.LbButton2Click(Sender: TObject);
Begin
  { If (ADOQuery4.Active = false) Then Exit;
   If (ADOQuery4.recordcount = 0) Then Exit;
   GetReportFile1;
   Case TLbButton(Sender).tag Of
      100: AcReport1.Preview;
      101: AcReport1.Print;
   End;  }
End;

Procedure TfrmSearchBySell.LbButton4Click(Sender: TObject);
Begin
 {  GetReportFile2;
   Case TLbButton(Sender).tag Of
      200: AcReport2.Preview;
      201: AcReport2.Print;
   End;   }
End;

Procedure TfrmSearchBySell.GetReportFile2();
Begin

  { AcReport2.LoadFromFile(DM.CURRDIR + 'Collect.APT');
   AcReport2.Variants.Clear;
   AcReport2.Variants.SetVariant('条件', '无');
   AcReport2.Variants.SetVariant('条件描述', '无');
   AcReport2.Variants.SetVariant('幢号', ADOQuery3.fieldbyname('幢号').Text);
   If CheckBox1.Checked Then
      AcReport2.Variants.SetVariant('幢号', '整个项目');

   AcReport2.Variants.SetVariant('预销售面积', StaticText2.Caption);
   AcReport2.Variants.SetVariant('拆迁还建面积', StaticText7.Caption);
   AcReport2.Variants.SetVariant('抵押面积', StaticText3.Caption);
   AcReport2.Variants.SetVariant('租赁面积', StaticText4.Caption);
   AcReport2.Variants.SetVariant('未售面积', StaticText8.Caption);
   AcReport2.Variants.SetVariant('预定面积', StaticText5.Caption);
   AcReport2.Variants.SetVariant('预留面积', StaticText6.Caption);
   AcReport2.Variants.SetVariant('总面积', StaticText1.Caption);

   AcReport2.Variants.SetVariant('预销售套数', StaticText9.Caption);
   AcReport2.Variants.SetVariant('拆迁还建套数', StaticText14.Caption);
   AcReport2.Variants.SetVariant('抵押套数', StaticText10.Caption);
   AcReport2.Variants.SetVariant('租赁套数', StaticText11.Caption);
   AcReport2.Variants.SetVariant('未售套数', StaticText15.Caption);
   AcReport2.Variants.SetVariant('预定套数', StaticText12.Caption);
   AcReport2.Variants.SetVariant('预留套数', StaticText13.Caption);
   AcReport2.Variants.SetVariant('总套数', StaticText37.Caption);

   AcReport2.Variants.SetVariant('预销售总额', StaticText16.Caption);
   AcReport2.Variants.SetVariant('拆迁还建总额', StaticText21.Caption);
   AcReport2.Variants.SetVariant('抵押总额', StaticText17.Caption);
   AcReport2.Variants.SetVariant('租赁总额', StaticText18.Caption);
   AcReport2.Variants.SetVariant('未售总额', StaticText22.Caption);
   AcReport2.Variants.SetVariant('预定总额', StaticText19.Caption);
   AcReport2.Variants.SetVariant('预留总额', StaticText20.Caption);
   AcReport2.Variants.SetVariant('总额', StaticText38.Caption);

   AcReport2.Variants.SetVariant('预销售已收款', StaticText23.Caption);
   AcReport2.Variants.SetVariant('拆迁还建已收款', StaticText28.Caption);
   AcReport2.Variants.SetVariant('租赁已收款', StaticText25.Caption);
   AcReport2.Variants.SetVariant('已收款总额', StaticText39.Caption);

   AcReport2.Variants.SetVariant('预销售未收款', StaticText30.Caption);
   AcReport2.Variants.SetVariant('拆迁还建未收款', StaticText35.Caption);
   AcReport2.Variants.SetVariant('租赁未收款', StaticText32.Caption);
   AcReport2.Variants.SetVariant('未收款总额', StaticText40.Caption);
    }
End;

Procedure TfrmSearchBySell.GetReportFile1;
Var
   stype            : String;
Begin
{   stype := combobox1.Text;
   If stype = '预(销)售' Then Begin
      AcReport1.Variants.Clear;
      AcReport1.Variants.SetVariant('预销售面积', StaticText2.Caption);
      AcReport1.Variants.SetVariant('预销售套数', StaticText9.Caption);
      AcReport1.Variants.SetVariant('预销售总额', StaticText16.Caption);
      AcReport1.Variants.SetVariant('预销售已收款', StaticText23.Caption);
      AcReport1.Variants.SetVariant('预销售未收款', StaticText30.Caption);
      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_YXS.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_YXS.APT');

   End Else If stype = '拆迁还建' Then Begin
      AcReport1.Variants.SetVariant('拆迁还建面积', StaticText7.Caption);
      AcReport1.Variants.SetVariant('拆迁还建套数', StaticText14.Caption);
      AcReport1.Variants.SetVariant('拆迁还建总额', StaticText21.Caption);
      AcReport1.Variants.SetVariant('拆迁还建已收款', StaticText28.Caption);
      AcReport1.Variants.SetVariant('拆迁还建未收款', StaticText35.Caption);

      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_CQHJ.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_CQHJ.APT');

   End Else If stype = '未售' Then Begin
      AcReport1.Variants.SetVariant('未售面积', StaticText8.Caption);
      AcReport1.Variants.SetVariant('未售套数', StaticText15.Caption);
      AcReport1.Variants.SetVariant('未售总额', StaticText22.Caption);
      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_DS.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_DS.APT');

   End Else If stype = '抵押' Then Begin
      AcReport1.Variants.SetVariant('抵押面积', StaticText3.Caption);
      AcReport1.Variants.SetVariant('抵押套数', StaticText10.Caption);
      AcReport1.Variants.SetVariant('抵押总额', StaticText17.Caption);

      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_DY.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_DY.APT');

   End Else If stype = '租赁' Then Begin
      AcReport1.Variants.SetVariant('租赁面积', StaticText4.Caption);
      AcReport1.Variants.SetVariant('租赁套数', StaticText11.Caption);
      AcReport1.Variants.SetVariant('租赁总额', StaticText18.Caption);
      AcReport1.Variants.SetVariant('租赁已收款', StaticText25.Caption);
      AcReport1.Variants.SetVariant('租赁未收款', StaticText32.Caption);

      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_ZL.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_ZL.APT');

   End Else If stype = '预定' Then Begin
      AcReport1.Variants.SetVariant('预定面积', StaticText5.Caption);
      AcReport1.Variants.SetVariant('预定套数', StaticText12.Caption);
      AcReport2.Variants.SetVariant('预定总额', StaticText19.Caption);
      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_YD.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_YD.APT');

   End Else If stype = '预留' Then Begin
      AcReport1.Variants.SetVariant('预留面积', StaticText6.Caption);
      AcReport1.Variants.SetVariant('预留套数', StaticText13.Caption);
      AcReport1.Variants.SetVariant('预留总额', StaticText20.Caption);
      If Not CheckBox2.Checked Then
         AcReport1.LoadFromFile(DM.CURRDIR + 'XMXSB_YL.APT')
      Else
         AcReport1.LoadFromFile(DM.CURRDIR + 'NIL_XMXSB_YL.APT');

   End; }
End;

Procedure TfrmSearchBySell.DBGridEh4DblClick(Sender: TObject);
Begin

   If ADOQuery4.Active = false Then Exit;
   If ADOQuery4.recordcount = 0 Then Exit;
   frmViewUnit := TfrmViewUnit.create(self);
   frmViewUnit.Show;
   Application.ProcessMessages;
   frmViewUnit.ADOQuery1.RecNo := self.ADOQuery1.RecNo;
   frmViewUnit.DBGridEh1CellClick(frmViewUnit.DBGridEH1.Columns.Items[0]);
   frmViewUnit.ADOQuery2.RecNo := self.ADOQuery2.RecNo;
   frmViewUnit.DBGridEh2CellClick(frmViewUnit.DBGridEh2.Columns.Items[0]);
   frmViewUnit.ADOQuery3.RecNo := self.ADOQuery3.RecNo;
   frmViewUnit.ADOQuery4.sql.Text :=
      'SELECT * FROM 单元信息表 WHERE 公司编号=''' +
      frmViewUnit.ADOQuery1.fieldbyname('公司编号').Text +
      ''' and 项目编号=''' +
      frmViewUnit.ADOQuery2.fieldbyname('项目编号').Text + ''' and 幢号='''
      +
      frmViewUnit.ADOQuery3.fieldbyname('幢号').Text + ''' AND 房号=''' +
      ADOQuery4.fieldbyname('a.房号').Text + '''';
   frmViewUnit.ADOQuery4.open;

   frmViewUnit.DBGridEh4CellClick(frmViewUnit.DBGridEh4.Columns.Items[0]);
   frmViewUnit.LbSpeedButton2.click;
End;

Procedure TfrmSearchBySell.ClearSTEXT;
Var
   i                : integer;
Begin
   For i := 0 To ComponentCount - 1 Do
      If (components[i] Is TStaticText) Then
         (components[i] As TStaticText).Caption := '';
   StaticText41.Caption := '面积单位：平方米。金额单元：元';

End;

End.