unit16.~pas

用Delphi写的学生信息管理系统的源代码

unit Unit16;

interface

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

type
  TForm16 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;
  howClose:integer;
implementation

{$R *.dfm}
 uses unit1;

procedure TForm16.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if howClose=0 then
     form1.Close;
  action:=cafree;
end;



procedure TForm16.SpeedButton1Click(Sender: TObject);
 var sqlstr:string;
begin
  howClose:=1; 

if (edit1.Text='')then
  begin
  application.MessageBox('用户名或密码不能为空','错误提示',0+64);
  exit;
  end;
sqlstr:='select * From t_user  where loginID='+chr(39)+edit1.Text+chr(39);

Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add(sqlstr);
ADOquery1.Open;


  if adoQuery1.recordcount<>1 then
     begin
       application.MessageBox('你输入的用户名不存在','错误提示',0+64);
       edit2.Clear;
       edit1.SetFocus;
       edit1.SelectAll;
       howClose:=0;
       exit;
     end;

  if trim(adoQuery1.FieldValues['passw'])<>edit2.Text then
     begin
       application.MessageBox('你输入的密码不对','错误提示',0+64);
       edit2.SelectAll;
       edit2.SetFocus;
       howClose:=0;
       exit;
     end;

  close;   
end;

procedure TForm16.SpeedButton2Click(Sender: TObject);
begin
  self.Close;
  form1.Close;
end;

procedure TForm16.FormCreate(Sender: TObject);
begin
 howClose:=0;
end;

procedure TForm16.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13)and (not Edit2.Focused) then
  begin
   key:=#0;
   perform(WM_NEXTDLGCTL,0,0)
  end
else if edit2.focused and(key=#13)then
 begin
  key:=#0;
  //speedbutton1.

 end;
end;

end.