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>
</Platform>
</DeployFile>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
@ -516,27 +531,12 @@
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
</DeployClass>
<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: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: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.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: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>
@ -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/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/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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="UnitFormSplash.pas"/>

12
Project1.stat
View File

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

21
UnitFormCidade.dfm
View File

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

11
UnitFormCidade.pas
View File

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

38
UnitFormPadrao.dfm
View File

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