ការសរសេរ GUI សម្រាប់ 1C RAC ឬម្តងទៀតអំពី Tcl/Tk

ដូចដែលយើងបានស្វែងយល់ពីប្រធានបទអំពីរបៀបដែលផលិតផល 1C ដំណើរការនៅក្នុងបរិយាកាសលីនុច គុណវិបត្តិមួយត្រូវបានរកឃើញ - កង្វះឧបករណ៍ពហុវេទិកាក្រាហ្វិកងាយស្រួលសម្រាប់គ្រប់គ្រងចង្កោមនៃម៉ាស៊ីនមេ 1C ។ ហើយវាត្រូវបានសម្រេចចិត្តកែគុណវិបត្តិនេះដោយសរសេរ GUI សម្រាប់ឧបករណ៍ប្រើប្រាស់កុងសូលប្រណាំង។ Tcl/tk ត្រូវ​បាន​ជ្រើសរើស​ជា​ភាសា​អភិវឌ្ឍន៍ ដូច​ជា​តាម​គំនិត​របស់​ខ្ញុំ ស័ក្តិសម​បំផុត​សម្រាប់​កិច្ចការ​នេះ។ ដូច្នេះហើយ ខ្ញុំចង់បង្ហាញទិដ្ឋភាពគួរឱ្យចាប់អារម្មណ៍មួយចំនួននៃដំណោះស្រាយនៅក្នុងសម្ភារៈនេះ។

ដើម្បីធ្វើការអ្នកនឹងត្រូវការការចែកចាយ tcl/tk និង 1C ។ ហើយចាប់តាំងពីខ្ញុំបានសម្រេចចិត្តធ្វើឱ្យបានច្រើនបំផុតនៃសមត្ថភាពនៃការចែកចាយ tcl/tk មូលដ្ឋានដោយមិនប្រើកញ្ចប់ភាគីទីបី ខ្ញុំនឹងត្រូវការកំណែ 8.6.7 ដែលរួមបញ្ចូល ttk - កញ្ចប់ដែលមានធាតុក្រាហ្វិកបន្ថែម ដែលយើងត្រូវការជាចម្បង ttk ::TreeView វាអនុញ្ញាតឱ្យបង្ហាញទិន្នន័យទាំងក្នុងទម្រង់នៃរចនាសម្ព័ន្ធមែកធាង និងក្នុងទម្រង់តារាង (បញ្ជី)។ ដូចគ្នានេះផងដែរនៅក្នុងកំណែថ្មី ការងារដែលមានករណីលើកលែងត្រូវបានដំណើរការឡើងវិញ (ពាក្យបញ្ជាសាកល្បងដែលត្រូវបានប្រើនៅក្នុងគម្រោងនៅពេលដំណើរការពាក្យបញ្ជាខាងក្រៅ)។

គម្រោងនេះមានឯកសារជាច្រើន (ទោះបីជាគ្មានអ្វីរារាំងអ្នកពីការធ្វើអ្វីៗគ្រប់យ៉ាងក្នុងតែមួយក៏ដោយ)៖

rac_gui.cfg - ការកំណត់លំនាំដើម
rac_gui.tcl - ស្គ្រីបចាប់ផ្តើមសំខាន់
ថត lib មានឯកសារដែលផ្ទុកដោយស្វ័យប្រវត្តិនៅពេលចាប់ផ្តើម៖
function.tcl - ឯកសារដែលមាននីតិវិធី
gui.tcl - ចំណុចប្រទាក់ក្រាហ្វិកចម្បង
images.tcl - បណ្ណាល័យរូបភាព base64

តាមពិតឯកសារ rac_gui.tcl ចាប់ផ្តើមអ្នកបកប្រែ ចាប់ផ្តើមអថេរ ផ្ទុកម៉ូឌុល កំណត់រចនាសម្ព័ន្ធ និងអ្វីៗផ្សេងទៀត។ ខ្លឹមសារនៃឯកសារដែលមានមតិយោបល់៖

rac_gui.tcl

#!/bin/sh
exec wish "$0" -- "$@"

# Устанавливаем текущий каталог
set dir(root) [pwd]
# Устанавливаем рабочий каталог, если его нет то создаём
set dir(work) [file join $env(HOME) .rac_gui]
if {[file exists $dir(work)] == 0 } {
    file mkdir $dir(work)    
}
# каталог с модулями
set dir(lib) "[file join $dir(root) lib]"

# загружаем пользовательский конфиг, если он отсутствует, то копируем дефолтный
if {[file exists [file join $dir(work) rac_gui.cfg]] ==0} {
    file copy [file join [pwd] rac_gui.cfg] [file join $dir(work) rac_gui.cfg]
} 
source [file join $dir(work) rac_gui.cfg]
# Код проверки наличия rac и правильности указания пути в конфиге
# если программа не найдена то будет выведен диалог для указания корректного пути
# и этот путь будет записан в пользовательский конфиг
if {[file exists $rac_cmd] == 0} {
    set rac_cmd [tk_getOpenFile -initialdir $env(HOME) -parent . -title "Укажите путь до rac" -initialfile rac]
    file copy [file join $dir(work) rac_gui.cfg] [file join $dir(work) rac_gui.cfg.bak] 
    set orig_file [open [file join $dir(work) rac_gui.cfg.bak] "r"]
    set file [open [file join $dir(work) rac_gui.cfg] "w"]
    while {[gets $orig_file line] >=0 } {
        if {[string match "set rac_cmd*" $line]} {
            puts $file "set rac_cmd $rac_cmd"
        } else {
            puts $file $line
        }
    }
    close $file
    close $orig_file
    #return "$host:$port"
    file delete [file join $dir(work) 1c_srv.cfg.bak] 
} else {
    puts "Found $rac_cmd"
}

set cluster_user ""
set cluster_pwd ""
set agent_user ""
set agent_pwd ""
## LOAD FILE ##
# Загружаем модули кроме gui.tcl так как его надо загрузить последним
foreach modFile [lsort [glob -nocomplain [file join $dir(lib) *.tcl]]] {
    if {[file tail $modFile] ne "gui.tcl"} {
        source $modFile
        puts "Loaded module $modFile"
    }
}
source [file join $dir(lib) gui.tcl]
source [file join $dir(work) rac_gui.cfg]

# Читаем файл со списком серверов 1С
# и добавляем в дерево
if [file exists [file join $dir(work) 1c_srv.cfg]] {
    set f [open [file join $dir(work) 1c_srv.cfg] "RDONLY"]
    while {[gets $f line] >=0} {
        .frm_tree.tree insert {} end -id "server::$line" -text "$line" -values "$line"
    }    
}

បន្ទាប់ពីទាញយកអ្វីគ្រប់យ៉ាងដែលត្រូវការ និងពិនិត្យមើលវត្តមានរបស់ឧបករណ៍ប្រើប្រាស់ប្រណាំង បង្អួចក្រាហ្វិកនឹងត្រូវបានដាក់ឱ្យដំណើរការ។ ចំណុចប្រទាក់កម្មវិធីមានធាតុបី៖

របារឧបករណ៍ មែកធាង និងបញ្ជី

ខ្ញុំបានធ្វើឱ្យមាតិកានៃ "ដើមឈើ" ស្រដៀងនឹងឧបករណ៍វីនដូស្តង់ដារពី 1C ។

កូដចម្បងដែលបង្កើតជាវិនដូនេះមាននៅក្នុងឯកសារ
lib/gui.tcl

# установка размера и положения основного окна
# можно установить в переменную topLevelGeometry в конфиг программы
if {[info exists topLevelGeometry]} {
    wm geometry . $topLevelGeometry
} else {
    wm geometry . 1024x768
}
# Заголовок окна
wm title . "1C Rac GUI"
wm iconname . "1C Rac Gui"
# иконка окна (берется из файла lib/imges.tcl)
wm iconphoto . tcl
wm protocol . WM_DELETE_WINDOW Quit
wm overrideredirect . 0
wm positionfrom . user

ttk::style theme use clam

# Панель инсрументов
set frm_tool [frame .frm_tool]
pack $frm_tool -side left -fill y 
ttk::panedwindow .panel -orient horizontal -style TPanedwindow
pack .panel -expand true -fill both
pack propagate .panel false

ttk::button $frm_tool.btn_add  -command Add  -image add_grey_32
ttk::button $frm_tool.btn_del  -command Del -image del_grey_32
ttk::button $frm_tool.btn_edit  -command Edit -image edit_grey_32
ttk::button $frm_tool.btn_quit -command Quit -image quit_grey_32

pack $frm_tool.btn_add $frm_tool.btn_del $frm_tool.btn_edit -side top -padx 5 -pady 5
pack $frm_tool.btn_quit  -side bottom -padx 5 -pady 5

# Дерево с полосами прокрутки
set frm_tree [frame .frm_tree]

ttk::scrollbar $frm_tree.hsb1 -orient horizontal -command [list $frm_tree.tree xview]
ttk::scrollbar $frm_tree.vsb1 -orient vertical -command [list $frm_tree.tree yview]
set tree [ttk::treeview $frm_tree.tree -show tree 
-xscrollcommand [list $frm_tree.hsb1 set] -yscrollcommand [list $frm_tree.vsb1 set]]

grid $tree -row 0 -column 0 -sticky nsew
grid $frm_tree.vsb1 -row 0 -column 1 -sticky nsew
grid $frm_tree.hsb1 -row 1 -column 0 -sticky nsew
grid columnconfigure $frm_tree 0 -weight 1
grid rowconfigure $frm_tree 0 -weight 1

# назначение обработчика нажатия кнопкой мыши
bind $frm_tree.tree <ButtonRelease> "TreePress $frm_tree.tree"

# Список для данных (таблица)
set frm_work [frame .frm_work]
ttk::scrollbar $frm_work.hsb -orient horizontal -command [list $frm_work.tree_work xview]
ttk::scrollbar $frm_work.vsb -orient vertical -command [list $frm_work.tree_work yview]
set tree_work [
    ttk::treeview $frm_work.tree_work 
    -show headings  -columns "par val" -displaycolumns "par val"
    -xscrollcommand [list $frm_work.hsb set] 
    -yscrollcommand [list $frm_work.vsb set]
]
# Установка цветов для чередования в таблице
$tree_work tag configure dark -background $color(dark_table_bg)
$tree_work tag configure light -background $color(light_table_bg)

# Размещение элементов на форме
grid $tree_work -row 0 -column 0 -sticky nsew
grid $frm_work.vsb -row 0 -column 1 -sticky nsew
grid $frm_work.hsb -row 1 -column 0 -sticky nsew
grid columnconfigure $frm_work 0 -weight 1
grid rowconfigure $frm_work 0 -weight 1
pack $frm_tree $frm_work -side left -expand true -fill both

#.panel add $frm_tool -weight 1
.panel add $frm_tree -weight 1 
.panel add $frm_work -weight 1

ក្បួនដោះស្រាយសម្រាប់ធ្វើការជាមួយកម្មវិធីមានដូចខាងក្រោម៖

1. ជាដំបូង អ្នកត្រូវបន្ថែមម៉ាស៊ីនមេចង្កោមមេ (ឧ. ម៉ាស៊ីនមេគ្រប់គ្រងចង្កោម (នៅក្នុងលីនុច ការគ្រប់គ្រងត្រូវបានបើកដំណើរការដោយប្រើពាក្យបញ្ជា “/opt/1C/v8.3/x86_64/ras cluster —daemon”))។

ដើម្បីធ្វើដូចនេះចុចលើប៊ូតុង "+" ហើយនៅក្នុងបង្អួចដែលបើកសូមបញ្ចូលអាសយដ្ឋានម៉ាស៊ីនមេនិងច្រក:

បន្ទាប់មក ម៉ាស៊ីនមេរបស់យើងនឹងបង្ហាញនៅក្នុងមែកធាងដោយចុចលើវា បញ្ជីនៃចង្កោមនឹងបើក ឬកំហុសក្នុងការតភ្ជាប់នឹងត្រូវបានបង្ហាញ។

2. ការចុចលើឈ្មោះចង្កោមនឹងបើកបញ្ជីមុខងារដែលមានសម្រាប់វា។

3. …

ហើយដូច្នេះនៅលើ, i.e. ដើម្បីបន្ថែមចង្កោមថ្មី ជ្រើសរើសណាមួយដែលមាននៅក្នុងបញ្ជី ហើយចុចប៊ូតុង “+” នៅក្នុងរបារឧបករណ៍ ហើយប្រអប់បន្ថែមថ្មីនឹងត្រូវបានបង្ហាញ៖

ប៊ូតុងនៅក្នុងរបារឧបករណ៍អនុវត្តមុខងារអាស្រ័យលើបរិបទ ឧ។ អាស្រ័យលើធាតុណាមួយនៃមែកធាង ឬបញ្ជីដែលត្រូវបានជ្រើសរើស នីតិវិធីមួយ ឬមួយផ្សេងទៀតនឹងត្រូវបានអនុវត្ត។

សូមក្រឡេកមើលឧទាហរណ៍នៃប៊ូតុងបន្ថែម (“+”)៖

លេខកូដជំនាន់ប៊ូតុង៖

ttk::button $frm_tool.btn_add  -command Add  -image add_grey_32

នៅទីនេះយើងឃើញថានៅពេលចុចប៊ូតុង ដំណើរការ "បន្ថែម" នឹងត្រូវបានប្រតិបត្តិ កូដរបស់វា:

proc Add {} {
    global active_cluster host
    # Определяем идентификатор выделенного элемента
    set id  [.frm_tree.tree selection] 
    # Определяем значение этого элемента
    set values [.frm_tree.tree item [.frm_tree.tree selection] -values]
    set key [lindex [split $id "::"] 0]
    # в зависимости от того что выделили будет запущена нужная процедура
    if {$key eq "" || $key eq "server"} {
        set host [ Add::server ]
        return
    }
    Add::$key .frm_tree.tree $host $values
}

នេះគឺជាគុណសម្បត្តិមួយនៃ tickle៖ អ្នកអាចហុចតម្លៃនៃអថេរជាឈ្មោះនីតិវិធី៖

Add::$key .frm_tree.tree $host $values

នោះគឺជាឧទាហរណ៍ ប្រសិនបើយើងចង្អុលទៅម៉ាស៊ីនមេ ហើយចុច “+” នោះដំណើរការ Add:: server នឹងត្រូវបានដាក់ឱ្យដំណើរការ ប្រសិនបើនៅ cluster - Add::cluster ហើយដូច្នេះនៅលើ (ខ្ញុំនឹងសរសេរអំពីកន្លែងដែល "គ្រាប់ចុច" ចាំបាច់មកពីខាងក្រោមបន្តិច) នីតិវិធីដែលបានរាយបញ្ជីគូរធាតុក្រាហ្វិកដែលសមស្របទៅនឹងបរិបទ។

ដូចដែលអ្នកប្រហែលជាបានកត់សម្គាល់រួចហើយ ទម្រង់គឺស្រដៀងគ្នានៅក្នុងរចនាប័ទ្ម - នេះមិនមែនជារឿងគួរឱ្យភ្ញាក់ផ្អើលនោះទេព្រោះវាត្រូវបានបង្ហាញដោយនីតិវិធីមួយ កាន់តែច្បាស់ជាងនេះទៅទៀត ស៊ុមសំខាន់នៃទម្រង់ (បង្អួច ប៊ូតុង រូបភាព ស្លាក) ឈ្មោះនៃនីតិវិធី បន្ថែមកម្រិតកំពូល

proc AddToplevel {lbl img {win_name .add}} {
    set cmd "destroy $win_name"
    if [winfo exists $win_name] {destroy $win_name}
    toplevel $win_name
    wm title $win_name $lbl
    wm iconphoto $win_name tcl
    # метка с иконкой
    ttk::label $win_name.lbl -image $img
    # фрейм с полями ввода
    set frm [ttk::labelframe $win_name.frm -text $lbl -labelanchor nw]
    
    grid columnconfigure $frm 0 -weight 1
    grid rowconfigure $frm 0 -weight 1
    # фрейм и кнопки
    set frm_btn [frame $win_name.frm_btn -border 0]
    ttk::button $frm_btn.btn_ok -image ok_grey_24 -command { }
    ttk::button $frm_btn.btn_cancel -command $cmd -image quit_grey_24 
    grid $win_name.lbl -row 0 -column 0 -sticky nw -padx 5 -pady 10
    grid $frm -row 0 -column 1 -sticky nw -padx 5 -pady 5
    grid $frm_btn -row 1 -column 1 -sticky se -padx 5 -pady 5
    pack  $frm_btn.btn_cancel  -side right
    pack  $frm_btn.btn_ok  -side right -padx 10
    return $frm
}

ប៉ារ៉ាម៉ែត្រហៅទូរសព្ទ៖ ចំណងជើង ឈ្មោះរូបភាពសម្រាប់រូបតំណាងពីបណ្ណាល័យ (lib/images.tcl) និងប៉ារ៉ាម៉ែត្រឈ្មោះបង្អួចស្រេចចិត្ត (លំនាំដើម .បន្ថែម)។ ដូច្នេះ ប្រសិនបើយើងយកឧទាហរណ៍ខាងលើសម្រាប់ការបន្ថែមម៉ាស៊ីនមេ និងចង្កោម ការហៅទូរសព្ទនឹងធ្វើឡើងតាម៖

AddToplevel "Добавление основного сервера" server_grey_64

ឬ

AddToplevel "Добавление кластера" cluster_grey_64

ជាការប្រសើរណាស់ ដោយបន្តជាមួយឧទាហរណ៍ទាំងនេះ ខ្ញុំនឹងបង្ហាញនីតិវិធីដែលបង្ហាញប្រអប់បន្ថែមសម្រាប់ម៉ាស៊ីនមេ ឬចង្កោម។

បន្ថែម៖: ម៉ាស៊ីនមេ

proc Add::server {} {
    global default
    # выводим основную форму
    set frm [AddToplevel "Добавление основного сервера" server_grey_64]
    # добавляем етки и поля ввода на эту форму
    label $frm.lbl_host -text "Адрес сервера"
    entry  $frm.ent_host
    label $frm.lbl_port -text "Порт"
    entry $frm.ent_port 
    $frm.ent_port  insert end $default(port)
    grid $frm.lbl_host -row 0 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_host -row 0 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_port -row 1 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_port -row 1 -column 1 -sticky nsew -padx 5 -pady 5
    grid columnconfigure $frm 0 -weight 1
    grid rowconfigure $frm 0 -weight 1
    #set frm_btn [frame .add.frm_btn -border 0]
    # переопределяем обработчик нажатия кнопки
    .add.frm_btn.btn_ok configure -command {
        set host [SaveMainServer [.add.frm.ent_host get] [.add.frm.ent_port get]]
        .frm_tree.tree insert {} end -id "server::$host" -text "$host" -values "$host"
        destroy .add
        return $host
    }
    return $frm
}

បន្ថែម៖:ចង្កោម

proc Add::cluster {tree host values} {
    global default lifetime_limit expiration_timeout session_fault_tolerance_level
    global max_memory_size max_memory_time_limit errors_count_threshold security_level
    global load_balancing_mode kill_problem_processes 
    agent_user agent_pwd cluster_user cluster_pwd auth_agent
    if {$agent_user ne "" && $agent_pwd ne ""} {
        set auth_agent "--agent-user=$agent_user --agent-pwd=$agent_pwd"
    } else {
        set auth_agent ""
    }
    # устанавливаем глобальные переменные ()
    set lifetime_limit $default(lifetime_limit)
    set expiration_timeout $default(expiration_timeout)
    set session_fault_tolerance_level $default(session_fault_tolerance_level)
    set max_memory_size $default(max_memory_size)
    set max_memory_time_limit $default(max_memory_time_limit)
    set errors_count_threshold $default(errors_count_threshold)
    set security_level [lindex $default(security_level) 0]
    set load_balancing_mode [lindex $default(load_balancing_mode) 0]
    
    set frm [AddToplevel "Добавление кластера" cluster_grey_64]
    
    label $frm.lbl_host -text "Адрес основного сервера"
    entry  $frm.ent_host
    label $frm.lbl_port -text "Порт"
    entry $frm.ent_port 
    $frm.ent_port  insert end $default(port)
    label $frm.lbl_name -text "Название кластера"
    entry  $frm.ent_name
    label $frm.lbl_secure_connect -text "Защищённое соединение"
    ttk::combobox $frm.cb_security_level -textvariable security_level -values $default(security_level)
    label $frm.lbl_expiration_timeout -text "Останавливать выключенные процессы через:"
    entry  $frm.ent_expiration_timeout -textvariable expiration_timeout
    label $frm.lbl_session_fault_tolerance_level -text "Уровень отказоустойчивости"
    entry  $frm.ent_session_fault_tolerance_level -textvariable session_fault_tolerance_level
    label $frm.lbl_load_balancing_mode -text "Режим распределения нагрузки"
    ttk::combobox $frm.cb_load_balancing_mode -textvariable load_balancing_mode 
    -values $default(load_balancing_mode)
    label $frm.lbl_errors_count_threshold -text "Допустимое отклонение количества ошибок сервера, %"
    entry  $frm.ent_errors_count_threshold -textvariable errors_count_threshold
    label $frm.lbl_processes -text "Рабочие процессы:"
    label $frm.lbl_lifetime_limit -text "Период перезапуска, сек."
    entry  $frm.ent_lifetime_limit -textvariable lifetime_limit
    label $frm.lbl_max_memory_size -text "Допустимый объём памяти, КБ"
    entry  $frm.ent_max_memory_size -textvariable max_memory_size
    label $frm.lbl_max_memory_time_limit -text "Интервал превышения допустимого объёма памяти, сек."
    entry  $frm.ent_max_memory_time_limit -textvariable max_memory_time_limit
    label $frm.lbl_kill_problem_processes -justify left -anchor nw -text "Принудительно завершать проблемные процессы"
    checkbutton $frm.check_kill_problem_processes -variable kill_problem_processes -onvalue yes -offvalue no    
    
    grid $frm.lbl_host -row 0 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_host -row 0 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_port -row 1 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_port -row 1 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_name -row 2 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_name -row 2 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_secure_connect -row 3 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.cb_security_level -row 3 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_expiration_timeout -row 4 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_expiration_timeout -row 4 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_session_fault_tolerance_level -row 5 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_session_fault_tolerance_level -row 5 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_load_balancing_mode -row 6 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.cb_load_balancing_mode -row 6 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_errors_count_threshold -row 7 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_errors_count_threshold -row 7 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_processes -row 8 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.lbl_lifetime_limit -row 9 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_lifetime_limit -row 9 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_max_memory_size -row 10 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_max_memory_size -row 10 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_max_memory_time_limit -row 11 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.ent_max_memory_time_limit -row 11 -column 1 -sticky nsew -padx 5 -pady 5
    grid $frm.lbl_kill_problem_processes -row 12 -column 0 -sticky nw -padx 5 -pady 5
    grid $frm.check_kill_problem_processes -row 12 -column 1 -sticky nw -padx 5 -pady 5
    # переопределяем обработчик
    .add.frm_btn.btn_ok configure -command {
        RunCommand "" "cluster insert 
        --host=[.add.frm.ent_host get] 
        --port=[.add.frm.ent_port get] 
        --name=[.add.frm.ent_name get] 
        --expiration-timeout=$expiration_timeout 
        --lifetime-limit=$lifetime_limit 
        --max-memory-size=$max_memory_size 
        --max-memory-time-limit=$max_memory_time_limit 
        --security-level=$security_level 
        --session-fault-tolerance-level=$session_fault_tolerance_level 
        --load-balancing-mode=$load_balancing_mode 
        --errors-count-threshold=$errors_count_threshold 
        --kill-problem-processes=$kill_problem_processes 
        $auth_agent $host"
        Run::server $tree $host ""
        destroy .add
    }
    return $frm
}

នៅពេលប្រៀបធៀបកូដនៃនីតិវិធីទាំងនេះ ភាពខុសគ្នាអាចមើលឃើញដោយភ្នែកទទេ ខ្ញុំនឹងផ្តោតលើឧបករណ៍ដោះស្រាយប៊ូតុង "យល់ព្រម" ។ នៅក្នុង Tk លក្ខណៈសម្បត្តិនៃធាតុក្រាហ្វិកអាចត្រូវបានបដិសេធកំឡុងពេលដំណើរការកម្មវិធីដោយប្រើជម្រើស កំណត់រចនាសម្ព័ន្ធ. ឧទាហរណ៍ ពាក្យបញ្ជាដំបូងដើម្បីបង្ហាញប៊ូតុង៖

ttk::button $frm_btn.btn_ok -image ok_grey_24 -command { }

ប៉ុន្តែនៅក្នុងទម្រង់របស់យើង ពាក្យបញ្ជាអាស្រ័យលើមុខងារដែលត្រូវការ៖

  .add.frm_btn.btn_ok configure -command {
        RunCommand "" "cluster insert 
        --host=[.add.frm.ent_host get] 
        --port=[.add.frm.ent_port get] 
        --name=[.add.frm.ent_name get] 
        --expiration-timeout=$expiration_timeout 
        --lifetime-limit=$lifetime_limit 
        --max-memory-size=$max_memory_size 
        --max-memory-time-limit=$max_memory_time_limit 
        --security-level=$security_level 
        --session-fault-tolerance-level=$session_fault_tolerance_level 
        --load-balancing-mode=$load_balancing_mode 
        --errors-count-threshold=$errors_count_threshold 
        --kill-problem-processes=$kill_problem_processes 
        $auth_agent $host"
        Run::server $tree $host ""
        destroy .add
    }

នៅក្នុងឧទាហរណ៍ខាងលើ ប៊ូតុង "ស្ទះ" ចាប់ផ្តើមនីតិវិធីសម្រាប់ការបន្ថែមចង្កោម។

នៅទីនេះវាមានតម្លៃធ្វើឱ្យមានការយល់ឃើញឆ្ពោះទៅរកការធ្វើការជាមួយធាតុក្រាហ្វិកនៅក្នុង Tk - សម្រាប់ធាតុបញ្ចូលទិន្នន័យផ្សេងៗ (ធាតុ ប្រអប់បញ្ចូល ប៊ូតុងធីក។ល។) ប៉ារ៉ាម៉ែត្រត្រូវបានណែនាំជាអថេរអត្ថបទ៖

entry  $frm.ent_lifetime_limit -textvariable lifetime_limit

អថេរ​នេះ​ត្រូវ​បាន​កំណត់​ក្នុង​ចន្លោះ​ឈ្មោះ​សកល ហើយ​មាន​តម្លៃ​ដែល​បាន​បញ្ចូល​បច្ចុប្បន្ន។ ទាំងនោះ។ ដើម្បីទទួលបានអត្ថបទដែលបានបញ្ចូលពីវាល អ្នកគ្រាន់តែត្រូវការអានតម្លៃដែលត្រូវនឹងអថេរ (ជាការពិតណាស់ បានផ្តល់ថាវាត្រូវបានកំណត់នៅពេលបង្កើតធាតុ)។

វិធីសាស្រ្តទីពីរសម្រាប់ការទាញយកអត្ថបទដែលបានបញ្ចូល (សម្រាប់ធាតុនៃប្រភេទធាតុ) គឺត្រូវប្រើពាក្យបញ្ជា get:

.add.frm.ent_name get

វិធីសាស្រ្តទាំងពីរនេះអាចត្រូវបានគេមើលឃើញនៅក្នុងកូដខាងលើ។

ការចុចប៊ូតុងនេះ ក្នុងករណីនេះចាប់ផ្តើមដំណើរការ RunCommand ជាមួយនឹងបន្ទាត់ពាក្យបញ្ជាដែលបានបង្កើតសម្រាប់ការបន្ថែមចង្កោមក្នុងលក្ខខណ្ឌនៃការប្រណាំង៖

/opt/1C/v8.3/x86_64/rac cluster insert  --host=localhost  --port=1540  --name=dsdsds  --expiration-timeout=0  --lifetime-limit=0  --max-memory-size=0  --max-memory-time-limit=0  --security-level=0  --session-fault-tolerance-level=0  --load-balancing-mode=performance  --errors-count-threshold=0  --kill-problem-processes=no   localhost:1545

ឥឡូវនេះយើងមកដល់ពាក្យបញ្ជាសំខាន់ដែលគ្រប់គ្រងការចាប់ផ្តើមនៃការប្រណាំងជាមួយនឹងប៉ារ៉ាម៉ែត្រដែលយើងត្រូវការក៏ញែកលទ្ធផលនៃពាក្យបញ្ជាទៅជាបញ្ជីនិងត្រឡប់មកវិញប្រសិនបើចាំបាច់:

រត់ពាក្យបញ្ជា

proc RunCommand {root par} {
    global dir rac_cmd cluster work_list_row_count agent_user agent_pwd cluster_user cluster_pwd
    puts "$rac_cmd $par"
    set work_list_row_count 0
    # открываем канал в неблокирующем режиме
    # $rac - команда с полным путём
    # $par - сформированные ключи запуска и опции    
    set pipe [open "|$rac_cmd $par" "r"]
    try {
        set lst ""
        set l ""
        # вывод команды добавляем в список списков
        while {[gets $pipe line]>=0} {
            #puts $line
            if {$line eq ""} {
                lappend l $lst
                set lst ""
            } else {
                lappend lst [string trim $line]
            }
        }
        close $pipe
        return $l
    } on error {result options} {
        # Запуск обработчика ошибок
        ErrorParcing $result $options
        return ""
    }
}

បន្ទាប់​ពី​បញ្ចូល​ទិន្នន័យ​ម៉ាស៊ីន​មេ វា​នឹង​ត្រូវ​បាន​បន្ថែម​ទៅ​មែកធាង​សម្រាប់​ការ​នេះ​នៅ​ក្នុង Add: server ខាងលើ កូដ​ខាងក្រោម​ត្រូវ​ទទួលខុសត្រូវ៖

.frm_tree.tree insert {} end -id "server::$host" -text "$host" -values "$host"

ឥឡូវនេះ ដោយចុចលើឈ្មោះម៉ាស៊ីនមេនៅក្នុងមែកធាង យើងទទួលបានបញ្ជីនៃចង្កោមដែលគ្រប់គ្រងដោយម៉ាស៊ីនមេនោះ ហើយដោយចុចលើចង្កោមមួយ យើងទទួលបានបញ្ជីនៃធាតុចង្កោម (ម៉ាស៊ីនមេ ព័ត៌មានមូលដ្ឋាន។ល។)។ វាត្រូវបានអនុវត្តនៅក្នុងនីតិវិធី TreePress (ឯកសារ lib/function.tcl):

proc TreePress {tree} {
   global host server active_cluster infobase
   # определяем выделенный элемент
    set id  [$tree selection]
   # устанавливаем нужные глобальные переменные
    SetGlobalVarFromTreeItems $tree $id
   # Определяем ключ и значение, т.е. именно тип выбранного элемента
    set values [$tree item $id -values]
    set key [lindex [split $id "::"] 0]
   # и в зависимости от того что выбрали будет запущена соответствующая процедура 
   # в пространстве имён Run
    Run::$key $tree $host $values
}

ដូច្នោះហើយ Run::server នឹងត្រូវបានបើកដំណើរការសម្រាប់ server main (សម្រាប់ cluster - Run::cluster, for a work server - Run::work_server, etc.)។ ទាំងនោះ។ តម្លៃនៃអថេរ $key គឺជាផ្នែកមួយនៃឈ្មោះរបស់ធាតុមែកធាងដែលបានបញ្ជាក់ដោយជម្រើស - លេខសម្គាល់.

ចូរយើងយកចិត្តទុកដាក់លើនីតិវិធី

រត់ :: server

proc Run::server {tree host values} {
    # получаем список кластеров требуемого сервера
    set lst [RunCommand server::$host "cluster list $host"]
    if {$lst eq ""} {return}
    set l [lindex $lst 0]
    #puts $lst
    # удаляем лишнее из списка
    .frm_work.tree_work delete  [ .frm_work.tree_work children {}]
    # читаем список
    foreach cluster_list $lst {
        # Заполняем список полученными значениями
        InsertItemsWorkList $cluster_list
        # обрабатываем вывод (список) для добавления данных в дерево
        foreach i $cluster_list {
            #puts $i
            set cluster_list [split $i ":"]
            if  {[string trim [lindex $cluster_list 0]] eq "cluster"} {
                set cluster_id [string trim [lindex $cluster_list 1]]
                lappend cluster($cluster_id) $cluster_id
            }
            if  {[string trim [lindex $cluster_list 0]] eq "name"} {
                lappend  cluster($cluster_id) [string trim [lindex $cluster_list 1]]
            }
        }
    }
    # добавляем кластеры в дерево
    foreach x [array names cluster] {
        set id [lindex $cluster($x) 0]
        if { [$tree exists "cluster::$id"] == 0 } {
            $tree insert "server::$host" end -id "cluster::$id" -text "[lindex $cluster($x) 1]" -values "$id"
            # добавляем элементы в кластер
            InsertClusterItems $tree $id
        }
    }
    if { [$tree exists "agent_admins::$id"] == 0 } {
        $tree insert "server::$host" end -id "agent_admins::$id" -text "Администраторы" -values "$id"
        #InsertClusterItems $tree $id
    }
}

នីតិវិធីនេះដំណើរការនូវអ្វីដែលបានទទួលពីម៉ាស៊ីនមេតាមរយៈពាក្យបញ្ជា RunCommand ហើយបន្ថែមប្រភេទទាំងអស់ទៅមែកធាង - ចង្កោម ធាតុឫសផ្សេងៗ (មូលដ្ឋាន ម៉ាស៊ីនមេដំណើរការ វគ្គ និងអ្វីៗផ្សេងទៀត)។ ប្រសិនបើអ្នកក្រឡេកមើលឱ្យជិត អ្នកនឹងសម្គាល់ឃើញការហៅទៅកាន់ដំណើរការ InsertItemsWorkList នៅខាងក្នុង។ វាត្រូវបានប្រើដើម្បីបន្ថែមធាតុទៅក្នុងបញ្ជីក្រាហ្វិកដោយដំណើរការលទ្ធផលនៃឧបករណ៍ប្រើប្រាស់កុងសូល rac ដែលពីមុនត្រូវបានត្រឡប់ជាបញ្ជីទៅអថេរ $lst ។ នេះគឺជាបញ្ជីនៃបញ្ជីដែលមានគូនៃធាតុដែលបំបែកដោយសញ្ញា។

ឧទាហរណ៍ បញ្ជីនៃការតភ្ជាប់ចង្កោម៖

svk@svk ~]$ /opt/1C/v8.3/x86_64/rac connection list --cluster=783d2170-56c3-11e8-c586-fc75165efbb2 localhost:1545
connection     : dcf5991c-7d24-11e8-1690-fc75165efbb2
conn-id        : 0
host           : svk.home
process        : 79de2e16-56c3-11e8-c586-fc75165efbb2
infobase       : 00000000-0000-0000-0000-000000000000
application    : "JobScheduler"
connected-at   : 2018-07-01T14:49:51
session-number : 0
blocked-by-ls  : 0

connection     : b993293a-7d24-11e8-1690-fc75165efbb2
conn-id        : 0
host           : svk.home
process        : 79de2e16-56c3-11e8-c586-fc75165efbb2
infobase       : 00000000-0000-0000-0000-000000000000
application    : "JobScheduler"
connected-at   : 2018-07-01T14:48:52
session-number : 0
blocked-by-ls  : 0

ក្នុងទម្រង់ក្រាហ្វិក វានឹងមើលទៅដូចនេះ៖

ដំណើរការខាងលើជ្រើសរើសឈ្មោះធាតុសម្រាប់បឋមកថា និងទិន្នន័យដើម្បីបំពេញតារាង៖

បញ្ចូលបញ្ជីការងារ

proc InsertItemsWorkList {lst} {
    global work_list_row_count
    # установка чередования цвета для строки
    if [expr $work_list_row_count % 2] {
        set tag dark
    } else {
        set tag light
    }
    # разбор строк на пары ключ - значение
    foreach i $lst {
        if [regexp -nocase -all -- {(D+)(s*?|)(:)(s*?|)(.*)} $i match param v2 v3 v4 value] {
            lappend column_list [string trim $param]
            lappend value_list [string trim $value]
        }
    }
     # заполнение таблицы
    .frm_work.tree_work configure -columns $column_list -displaycolumns $column_list
    .frm_work.tree_work insert {} end  -values $value_list -tags $tag
    .frm_work.tree_work column #0 -stretch
    # установка заголовков
    foreach j $column_list {
        .frm_work.tree_work heading $j -text $j
    }
    incr work_list_row_count
}

នៅទីនេះជំនួសឱ្យពាក្យបញ្ជាសាមញ្ញ [split $str ":"] ដែលបំបែកខ្សែអក្សរទៅជាធាតុដែលបំបែកដោយ ":" ហើយត្រឡប់បញ្ជី កន្សោមធម្មតាត្រូវបានប្រើ ដោយសារធាតុមួយចំនួនក៏មានសញ្ញាសម្គាល់ផងដែរ។

នីតិវិធី InsertClusterItems (មួយក្នុងចំណោមវត្ថុស្រដៀងគ្នាជាច្រើន) គ្រាន់តែបន្ថែមបញ្ជីនៃធាតុកូនជាមួយនឹងឧបករណ៍កំណត់អត្តសញ្ញាណដែលត្រូវគ្នាទៅនឹងមែកធាងនៃធាតុចង្កោមដែលត្រូវការ។
បញ្ចូល​ធាតុ​ចង្កោម

proc InsertClusterItems {tree id} {
    set parent "cluster::$id"
    $tree insert $parent end -id "infobases::$id" -text "Информационные базы" -values "$id"
    $tree insert $parent end -id "servers::$id" -text "Рабочие серверы" -values "$id"
    $tree insert $parent end -id "admins::$id" -text "Администраторы" -values "$id"
    $tree insert $parent end -id "managers::$id" -text "Менеджеры кластера" -values $id
    $tree insert $parent end -id "processes::$id" -text "Рабочие процессы" -values "workprocess-all"
    $tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "sessions-all"
    $tree insert $parent end -id "locks::$id" -text "Блокировки" -values "blocks-all"
    $tree insert $parent end -id "connections::$id" -text "Соединения" -values "connections-all"
    $tree insert $parent end -id "profiles::$id" -text "Профили безопасности" -values $id
}

អ្នកអាចពិចារណាជម្រើសពីរបន្ថែមទៀតសម្រាប់ការអនុវត្តនីតិវិធីស្រដៀងគ្នា ដែលវានឹងអាចមើលឃើញយ៉ាងច្បាស់ពីរបៀបដែលអ្នកអាចបង្កើនប្រសិទ្ធភាព និងកម្ចាត់ពាក្យបញ្ជាដដែលៗ៖

ក្នុង​នីតិវិធី​នេះ ការ​បន្ថែម​និង​ការ​ពិនិត្យ​ត្រូវ​បាន​ដោះស្រាយ​ដោយ​ផ្ទាល់៖

បញ្ចូលBaseItems

proc InsertBaseItems {tree id} {
    set parent "infobase::$id"
    if { [$tree exists "sessions::$id"] == 0 } {
        $tree insert $parent end -id "sessions::$id" -text "Сеансы" -values "$id"
    }
    if { [$tree exists "locks::$id"] == 0 } {
        $tree insert $parent end -id "locks::$id" -text "Блокировки" -values "$id"
    }
    if { [$tree exists "connections::$id"] == 0 } {
        $tree insert $parent end -id "connections::$id" -text "Соединения" -values "$id"
    }
}

នេះជាវិធីសាស្រ្តត្រឹមត្រូវជាងនេះ៖

InsertProfileItems

proc InsertProfileItems {tree id} {
    set parent "profile::$id"
    set lst {
        {dir "Виртуальные каталоги"}
        {com "Разрешённые COM-классы"}
        {addin "Внешние компоненты"}
        {module "Внешние отчёты и обработки"}
        {app "Разрешённые приложения"}
        {inet "Ресурсы интернет"}
    }
    foreach i $lst {
        append item [lindex $i 0] "::$id"
        if { [$tree exists $item] == 0 } {
            $tree insert $parent end -id $item -text [lindex $i 1] -values "$id"
        }
        unset item 
    }
}

ភាពខុសគ្នារវាងពួកវាគឺការប្រើរង្វិលជុំ ដែលពាក្យបញ្ជាដដែលៗត្រូវបានប្រតិបត្តិ។ តើ​វិធី​ណា​ក្នុង​ការ​ប្រើ​គឺ​ជា​ការ​សម្រេច​ចិត្ត​របស់​អ្នក​អភិវឌ្ឍន៍។

យើងបានគ្របដណ្តប់លើការបន្ថែមធាតុ និងការទាញយកទិន្នន័យ ឥឡូវនេះវាដល់ពេលដែលត្រូវផ្តោតលើការកែសម្រួលហើយ។ ចាប់តាំងពី ជាមូលដ្ឋាន ប៉ារ៉ាម៉ែត្រដូចគ្នាត្រូវបានប្រើសម្រាប់ការកែសម្រួល និងបន្ថែម (លើកលែងតែមូលដ្ឋានព័ត៌មាន) ទម្រង់ប្រអប់ដូចគ្នាត្រូវបានប្រើ។ ក្បួនដោះស្រាយសម្រាប់ហៅនីតិវិធីសម្រាប់ការបន្ថែមមើលទៅដូចនេះ៖

បន្ថែម៖:$key->AddToplevel

ហើយសម្រាប់ការកែសម្រួលដូចនេះ៖

កែសម្រួល៖:$key->បន្ថែម::$key->AddTopLevel

ជាឧទាហរណ៍ ចូរយើងធ្វើការកែសម្រួលចង្កោមមួយ ឧ. ដោយចុចលើឈ្មោះរបស់ចង្កោមនៅក្នុងមែកធាង ចុចប៊ូតុងកែសម្រួលក្នុងរបារឧបករណ៍ (ខ្មៅដៃ) ហើយទម្រង់ដែលត្រូវគ្នានឹងត្រូវបានបង្ហាញនៅលើអេក្រង់៖

កែសម្រួល៖:ចង្កោម

proc Edit::cluster {tree host values} {
    global default lifetime_limit expiration_timeout session_fault_tolerance_level
    global max_memory_size max_memory_time_limit errors_count_threshold security_level
    global load_balancing_mode kill_problem_processes active_cluster 
    agent_user agent_pwd cluster_user cluster_pwd auth
    if {$cluster_user ne "" && $cluster_pwd ne ""} {
        set auth "--cluster-user=$cluster_user --cluster-pwd=$cluster_pwd"
    } else {
        set auth ""
    }
    # рисуем форму для кластера
    set frm [Add::cluster $tree $host $values]
    # меняем текст на метке
    $frm configure -text "Редактирование кластера"
    
    set active_cluster $values
    # получаем данные по выделенному кластеру
    set lst [RunCommand cluster::$values "cluster info --cluster=$active_cluster $host"]
    # заполняем поля
    FormFieldsDataInsert $frm $lst
    # выключаем поля, редактирование которых запрещено
    $frm.ent_host configure -state disable
    $frm.ent_port configure -state disable
    # переназначаем обработчик
    .add.frm_btn.btn_ok configure -command {
        RunCommand "" "cluster update 
        --cluster=$active_cluster $auth 
        --name=[.add.frm.ent_name get] 
        --expiration-timeout=$expiration_timeout 
        --lifetime-limit=$lifetime_limit 
        --max-memory-size=$max_memory_size 
        --max-memory-time-limit=$max_memory_time_limit 
        --security-level=$security_level 
        --session-fault-tolerance-level=$session_fault_tolerance_level 
        --load-balancing-mode=$load_balancing_mode 
        --errors-count-threshold=$errors_count_threshold 
        --kill-problem-processes=$kill_problem_processes 
        $auth $host"
        $tree delete "cluster::$active_cluster"
        Run::server $tree $host ""
        destroy .add
    }
}

ដោយផ្អែកលើមតិយោបល់នៅក្នុងកូដ ជាគោលការណ៍ អ្វីគ្រប់យ៉ាងគឺច្បាស់លាស់ លើកលែងតែកូដកម្មវិធីគ្រប់គ្រងប៊ូតុងត្រូវបានបដិសេធ ហើយមាននីតិវិធី FormFieldsDataInsert ដែលបំពេញវាលជាមួយទិន្នន័យ និងចាប់ផ្តើមអថេរ៖

ការបញ្ចូលទិន្នន័យ FormFields

proc FormFieldsDataInsert {frm lst} {
    foreach i [lindex $lst 0] {
        # получаем список параметров и значений
        if [regexp -nocase -all -- {(D+)(s*?|)(:)(s*?|)(.*)} $i match param v2 v3 v4 value] {
            # меняем символы
            regsub -all -- "-" [string trim $param] "_" entry_name
            # заполняем данными
            if [winfo exists $frm.ent_$entry_name] {
                $frm.ent_$entry_name delete 0 end
                $frm.ent_$entry_name insert end [string trim $value """]
            }
            if [winfo exists $frm.cb_$entry_name] {
                global $entry_name
                set $entry_name [string trim $value """]
            }
            # для чекбоксов меняем значения
            if [winfo exists $frm.check_$entry_name] {
                global $entry_name
                if {$value eq "0"} {
                    set $entry_name no
                } elseif {$value eq "1"} {
                    set $entry_name yes
                } else {
                    set $entry_name $value
                }
            }
        }
    }
}

នៅក្នុងនីតិវិធីនេះ អត្ថប្រយោជន៍មួយទៀតនៃ tcl លេចឡើង - តម្លៃនៃអថេរផ្សេងទៀតត្រូវបានជំនួសជាឈ្មោះអថេរ។ ទាំងនោះ។ ដើម្បីធ្វើស្វ័យប្រវត្តិកម្មការបំពេញទម្រង់ និងការចាប់ផ្តើមនៃអថេរ ឈ្មោះនៃវាល និងអថេរត្រូវគ្នាទៅនឹងការប្តូរបន្ទាត់ពាក្យបញ្ជានៃឧបករណ៍ប្រើប្រាស់ rac និងឈ្មោះនៃប៉ារ៉ាម៉ែត្រលទ្ធផលពាក្យបញ្ជាដោយមានករណីលើកលែងមួយចំនួន - សញ្ញាត្រូវបានជំនួសដោយសញ្ញាគូសក្រោម។ ឧ កាលវិភាគការងារ - បដិសេធ ផ្គូផ្គងវាល ent_scheduled_jobs_បដិសេធ និងអថេរ scheduled_jobs_deny.

ទម្រង់សម្រាប់ការបន្ថែម និងការកែសម្រួលអាចមានភាពខុសប្លែកគ្នានៅក្នុងសមាសភាពនៃវាល ឧទាហរណ៍ ធ្វើការជាមួយមូលដ្ឋានព័ត៌មាន៖

ការបន្ថែមសុវត្ថិភាពព័ត៌មាន

ការកែសម្រួលសុវត្ថិភាពព័ត៌មាន

នៅក្នុងដំណើរការកែសម្រួល Edit::infobase វាលដែលត្រូវការត្រូវបានបន្ថែមទៅទម្រង់កូដគឺ voluminous ដូច្នេះខ្ញុំមិនបង្ហាញវានៅទីនេះទេ។

ដោយភាពស្រដៀងគ្នា នីតិវិធីសម្រាប់ការបន្ថែម ការកែសម្រួល ការលុប និងសម្រាប់ធាតុផ្សេងទៀតត្រូវបានអនុវត្ត។

ដោយសារប្រតិបត្តិការរបស់ឧបករណ៍ប្រើប្រាស់បង្កប់ន័យចំនួនមិនកំណត់នៃម៉ាស៊ីនមេ ចង្កោម មូលដ្ឋានព័ត៌មាន។ល។ ដើម្បីកំណត់ថាតើចង្កោមណាមួយជារបស់ម៉ាស៊ីនមេ ឬប្រព័ន្ធសុវត្ថិភាពព័ត៌មាននោះ អថេរសកលជាច្រើនត្រូវបានណែនាំ តម្លៃដែលត្រូវបានកំណត់នីមួយៗ។ ពេលដែលអ្នកចុចលើធាតុនៃដើមឈើ។ ទាំងនោះ។ ដំណើរការដំណើរការឡើងវិញតាមរយៈធាតុមេទាំងអស់ ហើយកំណត់អថេរ៖

SetGlobalVarFromTreeItems

proc SetGlobalVarFromTreeItems {tree id} {
    global host server active_cluster infobase
    set parent [$tree parent $id]
    set values [$tree item $id -values]
    set key [lindex [split $id "::"] 0]
    switch -- $key {
        server {set host $values}
        work_server {set server $values}
        cluster {set active_cluster $values}
        infobase {set infobase $values}
    }
    if {$parent eq ""} {
        return
    } else {
        SetGlobalVarFromTreeItems $tree $parent
    }
}

ចង្កោម 1C អនុញ្ញាតឱ្យអ្នកធ្វើការជាមួយ ឬគ្មានការអនុញ្ញាត។ មានអ្នកគ្រប់គ្រងពីរប្រភេទ - អ្នកគ្រប់គ្រងភ្នាក់ងារចង្កោម និងអ្នកគ្រប់គ្រងចង្កោម។ ដូច្នោះហើយ សម្រាប់ប្រតិបត្តិការត្រឹមត្រូវ អថេរសកលចំនួន 4 ទៀតត្រូវបានណែនាំដែលមានការចូល និងពាក្យសម្ងាត់របស់អ្នកគ្រប់គ្រង។ ទាំងនោះ។ ប្រសិនបើមានគណនីអ្នកគ្រប់គ្រងនៅក្នុងចង្កោម ប្រអប់នឹងត្រូវបានបង្ហាញដើម្បីបញ្ចូលការចូល និងពាក្យសម្ងាត់របស់អ្នក ទិន្នន័យនឹងត្រូវបានរក្សាទុកក្នុងអង្គចងចាំ ហើយបញ្ចូលទៅក្នុងពាក្យបញ្ជានីមួយៗសម្រាប់ចង្កោមដែលត្រូវគ្នា។

នេះជាទំនួលខុសត្រូវនៃនីតិវិធីដោះស្រាយកំហុស។

ការបំបែកកំហុស

proc ErrorParcing {err opt} {
    global cluster_user cluster_pwd agent_user agent_pwd
        switch -regexp -- $err {
        "Cluster administrator is not authenticated" {
            AuthorisationDialog "Администратор кластера"
            .auth_win.frm_btn.btn_ok configure -command {
                set cluster_user [.auth_win.frm.ent_name get]
                set cluster_pwd [.auth_win.frm.ent_pwd get]
                destroy .auth_win
            }
            #RunCommand $root $par
        }
        "Central server administrator is not authenticated" {
            AuthorisationDialog "Администратор агента кластера"
            .auth_win.frm_btn.btn_ok configure -command {
                set agent_user [.auth_win.frm.ent_name get]
                set agent_pwd [.auth_win.frm.ent_pwd get]
                destroy .auth_win
            }
        }
        "Администратор кластера не аутентифицирован" {
            AuthorisationDialog "Администратор кластера"
            .auth_win.frm_btn.btn_ok configure -command {
                set cluster_user [.auth_win.frm.ent_name get]
                set cluster_pwd [.auth_win.frm.ent_pwd get]
                destroy .auth_win
            }
            #RunCommand $root $par
        }
        "Администратор центрального сервера не аутентифицирован" {
            AuthorisationDialog "Администратор агента кластера"
            .auth_win.frm_btn.btn_ok configure -command {
                set agent_user [.auth_win.frm.ent_name get]
                set agent_pwd [.auth_win.frm.ent_pwd get]
                destroy .auth_win
            }
        }
        (.+) {
            tk_messageBox -type ok -icon error -message "$err"
        }
    }
}

ទាំងនោះ។ អាស្រ័យលើអ្វីដែលពាក្យបញ្ជាត្រឡប់មកវិញ ប្រតិកម្មនឹងទៅតាមនោះ។

នៅពេលនេះ ប្រហែល 95 ភាគរយនៃមុខងារត្រូវបានអនុវត្ត ហើយអ្វីដែលនៅសេសសល់គឺត្រូវអនុវត្តការងារជាមួយទម្រង់សុវត្ថិភាព ហើយសាកល្បងវា =)។ អស់ហើយ។ ខ្ញុំ​សូម​អភ័យទោស​ចំពោះ​រឿង​ដែល​ច្របូកច្របល់។

កូដមានជាប្រពៃណី នៅទីនេះ.

ធ្វើបច្ចុប្បន្នភាព៖ ខ្ញុំបានបញ្ចប់ការធ្វើការជាមួយទម្រង់សុវត្ថិភាព។ ឥឡូវនេះមុខងារត្រូវបានអនុវត្ត 100% ។

អាប់ដេត 2៖ ការធ្វើមូលដ្ឋានីយកម្មទៅជាភាសាអង់គ្លេស និងរុស្ស៊ីត្រូវបានបន្ថែម ការងារនៅក្នុង win7 ត្រូវបានសាកល្បង


ប្រភព: www.habr.com