home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 January / VPR9701A.ISO / PROJ95 / EXAMPLES / TIMETRAK / GLOBAL.BAS next >
BASIC Source File  |  1996-08-21  |  10KB  |  195 lines
  1. 'GLOBAL.BAS  -  このファイルには、Timesheet プログラムで使用する
  2. 'グローバル定数、グローバル変数、および編集可能な文字列がすべて含まれます。
  3. '
  4. '
  5.  
  6. '***** 編集可能な文字列 *****
  7. '
  8. 'このセクションでは、すべてのメッセージ ボックスの
  9. '文字列とタイトルを、グローバル定数として宣言します。
  10. '
  11. Global Const MB_CANNOT_CREATE_OBJECT = "Microsoft Project ｵﾌﾞｼﾞｪｸﾄを作成できません。Version 4.0 以降の Microsoft Project が実行されているかどうかを確認してください。"
  12. Global Const MB_PROJ_NOT_RUNNING = "Microsoft Project は現在実行されていません。Microsoft Project を起動してから、もう一度 Timesheet を実行してください。"
  13. Global Const MB_TIMESHEET = "Microsoft Project ﾀｲﾑｼｰﾄ"
  14. Global Const MB_NO_RESOURCES = "作業中のﾌﾟﾛｼﾞｪｸﾄには、ﾘｿｰｽが 1 つも設定されていません。ﾘｿｰｽが設定されていないﾌﾟﾛｼﾞｪｸﾄに対して Timesheet を使用することはできません。"
  15. Global Const MB_NO_TASKS = "作業中のﾌﾟﾛｼﾞｪｸﾄには、ﾀｽｸが 1 つも設定されていません。ﾀｽｸが設定されていないﾌﾟﾛｼﾞｪｸﾄに対して Timesheet を使用することはできません。"
  16. Global Const MB_NO_ASSIGNED_RESOURCES = "ﾘｿｰｽのうち、指定した日付の範囲内のﾀｽｸに割り当てられているものはありません。"
  17. Global Const MB_NO_OPEN_PROJECTS = "Timesheet を実行する前に、対象となるﾌﾟﾛｼﾞｪｸﾄ ﾌｧｲﾙを開いてください。"
  18. Global Const MB_NO_RES_SELECTION = "[ﾘｿｰｽ] ﾎﾞｯｸｽの一覧からﾘｿｰｽを選択してください。"
  19. Global Const MB_FROMDATE = """開始日"" ﾌｨｰﾙﾄﾞの日付の形式が正しくありません。"
  20. Global Const MB_TODATE = """終了日"" ﾌｨｰﾙﾄﾞの日付の形式が正しくありません。"
  21. Global Const MB_BAD_DATE_ORDER = """開始日"" ﾌｨｰﾙﾄﾞには、""終了日"" ﾌｨｰﾙﾄﾞより前の日付を入力してください。"
  22. Global Const MB_NO_VALID_ASSIGNMENTS = "選択したﾘｿｰｽには、指定した日付の範囲内のﾀｽｸへの割り当てはありません。"
  23. Global Const MB_GENERIC_ERROR = "ｴﾗｰが発生したため、Timesheet を終了します。Microsoft Project が実行されているかどうかを確認し、もう一度 Timesheet を実行してください。"
  24. Global Const MB_UNRECOGNIZED_ENTRY = "作業時間が正しくありません。"
  25. Global Const MB_LESS_THAN_ZERO = "0 以上の値を入力してください。"
  26. Global Const MB_BAD_DATE_FORMAT = "書式が正しくないため、入力内容を日付として認識できません。"
  27. Global Const MB_BAD_DATE_RANGE = "指定した日付の範囲は、作業中のﾌﾟﾛｼﾞｪｸﾄで設定されている日付の範囲を超えています。"
  28. Global Const MB_START_NOT_VALID = "ﾀｽｸの開始日がﾌﾟﾛｼﾞｪｸﾄの開始日より早くなります。"
  29. Global Const MB_FINISH_NOT_VALID = "ﾀｽｸの終了日がﾀｽｸの開始日より早くなります。"
  30. Global Const MB_BAD_ASOF_DATE = "[更新の基準] の日付が正しくありません。有効な日付を入力してください。"
  31. Global Const MB_PREVINSTANCE = "Microsoft Project Timesheet のｺﾋﾟｰが既にｱｸﾃｨﾌﾞになっています。"
  32. Global Const MB_CONSOLIDATED_PROJECT = "現在作業中のﾌﾟﾛｼﾞｪｸﾄは、統合ﾌﾟﾛｼﾞｪｸﾄです。Timesheet は統合ﾌﾟﾛｼﾞｪｸﾄに対応していません。各ﾌﾟﾛｼﾞｪｸﾄに対して Timesheet を個別に実行してください。"
  33. Global Const MB_RES_SHARING = "現在作業中のﾌﾟﾛｼﾞｪｸﾄは、別のﾌﾟﾛｼﾞｪｸﾄ ﾌｧｲﾙのﾘｿｰｽを共有しています。Timesheet は共有ﾘｿｰｽが設定されたﾌﾟﾛｼﾞｪｸﾄに対応していません。"
  34. Global Const MB_NO_TASK_VIEW = "Timesheet では、ｱｸﾃｨﾌﾞ ﾋﾞｭｰをﾀｽｸ ﾋﾞｭｰに切り替えることができません。ｱｸﾃｨﾌﾞ ﾋﾞｭｰは、ｶﾞﾝﾄ ﾁｬｰﾄや PERT ﾁｬｰﾄのように、ﾀｽｸ志向のﾋﾞｭｰでなければなりません。ﾀｽｸ ﾋﾞｭｰに切り替えてから、もう一度 Timesheet を実行してください。"
  35. Global Const MB_AUTOTRACK = "[ﾂｰﾙ] - [ｵﾌﾟｼｮﾝ] の [ｽｹｼﾞｭｰﾙ] ﾀﾌﾞの [ﾀｽｸの更新時にﾘｿｰｽの状況を自動更新] ﾁｪｯｸ ﾎﾞｯｸｽをｵﾌにしました。Timesheet の使用中にこのﾁｪｯｸ ﾎﾞｯｸｽをｵﾝにすると、Timesheet での変更内容が失われる場合があります。"
  36.  
  37. Global Const CAP_FRM_OPTIONS = "ﾘｿｰｽの更新ｵﾌﾟｼｮﾝ"    'frmOptions のキャプション
  38. Global Const CAP_FRM_TINFO = "ﾘｿｰｽの作業時間の更新"         'frmTInfo の初期状態のキャプション
  39. Global Const CAP_SPLASH1 = "Microsoft Project ﾀｲﾑｼｰﾄ"    'オープニング画面のキャプションの 1 行目
  40. Global Const CAP_SPLASH2 = "しばらくお待ちください..."                 'オープニング画面のキャプションの 2 行目
  41.  
  42. Global Const PROG_INIT = "Timesheet を初期化しています..."
  43. Global Const PROG_FORMLOAD = "ﾌｫｰﾑをﾛｰﾄﾞしています..."
  44. Global Const PROG_RESASSIGN = "ﾘｿｰｽの割り当てをﾁｪｯｸしています..."
  45. Global Const PROG_DONE = "お待たせしました!"
  46.  
  47. '期間単位の文字列定数
  48. Global Const DUR_MINUTES = "m"      '分
  49. Global Const DUR_HOURS = "h"        '時
  50. Global Const DUR_DAYS = "d"         '日
  51. Global Const DUR_WEEKS = "w"        '週
  52. Global Const EDUR_MINUTES = "em"    '延期期間の分
  53. Global Const EDUR_HOURS = "eh"      '延期期間の時
  54. Global Const EDUR_DAYS = "ed"       '延期期間の日
  55. Global Const EDUR_WEEKS = "ew"      '延期期間の週
  56.  
  57. 'グリッドの列見出し
  58. Global Const GRID_TASKID = "ID"                  'タスク ID
  59. Global Const GRID_TASKNAME = "ﾀｽｸ名"         'タスク名
  60. Global Const GRID_ACTWORK = "実績作業時間"          'リソースの実績作業時間
  61. Global Const GRID_REMWORK = "残存作業時間"          'リソースの残存作業時間
  62. Global Const GRID_ADDWORK = "追加作業時間"       'タスクに適用する追加の作業時間
  63. Global Const GRID_ETC = "新しい残存作業時間"          'タスクを達成するのに必要な作業時間数の新しい見積り
  64. Global Const GRID_START = "開始日"           'リソースがタスクの割り当て作業を開始する日付
  65. Global Const GRID_FINISH = "終了日"         'リソースがタスクの割り当て作業を終了する日付
  66.  
  67. 'ビュー名
  68. Global Const GANTT_CHART = "ｶﾞﾝﾄ ﾁｬｰﾄ"
  69. Global Const PERT_CHART = "PERT ﾁｬｰﾄ"
  70. Global Const TASK_SHEET = "ﾀｽｸ ｼｰﾄ"
  71. Global Const TASK_PERT = "PERT ﾁｬｰﾄ (特定ﾀｽｸ)"
  72.  
  73. '***** 編集可能な文字列  -  終わり *****
  74.  
  75. 'グローバル変数の宣言
  76. Global goProjApp As object          'MSProject.Application オブジェクト
  77. Global goActiveProj As object       'ActiveProject オブジェクト
  78. Global gdtDefStartTime As Variant   'タスクの既定の開始時刻
  79. Global gdtDefFinishTime As Variant  '既定の開始時刻 + 既定の 1 日の稼動時間
  80. Global gdtDefStartDate As Variant   'プロジェクトの開始日
  81. Global gdtDefFinishDate As Variant  'プロジェクトの終了日
  82. Global gsTimeSep As String          '時刻の区切り記号
  83. Global gdtTodaysDate As Variant     '現在の日付
  84. Global gdtCurrentDate As Variant    '作業中のプロジェクトで設定されている現在の日付
  85. Global gdtAsOfDate As Variant       'TInfo フォームで使用する [更新の基準] の日付
  86. Global gbDbg As Integer             'デバッグ情報をファイルに書き込むかどうかを示すフラグ。True に設定するには、コマンド ラインで /d スイッチを指定して実行します。
  87. Global gbDbgFile As Integer         'デバッグ ファイルのファイル番号
  88. Global gbDTIF As Integer            'エラー フラグ
  89. Global gsDefWorkUnit As String      '既定の作業時間単位を表す文字
  90. Global gsDefDurUnit As String       '既定の期間単位を表す文字
  91. Global gnDefWorkUnit As Integer     '既定の作業時間単位の ID として使用する整数
  92. Global gnDefDurUnit As Integer      '既定の期間単位の ID として使用する整数
  93. Global gbSchedMsg As Integer        'Timesheet の実行によって、スケジュールのメッセージがオフになっていることを示すためのフラグ
  94. Global gsOrigView As String         'Timesheet を最初に実行したときに設定されていたビューの名前
  95.  
  96. 'Timesheet で使用する定数
  97.  
  98. 'Microsoft Project Visual Basic の定数。以下の定数は、Microsoft Project に組み込まれている
  99. 'Visual Basic for Applications の定数と同じ書式で表します。
  100. 'DurationFormat の定数
  101. Global Const pjMinutes = 0
  102. Global Const pjHours = 1
  103. Global Const pjDays = 2
  104. Global Const pjWeeks = 3
  105. Global Const pjElapsedMinutes = 4
  106. Global Const pjElapsedHours = 5
  107. Global Const pjElapsedDays = 6
  108. Global Const pjElapsedWeeks = 7
  109.  
  110. 'グリッドのフィールド
  111. Global Const AUID = 0
  112. Global Const TASKID = 1
  113. Global Const TASKNAME = 2
  114. Global Const ACTWORK = 3
  115. Global Const REMWORK = 4
  116. Global Const ADDWORK = 5
  117. Global Const ETC = 6
  118. Global Const START = 7
  119. Global Const FINISH = 8
  120.  
  121. 'SetView の定数
  122. Global Const SET_VIEW = 1
  123. Global Const RESTORE_VIEW = 2
  124.  
  125. 'FindWindow ウィンドウ クラスの定数
  126. Global Const FW_WINPROJ = "JWinproj-WhimperMainClass"
  127.  
  128. 'リソースの選択
  129. Global Const ALL_RESOURCES = -32768
  130.  
  131. 'ユーザー定義のエラー コード
  132. Global Const ERR_EMPTY_INDEX = 32767
  133. Global Const ERR_INVALID_INDEX = 32766
  134. Global Const ERR_NO_APP_OBJECT = 32765
  135. Global Const ERR_NO_RES_SELECTION = 32764
  136. Global Const ERR_BAD_PARAM = 32763
  137. Global Const ERR_FROMDATE = 32762
  138. Global Const ERR_TODATE = 32761
  139. Global Const ERR_BAD_DATE_ORDER = 32760
  140. Global Const ERR_EOL = 32759
  141. Global Const ERR_BOL = 32758
  142. Global Const ERR_BAD_DATE_RANGE = 32757
  143. Global Const ERR_POOL = 32756
  144.  
  145. '表示のパラメータ
  146. Global Const MODAL = 1
  147. Global Const MODELESS = 0
  148.  
  149. '関数のパラメータ
  150. 'MsgBox のパラメータ
  151. Global Const MB_OK = 0                 '[OK] ボタンのみ
  152. Global Const MB_OKCANCEL = 1           '[OK] および [キャンセル] ボタン
  153. Global Const MB_ABORTRETRYIGNORE = 2   '[中止]、[再試行]、および [無視] ボタン
  154. Global Const MB_YESNOCANCEL = 3        '[はい]、[いいえ]、および [キャンセル] ボタン
  155. Global Const MB_YESNO = 4              '[はい] および [いいえ] ボタン
  156. Global Const MB_RETRYCANCEL = 5        '[再試行] および [キャンセル] ボタン
  157.  
  158. Global Const MB_ICONSTOP = 16          '警告メッセージ アイコン
  159. Global Const MB_ICONQUESTION = 32      '問い合わせメッセージ アイコン
  160. Global Const MB_ICONEXCLAMATION = 48   '注意メッセージ アイコン
  161. Global Const MB_ICONINFORMATION = 64   '情報メッセージ アイコン
  162.  
  163. Global Const MB_APPLMODAL = 0          'アプリケーション モーダルなメッセージ ボックス
  164. Global Const MB_DEFBUTTON1 = 0         '1 番目のボタンが標準の場合
  165. Global Const MB_DEFBUTTON2 = 256       '2 番目のボタンが標準の場合
  166. Global Const MB_DEFBUTTON3 = 512       '3 番目のボタンが標準の場合
  167. Global Const MB_SYSTEMMODAL = 4096      'システム モーダルな場合
  168.  
  169. 'MsgBox の戻り値
  170. Global Const IDOK = 1                  '[OK] ボタンがクリックされた場合
  171. Global Const IDCANCEL = 2              '[キャンセル] ボタンがクリックされた場合
  172. Global Const IDABORT = 3               '[中止] ボタンがクリックされた場合
  173. Global Const IDRETRY = 4               '[再試行] ボタンがクリックされた場合
  174. Global Const IDIGNORE = 5              '[無視] ボタンがクリックされた場合
  175. Global Const IDYES = 6                 '[はい] ボタンがクリックされた場合
  176. Global Const IDNO = 7                  '[いいえ] ボタンがクリックされた場合
  177.  
  178. 'マウス ポインタ
  179. Global Const DEFAULT = 0        '既定のポインタ
  180. Global Const HOURGLASS = 11     '砂時計ポインタ
  181.  
  182. 'VarType 変数のラベル
  183. Global Const V_EMPTY = 0
  184. Global Const V_NULL = 1
  185. Global Const V_INTEGER = 2
  186. Global Const V_LONG = 3
  187. Global Const V_SINGLE = 4
  188. Global Const V_DOUBLE = 5
  189. Global Const V_CURRENCY = 6
  190. Global Const V_DATE = 7
  191. Global Const V_STRING = 8
  192.  
  193.  
  194.  
  195.