Советы начинающему 1с программисту

Процедура Подключить()
    //Сервер="localhost";
    //ПользовательСервера="root";
    //ПарольСервера="";
   // БазаСервера="lora_bd";
 
    Соединение = Новый COMОбъект("ADODB.Connection");                                                                                                     
    Соединение_param = "driver={MySQL ODBC 5.1 Driver}; server=localhost; uid=root; pwd=; database=lora_bd; port=3306; STMT=SET CHARACTER SET cp1251;";
    Try
    Соединение.open(Соединение_param);
    Сообщить("подключить");
    Except
    Сообщить("Отсутствует связь с базой!");
    return;
    EndTry;
КонецПроцедуры

Процедура ПриНачалеРаботыСистемы()
    // СтандартныеПодсистемы
    ОбщегоНазначенияКлиент.УстановитьПроизвольныйЗаголовокПриложения();
 
    // ОбновлениеВерсииИБ
    ОбновлениеИнформационнойБазыКлиент.ВыполнитьОбновлениеИнформационнойБазы();
    // Конец ОбновлениеВерсииИБ
 
    // отработка параметров запуска системы
    Если ОбработатьПараметрыЗапуска(ПараметрЗапуска) Тогда
        Возврат;
    КонецЕсли;
    
    // ЗавершениеРаботыПользователей
    СоединенияИБКлиент.УстановитьКонтрольРежимаЗавершенияРаботыПользователей();
    // Конец ЗавершениеРаботыПользователей
    
    // ОбновлениеКонфигурации
    ОбновлениеКонфигурацииКлиент.ПроверитьОбновлениеКонфигурации();
    // Конец ОбновлениеКонфигурации
    
    // РегламентныеЗадания
    // Прим.: подсистема КонтрольДинамическогоОбновленияКонфигурации
    //        должна настраиваться после подсистемы РегламентныеЗадания, т.к. в режиме запуска отдельного
    //        сеанса обработки регламентных заданий, управление не будет и не должно быть передано далее.
    РегламентныеЗаданияКлиент.ПриНачалеРаботыСистемы();
    // Конец РегламентныеЗадания
    
    // КонтрольДинамическогоОбновленияКонфигурации
    КонтрольДинамическогоОбновленияКонфигурацииКлиент.ПриНачалеРаботыСистемы();
    // Конец КонтрольДинамическогоОбновленияКонфигурации
    
    // Конец СтандартныеПодсистемы
    
    //РаботаСВнешнимОборудованием
    МенеджерОборудованияКлиент.ПриНачалеРаботыСистемы();
    //Конец РаботаСВнешнимОборудованием
    
    //РаботаСМобильнымиПриложениями
    МобильныеПриложенияКлиент.ПриНачалеРаботыСистемы();
    //Конец РаботаСМобильнымиПриложениями
    
КонецПроцедуры

Процедура Подключить()
    Соединение = Новый COMОбъект("ADODB.Connection");                                                                                                     
    Соединение_param = "driver={MySQL ODBC 5.1 Driver}; server=localhost; uid=root; pwd=; database=lora_bd; port=3306; STMT=SET CHARACTER SET cp1251;";
    Try
    Соединение.open(Соединение_param);
    Сообщить("Связь установлена!");
    Except
    Сообщить("Отсутствует связь с базой!");
    return;
    EndTry;
КонецПроцедуры
 
Процедура ПриНачалеРаботыСистемы()
 
    Подключить();
 
КонецПроцедуры

records = Новый COMобъект("ADODB.RecordSet");
    records.ActiveConnection = соединение;
    records.open("Select * from `lora_bd`.`test`;");
    records.CursorLocation = "adUseClient";
        сообщить(records.RecordCount());

records.CursorLocation = 3;

&НаСервере
Процедура ПослеЗаписи(ПараметрыЗаписи)
    Справка = Справочники.Каталоги;
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗаписи(ПараметрыЗаписи)
    Справка = Справочники.Каталоги;
КонецПроцедуры