连接数据库问题!
这写了一个过程和函数用来连接ORACLE数据库,但执行连接函数时提时用户名密码错误,怎么回事?
procedure Declare_Init_Form ; //初始化变量
var
Name: string ;
Password: string;
Server: string ;
begin
Name:= 'rsgl';
Password:= 'rsgl';
Server:= 'hzj';
DataModule1.Database1.AliasName:= 'rsgl' ;
DataModule1.Database1.Params.Clear ;
DataModule1.Database1.Params.Add('SERVER NAME='+Server);
DataModule1.Database1.Params.Add('PASSWORD='+Password);
DataModule1.Database1.Params.Add('USER NAME='+Name) ;
ShowMessage('1');
end;
function Connect_Database: Boolean; //连接数据库
begin
try
DataModule1.Database1.Connected:=False;
DataModule1.Database1.Connected:= True ;
Result := True ;
except
begin
//ShowMessage('数据库连接失败') ;
Result := False ;
end;
end;
end;
连接数据库:
begin
Declare_Init_Form;
IF Connect_Database Then
begin
ShowMessage('成功');
end
Else
begin
ShowMessage('失败');
end
End;
end.
end.