GetDataSource - returns the identity of the data source
Source position: dbctrls.pp line 999
function TDBCalendar.GetDataSource: TDataSource;