viewcasterfm.pas.~15~

一款房产中介软件

Unit ViewCasterFM;

Interface

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

Type
   TfrmViewCaster = Class(TForm)
      ToolBar1: TToolBar;
    btnAdd: TSpeedButton;
    btnModifi: TSpeedButton;
    btnDel: TSpeedButton;
    btnReflesh: TSpeedButton;
    btnClose: TSpeedButton;
      Panel1: TPanel;
      AALabel1: TLabel;
      DBGridEH1: TDBGridEh;
      DataSource1: TDataSource;
      ADOQuery1: TADOQuery;
      Splitter1: TSplitter;
      ADOQuery2: TADOQuery;
      DataSource2: TDataSource;
      Panel2: TPanel;
      DBGridEh2: TDBGridEh;
      Panel3: TPanel;
      Splitter2: TSplitter;
      AALabel2: TLabel;
      DBGridEh3: TDBGridEh;
      ADOQuery3: TADOQuery;
      DataSource3: TDataSource;
      Panel4: TPanel;
      LbSpeedButton6: TSpeedButton;
      LbSpeedButton8: TSpeedButton;
      Procedure SetBtnEnable(bEn: Boolean);
      Procedure btnCloseClick(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure DBGridEh2DblClick(Sender: TObject);
      Procedure btnRefleshClick(Sender: TObject);
      Procedure btnAddClick(Sender: TObject);
      Procedure btnModifiClick(Sender: TObject);
      Procedure btnDelClick(Sender: TObject);
      Procedure DBGridEh1CellClick(Column: TColumnEh);
      Procedure LbSpeedButton8Click(Sender: TObject);
      Procedure DBGridEh2CellClick(Column: TColumnEh);
      Procedure LbSpeedButton6Click(Sender: TObject);
      Procedure ADOQuery1AfterScroll(DataSet: TDataSet);
      Procedure ADOQuery2AfterScroll(DataSet: TDataSet);
    procedure ADOQuery2AfterPost(DataSet: TDataSet);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   frmViewCaster   : TfrmViewCaster;

Implementation
Uses MainDM, EditCasterFM, UnitCastPurposeFM;
{$R *.dfm}

Procedure TfrmViewCaster.btnCloseClick(Sender: TObject);
Begin
   Close;
End;

Procedure TfrmViewCaster.FormCreate(Sender: TObject);
Begin
   ADOQuery1.sql.Text := 'SELECT cname, code from company';
   ADOQuery1.open;
   SetBtnEnable(ADOQuery1.recordcount > 0);
   If ADOQuery1.recordcount > 0 Then
      DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;

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

Procedure TfrmViewCaster.SetBtnEnable(bEn: Boolean);
Begin
   btnAdd.Enabled := bEn;
   btnModifi.Enabled := bEn;
   btnDel.Enabled := bEn;
   btnReflesh.Enabled := bEn;
End;

Procedure TfrmViewCaster.DBGridEh2DblClick(Sender: TObject);
Begin
//   btnDel.click;                //修改显示
End;

Procedure TfrmViewCaster.btnRefleshClick(Sender: TObject);
Begin
   ADOQuery1.Close;
   ADOQuery1.sql.Text := 'SELECT cname, code from company';
   ADOQuery1.open;

   DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;

Procedure TfrmViewCaster.btnAddClick(Sender: TObject);
Begin
   If ADOQuery2.Active Then
   Begin
      ADOQuery2.Insert;
      if frmEditCaster = nil then
        frmEditCaster := TfrmEditCaster.create(self);
      frmEditCaster.Show;
      frmEditCaster.BADD := true;
   End;
End;

Procedure TfrmViewCaster.btnModifiClick(Sender: TObject);
Begin
   If ADOQuery2.Active Then Begin
      If ADOQuery2.recordcount = 0 Then Exit;
      ADOQuery2.edit;
      if frmEditCaster = nil then
        frmEditCaster := TfrmEditCaster.create(self);
      frmEditCaster.Show;
      frmEditCaster.BADD := false;
   End;
End;

Procedure TfrmViewCaster.btnDelClick(Sender: TObject);
Begin
   If ADOQuery2.Active Then
      If ADOQuery2.recordcount > 0 Then
         ADOQuery2.Delete;
End;

Procedure TfrmViewCaster.DBGridEh1CellClick(Column: TColumnEh);
Begin
   ADOQuery3.Close;
   If ADOQuery1.recordcount = 0 Then Exit;
   ADOQuery2.sql.Text := 'select * from 客户信息表 where 公司编号=''' +
      ADOQuery1.fieldbyname('code').Text + '''';
   ADOQuery2.open;
   If ADOQuery2.recordcount > 0 Then
      DBGridEh2CellClick(DBGridEh2.Columns[0]);

End;

Procedure TfrmViewCaster.LbSpeedButton8Click(Sender: TObject);
Begin
   If ADOQuery3.Active Then
      If ADOQuery3.recordcount > 0 Then
         ADOQuery3.Delete;
End;

Procedure TfrmViewCaster.DBGridEh2CellClick(Column: TColumnEh);
Begin
   If ADOQuery2.recordcount = 0 Then Exit;
   ADOQuery3.sql.Text :=
      'SELECT * from 客户意向表 where 公司编号=''' +
      ADOQuery1.fieldbyname('code').Text + ''' AND 客户编号=''' +
      ADOQuery2.fieldbyname('客户编号').Text + '''';
   ADOQuery3.open;
End;

Procedure TfrmViewCaster.LbSpeedButton6Click(Sender: TObject);
Begin
   If ADOQuery3.Active Then Begin
     if frmUnitCastPurpose = nil then
       frmUnitCastPurpose := TfrmUnitCastPurpose.create(self);
      frmUnitCastPurpose.Show;
   End;
End;

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

procedure TfrmViewCaster.ADOQuery2AfterPost(DataSet: TDataSet);
begin
  ADOQuery2.UpdateBatch(arAll);
end;

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

End.