financial.pas

来自「Delphi面向对象编程思想附书源码 好用哦！」· PAS 代码 · 共 59 行

unit Financial;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Mask, DBCtrls, Menus, ToolWin, ComCtrls,
  Datamodule,BusinessObj, Grids, DBGrids;

type
  TfrmFinancial = class(TForm)
    pnlFinancial: TPanel;
    lbl1: TLabel;
    edtCustomerName: TDBEdit;
    grdFinancial: TDBGrid;
    procedure mnuExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure grdFinancialDrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TColumn;
      State: TGridDrawState);
  private
    FBiz:TBiz;
  public
    { Public declarations }
    FdtmDynamicDatamod: TdtmDynamicDatamod;
  end;

implementation

{$R *.DFM}

procedure TfrmFinancial.FormCreate(Sender: TObject);
begin
  FdtmDynamicDatamod:= TdtmDynamicDatamod.Create(self);
  FBiz:=TBiz.create(self);  
end;

procedure TfrmFinancial.mnuExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmFinancial.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;


procedure TfrmFinancial.grdFinancialDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  FBiz.HighLightBank(Column, datacol);
end;

end.