viewlicenceunit.pas

短小而实用的房地产销售管理软件

Unit VIEWLicenceUnit;

Interface

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

Type
   TVIEWLicenceForm = Class(TForm)
      ToolBar1: TToolBar;
      LbSpeedButton1: TLbSpeedButton;
      LbSpeedButton2: TLbSpeedButton;
      LbSpeedButton3: TLbSpeedButton;
      ToolButton1: TToolButton;
      LbSpeedButton4: TLbSpeedButton;
      LbSpeedButton5: TLbSpeedButton;
      AALabel1: TAALabel;
      Panel1: TPanel;
      Splitter2: TSplitter;
      DBGridEH1: TDBGridEh;
      DBGridEh2: TDBGridEh;
      DataSource1: TDataSource;
      ADOQuery1: TADOQuery;
      DataSource2: TDataSource;
      ADOQuery2: TADOQuery;
      Splitter1: TSplitter;
      Panel2: TPanel;
      DBGridEh3: TDBGridEh;
      DataSource3: TDataSource;
      ADOQuery3: TADOQuery;
      AAScrollText1: TAAScrollText;
      Splitter3: TSplitter;
      AcReport1: TAcReport;
      ToolButton2: TToolButton;
      LbSpeedButton6: TLbSpeedButton;
      LbSpeedButton7: TLbSpeedButton;
      CheckBox1: TCheckBox;
      Procedure SetBtnEnable(bEn: Boolean);
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure AAScrollText1MouseEnter(Sender: TObject);
      Procedure AAScrollText1MouseLeave(Sender: TObject);
      Procedure FormCreate(Sender: TObject);
      Procedure DBGridEh1CellClick(Column: TColumnEh);
      Procedure DBGridEh2CellClick(Column: TColumnEh);
      Procedure LbSpeedButton5Click(Sender: TObject);
      Procedure LbSpeedButton4Click(Sender: TObject);
      Procedure LbSpeedButton3Click(Sender: TObject);
      Procedure LbSpeedButton2Click(Sender: TObject);
      Procedure LbSpeedButton1Click(Sender: TObject);
      Procedure DBGridEh3DblClick(Sender: TObject);
      Procedure LbSpeedButton7Click(Sender: TObject);
      Procedure ADOQuery1AfterScroll(DataSet: TDataSet);
      Procedure ADOQuery2AfterScroll(DataSet: TDataSet);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   VIEWLicenceForm  : TVIEWLicenceForm;

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

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

Procedure TVIEWLicenceForm.AAScrollText1MouseEnter(Sender: TObject);
Begin
   AAScrollText1.ScrollStep := 0;
End;

Procedure TVIEWLicenceForm.AAScrollText1MouseLeave(Sender: TObject);
Begin
   AAScrollText1.ScrollStep := 5;
End;

Procedure TVIEWLicenceForm.SetBtnEnable(bEn: Boolean);
Begin
   LbSpeedButton1.Enabled := bEn;
   LbSpeedButton2.Enabled := bEn;
   LbSpeedButton3.Enabled := bEn;
   LbSpeedButton4.Enabled := bEn;
 //    CheckBox1.Enabled :=bEn;
//     CheckBox1.Checked :=not bEn;
End;

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

Procedure TVIEWLicenceForm.DBGridEh1CellClick(Column: TColumnEh);
Begin
   ADOQuery3.Close;
   With ADOQuery2 Do Begin              // 项目编号,项目名称,规划用途
      sql.Text :=
         'select * FROM 项目信息表 WHERE 公司编号=''' +
         ADOQuery1.fieldbyname('公司编号').Text + '''';
      open;
      SetBtnEnable(recordcount > 0);
      If recordcount > 0 Then
         DBGridEh2CellClick(DBGridEh2.Columns.Items[0]);
   End;

End;

Procedure TVIEWLicenceForm.DBGridEh2CellClick(Column: TColumnEh);
Begin
   With ADOQuery3 Do Begin
      sql.Text := 'select * FROM 预售许可证表 WHERE 公司编号=''' +
         ADOQuery1.fieldbyname('公司编号').Text + ''' and 项目编号=''' +
         ADOQuery2.fieldbyname('项目编号').Text + '''';
      open;

   End;
End;

Procedure TVIEWLicenceForm.LbSpeedButton5Click(Sender: TObject);
Begin
   Close;
End;

Procedure TVIEWLicenceForm.LbSpeedButton4Click(Sender: TObject);
Begin
   ADOQuery1.Close;                     //  公司名称,公司编号
   ADOQuery1.sql.Text := 'SELECT * from 公司信息表';
   ADOQuery1.open;

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

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

Procedure TVIEWLicenceForm.LbSpeedButton2Click(Sender: TObject);
Begin
   If ADOQuery3.Active Then Begin
      If ADOQuery3.recordcount = 0 Then Exit;
      ADOQuery3.edit;

      If Assigned(EditLicenceForm) Then Begin
         SetWindowPos(EditLicenceForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
            swp_nosize);
         Exit;
      End;
      EditLicenceForm := TEditLicenceForm.create(self);
      EditLicenceForm.ShowModal;
   End;
End;

Procedure TVIEWLicenceForm.LbSpeedButton1Click(Sender: TObject);
Begin
   If ADOQuery3.Active Then Begin
      If ADOQuery2.recordcount = 0 Then Exit;

      ADOQuery3.Append;

      If Assigned(EditLicenceForm) Then Begin
         SetWindowPos(EditLicenceForm.Handle, 0, 0, 0, 0, 0, swp_nomove +
            swp_nosize);
         Exit;
      End;
      EditLicenceForm := TEditLicenceForm.create(self);
      EditLicenceForm.ShowModal;
   End;
End;

Procedure TVIEWLicenceForm.DBGridEh3DblClick(Sender: TObject);
Begin
   LbSpeedButton2.click;
End;

Procedure TVIEWLicenceForm.LbSpeedButton7Click(Sender: TObject);
Begin

   If (CheckBox1.Checked) Or (ADOQuery3.recordcount = 0) Then
      AcReport1.LoadFromFile(CURRDIR+'\NIL_SQB.APT')
   Else
      AcReport1.LoadFromFile(CURRDIR+'\SQB.APT');

   Case TLbSpeedButton(Sender).tag Of
      21: AcReport1.Preview;
      22: AcReport1.Print;
   End;
End;

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

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

End.