dll文件参数问题

请问：在dll中怎么样才能把CanPass四个参数修改为两个参数（即：用户名和密码）  
  Function   CanPass(datatemp:Tdatabase;Model:Tquery;gsCurUser,gsCurPwd:String):Boolean;  
  begin  
      Result:=False;  
      with   Model   do  
      begin  
          Model.Close;  
          Model.SQL.Clear;  
          Model.SQL.Add('select   *     from   h_login   where   name='''+gsCurUser+'''   and   pwd='''+gsCurPwd+'''');  
          Model.Prepare;  
          Model.Open;  
      end;  
      if   Model.RecordCount>0   then  
      begin  
          Result:=True;  
      end;  
      if   Model.RecordCount=0   then  
      begin  
          Result:=False;  
          ShowMessage('输入用户或者密码错误');  
      end;  
   
  谢谢大侠！  
   
  end; 问题点数：20、回复次数：4Top

1 楼LocustWei（LocustWei）回复于 2005-07-26 12:37:24 得分 0

CanPass(nil,   nil,   gsCurUser,gsCurPwd);Top

2 楼sxdoujg（无情过客）回复于 2005-07-26 12:49:27 得分 0

那样不行！  
  还有什么好的办法嘛！  
  谢谢  
  Top

3 楼lovefox_zoe（爱情狐狸）回复于 2005-07-26 14:42:08 得分 10

Function   CanPass(gsCurUser,gsCurPwd:String):Boolean;  
  begin  
  datatemp:=Tdatabase.create;  
  {给datatemp的相关属性赋值}  
  Model:=Tquery.create;  
  {给Model的相关属性赋值}  
   
  {--------其他代码-------------}  
   
  Model.free;  
  datatemp.free;//释放创建的对象  
   
  end;  
   
  Top

4 楼Badtomy（阿菜）回复于 2005-07-26 17:22:30 得分 10

如果照lovefox_zoe(爱情狐狸)   说的做，那datatemp和model在canpass中就被释放了，显然楼主要的不是这样的结果。如果一定要两个参数,那建议楼主先把两个字符串先合起来,然后把Model:Tquery留下.datatemp:Tdatabase参数没看出来在那里用了.Top

相关问题

• canpass
• datatemp
• gscuruser
• gscurpwd
• 参数
• model
• tdatabase
• tquery
• begin result

• 帖主：sxdoujg
• lovefox_zoe
• Badtomy

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载