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 limpaCampos function calls

Browse Source
This commit is contained in:
rickarof 2018-08-21 09:42:11 -03:00
parent 2894073048
commit 0a00fe9007
9 changed files with 73 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
Project1.dproj
View File

@ -157,12 +157,27 @@
<Overwrite>true</Overwrite> <Overwrite>true</Overwrite>
</Platform> </Platform>
</DeployFile> </DeployFile>
<DeployClass Name="ProjectiOSDeviceResourceRules"> <DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<Platform Name="iOSDevice64"> <Platform Name="iOSDevice64">
<Operation>1</Operation> <Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform> </Platform>
<Platform Name="iOSDevice32"> <Platform Name="iOSDevice32">
<Operation>1</Operation> <Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform> </Platform>
</DeployClass> </DeployClass>
<DeployClass Name="ProjectOSXResource"> <DeployClass Name="ProjectOSXResource">
@ -516,27 +531,12 @@
<Operation>1</Operation> <Operation>1</Operation>
</Platform> </Platform>
</DeployClass> </DeployClass>
<DeployClass Name="DependencyModule"> <DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<Platform Name="iOSDevice64"> <Platform Name="iOSDevice64">
<Operation>1</Operation> <Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform> </Platform>
<Platform Name="iOSDevice32"> <Platform Name="iOSDevice32">
<Operation>1</Operation> <Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform> </Platform>
</DeployClass> </DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/> <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>

3
Project1.dproj.local
View File

@ -15,8 +15,8 @@
<Transaction>2018/08/02 11:51:22.000.511,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormCidade.pas</Transaction> <Transaction>2018/08/02 11:51:22.000.511,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormCidade.pas</Transaction>
<Transaction>2018/08/02 11:54:03.000.448,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction> <Transaction>2018/08/02 11:54:03.000.448,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
<Transaction>2018/08/03 07:57:41.000.908,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction> <Transaction>2018/08/03 07:57:41.000.908,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
<Transaction>2018/08/03 07:59:28.000.101,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormEstado.pas</Transaction>
<Transaction>2018/08/03 07:59:28.000.101,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormEstado.dfm</Transaction> <Transaction>2018/08/03 07:59:28.000.101,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormEstado.dfm</Transaction>
<Transaction>2018/08/03 07:59:28.000.101,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormEstado.pas</Transaction>
<Transaction>2018/08/03 09:19:04.000.339,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction> <Transaction>2018/08/03 09:19:04.000.339,=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
<Transaction>2018/08/03 09:22:08.000.430,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPais.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction> <Transaction>2018/08/03 09:22:08.000.430,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPais.pas=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.pas</Transaction>
<Transaction>2018/08/03 09:22:08.000.430,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPais.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm</Transaction> <Transaction>2018/08/03 09:22:08.000.430,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\UnitFormPais.dfm=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Unit1.dfm</Transaction>
@ -38,6 +38,7 @@
<Transaction>2018/08/15 15:04:40.000.526,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction> <Transaction>2018/08/15 15:04:40.000.526,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
<Transaction>2018/08/16 11:06:43.000.602,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction> <Transaction>2018/08/16 11:06:43.000.602,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
<Transaction>2018/08/17 12:26:51.000.000,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction> <Transaction>2018/08/17 12:26:51.000.000,C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj=C:\Users\programacaounico38\Documents\Embarcadero\Studio\Projects\Ex_CRUD\Project1.dproj</Transaction>
<Transaction>2018/08/21 09:38:54.903,C:\Users\programacaounico38\Documents\Projects\crud_delphi\Project1.dproj=C:\Users\programacaounico38\Documents\Projects\crud_delphi\Project1.dproj</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="UnitFormSplash.pas"/> <File Path="UnitFormSplash.pas"/>

12
Project1.stat
View File

@ -1,10 +1,10 @@
[Stats] [Stats]
EditorSecs=55178 EditorSecs=55299
DesignerSecs=6472 DesignerSecs=6553
InspectorSecs=2098 InspectorSecs=2305
CompileSecs=327581 CompileSecs=338405
OtherSecs=2039 OtherSecs=1803
StartTime=03/08/2018 07:57:26 StartTime=03/08/2018 07:57:26
RealKeys=0 RealKeys=0
EffectiveKeys=0 EffectiveKeys=0
DebugSecs=23926 DebugSecs=24770

21
UnitFormCidade.dfm
View File

@ -18,7 +18,6 @@ inherited FormCidade: TFormCidade
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
@ -37,14 +36,12 @@ inherited FormCidade: TFormCidade
inherited Panel1: TPanel inherited Panel1: TPanel
Height = 264 Height = 264
ExplicitHeight = 264 ExplicitHeight = 264
inherited cbLimparCampos: TCheckBox
TabOrder = 1
end
inherited Panel2: TPanel inherited Panel2: TPanel
Left = 99
Top = 6 Top = 6
TabOrder = 0 ExplicitLeft = 99
ExplicitLeft = 98 ExplicitTop = 6
object Label1: TLabel object Label1: TLabel [0]
Left = 52 Left = 52
Top = 66 Top = 66
Width = 42 Width = 42
@ -52,7 +49,7 @@ inherited FormCidade: TFormCidade
Anchors = [] Anchors = []
Caption = 'C'#243'digo:' Caption = 'C'#243'digo:'
end end
object Label2: TLabel object Label2: TLabel [1]
Left = 54 Left = 54
Top = 111 Top = 111
Width = 40 Width = 40
@ -60,7 +57,7 @@ inherited FormCidade: TFormCidade
Anchors = [] Anchors = []
Caption = 'Cidade:' Caption = 'Cidade:'
end end
object Label3: TLabel object Label3: TLabel [2]
Left = 69 Left = 69
Top = 161 Top = 161
Width = 25 Width = 25
@ -68,7 +65,7 @@ inherited FormCidade: TFormCidade
Anchors = [] Anchors = []
Caption = 'Pa'#237's:' Caption = 'Pa'#237's:'
end end
object Label4: TLabel object Label4: TLabel [3]
Left = 277 Left = 277
Top = 161 Top = 161
Width = 19 Width = 19
@ -76,6 +73,10 @@ inherited FormCidade: TFormCidade
Anchors = [] Anchors = []
Caption = 'UF:' Caption = 'UF:'
end end
inherited cbLimparCampos: TCheckBox
TabOrder = 4
OnClick = cbLimparCamposClick
end
object edCidade: TEdit object edCidade: TEdit
Tag = 1 Tag = 1
Left = 109 Left = 109

11
UnitFormCidade.pas
View File

@ -370,6 +370,8 @@ begin
begin begin
wAux := 1; wAux := 1;
wLista.Update(I, Cidade); wLista.Update(I, Cidade);
if wClear then
limpaCampos();
break; break;
end end
else else
@ -377,10 +379,17 @@ begin
end; end;
end; end;
if wAux =0 then if wAux =0 then
wLista.Inserir(Cidade, TCidade) begin
wLista.Inserir(Cidade, TCidade);
if wClear then
limpaCampos();
end;
end end
else else
wLista.Inserir(Cidade, TCidade); wLista.Inserir(Cidade, TCidade);
if wClear then
limpaCampos();
end; end;
end; end;

38
UnitFormPadrao.dfm
View File

@ -22,71 +22,87 @@ object FormPadrao: TFormPadrao
Top = 0 Top = 0
Width = 598 Width = 598
Height = 29 Height = 29
ButtonHeight = 20
Caption = 'ToolBar1' Caption = 'ToolBar1'
TabOrder = 0 TabOrder = 0
object btAnterior: TButton object btAnterior: TButton
Left = 0 Left = 0
Top = 0 Top = 0
Width = 75 Width = 75
Height = 22 Height = 20
Caption = '<' Caption = '<'
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 0 TabOrder = 0
end end
object btProximo: TButton object btProximo: TButton
Left = 75 Left = 75
Top = 0 Top = 0
Width = 75 Width = 75
Height = 22 Height = 20
Caption = '>' Caption = '>'
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 1 TabOrder = 1
end end
object btBuscar: TButton object btBuscar: TButton
Left = 150 Left = 150
Top = 0 Top = 0
Width = 75 Width = 75
Height = 22 Height = 20
Caption = 'Buscar' Caption = 'Buscar'
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 2 TabOrder = 2
end end
object btInserir: TButton object btInserir: TButton
Left = 225 Left = 225
Top = 0 Top = 0
Width = 75 Width = 75
Height = 22 Height = 20
Caption = 'Inserir' Caption = 'Inserir'
Default = True DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 3 TabOrder = 3
end end
object btExcluir: TButton object btExcluir: TButton
Left = 300 Left = 300
Top = 0 Top = 0
Width = 75 Width = 75
Height = 22 Height = 20
Caption = 'Excluir' Caption = 'Excluir'
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 4 TabOrder = 4
end end
object btImportar: TButton object btImportar: TButton
Left = 375 Left = 375
Top = 0 Top = 0
Width = 75 Width = 75
Height = 22 Height = 20
Caption = 'Importar' Caption = 'Importar'
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 5 TabOrder = 5
end end
object btExportar: TButton object btExportar: TButton
Left = 450 Left = 450
Top = 0 Top = 0
Width = 75 Width = 75
Height = 22 Height = 20
Caption = 'Exportar' Caption = 'Exportar'
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 6 TabOrder = 6
end end
object btContar: TButton object btContar: TButton
Left = 525 Left = 525
Top = 0 Top = 0
Width = 75 Width = 75
Height = 22 Height = 20
Caption = 'Contar' Caption = 'Contar'
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 7 TabOrder = 7
end end
end end
@ -101,8 +117,8 @@ object FormPadrao: TFormPadrao
598 598
284) 284)
object Panel2: TPanel object Panel2: TPanel
Left = 98 Left = 354
Top = 16 Top = 296
Width = 400 Width = 400
Height = 250 Height = 250
Anchors = [] Anchors = []

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/UnitFormPadrao.dcu
View File

Binary file not shown.