M.Mさん、こんにちは。
DBアクセスのフォローありがとうございます。

ということでM.Mさんのフォローとあわせて下記のような感じで如何でしょう？
#ちなみにエラーチェックは、DHさんが理解されてると勝手に解釈し、わざと省きました

string  pagename
integer index

declare cur_pagename for
  select ? from ? where ?; (PageNameを取得するSQL文を記述)

open cur_pagename;                       //カーソルを開く
fetch cur_pagename into :pagename;       //１件目のデータを取得

DO UNTIL SQLCA.SQLCode = 100             //データが無くなるまで繰り返す
  index ++                               //カウンターの足し込み
  tab_1.OpenTab(u_tab,index)             //tabpageの生成
  tab_1.control[index].text = pagename   //DBから取得した値をページテキストに設定
  fetch cur_pagename into :pagename;     //次のデータを取得
LOOP

close cur_pagename;                      //カーソルを閉じる

これでタブの設定までは出来ると思います。

ただ、DWの表示が微妙におかしいという件については、
実際の状況がいまいち想像できないくて・・・

なんてアドバイスしていいのか・・・すいません(^^;