unit Unit25;

interface

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

type
  TYuOuChX = class(TForm)
    Label1: TLabel;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YuOuChX: TYuOuChX;

implementation

uses Unit11;

{$R *.dfm}

procedure TYuOuChX.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize:=false;
end;

procedure TYuOuChX.BitBtn1Click(Sender: TObject);
begin
  if trim(edit1.text)<>'' then
  begin
    if not adotable1.Locate('cardid',trim(edit1.Text),[locaseinsensitive]) then
    begin
      messagebox(handle,'沒找到您查詢的卡號，請確認卡號正確','系統提示',mb_ok+mb_iconinformation);
      edit1.SetFocus;
    end ;
  end
  else
  begin
     messagebox(handle,'卡號不能為空，請輸入要查詢的卡號','系統提示',mb_ok+mb_iconinformation);
     edit1.SetFocus;
  end;
end;

procedure TYuOuChX.FormActivate(Sender: TObject);
begin
  edit1.Clear;
  edit1.SetFocus;
  adotable1.Open;
end;

procedure TYuOuChX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adotable1.Close;
end;

end.