searchbyhoursefm.pas.~3~

一款房产中介软件

Unit SearchByHourseFM;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, DBGrids, StdCtrls, Buttons, DB,
   ADODB, Grids, DBGridEh, ExtCtrls, GridsEh, LbButton;

Type
   TfrmSearchByHourse = Class(TForm)
      Panel1: TPanel;
      Splitter3: TSplitter;
      Splitter2: TSplitter;
      Splitter4: TSplitter;
      DBGridEH1: TDBGridEh;
      DBGridEh2: TDBGridEh;
      DBGridEh3: TDBGridEh;
      AALabel1: TLabel;
      DataSource1: TDataSource;
      ADOQuery1: TADOQuery;
      DataSource2: TDataSource;
      ADOQuery2: TADOQuery;
      DataSource3: TDataSource;
      ADOQuery3: TADOQuery;
      Splitter1: TSplitter;
      Panel2: TPanel;
      Panel3: TPanel;
      DBGrid1: TDBGrid;
      DBGridEh4: TDBGridEh;
      Panel4: TPanel;
      LbSpeedButton2: TSpeedButton;
      LbSpeedButton1: TSpeedButton;
      SaveDialog1: TSaveDialog;
  //    AcReport1: TAcReport;
      ADOQuery4: TADOQuery;
      DataSource4: TDataSource;
      LbButton1: TButton;
      LbButton2: TButton;
      LbButton3: TButton;
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure LbSpeedButton2Click(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure DBGridEh1CellClick(Column: TColumnEh);
      Procedure DBGridEh2CellClick(Column: TColumnEh);
      Procedure LbSpeedButton1Click(Sender: TObject);
      Procedure LbButton1Click(Sender: TObject);
      Procedure LbButton2Click(Sender: TObject);
      Procedure LbButton3Click(Sender: TObject);
      Procedure DBGridEh3CellClick(Column: TColumnEh);
      Procedure ADOQuery1AfterScroll(DataSet: TDataSet);
      Procedure ADOQuery2AfterScroll(DataSet: TDataSet);
      Procedure ADOQuery3AfterScroll(DataSet: TDataSet);
      Procedure DBGridEh4DblClick(Sender: TObject);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   frmSearchByHourse: TfrmSearchByHourse;

Implementation
Uses MainDM, MainFM, ViewUnitFM, PUBFunction;
{$R *.dfm}

Procedure TfrmSearchByHourse.FormClose(Sender: TObject;
   Var Action: TCloseAction);
Begin
   Action := cafree;
   frmSearchByHourse := Nil;
End;

Procedure TfrmSearchByHourse.LbSpeedButton2Click(Sender: TObject);
Begin
   Close;
End;

Procedure TfrmSearchByHourse.FormCreate(Sender: TObject);
Begin
   ADOQuery1.Active := true;
   If ADOQuery1.recordcount > 0 Then
      DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;

Procedure TfrmSearchByHourse.DBGridEh1CellClick(Column: TColumnEh);
Begin
   With ADOQuery2 Do Begin
      sql.Text :=
         'select * FROM 项目信息表 WHERE 公司编号=''' +
         ADOQuery1.fieldbyname('公司编号').Text + '''';
      open;

   End;
   DBGridEh2CellClick(DBGridEh2.Columns.Items[0]);
End;

Procedure TfrmSearchByHourse.DBGridEh2CellClick(Column: TColumnEh);
Begin
   With ADOQuery3 Do Begin
      sql.Text :=
         'SELECT * from 单体信息表 WHERE 公司编号=''' +
         ADOQuery1.fieldbyname('公司编号').Text + ''' and 项目编号=''' +
         ADOQuery2.fieldbyname('项目编号').Text + '''';
      open;
      DBGridEh3CellClick(DBGridEh3.Columns.Items[0]);
   End;
End;

Procedure TfrmSearchByHourse.LbSpeedButton1Click(Sender: TObject);

Begin
   With ADOQuery4 Do Begin
      Close;

      sql.Text :=
         'select 单元信息表.幢号,房号,单元信息表.合同约定建筑面积 as 建筑面积,' +
         '合同约定套内面积 as 套内面积,合同约定分摊面积 as 分摊面积,' +
         '单元信息表.总层数, 所在楼层,用途,不可销售房屋状态 AS 房屋性质,' +
         '单体信息表.建筑结构 AS 结构,销售类型  from 单元信息表,单体信息表 ' +
         ' where ' +
         '单元信息表.公司编号=''' + ADOQuery1.fieldbyname('公司编号').Text +
         ''' AND 单元信息表.项目编号=''' + ADOQuery2.fieldbyname('项目编号').Text
         +
         ''' AND 单元信息表.幢号=''' + ADOQuery3.fieldbyname('幢号').Text +
         ''' AND 单体信息表.公司编号=''' + ADOQuery1.fieldbyname('公司编号').Text
         +
         ''' AND 单体信息表.项目编号=''' + ADOQuery2.fieldbyname('项目编号').Text
         +
         ''' AND 单体信息表.幢号=''' + ADOQuery3.fieldbyname('幢号').Text +
         '''';
      open;

   End;

End;

Procedure TfrmSearchByHourse.LbButton1Click(Sender: TObject);

Begin
   SaveDBGridEhToFile(ADOQuery4, DBGridEh4, SaveDialog1);

End;

Procedure TfrmSearchByHourse.LbButton2Click(Sender: TObject);
Begin
//   If (Not ADOQuery4.Active) Or
//      (ADOQuery4.recordcount = 0) Then Exit;
//   AcReport1.LoadFromFile(CURRDIR + '\ItemSearch.apt');
//   AcReport1.Preview;
End;

Procedure TfrmSearchByHourse.LbButton3Click(Sender: TObject);
Begin
//   If (Not ADOQuery4.Active) Or
//      (ADOQuery4.recordcount = 0) Then Exit;
//   AcReport1.LoadFromFile(CURRDIR + '\ItemSearch.apt');
//   AcReport1.Print;
End;

Procedure TfrmSearchByHourse.DBGridEh3CellClick(Column: TColumnEh);
Begin
   LbSpeedButton1.click;
End;

Procedure TfrmSearchByHourse.ADOQuery1AfterScroll(DataSet: TDataSet);
Begin
   DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;

Procedure TfrmSearchByHourse.ADOQuery2AfterScroll(DataSet: TDataSet);
Begin
   DBGridEh2CellClick(DBGridEh2.Columns.Items[0]);
End;

Procedure TfrmSearchByHourse.ADOQuery3AfterScroll(DataSet: TDataSet);
Begin
   DBGridEh3CellClick(DBGridEh3.Columns.Items[0]);
End;

Procedure TfrmSearchByHourse.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 := frmSearchByHourse.ADOQuery1.RecNo;
   frmViewUnit.DBGridEh1CellClick(frmViewUnit.DBGridEH1.Columns.Items[0]);
   frmViewUnit.ADOQuery2.RecNo := frmSearchByHourse.ADOQuery2.RecNo;
   frmViewUnit.DBGridEh2CellClick(frmViewUnit.DBGridEh2.Columns.Items[0]);
   frmViewUnit.ADOQuery3.RecNo := frmSearchByHourse.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('房号').Text + '''';
   frmViewUnit.ADOQuery4.open;

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

End;

End.