unitforsalefm.pas.~2~

一款房产中介软件

Unit UnitForSaleFM;

Interface

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

Type
   TfrmUnitForSale = Class(TForm)
      ADOQuery1: TADOQuery;
      DataSource1: TDataSource;
      AALabel1: TLabel;
      DBText1: TDBText;
      AALabel2: TLabel;
      DBText2: TDBText;
      AALabel31: TLabel;
      DBText3: TDBText;
      AALabel32: TLabel;
      DBText4: TDBText;
      AALabel3: TLabel;
      DBText5: TDBText;
      Bevel1: TBevel;
      AALabel4: TLabel;
      DBText6: TDBText;
      Panel2: TPanel;
      Panel1: TPanel;
      AALabel9: TLabel;
      AALabel5: TLabel;
      AALabel6: TLabel;
      AALabel7: TLabel;
      AALabel23: TLabel;
      AALabel24: TLabel;
      DBNumberEditEh1: TDBNumberEditEh;
      DBNumberEditEh2: TDBNumberEditEh;
      DBDateTimeEditEh1: TDBDateTimeEditEh;
      LbButton4: TButton;
      LbButton2: TButton;
      DBGridEH1: TDBGridEh;
      Splitter1: TSplitter;
      Panel3: TPanel;
    LbSpeedButton1: TSpeedButton;
    LbSpeedButton2: TSpeedButton;
    LbSpeedButton3: TSpeedButton;
    LbButton1: TButton;
      AALabel8: TLabel;
    LbSpeedButton4: TSpeedButton;
      Procedure SetPanelVisible(bVisible: Boolean);
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure LbButton1Click(Sender: TObject);
      Procedure LbButton2Click(Sender: TObject);
      Procedure LbSpeedButton1Click(Sender: TObject);
      Procedure LbSpeedButton2Click(Sender: TObject);
      Procedure LbSpeedButton3Click(Sender: TObject);
      Procedure LbButton4Click(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure DBDateTimeEditEh1Exit(Sender: TObject);
      Procedure DBNumberEditEh1Change(Sender: TObject);
      Procedure LbSpeedButton4Click(Sender: TObject);
      Procedure DBGridEh1DblClick(Sender: TObject);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   frmUnitForSale  : TfrmUnitForSale;
   area             : double;
   BendLoadDB       : Boolean;
Implementation
Uses MainDM, ViewUnitFM, PUBFunction;
{$R *.dfm}

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

Procedure TfrmUnitForSale.LbButton1Click(Sender: TObject);
Begin
   frmViewUnit.ADOQuery4.edit;
   frmViewUnit.ADOQuery4.fieldbyname('合同号').AsString := '';
   frmViewUnit.ADOQuery4.post;
   Close;
End;

Procedure TfrmUnitForSale.LbButton2Click(Sender: TObject);
Begin
   ADOQuery1.fieldbyname('公司编号').AsString :=
      DBText1.Caption;
   ADOQuery1.fieldbyname('项目编号').AsString :=
      DBText3.Caption;
   ADOQuery1.fieldbyname('幢号').AsString :=
      DBText5.Caption;
   ADOQuery1.fieldbyname('房号').AsString :=
      DBText6.Caption;
   ADOQuery1.post;
   SetPanelVisible(false);
   LbSpeedButton4.click;
End;

Procedure TfrmUnitForSale.LbSpeedButton1Click(Sender: TObject);
Begin
   ADOQuery1.Append;
   SetPanelVisible(true);
End;

Procedure TfrmUnitForSale.LbSpeedButton2Click(Sender: TObject);
Begin
   If ADOQuery1.recordcount = 0 Then Exit;

   ADOQuery1.edit;
   SetPanelVisible(true);
End;

Procedure TfrmUnitForSale.LbSpeedButton3Click(Sender: TObject);
Begin
   If ADOQuery1.recordcount > 0 Then
      ADOQuery1.Delete;
End;

Procedure TfrmUnitForSale.LbButton4Click(Sender: TObject);
Begin
   ADOQuery1.Cancel;
   SetPanelVisible(false);

End;

Procedure TfrmUnitForSale.FormCreate(Sender: TObject);
Begin
   BendLoadDB := false;
   area := frmViewUnit.ADOQuery4.fieldbyname('合同约定建筑面积').AsFloat;
   With ADOQuery1 Do Begin
      sql.Text := 'select * from 单元未售表 WHERE 公司编号=''' +
         DBText1.Caption + ''' and 项目编号=''' +
         DBText3.Caption + ''' AND 幢号=''' +
         DBText5.Caption + ''' AND 房号=''' +
         DBText6.Caption +
         ''' ORDER BY 待售起始日期 desc';
      open;
   End;
   SetPanelVisible(false);
   BendLoadDB := true;
End;

Procedure TfrmUnitForSale.SetPanelVisible(bVisible: Boolean);
Begin
//
   Panel1.Visible := bVisible;
   Panel3.Visible := Not bVisible;
   DBGridEH1.Enabled := Not bVisible;
End;

Procedure TfrmUnitForSale.DBDateTimeEditEh1Exit(Sender: TObject);
Begin
   FixEhDTBug(DBDateTimeEditEh1);
End;

Procedure TfrmUnitForSale.DBNumberEditEh1Change(Sender: TObject);
Begin
   If Not BendLoadDB Then Exit;
   DBNumberEditEh2.value := area * STRTOFLOATDEF(DBNumberEditEh1.Text,
      0);
End;

Procedure TfrmUnitForSale.LbSpeedButton4Click(Sender: TObject);
Var
   adotemp          : TADOQuery;

Begin
   BendLoadDB := false;
   adotemp := TADOQuery.create(self);
   With adotemp Do Begin
      connection := DMMain.ADOConnection1;
      sql.Text := 'update 单元未售表 SET 最后定价=FALSE where 公司编号=''' +
         DBText1.Caption + ''' and 项目编号=''' +
         DBText3.Caption + ''' AND 幢号=''' +
         DBText5.Caption + ''' AND 房号=''' +
         DBText6.Caption + '''';
      ExecSQL;
      sql.Text := 'select * from 单元未售表 WHERE 公司编号=''' +
         DBText1.Caption + ''' and 项目编号=''' +
         DBText3.Caption + ''' AND 幢号=''' +
         DBText5.Caption + ''' AND 房号=''' +
         DBText6.Caption +
         ''' ORDER BY 待售起始日期 desc';

      open;
      edit;
      fieldbyname('最后定价').AsBoolean := true;
      post;

      Free;
   End;

   With ADOQuery1 Do Begin
      sql.Text := 'select * from 单元未售表 WHERE 公司编号=''' +
         DBText1.Caption + ''' and 项目编号=''' +
         DBText3.Caption + ''' AND 幢号=''' +
         DBText5.Caption + ''' AND 房号=''' +
         DBText6.Caption +
         ''' ORDER BY 待售起始日期 desc';
      open;
   End;

   Application.ProcessMessages;

   BendLoadDB := true;
End;

Procedure TfrmUnitForSale.DBGridEh1DblClick(Sender: TObject);
Begin
   LbSpeedButton2.click;
End;

End.