package require sqlite3
sqlite3 db ../db/rates.db

load g:/agp/bin/WinTclTk/lib/Tktable2. 10 /Tktable210.dll


#  заголовок окна. менять можно по вертикали.
wm title . "usage of Tk and sqlite3"
wm resizable .  0   1 

#            объявил первый фрейм с кнопками
frame .top
button .ex  -text Выход       -width  10        -command exit
button .nxt -text Обновить    -width  10 

set row   1  
#  заголовок таблицы
array set table {
    0 , 0  oNo    0 , 1    "Run ID"    0 , 2    "Date" 
}
#  сколько записей?
set rows [db eval  {select count(*) from run} ]

# построчная работа с данными
db eval { select *  from run } vals {
  parray vals
#                        извлечение полей из массива с записью
  set i  $vals(id)
  set r  $vals(dt)
#                        заполнение строчки таблицы
  set table($row, 0 ) $row;   set table($row, 1 ) $i;   set table($row, 2 ) $r
  incr row
}

# объявил второй фрейм с таблицой и скролбаром
 frame .bot
#    массив table  указан как источник, $row записей,  3  колонки; нельзя менять значения state
 table  .t -variable table -rows $rows -cols  3   -titlerows  1   -yscrollcommand {.s set} \
             -maxheight  320    -state disabled
 scrollbar .s -command {.t yview}

# положил фрейм и кнопки в него. 
# Одну кнопку на северо запад: -anchor nw, вторую - северо восток: ne
 pack .top  -padx  5   -fill x
  pack .ex    -anchor nw  -side left -in .top 
  pack .nxt   -anchor ne             -in .top
# показал фрейм и таблицу в него
 pack .bot   -padx  5  -pady  5  
  pack .t                 -fill x  -side left -in .bot 
  pack .s  -expand yes    -fill y             -in .bot
 return