|
|
楼主 |
发表于 2008-4-28 13:51:50
|
显示全部楼层
第二步条件永远是假,没有取到地址数
static function TInit.canLogon(AOperatorID, ALogonUrl: String): Boolean;
var
lQuery: TQuery;
lUrl:string;
begin
result:=false;
jsDialogs.ShowMsg(Parameters, 'http://第一步');
lUrl:='HTTP://10.1.56.49:8088';
if sysutils.AnsiPos(lUrl,sysutils.UpperCase (ALogonUrl))=1 then
begin
jsDialogs.ShowMsg(Parameters, 'http://第二步');
result := true;
exit;
end;
lQuery := TQuery.Create(nil);
result := false;
jsDialogs.ShowMsg(Parameters, 'http://第三步');
try
lQuery.ConnectionString := 'DATABASEURL=Biz:\OPERATION\OPERATIONDB.DATABASE';
lQuery.CommandText := 'select Count(FPersonID) from TD_EMPLOYEE_OUTOPEN where FPersonID = ' + SysUtils.QuotedStr(AOperatorID);
lQuery.Open;
result := lQuery.Fields[0].AsInteger > 0;
jsDialogs.ShowMsg(Parameters, 'http://第四步');
result := true;
lQuery.Close;
finally
lQuery.Free;
end;
end; |
|
发表于 2008-4-28 13:38:48
