unitcomm.~pas

来自「档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示」· ~PAS 代码 · 共 50 行

unit Unitcomm;

interface
uses
    ADODB,SysUtils,StrUtils;
    
function CheckUserDroit(user:string;mm:string):boolean;
function getnamelist:Tstringlist;
var
      ADOConn:TADOConnection;
      UserName:string;//用户名，作为全局变量用以保存登录时的username值

implementation

function CheckUserDroit(user:string;mm:string):boolean;
var
      myDataSet:TADODataSet;
begin
      myDataSet:=TADODataSet.Create(nil);
      myDataSet.Connection:=ADOConn;

      if mm = '' then
      begin
          myDataSet.CommandText:='select * from yh where yh_name='''+user+'''';
          myDataSet.Active:=true;

           if myDataSet.Eof then
                   result:=true 
            else
                   result:=false;

      end
      else
      begin
           myDataSet.CommandText:='select * from yh where yh_name='''+user+''' and mm='''+mm+'''';
           myDataSet.Active:=true;

             if myDataSet.Eof then
                   result:=false
             else
                   result:=true;

       end;
      myDataSet.Close;
      myDataSet.Free;
end;


end.