【一括処理・イベント】メイン処理
メイン処理
名札 メイン
変数宣言 固有,整数{ &OK , &i=0 } /* 変数宣言 自動|局所|固有|共通 , 文字列|数値|通貨|整数|長整数|実数|日時|時間 */
変数宣言 固有,文字列{ &表ファイル , &focus }
フォルダ作成 "temp",終了状態 = &OK
フォルダ作成 "old",終了状態 = &OK
繰り返し ( #代入( &表ファイル , #ファイル検索( "*.tbl" , &i+1 ) ))
&i = &i+1
ファイル更新 &表ファイル,"temp",終了状態 = &OK
条件 (#日付( #ファイル属性( &表ファイル , 2 ) , 1 ) < #日付( #日時値 , 1 )) ファイル更新 &表ファイル,"old",終了状態 = &OK
繰り返し終了
*
タイマー値1
手続き定義開始 フォーム::タイマー1()
変数宣言 整数{ &OK }
オブジェクト操作 @フォーム.タイマー1=0
メソッド呼び出し 戻り値 =&OK,@b開く.実行()
手続き定義終了
利用者コード
手続き定義開始 利用者コード()
利用者コード 会話
手続き定義終了