?? unit5.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -