unit25.pas

来自「停车厂管理系统 麻雀虽小 但是五脏齐全」· PAS 代码 · 共 73 行

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.