数据库控件无法激活-intraweb(20分)

  • 主题发起人 主题发起人 sky1000
  • 开始时间 开始时间
S

sky1000

Unregistered / Unconfirmed
GUEST, unregistred user!
把adoconnection,adoquery放在datamodule控件中,但在窗体中用datasouce连接上adoquery,但运行,打开数据集时,窗体上的数据集控件无法激活(数据集确定打开),没有分啦,请各位指点一下!
 
数据集无法激活什么意思?
怎么又打开了???
//////////////////////
你要在窗体里Uses dataModule单元
 
procedure TIWUserSession.IWUserSessionBaseCreate(Sender: TObject);
var
myf:Tinifile;
s,qx,Source,Catalog,supername,password:string;
ADatetime:TDateTime;
//該日期從sql中獲得
ASysTime:TSystemTime;
begin
//Provider=SQLOLEDB.1;Password=329;Persist Security Info=True;User ID=sa;Initial Catalog=SDmis;Data Source=qkrs
cnn.Connected:=false;
myf:=TIniFile.Create(ExtractFilePath(Paramstr(0)) +INI_FILE);
Source:=myf.ReadString('conn','Source','');
Catalog:=myf.ReadString('conn','Catalog','');
supername:=myf.ReadString('conn','supername','');
password:=myf.ReadString('conn','password','');
cnn.ConnectionString :='Provider=SQLOLEDB.1;Password='+password+';Persist Security Info=True;User ID='+supername+';Initial Catalog='+Catalog+';Data Source='+source;
cnn.Connected:=true;
end;
这是数据模块!
 
后退
顶部