vipunt.pas

来自「商品销售系统完全的功能SQL和JAVA」· PAS 代码 · 共 73 行

unit vipunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Buttons, Grids, DBGridEh;

type
  Tvipcxfrm = class(TForm)
    Label2: TLabel;
    DBGridEh1: TDBGridEh;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  vipcxfrm: Tvipcxfrm;

implementation
  uses data;
{$R *.dfm}

procedure Tvipcxfrm.BitBtn1Click(Sender: TObject);
begin
if edit2.Text='' then exit;
 with dataman.vipQuery do
   begin
      close;
      sql.Clear;
      sql.Add('select menber.VIP卡号,会员姓名,isnull(consume.会员消费总金额,0) as 会员消费总金额  from menber  right join consume on menber.VIP卡号 =:kh and menber.VIP卡号=consume.VIP卡号');
      parameters.ParamByName('kh').Value:=trim(edit2.Text);
      prepared;
      open;
 if isempty then
      showmessage('该卡号不存在,请核对一下卡号!');

end;
edit2.Text:='';
end;

procedure Tvipcxfrm.BitBtn2Click(Sender: TObject);
begin
dataman.vipQuery.close;
vipcxfrm.close;

end;

procedure Tvipcxfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
vipcxfrm:=nil;
vipcxfrm.Free;
end;

procedure Tvipcxfrm.FormActivate(Sender: TObject);
begin
edit2.Text:='';
edit2.SetFocus;
end;

end.