Personale/crud-delphi
1
0
Fork 0
mirror of https://github.com/rickrd/crud-delphi.git synced 2025-12-19 09:03:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

modified visual components

Browse Source
This commit is contained in:
rickarof 2018-08-22 09:40:38 -03:00
parent 2852ff3645
commit 89639700ce
6 changed files with 170 additions and 161 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
UnitFormCidade.dfm
View File

@ -4,7 +4,7 @@ inherited FormCidade: TFormCidade
OnCreate = FormCreate OnCreate = FormCreate
ExplicitWidth = 616 ExplicitWidth = 616
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 15 TextHeight = 18
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 600 Width = 600
inherited btAnterior: TButton inherited btAnterior: TButton
@ -38,49 +38,40 @@ inherited FormCidade: TFormCidade
600 600
243) 243)
inherited Panel2: TPanel inherited Panel2: TPanel
Left = 108
Top = 6
ExplicitLeft = 108
ExplicitTop = 6
object Label1: TLabel [0] object Label1: TLabel [0]
Left = 48 Left = 70
Top = 57 Top = 20
Width = 42 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'C'#243'digo:' Caption = 'C'#243'digo:'
ExplicitLeft = 52
ExplicitTop = 66
end end
object Label2: TLabel [1] object Label2: TLabel [1]
Left = 50 Left = 70
Top = 97 Top = 70
Width = 40 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'Cidade:' Caption = 'Cidade:'
ExplicitLeft = 54
ExplicitTop = 111
end end
object Label3: TLabel [2] object Label3: TLabel [2]
Left = 65 Left = 70
Top = 141 Top = 120
Width = 25 Width = 50
Height = 15 Height = 25
Anchors = [] Alignment = taRightJustify
Caption = 'Pa'#237's:' Caption = 'Pa'#237's:'
ExplicitLeft = 69
ExplicitTop = 161
end end
object Label4: TLabel [3] object Label4: TLabel [3]
Left = 263 Left = 300
Top = 141 Top = 120
Width = 19 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'UF:' Caption = 'UF:'
ExplicitLeft = 277
ExplicitTop = 161
end end
inherited cbLimparCampos: TCheckBox inherited cbLimparCampos: TCheckBox
TabOrder = 4 TabOrder = 4
@ -88,51 +79,43 @@ inherited FormCidade: TFormCidade
end end
object edCidade: TEdit object edCidade: TEdit
Tag = 1 Tag = 1
Left = 100 Left = 130
Top = 94 Top = 70
Width = 150 Width = 150
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 0 TabOrder = 0
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 109
ExplicitTop = 108
end end
object edCod: TEdit object edCod: TEdit
Left = 103 Left = 130
Top = 54 Top = 20
Width = 75 Width = 75
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 1 TabOrder = 1
OnExit = edCodExit OnExit = edCodExit
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 110
ExplicitTop = 63
end end
object edPais: TEdit object edPais: TEdit
Tag = 2 Tag = 2
Left = 100 Left = 130
Top = 138 Top = 120
Width = 150 Width = 150
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 2 TabOrder = 2
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 109
ExplicitTop = 158
end end
object edUF: TEdit object edUF: TEdit
Tag = 3 Tag = 3
Left = 293 Left = 360
Top = 138 Top = 120
Width = 75 Width = 75
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 3 TabOrder = 3
OnKeyPress = edFinalKeyPress OnKeyPress = edFinalKeyPress
ExplicitLeft = 310
ExplicitTop = 158
end end
end end
end end

82
UnitFormEstado.dfm
View File

@ -4,7 +4,7 @@ inherited FormEstado: TFormEstado
OnCreate = FormCreate OnCreate = FormCreate
ExplicitHeight = 352 ExplicitHeight = 352
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 15 TextHeight = 18
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Anchors = [] Anchors = []
inherited btAnterior: TButton inherited btAnterior: TButton
@ -33,100 +33,84 @@ inherited FormEstado: TFormEstado
Height = 244 Height = 244
ExplicitHeight = 261 ExplicitHeight = 261
inherited Panel2: TPanel inherited Panel2: TPanel
Left = 110
Top = 6
ExplicitLeft = 110
ExplicitTop = 6
object Label1: TLabel [0] object Label1: TLabel [0]
Left = 46 Left = 70
Top = 56 Top = 20
Width = 42 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'C'#243'digo:' Caption = 'C'#243'digo:'
ExplicitLeft = 50
ExplicitTop = 65
end end
object Label2: TLabel [1] object Label2: TLabel [1]
Left = 48 Left = 70
Top = 94 Top = 70
Width = 40 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'Estado:' Caption = 'Estado:'
ExplicitLeft = 52
ExplicitTop = 108
end end
object Label3: TLabel [2] object Label3: TLabel [2]
Left = 63 Left = 70
Top = 134 Top = 120
Width = 25 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'Pa'#237's:' Caption = 'Pa'#237's:'
ExplicitLeft = 67
ExplicitTop = 153
end end
object Label4: TLabel [3] object Label4: TLabel [3]
Left = 252 Left = 300
Top = 134 Top = 120
Width = 29 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'Al'#237'q.:' Caption = 'Al'#237'q.:'
ExplicitLeft = 266
ExplicitTop = 153
end end
inherited cbLimparCampos: TCheckBox inherited cbLimparCampos: TCheckBox
TabOrder = 4 TabOrder = 4
end end
object edAliquota: TEdit object edAliquota: TEdit
Tag = 3 Tag = 3
Left = 289 Left = 360
Top = 131 Top = 120
Width = 75 Width = 75
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 0 TabOrder = 0
OnKeyPress = edFinalKeyPress OnKeyPress = edFinalKeyPress
ExplicitLeft = 306
ExplicitTop = 150
end end
object edCod: TEdit object edCod: TEdit
Left = 103 Left = 130
Top = 53 Top = 20
Width = 75 Width = 75
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 1 TabOrder = 1
OnExit = edCodExit OnExit = edCodExit
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 110
ExplicitTop = 62
end end
object edEstado: TEdit object edEstado: TEdit
Tag = 1 Tag = 1
Left = 101 Left = 130
Top = 91 Top = 70
Width = 150 Width = 150
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 2 TabOrder = 2
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 110
ExplicitTop = 105
end end
object edPais: TEdit object edPais: TEdit
Tag = 2 Tag = 2
Left = 101 Left = 130
Top = 131 Top = 120
Width = 150 Width = 150
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 3 TabOrder = 3
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 110
ExplicitTop = 150
end end
end end
end end

22
UnitFormGrid.dfm
View File

@ -6,10 +6,10 @@ object FormGrid: TFormGrid
AutoScroll = True AutoScroll = True
Caption = 'FormGrid' Caption = 'FormGrid'
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -13
Font.Name = 'Tahoma' Font.Name = 'Trebuchet MS'
Font.Style = [] Font.Style = []
FormStyle = fsMDIChild FormStyle = fsMDIChild
OldCreateOrder = False OldCreateOrder = False
@ -17,7 +17,7 @@ object FormGrid: TFormGrid
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 18
object StringGrid1: TStringGrid object StringGrid1: TStringGrid
Left = 0 Left = 0
Top = 59 Top = 59
@ -46,6 +46,12 @@ object FormGrid: TFormGrid
Width = 75 Width = 75
Height = 30 Height = 30
Caption = 'Excluir' Caption = 'Excluir'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentFont = False
TabOrder = 0 TabOrder = 0
OnClick = btExcluirClick OnClick = btExcluirClick
end end
@ -56,6 +62,12 @@ object FormGrid: TFormGrid
Height = 30 Height = 30
Caption = 'Escolher' Caption = 'Escolher'
Default = True Default = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentFont = False
TabOrder = 1 TabOrder = 1
OnClick = btEscolherClick OnClick = btEscolherClick
end end
@ -64,7 +76,7 @@ object FormGrid: TFormGrid
Left = 64 Left = 64
Top = 35 Top = 35
Width = 70 Width = 70
Height = 21 Height = 26
TabOrder = 2 TabOrder = 2
OnChange = edPesquisaChange OnChange = edPesquisaChange
end end

60
UnitFormPadrao.dfm
View File

@ -8,7 +8,7 @@ object FormPadrao: TFormPadrao
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
Font.Name = 'Times New Roman' Font.Name = 'Trebuchet MS'
Font.Style = [] Font.Style = []
FormStyle = fsMDIChild FormStyle = fsMDIChild
OldCreateOrder = False OldCreateOrder = False
@ -16,7 +16,7 @@ object FormPadrao: TFormPadrao
OnActivate = FormActivate OnActivate = FormActivate
OnClose = FormClose OnClose = FormClose
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 15 TextHeight = 18
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
@ -32,7 +32,13 @@ object FormPadrao: TFormPadrao
Height = 30 Height = 30
Caption = '<' Caption = '<'
DoubleBuffered = False DoubleBuffered = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentDoubleBuffered = False ParentDoubleBuffered = False
ParentFont = False
TabOrder = 0 TabOrder = 0
end end
object btProximo: TButton object btProximo: TButton
@ -52,7 +58,13 @@ object FormPadrao: TFormPadrao
Height = 30 Height = 30
Caption = 'Buscar' Caption = 'Buscar'
DoubleBuffered = False DoubleBuffered = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentDoubleBuffered = False ParentDoubleBuffered = False
ParentFont = False
TabOrder = 2 TabOrder = 2
end end
object btInserir: TButton object btInserir: TButton
@ -62,7 +74,13 @@ object FormPadrao: TFormPadrao
Height = 30 Height = 30
Caption = 'Inserir' Caption = 'Inserir'
DoubleBuffered = False DoubleBuffered = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentDoubleBuffered = False ParentDoubleBuffered = False
ParentFont = False
TabOrder = 3 TabOrder = 3
end end
object btExcluir: TButton object btExcluir: TButton
@ -72,7 +90,13 @@ object FormPadrao: TFormPadrao
Height = 30 Height = 30
Caption = 'Excluir' Caption = 'Excluir'
DoubleBuffered = False DoubleBuffered = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentDoubleBuffered = False ParentDoubleBuffered = False
ParentFont = False
TabOrder = 4 TabOrder = 4
end end
object btExportar: TButton object btExportar: TButton
@ -82,7 +106,13 @@ object FormPadrao: TFormPadrao
Height = 30 Height = 30
Caption = 'Exportar' Caption = 'Exportar'
DoubleBuffered = False DoubleBuffered = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentDoubleBuffered = False ParentDoubleBuffered = False
ParentFont = False
TabOrder = 7 TabOrder = 7
end end
object btImportar: TButton object btImportar: TButton
@ -92,7 +122,13 @@ object FormPadrao: TFormPadrao
Height = 30 Height = 30
Caption = 'Importar' Caption = 'Importar'
DoubleBuffered = False DoubleBuffered = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentDoubleBuffered = False ParentDoubleBuffered = False
ParentFont = False
TabOrder = 5 TabOrder = 5
end end
object btContar: TButton object btContar: TButton
@ -102,7 +138,13 @@ object FormPadrao: TFormPadrao
Height = 30 Height = 30
Caption = 'Contar' Caption = 'Contar'
DoubleBuffered = False DoubleBuffered = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentDoubleBuffered = False ParentDoubleBuffered = False
ParentFont = False
TabOrder = 6 TabOrder = 6
end end
end end
@ -113,21 +155,19 @@ object FormPadrao: TFormPadrao
Height = 243 Height = 243
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 88 ExplicitLeft = -64
ExplicitTop = 61 ExplicitTop = 129
ExplicitHeight = 271
DesignSize = ( DesignSize = (
601 601
243) 243)
object Panel2: TPanel object Panel2: TPanel
Left = 357 Left = 50
Top = 241 Top = 20
Width = 380 Width = 500
Height = 220 Height = 200
Anchors = [] Anchors = []
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 0 TabOrder = 0
ExplicitTop = 464
object cbLimparCampos: TCheckBox object cbLimparCampos: TCheckBox
Left = 344 Left = 344
Top = 229 Top = 229

84
UnitFormPais.dfm
View File

@ -8,7 +8,7 @@ inherited FormPais: TFormPais
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 350 ExplicitHeight = 350
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 15 TextHeight = 18
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 602 Width = 602
ExplicitWidth = 602 ExplicitWidth = 602
@ -40,96 +40,86 @@ inherited FormPais: TFormPais
602 602
242) 242)
inherited Panel2: TPanel inherited Panel2: TPanel
Left = 107
Top = 5
ExplicitLeft = 107
ExplicitTop = 6
object Label1: TLabel [0] object Label1: TLabel [0]
Left = 46 Left = 70
Top = 64 Top = 20
Width = 42 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'C'#243'digo:' Caption = 'C'#243'digo:'
ExplicitLeft = 49
ExplicitTop = 74
end end
object Label2: TLabel [1] object Label2: TLabel [1]
Left = 62 Left = 70
Top = 102 Top = 70
Width = 25 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'Pa'#237's:' Caption = 'Pa'#237's:'
ExplicitLeft = 66
ExplicitTop = 117
end end
object Label3: TLabel [2] object Label3: TLabel [2]
Left = 9 Left = 70
Top = 144 Top = 120
Width = 79 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'Nacionalidade:' AutoSize = False
ExplicitLeft = 12 Caption = 'Nacio.:'
ExplicitTop = 165
end end
object Label4: TLabel [3] object Label4: TLabel [3]
Left = 36 Left = 70
Top = 183 Top = 170
Width = 51 Width = 50
Height = 15 Height = 25
Alignment = taRightJustify
Anchors = [] Anchors = []
Caption = 'C'#243'd.Fed.:' AutoSize = False
Caption = 'C'#243'd.F:'
end end
inherited cbLimparCampos: TCheckBox inherited cbLimparCampos: TCheckBox
TabOrder = 4 TabOrder = 4
end end
object edCod: TEdit object edCod: TEdit
Left = 103 Left = 130
Top = 61 Top = 20
Width = 75 Width = 75
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 0 TabOrder = 0
OnExit = edCodExit OnExit = edCodExit
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 110
ExplicitTop = 71
end end
object edCodFed: TEdit object edCodFed: TEdit
Tag = 3 Tag = 3
Left = 103 Left = 130
Top = 180 Top = 170
Width = 75 Width = 75
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 1 TabOrder = 1
OnKeyPress = edFinalKeyPress OnKeyPress = edFinalKeyPress
end end
object edNacionalidade: TEdit object edNacionalidade: TEdit
Tag = 2 Tag = 2
Left = 101 Left = 130
Top = 141 Top = 120
Width = 150 Width = 150
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 2 TabOrder = 2
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 110
ExplicitTop = 162
end end
object edPais: TEdit object edPais: TEdit
Tag = 1 Tag = 1
Left = 101 Left = 130
Top = 99 Top = 70
Width = 150 Width = 150
Height = 23 Height = 26
Anchors = [] Anchors = []
TabOrder = 3 TabOrder = 3
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 110
ExplicitTop = 114
end end
end end
end end

BIN
Win32/Debug/Project1.exe
View File

Binary file not shown.