unitcomm.~pas

档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示了档案管理的整个流程对大家熟悉和学习档案管理很有帮助,同时对dephi的学习者也是非常有利的.

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.