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.