unit5.~pas

来自「1.学生成绩管理系统的设计与实现 要求有以下文档: (1)概要设计（电子」· ~PAS 代码 · 共 89 行

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Image2: TImage;
    Image3: TImage;
    ADOTable1: TADOTable;
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
uses unit7;

{$R *.dfm}

procedure TForm5.Timer1Timer(Sender: TObject);
begin
 if form5.ClientHeight<157 then
 form5.ClientHeight:=form5.ClientHeight+10
 else
 timer1.Enabled:=false;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
{form5.ClientHeight:=200;
form5.ClientWidth:=100;
timer1.Enabled:=true; }
end;

procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
application.ProcessMessages;
form5.Close;
end;

procedure TForm5.FormClick(Sender: TObject);
begin
form5.ClientHeight:=0;
form5.ClientWidth:=275;
end;

procedure TForm5.SpeedButton1Click(Sender: TObject);
var
  results1:variant;
begin
  ADOTable1.Close;
  ADOTable1.Open;
  ADOTable1.Active;
  results1:=ADOTable1.Lookup('管理员',edit1.text,'密码');{检索数据库中对应用户名的密码项}
  if results1=edit2.Text then
  begin
   application.CreateForm(Tform7,form7);
   form7.ShowModal;
  end
  else
  showmessage('密码错误或管理员身份不存在！');
  edit1.Visible:=true;
  edit2.Visible:=true;
  edit1.Text:='';
  edit2.Text:='';
end;
end.