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:12:03 -03:00
parent 2f50c96226
commit 2852ff3645
13 changed files with 162 additions and 147 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Project1.res
View File

Binary file not shown.

64
UnitFormCidade.dfm
View File

@ -1,10 +1,8 @@
inherited FormCidade: TFormCidade inherited FormCidade: TFormCidade
Caption = 'Cadastro de cidade:' Caption = 'Cadastro de cidade:'
ClientHeight = 312
ClientWidth = 600 ClientWidth = 600
OnCreate = FormCreate OnCreate = FormCreate
ExplicitWidth = 616 ExplicitWidth = 616
ExplicitHeight = 351
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 15 TextHeight = 15
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
@ -29,53 +27,60 @@ inherited FormCidade: TFormCidade
inherited btImportar: TButton inherited btImportar: TButton
OnClick = btImportarClick OnClick = btImportarClick
end end
inherited btExportar: TButton
OnClick = btExportarClick
end
inherited btContar: TButton inherited btContar: TButton
OnClick = btContarClick OnClick = btContarClick
end end
end end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 600 Width = 600
Height = 264 ExplicitHeight = 260
ExplicitHeight = 264 DesignSize = (
600
243)
inherited Panel2: TPanel inherited Panel2: TPanel
Left = 100 Left = 108
Top = 6 Top = 6
ExplicitLeft = 99 ExplicitLeft = 108
ExplicitTop = 6 ExplicitTop = 6
object Label1: TLabel [0] object Label1: TLabel [0]
Left = 52 Left = 48
Top = 66 Top = 57
Width = 42 Width = 42
Height = 15 Height = 15
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 = 54 Left = 50
Top = 111 Top = 97
Width = 40 Width = 40
Height = 15 Height = 15
Anchors = [] Anchors = []
Caption = 'Cidade:' Caption = 'Cidade:'
ExplicitLeft = 54
ExplicitTop = 111
end end
object Label3: TLabel [2] object Label3: TLabel [2]
Left = 69 Left = 65
Top = 161 Top = 141
Width = 25 Width = 25
Height = 15 Height = 15
Anchors = [] Anchors = []
Caption = 'Pa'#237's:' Caption = 'Pa'#237's:'
ExplicitLeft = 69
ExplicitTop = 161
end end
object Label4: TLabel [3] object Label4: TLabel [3]
Left = 277 Left = 263
Top = 161 Top = 141
Width = 19 Width = 19
Height = 15 Height = 15
Anchors = [] Anchors = []
Caption = 'UF:' Caption = 'UF:'
ExplicitLeft = 277
ExplicitTop = 161
end end
inherited cbLimparCampos: TCheckBox inherited cbLimparCampos: TCheckBox
TabOrder = 4 TabOrder = 4
@ -83,48 +88,55 @@ inherited FormCidade: TFormCidade
end end
object edCidade: TEdit object edCidade: TEdit
Tag = 1 Tag = 1
Left = 109 Left = 100
Top = 108 Top = 94
Width = 150 Width = 150
Height = 23 Height = 23
Anchors = [] Anchors = []
TabOrder = 0 TabOrder = 0
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 109
ExplicitTop = 108
end end
object edCod: TEdit object edCod: TEdit
Left = 110 Left = 103
Top = 63 Top = 54
Width = 75 Width = 75
Height = 23 Height = 23
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 = 109 Left = 100
Top = 158 Top = 138
Width = 150 Width = 150
Height = 23 Height = 23
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 = 310 Left = 293
Top = 158 Top = 138
Width = 75 Width = 75
Height = 23 Height = 23
Anchors = [] Anchors = []
TabOrder = 3 TabOrder = 3
OnKeyPress = edFinalKeyPress OnKeyPress = edFinalKeyPress
ExplicitLeft = 310
ExplicitTop = 158
end end
end end
end end
inherited StatusBar1: TStatusBar inherited StatusBar1: TStatusBar
Top = 293
Width = 600 Width = 600
Panels = < Panels = <
item item

86
UnitFormEstado.dfm
View File

@ -1,16 +1,12 @@
inherited FormEstado: TFormEstado inherited FormEstado: TFormEstado
Caption = 'Cadastro de estado:' Caption = 'Cadastro de estado:'
ClientHeight = 313 ClientHeight = 313
ClientWidth = 601
OnCreate = FormCreate OnCreate = FormCreate
ExplicitWidth = 617
ExplicitHeight = 352 ExplicitHeight = 352
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 15 TextHeight = 15
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 601
Anchors = [] Anchors = []
ExplicitWidth = 601
inherited btAnterior: TButton inherited btAnterior: TButton
OnClick = btAnteriorClick OnClick = btAnteriorClick
end end
@ -21,7 +17,6 @@ inherited FormEstado: TFormEstado
OnClick = btBuscarClick OnClick = btBuscarClick
end end
inherited btInserir: TButton inherited btInserir: TButton
Default = False
OnClick = btInserirClick OnClick = btInserirClick
end end
inherited btExcluir: TButton inherited btExcluir: TButton
@ -30,109 +25,118 @@ inherited FormEstado: TFormEstado
inherited btImportar: TButton inherited btImportar: TButton
OnClick = btImportarClick OnClick = btImportarClick
end end
inherited btExportar: TButton
OnClick = btExportarClick
end
inherited btContar: TButton inherited btContar: TButton
OnClick = btContarClick OnClick = btContarClick
end end
end end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 601 Height = 244
Height = 265 ExplicitHeight = 261
ExplicitWidth = 601
ExplicitHeight = 265
inherited cbLimparCampos: TCheckBox
TabOrder = 1
end
inherited Panel2: TPanel inherited Panel2: TPanel
Left = 102 Left = 110
Top = 6 Top = 6
TabOrder = 0 ExplicitLeft = 110
ExplicitLeft = 102 ExplicitTop = 6
object Label1: TLabel object Label1: TLabel [0]
Left = 50 Left = 46
Top = 65 Top = 56
Width = 42 Width = 42
Height = 15 Height = 15
Anchors = [] Anchors = []
Caption = 'C'#243'digo:' Caption = 'C'#243'digo:'
ExplicitLeft = 50
ExplicitTop = 65
end end
object Label2: TLabel object Label2: TLabel [1]
Left = 52 Left = 48
Top = 108 Top = 94
Width = 40 Width = 40
Height = 15 Height = 15
Anchors = [] Anchors = []
Caption = 'Estado:' Caption = 'Estado:'
ExplicitLeft = 52
ExplicitTop = 108
end end
object Label3: TLabel object Label3: TLabel [2]
Left = 67 Left = 63
Top = 153 Top = 134
Width = 25 Width = 25
Height = 15 Height = 15
Anchors = [] Anchors = []
Caption = 'Pa'#237's:' Caption = 'Pa'#237's:'
ExplicitLeft = 67
ExplicitTop = 153
end end
object Label4: TLabel object Label4: TLabel [3]
Left = 266 Left = 252
Top = 153 Top = 134
Width = 29 Width = 29
Height = 15 Height = 15
Anchors = [] Anchors = []
Caption = 'Al'#237'q.:' Caption = 'Al'#237'q.:'
ExplicitLeft = 266
ExplicitTop = 153
end
inherited cbLimparCampos: TCheckBox
TabOrder = 4
end end
object edAliquota: TEdit object edAliquota: TEdit
Tag = 3 Tag = 3
Left = 306 Left = 289
Top = 150 Top = 131
Width = 75 Width = 75
Height = 23 Height = 23
Anchors = [] Anchors = []
TabOrder = 0 TabOrder = 0
OnKeyPress = edFinalKeyPress OnKeyPress = edFinalKeyPress
ExplicitLeft = 306
ExplicitTop = 150
end end
object edCod: TEdit object edCod: TEdit
Left = 110 Left = 103
Top = 62 Top = 53
Width = 75 Width = 75
Height = 23 Height = 23
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 = 110 Left = 101
Top = 105 Top = 91
Width = 150 Width = 150
Height = 23 Height = 23
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 = 110 Left = 101
Top = 150 Top = 131
Width = 150 Width = 150
Height = 23 Height = 23
Anchors = [] Anchors = []
TabOrder = 3 TabOrder = 3
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 110
ExplicitTop = 150
end end
end end
end end
inherited StatusBar1: TStatusBar inherited StatusBar1: TStatusBar
Top = 294 Top = 285
Width = 601
Panels = < Panels = <
item item
Text = 'Aguardando' Text = 'Aguardando'
Width = 50 Width = 50
end> end>
ExplicitTop = 294 ExplicitTop = 294
ExplicitWidth = 601
end end
end end

14
UnitFormGrid.dfm
View File

@ -27,7 +27,7 @@ object FormGrid: TFormGrid
DrawingStyle = gdsClassic DrawingStyle = gdsClassic
FixedCols = 0 FixedCols = 0
FixedRows = 0 FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goRowSelect] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
@ -37,23 +37,23 @@ object FormGrid: TFormGrid
Top = 0 Top = 0
Width = 432 Width = 432
Height = 29 Height = 29
ButtonHeight = 21 ButtonHeight = 30
Caption = 'ToolBar1' Caption = 'ToolBar1'
TabOrder = 1 TabOrder = 1
object btExcluir: TButton object btExcluir: TButton
Left = 0 Left = 0
Top = 0 Top = 0
Width = 70 Width = 75
Height = 21 Height = 30
Caption = 'Excluir' Caption = 'Excluir'
TabOrder = 0 TabOrder = 0
OnClick = btExcluirClick OnClick = btExcluirClick
end end
object btEscolher: TButton object btEscolher: TButton
Left = 70 Left = 75
Top = 0 Top = 0
Width = 70 Width = 75
Height = 21 Height = 30
Caption = 'Escolher' Caption = 'Escolher'
Default = True Default = True
TabOrder = 1 TabOrder = 1

11
UnitFormGrid.pas
View File

@ -20,7 +20,6 @@ type
procedure btEscolherClick(Sender: TObject); procedure btEscolherClick(Sender: TObject);
procedure edPesquisaChange(Sender: TObject); procedure edPesquisaChange(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure testeStringGrid();
private private
{ Private declarations } { Private declarations }
palavra: string; palavra: string;
@ -38,15 +37,6 @@ implementation
{$R *.dfm} {$R *.dfm}
uses UnitFormCidade; uses UnitFormCidade;
procedure TFormGrid.testeStringGrid();
begin
//ShowMessage(FormGrid.StringGrid1.Cells[0,0]);
StringGrid1.Cells[0, 0] := 'a';
StringGrid1.Cells[1, 0] := 'a';
StringGrid1.Cells[2, 0] := 'a';
StringGrid1.Cells[3, 0] := 'a';
end;
procedure TFormGrid.btEscolherClick(Sender: TObject); procedure TFormGrid.btEscolherClick(Sender: TObject);
var var
wObj: TObject; wObj: TObject;
@ -236,7 +226,6 @@ begin
FClass := Classe; FClass := Classe;
checkList := false; checkList := false;
end; end;
ShowMessage('wLista count:'+inttostr(Lista.Count));
StringGrid1.RowCount := Lista.Count; StringGrid1.RowCount := Lista.Count;
for wCont := 0 to Lista.Count-1 do for wCont := 0 to Lista.Count-1 do
begin begin

69
UnitFormPadrao.dfm
View File

@ -2,7 +2,7 @@ object FormPadrao: TFormPadrao
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'FormPadrao' Caption = 'FormPadrao'
ClientHeight = 332 ClientHeight = 312
ClientWidth = 601 ClientWidth = 601
Color = clBtnFace Color = clBtnFace
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -21,16 +21,15 @@ object FormPadrao: TFormPadrao
Left = 0 Left = 0
Top = 0 Top = 0
Width = 601 Width = 601
Height = 29 Height = 41
ButtonHeight = 20 ButtonHeight = 30
Caption = 'ToolBar1' Caption = 'ToolBar1'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 598
object btAnterior: TButton object btAnterior: TButton
Left = 0 Left = 0
Top = 0 Top = 0
Width = 75 Width = 75
Height = 20 Height = 30
Caption = '<' Caption = '<'
DoubleBuffered = False DoubleBuffered = False
ParentDoubleBuffered = False ParentDoubleBuffered = False
@ -40,7 +39,7 @@ object FormPadrao: TFormPadrao
Left = 75 Left = 75
Top = 0 Top = 0
Width = 75 Width = 75
Height = 20 Height = 30
Caption = '>' Caption = '>'
DoubleBuffered = False DoubleBuffered = False
ParentDoubleBuffered = False ParentDoubleBuffered = False
@ -50,7 +49,7 @@ object FormPadrao: TFormPadrao
Left = 150 Left = 150
Top = 0 Top = 0
Width = 75 Width = 75
Height = 20 Height = 30
Caption = 'Buscar' Caption = 'Buscar'
DoubleBuffered = False DoubleBuffered = False
ParentDoubleBuffered = False ParentDoubleBuffered = False
@ -60,7 +59,7 @@ object FormPadrao: TFormPadrao
Left = 225 Left = 225
Top = 0 Top = 0
Width = 75 Width = 75
Height = 20 Height = 30
Caption = 'Inserir' Caption = 'Inserir'
DoubleBuffered = False DoubleBuffered = False
ParentDoubleBuffered = False ParentDoubleBuffered = False
@ -70,63 +69,65 @@ object FormPadrao: TFormPadrao
Left = 300 Left = 300
Top = 0 Top = 0
Width = 75 Width = 75
Height = 20 Height = 30
Caption = 'Excluir' Caption = 'Excluir'
DoubleBuffered = False DoubleBuffered = False
ParentDoubleBuffered = False ParentDoubleBuffered = False
TabOrder = 4 TabOrder = 4
end end
object btImportar: TButton object btExportar: TButton
Left = 375 Left = 375
Top = 0 Top = 0
Width = 75 Width = 75
Height = 20 Height = 30
Caption = 'Exportar'
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 7
end
object btImportar: TButton
Left = 450
Top = 0
Width = 75
Height = 30
Caption = 'Importar' Caption = 'Importar'
DoubleBuffered = False DoubleBuffered = False
ParentDoubleBuffered = False ParentDoubleBuffered = False
TabOrder = 5 TabOrder = 5
end end
object btExportar: TButton
Left = 450
Top = 0
Width = 75
Height = 20
Caption = 'Exportar'
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 6
end
object btContar: TButton object btContar: TButton
Left = 525 Left = 525
Top = 0 Top = 0
Width = 75 Width = 75
Height = 20 Height = 30
Caption = 'Contar' Caption = 'Contar'
DoubleBuffered = False DoubleBuffered = False
ParentDoubleBuffered = False ParentDoubleBuffered = False
TabOrder = 7 TabOrder = 6
end end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 29 Top = 41
Width = 601 Width = 601
Height = 284 Height = 243
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitWidth = 598 ExplicitLeft = 88
ExplicitTop = 61
ExplicitHeight = 271
DesignSize = ( DesignSize = (
601 601
284) 243)
object Panel2: TPanel object Panel2: TPanel
Left = 357 Left = 357
Top = 296 Top = 241
Width = 400 Width = 380
Height = 250 Height = 220
Anchors = [] Anchors = []
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 0 TabOrder = 0
ExplicitLeft = 354 ExplicitTop = 464
object cbLimparCampos: TCheckBox object cbLimparCampos: TCheckBox
Left = 344 Left = 344
Top = 229 Top = 229
@ -139,9 +140,9 @@ object FormPadrao: TFormPadrao
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Top = 313 Top = 284
Width = 601 Width = 601
Height = 19 Height = 28
Panels = < Panels = <
item item
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
@ -149,7 +150,7 @@ object FormPadrao: TFormPadrao
Text = 'Aguardando' Text = 'Aguardando'
Width = 50 Width = 50
end> end>
ExplicitWidth = 598 ExplicitTop = 312
end end
object SaveTextFileDialog1: TSaveTextFileDialog object SaveTextFileDialog1: TSaveTextFileDialog
Left = 552 Left = 552

65
UnitFormPais.dfm
View File

@ -1,12 +1,12 @@
inherited FormPais: TFormPais inherited FormPais: TFormPais
Top = 17 Top = 17
Caption = 'Cadastro de pa'#237's:' Caption = 'Cadastro de pa'#237's:'
ClientHeight = 314 ClientHeight = 311
ClientWidth = 602 ClientWidth = 602
Position = poDesigned Position = poDesigned
OnCreate = FormCreate OnCreate = FormCreate
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 353 ExplicitHeight = 350
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 15 TextHeight = 15
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
@ -30,50 +30,53 @@ inherited FormPais: TFormPais
inherited btImportar: TButton inherited btImportar: TButton
OnClick = btImportarClick OnClick = btImportarClick
end end
inherited btExportar: TButton
OnClick = btExportarClick
end
end end
inherited Panel1: TPanel inherited Panel1: TPanel
Width = 602 Width = 602
Height = 266 Height = 242
ExplicitWidth = 602 ExplicitWidth = 602
ExplicitHeight = 266 ExplicitHeight = 262
DesignSize = ( DesignSize = (
602 602
266) 242)
inherited Panel2: TPanel inherited Panel2: TPanel
Left = 99 Left = 107
Top = 6 Top = 5
ExplicitLeft = 99 ExplicitLeft = 107
ExplicitTop = 6 ExplicitTop = 6
object Label1: TLabel [0] object Label1: TLabel [0]
Left = 49 Left = 46
Top = 74 Top = 64
Width = 42 Width = 42
Height = 15 Height = 15
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 = 66 Left = 62
Top = 117 Top = 102
Width = 25 Width = 25
Height = 15 Height = 15
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 = 12 Left = 9
Top = 165 Top = 144
Width = 79 Width = 79
Height = 15 Height = 15
Anchors = [] Anchors = []
Caption = 'Nacionalidade:' Caption = 'Nacionalidade:'
ExplicitLeft = 12
ExplicitTop = 165
end end
object Label4: TLabel [3] object Label4: TLabel [3]
Left = 268 Left = 36
Top = 163 Top = 183
Width = 51 Width = 51
Height = 15 Height = 15
Anchors = [] Anchors = []
@ -83,19 +86,21 @@ inherited FormPais: TFormPais
TabOrder = 4 TabOrder = 4
end end
object edCod: TEdit object edCod: TEdit
Left = 110 Left = 103
Top = 71 Top = 61
Width = 75 Width = 75
Height = 23 Height = 23
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 = 325 Left = 103
Top = 160 Top = 180
Width = 75 Width = 75
Height = 23 Height = 23
Anchors = [] Anchors = []
@ -104,28 +109,32 @@ inherited FormPais: TFormPais
end end
object edNacionalidade: TEdit object edNacionalidade: TEdit
Tag = 2 Tag = 2
Left = 110 Left = 101
Top = 162 Top = 141
Width = 150 Width = 150
Height = 23 Height = 23
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 = 110 Left = 101
Top = 114 Top = 99
Width = 150 Width = 150
Height = 23 Height = 23
Anchors = [] Anchors = []
TabOrder = 3 TabOrder = 3
OnKeyPress = onKeyPress OnKeyPress = onKeyPress
ExplicitLeft = 110
ExplicitTop = 114
end end
end end
end end
inherited StatusBar1: TStatusBar inherited StatusBar1: TStatusBar
Top = 295 Top = 283
Width = 602 Width = 602
Panels = < Panels = <
item item

BIN
Win32/Debug/Project1.exe
View File

Binary file not shown.

BIN
Win32/Debug/UnitFormCidade.dcu
View File

Binary file not shown.

BIN
Win32/Debug/UnitFormEstado.dcu
View File

Binary file not shown.

BIN
Win32/Debug/UnitFormGrid.dcu
View File

Binary file not shown.

BIN
Win32/Debug/UnitFormPadrao.dcu
View File

Binary file not shown.

BIN
Win32/Debug/UnitFormPais.dcu
View File

Binary file not shown.