searchbyhourseunit.pas

一个售楼系统

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.