给你一个过程吧.其实你可以先查查以前的相关帖子的.
begin
if Database1.Connected then
Database1.Connected := false;
Database1.driverName := 'ORACLE';
Database1.loginprompt := false;
with Database1.params do
begin
clear;
add('SERVER NAME='+ServerName);
add('USER NAME='+UserName);
add('PASSWORD='+Passwd);
end;
try
DataModule3.Database1.Connected := true;
result := true;
except
result := false;
end;这段代码加在DataModule的OnCreate事件里吧.
begin
if Database1.Connected then
Database1.Connected := false;
Database1.driverName := 'ORACLE';
Database1.loginprompt := false;
with Database1.params do
begin
clear;
add('SERVER NAME='+ServerName);
add('USER NAME='+UserName);
add('PASSWORD='+Passwd);
end;
try
DataModule3.Database1.Connected := true;
result := true;
except
result := false;
end;这段代码加在DataModule的OnCreate事件里吧.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货