f_init_ds_subjecttree.srf 829 B

123456789101112131415161718192021222324252627282930
  1. $PBExportHeader$f_init_ds_subjecttree.srf
  2. global type f_init_ds_subjecttree from function_object
  3. end type
  4. forward prototypes
  5. global function integer f_init_ds_subjecttree ()
  6. end prototypes
  7. global function integer f_init_ds_subjecttree ();//初始化
  8. String new_sqlstr,modify_str
  9. ds_subjecttree = CREATE datastore
  10. ds_subjecttree.DataObject = "d_subjectlistall"
  11. ds_subjecttree.SetTransObject(sqlca)
  12. ds_subjecttree.Retrieve(sys_accsetid)
  13. ddd_subid_display_detail = CREATE datastore
  14. ddd_subid_display_detail.DataObject = "ddd_subject_detail"
  15. ddd_subid_display_detail.SetTransObject(sqlca)
  16. ddd_subid_display_detail.Retrieve(sys_accsetid)
  17. ddd_subid_display = CREATE datastore
  18. ddd_subid_display.DataObject = "ddd_subject"
  19. ddd_subid_display.SetTransObject(sqlca)
  20. ddd_subid_display.Retrieve(sys_accsetid)
  21. RETURN 1
  22. end function