1 (edited by prahousefamily 2015-08-24 11:17:02)

Topic: World Database From MySQL Basic

World Database from MySQL Convert To SqLite
Compile MVD 1.52
You Can Download For Example Easy Start...
world_db.7z

-Basic 3 Table
Master Table : Country
Detail Table 1 : City
Detail Table 2 : Country Language
http://s21.postimg.org/5y3ic67ud/2015_08_24_Image_014.png

-Basic Script
Show Message
Grid Color When Column  Set value

//start script
//script 001 show message even form show
procedure frm_001_main_OnShow (Sender: string; Action: string);
begin
   showmessage('Hello World! Basic Example')
end;
//script 002 grid color highlight if Country Language Is Official ='T' At frm_001_main
procedure frm_001_main_TableGrid1_OnChange (Sender: string);
var
   i,c: integer;
   k,q: integer;
begin
     c := frm_001_main.TableGrid1.RowCount - 1;
     q := frm_001_main.TableGrid1.Columns.Count - 1;
     for i := 0 to c do
begin
     if frm_001_main.TableGrid1.Cells[19,i] ='T' then
     for k := 0 to q do frm_001_main.TableGrid1.Cell[k,i].Color := $507FFF  ;
end;
end;
//script 003 grid color highlight if Country Language Is Official ='T' At frm_002_country
procedure frm_002_country_TableGrid2_OnChange (Sender: string);
 var
   i,c: integer;
   k,q: integer;
begin
     c := frm_002_country.TableGrid2.RowCount - 1;
     q := frm_002_country.TableGrid2.Columns.Count - 1;
     for i := 0 to c do
begin
     if frm_002_country.TableGrid2.Cells[3,i] ='T' then
     for k := 0 to q do frm_002_country.TableGrid2.Cell[k,i].Color := $507FFF  ;
end;
end;

//script last can not delete
begin
end.

Form Preview Effect
http://s24.postimg.org/i2tc10cmr/2015_08_24_Image_002.png
http://s13.postimg.org/6mb7ii2o5/2015_08_24_Image_006.png

-Basic Report Design
http://s21.postimg.org/56o9t23hy/2015_08_24_Image_010.jpg

-Basic Print All And Print Select At Mouse in TableGrid
http://s12.postimg.org/7vx9e9q1o/2015_08_24_Image_011.jpg
http://s7.postimg.org/iqd3q8da2/2015_08_24_Image_012.jpg

Thank You
-Dmitry. For More Example And More People In This Forum

Comming Soon
-Report Design Master Detail
-Function  In Database
   Cal Date Year,Month,Date or Number Day
   Concat String Columa+ColumnB Or More
   Substring In Text,Date
   Script Update Database By Script SQL Resize ,Index ETC

My Visual Database : I Love You
Easy For Beginner Student For Me

Re: World Database From MySQL Basic

Preview pictures are unavailable.

The welcome message is a bit too much for me smile
When searching for a country, there are too many results in my opinion.

Re: World Database From MySQL Basic

tcoton smile Thank You For Comment

Love tcoton

*****
This Project for teach my student easy start ....

My Visual Database : I Love You
Easy For Beginner Student For Me

Re: World Database From MySQL Basic

Hello prahousefamily

Like tcoton, I think your welcome message is too basic !
I'd rather replace it with a splash screen and a memo explaining the goal of your application.
Otherwise, for your grid (frm_001_main_TableGrid1), I'll add in :

procedure frm_001_main.Country Head StateTableGrid1_OnChange (Sender: string);
var
   i,c: integer;
   k,q: integer;
begin
     
    frm_001_main_TableGrid1.BestFitColumns(bfBoth);

     c := frm_001_main.TableGrid1.RowCount - 1;
     q := frm_001_main.TableGrid1.Columns.Count - 1;
     for i := 0 to c do
begin
     if frm_001_main.TableGrid1.Cells[19,i] ='T' then
     for k := 0 to q do frm_001_main.TableGrid1.Cell[k,i].Color := $507FFF  ;
end;
end;

for to auto-resize columns and so that the user is not obliged to do so himself.

Last thing :

For France, about Country Head of State, since Jacques Chirac, we had to others presidents. The last currently active is called François Hollande.
And France has now 66,03 millions peoples.

As says tcoton, when searching country, I think a form dedicated to complex research should be used.

But overall it's a good job.

Thanks

JB

Re: World Database From MySQL Basic

Hello prathousefamily

When I get the instruction for autofit, I'd make a mistake.
You have to read

frm_001_main.TableGrid1.BestFitColumns(bfBoth);

and not 

frm_001_main_TableGrid1.BestFitColumns(bfBoth);

Sorry, my eyes are getting old.

JB

Re: World Database From MySQL Basic

Thank You jean.brezhonek Verymuch
Best Comment
I will try Fix code and project fro teach my student
Thank you again

Ha Ha Ha

For France, about Country Head of State, since Jacques Chirac, we had to others presidents. The last currently active is called François Hollande.
And France has now 66,03 millions peoples.

Um.... This Old Database is Old Data Ha Ha Ha

My Visual Database : I Love You
Easy For Beginner Student For Me

7 (edited by robinx1578 2017-04-05 16:56:09)

Re: World Database From MySQL Basic

Do you have new link for this project. The link is no longer available.