home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 April / PCWorld_2002-04_cd.bin / Akce / demo / data.z / ABDATA.BI < prev    next >
Text File  |  2001-07-11  |  21KB  |  602 lines
  1. <begin>
  2.  
  3. class DoCmd /// Commands using database objects ///
  4. {
  5. [methods:
  6.     [id(0x000003eb), helpstring("method Beep")]
  7.     HRESULT Beep();
  8.     [id(0x000003f0), helpstring("method Echo")]
  9.     HRESULT Echo(VARIANT EchoOn, VARIANT StatusBarText);
  10.     [id(0x000003f7), helpstring("method Maximize")]
  11.     HRESULT Maximize();
  12.     [id(0x000003f8), helpstring("method Minimize")]
  13.     HRESULT Minimize();
  14.     [id(0x000003f9), helpstring("method MoveSize")]
  15.     HRESULT MoveSize(VARIANT Right, VARIANT Down, VARIANT Width, VARIANT Height);
  16.     [id(0x000003fb), helpstring("method OpenDBForm")]
  17.     HRESULT OpenDBForm(VARIANT FormName);
  18.     [id(0x000003fc), helpstring("method OpenQuery")]
  19.     HRESULT OpenQuery(VARIANT QueryName);
  20.     [id(0x000003fd), helpstring("method OpenTable")]
  21.     HRESULT OpenTable(VARIANT Name);
  22.     [id(0x00000600), helpstring("method OpenRelation")]
  23.     HRESULT OpenRelation(VARIANT RelationName);
  24.  
  25.     [id(0x000003ff), helpstring("method Quit")]
  26.     HRESULT Quit(AbdQuitOption Options);
  27.     [id(0x0000040f), helpstring("method OpenReport")]
  28.     HRESULT OpenReport(VARIANT ReportName);
  29.     [id(0x00000642), helpstring("method RunCommand")]
  30.     HRESULT RunCommand(AbdCommand Command);
  31.  
  32.     [id(0x00000403), helpstring("method Restore")]
  33.     HRESULT Restore();
  34.  
  35.     [id(0x00000406), helpstring("method RunMacro")]
  36.     HRESULT RunMacro( VARIANT MacroName, VARIANT RepeatCount);
  37. ]
  38. };
  39.  
  40.  
  41. class Application //////
  42. {
  43. [properties:
  44.     [id(0x000007d5), propget, helpstring("property Application")]
  45.     HRESULT Application([retval] Application **ppRet);
  46.     [id(0x00000827), propget, helpstring("property Parent")]
  47.     HRESULT Parent([retval] IDispatch **ppRet);
  48.     [id(0x000007db), propget, helpstring("property CurrentObjectType")]
  49.     HRESULT CurrentObjectType([retval] AbdObjectType *pRet);
  50.     [id(0x000007dc), propget, helpstring("property CurrentObjectName")]
  51.     HRESULT CurrentObjectName([retval] BSTR *pRet);
  52.     [id(0x000007d2), propget, helpstring("property DBForms")]
  53.     HRESULT DBForms([retval] IDBForms **ppRet);
  54.     [id(0x000007d3), propget, helpstring("property Queries")]
  55.     HRESULT Queries([retval] IQueries **ppRet);
  56.     [id(0x000007d4), propget, helpstring("property Relations")]
  57.     HRESULT Relations([retval] IRelations **ppRet);
  58.     [id(0x000007d6), propget, helpstring("property Reports")]
  59.     HRESULT Reports([retval] IReports **ppRet);
  60.     [id(0x000007d7), propget, helpstring("property Tables")]
  61.     HRESULT Tables([retval] ITables **ppRet);
  62.     [id(0x000007e9), propget, helpstring("property DoCmd")]
  63.     HRESULT DoCmd([retval] IDoCmd **pRet);
  64.     [id(0x00000864), propget, helpstring("property Visible")]
  65.     HRESULT Visible([retval] VARIANT_BOOL *pfVisible);
  66.     [id(0x00000864), propput, helpstring("property Visible")]
  67.     HRESULT Visible(VARIANT_BOOL fVisible);
  68.     [id(0x00000865), propget, helpstring("property UserControl")]
  69.     HRESULT UserControl([retval] VARIANT_BOOL *pfUserCtrl);
  70.     [id(0x00000865), propput, helpstring("property UserControl")]
  71.     HRESULT UserControl(VARIANT_BOOL fUserCtrl);
  72.     [id(0x0000083e), propget, helpstring("property DBEngine")]
  73.     HRESULT DBEngine([retval] DBEngine **ppRet );
  74.     [propget, id(1), helpstring("property Databases")] 
  75.     HRESULT Databases([retval] IDatabases* *pVal);
  76.     [propget, id(2), helpstring("property ActiveDatabase")] 
  77.     HRESULT ActiveDatabase([retval] IDatabase* *pVal);
  78.     [propget, id(3), helpstring("property ActiveDataObject")] 
  79.     HRESULT ActiveDataObject([retval] IDispatch* *pVal);
  80.     [propget, id(4), helpstring("property ActiveRecord")] 
  81.     HRESULT ActiveRecord([retval] Fields* *pVal);
  82. ]
  83. [methods:
  84.     [id(0x0000085e), helpstring("method NewCurrentDatabase")]
  85.     HRESULT NewCurrentDatabase(BSTR filepath);
  86.     [id(0x0000085c), helpstring("method OpenCurrentDatabase")]
  87.     HRESULT OpenCurrentDatabase(BSTR filepath, VARIANT_BOOL Exclusive);
  88.     [id(0x000007df), helpstring("method Echo")]
  89.     HRESULT Echo(short EchoOn, BSTR bstrStatusBarText);
  90.     [id(0x0000085d), helpstring("method CloseCurrentDatabase")]
  91.     HRESULT CloseCurrentDatabase();
  92.     [id(0x000007e0), helpstring("method Quit")]
  93.     HRESULT Quit(AbdQuitOption Option);
  94.     [id(0x00000801), helpstring("method CurrentDb")]
  95.     HRESULT CurrentDb([retval] Database **ppRet);
  96.     [id(0x0000086e), helpstring("method RefreshTitleBar")]
  97.     HRESULT RefreshTitleBar();
  98.     [id(0x0000088a), helpstring("method RefreshDatabaseWindow")]
  99.     HRESULT RefreshDatabaseWindow();
  100. ]
  101. };
  102.  
  103.  
  104. class DBForms //////
  105. {
  106. [properties:
  107.     [id(2005), propget, helpstring("property Application")]
  108.     HRESULT Application( retval Application **ppRet);
  109.     [id(2087), propget, helpstring("property Parent")]
  110.     HRESULT Parent( retval IDispatch **ppRet);
  111.     [id(00000000), propget, helpstring("property Item")]
  112.     HRESULT Item( VARIANT Index,  retval DBForm **ppRet);
  113.     [id(2001), propget, helpstring("property Count")]
  114.     HRESULT Count( retval long *pRet);
  115. ]
  116. [methods:
  117.     [id(1), helpstring("method Open")] 
  118.     HRESULT Open(VARIANT Index, [retval]DBForm** ppRet);
  119. ]
  120. };
  121.  
  122. class Tables //////
  123. {
  124. [properties:
  125.     [id(2005), propget, helpstring("property Application")]
  126.     HRESULT Application( retval Application **ppRet);
  127.     [id(2087), propget, helpstring("property Parent")]
  128.     HRESULT Parent( retval IDispatch **ppRet);
  129.     [id(00000000), propget, helpstring("property Item")]
  130.     HRESULT Item( VARIANT Index,  retval ABTable **ppRet);
  131.     [id(2001), propget, helpstring("property Count")]
  132.     HRESULT Count( retval long *pRet);
  133. ]
  134. [methods:
  135.     [id(1), helpstring("method Open")] 
  136.     HRESULT Open(VARIANT Index, [retval]ABTable** ppRet);
  137. ]
  138. };
  139.  
  140. class Queries //////
  141. {
  142. [properties:
  143.     [id(2005), propget, helpstring("property Application")]
  144.     HRESULT Application( retval Application **ppRet);
  145.     [id(2087), propget, helpstring("property Parent")]
  146.     HRESULT Parent( retval IDispatch **ppRet);
  147.     [id(00000000), propget, helpstring("property Item")]
  148.     HRESULT Item( VARIANT Index,  retval ABQuery **ppRet);
  149.     [id(2001), propget, helpstring("property Count")]
  150.     HRESULT Count( retval long *pRet);
  151. ]
  152. [methods:
  153.     [id(1), helpstring("method Open")] 
  154.     HRESULT Open(VARIANT Index, [retval]ABQuery** ppRet);
  155. ]
  156. };
  157.  
  158. class Relations //////
  159. {
  160. [properties:
  161.     [id(2005), propget, helpstring("property Application")]
  162.     HRESULT Application( retval Application **ppRet);
  163.     [id(2087), propget, helpstring("property Parent")]
  164.     HRESULT Parent( retval IDispatch **ppRet);
  165.     [id(00000000), propget, helpstring("property Item")]
  166.     HRESULT Item( VARIANT Index,  retval ABRelation **ppRet);
  167.     [id(2001), propget, helpstring("property Count")]
  168.     HRESULT Count( retval long *pRet);
  169. ]
  170. [methods:
  171.     [id(1), helpstring("method Open")] 
  172.     HRESULT Open(VARIANT Index, [retval]ABRelation** ppRet);
  173. ]
  174. };
  175.  
  176.  
  177. class Properties //////
  178. {
  179. [properties:
  180.     [id(2005), propget, helpstring("property Application")]
  181.     HRESULT Application( retval Application **ppRet);
  182.     [id(2087), propget, helpstring("property Parent")]
  183.     HRESULT Parent( retval IDispatch **ppRet);
  184.     [id(00000000), propget, helpstring("property Item")]
  185.     HRESULT Item( VARIANT Index,  retval IDispatch **ppRet);
  186.     [id(2001), propget, helpstring("property Count")]
  187.     HRESULT Count( retval long *pRet);
  188. ]
  189. };
  190.  
  191. class DBForm //////
  192. {
  193. [properties:
  194.     [id(0x00000027), propget, helpstring("property FormName")]
  195.     HRESULT FormName( retval BSTR *pRet);
  196.     [id(0x00000027), propput, helpstring("property FormName")]
  197.     HRESULT FormName( BSTR Val);
  198.  
  199.     [id(0x00000829), propget, helpstring("property DBForm")]
  200.     HRESULT DBForm([retval] DBForm **ppRet);
  201.     [id(0x0000082b), propget, helpstring("property Properties")]
  202.     HRESULT Properties([retval] IProperties **ppRet);
  203.  
  204.     [id(00000000), propget, helpstring("property Controls")]
  205.     HRESULT Controls( retval IControls **ppRet);
  206.     [propget, id(3), helpstring("property Database")] 
  207.     HRESULT Database([retval] IDatabase* *pVal);
  208.     [propget, id(4), helpstring("property Type")] 
  209.     HRESULT Type([retval] long *pVal);
  210.  
  211.     [id(0x0000014e), propget, helpstring("property CurrentRecord")]
  212.     HRESULT CurrentRecord([retval] long *pRet);
  213.  
  214.  
  215.     [propget, id(0x0000085d), helpstring("property NoMatch")] 
  216.     HRESULT NoMatch(retval VARIANT_BOOL *pVal);
  217.  
  218.     [id(1), helpstring("property Fields")]
  219.     HRESULT Fields( retval Fields ** ppRet);
  220.     
  221.     [propget, id(0x000000f8), helpstring("property RecordCount")] 
  222.     HRESULT RecordCount(retval long *pVal);
  223. ]
  224. [methods:
  225.     [id(1), helpstring("method Close")]
  226.     HRESULT Close();
  227.     [id(2), helpstring("method Activate")]
  228.     HRESULT Activate();
  229.  
  230.     [id(0x0000082a), helpstring("method MoveFirst")]
  231.     HRESULT MoveFirst();
  232.     [id(0x0000082f), helpstring("method MoveLast")]
  233.     HRESULT MoveLast();
  234.     [id(0x0000082e), helpstring("method MoveNext")]
  235.     HRESULT MoveNext();
  236.     [id(0x0000082d), helpstring("method MovePrevious")]
  237.     HRESULT MovePrevious();
  238.     [id(0xfffffdda), helpstring("method Refresh")]
  239.     HRESULT Refresh();
  240.  
  241.     [id(0x000003f2), helpstring("method FindNext")]
  242.     HRESULT FindNext(BSTR FindCriteria); 
  243.     [id(0x000003f3), helpstring("method FindPrevious")]
  244.     HRESULT FindPrevious(BSTR FindCriteria); 
  245.     [id(0x000003f4), helpstring("method FindFirst")]        
  246.     HRESULT FindFirst(BSTR FindCriteria); 
  247.     [id(0x000003f5), helpstring("method FindLast")]
  248.     HRESULT FindLast(BSTR FindCriteria); 
  249.  
  250.     [id(0x000003f6), helpstring("method Move")]
  251.     HRESULT Move(long RecordNumber); 
  252.  
  253. ]
  254. };
  255.  
  256.  
  257. class Report //////
  258. {
  259. [properties:
  260.  
  261.     [id(0x00000027), propget, helpstring("property ReportName")]
  262.     HRESULT ReportName([retval] BSTR *pRet);
  263.     [id(0x00000014), propget, helpstring("property Name")]
  264.     HRESULT Name([retval] BSTR *pRet);
  265.     [id(0x0000082b), propget, helpstring("property Properties")]
  266.     HRESULT Properties([retval] IProperties **ppRet);
  267.     [id(00000000), propget, helpstring("property Controls")]
  268.     HRESULT Controls([retval] IControls **ppRet);
  269.  
  270.     [propget, id(3), helpstring("property Database")] 
  271.     HRESULT Database([retval] IDatabase* *pVal);
  272.     [propget, id(4), helpstring("property Type")] 
  273.     HRESULT Type([retval] long *pVal);
  274.     [id(2097), propget, helpstring("property Report")]
  275.     HRESULT Report( retval Report **ppRet);
  276. ]
  277. [methods:
  278.     [id(2153), helpstring("method Print")]
  279.     HRESULT Print( BSTR Expr);
  280.     [id(1), helpstring("method Close")]
  281.     HRESULT Close();
  282.     [id(2), helpstring("method Activate")]
  283.     HRESULT Activate();
  284. ]
  285. };
  286.  
  287. class Reports //////
  288. {
  289. [properties:
  290.     [id(2005), propget, helpstring("property Application")]
  291.     HRESULT Application( retval Application **ppRet);
  292.     [id(2087), propget, helpstring("property Parent")]
  293.     HRESULT Parent( retval IDispatch **ppRet);
  294.     [id(00000000), propget, helpstring("property Item")]
  295.     HRESULT Item( VARIANT Index,  retval Report **ppRet);
  296.     [id(2001), propget, helpstring("property Count")]
  297.     HRESULT Count( retval long *pRet);
  298. ]
  299. [methods:
  300.     [id(1), helpstring("method Open")] 
  301.     HRESULT Open(VARIANT Index, [retval]Report** ppRet);
  302. ]
  303. };
  304.  
  305.  
  306. class AbDataProperty //////
  307. {
  308. [properties:
  309.     [id(2005), propget, helpstring("property Application")]
  310.     HRESULT Application( [retval] Application **ppRet);
  311.     [id(2087), propget, helpstring("property Parent")]
  312.     HRESULT Parent( [retval] IDispatch **ppRet);
  313. ]
  314. };
  315.  
  316. class Database //////
  317. {
  318. [properties:
  319.     [propget, id(2), helpstring("property Tables")] 
  320.     HRESULT Tables([retval] ITables* *pVal);
  321.     [propget, id(3), helpstring("property Querys")] 
  322.     HRESULT Queries([retval] IQueries* *pVal);
  323.     [propget, id(4), helpstring("property Relations")] 
  324.     HRESULT Relations([retval] IRelations* *pVal);
  325.     [propget, id(5), helpstring("property DBForms")] 
  326.     HRESULT DBForms([retval] IDBForms* *pVal);
  327.     [propget, id(6), helpstring("property Reports")] 
  328.     HRESULT Reports([retval] IReports* *pVal);
  329.     [propget, id(9), helpstring("property Name")]
  330.     HRESULT Name([retval] BSTR *pVal);
  331.     [propget, id(10), helpstring("property Admin")]
  332.     HRESULT Admin([retval] Database* *pVal);
  333. ]
  334. [methods:
  335.     [id(8), helpstring("method Close")] 
  336.     HRESULT Close();
  337. ]
  338. };
  339.  
  340. class Databases //////
  341. {
  342. [properties:
  343.     [propget, id(8), helpstring("property Application")]
  344.     HRESULT Application([retval] IDispatch* *pVal);
  345.     [propget, id(0), helpstring("property Item")]
  346.     HRESULT Item(VARIANT Index, [retval] IDatabase* *pVal);
  347.     [propget, id(10), helpstring("property Count")] 
  348.     HRESULT Count([retval] long *pVal);
  349. ]
  350. [methods:
  351.     [id(5), helpstring("method Open")]
  352.     HRESULT Open(BSTR fileName, VARIANT_BOOL exclusive);
  353.     [id(6), helpstring("method Add")]
  354.     HRESULT Add(BSTR filepath);
  355. ]
  356. };
  357.  
  358.     
  359. class BField //////
  360. {
  361. [properties:
  362.     [id(0x00000014), propget, helpstring("property Name")]
  363.     HRESULT Name([retval] BSTR *pRet);
  364.     [id(0x00000014), propput, helpstring("property Name")]
  365.     HRESULT Name(BSTR pRet);
  366.  
  367.     [id(0x0000001c), propget, helpstring("property BackColor")]
  368.     HRESULT BackColor([retval] long *pRet);
  369.     [id(0x000000cb), propget, helpstring("property ForeColor")]
  370.     HRESULT ForeColor([retval] long *pRet);
  371.     [id(0x000000cb), propput, helpstring("property ForeColor")]
  372.     HRESULT ForeColor(long pRet);
  373.  
  374.     [id(0x00000022), propget, helpstring("property FontName")]
  375.     HRESULT FontName([retval] BSTR *pRet);
  376.     [id(0x00000022), propput, helpstring("property FontName")]
  377.     HRESULT FontName(BSTR pRet);
  378.     [id(0x00000023), propget, helpstring("property FontSize")]
  379.     HRESULT FontSize([retval] short *pRet);
  380.     [id(0x00000023), propput, helpstring("property FontSize")]
  381.     HRESULT FontSize(short pRet);
  382.     [id(0x00000025), propget, helpstring("property FontWeight")]
  383.     HRESULT FontWeight([retval] short *pRet);
  384.     [id(0x00000025), propput, helpstring("property FontWeight")]
  385.     HRESULT FontWeight(short pRet);
  386.     [id(0x00000021), propget, helpstring("property FontItalic")]
  387.     HRESULT FontItalic([retval] VARIANT_BOOL *pRet);
  388.     [id(0x00000021), propput, helpstring("property FontItalic")]
  389.     HRESULT FontItalic(VARIANT_BOOL pRet);
  390.     [id(0x00000020), propget, helpstring("property FontBold")]
  391.     HRESULT FontBold([retval] short *pRet);
  392.     [id(0x00000020), propput, helpstring("property FontBold")]
  393.     HRESULT FontBold(short pRet);
  394. ]
  395. };
  396.  
  397.  
  398. class Table //////
  399. {
  400. [properties:
  401.  
  402.     [propget, id(0x0000000D), helpstring("property Database")] 
  403.     HRESULT Database([retval] IDatabase* *pVal);
  404.     [propget, id(0x0000000E), helpstring("property Type")] 
  405.     HRESULT Type([retval] long *pVal);
  406.     [id(1), helpstring("property Fields")]
  407.     HRESULT Fields( retval Fields ** ppRet);
  408.     [id(2), propget, helpstring("property Name")]
  409.     HRESULT Name( retval BSTR * pVal);
  410.     [id(7), propget, helpstring("property CurrentRecord")]
  411.     HRESULT CurrentRecord( retval long * pRet);
  412.     [id(7), propput, helpstring("property CurrentRecord")]
  413.     HRESULT CurrentRecord( long pRet);
  414.     [propget, id(0x00000010), helpstring("property RecordCount")]
  415.     HRESULT RecordCount(retval long *pVal);
  416.     [propget, id(0x00000011), helpstring("property BOF")]
  417.     HRESULT BOF(retval VARIANT_BOOL *pVal);
  418.     [propget, id(0x00000012), helpstring("property EOF")]
  419.     HRESULT EOF(retval VARIANT_BOOL *pVal);
  420.     
  421.     [propget, id(0x0000085d), helpstring("property NoMatch")] 
  422.     HRESULT NoMatch(retval VARIANT_BOOL *pVal);
  423. ]
  424. [methods:
  425.     [id(0x00000008), helpstring("method EditRecord")]
  426.     HRESULT EditRecord();
  427.     [id(0x00000009), helpstring("method AddNewRecord")]
  428.     HRESULT AddNewRecord();
  429.     [id(0x0000000A), helpstring("method UpdateRecord")]
  430.     HRESULT UpdateRecord();
  431.  
  432.     [id(3), helpstring("method MoveFirst")]
  433.     HRESULT MoveFirst();
  434.     [id(4), helpstring("method MoveLast")]
  435.     HRESULT MoveLast();
  436.     [id(5), helpstring("method MoveNext")]
  437.     HRESULT MoveNext();
  438.     [id(6), helpstring("method MovePrevious")]
  439.     HRESULT MovePrevious();
  440.     [id(0x0000000B), helpstring("method Close")]
  441.     HRESULT Close();
  442.     [id(0x0000000C), helpstring("method Activate")] 
  443.     HRESULT Activate();
  444.  
  445.     [id(0x000003f2), helpstring("method FindNext")]
  446.     HRESULT FindNext(BSTR FindCriteria); 
  447.     [id(0x000003f3), helpstring("method FindPrevious")]
  448.     HRESULT FindPrevious(BSTR FindCriteria); 
  449.     [id(0x000003f4), helpstring("method FindFirst")]        
  450.     HRESULT FindFirst(BSTR FindCriteria); 
  451.     [id(0x000003f5), helpstring("method FindLast")]
  452.     HRESULT FindLast(BSTR FindCriteria); 
  453.  
  454.     [id(0x000003f6), helpstring("method Move")]
  455.     HRESULT Move( long RecordNumber); 
  456. ]
  457. };    
  458.  
  459.  
  460. class Query //////
  461. {
  462. [properties:
  463.     [propget, id(0x0000000D), helpstring("property Database")] 
  464.     HRESULT Database([retval] IDatabase* *pVal);
  465.     [propget, id(0x0000000E), helpstring("property Type")] 
  466.     HRESULT Type([retval] long *pVal);
  467.     [id(1), helpstring("property Fields")]
  468.     HRESULT Fields( retval Fields ** ppRet);
  469.     [id(2), propput, helpstring("property Name")]
  470.     HRESULT Name( retval BSTR * pVal);
  471.     [id(2), propget, helpstring("property Name")]
  472.     HRESULT Name( BSTR Val);
  473.     [id(7), propget, helpstring("property CurrentRecord")]
  474.     HRESULT CurrentRecord( retval long * pRet);
  475.     [id(7), propput, helpstring("property CurrentRecord")]
  476.     HRESULT CurrentRecord( long pRet);
  477.     [propget, id(0x00000010), helpstring("property RecordCount")]
  478.     HRESULT RecordCount(retval long *pVal);
  479.     [propget, id(0x00000011), helpstring("property BOF")]
  480.     HRESULT BOF(retval VARIANT_BOOL *pVal);
  481.     [propget, id(0x00000012), helpstring("property EOF")]
  482.     HRESULT EOF(retval VARIANT_BOOL *pVal);
  483.  
  484.     [propget, id(0x0000085d), helpstring("property NoMatch")] 
  485.     HRESULT NoMatch(retval VARIANT_BOOL *pVal);
  486. ]
  487. [methods:
  488.  
  489.     [id(0x00000008), helpstring("method EditRecord")]
  490.     HRESULT EditRecord();
  491.     [id(0x00000009), helpstring("method AddNewRecord")]
  492.     HRESULT AddNewRecord();
  493.     [id(0x0000000A), helpstring("method UpdateRecord")]
  494.     HRESULT UpdateRecord();
  495.  
  496.     [id(3), helpstring("method MoveFirst")]
  497.     HRESULT MoveFirst();
  498.     [id(4), helpstring("method MoveLast")]
  499.     HRESULT MoveLast();
  500.     [id(5), helpstring("method MoveNext")]
  501.     HRESULT MoveNext();
  502.     [id(6), helpstring("method MovePrevious")]
  503.     HRESULT MovePrevious();
  504.     [id(0x0000000B), helpstring("method Close")]
  505.     HRESULT Close();
  506.     [id(0x0000000C), helpstring("method Activate")]
  507.     HRESULT Activate();
  508.  
  509.     [id(0x000003f2), helpstring("method FindNext")]
  510.     HRESULT FindNext(BSTR FindCriteria); 
  511.     [id(0x000003f3), helpstring("method FindPrevious")]
  512.     HRESULT FindPrevious(BSTR FindCriteria); 
  513.     [id(0x000003f4), helpstring("method FindFirst")]        
  514.     HRESULT FindFirst(BSTR FindCriteria); 
  515.     [id(0x000003f5), helpstring("method FindLast")]
  516.     HRESULT FindLast(BSTR FindCriteria); 
  517.  
  518.     [id(0x00000018), helpstring("method Move")]
  519.     HRESULT Move(long RecordNumber); 
  520. ]
  521. };    
  522.  
  523. class Controls ///////
  524. {
  525. [properties:
  526.         [id(0x000007d5), propget, helpstring("property Application")]
  527.         HRESULT Application( [retval] Application **ppRet);
  528.  
  529.         [id(0x00000827), propget, helpstring("property Parent")]
  530.         HRESULT Parent([retval] IDispatch **ppRet);
  531.  
  532.         [id(00000000), propget, helpstring("property Item")]
  533.         HRESULT Item(VARIANT Index,  [retval] IDispatch **ppRet);
  534.  
  535.         [id(0x000007d1), propget, helpstring("property Count")]
  536.         HRESULT Count( [retval] long *pRet);
  537. ]
  538. };
  539.  
  540. class Relation //////
  541. {
  542. [properties:
  543.     [propget, id(0x0000000D), helpstring("property Database")] 
  544.     HRESULT Database([retval] IDatabase* *pVal);
  545.     [propget, id(0x0000000E), helpstring("property Type")] 
  546.     HRESULT Type([retval] long *pVal);
  547.     [id(1), helpstring("property Fields")]
  548.     HRESULT Fields( retval Fields ** ppRet);
  549.     [id(2), propget, helpstring("property Name")]
  550.     HRESULT Name( retval BSTR * pVal);
  551.     [id(2), propput, helpstring("property Name")]
  552.     HRESULT Name( BSTR Val);
  553.     [id(7), propget, helpstring("property CurrentRecord")]
  554.     HRESULT CurrentRecord( retval long * pRet);
  555.     [id(7), propput, helpstring("property CurrentRecord")]
  556.     HRESULT CurrentRecord( long pRet);
  557.     [propget, id(0x00000010), helpstring("property RecordCount")]
  558.     HRESULT RecordCount(retval long *pVal);
  559.     [propget, id(0x00000011), helpstring("property BOF")]
  560.     HRESULT BOF(retval VARIANT_BOOL *pVal);
  561.     [propget, id(0x00000012), helpstring("property EOF")]
  562.     HRESULT EOF(retval VARIANT_BOOL *pVal);
  563.  
  564.     [propget, id(0x0000085d), helpstring("property NoMatch")] 
  565.     HRESULT NoMatch(retval VARIANT_BOOL *pVal);
  566. ]
  567. [methods:
  568.     [id(0x00000008), helpstring("method EditRecord")]
  569.     HRESULT EditRecord();
  570.     [id(0x00000009), helpstring("method AddNewRecord")]
  571.     HRESULT AddNewRecord();
  572.     [id(0x0000000A), helpstring("method UpdateRecord")]
  573.     HRESULT UpdateRecord();
  574.     
  575.     [id(3), helpstring("method MoveFirst")]
  576.     HRESULT MoveFirst();
  577.     [id(4), helpstring("method MoveLast")]
  578.     HRESULT MoveLast();
  579.     [id(5), helpstring("method MoveNext")]
  580.     HRESULT MoveNext();
  581.     [id(6), helpstring("method MovePrevious")]
  582.     HRESULT MovePrevious();
  583.     [id(0x0000000B), helpstring("method Close")]
  584.     HRESULT Close();
  585.     [id(0x0000000C), helpstring("method Activate")] 
  586.     HRESULT Activate();
  587.  
  588.     [id(0x000003f2), helpstring("method FindNext")]
  589.     HRESULT FindNext(BSTR FindCriteria); 
  590.     [id(0x000003f3), helpstring("method FindPrevious")]
  591.     HRESULT FindPrevious(BSTR FindCriteria); 
  592.     [id(0x000003f4), helpstring("method FindFirst")]        
  593.     HRESULT FindFirst(BSTR FindCriteria); 
  594.     [id(0x000003f5), helpstring("method FindLast")]
  595.     HRESULT FindLast(BSTR FindCriteria); 
  596.  
  597.     [id(0x000003f6), helpstring("method Move")]
  598.     HRESULT Move(long RecordNumber); 
  599. ]
  600. };    
  601.  
  602.