你自己写一个类似的模版窗口,然后选中该窗口,安右键选择add to Repository,将其添加入仓库中,然后你使用时只要选择菜单New..,选择你添加的窗口模板,然后设置相关的属性就可以了
用actionlist,可以解决你的问题,你在standard上选择actionlist --点右键选 择new standard action...选 择dataset.然后放几个button. 将button的action属性设为 DataSetFirst1/ or other
可以这种试试: 先设计好你的窗体,放上TDataSource和一些数据显示控件。这些完成以后,右键点击设计好的窗体弹出一个ShortCut菜单,点击“Add to Repository”弹出一个 对话框,在这个框中写上tile=TBDForm,page=Forms,确定就行了。然后在编程时,要用到的话,可以File->New->Other->Forms里选取了
可以手动在BaseForm写一个DataSet属性,然后对这个DataSet属性进行操作不就OK了。 published property DataSet:TDataSet read FDataSet write FDataSet; end; 使用时,要返回具体的数据集类 if FDataSet is TTable then table1:=TTable(FDataSet) else if FDataSet is TQuery then query1:=TQuery(FDataSet); 以下只要对table1或query1操作就ok了
--点右键选 择new standard action...选 择dataset.然后放几个button.
将button的action属性设为
DataSetFirst1/ or other
先设计好你的窗体,放上TDataSource和一些数据显示控件。这些完成以后,右键点击设计好的窗体弹出一个ShortCut菜单,点击“Add to Repository”弹出一个
对话框,在这个框中写上tile=TBDForm,page=Forms,确定就行了。然后在编程时,要用到的话,可以File->New->Other->Forms里选取了
然后再调用时就可以了
published
property DataSet:TDataSet read FDataSet write FDataSet;
end;
使用时,要返回具体的数据集类
if FDataSet is TTable then
table1:=TTable(FDataSet)
else if FDataSet is TQuery then
query1:=TQuery(FDataSet);
以下只要对table1或query1操作就ok了