order.pas

Delphi面向对象编程思想附书源码 好用哦！

unit Order;

interface

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

type
  TfrmOrder = class(TForm)
    pnlFinancial: TPanel;
    lbl1: TLabel;
    edtCustomerName: TDBEdit;
    grdFinancial: TDBGrid;
    lbl2: TLabel;
    edtBank: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure mnuExitClick(Sender: TObject);
    procedure grdFinancialCellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
  private
    FBiz:TBiz;
  public
    FdtmDynamicDatamod: TdtmDynamicDatamod;
  end;

implementation

{$R *.DFM}

procedure TfrmOrder.FormCreate(Sender: TObject);
begin
  {为窗体动态创建空白数据模块}
  FdtmDynamicDatamod:= TdtmDynamicDatamod.Create(self);
  FBiz:=TBiz.create(self);
end;

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

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

procedure TfrmOrder.grdFinancialCellClick(Column: TColumn);
begin
  FBiz.FindRightBank(FdtmDynamicDatamod.qryOrder,
              FdtmDynamicDatamod.qryFinancial);
end;

procedure TfrmOrder.FormShow(Sender: TObject);
begin
  FBiz.FindRightBank(FdtmDynamicDatamod.qryOrder,
              FdtmDynamicDatamod.qryFinancial);
end;

end.