diff --git a/NumismaticPro.dproj b/NumismaticPro.dproj
index 6cd365f..8c050b9 100644
--- a/NumismaticPro.dproj
+++ b/NumismaticPro.dproj
@@ -86,6 +86,9 @@
C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\exe\
true
1033
+ NumismaticPro_Icon.ico
+ ..\..\..\..\..\Downloads\icons_8_pack\30px\icons8-moedas-100.png
+ ..\..\..\..\..\Downloads\icons_8_pack\30px\icons8-moedas-44.png
false
@@ -140,12 +143,26 @@
+
+
+ Assets\
+ Logo150x150.png
+ true
+
+
NumismaticPro.exe
true
+
+
+ Assets\
+ Logo44x44.png
+ true
+
+
1
diff --git a/NumismaticPro.dproj.local b/NumismaticPro.dproj.local
index 07c07b4..dd5e6e5 100644
--- a/NumismaticPro.dproj.local
+++ b/NumismaticPro.dproj.local
@@ -2,17 +2,17 @@
2022/02/12 18:52:32.000.261,=C:\Users\migue\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit1.pas
- 2022/02/12 18:54:20.000.960,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Menu.dfm=C:\Users\migue\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit1.dfm
- 2022/02/12 18:54:20.000.960,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Menu.pas=C:\Users\migue\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit1.pas
- 2022/02/12 18:54:29.000.479,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\NumismaticPro.dproj=C:\Users\migue\OneDrive\Documentos\Embarcadero\Studio\Projects\Project1.dproj
+ 2022/02/12 18:54:20.000.960,C:\Users\migue\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Menu.dfm
+ 2022/02/12 18:54:20.000.960,C:\Users\migue\OneDrive\Documentos\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Menu.pas
+ 2022/02/12 18:54:29.000.479,C:\Users\migue\OneDrive\Documentos\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\NumismaticPro.dproj
2022/02/12 18:55:04.000.408,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\NumismaticPro.dproj=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\NumismaticPro.dproj
- 2022/02/12 19:01:29.000.684,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_Menu.dfm=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Menu.dfm
- 2022/02/12 19:01:29.000.684,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_Menu.pas=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Menu.pas
+ 2022/02/12 19:01:29.000.684,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Menu.pas=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_Menu.pas
+ 2022/02/12 19:01:29.000.684,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Menu.dfm=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_Menu.dfm
2022/02/12 19:40:56.000.882,=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.pas
- 2022/02/12 19:41:05.000.964,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_DataModule.pas=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.pas
- 2022/02/12 19:41:05.000.964,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_DataModule.dfm=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.dfm
+ 2022/02/12 19:41:05.000.964,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.dfm=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_DataModule.dfm
+ 2022/02/12 19:41:05.000.964,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.pas=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_DataModule.pas
2022/02/12 19:58:39.000.400,=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.pas
- 2022/02/12 19:59:05.000.404,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_FrInfo.pas=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.pas
- 2022/02/12 19:59:05.000.404,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_FrInfo.dfm=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.dfm
+ 2022/02/12 19:59:05.000.404,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.pas=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_FrInfo.pas
+ 2022/02/12 19:59:05.000.404,C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\Unit1.dfm=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\NumismaticProDesktop\U_FrInfo.dfm
diff --git a/NumismaticPro.res b/NumismaticPro.res
index e2e052e..00c796f 100644
Binary files a/NumismaticPro.res and b/NumismaticPro.res differ
diff --git a/NumismaticPro_Icon.ico b/NumismaticPro_Icon.ico
new file mode 100644
index 0000000..9c96cc2
Binary files /dev/null and b/NumismaticPro_Icon.ico differ
diff --git a/U_DataModule.dfm b/U_DataModule.dfm
index a64456d..fcdb385 100644
--- a/U_DataModule.dfm
+++ b/U_DataModule.dfm
@@ -7,7 +7,7 @@ object DataModule1: TDataModule1
Left = 20
Top = 18
Bitmap = {
- 494C010105000800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+ 494C010106000800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000002000000001002000000000000020
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -18,121 +18,244 @@ object DataModule1: TDataModule1
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000066CCFF003399
- CC00222222000000000000000000000000000000000000000000000000000000
+ 00000000000000000000F0F7FF0FACD0FF53AED0FF51E8F2FF17000000000000
+ 000000000000000000000000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000E8F2
+ FF17A7CDFF59ACD0FF53F9FCFF06006FFFFF006FFFFF006FFFFF006FFFFF80B6
+ FF7F00000000000000000000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000CCCCCC00CCCCCC0033CCFF003399
- 6600000000006666660000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000000000000370FFFD026F
+ FFFF026FFFFFC7DEFF3800000000000000000000000000000000DBEAFF24006F
+ FFFF1D7FFFE2000000000000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000549DFFAB006F
+ FFFF026FFFFF0000000000000000000000000000000000000000000000000000
+ 0000006FFFFF72AEFF8D0000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000CCCCFF00CCCCCC00CCCCFF00CCCCFF00CCCCCC006666
- 6600000000006666660077777700000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000006FFFFFDEEB
+ FF210D75FFF30000000000000000000000000000000000000000000000000000
+ 0000DBEAFF24006FFFFF0000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFC06515FFC06515FFC06515FFCE7218FFD27619FFDC8A36FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000C4DDFF3B006FFFFF0000
0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000006FFFFFCEE2FF3100000000000000000000000000000000F9CA
+ 90FFF9CA90FFF3BF82FFC06515FFC06515FFE6A967FFD3781CFFF9CA90FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000CCCCFF00CCCCCC00CCCCFF00CCCCFF00CCCCCC00CCCCCC00CCCCFF009999
- 9900111111006666660099999900000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000008ABCFF75006FFFFF0000
0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000006FFFFF91C0FF6E00000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFD3883FFFF6C58AFFF9CA90FFF9CA90FFD27619FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000CCCC
- FF00CCCCCC00CCCCFF00CCCCCC00CCCCFF00CCCCFF00CCCCCC00DDDDDD00CCCC
- CC00555555006666660000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000008CBEFF73006FFFFF0000
0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000006FFFFF88BBFF7700000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF5C387FFF9CA90FFF9CA90FFF9CA90FFE59F54FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000C5DEFF3A006FFFFF0000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000CCCCCC00CCCC
- FF00CCCCCC00CCCCFF0066CCFF0066CCFF0066CCFF0066CCFF0066CCFF0000FF
- FF00999999000000000000000000000000000000000000000000000000000000
+ 000000000000006FFFFFC4DDFF3B00000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000006FFFFFDDEC
+ FF22000000000000000000000000000000000000000000000000000000000B74
+ FFF5E0EDFF1F006FFFFF0000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA
+ 90FFF9CA90FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000066CCFF0066CC
- FF0066CCFF0066CCFF0066CCFF0066CCFF0066CCFF0066CCFF0066CCFF0066FF
- FF00CCCCCC006666660000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000000000005DA4FFA2006F
+ FFFF00000000000000000000000000000000000000000000000000000000026F
+ FFFF006FFFFF559FFFAA0000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFFCEACBFFFCEA
+ CBFFFBDFB8FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000E76
+ FFF1006FFFFFDDECFF2200000000000000000000000000000000C7DEFF38026F
+ FFFF026FFFFF026FFFFE0000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFFEF5E1FFFDEB
+ CFFFFCE8D2680000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000033CCFF0066CC
- FF0066CCFF00CCCCCC00CCCCFF00CCCCFF00CCCCCC0066CCFF00CC99CC0099FF
- FF00CCFFFF006666660000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 00005DA4FFA2006FFFFF006FFFFF006FFFFF006FFFFFFAFCFF05ACD0FF53A7CD
+ FF59E8F2FF17000000000000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFFDEBCFFFFCE8
+ D268000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000CCCCFF00CCCC
- FF0066CCFF0066CCFF0066CCFF0066CCFF00CCCCFF00CCCCFF004444440099FF
- FF0099FFFF009966660000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000C6DFFF398EBFFF7188BBFF77EBF4FF14000000000000
+ 000000000000000000000000000000000000000000000000000000000000F9CA
+ 90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFF9CA90FFFCE8D2680000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000066CCFF00CCCCFF000000
- 0000F0FBFF0033FFFF00F0FBFF00CCCCFF006666660099FFFF00CCFFFF000000
- 0000000000006666660000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000000000000000000000000000CCCCFF00F0FBFF0033FF
- FF00CCCCFF00A4A0A000CC99CC0099FFFF00CCFFFF0000000000000000000000
- 00000000000066669900C0C0C000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000009999
- 990099FFFF00CCFFFF00CCFFFF00000000000000000000000000CCCCCC006666
- 6600669999003399990066CCFF00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000A4A0A0000000000000000000CCFF
- FF0000000000000000000000000000000000777777003399CC00C0C0C0003399
- CC0066CCFF003399CC0000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000666666009999FF006699990000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000D9ECD738B1DBB071B1DBB071D9EDD737000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000EED3DD6FEBCBD588EBCBD588EBCBD588EBCBD588EFD5DE6E0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000000000003B696FFF0BC2
+ FFFADAF0FF250000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 000091CC8FA050AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF93CC
+ 909E000000000000000000000000000000000000000000000000000000000000
+ 0000EBC7D391DB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFECCC
+ D9810000000000000000000000000000000000000000C3E9FF3C00A0FFFF28CA
+ FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
+ FFFF28CAFFFF28CAFFFFF0FAFF120000000000000000000000000CC2FFF9049A
+ FFFB0098FFFFD6EDFF2900000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000005AB3
+ 57F050AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF
+ 4CFF5AB357F00000000000000000000000000000000000000000000000000000
+ 0000DEA6BAE7DB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFE1AB
+ BED800000000000000000000000000000000000000007FCEFF8000A0FFFF28CA
+ FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
+ FFFF28CAFFFF28CAFFFF93E3FF80000000000000000000000000DAF0FF250098
+ FFFF0098FFFF0098FFFFD6EDFF29000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000091CC8FA050AF
+ 4CFF50AF4CFF50AF4CFF50AF4CFF7CC379FF7CC379FF50AF4CFF50AF4CFF50AF
+ 4CFF50AF4CFF93CD909D00000000000000000000000000000000000000000000
+ 0000DB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9D
+ B3FF00000000000000000000000000000000000000007FCEFF8000A0FFFF27C9
+ FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
+ FFFF28CAFFFF28CAFFFF46D0FFDB00000000000000000000000000000000DAF0
+ FF250098FFFF0098FFFF0098FFFFD6EDFF290000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000050AF4CFF50AF
+ 4CFF50AF4CFF50AF4CFF50AF4CFFFFFFFFFFFFFFFFFF50AF4CFF50AF4CFF50AF
+ 4CFF50AF4CFF50AF4CFF00000000000000000000000000000000000000000000
+ 0000DB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9D
+ B3FF00000000000000000000000000000000000000007FCEFF8000A0FFFF1ABB
+ FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
+ FFFF28CAFFFF28CAFFFF28CAFFFF000000000000000000000000000000000000
+ 0000DAF0FF250098FFFF0098FFFF0098FFFF18A1FFE700000000000000000000
+ 00000000000000000000000000000000000000000000D6EDD63A50AF4CFF50AF
+ 4CFF50AF4CFF50AF4CFF50AF4CFFFFFFFFFFFFFFFFFF50AF4CFF50AF4CFF50AF
+ 4CFF50AF4CFF50AF4CFFD9ECD738000000000000000000000000000000000000
+ 0000DB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9D
+ B3FF00000000000000000000000000000000000000007FCEFF8000A0FFFF0BAB
+ FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
+ FFFF28CAFFFF28CAFFFF28CAFFFF000000000000000000000000000000000000
+ 000000000000DAF0FF250098FFFF0098FFFF0098FFFF18A1FFE7000000000000
+ 00000000000000000000000000000000000000000000B0DAAD7350AF4CFF50AF
+ 4CFF7CC379FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7CC3
+ 79FF50AF4CFF50AF4CFFB1DAAE7200000000000000000000000000000000FBF5
+ F818DB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9D
+ B3FFFCF8F910000000000000000000000000000000007FCEFF8000A0FFFF04A4
+ FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
+ FFFF28CAFFFF28CAFFFF28CAFFFF000000000000000000000000000000000000
+ 000000000000000000001BA2FFE40098FFFF0098FFFF0098FFFFD6EDFF290000
+ 00000000000000000000000000000000000000000000AEDBAE7450AF4CFF50AF
+ 4CFF7CC379FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7CC3
+ 79FF50AF4CFF50AF4CFFB0DAAD7300000000000000000000000000000000F6E6
+ ED3EDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9D
+ B3FFF6EAEE36000000000000000000000000000000007FCEFF8000A0FFFF00A0
+ FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
+ FFFF28CAFFFF28CAFFFF28CAFFFF000000000000000000000000000000000000
+ 00000000000000000000000000001BA2FFE40098FFFF0098FFFF0098FFFFD6ED
+ FF290000000000000000000000000000000000000000D6EDD63A50AF4CFF50AF
+ 4CFF50AF4CFF50AF4CFF50AF4CFFFFFFFFFFFFFFFFFF50AF4CFF50AF4CFF50AF
+ 4CFF50AF4CFF50AF4CFFD9ECD73800000000000000000000000000000000ECC9
+ D689DB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9D
+ B3FFEBCBD884000000000000000000000000000000007FCEFF8000A0FFFF00A0
+ FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0
+ FFFF00A0FFFF00A0FFFF00000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000DAF0FF250098FFFF0098FFFF0098
+ FFFFD6EDFF29000000000000000000000000000000000000000050AF4CFF50AF
+ 4CFF50AF4CFF50AF4CFF50AF4CFFFFFFFFFFFFFFFFFF50AF4CFF50AF4CFF50AF
+ 4CFF50AF4CFF50AF4CFF0000000000000000000000000000000000000000E0AC
+ BFD6DB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9D
+ B3FFE1AEC0D2000000000000000000000000000000007FCEFF8000A0FFFF00A0
+ FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0
+ FFFF00A0FFFF54BFFFAB00000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000DAF0FF250098FFFF0098
+ FFFFC5BEB0FFF5F5F129000000000000000000000000000000008FCB8DA350AF
+ 4CFF50AF4CFF50AF4CFF50AF4CFF7CC379FF7CC379FF50AF4CFF50AF4CFF50AF
+ 4CFF50AF4CFF91CC8FA00000000000000000000000000000000000000000DB9D
+ B3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9DB3FFDB9D
+ B3FFDB9DB3FF00000000000000000000000000000000C3E9FF3C00A0FFFF00A0
+ FFFF00A0FFFF00A0FFFF48BAFFB7000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000000000000000000000000000A4A0
- A000000000000000000033666600000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000DAF0FF25C5BE
+ B0FFC8C3B8E77373E5FF000000000000000000000000000000000000000059B3
+ 55F150AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF
+ 4CFF5AB357F0000000000000000000000000000000000000000000000000C257
+ 7EFFC2577EFFC2577EFFC2577EFFC2577EFFC2577EFFC2577EFFC2577EFFC257
+ 7EFFC2577EFF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000000000000000000000000000000000000F6F5
+ F2267373E5FFBFBFF27200000000000000000000000000000000000000000000
+ 00008FCC8DA250AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF50AF4CFF91CC
+ 8FA0000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000CE7998F7CD7595FFCD7595FFCE7896F9000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000D6EDD63AB1DBB071B1DBB071D8ECD639000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -142,140 +265,17 @@ object DataModule1: TDataModule1
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000007777770022222200222222002222
- 2200000000005555550022222200333333007777770055555500555555005555
- 5500222222002222220022222200000000000000000000000000000000000000
- 0000000000000000000000000000808000000000000080800000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000C0C0C000808080000080800000FF0000C0C0C0000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000008080800080808000808080000000
- 0000000000000000000000000000000000007777770022222200222222002222
- 220055555500000000002222220022222200C0C0C00077777700555555003333
- 3300222222002222220022222200000000000000000000000000000000000000
- 0000000000008080000000000000C0C0C0008080800080808000808000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000000C0C0C000808080000080800000FF0000808080008080
- 0000808000000000000000000000000000000000000000000000000000000000
- 0000000000000000000080808000C0C0C000C0C0C00080808000808080008080
- 8000000000000000000000000000000000007777770022222200222222002222
- 22005555550055555500222222002222220033333300C0C0C000777777005555
- 5500222222002222220022222200000000000000000000000000000000008080
- 000000000000C0C0C000C0C0C000C0C0C0008080800080808000808080008080
- 0000000000000000000000000000000000000000000000000000C0C0C0000000
- 00000000000000000000C0C0C00080808000C0C0C000C0C0C000FF0000008080
- 000080800000C0C0C00000000000000000000000000000000000000000000000
- 000080808000C0C0C000C0C0C000C0C0C000C0C0C00080808000808080008080
- 8000000000000000000000000000000000007777770022222200222222002222
- 2200C0C0C0005555550022222200333333005555550055555500C0C0C0007777
- 770022222200222222002222220000000000000000008080000000000000C0C0
- C000C0C0C000C0C0C000C0C0C000C0C0C0008080800080808000808080008080
- 800080800000000000000000000000000000000000008080800080808000C0C0
- C0000000000000000000C0C0C0008080800000FF000080808000808000008080
- 0000C0C0C000C0C0C0000000000000000000000000000000000080808000C0C0
- C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C00080808000808080008080
- 8000808080000000000000000000000000007777770022222200222222002222
- 220033333300C0C0C00033333300555555005555550055555500555555007777
- 77002222220022222200222222000000000080800000C0C0C000C0C0C000C0C0
- C000C0C0C000C0C0C0000000000000000000FFFF000080808000808080008080
- 8000808080008080000000000000000000000000000080808000808080008080
- 8000C0C0C00000000000000000008080800000FF0000FF00000080800000C0C0
- C000FFFF0000FFFF000000FFFF0000000000000000000000000080808000C0C0
- C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C00080808000808080008080
- 8000808080000000000000000000000000007777770022222200222222002222
- 2200222222002222220022222200222222002222220022222200222222002222
- 22002222220022222200222222000000000080800000C0C0C000C0C0C000C0C0
- C0000000000000000000FFFF0000FFFF0000FFFF0000FFFF0000808080008080
- 8000808080008080800080800000000000008080800080808000808080008080
- 800080808000C0C0C00080808000808080008080800080800000FFFF000000FF
- FF0000FFFF0000FF000000FF0000000000000000000000000000C0C0C000C0C0
- C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C00080808000808080008080
- 8000808080000000000000000000000000007777770022222200C0C0C000F0FB
- FF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FB
- FF00F0FBFF00C0C0C000222222000000000080800000C0C0C000000000000000
- 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00008080
- 8000808080008080800080808000000000008080800080808000808080008080
- 8000808080008080800000000000000000008080800080808000FF00FF00FF00
- FF00FF00FF00FF00FF00FF00FF00000000000000000000000000C0C0C000C0C0
- C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C00080808000808080008080
- 8000808080000000000000000000000000007777770022222200DDDDDD00DDDD
- DD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDD
- DD00DDDDDD00DDDDDD0022222200000000008080000000000000FFFF0000FFFF
- 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
- 000080808000808080008080800000000000FF00FF00FF00FF00FF00FF00FF00
- FF00FF00FF00FF00FF0000000000000000000000000080808000808080008080
- 8000808080008080800080808000000000000000000080808000C0C0C000C0C0
- C000C0C0C000C0C0C000C0C0C000C0C0C000C0C0C00080808000808080008080
- 8000808080008080800000000000000000007777770022222200F0FBFF00F0FB
- FF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FB
- FF00F0FBFF00F0FBFF0022222200000000000000000080800000FFFF0000FFFF
- 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF
- 0000FFFF000080808000808080000000000080800000808000008080000000FF
- 000000FFFF0000FFFF0080808000000000000000000080808000808080008080
- 8000808080008080800080808000000000000000000080808000C0C0C000C0C0
- C000C0C0C000C0C0C000C0C0C000C0C0C0000000000000000000808080008080
- 8000808080008080800000000000000000007777770022222200F0FBFF00F0FB
- FF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FB
- FF00F0FBFF00F0FBFF002222220000000000000000000000000080800000FFFF
- 0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000080000000C0C0C0008000
- 0000FFFF0000FFFF0000808080000000000000FF000000FFFF0000FFFF00FFFF
- 0000C0C0C00080800000FF00000000808000C0C0C00000000000C0C0C0008080
- 80008080800080808000808080000000000000000000C0C0C000C0C0C000C0C0
- C000C0C0C000C0C0C000000000008080800080808000C0C0C000C0C0C000C0C0
- C000000000008080800000000000000000007777770022222200DDDDDD00DDDD
- DD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDD
- DD00DDDDDD00DDDDDD0022222200000000000000000000000000000000008080
- 0000FFFF0000FFFF0000FFFF000080000000C0C0C000C0C0C000C0C0C000C0C0
- C00080000000FFFF0000FFFF00000000000000000000FFFF0000FFFF0000C0C0
- C000808000008080800000FF000000808000C0C0C0000000000000000000C0C0
- C0008080800080808000808080000000000000000000C0C0C000C0C0C000C0C0
- C00000000000000000008080800080808000C0C0C000C0C0C000C0C0C000C0C0
- C000C0C0C0000000000000000000000000007777770022222200F0FBFF00F0FB
- FF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FB
- FF00F0FBFF00F0FBFF0022222200000000000000000000000000000000000000
- 000080800000FFFF0000FFFF0000C0C0C000C0C0C000C0C0C000C0C0C0008000
- 0000FFFF0000FFFF0000000000000000000000000000C0C0C000C0C0C0008080
- 000080800000FF00000000FF000000808000C0C0C00000000000000000000000
- 0000C0C0C00080808000000000000000000080808000C0C0C000000000008080
- 8000808080000000000080808000C0C0C000C0C0C000C0C0C000C0C0C0000000
- 0000808080000000000000000000000000007777770022222200F0FBFF00F0FB
- FF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FB
- FF00F0FBFF00F0FBFF0022222200000000000000000000000000000000000000
- 00000000000080800000FFFF0000FFFF0000C0C0C00080000000FFFF0000FFFF
- 0000000000000000000000000000000000000000000000000000808000008080
- 000080808000C0C0C00000FF000000808000C0C0C000C0C0C000000000000000
- 0000000000000000000000000000000000008080800080808000808080008080
- 8000808080000000000080808000C0C0C000C0C0C00000000000808080000000
- 0000000000000000000000000000000000007777770022222200DDDDDD00DDDD
- DD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDD
- DD00DDDDDD00DDDDDD0022222200000000000000000000000000000000000000
- 0000000000000000000080800000FFFF0000FFFF0000FFFF0000000000000000
- 0000000000000000000000000000000000000000000000000000000000008080
- 0000FF000000C0C0C00000FF000000808000C0C0C000C0C0C000000000000000
- 0000000000000000000000000000000000000000000080808000000000008080
- 80008080800000000000C0C0C000000000008080800000000000000000000000
- 0000000000000000000000000000000000007777770077777700DDDDDD00DDDD
- DD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDDDD00DDDD
- DD00DDDDDD00DDDDDD0077777700000000000000000000000000000000000000
- 0000000000000000000000000000808000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000FF000000808000C0C0C000C0C0C000000000000000
- 0000000000000000000000000000000000000000000000000000000000008080
- 8000808080008080800080808000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000200000000100010000000000000100000000000000000000
- 000000000000000000000000FFFFFF00FFEF000000000000FF87000000000000
- FE03000000000000F801000000000000E001000000000000C003000000000000
- C003000000000000C00300000000000080030000000000008001000000000000
- 9019000000000000807900000000000061C10000000000002F01000000000000
- FC27000000000000E0FF0000000000008001FF7FFC3FFFBF0800FC3FEC0FFE0F
- 0400F01FDC07F8070000C00F9C03E007000000078C01C007000000030601C007
- 000000010000C003000000000100C003000000010180800300000001000080C3
- 00008001004082090000C000006188050000E001807120170000F007C03B005F
- 0000F81FE037A17F0000FC7FF01FE1FF00000000000000000000000000000000
+ 000000000000000000000000FFFFFF00FFFFFFFF00000000FC3FE00700000000
+ E00FE00700000000C3C7E00700000000C7F3E00700000000C7F3E00700000000
+ 9FF9E007000000009FF9E007000000009FF9E007000000009FF9E00700000000
+ CFE3E00700000000CFE3E00700000000E3C3E00700000000F007E00F00000000
+ FC3FE01F00000000FFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFFFC3FF81F
+ FFFFC7FFF00FF00F8001C3FFE007F00F8001C1FFC003F00F8001E0FFC003F00F
+ 8001F07F8001F00F8001F83F8001E0078001FC1F8001E0078001FE0F8001E007
+ 8003FF07C003E0078003FF83C003E00781FFFFC3E007E007FFFFFFE3F00FFC3F
+ FFFFFFFFFC3FFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
000000000000}
end
object SqliteConnection: TSQLConnection
@@ -284,10 +284,8 @@ object DataModule1: TDataModule1
LoginPrompt = False
Params.Strings = (
'DriverName=Sqlite'
-
- 'Database=C:\Users\migue\OneDrive\Documentos\Projetos\Delphi\Numi' +
- 'smaticProDesktop\database\database.db')
- Connected = True
+ 'Database='
+ 'ConnectionString=')
Left = 96
Top = 19
end
diff --git a/U_DataModule.pas b/U_DataModule.pas
index 8490064..52dd5ea 100644
--- a/U_DataModule.pas
+++ b/U_DataModule.pas
@@ -5,7 +5,7 @@ interface
uses
System.SysUtils, System.Classes, System.ImageList, Vcl.ImgList, Vcl.Controls,
Data.DB, Data.SqlExpr, Data.DbxSqlite, Data.FMTBcd, Datasnap.Provider,
- Datasnap.DBClient;
+ Datasnap.DBClient,Vcl.Dialogs,Vcl.Forms;
type
TDataModule1 = class(TDataModule)
@@ -30,14 +30,23 @@ implementation
{$R *.dfm}
procedure TDataModule1.DataModuleCreate(Sender: TObject);
+var
+ path : String;
begin
- SqliteConnection.Params.Values['DriverID'] := 'SQLite';
- SqliteConnection.LoginPrompt := False;
+ path := ExtractFilePath(ParamStr(0));
+
+ try
+ SqliteConnection.Params.Values['DataBase'] := path + 'database.db';
+
+ SqliteConnection.Connected := True;
+ except
+ on e:exception do
+ begin
+ ShowMessage('Erro: 26'+#13+'Não Foi Possivel Iniciar a Aplicação.'+ #13 +'Banco de Dados Não Encontrado!'+#13+'Reinstale a Aplicação.');
+ Application.Terminate()
+ end;
+ end;
- {$IF DEFINED (MSWINDOWS)}
- SqliteConnection.Params.Values['DataBase'] := '${\database\database.db}';
- {$ENDIF}
- SqliteConnection.Connected := True;
end;
end.
diff --git a/U_Menu.dfm b/U_Menu.dfm
index 4a5961e..4d436b7 100644
--- a/U_Menu.dfm
+++ b/U_Menu.dfm
@@ -4,14 +4,134 @@ object FrMenu: TFrMenu
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '****'
- ClientHeight = 571
- ClientWidth = 833
+ ClientHeight = 581
+ ClientWidth = 881
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
+ Icon.Data = {
+ 0000010001001E1E000001002000B00E000016000000280000001E0000003C00
+ 00000100200000000000100E0000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000DBDBD031DCD8
+ CF7BDCD8CEA8DCD8CFC6DCD8CFD3DCD8CFDDDCD8CFD8DCD8CFCBDCD8CFB0DBD8
+ CE88DBD7D047FFFFAA0300000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000D5D5D50CDCD8CFAFDCD8CFFFDCD8CFFFDCD8CFFFDCD8
+ CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD9
+ CFD4DED8D1270000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000DBD7CF40DCD8CEFFCDC7BBFFC1B8A8FDB6AE9DF6B2A994F8AFA692FBAEA4
+ 90FFAFA592FCB0A793F9B5AB99F7BCB5A5FDCAC4B6FFD9D5CBFF71BCE4FA007E
+ F5FF007CF5FF07C1FFF207C1FFE706C1FFC807C2FF9A06C0FF5100BFFF040000
+ 0000000000000000000000000000000000000000000000000000D4CFC470B8AF
+ 9DFCAEA490FFAEA490FFAEA490FFAFA592FDB0A792FBB3A997F7B1A694FAAFA7
+ 94FCAEA490FFAEA490FFAEA490FFB0A896FF9DBECBFF007AF2FF0179F1FF07BE
+ FFFF07BFFFFF07C1FFFF07C1FFFF07C1FFFF08C1FFCB0DBFFF14000000000000
+ 000000000000000000000000000000000000C5BDAE7BB1A794FFC2BBACFFCFCA
+ BEFFD8D4C9FFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFD9D5CBFFD3CC
+ C1FFC7C0B1FFB4AB99FF94A8B5FF0568D6FF0568D6FF0098FFFF0098FFFF019C
+ FFFF02A3FFFF04AEFFFF07BFFFFF08BFFF400000000000000000000000000000
+ 00000000000000000000CAC1B65BD6D2C8FFDCD8CFFFDCD8CFFFDAD6CDFFD5CF
+ C5FFD3CEC3FFD0CBBFFFD2CDC2FFD3CFC4FFD9D5CBFFDCD8CFFFDCD8CFFFDAD6
+ CDFF7DAACCFF046CDDFF046DDEFF01A1FFFF019FFFFF0099FFFF0098FFFF0098
+ FFFF019DFFFF06B4FF5500000000000000000000000000000000000000000000
+ 0000DBD7CF40D6D2C8FFC2BAABFFB5AC9AFFAEA490FFAEA490FFAEA490FFAEA4
+ 90FFAEA490FFAEA490FFAEA490FFB2A896FFBEB6A6FFD2CCC1FF6FBBE5FF007C
+ F5FF007CF5FF07C1FFFF07C1FFFF07C1FFFF06BBFFFF04B0FFFF019DFFFF02A8
+ FF70000000000000000000000000000000000000000000000000CAC1B65BB1A7
+ 94FFAEA490FFAFA591FFB5AD9AFFBBB3A1FFBDB5A5FFBEB7A7FFBDB5A5FFBBB3
+ A4FFB7AE9CFFB0A693FFAEA490FFAFA591FF85AAC6FF0276EAFF0278EBFF05B4
+ FFFF05B5FFFF06BAFFFF07C0FFFF07C1FFFF07BFFFFF06B4FF55000000000000
+ 000000000000000000000000000000000000C0B7A86AB7AE9CFBCDC7BBF9DBD6
+ CCFEDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDBD7
+ CFFFCDCBC2FFB9B3A6FF89A1B5FF0568D6FF0375E5FF0098FFFF0098FFFF0098
+ FFFF0099FFFF02A5FFFF06B9FFFF08BFFF400000000000000000000000000000
+ 00000000000000000000CCC3B937DBD7CEFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8
+ CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8CFFFDCD8
+ CFFF619BD3FF0379E7FF03A6FDFF03ABFFFF03A8FFFF02A3FFFF019CFFFF0098
+ FFFF0099FFFF05AFFF6000000000000000000000000000000000000000000000
+ 000000000000DBD7D14DDCD8D0B7DDD8CFF4DCD8CFFFDCD8CFFFDCD8CFFFDCD8
+ CFFFDCD8CFFFDCD8CFFFDCD8CFFFD8D6D0FFAFC8D7FF5EB6E8FF0AB3FCFF07C1
+ FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF06B9FFFF02A5FFFF02A8
+ FF70000000000000000000000000000000000000000000000000000000000000
+ 000000000000FFFFFF02DDD6CF25DDDACE44DCD9D051DDD7CF5ADBD8CF5556BE
+ EAB42FBDF4FF0CBDFEFF05B6FFFF04AFFFFF03ABFFFF03A8FFFF03A8FFFF03A9
+ FFFF03ACFFFF04B0FFFF05B7FFFF07C0FFFF07C1FFFF07B9FF49000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000008BCFF8603A9FFFF0099
+ FFFF0098FFFF0098FFFF0098FFFF0098FFFF0098FFFF0098FFFF0098FFFF0098
+ FFFF0098FFFF019BFFFF04AFFFFF08C0FF410000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000003A7FFBD0098FFFF019FFFFF03A9FFFF04AF
+ FFFF05B4FFFF05B6FFFF05B7FFFF05B5FFFF05B3FFFF04AEFFFF02A7FFFF019C
+ FFFF0098FFFF05ACFF6B00000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000003AAFFB305B6FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1
+ FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C0FFFF04AFFFFF05AA
+ FF6C000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000000000000000000008C3
+ FF8007C1FFFF05B5FFFF03ABFFFF02A5FFFF01A0FFFF019FFFFF019EFFFF019F
+ FFFF02A1FFFF02A6FFFF04AEFFFF06B9FFFF07C1FFFF08C0FF41000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000005B6FF93019FFFFF0098
+ FFFF0098FFFF0098FFFF0098FFFF0098FFFF0098FFFF0098FFFF0098FFFF0098
+ FFFF0098FFFF0098FFFF02A5FFFF07B9FF490000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 000000000000000000000000000003A5FFC0009AFFFF03A9FFFF05B3FFFF06B9
+ FFFF06BEFFFF07BFFFFF07C1FFFF07BFFFFF06BDFFFF05B8FFFF04B1FFFF02A5
+ FFFF0099FFFF02A8FF7000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000005B0FFA406BEFFFF07C1FFFF07C1FFFF07C1FFFF07BFFFFF06BE
+ FFFF06BBFFFF07BEFFFF07BFFFFF07C1FFFF07C1FFFF07C1FFFF06B9FFFF05AE
+ FF61000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000000000000000000008C1
+ FF8006BBFFFF03ABFFFF01A1FFFF009AFFFF0098FFFF0098FFFF0098FFFF0098
+ FFFF0098FFFF019CFFFF02A3FFFF04AEFFFF07BFFFFF08BFFF40000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000005AFFFA3009AFFFF0098
+ FFFF0098FFFF009BFFFF01A0FFFF01A0FFFF02A2FFFF01A1FFFF019FFFFF0099
+ FFFF0098FFFF0098FFFF019DFFFF06B4FF550000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000009FFF9A019DFFE605B0FFDE05BEFFEE07C1
+ FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFD07BAFFE903AD
+ FFDB009BFFF003A3FF5300000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000006B2FF7A07C0FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1
+ FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07BFFFFB04AD
+ FF3B000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000000000000000000000BB
+ FF0F07C1FF8B07C1FFEA07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFFF07C1
+ FFFF07C1FFFF07C1FFFF07C1FFFF07C1FFD607C2FF6C00FFFF01000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 00000000000000000000000000000000000000000000000000000000000000FF
+ FF0108C3FF2206C2FF4F08C1FF6607C2FF7506C1FF7707C2FF7008C1FF6307C0
+ FF450CC5FF160000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000000000000000000000000000000000000000
+ 0000000000000000000000000000FFFFFFFCFFFFFFFCFFFFFFFCF8007FFCE000
+ 3FFCE000003CE000001CE000001CE000001CE000001CE000001CE000001CE000
+ 001CF000001CFC00001CFFF0001CFFF0001CFFF0001CFFF0001CFFF0001CFFF0
+ 001CFFF0001CFFF0001CFFF0001CFFF0001CFFF0001CFFF0001CFFFC00FCFFFF
+ FFFCFFFFFFFC}
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
@@ -21,7 +141,7 @@ object FrMenu: TFrMenu
object Panel1: TPanel
Left = 0
Top = 0
- Width = 833
+ Width = 881
Height = 57
Align = alTop
BevelOuter = bvNone
@@ -36,7 +156,7 @@ object FrMenu: TFrMenu
Cursor = crHandPoint
Align = alLeft
Caption = 'Salvar'
- ImageIndex = 0
+ ImageIndex = 1
Images = DataModule1.ImageList1
Flat = True
Layout = blGlyphTop
@@ -52,7 +172,7 @@ object FrMenu: TFrMenu
Cursor = crHandPoint
Align = alLeft
Caption = 'Novo'
- ImageIndex = 1
+ ImageIndex = 2
Images = DataModule1.ImageList1
Flat = True
Layout = blGlyphTop
@@ -82,8 +202,8 @@ object FrMenu: TFrMenu
Height = 57
Cursor = crHandPoint
Align = alLeft
- Caption = 'Atualizar'
- ImageIndex = 2
+ Caption = 'Carregar'
+ ImageIndex = 4
Images = DataModule1.ImageList1
Flat = True
Layout = blGlyphTop
@@ -92,7 +212,7 @@ object FrMenu: TFrMenu
ExplicitHeight = 58
end
object SearchField: TEdit
- Left = 655
+ Left = 699
Top = 19
Width = 170
Height = 21
@@ -103,10 +223,9 @@ object FrMenu: TFrMenu
end
object Panel3: TPanel
Left = 0
- Top = 284
- Width = 833
+ Top = 293
+ Width = 665
Height = 262
- Align = alBottom
BevelOuter = bvNone
Color = clWindow
ParentBackground = False
@@ -114,7 +233,7 @@ object FrMenu: TFrMenu
object pageControl: TPageControl
Left = 0
Top = 0
- Width = 833
+ Width = 665
Height = 262
ActivePage = page01_register
Align = alClient
@@ -181,17 +300,6 @@ object FrMenu: TFrMenu
Caption = 'Unidade:'
Layout = tlCenter
end
- object BtnSelectFileImage: TSpeedButton
- Left = -1
- Top = 202
- Width = 124
- Height = 21
- Caption = 'Selecionar Imagem'
- ImageIndex = 4
- Images = DataModule1.ImageList1
- Enabled = False
- OnClick = BtnSelectFileImageClick
- end
object Label7: TLabel
Left = 184
Top = 167
@@ -238,6 +346,7 @@ object FrMenu: TFrMenu
Top = 97
Width = 58
Height = 21
+ MaxLength = 4
TabOrder = 3
end
object Type_Edit: TEdit
@@ -254,23 +363,6 @@ object FrMenu: TFrMenu
Height = 21
TabOrder = 5
end
- object filePathText: TEdit
- Left = 128
- Top = 202
- Width = 448
- Height = 21
- AutoSize = False
- BorderStyle = bsNone
- Color = clScrollBar
- Enabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- end
object chkCoin: TCheckBox
Left = 236
Top = 167
@@ -296,57 +388,22 @@ object FrMenu: TFrMenu
Height = 21
TabOrder = 6
end
- object BtnRemoveImage: TButton
- Left = 368
- Top = 9
- Width = 207
- Height = 21
- Cursor = crHandPoint
- Caption = 'Remover Imagem'
- TabOrder = 10
- Visible = False
- OnClick = BtnRemoveImageClick
- end
- object Panel5: TPanel
- Left = 369
- Top = 30
- Width = 207
- Height = 166
- BevelInner = bvRaised
- BevelKind = bkFlat
- BevelOuter = bvNone
- TabOrder = 11
- object ImageRegister: TImage
- AlignWithMargins = True
- Left = 4
- Top = 4
- Width = 195
- Height = 154
- Align = alClient
- Center = True
- Proportional = True
- Stretch = True
- ExplicitWidth = 182
- ExplicitHeight = 158
- end
- end
end
end
end
object Panel2: TPanel
Left = 0
- Top = 57
- Width = 833
- Height = 227
+ Top = 59
+ Width = 665
+ Height = 234
Margins.Bottom = 10
- Align = alClient
BevelOuter = bvNone
TabOrder = 2
object PageControlGeral: TPageControl
Left = 0
Top = 0
- Width = 624
- Height = 227
+ Width = 665
+ Height = 234
ActivePage = page1
Align = alClient
TabOrder = 0
@@ -356,8 +413,8 @@ object FrMenu: TFrMenu
object Grid_Coins: TDBGrid
Left = 0
Top = 0
- Width = 616
- Height = 199
+ Width = 657
+ Height = 206
Cursor = crHandPoint
Align = alClient
DataSource = DsGridCoins
@@ -367,7 +424,7 @@ object FrMenu: TFrMenu
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
- Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
+ Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
ParentFont = False
ReadOnly = True
TabOrder = 0
@@ -417,13 +474,6 @@ object FrMenu: TFrMenu
Title.Caption = 'Ano'
Visible = True
end
- item
- ButtonStyle = cbsNone
- Expanded = False
- FieldName = 'Type'
- Title.Caption = 'Tipo'
- Visible = True
- end
item
Alignment = taRightJustify
Expanded = False
@@ -431,6 +481,13 @@ object FrMenu: TFrMenu
Title.Alignment = taRightJustify
Title.Caption = 'Quantidade'
Visible = True
+ end
+ item
+ ButtonStyle = cbsNone
+ Expanded = False
+ FieldName = 'Type'
+ Title.Caption = 'Tipo'
+ Visible = True
end>
end
end
@@ -440,8 +497,8 @@ object FrMenu: TFrMenu
object BillsGrid: TDBGrid
Left = 0
Top = 0
- Width = 616
- Height = 199
+ Width = 657
+ Height = 206
Cursor = crHandPoint
Align = alClient
DataSource = DsGridBills
@@ -518,36 +575,12 @@ object FrMenu: TFrMenu
end
end
end
- object Panel4: TPanel
- Left = 624
- Top = 0
- Width = 209
- Height = 227
- Align = alRight
- TabOrder = 1
- object image01: TImage
- AlignWithMargins = True
- Left = 4
- Top = 4
- Width = 201
- Height = 219
- Align = alClient
- AutoSize = True
- Center = True
- Proportional = True
- Stretch = True
- ExplicitLeft = 1
- ExplicitTop = 1
- ExplicitWidth = 207
- ExplicitHeight = 122
- end
- end
end
object StatusBar_Bottom: TStatusBar
AlignWithMargins = True
Left = 3
- Top = 549
- Width = 827
+ Top = 559
+ Width = 875
Height = 19
BiDiMode = bdRightToLeft
Panels = <
@@ -568,9 +601,49 @@ object FrMenu: TFrMenu
end>
ParentBiDiMode = False
end
+ object Panel4: TPanel
+ AlignWithMargins = True
+ Left = 669
+ Top = 60
+ Width = 209
+ Height = 493
+ Align = alRight
+ TabOrder = 4
+ object image01: TImage
+ AlignWithMargins = True
+ Left = 4
+ Top = 4
+ Width = 201
+ Height = 213
+ Cursor = crHandPoint
+ Hint = 'Clique Com o Bot'#227'o Direito Para Adicionar Uma Imagem'
+ Center = True
+ ParentShowHint = False
+ PopupMenu = PopupMenu1
+ Proportional = True
+ ShowHint = True
+ Stretch = True
+ end
+ object image02: TImage
+ AlignWithMargins = True
+ Left = 4
+ Top = 257
+ Width = 201
+ Height = 232
+ Cursor = crHandPoint
+ Hint = 'Clique Com o Bot'#227'o Direito Para Adicionar Uma Imagem'
+ Center = True
+ ParentShowHint = False
+ PopupMenu = PopupMenu2
+ Proportional = True
+ ShowHint = True
+ Stretch = True
+ OnClick = image02Click
+ end
+ end
object MainMenu1: TMainMenu
- Left = 648
- Top = 392
+ Left = 24
+ Top = 224
object Configuraes1: TMenuItem
Caption = 'Configura'#231#245'es'
end
@@ -581,43 +654,82 @@ object FrMenu: TFrMenu
end
object DsGridCoins: TDataSource
DataSet = ClientDataSet
- Left = 740
- Top = 487
+ Left = 172
+ Top = 127
end
object ClientDataSet: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider'
- Left = 754
- Top = 439
+ Left = 378
+ Top = 191
end
object DataSetProvider: TDataSetProvider
DataSet = DataModule1.SqlActions
- Left = 644
- Top = 487
+ Left = 252
+ Top = 127
end
object ReturnParametersProvider: TDataSetProvider
DataSet = DataModule1.ReturnParameters
- Left = 644
- Top = 442
+ Left = 252
+ Top = 194
end
object ReturnParametersDataSet: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'ReturnParametersProvider'
- Left = 731
- Top = 394
+ Left = 123
+ Top = 202
end
object OpenDialog1: TOpenDialog
+ DefaultExt = '.jpg'
Filter = 'Todos os Arquivos|*.jpg'
InitialDir = '\downloads'
- Title = 'Selecione A Imagem'
- Left = 644
- Top = 343
+ Title = 'Selecione A Imagem Frete'
+ Left = 20
+ Top = 127
end
object DsGridBills: TDataSource
DataSet = ClientDataSet
- Left = 724
- Top = 343
+ Left = 100
+ Top = 127
+ end
+ object PopupMenu1: TPopupMenu
+ Images = DataModule1.ImageList1
+ Left = 684
+ Top = 67
+ object button1pop: TMenuItem
+ Caption = 'Adicionar Imagem Frente'
+ ImageIndex = 5
+ OnClick = button1popClick
+ end
+ object RemoverImagem1: TMenuItem
+ Caption = 'Remover Imagem'
+ ImageIndex = 3
+ OnClick = RemoverImagem1Click
+ end
+ end
+ object PopupMenu2: TPopupMenu
+ Images = DataModule1.ImageList1
+ Left = 692
+ Top = 323
+ object button2pop: TMenuItem
+ Caption = 'Adicionar Imagem Verso'
+ ImageIndex = 5
+ OnClick = button2popClick
+ end
+ object RemoverImagem2: TMenuItem
+ Caption = 'Remover Imagem'
+ ImageIndex = 3
+ OnClick = RemoverImagem2Click
+ end
+ end
+ object OpenDialog2: TOpenDialog
+ DefaultExt = '.jpg'
+ Filter = 'Todos os Arquivos|*.jpg'
+ InitialDir = '\downloads'
+ Title = 'Selecione A Imagem Verso'
+ Left = 28
+ Top = 175
end
end
diff --git a/U_Menu.pas b/U_Menu.pas
index 63a2682..1ddc3d7 100644
--- a/U_Menu.pas
+++ b/U_Menu.pas
@@ -41,16 +41,12 @@ TFrMenu = class(TForm)
Type_Edit: TEdit;
Label6: TLabel;
Unit_Edit: TEdit;
- BtnSelectFileImage: TSpeedButton;
- filePathText: TEdit;
DsGridCoins: TDataSource;
Grid_Coins: TDBGrid;
ClientDataSet: TClientDataSet;
DataSetProvider: TDataSetProvider;
ReturnParametersProvider: TDataSetProvider;
ReturnParametersDataSet: TClientDataSet;
- Panel4: TPanel;
- image01: TImage;
OpenDialog1: TOpenDialog;
chkCoin: TCheckBox;
chk_bill: TCheckBox;
@@ -58,16 +54,22 @@ TFrMenu = class(TForm)
Value_Edit: TEdit;
lb_value: TLabel;
BillsGrid: TDBGrid;
+ Panel4: TPanel;
+ image01: TImage;
+ image02: TImage;
DsGridBills: TDataSource;
- BtnRemoveImage: TButton;
- Panel5: TPanel;
- ImageRegister: TImage;
+ PopupMenu1: TPopupMenu;
+ button1pop: TMenuItem;
+ PopupMenu2: TPopupMenu;
+ button2pop: TMenuItem;
+ OpenDialog2: TOpenDialog;
+ RemoverImagem1: TMenuItem;
+ RemoverImagem2: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure Info1Click(Sender: TObject);
procedure Grid_CoinsCellClick(Column: TColumn);
procedure ButtonRefreshDataClick(Sender: TObject);
procedure BtnNewRegisterClick(Sender: TObject);
- procedure BtnSelectFileImageClick(Sender: TObject);
procedure chkCoinClick(Sender: TObject);
procedure chk_billClick(Sender: TObject);
procedure BtnSaveRegisterClick(Sender: TObject);
@@ -75,14 +77,18 @@ TFrMenu = class(TForm)
procedure Grid_CoinsKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SearchFieldChange(Sender: TObject);
- procedure BtnRemoveImageClick(Sender: TObject);
procedure ButtonDeleteClick(Sender: TObject);
+ procedure image02Click(Sender: TObject);
+ procedure button1popClick(Sender: TObject);
+ procedure button2popClick(Sender: TObject);
+ procedure RemoverImagem1Click(Sender: TObject);
+ procedure RemoverImagem2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure RefreshImage(Field : TField; Img : TImage);
- procedure LoaderImage;
+ procedure LoaderImage(ImgComponent : String);
procedure ActionsDB(TypaAction: String);
procedure SearchAction(Textsearch : String); //FUNÇÃO DE BUSCA DO CAMPO SEARCH FIELD
procedure LoadDataOnGrid;
@@ -107,7 +113,7 @@ implementation
procedure TFrMenu.FormCreate(Sender: TObject);
begin
//Define Version
- GlbInfoVersion := '1.0.1';
+ GlbInfoVersion := '1.0.2';
ActiveControl := pageControl;
@@ -137,7 +143,12 @@ procedure TFrMenu.Grid_CoinsCellClick(Column: TColumn);
end;
LoadDataOnActionsGrid;
- BtnSelectFileImage.Enabled := True;
+
+ IdFieldAction := ClientDataSet.FieldByName('Id').AsInteger;
+
+ button1pop.Caption := 'Atualizar Imagem Frente';
+ button1pop.Caption := 'Atualizar Imagem Verso';
+
end;
procedure TFrMenu.Grid_CoinsKeyUp(Sender: TObject; var Key: Word;
@@ -156,6 +167,11 @@ procedure TFrMenu.Grid_CoinsKeyUp(Sender: TObject; var Key: Word;
LoadDataOnActionsGrid;
end;
+procedure TFrMenu.image02Click(Sender: TObject);
+begin
+
+end;
+
////////////////////////////////////////////////////////////
@@ -174,25 +190,49 @@ procedure TFrMenu.Info1Click(Sender: TObject);
////////////////////////////////////////////////////////////
//LOAD IMAGE
-procedure TFrMenu.LoaderImage;
+procedure TFrMenu.LoaderImage(ImgComponent : String);
Var
- JPG : TJPegImage;
+ JPG1 : TJPegImage;
+ JPG2 : TJPegImage;
begin
- ImageRegister.Picture.Assign(nil);
- If OpenDialog1.Execute Then
+
+ if ImgComponent = '1' then
+ begin
+ image01.Picture.Assign(nil);
+ If OpenDialog1.Execute Then
+ Begin
+ Try
+ JPG1 := TJPEGImage.Create();
+ JPG1.LoadFromFile(OpenDialog1.FileName);
+ image01.Picture.Assign(JPG1);
+ Finally
+ FreeAndNil(JPG1);
+ End;
+ End;
+ End;
+
+
+ if ImgComponent = '2' then
+ begin
+ image02.Picture.Assign(nil);
+ If OpenDialog2.Execute Then
Begin
Try
- JPG := TJPEGImage.Create();
- JPG.LoadFromFile(OpenDialog1.FileName);
- ImageRegister.Picture.Assign(JPG);
- Finally
- FreeAndNil(JPG);
- End;
-
- End;
+ JPG2 := TJPEGImage.Create();
+ JPG2.LoadFromFile(OpenDialog2.FileName);
+ image02.Picture.Assign(JPG2);
+ Finally
+ FreeAndNil(JPG2);
+ End;
+ end;
+ end;
- filePathText.Text := OpenDialog1.FileName;
-
+end;
+
+procedure TFrMenu.button2popClick(Sender: TObject);
+begin
+ LoaderImage('2');
+ ActiveControl := Name_Edit;
end;
////////////////////////////////////////////////////////////
@@ -203,13 +243,12 @@ procedure TFrMenu.LoaderImage;
procedure TFrMenu.LoadDataOnActionsGrid;
begin
image01.Picture.Assign(nil);
+ image02.Picture.Assign(nil);
StatusBar_Bottom.Panels[2].Text := IntToStr(Grid_Coins.SelectedRows.Count)+ ' Moedas(s) Selecionadas';
- RefreshImage(ClientDataSet.FieldByName('Image'),image01);
- //RefreshImage(ClientDataSet.FieldByName('Image'),ImageRegister);
-
- if ImageRegister.Picture = nil then filePathText.Text := '';
+ RefreshImage(ClientDataSet.FieldByName('ImageFront'),image01);
+ RefreshImage(ClientDataSet.FieldByName('ImageBack'),image02);
Name_Edit.Text := ClientDataSet.FieldByName('Name').asString;
Value_Edit.Text := ClientDataSet.FieldByName('Value').asString;
@@ -218,6 +257,7 @@ procedure TFrMenu.LoadDataOnActionsGrid;
Year_Edit.Text := ClientDataSet.FieldByName('Year').asString;
Type_Edit.Text := ClientDataSet.FieldByName('Type').asString;
Qtd_Edit.Text := ClientDataSet.FieldByName('Quantity').asString;
+
if ClientDataSet.FieldByName('Coin').asString = 'TRUE' then
begin
chkCoin.Checked := True;
@@ -370,26 +410,14 @@ procedure TFrMenu.ButtonRefreshDataClick(Sender: TObject);
procedure TFrMenu.PageControlGeralChange(Sender: TObject);
begin
+ if ClientDataSet.Active = False then abort;
+
SearchField.Text := '';
ButtonRefreshDataClick(ButtonRefreshData);
end;
////////////////////////////////////////////////////////////
-
-////////////////////////////////////////////////////////////
-// LOAD FILE EXPLORER
-
-procedure TFrMenu.BtnSelectFileImageClick(Sender: TObject);
-begin
- LoaderImage;
- BtnRemoveImage.Visible := True;
- ActiveControl := Name_Edit;
-end;
-
-////////////////////////////////////////////////////////////
-
-
////////////////////////////////////////////////////////////
// SHOW IMAGE ON TIMAGE
@@ -429,6 +457,18 @@ procedure TFrMenu.RefreshImage(Field: TField; Img: TImage);
end;
+procedure TFrMenu.RemoverImagem1Click(Sender: TObject);
+begin
+ image01.Picture.Assign(nil);
+ OpenDialog1.FileName := '';
+end;
+
+procedure TFrMenu.RemoverImagem2Click(Sender: TObject);
+begin
+ image02.Picture.Assign(nil);
+ OpenDialog2.FileName := '';
+end;
+
////////////////////////////////////////////////////////////
@@ -547,6 +587,7 @@ procedure TFrMenu.ButtonDeleteClick(Sender: TObject);
ActionsDB('DEL');
ButtonRefreshDataClick(ButtonRefreshData);
+ BtnNewRegisterClick(BtnNewRegister);
end;
end;
@@ -558,6 +599,10 @@ procedure TFrMenu.ButtonDeleteClick(Sender: TObject);
////////////////////////////////////////////////////////////
//DB ACTIONS
procedure TFrMenu.ActionsDB(TypaAction: String);
+var
+ Stream1: TMemoryStream;
+ Stream2: TMemoryStream;
+ ResultModal: Integer;
begin
if DataModule1.SqlActions.active then DataModule1.SqlActions.Close;
if DataModule1.ReturnParameters.active then DataModule1.ReturnParameters.Close;
@@ -568,8 +613,9 @@ procedure TFrMenu.ActionsDB(TypaAction: String);
begin
SQL.Clear;
SQL.Add('INSERT INTO CollectionTable');
- SQL.Add('(Image, Name, Value, Unit, Country, Year, Type, Quantity, Coin, Bills)VALUES');
- SQL.Add('(:Image, :Name, :Value, :Unit, :Country, :Year, :Type, :Quantity, :Coin, :Bills)');
+
+ SQL.Add('(ImageFront, ImageBack, Name, Value, Unit, Country, Year, Type, Quantity, Coin, Bills)VALUES');
+ SQL.Add('(:ImageFront, :ImageBack, :Name, :Value, :Unit, :Country, :Year, :Type, :Quantity, :Coin, :Bills)');
ParamByName('Name' ).AsString := Name_Edit.Text;
ParamByName('Value' ).AsString := Value_Edit.Text;
ParamByName('Unit' ).AsString := Unit_Edit.Text;
@@ -577,7 +623,25 @@ procedure TFrMenu.ActionsDB(TypaAction: String);
ParamByName('Year' ).AsString := Year_Edit.Text;
ParamByName('Type' ).AsString := Type_Edit.Text;
ParamByName('Quantity').AsString := Qtd_Edit.Text;
- ParamByName('Image').LoadFromFile(filePathText.Text,FtBlob);
+
+
+ Stream1 := TMemoryStream.Create;
+ Stream2 := TMemoryStream.Create;
+
+ if image01.Picture <> nil then
+ begin
+ image01.Picture.SaveToStream(Stream1);
+ ParamByName('ImageFront').LoadFromStream(Stream1,ftBlob);
+ end
+ else ParamByName('ImageFront').LoadFromFile('',FtBlob);
+
+ if image02.Picture <> nil then
+ begin
+ image02.Picture.SaveToStream(Stream2);
+ ParamByName('ImageBack').LoadFromStream(Stream2,ftBlob);
+ end
+ else ParamByName('ImageBack').LoadFromFile('',FtBlob);
+
if chkCoin.Checked = True then
begin
ParamByName('Coin' ).AsString := 'TRUE';
@@ -590,17 +654,27 @@ procedure TFrMenu.ActionsDB(TypaAction: String);
end;
ExecSQL();
- ShowMessage('Registro Com Sucesso!');
+ ShowMessage('Salvo Com Sucesso!');
end;
end;
if(TypaAction = 'UPD')then
- begin
+ begin
+
+ ResultModal := MessageDlg('Deseja Alterar o Registro?', mtConfirmation, [mbYes, mbNo{, mbCancel}], 0);
+
+ if ResultModal = 7 then
+ begin
+ ButtonRefreshDataClick(ButtonRefreshData);
+ BtnNewRegisterClick(BtnNewRegister);
+ abort;
+ end;
+
With DataModule1.SqlActions do
begin
SQL.Clear;
SQL.Add('UPDATE CollectionTable SET');
- SQL.Add('Image = :Image, Name = :Name, Value = :Value, Unit = :Unit, Country = :Country, Year = :Year, Type = :Type, Quantity = :Quantity');
+ SQL.Add('ImageFront = :ImageFront, ImageBack = :ImageBack, Name = :Name, Value = :Value, Unit = :Unit, Country = :Country, Year = :Year, Type = :Type, Quantity = :Quantity');
SQL.Add('WHERE Id = :Id');
ParamByName('Name' ).AsString := Name_Edit.Text;
@@ -610,10 +684,33 @@ procedure TFrMenu.ActionsDB(TypaAction: String);
ParamByName('Year' ).AsString := Year_Edit.Text;
ParamByName('Type' ).AsString := Type_Edit.Text;
ParamByName('Quantity').AsString := Qtd_Edit.Text;
- if filePathText.Text <> '' then ParamByName('Image').LoadFromFile(filePathText.Text,FtBlob);
+
+ Stream1 := TMemoryStream.Create;
+ Stream2 := TMemoryStream.Create;
+
+ if image01.Picture <> nil then
+ begin
+ image01.Picture.SaveToStream(Stream1);
+ ParamByName('ImageFront').LoadFromStream(Stream1,ftBlob);
+ end
+ else ParamByName('ImageFront').LoadFromFile('',FtBlob);
+
+ if image02.Picture <> nil then
+ begin
+ image02.Picture.SaveToStream(Stream2);
+ ParamByName('ImageBack').LoadFromStream(Stream2,ftBlob);
+ end
+ else ParamByName('ImageBack').LoadFromFile('',FtBlob);
+
ParamByName('Id').asInteger := IdFieldAction;
+
ExecSQL();
+
ShowMessage('Alterado Com Sucesso!');
+
+ Stream1.Free;
+ Stream2.Free;
+
end;
end;
@@ -627,7 +724,7 @@ procedure TFrMenu.ActionsDB(TypaAction: String);
ParamByName('Id').asInteger := IdFieldAction;
ExecSQL();
- ShowMessage('Registro Apagado Com Sucesso!');
+ ShowMessage('Apagado Com Sucesso!');
end;
end;
end;
@@ -638,27 +735,33 @@ procedure TFrMenu.ActionsDB(TypaAction: String);
////////////////////////////////////////////////////////////
// BTN NEW COIN OR BILLS
+procedure TFrMenu.button1popClick(Sender: TObject);
+begin
+ LoaderImage('1');
+ ActiveControl := Name_Edit;
+end;
+
procedure TFrMenu.BtnNewRegisterClick(Sender: TObject);
begin
+ IdFieldAction := 0;
Name_Edit.Text := '';
Country_Edit.Text := '';
Qtd_Edit.Text := '';
Year_Edit.Text := '';
Type_Edit.Text := '';
Unit_Edit.Text := '';
- filePathText.Text := '';
+ Value_Edit.Text := '';
chkCoin.Checked := False;
chk_bill.Checked := False;
- ImageRegister.Picture.Assign(nil);
- BtnSelectFileImage.Enabled := True;
+ image01.Picture.Assign(nil);
+ image02.Picture.Assign(nil);
+ OpenDialog1.FileName := '';
+ OpenDialog2.FileName := '';
- ActiveControl := Name_Edit;
-end;
+ button1pop.Caption := 'Adicionar Imagem Frente';
+ button1pop.Caption := 'Adicionar Imagem Verso';
-procedure TFrMenu.BtnRemoveImageClick(Sender: TObject);
-begin
- ImageRegister.Picture.Assign(nil);
- BtnRemoveImage.Visible := False;
+ ActiveControl := Name_Edit;
end;
////////////////////////////////////////////////////////////
@@ -669,9 +772,70 @@ procedure TFrMenu.BtnRemoveImageClick(Sender: TObject);
procedure TFrMenu.BtnSaveRegisterClick(Sender: TObject);
begin
- IdFieldAction := 0;
-
- if ClientDataSet.Active <> False then IdFieldAction := ClientDataSet.FieldByName('Id').AsInteger;
+ /////////////////////////////////////////////////
+ //VALIDATION FIELDS
+
+ if Trim(Name_Edit.Text) = '' then
+ begin
+ ShowMessage('Campo Nome Não Pode Ficar Vazio!');
+ ActiveControl := Name_Edit;
+ abort;
+ end;
+
+ if Trim(Country_Edit.Text) = '' then
+ begin
+ ShowMessage('Campo Pais Não Pode Ficar Vazio!');
+ ActiveControl := Country_Edit;
+ abort;
+ end;
+
+ if Trim(Qtd_Edit.Text) = '' then
+ begin
+ ShowMessage('Campo Quantidade Não Pode Ficar Vazio!');
+ ActiveControl := Qtd_Edit;
+ abort;
+ end;
+
+ if Trim(Year_Edit.Text) = '' then
+ begin
+ ShowMessage('Campo Ano Não Pode Ficar Vazio!');
+ ActiveControl := Year_Edit;
+ abort;
+ end;
+
+ if Trim(Type_Edit.Text) = '' then
+ begin
+ ShowMessage('Campo Tipo Não Pode Ficar Vazio!');
+ ActiveControl := Type_Edit;
+ abort;
+ end;
+
+ if Trim(Unit_Edit.Text) = '' then
+ begin
+ ShowMessage('Campo Unidade Não Pode Ficar Vazio!');
+ ActiveControl := Unit_Edit;
+ abort;
+ end;
+
+ if Trim(Value_Edit.Text) = '' then
+ begin
+ ShowMessage('Campo Valor Não Pode Ficar Vazio!');
+ ActiveControl := Value_Edit;
+ abort;
+ end;
+
+ if chkCoin.Checked = False and chk_bill.Checked = False then
+ begin
+ ShowMessage('Escolha uma Coleção!');
+ ActiveControl := chkCoin;
+ abort;
+ end;
+
+ /////////////////////////////////////////////////
+
+
+
+ if IdFieldAction <> 0 then IdFieldAction := ClientDataSet.FieldByName('Id').AsInteger;
if(IdFieldAction > 0)then ActionsDB('UPD')
else ActionsDB('NEW');
diff --git a/U_Menu.vlb b/U_Menu.vlb
index 2c74fba..f96b436 100644
--- a/U_Menu.vlb
+++ b/U_Menu.vlb
@@ -31,9 +31,6 @@ Coordinates=10,78,53,58
[Label3]
Coordinates=315,10,53,58
-[filePathText]
-Coordinates=96,10,83,58
-
[Label2]
Coordinates=189,10,53,58
@@ -50,7 +47,7 @@ Coordinates=252,10,53,58
Coordinates=289,317,87,36
[]
-Coordinates=558,111,136,36
+Coordinates=187,214,96,36
[Grid_Coins]
Coordinates=260,360,64,36
@@ -86,9 +83,6 @@ Coordinates=105,260,50,36
[page1]
Coordinates=307,146,77,36
-[BtnSelectFileImage]
-Coordinates=187,214,96,36
-
[BtnSaveRegister]
Coordinates=293,214,96,36
diff --git a/database/Scripts/CollectionTable_Create b/database copy/Scripts/CollectionTable_Create
similarity index 100%
rename from database/Scripts/CollectionTable_Create
rename to database copy/Scripts/CollectionTable_Create
diff --git a/database copy/database.db b/database copy/database.db
new file mode 100644
index 0000000..5bf3442
Binary files /dev/null and b/database copy/database.db differ
diff --git a/database/database.db b/database/database.db
deleted file mode 100644
index 758f7ca..0000000
Binary files a/database/database.db and /dev/null differ
diff --git a/exe/NumismaticPro_vs1.0.1.exe b/exe/NumismaticPro_vs1.0.2.exe
similarity index 74%
rename from exe/NumismaticPro_vs1.0.1.exe
rename to exe/NumismaticPro_vs1.0.2.exe
index 8431545..18bb3dd 100644
Binary files a/exe/NumismaticPro_vs1.0.1.exe and b/exe/NumismaticPro_vs1.0.2.exe differ
diff --git a/exe/database.db b/exe/database.db
new file mode 100644
index 0000000..5bf3442
Binary files /dev/null and b/exe/database.db differ
diff --git a/exe/versions/NumismaticPro_vs1.0.2.exe b/exe/versions/NumismaticPro_vs1.0.2.exe
new file mode 100644
index 0000000..18bb3dd
Binary files /dev/null and b/exe/versions/NumismaticPro_vs1.0.2.exe differ