Search options (Page 28 of 61)

4. Свойство дерева dbGeneralTable не содержит названия таблицы

Задумал я одну полезную функцию написать - определять имя таблицы, с которой работает форма табличного представления.

function Form_GetTableName(AForm:TAForm):string;
// функция возвращает название таблицы, с которой работает форма
var
  tmpButton:TdbButton;
  tmpGrid: TdbStringGridEx;
  tmpTree: TdbTreeView;
begin
  Result := '';
  FindC(AForm,'btnUpdate',tmpButton,False);
  if tmpButton <> nil then
    Result := tmpButton.dbGeneralTable
  else
  begin
    FindC(AForm,'tgrMain',tmpGrid,False);
    if tmpGrid <> nil then
      Result := tmpGrid.dbGeneralTable
    else
    begin
      FindC(AForm,'trvMain',tmpTree,False);
      if tmpTree<>nil then
        Result := tmpTree.dbGeneralTable;
    end;
  end;
end;

Функция прекрасно работает с формами, на которых имеется таблица с именем tgrMain или кнопка поиска с именем btnUpdate, извлекая имя таблицы из свойства dbGeneralTable. Но оказалось, что это свойство для дерева пустое.

Справедливости ради надо отметить, что данное свойство для дерева не документировано. Но оно существует, а так как TdbTreeView является наследником TdbStringGridEx, то ожидается, что данное свойство содержит имя таблицы, с котором работает компонент. Но в данном случае ожидания не совпадают с реальностью.

Версия MVDB 6.6.1 beta

Ваша правда - практика всегда лучше рассуждений. Пожалуй, надо исправить моё неверное утверждение насчет сортировок в пределах запроса. Благодарю за науку.

Давайте дружить таблицами

Как организовать глобальный поиск на практике, если нужно искать в разных таблицах, а результат формировать в одном запросе? В этом нам поможет SQL-команда UNION.

Читать: https://k245.ru/mvdb/davajte-druzhit-tablitsami.html

{$MySQL disable_connectdialog}

var
  // системные переменные
  SQLCon: TMyConnection; // соединение с базой

function ConnectToDB(AServer: string; APort: integer; ADataBase: string'; AUsername: string'; APassword: string): boolean;
// подключение к Базе данных; Возвращает True при успешном подключении; 
begin
  SQLCon.Server := AServer;
  SQLCon.Port := APort;
  SQLCon.Database := ADataBase;
  SQLCon.Username := AUsername;
  SQLCon.Password := APassword;
  try
    SQLCon.Connect;
    result := SQLCon.Connected;
  except
    result := False;
  end;
end;

procedure InitSystemVar;
var
  i: integer;
  tmpForm: TAForm;
begin
  for i := 0 to Screen.FormCount - 1 do
  begin
    tmpForm := TAForm(Screen.Forms[i]);
    FindC(tmpForm, 'MySQLConnection', SQLCon, False);
    if SQLCon <> nil then
      break;
  end;
end;

procedure FindC(AForm: TAForm; AName: string; var AComponent: TComponent; ACheck: boolean = True);
// поиск компонента на форме с контролем
begin
  AComponent := AForm.FindComponent(AName);
  if ACheck and (AComponent = nil) then
    ShowMessage('Не найден компонент ' + AForm.Name + '.' + AName);
end;

begin
  InitSystemVar;
end.

Use the ConnectToDB() to connect to the desired server.

ConnectToDB('192.168.0.1',3306,'myBase','admin','password')

You cannot connect to two databases at the same time, but you can connect to different databases in turn, saving the data received from the first database in local files for later transfer to the second database.

Лечение копипаста

Копипаст – это самое распространенное заболевание исходного кода программы. Генезис его таков: кажется, что достаточно скопировать, немного подправив, некий участок кода несколько раз и результат готов! Зачем делать сложно, если можно сделать просто?

Для начала несколько слов в защиту данной методики достижения цели. Так можно делать, если вы хотите проверить какую-то концепцию, быстро сделать прототип и показать его конечному пользователю. В этом случае копипаст вполне оправдан и даже полезен, так как экономит время получения первого результата.

Однако, если вы делаете рабочий проект и хотите, чтобы он (и вы вместе с ним) жили долго и счастливо, от копипаста в коде нужно избавляться. И вот почему.

Читать: https://k245.ru/mvdb/lechenie-kopipasta.html

That's right, it works well if the required transparency is 100%. But I was spoiled by free libraries with images of buttons with translucent elements, in PNG format. They look very good due to anti-aliasing, which is achieved by smoothly changing the transparency of the edge of the image.

I'm currently working on responsive button images that will change color depending on the UI style chosen (active and passive button colors). Unfortunately, I will have to switch to the BMP format - only with it in MVDB it is possible to implement what I had in mind.

Perhaps this is due to the fact that several instances of the application were launched, one of which hung (which often happens if there was an error in the script) and blocked access to the file with graphic resources. Try to end in the task manager all the processes created by My Visual Database.

Using the standard checker field will not work, since such a field in the column with checkers has the Boolean type. To implement the plan, you will have to use scripts to create and display a column with three-state checker images. You will also need a table click handler to change images.

Полностью согласен! 

procedure F_OnActivate (Sender: TObject);
var
  tmpCombo: TdbCombobox;
begin
  tmpCombo := GetCombo;
  tmpCombo.dbSQLexecute('SELECT id, username FROM _user ORDER BY username');
  tmpCombo.dbUpdate;
end;

function GetCombo: TdbComboBox;
//
var
  i: integer;
begin
  for i := 0 to frmdbCoreLogin.componentCount - 1 do
  begin
    if frmdbCoreLogin.Components[i] is TdbCombobox then
    begin
      Result := TdbCombobox( frmdbCoreLogin.Components[i] );
      exit;
    end;
  end;
end;

begin
   TAForm(frmdbCoreLogin).OnActivate := @F_OnActivate;
end.

Результат:

Исходники доступны через платный абонемент.