u_pmsd.~pas

来自「这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版」· ~PAS 代码 · 共 55 行

unit U_Pmsd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFrm_PMSd = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Image1: TImage;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_PMSd: TFrm_PMSd;

implementation

uses U_Data;

{$R *.dfm}

procedure TFrm_PMSd.Edit1KeyPress(Sender: TObject; var Key: Char);
var bb:string;
begin
   if key<>#13 then exit;
     bb:='select * from user1 where  name_password='+quotedstr(edit1.Text);
      data.G_con.Open();
         data.G_Rst_use.SQL.Clear;
         data.G_Rst_use.SQL.Add(bb);
         data.G_Rst_use.ExecSQL;
         data.G_Rst_use.Open;
         if data.G_Rst_use.Eof  then
             begin
                 application.MessageBox('口令错误，请重新输入','明日科技');
                 data.G_Rst_use.Close;
                 data.G_con.Close;
                 edit1.Text:='';
                 edit1.SetFocus;
                 exit;
             end;
               data.G_Rst_use.Close;
               close;
end;

end.