?? unit1.pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Database1: TDatabase;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Table1: TTable;
Edit2: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
count:integer;
implementation
uses unit2;
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
results:variant;
begin
count:=count+1;{計數加1}
results:=table1.Lookup('用戶名',edit1.text,'口令');{檢索數據庫中對應用戶名的密碼項}
if results=edit2.Text then
begin
showmessage('密碼確認,即將進入庫存管理系統。');
form2.Show ;
form1.Hide ;
end
else
begin
showmessage('錯誤的用戶名或密碼!');{密碼不確認}
edit1.Text :='';
edit2.Text :='';
edit1.SetFocus ;
if (count=3) then
close;{三次輸入錯誤,退出}
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
table1.Open ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -