我现在想写一个类(TCategory),在其他对话框(TForm类)里用...我现在想写一个类,在其他对话框(TForm类)里用。
我这个类里会用到TADODataSet,TADOConnection等。但是TADODataSet在创建需要基于TComponent的Owner。
如: objADODataset := TADODataSet.Create(Self);那我该如何申请我的这个类,是让他从TComponent派生出来...
还是...象这种情况,我该怎么办?还请大侠指点!谢谢!Crane Zhou
2003.08.26
我这个类里会用到TADODataSet,TADOConnection等。但是TADODataSet在创建需要基于TComponent的Owner。
如: objADODataset := TADODataSet.Create(Self);那我该如何申请我的这个类,是让他从TComponent派生出来...
还是...象这种情况,我该怎么办?还请大侠指点!谢谢!Crane Zhou
2003.08.26
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
自己写的类最好是直接从基类派生
type yourclass=class
end;
你创建的类名=class(基类名)
end;
connection := TADOConnection.Create(nil);
connection.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+username+';Initial Catalog=CardBase;Data Source='+server+';password='+password+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=ZJH;Use Encryption for Data=False;';
connection.LoginPrompt := false;
try
connection.Connected :=True;
Result := True;
except
Result := False;
end;
end;