盒子论坛 v2.1

从打开窗口里面选择路径，打开了一个数据库，在打开一个就成这样了，ADOcon,ADOquery,ADOTable全放到DataMoudel里了
procedure TMainForm.FileOpen1Execute(Sender: TObject);
begin
if(self.MDIChildCount<3) then
begin
  if OpenDialog.Execute then
  begin
    ADM.ADODataModule.ADOCon.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+self.OpenDialog.FileName+';';
    try
    if(ADODataModule.Connected) then
    ADODataModule.ADOCon.Close;
    CreateMDIChild(OpenDialog.FileName);
    Except
        ADODataModule.ADOCon.Close
    end;
  end;
end
else
Application.MessageBox('33333,'！',0);
end;

此帖子包含附件:

大小:39.7K

----------------------------------------------
http://www.videa.cn
C#/Pascal/Java

作者：

wjcking (wjcking)	★☆☆☆☆	-
	普通会员

2004/1/9 13:08:49

1楼：

大家帮忙看看
ADOcon,ADOquery,ADOTable全放到DataMoudel里了
子窗体中操作连接在不同各处的数据库（数据库字段都是一样的，就是里面内容不一样，更新数据库的时候，更新各个窗口连接数据库的内容）

----------------------------------------------
http://www.videa.cn
C#/Pascal/Java

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/1/9 13:54:38

2楼：

偶也来学习！谢谢！
----------------------------------------------

作者：

heihei_76 (小黑)	★☆☆☆☆	-
	盒子活跃会员

2004/1/9 14:25:51

3楼：

ADM不能是childform﹐就是不能動態創建.
向這種﹐你可以寫ini文件﹐就記錄datasource,username,password,dataserver之類的.然后﹐在打開主窗體的時候﹐就connect﹐最好一直connected比如
filename:=extractfilepath(paramstr(0))+'PB.ini';
inifile:=Tinifile.create(filename);
dbname:=inifile.ReadString('sample','database',');
servername:=inifile.ReadString('sample','servername',');
userid:=inifile.ReadString('sample','userid',');
pwd:=inifile.ReadString('sample','password',');
mainform.userid:=userid;
try
begin
s_dm.ADOConn1.ConnectionString:='Provider=SQLOLEDB.1;User ID='+userid+';password='+pwd+';Initial Catalog='+dbname+';Data Source='+servername+';Auto Translate=False;';
s_dm.ADOConn1.Connected:=true;
......
----------------------------------------------
-

﹗﹗﹗

信息

登陆以后才能回复