125 lines
6.6 KiB
Tcl
125 lines
6.6 KiB
Tcl
#######################################################
|
||
# RAC GUI
|
||
# Distributed under GNU Public License
|
||
# Author: Sergey Kalinin svk@nuk-svk.ru
|
||
# Copyright (c) "SVK", 2019, http://nuk-svk.ru
|
||
######################################################
|
||
|
||
set help_text {
|
||
Программа Rac-GUI представляет собой мультиплатформенный графический интерфейс к консольной утилите 1С rac.
|
||
Основной интерфейс программы состоит из:
|
||
1. Панели инструментов
|
||
2. Дерева для отображения структуры
|
||
3. Табличного поля
|
||
|
||
Для добавления, редактирования, удаления сущностей (сервера, информационные базы, сеансы) предназначены соответствующие кнопки, расположенные в панели инструментов слева. Кнопки контекстно-зависимые, т.е. в зависимости от того какой раздел активен для работы (сервер, информационные базы, кластер, сеансы и так далее), функции кнопок меняются.
|
||
|
||
После первого запуска программы следует добавить основной сервер кластера 1С (где запущен ras). Для этого надо нажать кнопку "+" в панели инструментов, или сочетание клавиш Control-Insert. И в открывшейся форме заполнить соответствующие поля. Так как каждый сервер управления и клиент могут работать только на одинаковой платформе 1С, то в RAC-GUI для каждого сервера указывается команда (файл rac) для соответствующей платформы.
|
||
|
||
= "Горячие" клавиши =
|
||
|
||
Insert - добавление нового
|
||
Delete - удаление текущего раздела (сущности)
|
||
Control-Enter - редактирование текущего раздела (сущности)
|
||
Control-Q - выход из программы
|
||
F1 - вызов дилога помощи
|
||
|
||
= Настройки серверов =
|
||
При первом старте, после добавления сервера и щелчка на нем мышкой, список кластеров, серверов и ИБ будет автоматически сохранён (при выходе) в файл настроек (конфигурации)
|
||
|
||
= Формат файла конфигурации =
|
||
Формат файла настроект серверов похож на JSON, но представляет собой несколько TCL-словарей вложенных друг в друга.
|
||
Обязательными значениями являются адрес хоста, номер порта и путь к RAC. Остальные настройки опциональны.
|
||
Опции сервера:
|
||
name - наименование сервера
|
||
rac_cmd - полный путь к утилите rac
|
||
agent_user - имя администратора агента кластера
|
||
agent_pwd - пароль администратора агента кластера
|
||
|
||
Опции кластера:
|
||
cluster_name - наименование кластера
|
||
cluster_user - имя администратора кластера
|
||
cluster_pwd - пароль администратора кластера
|
||
|
||
Опции инф. базы:
|
||
infobase_name - наименование ИБ
|
||
infobase_user - имя пользователя ИБ
|
||
infobase_pwd - пароль пользователя ИБ
|
||
|
||
Адреса хостов, номера портов, идентификаторы кластеров и ИБ должны соответствовать реальным.
|
||
|
||
Пример настроек:
|
||
|
||
localhost:1545 {
|
||
name "Локальный сервер"
|
||
rac_cmd "/opt/1C/v8.3/x86_64/rac"
|
||
agent_user ""
|
||
agent_pwd ""
|
||
clusters {
|
||
3ed9081a-c5b0-11e9-cf8a-1c1b0d94027e {
|
||
cluster_name "eeee"
|
||
}
|
||
4581a966-a6bf-11e9-3c95-1c1b0d94027e {
|
||
cluster_name "Локальный кластер"
|
||
cluster_user ""
|
||
cluster_pwd ""
|
||
infobases {
|
||
1e1d1cea-b856-11e9-748a-1c1b0d94027e {
|
||
infobase_name "wewe"
|
||
infobase_user "ibuser"
|
||
infobase_pwd "ibpwd"
|
||
}
|
||
0129b2b2-b8d6-11e9-748a-1c1b0d94027e {
|
||
infobase_name "testdb"
|
||
infobase_user "testdb2-user"
|
||
infobase_pwd "testdb2-pwd"
|
||
}
|
||
cac80302-b855-11e9-748a-1c1b0d94027e {
|
||
infobase_name "testdb"
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
192.168.125.145:1545 {
|
||
name "Test"
|
||
rac_cmd /opt/1C/v8.3/x86_64/rac"
|
||
clusters {
|
||
}
|
||
}
|
||
1c-srv:1545 {
|
||
name "Cервер для бухгалтерии"
|
||
rac_cmd "/opt/1C/v8.3.13_1644/x86_64/rac"
|
||
clusters {
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
proc ShowHelpDialog {} {
|
||
global default dir racgui_version racgui_release help_text
|
||
set frm [AddToplevel [::msgcat::mc "About"] help_grey_64]
|
||
wm title .add [::msgcat::mc "About"]
|
||
ttk::label $frm.lbl_version -text "[::msgcat::mc "Version"]: $racgui_version"
|
||
ttk::label $frm.lbl_release -text "[::msgcat::mc "Release"]: $racgui_release"
|
||
|
||
text $frm.txt -wrap word
|
||
ttk::scrollbar $frm.hsb -orient horizontal -command [list $frm.t xview]
|
||
ttk::scrollbar $frm.vsb -orient vertical -command [list $frm.t yview]
|
||
text $frm.t -xscrollcommand [list $frm.hsb set] -yscrollcommand [list $frm.vsb set]
|
||
grid $frm.lbl_version -row 0 -column 0 -sticky nsew -padx 5 -pady 2
|
||
grid $frm.lbl_release -row 1 -column 0 -sticky nsew -padx 5 -pady 2
|
||
grid $frm.t -row 2 -column 0 -sticky nsew
|
||
grid $frm.vsb -row 2 -column 1 -sticky nsew
|
||
grid $frm.hsb -row 3 -column 0 -sticky nsew
|
||
grid columnconfigure $frm 0 -weight 1
|
||
grid rowconfigure $frm 0 -weight 1
|
||
|
||
$frm.t insert end $help_text
|
||
destroy .add.frm_btn.btn_ok
|
||
return $frm
|
||
}
|
||
|
||
|
||
|