大概是想实现
在DataModule2
r:=DataModule2.table1
然后在Form1中使用
r.open
实现r.open代替DataModule2.table1.open;
该??????
解决方案 »
- 求一个 多线程获取网页源代码的 代码 越简单越好。
- cadimportvcl 5.25版,谁要?
- 请教98下无法截获MessageBoxA的问题
- 为什么我在三层结构中,用bde使用主从表,当从表有多条记录修改,applyupdate,老是会出现 no key!
- 关于MSDE 的两个问题 1、安装我的系统时如何自动安装MSDE???2、如何自动设置启动操作系统时启动MSSQLSERVER服务???
- 头都大了,为什么我的窗体上的东西看不见呢?
- 请教D6的报表组件打印设置的代码编写!
- ^o^:SOS delphi进入时报错:Dbx.DbI was not found or identified.It is needed to explore databases
- 请各位帮帮忙!
- 一个简单的查询问题111
- 求购一套完整的能够交互编辑的CBC矢量图源代码
- 这里有做收银管理系统开发的吗? 想大家求教能下载到常用收银机和各部件驱动、测试程序的网站,有吗?
是不是想在Form1中调用DataModule2的数据源?
如果是这样的话那就先在Form1中引用DataModule2,然后就可以直接这样DataModule2.r.open赋值了。或者你先定义一个变量,把DataModule2.r赋给它。这样就更简明了。
r:ttable;
begin
r:=ttable.create;
r:=DataModule2.table1;
r.open;
end;不过你这样有什么意义呢?直接引用DataModule2.table1多好啊
t:TTable;
begin
t:=DataModule2.Table1;
t.Open;
end;
r.open;
r.close;
等等...全用r代替
不具体指定数据模块,达到不需要修改Form1的代码,
哪个数据模块需要被Form1使用时,
就在数据模块的共用声明里加个r声明,然后r:=这个模块的某个表现在
public
r:ttable;
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
r:=DataModule2.Table1;
r.open;
end;
都通过了,
在Form中
r.open
被判定为:程序有错,不能调用....
DataModule2的
var
DataModule2: TDataModule2;
uandp:ttable;implementation{$R *.dfm}procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
uandp:=datamodule2.ZTable;
end;Form1的
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
uandp.open;
end;