logininfo.~pas

来自「是一款针对啤酒行业的销售进销存管理系统,包括基本的进货,销售,库存」· ~PAS 代码 · 共 76 行

unit LoginInfo;

interface

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

type
  TLogin = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    procedure Image2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Login: TLogin;

implementation

{$R *.dfm}
uses common,MainMenu;
procedure TLogin.Image2Click(Sender: TObject);
begin
   close;
end;

procedure TLogin.FormCreate(Sender: TObject);
begin
     ShowPloyForm(image1.Picture.Bitmap,handle);
end;

procedure TLogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        edit2.SelectAll;
        edit2.SetFocus;   
     end;
end;

procedure TLogin.Edit2KeyPress(Sender: TObject; var Key: Char);
var
  strSql:string;
  
begin
     if key=#13 then
     begin
        strSql:='SELECT  * FROM  Login  WHERE  userName="'+trim(edit1.Text)+'"  and  password="'+trim(edit2.Text)+'"  and  city="辽阳"';
        if isRunSql(Adoquery1,strSql) then
        begin
           //Main:=TMain.Create(Application);
           main.ShowModal;  
        end
        else
          begin
             ShowMessage('输入错误,请重新输入');
             exit;
          end;
     end;
end;

end.