Search options (Page 2 of 36)

Hello Vladimir, Hello Sparrow

All my excuses !
it should be better like this
Thanks
JB

Hello Sparrow

Thanks for this disk management project.
I added a piece of code from Derek to colorize the artists and their albums:

procedure Form1_TreeView1_OnChange(Sender: TObject);
var vi: integer;
begin
   Form1.TreeView1.Columns[1].Visible := false;
   for vi := 0 to form1.treeview1.RowCount-1 do
     begin
       if Form1.Treeview1.Cells[1,vi] < '1' then Form1.Treeview1.Cell[0,vi].TextColor := clRed;
       if Form1.Treeview1.Cells[1,vi] = '1' then Form1.Treeview1.Cell[0,vi].TextColor := clBlue;
       if Form1.Treeview1.Cells[1,vi] < '1' then Form1.Treeview1.Cell[0,vi].FontStyle := fsBold;
       if Form1.Treeview1.Cells[1,vi] = '1' then Form1.Treeview1.Cell[0,vi].FontStyle := fsBold;
     end;
     Form1.TreeView1.Columns[0].Footer.Caption := SQLExecute('Select Count(distinct ParentID) from Musicians');
     Form1.TreeView1.Columns[0].Footer.Color := $002C8BBA;
end;

As part of managing my classical music records, I am going to add a few additional combo boxes
(Name of performer, director, soloists, etc.).
To be continued :
Creation of a grid grouping all these items to carry out more comprehensive searches, individual or global states,
different types of import-export, pies....
Finally, possibility of retrieving information from the Internet (but this is not a given). I had tried in another project, but
too many error messages and HTTP is difficult to handle.
But I'm still going to try.
Cordially
JB

Hello Sparrow

Based on your excellent project, I tried to add an additional object: the album cover.
In the Alb-Info table, I therefore created an Image field called Covers.
When in the OnExit procedure which saves all the entries, I implement this code:

if (Sender is TdbImage) and (TdbImage(Sender).TagString <> StrToMD5(TdbImage(Sender).Picture))
   then
   begin
     if SQLExecute('SELECT count(id) FROM "'+TdbImage(Sender).dbTable+'" WHERE id_musicians = '+Form1.TreeView1.sqlValue) = '0' then
       SQLExecute('INSERT INTO "'+TdbImage(Sender).dbTable+'" (id_musicians) VALUES('+Form1.TreeView1.sqlValue+')');
       SQLExecute('UPDATE "'+TdbImage(Sender).dbTable+'" SET "'+TdbImage(Sender).dbField+'" = '+TdbImage(Sender).sqlValue+' WHERE id_musicians = '+Form1.TreeView1.sqlValue);
       Form1.Label7.Visible := true;
       TdbImage(Sender).Tag := 0;
       TdbImage(Sender).TagString := '';
       Timer(1000);
   end;

I get an incompatibility message between String and Picture.
I guesse this problème stands here : StrToMD5(TdbImage(Sender).Picture))
There is no way to resolve this anomaly. I ask for your help
How convert String and Picture ?
thanks in advance
Sincerely
J.B.

TCotton:

I simply ask Mr Google: 'icon Find' or 'icon Research', 'icon Spreadsheet' and so on and I choose the one that seems most elegant to me.

Derek:

I'm going to use your example to enter my entire blues collection (nearly 500 CDs). Simply TreeView with performers, tracks and album art. No need for more. Thanks again.

Sparrow:

A nice little addition to Derek's example and all on one form.
I added this instruction to sort the artists alphabetically:
begin
    form1.menu := nil;
    Form1.TreeView1.dbCustomOrderBy := 'ParentID, mname';            // Form1 TV sorting
end.

J.B.

Hello Derek
Perfect code that does the job exactly.
Before the Excel sheet appears, I will place a SaveDialog
allowing the user to enter the folder of their choice (although they can do so from the Excel menus (Open -> Save As...).
But as people like to be served dishes without having to go to the buffet...
Very nice your answer
Sincerely
J.B.

Hello Sparrow

Thank you for your answer.
In fact, I was using the Round function, but I was applying it to the wrong column which was already in the right format.
But you opened my eyes.
Another question independent of this one, if I may ask you again.
I have a TableGrid with CheckBox and with Multiselect option.
Is it possible to select several rows and save these rows in a text file?
In order to purify this grid of lines which have become obsolete.
Thanks in advance
Sincerely
J.B.

Hello Domebil

Look at this :

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
     Form1.TableGrid1.Columns[0].Alignment := taRightJustify;         // First Column
     Form1.TableGrid1.Columns[1].Alignment := taCenter;
     Form1.TableGrid1.Columns[2].Alignment := taLeftJustify;
end;

You could also use BiDiMode from Object Inspector (behind Aditionnal)

Make your choice.
JB

Oops, I made a mistake in my copy and paste. This is what I wanted to copy:

procedure Form1_Edit1_OnExit (Sender: string);
begin
    Form1.Edit1.Text[1] := UpperCase(Form1.Edit1.Text[1]);
end;

Sorry Derek !

JB

Thanks Destiny, Hello Derek
Merry Christmas to you and best wishes for 2024.
Destiny, at your disposal according to my possibilities.
What is the weather in my country?
J.B.

Hello Negrita

Dmitri, the creator of MVD, has no longer managed the new features to be implemented in this wonderful software for some time.
He has other activities on the NET.
The latest updated version is 6.6.
All MVD users strongly regret that this superb program will not have new functions.
As it is paid software, Dmitri still owns the copyright and I don't think he provides the complete source so that Embarcadero RAD Xxxx professionals can respond to all our desires.
It's a shame, but we must thank Dmitri for allowing us to create programs that can achieve professional quality.
JB