shuakaform.pas

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

unit shuakaform;

interface

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

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

  end;

var
  formshuaka: Tformshuaka;
   var ygnm,pswd:string;
implementation
   uses pass;
{$R *.dfm}

procedure Tformshuaka.BitBtn1Click(Sender: TObject);
begin
close;

end;

procedure Tformshuaka.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
     pass.nm :=FieldByName('yhmc').AsString;
     pass.mm:=FieldByName('mm').AsString ;
    end
    else
     begin
     pass.nm :='';
     pass.mm:='' ;
     end;
 close;
 end;
 close;
end;

procedure Tformshuaka.FormCreate(Sender: TObject);
begin
     pass.nm :='';
     pass.mm:='' ;
end;

procedure Tformshuaka.FormActivate(Sender: TObject);
begin
     pass.nm :='';
     pass.mm:='' ;
end;

procedure Tformshuaka.FormShow(Sender: TObject);
begin
 pass.nm :='';
     pass.mm:='' ;
end;

end.