vipxzunt.pas

商品销售系统完全的功能SQL和JAVA

unit vipxzunt;

interface

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

type
  Tvipxzfrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    Edit3: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit3Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  vipxzfrm: Tvipxzfrm;

implementation

uses data, mainunt;

{$R *.dfm}

procedure Tvipxzfrm.BitBtn1Click(Sender: TObject);
begin
 try
   with Dataman.vipQuery  do
     begin
      close;
      sql.Clear;
      sql.Add('select * from menber where VIP卡号='''+edit1.text+'''');
      open;
      if not dataman.vipQuery.IsEmpty then
       begin
       MessageBox(Getactivewindow(),'数据重复,请重新输入!',
     '警告框', mb_Ok + mb_IconWarning);
       exit;
       end
      else
      begin
       sql.clear;
       sql.add('insert into menber  values(:vno,:vname,:vdz,:jdate)');
       parameters.ParamByName('vno').value :=trim(edit1.Text);
       parameters.ParamByName('vname').value :=trim(edit2.Text);
       parameters.ParamByName('vdz').value :=strtofloat(trim(edit3.Text));
       parameters.ParamByName('jdate').value :=date();
       prepared;
       execsql;
      end;
     end;
   showmessage('录入成功！');
   except
    abort;
    showmessage('录入失败！');
   end;
   edit1.Text:='';
   edit2.Text:='';
   edit1.SetFocus;
end;

procedure Tvipxzfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
vipxzfrm:=nil;
vipxzfrm.Free;
end;

procedure Tvipxzfrm.BitBtn2Click(Sender: TObject);
begin
Dataman.vipQuery.Close;
close;
main.Edit1.SetFocus;
end;

procedure Tvipxzfrm.FormActivate(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
end;

procedure Tvipxzfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Tvipxzfrm.Edit1Exit(Sender: TObject);
begin
Edit1.color:=clWindow;
end;

procedure Tvipxzfrm.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=clSkyBlue;
end;

procedure Tvipxzfrm.Edit2Enter(Sender: TObject);
begin
Edit2.Color:=clSkyBlue;
end;

procedure Tvipxzfrm.Edit2Exit(Sender: TObject);
begin
Edit2.color:=clWindow;
end;

procedure Tvipxzfrm.Edit3Exit(Sender: TObject);
begin
Edit3.color:=clWindow;
end;

procedure Tvipxzfrm.Edit3Enter(Sender: TObject);
begin
Edit3.Color:=clSkyBlue;
end;

end.