?? login.pas
字號:
unit login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls;
type
Tfrmlogin = class(TForm)
Labelname: TLabel;
Labelpass: TLabel;
cmdenter: TButton;
cmdcancel: TButton;
DataSource1: TDataSource;
Querycompanyuser: TQuery;
comboxname: TComboBox;
editpass: TEdit;
database1: TDatabase;
//判斷能否成功登陸
function canpass():boolean;
procedure FormCreate(Sender: TObject);
//function canpass():boolean;
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmlogin: Tfrmlogin;
implementation
//uses login;
{$R *.dfm}
procedure Tfrmlogin.FormCreate(Sender: TObject);
begin
//判斷querycompanyuser中的當前記錄是否是最后一個記錄
while not Querycompanyuser.Eof do
begin
//將當前記錄的值添加到comboxname組合框中
comboxname.AddItem(Querycompanyuser.FieldValues['yhmc'],sender);
//將當前記錄下移一個
Querycompanyuser.MoveBy(1);
end;
end;
function Tfrmlogin.canpass():boolean;
var
note:array[1..4] of string;
begin
result:=false;
note[1]:='用戶名稱不能為空!' ;
note[2]:='用戶名稱或密碼不正確';
//判斷用戶輸入的用戶名是否為空
if frmlogin.comboxname.Text='' then
begin
showmessage(note[1]);
exit;
end;
//判斷用戶輸入的用戶名是否為合法用戶
frmlogin.querycompanyuser.Filter:='yhmc='''+frmlogin.comboxname.Text+'''';
if frmlogin.querycompanyuser.Eof then
begin
showmessage(note[2]);
exit;
end
else
//判斷用戶輸入的口令是否正確
if frmlogin.querycompanyuser.FieldValues['yhkl']<>frmlogin.editpass.Text then
begin
showmessage(note[2]);
exit;
end;
result:=true;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -