unitcheckyh.pas

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· PAS 代码 · 共 68 行

unit Unitcheckyh;

interface

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

type
  Tcheckyh = class(TForm)
    Label1: TLabel;
    Query1: TQuery;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  checkyh: Tcheckyh;

implementation
  uses cpyhunit;
{$R *.dfm}

procedure Tcheckyh.BitBtn1Click(Sender: TObject);
begin
   cpyhunit.nm :='' ;
    cpyhunit.mm:='';
end;

procedure Tcheckyh.Edit1Change(Sender: TObject);
begin
if edit1.Text ='' then exit;
if length(edit1.Text)<>3 then exit;
with query1 do
  begin
  close;
  prepare;
  parambyname('id').AsString :=edit1.Text;
  open;

  if query1.RecordCount>0 then
   begin
   cpyhunit.nm :=FieldByName('yhm').AsString;
  cpyhunit.mm:=FieldByName('mm').AsString ;
   end;
  close;
  end;
 close;
end;



procedure Tcheckyh.FormShow(Sender: TObject);
begin
cpyhunit.nm :='' ;
    cpyhunit.mm:='';
end;

end.