1

(4 replies, posted in General)

ehwagner,  Thank you.

Спасибо.

3

(4 replies, posted in General)

ehwagner wrote:

vohans,
Insert the following after you are connected.

Form1.TableGrid1.dbUpdate;

Thank you, but I need to load the data into TableGrid already from MySQL to which we are connected. "dbUpdate" updates TableGrid from SQLite database.

4

(4 replies, posted in General)

Hello, friends! Help with the question. For example: I work with the SQLite database, but there is also a MySQL database and I would like to connect to it through the button with a script in the program. But how can I get data from the MySQL database to which I connected with the button, if there is Form1.TableGrid1? Is it possible? Thank.


I connect to the database like this:

procedure Form1_Button9_OnClick (Sender: TObject; var Cancel: boolean);
var
    MySQL: TMyConnection;
begin
    MySQL := TMyConnection.Create(Form1);
    try
            MySQL.Options.UseUnicode := True;
            MySQL.Server := '127.0.0.1'; 
            MySQL.Port := 3306;
            MySQL.Username := 'user';
            MySQL.Password := 'pass';
            MySQL.Database := 'base';
            MySQL.LoginPromt := False;

            try
                MySQL.Connect;
            except
                ShowMessage('Can''t connect to database.');
            end;

            if MySQL.Connected then
            begin
               ShowMessage ('DB OK');
            end;

    finally
        //MySQL.Free;
    end;
end;

With Google translator.

Все нормально, я подключился. Но как я могу получить данные из базы MySQL к которой подключился кнопкой, если есть Form1.TableGrid1?

DriveSoft wrote:

Приветствую.


Да, посмотрите данный пример
http://myvisualdatabase.com/forum/misc. … download=1

Спасибо.

Здравствуйте Дмитрий и уважаемые форумчане! Помогите новичку осуществить такую идею. Возможно ли подключатся к двум базам через кнопку скриптом. Например: я работаю с базой SQLite и мне нужно подключится к базе MySQL внести изменения и вернутся в свою базу??? Заранее спасибо.

DriveSoft wrote:
frmdbCoreUsers.gridUsers.dbListFieldsNames := 'Username,Role,Admin,Active,Last name,First name,Last login,Date joined';

Спасибо.

DriveSoft wrote:
vohans wrote:

Появилась еще одна проблемка: как убрать всплывающие подсказки или перевести на другой язык?
Вот это:

Скачайте пожалуйста последнюю бета версию
https://www.dropbox.com/s/vyne4lvinpjzl … a.zip?dl=0


Теперь имеется доступ к данным кнопкам с помощью скрипта, можете разместить данный код между begin и end. в самом конце скрипта.


begin
  Form1.DBImage1.ButtonOpen.Hint := 'Подсказка1';
  Form1.DBImage1.ButtonSave.Hint := 'Подсказка2';
  Form1.DBImage1.ButtonDelete.Hint := 'Подсказка3';
end.

Здравствуйте Дмитрий! Спасибо за ответ. Прошу помощи с изменением вот этого  меню:
https://s8.hostingkartinok.com/uploads/thumbs/2020/04/8fee7129aa961d263e75bdc4307b585e.png

Пробовал вот так:

TdbStringGridEx(frmdbCoreUsers.gridUsers).Columns[0].Header.Caption := '123';

но скрипт не работает.

DriveSoft wrote:

zoomix
я выше написал, что окончательное сохранение происходит при нажатии на кнопку Сохранить, если вы нажмете кнопку Удаления фотографии, она на самом деле не будет удалена, пока вы не нажмете кнопку Сохранить, только тогда, данное удаление будет применено.


к сожалению в версии 1.46 нет возможности скрыть всплывающие кнопки у компонента DBImage


Подскажите, а как убрать надписи с  всплывающих кнопок на компоненте DBimage?

Появилась еще одна проблемка: как убрать всплывающие подсказки или перевести на другой язык?
Вот это:

sibprogsistem wrote:

тут нужно просто Дмитрия дождаться, он скажет как !

Хорошо, большое спасибо Вам.

sibprogsistem wrote:

ах вот оно что..
как я понимаю язык заголовка формируется при запуске окна, потому у Вас не получается его изменить!!

Наверное да, значит не получится изменить или даже скрыть?
Вот так:

frmdbCoreUsers.gridUsers.Columns[0].Visible := False;

sibprogsistem wrote:

перепроверил, заголовок меняется..

Что ж я не так делаю??? Подскажите...

sibprogsistem wrote:

может вы вызываете этот скрипт слишком рано

Он исполняется последним.

sibprogsistem wrote:

это зависит от типа формирования  таблицы
стандарт::
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=6501&download=0

Спасибо что ответили, но мне нужно изменить язык в самом интерфейсе программы: Опции-Пользователи-и дальше название колонок:
Например, вот скрипт:

TdbStringGridEx(frmdbCoreUsers.gridUsers).Columns[0].Header.Caption := '123';

но он не работает, наверное что то не так делаю...

sibprogsistem wrote:
vohans wrote:

Здравствуйте! Нужно сменить язык для этих двух пунктов.

название столбцов или текст в колонках?

Название столбцов.

domebil wrote:

how to translate this menu

Вот так:

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form1.TableGrid1.dbPopupMenu.Items[0].Caption := 'Show record';
    Form1.TableGrid1.dbPopupMenu.Items[1].Caption := 'Cope cell';
    Form1.TableGrid1.dbPopupMenu.Items[3].Caption := 'Copy row';
    Form1.TableGrid1.dbPopupMenu.Items[4].Caption := 'Copy al';
    Form1.TableGrid1.dbPopupMenu.Items[5].Caption := 'Find';
end;

vohans wrote:
domebil wrote:

how to translate this menu

И это:

Нашел:

frmdbCoreLogin.Caption := 'Вход';
            frmdbCoreLogin.bLogin.Caption := 'Вход';

vit007 wrote:

Да, вот перевод бы на таблицу, когда по ней клацаешь правой клавишей... или как это меню выключить...

Сриптом:

   

Form1.TableGrid1.dbPopupMenu.Items.Items[0].Visible := False; // скроет первый пункт в меню
   Form1.TableGrid1.dbPopupMenu.Items.Items[1].Visible := False; // скроет второй пункт в меню и т.д.
   Form1.TableGrid1.dbPopupMenu.Items.Items[2].Visible := False;
   Form1.TableGrid1.dbPopupMenu.Items.Items[3].Visible := False;
   Form1.TableGrid1.dbPopupMenu.Items.Items[4].Visible := False;
   Form1.TableGrid1.dbPopupMenu.Items.Items[5].Visible := False;
   Form1.TableGrid1.dbPopupMenu.Items.Items[6].Visible := False;

Здравствуйте! Нужно сменить язык для этих двух пунктов.

22

(20 replies, posted in Russian)

RasNikGal wrote:
vohans wrote:

Здравствуйте! Помогите пожалуйста локализировать Окно входа: , а также окна меню : Пользователи и Изменить пароль.
Заранее спасибо.

как понимать данный ?


Нужно сменить язык. Прикрепил файл.

Не могу найти как изменить язык в этой форме.

Здравствуйте! Как можно отредактировать эти записи в подпункте меню: Пользователи? Спасибо.

sibprogsistem wrote:

это ошибка обновления данных в БД
программа не может обновить данные в поле Last_Login

а Вы сменили заголовки формы и кнопки, это не должно влиять, для проверки закомментируйте эти строки...

Да, спасибо, разобрался.