Search options (Page 7 of 34)

I may express myself wrongly, let me reformulate.

I have a table with ids that are associated to a status.
This status is displayed via a combobox.
According to the status displayed or chosen, a script changes something in the project, like disabling an object or checking automatically a checkbox.
Some other status could lead to the same action.
Instead of writing complex SQL queries that I can write, I want to know if I can associate multiple values to the object property "SqlValue" in the script tab like in the attached example.

In this project, selecting a color changes the panel below it. The last 2 choices should both change to purple, not red but it does not with current script.

procedure Form1_ComboBox1_OnChange (Sender: TObject);
begin
if form1.ComboBox1.sqlValue='2' then
form1.Panel1.Color:= clGreen;
if form1.ComboBox1.sqlValue='3' then
form1.Panel1.Color:= clTeal;

// I would like to combine both sqlvalue = so it would be like a sqlExecute(select status.id from status where id=4 or id=5) .... or where id in('4','5')

{if form1.ComboBox1.sqlValue='4' then    // same color as below
form1.Panel1.Color:= clRed;
if form1.ComboBox1.sqlValue='5' then    // same color as above
form1.Panel1.Color:= clRed; }

if form1.ComboBox1.sqlValue='4 or 5' then    // either choice = same color
form1.Panel1.Color:= clPurple;
end;

I had a look a their website and I do not read or speak Russian so I had quite the headache just by surfing on their website, wiki and forum. The software looks promising but it might be for Russian speakers only. Google translate does a very poor job at translating huge volume of text from complex languages and so does DeepL but with better language refinement.

Tu as essayé de mettre les translate tout en bas du script avant le dernier end.  (Celui qui finit par un point et pas un point-virgule)

Dans la partie script tout en bas avant le end.

Essaie:

 Translate('Yes', 'Oui');
    Translate('No', 'Non');
    Translate('None', 'Aucun');
    Translate('Skip', 'Passer');
    Translate('Close', 'Fermer');
    Translate('Cancel', 'Abandonner');

D'après le post : http://myvisualdatabase.com/forum/viewtopic.php?id=8462

No, I am talking about the forms and buttons color, the global application look within the project that are defined by this style.vsf file. By default, MVD buttons are pretty standard (ugly?). Maybe you got the file somewhere and you are using it by default for all your projects?

Too bad, I get the error : "You do not have permission to access this page." when following your link.

@Sparrow, I did read the help before posting but it was so unclear that I did not understand how to use it. I think YOUR explanation should replace what is written in the help To be fair, the MVD manual is pretty thin on how exactly we should/could use the components/methods and properties.

@Derek, the counter idea is a good idea, I will keep it for another purpose!!

I got it working with just this script:

procedure Admin_OnShow (Sender: TObject; Action: string);
begin
Admin.Adm_PC_ID.Text:= IntToStr(Admin.Adm_save.dbGeneralTableId);
end;

I still think this should not be so cumbersome to get this ID!!

Thanks folks once again!

@reteinformatica What did you use to create the VSF file to get the nice button icons?

The purpose is very simple, I need to use scripts to update information not shown in the current form to be updated according to the id of the record being edited and not using a field that could contain a duplicate. Why do I use 2 table grids in Form1 is because the client needs to see which computers are in need of maintenance and access them without having to lookup for them to not forget about them. There are other "prime" information displayed as well in the full project.

Now I have tricked the app by altering the database while the app was open so it would throw an SQL error to see exactly what it does when using "Show record" and "Save record" functions within the grids and the SQL query triggered contains indeed the id of the computer related to what I am doing!!! The id looks like it is stored as a temporary variable within MVDB framework when saving the record. So, where is this id stored that we cannot access it with scripts or even display in a field?

I even tried to select the computers.id within the search grid, it is displayed in the table grid but we cannot display it in a field as it is not available in the dropdown of the field properties!!!!!

The "show record" function triggers this SQL query:

SELECT table1.columnX, table1.columnY, table1.columnZ from table1 where table1.id=A

The "save record" function triggers this SQL query:

UPDATE table1 SET columnZ='F', columnY='D', columnX='S' where id=A

I have made a quick and dirty version of my huge project with no script for no interference that illustrate my issues. I am open to suggestions but I want to keep the display of form1 to remain in the same way of working.