通過查詢返回數據庫對象的名稱

查詢:
     SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)=5 ORDER BY MSysObjects.Name;

     窗體:
     SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)          <>"~") AND (MSysObjects.Type)=-32768 ORDER BY MSysObjects.Name;

     表:
     SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)     <>"~") AND (Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name;

     報表:
     SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32764 ORDER BY MSysObjects.Name;

     模塊:
     SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32761 ORDER BY MSysObjects.Name;

     宏:
     SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32766 ORDER BY MSysObjects.Name;