viewlicencefm.pas.~12~

一款房产中介软件

Unit VIEWLicenceFM;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, DB, ADODB, Grids, DBGridEh, ExtCtrls, ComCtrls, ToolWin, //ACReportClass,
   StdCtrls, GridsEh, Buttons, frxExportHTML, frxClass, frxExportPDF, frxDBSet;

Type
   TfrmVIEWLicence = Class(TForm)
      ToolBar1: TToolBar;
    btnAdd: TSpeedButton;
    btnModifi: TSpeedButton;
    btnDel: TSpeedButton;
    btnReflesh: TSpeedButton;
    btnHelp: TSpeedButton;
      AALabel1: TLabel;
      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;
    btnDesign: TSpeedButton;
    btnPreview: TSpeedButton;
      CheckBox1: TCheckBox;
    frxDBDataset1: TfrxDBDataset;
    frxDBDataset2: TfrxDBDataset;
    frxDBDataset3: TfrxDBDataset;
    frxReport1: TfrxReport;
    frxPDFExport1: TfrxPDFExport;
    frxHTMLExport1: TfrxHTMLExport;
      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 btnHelpClick(Sender: TObject);
      Procedure btnRefleshClick(Sender: TObject);
      Procedure btnDelClick(Sender: TObject);
      Procedure btnModifiClick(Sender: TObject);
      Procedure btnAddClick(Sender: TObject);
      Procedure DBGridEh3DblClick(Sender: TObject);
      Procedure btnPreviewClick(Sender: TObject);
      Procedure ADOQuery1AfterScroll(DataSet: TDataSet);
      Procedure ADOQuery2AfterScroll(DataSet: TDataSet);
   Private
    { Private declarations }
   Public
    { Public declarations }
   End;

Var
   frmVIEWLicence  : TfrmVIEWLicence;

Implementation
Uses MainDM, MainFM, EditLicenceFM;
{$R *.dfm}

Procedure TfrmVIEWLicence.FormClose(Sender: TObject;
   Var Action: TCloseAction);
Begin
   Action := cafree;
   frmVIEWLicence := nil;
End;

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

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

Procedure TfrmVIEWLicence.SetBtnEnable(bEn: Boolean);
Begin
   btnAdd.Enabled := bEn;
   btnModifi.Enabled := bEn;
   btnDel.Enabled := bEn;
   btnReflesh.Enabled := bEn;
 //    CheckBox1.Enabled :=bEn;
//     CheckBox1.Checked :=not bEn;
End;

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

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

End;

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

   End;
End;

Procedure TfrmVIEWLicence.btnHelpClick(Sender: TObject);
Begin
  ShowMessage('欲办理项目预售许可证必须具备的相关资料，如下：' + #13#10 +
    '1.资格证书，营业执照' + #13#10 +
    '2.土地使用证或建设用地批准证书' + #13#10 +
    '3.建设工程规划许可证' + #13#10 +
    '4.建筑方案审查意见' + #13#10 +
    '5.建设用地规划许可证' + #13#10 +
    '6.施工许可证' + #13#10 +
    '7.建设工程施工合同' + #13#10 +
    '8.计委立项批文' + #13#10 +
    '9.防空地下室建设审批表' + #13#10 +
    '10.规划总品面图及整套施工平面图(蓝图)' + #13#10 +
    '11.工程建筑总投资在35%以上(扣除低价款)形象进度完成三层板以上' + #13#10 +
    '12.物业管理委托合同及物业管理中标通知书' + #13#10 +
    '13.面积计算书' + #13#10 +
    '14.商品房预售方案')
End;

Procedure TfrmVIEWLicence.btnRefleshClick(Sender: TObject);
Begin
   ADOQuery1.Close;                     //  公司名称,公司编号
   ADOQuery1.sql.Text := 'SELECT cname, code from company';
   ADOQuery1.open;

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

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

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

      if frmEditLicence = nil then
        frmEditLicence := TfrmEditLicence.create(nil);
      frmEditLicence.Show;
   End;
End;

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

      ADOQuery3.Append;

      if frmEditLicence = nil then
        frmEditLicence := TfrmEditLicence.create(nil);
      frmEditLicence.Show;
   End;
End;

Procedure TfrmVIEWLicence.DBGridEh3DblClick(Sender: TObject);
Begin
   btnModifi.click;
End;

Procedure TfrmVIEWLicence.btnPreviewClick(Sender: TObject);
Begin
  frxReport1.ShowReport;
//   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 TfrmVIEWLicence.ADOQuery1AfterScroll(DataSet: TDataSet);
Begin
   DBGridEh1CellClick(DBGridEH1.Columns.Items[0]);
End;

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

End.