customer.pas

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

unit Customer;

interface

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

type
  TfrmCustomer = class(TForm)
    pnlCustomer: TPanel;
    edtCustomerName: TDBEdit;
    edtAddress1: TDBEdit;
    edtAddress2: TDBEdit;
    edtAddressCity: TDBEdit;
    edtAddressState: TDBEdit;
    edtAddressZip: TDBEdit;
    radAddress: TRadioGroup;
    lbl1: TLabel;
    lbl2: TLabel;
    procedure mnuExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure radAddressClick(Sender: TObject);
  private
    FBiz:TBiz;
  public
    FdtmDynamicDatamod: TdtmDynamicDatamod;
  end;

implementation

{$R *.DFM}

procedure TfrmCustomer.mnuExitClick(Sender: TObject);
begin
  close;
end;

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

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

procedure TfrmCustomer.radAddressClick(Sender: TObject);
begin
  FBiz.LocateCorrectAddress(FdtmDynamicDatamod.qryAddress,
                     radAddress.Items[radAddress.Itemindex]);
end;

end.