unitdatamodule.pas

来自「自己设计的一个简易的考勤管理系统」· PAS 代码 · 共 63 行

unit UnitDataModule;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TdModule = class(TDataModule)
    DSUR: TDataSource;
    ADOQUserRecord: TADOQuery;
    ADOQU: TADOQuery;
    DSU: TDataSource;
    ADOQRecords: TADOQuery;
    ADOConnection1: TADOConnection;
    DSR: TDataSource;
    function check(userid,password:string;var ret:integer):boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dModule: TdModule;
  gUserID:string;
implementation

//若userid存在,且密码为password,则返回true,ret为0；否则返回false，ret = 1 表示userid
//不存在,ret = 2 表示userid存在但密码不符
function TdModule.check(userid,password:string;var ret:integer):boolean;
begin
    with dModule.ADOQU do
    begin
        close;
        sql.Clear;
        sql.Add('select * from users');
        open;  
        first;
        if locate('id',userid,[]) then
        begin
            if fieldbyname('password').AsString = password then
            begin
                ret := 0;
                result := true;
            end
            else
            begin
                ret := 2;
                result := false;
            end;
        end
        else
        begin
            ret := 1;
            result := false;
        end;
    end;
end;
{$R *.dfm}

end.