ba220.~pas

利用delhpi 开发的一个关于零售业进销管理系统

unit BA220;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialog, Db, DBTables, StdCtrls, Buttons, DBCtrls, Mask;

type
  TfmBA220 = class(TfmBaseDialog)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    sbEndCustomerTypeID: TSpeedButton;
    sbBeginCustomerTypeID: TSpeedButton;
    ED1: TDBEdit;
    ED2: TDBEdit;
    ED3: TDBCheckBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    procedure bnOKClick(Sender: TObject);
    procedure sbBeginCustomerTypeIDClick(Sender: TObject);
    procedure sbEndCustomerTypeIDClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmBA220: TfmBA220;

implementation

uses BA220Report, DataModule;

{$R *.DFM}

{ TfmBaseDialogTemplete1 }

procedure TfmBA220.PrepareDlg;
begin
  inherited;
  //
end;

procedure TfmBA220.bnOKClick(Sender: TObject);
begin
  inherited;
 // try
 //   qrBA220 := TqrBA220.Create(Self);
    qrBA220.Preview;
 // finally
 //   qrBA220.Free;
 // end;
end;

procedure TfmBA220.sbBeginCustomerTypeIDClick(Sender: TObject);
begin
  inherited;
{  DM.tbInput.FieldByName('BeginCustomerTypeID').AsString :=
             MySearchCustomerTypeID(DM.tbInput.FieldByName('BeginCustomerTypeID').AsString);}
end;

procedure TfmBA220.sbEndCustomerTypeIDClick(Sender: TObject);
begin
  inherited;
{  DM.tbInput.FieldByName('EndCustomerTypeID').AsString :=
             MySearchCustomerTypeID(DM.tbInput.FieldByName('EndCustomerTypeID').AsString);}
end;

end.