F feigepan Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-20 #1 adoquery、adotable如何作为参数传递给过程或函数,好编写修改数据、删除数据的通用过程? (不过要编写查询、插入的过程函数好象还是很难。)
Y ysai Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-20 #2 不好吧,把ADOQuery,ADOTable放在数据模块中,在通用过程的单元中引用数据模块就行了
D djdsz Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-22 #4 很简单的啊,对象都是指针,传一个指针就好了.比如TNotifyEvent的参数sender就是
J jsxjd Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-22 #5 procedure Myproc(Table:TAdoTable) begin Table.First; end; Myproc(AdoTable1)
X xiaoyin Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-22 #6 我试试 TDataSetClass := Class of TDataSet; Porcedure Add(ADataClass : TDataSetClass); var ADataSet : TADODataSet; begin ADataSet := ADataClass.create; try ADataSet.ConnectionString :='...'; ADataSet.CommandTExt :='inSert into...'; ADataSet.Open; Finally ADataSet.free; end; end;
我试试 TDataSetClass := Class of TDataSet; Porcedure Add(ADataClass : TDataSetClass); var ADataSet : TADODataSet; begin ADataSet := ADataClass.create; try ADataSet.ConnectionString :='...'; ADataSet.CommandTExt :='inSert into...'; ADataSet.Open; Finally ADataSet.free; end; end;