怎样区分大小写？

Question

sql数据库中为"Admin"登录时"admin"或者"Admin"都可以通过，也就是不区分大小写.但是，当给出某些提示信息时会遇到判断字符串(区分大小写)的情况比如：if DM.CDS_YHSZ.fieldbyname('用户别名').asstring = 'admin'then
begin
    application.messagebox('系统管理员不可删除', '管理系统',    mb_iconinformation + mb_defbutton1);
    exit;
end;这样，当用户输入'Admin'时就会运行删除操作了。怎样处理这种矛盾呢？？还请各位指教

Answer 1

uses SysUtils;if lowerCase(DM.CDS_YHSZ.fieldbyname('用户别名').asstring) = 'admin'then

Answer 2

区分大小写，
var 
  i:integer;
begin 
I := CompareStr(DM.CDS_YHSZ.fieldbyname('用户别名').asstring,'admin'then); 
 if I <>0 then
  begin
    application.messagebox('系统管理员不可删除', '管理系统',    mb_iconinformation + mb_defbutton1);
    exit;
  end;
end;