データベース桐

名札 メイン
変数宣言　固有,数値　｛ &OK , &copy ,&確認 ｝

＊

手続き定義開始　ﾌｫｰﾑ::ﾌｫｰﾑ開始(長整数　&表番号)
　ファイル複写　"REF_DEF9.RSC"，"REF.bat"，終了状態 = &OK
　ケース開始　
　　ケース　（&OK = 102）
　　　　　メソッド呼び出し　@b開始.実行()
　*　条件　（&OK <> 102） メソッド呼び出し　@b終了.実行()
　　ケース　その他
　　　　　メッセージボックス　"桐の終了" , "○ショールーム営業報告書は、他のパソコンで使用されています。", ボタン指定 = 1 ,&確認
　　　　　メソッド呼び出し　@b終了.実行()
　ケース終了

　*　エラー番号 説明
　*　0 コマンドは正常に終了した。
　*　100 ファイルが書き込み禁止。
　*　102 ファイルが見つからない。
　*　103 ファイル名の形式に誤りがある。
　*　104 使用するファイルが多すぎる。
　*　105 ファイルにアクセスできない。
　*　106 カレントディレクトリは削除できない。
　*　109 ディレクトリにこれ以上ファイルを作成できない。
　*　111 ファイルが他のプログラムで使用されている。
　*　175 ファイルが使用中。

手続き定義終了