Unit SearchByHourseUnit;

Interface

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

Type
   TSearchByHourseForm = Class(TForm)
      Panel1: TPanel;
      Splitter3: TSplitter;
      Splitter2: TSplitter;
      Splitter4: TSplitter;
      DBGridEH1: TDBGridEh;
      DBGridEh2: TDBGridEh;
      DBGridEh3: TDBGridEh;
      AALabel1: TAALabel;
      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: TLbSpeedButton;
      LbSpeedButton1: TLbSpeedButton;
      SaveDialog1: TSaveDialog;
      AcReport1: TAcReport;
      ADOQuery4: TADOQuery;
      DataSource4: TDataSource;
      LbButton1: TLbButton;
      LbButton2: TLbButton;
      LbButton3: TLbButton;
      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
   SearchByHourseForm: TSearchByHourseForm;

Implementation
Uses DM, MainUnit, ViewUnitUnit, PUBFunction;
{$R *.dfm}

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

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

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

Procedure TSearchByHourseForm.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 TSearchByHourseForm.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 TSearchByHourseForm.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 TSearchByHourseForm.LbButton1Click(Sender: TObject);

Begin
   SaveDBGridEhToFile(ADOQuery4, DBGridEh4, SaveDialog1);

End;

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

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

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

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

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

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

Procedure TSearchByHourseForm.DBGridEh4DblClick(Sender: TObject);
Begin
   If ADOQuery4.Active = false Then Exit;
   If ADOQuery4.recordcount = 0 Then Exit;

   ViewUnitForm := TViewUnitForm.create(self);
   ViewUnitForm.Show;
   Application.ProcessMessages;
   ViewUnitForm.ADOQuery1.RecNo := SearchByHourseForm.ADOQuery1.RecNo;
   ViewUnitForm.DBGridEh1CellClick(ViewUnitForm.DBGridEH1.Columns.Items[0]);
   ViewUnitForm.ADOQuery2.RecNo := SearchByHourseForm.ADOQuery2.RecNo;
   ViewUnitForm.DBGridEh2CellClick(ViewUnitForm.DBGridEh2.Columns.Items[0]);
   ViewUnitForm.ADOQuery3.RecNo := SearchByHourseForm.ADOQuery3.RecNo;
   ViewUnitForm.ADOQuery4.sql.Text :=
      'SELECT * FROM 單元信息表 WHERE 公司編號=''' +
      ViewUnitForm.ADOQuery1.fieldbyname('公司編號').Text +
      ''' and 項目編號=''' +
      ViewUnitForm.ADOQuery2.fieldbyname('項目編號').Text + ''' and 幢號='''
      +
      ViewUnitForm.ADOQuery3.fieldbyname('幢號').Text + ''' AND 房號=''' +
      ADOQuery4.fieldbyname('房號').Text + '''';
   ViewUnitForm.ADOQuery4.open;

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

End;

End.