f_start_asset.srf 678 B

12345678910111213141516171819202122232425262728293031323334353637
  1. $PBExportHeader$f_start_asset.srf
  2. global type f_start_asset from function_object
  3. end type
  4. forward prototypes
  5. global subroutine f_start_asset (integer arg_t)
  6. end prototypes
  7. global subroutine f_start_asset (integer arg_t);
  8. String arg_msg
  9. uo_accset uo_beginaccset
  10. uo_beginaccset = CREATE uo_accset
  11. IF arg_t = 1 THEN
  12. IF uo_beginaccset.begin_accset(arg_msg,TRUE) = 0 THEN
  13. MessageBox("系统提示",arg_msg)
  14. GOTO ext
  15. END IF
  16. ELSE
  17. IF uo_beginaccset.cancel_begin_accset(arg_msg) = 0 THEN
  18. MessageBox('系统提示',arg_msg)
  19. GOTO ext
  20. END IF
  21. END IF
  22. IF IsValid(w_main_scware) THEN
  23. w_main_scware.wf_build_menutree()
  24. END IF
  25. ext:
  26. DESTROY uo_beginaccset
  27. end subroutine