searchbytimefm.pas.~5~

一款房产中介软件

            ' 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;
      ;

      StaticText38.Caption := FloatToStr(
         STRTOFLOATDEF(StaticText16.Caption, 0) +
         STRTOFLOATDEF(StaticText21.Caption, 0));
      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 TfrmSearchByTime.LbButton8Click(Sender: TObject);
Var
   SQLTEXT          : String;
   wOstr, wHstr, wstr2: String;

Begin
   If RadioButton1.Checked Then wOstr := ' 房屋是否抵押=TRUE ';
   If RadioButton2.Checked Then wOstr := ' 跃错层=TRUE ';
   If RadioButton3.Checked Then wOstr := ' 附属房产=TRUE ';
   wHstr := ' 户型=''' + Edit1.Text + '''';
   wstr2 := ') where a.房号=b.房号 and a.幢号=b.幢号 and a.项目编号=b.项目编号';

   LB8I := TLbButton(Sender).tag;

   Case TLbButton(Sender).tag Of
      1001: Begin
            SQLTEXT :=
               'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
               'inner join (单元预售表 b ' +
               'inner join 客户信息表 c on b.客户编号=c.客户编号)' +
               'on (a.公司编号=b.公司编号 ';
            If TabSheet2.Showing Then
               wstr2 := wstr2 + ' and (b.签订合同日期 ';

         End;
      1002: Begin                       //抵押
            SQLTEXT :=
               'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
               'inner join (单元抵押表 b ' +
               'inner join 客户信息表 c on b.客户编号=c.客户编号)' +
               'on (a.公司编号=b.公司编号 ';
            If TabSheet2.Showing Then
               wstr2 := wstr2 + ' and (b.抵押期限起始日期 ';
         End;
      1003: Begin                       //租赁
            SQLTEXT :=
               'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
               'inner join (单元租赁表 b ' +
               'inner join 租户信息表 c on b.出租户编号=c.出租户编号)' +
               'on (a.公司编号=b.公司编号  and B.最后租房=TRUE ';
            If TabSheet2.Showing Then
               wstr2 := wstr2 + ' and (b.租赁登记日期 ';

         End;
      1004: Begin                       //预定
            SQLTEXT :=
               'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
               'inner join (单元预定表 b ' +
               'inner join 客户信息表 c on b.客户编号=c.客户编号)' +
               'on (a.公司编号=b.公司编号 ';
            If TabSheet2.Showing Then
               wstr2 := wstr2 + ' and (b.认购书签订日期 ';

         End;

      1005: Begin                       //预留
            SQLTEXT :=
               'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
               'inner join (单元预留表 b ' +
               'inner join 客户信息表 c on b.客户编号=c.客户编号)' +
               'on (a.公司编号=b.公司编号 ';
            If TabSheet2.Showing Then
               wstr2 := wstr2 + ' and (b.预留起始日期 ';

         End;
      1006: Begin                       //拆迁
            SQLTEXT :=
               'SELECT a.*,b.*,c.* FROM 单元信息表 a ' +
               'inner join (单元拆迁还建表 b ' +
               'inner join 客户信息表 c on b.客户编号=c.客户编号)' +
               'on (a.公司编号=b.公司编号 ';
            If TabSheet2.Showing Then
               wstr2 := wstr2 + ' and (b.签订合同日期 ';
         End;
      1007: Begin                       //未售
            SQLTEXT :=
               'SELECT a.*,b.*  FROM 单元信息表 a ' +
               'inner join 单元未售表 b ' +
               'on (a.公司编号=b.公司编号  and B.最后定价=TRUE ';
            If TabSheet2.Showing Then
               wstr2 := wstr2 + ' and (b.待售起始日期 ';
         End;
   End;

   If Not CheckBox1.Checked Then
      SQLTEXT := SQLTEXT + ' and a.幢号=''' +
         ADOQuery3.fieldbyname('幢号').Text + '''';
   If TabSheet1.Showing Then
      SQLTEXT := SQLTEXT + wstr2 + ' and  A.用途=''' + ComboBox4.Text + ''''
   Else If TabSheet2.Showing Then
      SQLTEXT := SQLTEXT + wstr2 + ' between #' + DBDateTimeEditEh1.Text +
         '# and #' + DBDateTimeEditEh2.Text + '#)'
   Else If TabSheet3.Showing Then
      SQLTEXT := SQLTEXT + wstr2 + ' AND ' + wOstr
   Else If TabSheet4.Showing Then
      SQLTEXT := SQLTEXT + wstr2 + ' AND ' + wHstr;
   SQLTEXT := SQLTEXT + ' and b.是否过期=FALSE ';
   ADOQuery4.sql.Text := SQLTEXT;
   ADOQuery4.open;
   DBGridEh4.FindColumn('是否过期').Visible := false;
   DBGridEh4.FindColumn('过期日期').Visible := false;

End;

Procedure TfrmSearchByTime.GetReportFile1(LB8Index: integer);
Begin
{
   AcReport1.Variants.Clear;
   If LB8Index = 1001 Then Begin

      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;
   If LB8Index = 1006 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;
   If LB8Index = 1007 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;
   If LB8Index = 1002 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;
   If LB8Index = 1003 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;
   If LB8Index = 1004 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;
   If LB8Index = 1005 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 TfrmSearchByTime.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;

Procedure TfrmSearchByTime.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 := frmSearchByTime.ADOQuery1.RecNo;
   frmViewUnit.DBGridEh1CellClick(frmViewUnit.DBGridEH1.Columns.Items[0]);
   frmViewUnit.ADOQuery2.RecNo := frmSearchByTime.ADOQuery2.RecNo;
   frmViewUnit.DBGridEh2CellClick(frmViewUnit.DBGridEh2.Columns.Items[0]);
   frmViewUnit.ADOQuery3.RecNo := frmSearchByTime.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.SpeedButton2.click;
End;

Procedure TfrmSearchByTime.ComboBox1Change(Sender: TObject);
Begin
   Edit1.Text := combobox1.Text + '房' + ComboBox2.Text + '厅' +
      ComboBox3.Text + '卫';
End;

End.