Envio do programa para pesquisa padrao feito em delphi

passando parametros entre formulários

ExePesquisa.dpr

@@ -0,0 +1,20 @@
+program ExePesquisa;
+
+uses
+  Vcl.Forms,
+  uprincipal in 'uprincipal.pas' {frmPrincipal},
+  upesquisa in 'upesquisa.pas' {frmPesquisa},
+  Vcl.Themes,
+  Vcl.Styles;
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  TStyleManager.TrySetStyle('Windows10 SlateGray');
+  Application.Title := 'Pesquisa Padrao - Parametro entre formulários';
+  Application.CreateForm(TfrmPrincipal, frmPrincipal);
+  Application.CreateForm(TfrmPesquisa, frmPesquisa);
+  Application.Run;
+end.

ExePesquisa.dproj.local

@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<Transactions>
+    <Transaction>2020/02/15 11:54:19.000.751,=C:\Users\dc\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
+    <Transaction>2020/02/15 13:25:34.000.387,=C:\Users\dc\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
+    <Transaction>2020/02/25 10:30:19.000.500,=C:\Users\dc\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
+    <Transaction>2020/02/25 10:31:23.000.266,C:\Users\dc\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Projetos\ExemploPesquisa\uprincipal.dfm</Transaction>
+    <Transaction>2020/02/25 10:31:23.000.266,C:\Users\dc\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Projetos\ExemploPesquisa\uprincipal.pas</Transaction>
+    <Transaction>2020/02/25 10:31:30.000.406,C:\Users\dc\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Projetos\ExemploPesquisa\ExePesquisa.dproj</Transaction>
+    <Transaction>2020/02/25 10:33:25.000.094,=C:\Projetos\ExemploPesquisa\Unit1.pas</Transaction>
+    <Transaction>2020/02/25 10:33:34.000.547,C:\Projetos\ExemploPesquisa\Unit1.pas=C:\Projetos\ExemploPesquisa\upesquisa.pas</Transaction>
+    <Transaction>2020/02/25 10:33:34.000.547,C:\Projetos\ExemploPesquisa\Unit1.dfm=C:\Projetos\ExemploPesquisa\upesquisa.dfm</Transaction>
+  </Transactions>
+</BorlandProject>

ExePesquisa.stat

@@ -0,0 +1,10 @@
+[Stats]
+EditorSecs=21
+DesignerSecs=76
+InspectorSecs=68
+CompileSecs=5221
+OtherSecs=61
+StartTime=22/03/2020 16:48:43
+RealKeys=0
+EffectiveKeys=0
+DebugSecs=1

__history/ExePesquisa.dpr.~1~

@@ -0,0 +1,14 @@
+program ExePesquisa;
+
+uses
+  Vcl.Forms,
+  uprincipal in 'uprincipal.pas' {frmPrincipal};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TfrmPrincipal, frmPrincipal);
+  Application.Run;
+end.

__history/ExePesquisa.dpr.~2~

@@ -0,0 +1,16 @@
+program ExePesquisa;
+
+uses
+  Vcl.Forms,
+  uprincipal in 'uprincipal.pas' {frmPrincipal},
+  upesquisa in 'upesquisa.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TfrmPrincipal, frmPrincipal);
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.

__history/ExePesquisa.dpr.~3~

@@ -0,0 +1,16 @@
+program ExePesquisa;
+
+uses
+  Vcl.Forms,
+  uprincipal in 'uprincipal.pas' {frmPrincipal},
+  upesquisa in 'upesquisa.pas' {frmPesquisa};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TfrmPrincipal, frmPrincipal);
+  Application.CreateForm(TfrmPesquisa, frmPesquisa);
+  Application.Run;
+end.

__history/ExePesquisa.dpr.~4~

@@ -0,0 +1,20 @@
+program ExePesquisa;
+
+uses
+  Vcl.Forms,
+  uprincipal in 'uprincipal.pas' {frmPrincipal},
+  upesquisa in 'upesquisa.pas' {frmPesquisa},
+  Vcl.Themes,
+  Vcl.Styles;
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  TStyleManager.TrySetStyle('Windows10 Dark');
+  Application.Title := 'Pesquisa Padrao - Parametro entre formul�rios';
+  Application.CreateForm(TfrmPrincipal, frmPrincipal);
+  Application.CreateForm(TfrmPesquisa, frmPesquisa);
+  Application.Run;
+end.

__history/upesquisa.dfm.~1~

@@ -0,0 +1,16 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  Caption = 'Form1'
+  ClientHeight = 330
+  ClientWidth = 715
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+end

__history/upesquisa.dfm.~2~

@@ -0,0 +1,90 @@
+object frmPesquisa: TfrmPesquisa
+  Left = 0
+  Top = 0
+  Caption = 'Pesquisa'
+  ClientHeight = 330
+  ClientWidth = 715
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 152
+    Width = 715
+    Height = 178
+    Align = alBottom
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+  end
+  object cbCAMPOS: TComboBox
+    Left = 8
+    Top = 120
+    Width = 145
+    Height = 21
+    TabOrder = 1
+    Text = 'cbCAMPOS'
+  end
+  object cbFiltro: TComboBox
+    Left = 168
+    Top = 120
+    Width = 113
+    Height = 21
+    ItemIndex = 0
+    TabOrder = 2
+    Text = 'parte'
+    Items.Strings = (
+      'parte'
+      'inicio'
+      'igual')
+  end
+  object edtBusca: TEdit
+    Left = 288
+    Top = 120
+    Width = 225
+    Height = 21
+    TabOrder = 3
+  end
+  object btnPesquisa: TButton
+    Left = 519
+    Top = 118
+    Width = 75
+    Height = 25
+    Caption = 'Pesquisa'
+    TabOrder = 4
+  end
+  object Conexao: TFDConnection
+    Params.Strings = (
+      'Database=aula_mysql'
+      'User_Name=root'
+      'Password=Info@3004'
+      'DriverID=MySQL')
+    LoginPrompt = False
+    Left = 40
+    Top = 24
+  end
+  object drvMysql: TFDPhysMySQLDriverLink
+    VendorLib = 'C:\Program Files (x86)\MySQL\MySQL Server 5.7\lib\libmysql.dll'
+    Left = 40
+    Top = 72
+  end
+  object qrSQL: TFDQuery
+    Connection = Conexao
+    Left = 104
+    Top = 24
+  end
+  object dsSQL: TDataSource
+    DataSet = qrSQL
+    Left = 168
+    Top = 24
+  end
+end

__history/upesquisa.dfm.~3~

@@ -0,0 +1,91 @@
+object frmPesquisa: TfrmPesquisa
+  Left = 0
+  Top = 0
+  Caption = 'Pesquisa'
+  ClientHeight = 330
+  ClientWidth = 715
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object DBGrid1: TDBGrid
+    Left = 0
+    Top = 152
+    Width = 715
+    Height = 178
+    Align = alBottom
+    DataSource = dsSQL
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'Tahoma'
+    TitleFont.Style = []
+  end
+  object cbCAMPOS: TComboBox
+    Left = 8
+    Top = 120
+    Width = 145
+    Height = 21
+    TabOrder = 1
+    Text = 'cbCAMPOS'
+  end
+  object cbFiltro: TComboBox
+    Left = 168
+    Top = 120
+    Width = 113
+    Height = 21
+    ItemIndex = 0
+    TabOrder = 2
+    Text = 'parte'
+    Items.Strings = (
+      'parte'
+      'inicio'
+      'igual')
+  end
+  object edtBusca: TEdit
+    Left = 288
+    Top = 120
+    Width = 225
+    Height = 21
+    TabOrder = 3
+  end
+  object btnPesquisa: TButton
+    Left = 519
+    Top = 118
+    Width = 75
+    Height = 25
+    Caption = 'Pesquisa'
+    TabOrder = 4
+  end
+  object Conexao: TFDConnection
+    Params.Strings = (
+      'Database=aula_mysql'
+      'User_Name=root'
+      'Password=Info@3004'
+      'DriverID=MySQL')
+    LoginPrompt = False
+    Left = 40
+    Top = 24
+  end
+  object drvMysql: TFDPhysMySQLDriverLink
+    VendorLib = 'C:\Program Files (x86)\MySQL\MySQL Server 5.7\lib\libmysql.dll'
+    Left = 40
+    Top = 72
+  end
+  object qrSQL: TFDQuery
+    Connection = Conexao
+    Left = 104
+    Top = 24
+  end
+  object dsSQL: TDataSource
+    DataSet = qrSQL
+    Left = 168
+    Top = 24
+  end
+end