hyk1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit hyk1;

interface

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

type
  Thyk = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hyk: Thyk;

implementation

uses main1;

{$R *.DFM}

procedure Thyk.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Thyk.BitBtn1Click(Sender: TObject);
begin
  if Edit2.Text = '' then
  begin
    application.MessageBox('请输入正确的会员卡号.', '提示', MB_OK + MB_ICONWARNING);
    Edit1.SelectAll;
    exit;
  end
  else
  begin
    Main.StatusBar1.Panels[9].Text := '会员';
    Main.N21.Checked := true;
    close;
  end;
end;

procedure Thyk.FormActivate(Sender: TObject);
begin
  Edit1.clear;
  Edit2.clear;
  Edit1.SetFocus;
end;

procedure Thyk.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 27 then close;
  if key = 13 then
  begin
    if Edit1.Text = '' then
    begin
      application.MessageBox('请输入会员卡号.', '提示', MB_OK + MB_ICONWARNING);
      Edit1.SelectAll;
      exit;
    end;
    Query1.Close;
    Query1.sql.clear;
    Query1.sql.add('select * from hyda where code=:code');
    Query1.ParamByName('code').asstring := Edit1.text;
    Query1.open;
    if Query1.RecordCount = 0 then
    begin
      application.MessageBox('请输入正确的会员卡号.', '提示', MB_OK + MB_ICONWARNING);
      Edit1.SelectAll;
      exit;
    end;
    if Query1.FieldByName('yxq').asdatetime <= now then
    begin
      application.MessageBox('此会员的有效期已到.', '提示', MB_OK + MB_ICONWARNING);
      Edit1.SelectAll;
      exit;
    end;
    Edit2.text := Query1.fieldbyname('name').asstring;
    BitBtn1.SetFocus;
  end;
end;

procedure Thyk.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then BitBtn1.Click;
  if key = 27 then close;
end;

procedure Thyk.BitBtn1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 27 then close;
end;

procedure Thyk.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 27 then close;
end;

end.