(1 replies, posted in General)

Hello. Is there anyone know what was used in the functions EncryptRC5, EncryptFileRC5, DecryptRC5 and DecryptFileRC5? I want to access encrypted file/String from this function and access it on my Delphi application.

Thanks in advance.


(3 replies, posted in General)

Hello. Dmitry do have official statement on not continuing MVD. But it is a mature one. I've built several database applications with this one. For me, having developing on Delphi for quite some time now is a plus. MVD for me rocks if you want to develop standalone database applications. Shifted to Delphi due to software requirements, If the map just been updated, this is solid.

http://myvisualdatabase.com/forum/viewt … 720#p45720


(1 replies, posted in General)

Hello, Is DynamicWrapperX not working? It throws error Invalid class string ProgID: DynamicWrapperX.

I want to load dll function on my application.


(5 replies, posted in General)

oh. nevermind. got it working. thanks to chatgpt. smile it is a server side thing. just change to mysql_native_password on your mysql 8 yves if it is not a big deal on the security measures of your mysql database server and you can connect to it. thanks CDB. been looking for this for quite sometime now.


(5 replies, posted in General)

CDB wrote:

There is the possibility you need to change the Authentication method,  I have used v8.0 with MVD some time ago and I had to set the authentication method to the legacy type.

do you perhaps have with you a snippet or sample on how to change the auth method?


(2 replies, posted in General)

derek wrote:

Hi Brian,
Not sure if this is what you need

chart.view3d := false;


this is neat, thanks derek. I think ill just have a toggle button to do the trick. but if there are other options that can retain 3d and just remove shadow, that'll be awesome.


(5 replies, posted in General)

Hello Yves,

I'm using MySQL version 5.6.51 for my MVD LAN-based projects. Unfortunately if I'm not mistaken, this is the latest mysql version you can use with MVD.


(2 replies, posted in General)

hello, anyone familiar with the piechart on TCHart? I've been looking for a solution to remove its shadow. Thanks


(5 replies, posted in General)

Hello, I worked on a responsive dashboard and used panel for it. This might give you an idea. It is not perfect, but might help. smile


(7 replies, posted in Talks about all)

hichame wrote:

si dmitry ne veut pas continuer à développer MDV, pourquoi ne pas transmettre le code source à un autre développeur?

(we can not add components or controls to MDV)

It has been a concern since then. But the thing is that MVD was created using a legendary and old version of Delphi I'm not so sure to what exact version 5 or 7 maybe. There are also tons of components to consider. If you have tried Developing using Delphi, you'll understand giving project code to someone will be difficult. Having license to these components to continue developing MVD will cost you fortune for sure.


(7 replies, posted in Talks about all)

hichame wrote:

i m so sad when i see no new posts in this forum.
i check the forum evry day . And i m so sad also to see such a good software such MDV will be discontined .
just i want to know if is there any future for this good and unique software in the internet.
Have a good day for all.

Dmtry's not gonna continue developing MVD so far he said on this thread  http://myvisualdatabase.com/forum/viewtopic.php?id=8261

So far, I can continue developing software in MVD without any problem, we just add components (new app that access same database using Delphi - an expensive one thou) to cope some features that MVD can't handle such as the Map for the component used by MVD's not working anymore with google map's update


(4 replies, posted in General)

v_pozidis wrote:

Maby this one will help you..

I think he's asking on the third party software/library used by MVD to create DB diagram automatically.

Are you perhaps just looking for a library to be embedded to an application teco?

Or you just needed a tool? If so, then perhaps this list would be nice to try https://www.guru99.com/free-database-di … tools.html

I'm using Navicat Premium(this one's not on that list and is paid thou) on managing my databases and it can do this on its Reverse Database to Model. It also allows you to create a model, then sync it to database or export to sql, etc.

Navicat also has their Data Modeler w/ free version, the Essentials but with limited to just creating your model/diagram, then saving it to image or pdf. Exporting it to sql or connecting to database will need a subscription.

Nice. It seems you got the solution then.
You can also try the condition <=>
Sorry, I don't speak Russian so I have to use G.Translate first.

CREATE DEFINER=`******`@`%` TRIGGER `pk_adi`.`edit_anketa_napravl_spec` AFTER UPDATE ON pk_adi.anketa FOR EACH ROW
  Set @var_napravl_spec1 = Old.napravl_spec;
  IF @var_napravl_spec1 IS NULL then Set @var_napravl_spec1 = 'пусто'; End If;
  Set @var_napravl_spec2 = New.napravl_spec;
  IF @var_napravl_spec2 IS NULL then Set @var_napravl_spec2 = 'пусто'; End If;
  Set @fi= (SELECT CONCAT(fullname," ",name) FROM anketa WHERE id=Old.id);
  set @idU = New.id_users1;
  set @nKart = Old.n_abit;

  IF !(old.napravl_spec <=> new.napravl_spec) THEN
  INSERT INTO log_extend VALUES(NULL,@idU,SYSDATE(),CONCAT("изменение поля <<специальность документа об образовании>> в № карточки ",@nKart," ",@fi,". Было: ",@var_napravl_spec1,", стало: ",@var_napravl_spec2));
  End if;

Hello, I'm not sure to what field are you trying to cite here. The name perhaps? try using COALESCE while doing CONCAT with nullable fields

CONCAT(COALESCE(fullname,"")," ",COALESCE(name,""))


(21 replies, posted in General)


Here's an idea. Hope it can be a start to what you want to do with it.


(1 replies, posted in General)

I hope Dmitry can consider this. We would love to support you on this one.


(3 replies, posted in General)


I don't know if you are trying to get the Disk's serial. but you can use the function in the right side of the script

tcoton wrote:

Is there a more secure way to connect to a SQL Server, everything is readable in the script file. Could it be possible to connect using ODBC connection directly so it is not hard coded?

Here's my way of adding security to it. I think direct ODBC connection is not possible in Pascal Script.


(5 replies, posted in General)

Hope something like this can get you started to what you are looking for.


(7 replies, posted in Database applications)

Here's an updated link of the project.

https://www.dropbox.com/s/1dnv5mcv3sqgp … r.zip?dl=1


(2 replies, posted in Script)


procedure frmLogin_Button1_OnClick ( Sender: string; var Cancel: boolean ); // check credentials and, if okay, show Form1
///////////////  Login, password, user rights  /////////////////////
    chk: Integer;
    chk := SQLExecute('SELECT COALESCE(id, -1) FROM users WHERE lldelo LIKE '''+frmLogin.Edit1.Text+''' AND pass LIKE '''+StrToMD5 ( frmLogin.Edit2.Text )+'''');   
    // opt 2
    // chk := SQLExecute('SELECT COALESCE(id, -1) FROM users WHERE lldelo LIKE '''+frmLogin.Edit1.Text+''' AND pass LIKE '''+UPPERCASE(StrToMD5 ( frmLogin.Edit2.Text ))+'''');         

   if chk > 0 then

again, it is better for you to attach a sample working program with the problem, It would be much easier that way


(5 replies, posted in Script)

your indicated valid employee number is vague. can you elaborate it?
is it all emp no must be a 4 digit number or must 1 to 9999? Or which is which?


(6 replies, posted in Script)

frmOrderProduct.Button6.dbDontResetID := False;

This code will always make make it add new record if you are not closing the form after saving.

it will be much appreciated if you can attach if not your project, just a simple one so that people can check it out easily. It is much easier to debug with it


(3 replies, posted in Reports)

It's hard trying to create a report without the data. But have you tried having where clause?

Select employees.employees.lastname,
   Total((bsm_off.cost * bsm_off.inn))
From bsm_off
Left Join employees On employees.id = bsm_off.id_employees
Left Join orderproduct On orderproduct.id = bsm_off.id_orderproduct
WHERE bsm_off.Vidano = 1
Group By bsm_off.orderproduct


(6 replies, posted in Script)

I'm not so sure to what will be the implementation of the idea but here's a sample that will get you started. Hope it'll help.