?? xtdl3.~pas
字號:
unit xtdl3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TFormb = class(TForm)
Label2: TLabel;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Image2: TImage;
Bevel1: TBevel;
procedure Edit1Change(Sender: TObject);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Formb: TFormb;
i: integer = 0;
m: Boolean = False;//防止用戶關閉登錄窗口進入系統
implementation
uses rsglxt, Dataa;
{$R *.dfm}
procedure TFormb.Edit1Change(Sender: TObject);
begin
if (Trim(Edit1.Text)<>'')and( Trim(edit2.Text)<>'') then
BitBtn1.Enabled := True
else
BitBtn1.Enabled := False;
end;
procedure TFormb.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_Return) or(Key = vk_Down) then
Edit2.SetFocus;
end;
procedure TFormb.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((Key = vk_Return) or(Key = vk_Down))and (BitBtn1.Enabled = True) then
BitBtn1.SetFocus
else
Edit2.SetFocus;
if Key = vk_Up then
Edit1.SetFocus;
end;
procedure TFormb.BitBtn1Click(Sender: TObject);
begin
with Data3.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 操作員信息表 where (操作員姓名= :a)and(操作員密碼= :b)');
Parameters.ParamByName('a').Value := Trim(Edit1.Text);
Parameters.ParamByName('b').Value := Trim(Edit2.Text);
Open;
end;
if Data3.ADOQuery1.RecordCount >0 then
begin
czymc := Data3.ADOQuery1.FieldByName('操作員姓名').AsString;
m:= True;
Edit1.Clear;
Edit2.Clear;
Close;
end
else
begin
if i <3 then
begin
Application.MessageBox('用戶名稱或密碼不正確,請重新輸入。','提示',0+64);
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
Inc(i);
end
else
begin
Application.MessageBox('對不起,您無權使用本系統。','提示',0+64);
Application.Terminate ;
end;
end;
end;
procedure TFormb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if m = False then
Application.Terminate ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -