interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons;

type
TMeuDBNavigator = class(TDBNavigator);

Tform10LocaisDeRefeicao = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
DBEdit11: TDBEdit;
Label14: TLabel;
DBEdit12: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
Label15: TLabel;
DBImage1: TDBImage;
Label16: TLabel;
DBMemo1: TDBMemo;
Label17: TLabel;
DBEdit13: TDBEdit;
editLocaisRef: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form10LocaisDeRefeicao: Tform10LocaisDeRefeicao;

implementation

uses frmDMLocaisDeRefeicao, rptLocaisDeRefeicao1, frmPrincipal;

{$R *.dfm}

procedure Tform10LocaisDeRefeicao.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform10LocaisDeRefeicao.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;
for x:= 0 to DMLocaisDeRefeicao.ComponentCount-1 do
begin
Temp := DMLocaisDeRefeicao.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;

PageControl1.ActivePage := TabSheet1;

// abre tabelas do banco de dados
DMLocaisDeRefeicao.ADOQryVisita.active := True;
DMLocaisDeRefeicao.tblFiscal.active := True;
DMLocaisDeRefeicao.tblEmpresa.active := True;
DMLocaisDeRefeicao.tblLocaisDeRefeicao.active := True;
end;

procedure Tform10LocaisDeRefeicao.PageControl1Change(Sender: TObject);
begin
// PageControl1.ActivePage := TabSheet1;
end;

procedure Tform10LocaisDeRefeicao.SpeedButton4Click(Sender: TObject);
begin
try
DMLocaisDeRefeicao.tblLocaisDeRefeicao.active := False;
DMLocaisDeRefeicao.tblLocaisDeRefeicao.active := True;
except
MessageDlg(‘Erro ao carregar tblLocaisDeRefeicao’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform10LocaisDeRefeicao.SpeedButton27Click(Sender: TObject);
begin
try
try
rptLocaisDeRefeicao01 := TrptLocaisDeRefeicao01.Create(application);
rptLocaisDeRefeicao01.ComponenteRelatorio.preview;
finally
rptLocaisDeRefeicao01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptLocaisDeRefeicao01!’, mtwarning, [mbOk], 0);
end;
{
try
rptLocaisDeRefeicao01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptLocaisDeRefeicao01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform10LocaisDeRefeicao.SpeedButton26Click(Sender: TObject);
begin
try
DMLocaisDeRefeicao.tblLocaisDeRefeicao.Locate(‘Codigo’,editLocaisRef.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform10LocaisDeRefeicao.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMLocaisDeRefeicao.ADOQryVisita.Close;
DMLocaisDeRefeicao.ADOQryVisita.SQL.clear;
DMLocaisDeRefeicao.ADOQryVisita.SQL.add(strsql);
DMLocaisDeRefeicao.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform10LocaisDeRefeicao.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// abre tabelas do banco de dados
DMLocaisDeRefeicao.ADOQryVisita.active := False;
DMLocaisDeRefeicao.tblFiscal.active := False;
DMLocaisDeRefeicao.tblEmpresa.active := False;
DMLocaisDeRefeicao.tblLocaisDeRefeicao.active := False;
}

end;

end.
unit frm11EquipAutoAtend;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons, jpeg;

type
TMeuDBNavigator = class(TDBNavigator);

Tform11EquipAutoAtend = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
PageControl2: TPageControl;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
Image1: TImage;
Label10: TLabel;
editEquipAuto1: TDBEdit;
Label11: TLabel;
editEquipAuto2: TDBEdit;
Label14: TLabel;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
DBEdit11: TDBEdit;
Label15: TLabel;
DBEdit12: TDBEdit;
Label16: TLabel;
DBEdit13: TDBEdit;
Label17: TLabel;
DBEdit14: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
Label18: TLabel;
Label19: TLabel;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup7: TDBRadioGroup;
DBRadioGroup8: TDBRadioGroup;
DBRadioGroup9: TDBRadioGroup;
DBRadioGroup10: TDBRadioGroup;
DBRadioGroup11: TDBRadioGroup;
Label20: TLabel;
DBMemo1: TDBMemo;
Label21: TLabel;
DBImage1: TDBImage;
Label22: TLabel;
DBEdit15: TDBEdit;
editEquipAutoAtend: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure editEquipAuto1Exit(Sender: TObject);
procedure editEquipAuto2Exit(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form11EquipAutoAtend: Tform11EquipAutoAtend;

implementation

uses frmDMEquipAutoAtend, rptEquipAutoAtendimento1, frmPrincipal;

{$R *.dfm}

procedure Tform11EquipAutoAtend.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform11EquipAutoAtend.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;
for x:= 0 to DMEquipamentoAutoAtend.ComponentCount-1 do
begin
Temp := DMEquipamentoAutoAtend.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;

PageControl1.ActivePage := TabSheet1;

// abre tabelas do banco
DMEquipamentoAutoAtend.ADOQryVisita.active := True;
DMEquipamentoAutoAtend.tblFiscal.active := True;
DMEquipamentoAutoAtend.tblEmpresa.active := True;
DMEquipamentoAutoAtend.tblEquipAutoAtend.active := True;
end;

procedure Tform11EquipAutoAtend.PageControl1Change(Sender: TObject);
begin
PageControl2.ActivePage := TabSheet2;
end;

procedure Tform11EquipAutoAtend.SpeedButton4Click(Sender: TObject);
begin
try
DMEquipamentoAutoAtend.tblEquipAutoAtend.active := False;
DMEquipamentoAutoAtend.tblEquipAutoAtend.active := True;
except
MessageDlg(‘Erro ao carregar tblEquipAutoAtend’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform11EquipAutoAtend.SpeedButton27Click(Sender: TObject);
begin
try
try
rptEquipAutoAtendimento01 := TrptEquipAutoAtendimento01.Create(application);
rptEquipAutoAtendimento01.ComponenteRelatorio.preview;
finally
rptEquipAutoAtendimento01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptEquipAutoAtendimento01!’, mtwarning, [mbOk], 0);
end;
{
try
rptEquipAutoAtendimento01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptEquipAutoAtendimento01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform11EquipAutoAtend.editEquipAuto1Exit(Sender: TObject);
begin
Try
if editEquipAuto1.Field.Text = ’73′ then
MessageDlg(‘A distancia digitada é maior que 150cm, deve ter um MINIMO de 73cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia MINIMA deve ser de 73cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform11EquipAutoAtend.editEquipAuto2Exit(Sender: TObject);
begin
Try
if editEquipAuto2.Field.Text = ’30′ then
MessageDlg(‘A distancia digitada é maior que 30cm, deve ter um MINIMO de 30cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia MINIMA deve ser de 30cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform11EquipAutoAtend.SpeedButton26Click(Sender: TObject);
begin
try
DMEquipamentoAutoAtend.tblEquipAutoAtend.Locate(‘Codigo’,editEquipAutoAtend.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform11EquipAutoAtend.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMEquipamentoAutoAtend.ADOQryVisita.Close;
DMEquipamentoAutoAtend.ADOQryVisita.SQL.clear;
DMEquipamentoAutoAtend.ADOQryVisita.SQL.add(strsql);
DMEquipamentoAutoAtend.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform11EquipAutoAtend.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// abre tabelas do banco
DMEquipamentoAutoAtend.ADOQryVisita.active := False;
DMEquipamentoAutoAtend.tblFiscal.active := False;
DMEquipamentoAutoAtend.tblEmpresa.active := False;
DMEquipamentoAutoAtend.tblEquipAutoAtend.active := False;
}
end;

end.
unit frm12LocaisDeExposicao;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons;

type
TMeuDBNavigator = class(TDBNavigator);

Tform12LocaisDeExposicao = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
Label13: TLabel;
DBImage1: TDBImage;
Label14: TLabel;
DBMemo1: TDBMemo;
Label15: TLabel;
DBEdit11: TDBEdit;
editLocalExp: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form12LocaisDeExposicao: Tform12LocaisDeExposicao;

implementation

uses frmDMLocaisDeExposicao, rptLocaisDeExposicao1, frmPrincipal;

{$R *.dfm}

procedure Tform12LocaisDeExposicao.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform12LocaisDeExposicao.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;
for x:= 0 to DMLocaisDeExposicao.ComponentCount-1 do
begin
Temp := DMLocaisDeExposicao.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;

PageControl1.ActivePage := TabSheet1;

// abre tabelas do banco de dados
DMLocaisDeExposicao.ADOQryVisita.active := True;
DMLocaisDeExposicao.tblFiscal.active := True;
DMLocaisDeExposicao.tblEmpresa.active := True;
DMLocaisDeExposicao.tblLocaisDeExposicao.active := True;
end;

procedure Tform12LocaisDeExposicao.SpeedButton4Click(Sender: TObject);
begin
try
DMLocaisDeExposicao.tblLocaisDeExposicao.active := False;
DMLocaisDeExposicao.tblLocaisDeExposicao.active := True;
except
MessageDlg(‘Erro ao carregar tblLocaisDeExposicao’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform12LocaisDeExposicao.SpeedButton27Click(Sender: TObject);
begin
try
try
rptLocaisDeExposicao01 := TrptLocaisDeExposicao01.Create(application);
rptLocaisDeExposicao01.ComponenteRelatorio.preview;
finally
rptLocaisDeExposicao01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptLocaisDeExposicao01!’, mtwarning, [mbOk], 0);
end;
{
try
rptLocaisDeExposicao01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptLocaisDeExposicao01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform12LocaisDeExposicao.SpeedButton26Click(Sender: TObject);
begin
try
DMLocaisDeExposicao.tblLocaisDeExposicao.Locate(‘Codigo’,editLocalExp.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform12LocaisDeExposicao.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMLocaisDeExposicao.ADOQryVisita.Close;
DMLocaisDeExposicao.ADOQryVisita.SQL.clear;
DMLocaisDeExposicao.ADOQryVisita.SQL.add(strsql);
DMLocaisDeExposicao.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform12LocaisDeExposicao.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// abre tabelas do banco de dados
DMLocaisDeExposicao.ADOQryVisita.active := False;
DMLocaisDeExposicao.tblFiscal.active := False;
DMLocaisDeExposicao.tblEmpresa.active := False;
DMLocaisDeExposicao.tblLocaisDeExposicao.active := False;
}

end;

end.
unit frm13LocaisDeEsporte;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons, jpeg;

type
TMeuDBNavigator = class(TDBNavigator);

Tform13LocaisDeEsporte = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
TabSheet31: TTabSheet;
Panel16: TPanel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
DBNavigator3: TDBNavigator;
TabSheet32: TTabSheet;
Panel5: TPanel;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
DBNavigator4: TDBNavigator;
TabSheet33: TTabSheet;
Panel6: TPanel;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
DBNavigator5: TDBNavigator;
TabSheet35: TTabSheet;
Panel10: TPanel;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
DBNavigator6: TDBNavigator;
TabSheet36: TTabSheet;
Panel11: TPanel;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
DBNavigator7: TDBNavigator;
TabSheet37: TTabSheet;
Panel12: TPanel;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
DBNavigator8: TDBNavigator;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup23: TDBRadioGroup;
Label13: TLabel;
DBImage1: TDBImage;
Label14: TLabel;
DBMemo1: TDBMemo;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup8: TDBRadioGroup;
DBRadioGroup9: TDBRadioGroup;
DBRadioGroup10: TDBRadioGroup;
Label15: TLabel;
DBEdit11: TDBEdit;
Label16: TLabel;
DBEdit12: TDBEdit;
Label17: TLabel;
DBEdit13: TDBEdit;
DBRadioGroup7: TDBRadioGroup;
DBRadioGroup11: TDBRadioGroup;
DBRadioGroup12: TDBRadioGroup;
Label18: TLabel;
DBImage2: TDBImage;
Label19: TLabel;
DBMemo2: TDBMemo;
Label20: TLabel;
DBEdit14: TDBEdit;
Label21: TLabel;
DBEdit15: TDBEdit;
Label22: TLabel;
DBEdit16: TDBEdit;
DBRadioGroup13: TDBRadioGroup;
DBRadioGroup14: TDBRadioGroup;
Label23: TLabel;
DBImage3: TDBImage;
Label24: TLabel;
DBMemo3: TDBMemo;
Label25: TLabel;
DBEdit17: TDBEdit;
Label26: TLabel;
DBEdit18: TDBEdit;
Label27: TLabel;
DBEdit19: TDBEdit;
DBRadioGroup15: TDBRadioGroup;
DBRadioGroup16: TDBRadioGroup;
DBRadioGroup17: TDBRadioGroup;
Label28: TLabel;
DBImage4: TDBImage;
Label29: TLabel;
DBMemo4: TDBMemo;
Label30: TLabel;
DBEdit20: TDBEdit;
Label31: TLabel;
DBEdit21: TDBEdit;
Label32: TLabel;
DBEdit22: TDBEdit;
DBRadioGroup18: TDBRadioGroup;
DBRadioGroup19: TDBRadioGroup;
Label33: TLabel;
DBEdit23: TDBEdit;
Label34: TLabel;
editPiscina1: TDBEdit;
Label35: TLabel;
editPiscina2: TDBEdit;
Label36: TLabel;
editPiscina3: TDBEdit;
Label37: TLabel;
editPiscina4: TDBEdit;
Label38: TLabel;
editPiscina5: TDBEdit;
Image1: TImage;
Label39: TLabel;
DBImage5: TDBImage;
Label40: TLabel;
DBMemo5: TDBMemo;
Label41: TLabel;
DBEdit29: TDBEdit;
Label42: TLabel;
DBEdit30: TDBEdit;
Label43: TLabel;
DBEdit31: TDBEdit;
DBRadioGroup20: TDBRadioGroup;
Label44: TLabel;
DBEdit32: TDBEdit;
Label45: TLabel;
editRampaSubmersa1: TDBEdit;
Label46: TLabel;
editRampaSubmersa2: TDBEdit;
Label47: TLabel;
editRampaSubmersa3: TDBEdit;
Label48: TLabel;
editRampaSubmersa4: TDBEdit;
Label49: TLabel;
editRampaSubmersa5: TDBEdit;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
DBImage6: TDBImage;
Label56: TLabel;
DBMemo6: TDBMemo;
Image2: TImage;
Label72: TLabel;
Label57: TLabel;
Image3: TImage;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
Label62: TLabel;
Label63: TLabel;
DBEdit38: TDBEdit;
Label64: TLabel;
DBEdit39: TDBEdit;
Label65: TLabel;
DBEdit40: TDBEdit;
DBRadioGroup21: TDBRadioGroup;
Label66: TLabel;
DBEdit41: TDBEdit;
Label67: TLabel;
editBancoPiscina1: TDBEdit;
Label68: TLabel;
editBancoPiscina2: TDBEdit;
Label69: TLabel;
editBancoPiscina3: TDBEdit;
Label70: TLabel;
DBImage7: TDBImage;
Label71: TLabel;
Label73: TLabel;
DBMemo7: TDBMemo;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
DBEdit45: TDBEdit;
editLocalEsporteLazer: TEdit;
SpeedButton26: TSpeedButton;
editArquibancada: TEdit;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
editParque: TEdit;
SpeedButton19: TSpeedButton;
editPiscina: TEdit;
SpeedButton20: TSpeedButton;
editEscadaPiscina: TEdit;
SpeedButton21: TSpeedButton;
editRampaPiscina: TEdit;
SpeedButton22: TSpeedButton;
editBancoPiscina: TEdit;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton18Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure editPiscina1Exit(Sender: TObject);
procedure editPiscina2Exit(Sender: TObject);
procedure editPiscina3Exit(Sender: TObject);
procedure editPiscina4Exit(Sender: TObject);
procedure editPiscina5Exit(Sender: TObject);
procedure editRampaSubmersa1Exit(Sender: TObject);
procedure editRampaSubmersa2Exit(Sender: TObject);
procedure editRampaSubmersa3Exit(Sender: TObject);
procedure editRampaSubmersa4Exit(Sender: TObject);
procedure editRampaSubmersa5Exit(Sender: TObject);
procedure editBancoPiscina1Exit(Sender: TObject);
procedure editBancoPiscina2Exit(Sender: TObject);
procedure editBancoPiscina3Exit(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton19Click(Sender: TObject);
procedure SpeedButton20Click(Sender: TObject);
procedure SpeedButton21Click(Sender: TObject);
procedure SpeedButton22Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure PageControl3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form13LocaisDeEsporte: Tform13LocaisDeEsporte;

implementation

uses frmDMEsporteLazerTurismo, rptLocaisDeEsporteLazerTur1,
rptArquibancada1, rptParquePraca1, rptPiscina1, rptEscadaPiscina1,
rptRampaSubmersa1, rptBancoPiscina1, frmPrincipal;

{$R *.dfm}

procedure Tform13LocaisDeEsporte.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform13LocaisDeEsporte.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator3).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator4).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator5).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator6).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator7).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator8).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;

end;
for x:= 0 to DMEsporteLazerTurismo.ComponentCount-1 do
begin
Temp := DMEsporteLazerTurismo.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;
PageControl1.ActivePage := TabSheet1;

// abre o banco de dadso
DMEsporteLazerTurismo.ADOQryVisita.active := True;
DMEsporteLazerTurismo.tblFiscal.active := True;
DMEsporteLazerTurismo.tblEmpresa.active := True;
DMEsporteLazerTurismo.tblLocaisDeEsporteLazerTurismo.active := True;
DMEsporteLazerTurismo.tblBancoPiscina.active := True;
DMEsporteLazerTurismo.tblArquibancada.active := True;
DMEsporteLazerTurismo.tblParquePraca.active := True;
DMEsporteLazerTurismo.tblPiscina.active := True;
DMEsporteLazerTurismo.tblEscadaPiscina.active := True;
DMEsporteLazerTurismo.tblRampaSubmersa.active := True;
end;

procedure Tform13LocaisDeEsporte.PageControl1Change(Sender: TObject);
begin
PageControl3.ActivePage := TabSheet30;
end;

procedure Tform13LocaisDeEsporte.SpeedButton4Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblLocaisDeEsporteLazerTurismo.active := False;
DMEsporteLazerTurismo.tblLocaisDeEsporteLazerTurismo.active := True;
except
MessageDlg(‘Erro ao carregar tblLocaisDeEsporteLazerTurismo’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton6Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblArquibancada.active := False;
DMEsporteLazerTurismo.tblArquibancada.active := True;
except
MessageDlg(‘Erro ao carregar tblArquibancada’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton8Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblParquePraca.active := False;
DMEsporteLazerTurismo.tblParquePraca.active := True;
except
MessageDlg(‘Erro ao carregar tblParquePraca’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton10Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblPiscina.active := False;
DMEsporteLazerTurismo.tblPiscina.active := True;
except
MessageDlg(‘Erro ao carregar tblPiscina’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton14Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblEscadaPiscina.active := False;
DMEsporteLazerTurismo.tblEscadaPiscina.active := True;
except
MessageDlg(‘Erro ao carregar tblEscadaPiscina’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton16Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblRampaSubmersa.active := False;
DMEsporteLazerTurismo.tblRampaSubmersa.active := True;
except
MessageDlg(‘Erro ao carregar tblRampaSubmersa’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton18Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblBancoPiscina.active := False;
DMEsporteLazerTurismo.tblBancoPiscina.active := True;
except
MessageDlg(‘Erro ao carregar tblBancoPiscina’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton27Click(Sender: TObject);
begin
try
try
rptLocaisDeEsporteLazerTur01 := TrptLocaisDeEsporteLazerTur01.Create(application);
rptLocaisDeEsporteLazerTur01.ComponenteRelatorio.preview;
finally
rptLocaisDeEsporteLazerTur01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptLocaisDeEsporteLazerTur01!’, mtwarning, [mbOk], 0);
end;
{
try
rptLocaisDeEsporteLazerTur01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptLocaisDeEsporteLazerTur01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform13LocaisDeEsporte.SpeedButton5Click(Sender: TObject);
begin
try
try
rptArquibancada01 := TrptArquibancada01.Create(application);
rptArquibancada01.ComponenteRelatorio.preview;
finally
rptArquibancada01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptArquibancada01!’, mtwarning, [mbOk], 0);
end;
{
try
rptArquibancada01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptArquibancada01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform13LocaisDeEsporte.SpeedButton7Click(Sender: TObject);
begin
try
try
rptParquePraca01 := TrptParquePraca01.Create(application);
rptParquePraca01.ComponenteRelatorio.preview;
finally
rptParquePraca01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptParquePraca01!’, mtwarning, [mbOk], 0);
end;
{ try
rptParquePraca01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptParquePraca01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform13LocaisDeEsporte.SpeedButton9Click(Sender: TObject);
begin
try
try
rptPiscina01 := TrptPiscina01.Create(application);
rptPiscina01.ComponenteRelatorio.preview;
finally
rptPiscina01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptPiscina01!’, mtwarning, [mbOk], 0);
end;
{
try
rptPiscina01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptPiscina01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform13LocaisDeEsporte.SpeedButton13Click(Sender: TObject);
begin
try
try
rptEscadaPiscina01 := TrptEscadaPiscina01.Create(application);
rptEscadaPiscina01.ComponenteRelatorio.preview;
finally
rptEscadaPiscina01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptEscadaPiscina01!’, mtwarning, [mbOk], 0);
end;
{
try
rptEscadaPiscina01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptEscadaPiscina01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform13LocaisDeEsporte.SpeedButton15Click(Sender: TObject);
begin
try
try
rptRampaSubmersa01 := TrptRampaSubmersa01.Create(application);
rptRampaSubmersa01.ComponenteRelatorio.preview;
finally
rptRampaSubmersa01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptRampaSubmersa01!’, mtwarning, [mbOk], 0);
end;
{
try
rptRampaSubmersa01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptRampaSubmersa01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform13LocaisDeEsporte.SpeedButton17Click(Sender: TObject);
begin
try
try
rptBancoPiscina01 := TrptBancoPiscina01.Create(application);
rptBancoPiscina01.ComponenteRelatorio.preview;
finally
rptBancoPiscina01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptBancoPiscina01!’, mtwarning, [mbOk], 0);
end;
{
try
rptBancoPiscina01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptBancoPiscina01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform13LocaisDeEsporte.editPiscina1Exit(Sender: TObject);
begin
Try
if editPiscina1.Field.Text = ’20′ then
MessageDlg(‘A distancia digitada é maior que 20cm, deve ser de 20cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 20cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editPiscina2Exit(Sender: TObject);
begin
Try
if editPiscina2.Field.Text = ’46′ then
MessageDlg(‘A distancia digitada é maior que 46cm, deve ser de 46cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 46cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editPiscina3Exit(Sender: TObject);
begin
Try
if editPiscina3.Field.Text = ’45′ then
MessageDlg(‘A distancia digitada é maior que 45cm, deve ser de 45cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 45cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editPiscina4Exit(Sender: TObject);
begin
Try
if editPiscina4.Field.Text = ’70′ then
MessageDlg(‘A distancia digitada é maior que 70cm, deve ser de 70cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 70cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editPiscina5Exit(Sender: TObject);
begin
Try
if editPiscina5.Field.Text = ’92′ then
MessageDlg(‘A distancia digitada é maior que 92cm, deve ser de 92cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 92cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editRampaSubmersa1Exit(Sender: TObject);
begin
Try
if editRampaSubmersa1.Field.Text = ’46′ then
MessageDlg(‘A distancia digitada é maior que 46cm, deve ser de 46cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 46cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editRampaSubmersa2Exit(Sender: TObject);
begin
Try
if editRampaSubmersa2.Field.Text = ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm, deve ser de 120cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ter um MINIMO de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editRampaSubmersa3Exit(Sender: TObject);
begin
Try
if editRampaSubmersa3.Field.Text = ’45′ then
MessageDlg(‘A distancia digitada é maior que 45cm, deve ser de 45cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 45cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editRampaSubmersa4Exit(Sender: TObject);
begin
Try
if editRampaSubmersa4.Field.Text = ’70′ then
MessageDlg(‘A distancia digitada é maior que 70cm, deve ser de 70cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 70cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editRampaSubmersa5Exit(Sender: TObject);
begin
Try
if editRampaSubmersa5.Field.Text = ’92′ then
MessageDlg(‘A distancia digitada é maior que 92cm, deve ser de 92cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 92cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editBancoPiscina1Exit(Sender: TObject);
begin
Try
if editBancoPiscina1.Field.Text = ’46′ then
MessageDlg(‘A distancia digitada é maior que 46cm, deve ser de 46cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 46cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editBancoPiscina2Exit(Sender: TObject);
begin
Try
if editBancoPiscina1.Field.Text = ’45′ then
MessageDlg(‘A distancia digitada é maior que 45cm, deve ser de 45cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 45cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.editBancoPiscina3Exit(Sender: TObject);
begin
Try
if editBancoPiscina1.Field.Text = ’10′ then
MessageDlg(‘A distancia digitada é maior que 10cm, deve ser de 10cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 10cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton26Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblLocaisDeEsporteLazerTurismo.Locate(‘Codigo’,editLocalEsporteLazer.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton11Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblArquibancada.Locate(‘Codigo’,editArquibancada.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton12Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblParquePraca.Locate(‘Codigo’,editParque.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton19Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblPiscina.Locate(‘Codigo’,editPiscina.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton20Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblEscadaPiscina.Locate(‘Codigo’,editEscadaPiscina.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton21Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblRampaSubmersa.Locate(‘Codigo’,editRampaPiscina.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.SpeedButton22Click(Sender: TObject);
begin
try
DMEsporteLazerTurismo.tblBancoPiscina.Locate(‘Codigo’,editBancoPiscina.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform13LocaisDeEsporte.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMEsporteLazerTurismo.ADOQryVisita.Close;
DMEsporteLazerTurismo.ADOQryVisita.SQL.clear;
DMEsporteLazerTurismo.ADOQryVisita.SQL.add(strsql);
DMEsporteLazerTurismo.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform13LocaisDeEsporte.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{

// fecha o banco de dadso
DMEsporteLazerTurismo.ADOQryVisita.active := False;
DMEsporteLazerTurismo.tblFiscal.active := False;
DMEsporteLazerTurismo.tblEmpresa.active := False;
DMEsporteLazerTurismo.tblLocaisDeEsporteLazerTurismo.active := False;
DMEsporteLazerTurismo.tblBancoPiscina.active := False;
DMEsporteLazerTurismo.tblArquibancada.active := False;
DMEsporteLazerTurismo.tblParquePraca.active := False;
DMEsporteLazerTurismo.tblPiscina.active := False;
DMEsporteLazerTurismo.tblEscadaPiscina.active := False;
DMEsporteLazerTurismo.tblRampaSubmersa.active := False;
}

end;

procedure Tform13LocaisDeEsporte.PageControl3MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PageControl3.ActivePage.Highlighted := True;
end;

end.
unit frm14LocaisDeLeitura;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons, jpeg;

type
TMeuDBNavigator = class(TDBNavigator);

Tform14LocaisDeLeitura = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
Label13: TLabel;
editDistanciaEntreEstantes1: TDBEdit;
DBRadioGroup23: TDBRadioGroup;
Image1: TImage;
Label83: TLabel;
Label15: TLabel;
DBImage1: TDBImage;
Label14: TLabel;
DBImage2: TDBImage;
Label16: TLabel;
DBEdit12: TDBEdit;
editLocalDeLeitura: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure editDistanciaEntreEstantes1Exit(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form14LocaisDeLeitura: Tform14LocaisDeLeitura;

implementation

uses frmDMLocaisDeLeitura, rptLocaisDeLeitura1, frmPrincipal;

{$R *.dfm}

procedure Tform14LocaisDeLeitura.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform14LocaisDeLeitura.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;
for x:= 0 to DMLocaisDeLeitura.ComponentCount-1 do
begin
Temp := DMLocaisDeLeitura.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;
PageControl1.ActivePage := TabSheet1;

// abre as tabelas do banco de dados
DMLocaisDeLeitura.ADOQryVisita.active := True;
DMLocaisDeLeitura.tblFiscal.active := True;
DMLocaisDeLeitura.tblEmpresa.active := True;
DMLocaisDeLeitura.tblLocaisDeLeitura.active := True;
end;

procedure Tform14LocaisDeLeitura.SpeedButton4Click(Sender: TObject);
begin
try
DMLocaisDeLeitura.tblLocaisDeLeitura.active := False;
DMLocaisDeLeitura.tblLocaisDeLeitura.active := True;
except
MessageDlg(‘Erro ao carregar tblLocaisDeLeitura’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform14LocaisDeLeitura.SpeedButton27Click(Sender: TObject);
begin
try
try
rptLocaisDeLeitura01 := TrptLocaisDeLeitura01.Create(application);
rptLocaisDeLeitura01.ComponenteRelatorio.preview;
finally
rptLocaisDeLeitura01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptLocaisDeLeitura01!’, mtwarning, [mbOk], 0);
end;
{
try
rptLocaisDeLeitura01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptLocaisDeLeitura01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform14LocaisDeLeitura.editDistanciaEntreEstantes1Exit(
Sender: TObject);
begin
Try
if editDistanciaEntreEstantes1.Field.Text = ’90′ then
MessageDlg(‘A distancia digitada é maior que 90cm, deve ser de 90cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 90cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform14LocaisDeLeitura.SpeedButton26Click(Sender: TObject);
begin
try
DMLocaisDeLeitura.tblLocaisDeLeitura.Locate(‘Codigo’,editLocalDeLeitura.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform14LocaisDeLeitura.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMLocaisDeLeitura.ADOQryVisita.Close;
DMLocaisDeLeitura.ADOQryVisita.SQL.clear;
DMLocaisDeLeitura.ADOQryVisita.SQL.add(strsql);
DMLocaisDeLeitura.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform14LocaisDeLeitura.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// fecha as tabelas do banco de dados
DMLocaisDeLeitura.ADOQryVisita.active := False;
DMLocaisDeLeitura.tblFiscal.active := False;
DMLocaisDeLeitura.tblEmpresa.active := False;
DMLocaisDeLeitura.tblLocaisDeLeitura.active := False;
}

end;

end.
unit frm15LocaisDeHospedagem;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons, jpeg;

type
TMeuDBNavigator = class(TDBNavigator);

Tform15LocaisDeHospedagem = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
DBEdit11: TDBEdit;
Label14: TLabel;
DBEdit12: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup22: TDBRadioGroup;
Image1: TImage;
Label83: TLabel;
Label15: TLabel;
DBImage1: TDBImage;
Label16: TLabel;
DBMemo1: TDBMemo;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup7: TDBRadioGroup;
Label17: TLabel;
editLocalHosp1: TDBEdit;
Label18: TLabel;
editLocalHosp2: TDBEdit;
Label19: TLabel;
editLocalHosp3: TDBEdit;
Label20: TLabel;
editLocalHosp4: TDBEdit;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
editLocalHosp5: TDBEdit;
Label27: TLabel;
DBEdit18: TDBEdit;
editLocalDeHospedagem: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure editLocalHosp1Exit(Sender: TObject);
procedure editLocalHosp2Exit(Sender: TObject);
procedure editLocalHosp3Exit(Sender: TObject);
procedure editLocalHosp4Exit(Sender: TObject);
procedure editLocalHosp5Exit(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form15LocaisDeHospedagem: Tform15LocaisDeHospedagem;

implementation

uses frmDMLocaisDeHospedagem, rptLocaisDeHospedagem1, frmPrincipal;

{$R *.dfm}

procedure Tform15LocaisDeHospedagem.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform15LocaisDeHospedagem.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;

end;
for x:= 0 to DMLocaisDeHospedagem.ComponentCount-1 do
begin
Temp := DMLocaisDeHospedagem.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;
PageControl1.ActivePage := TabSheet1;

// abre a tabela do banco de dados
DMLocaisDeHospedagem.ADOQryVisita.active := True;
DMLocaisDeHospedagem.tblFiscal.active := True;
DMLocaisDeHospedagem.tblEmpresa.active := True;
DMLocaisDeHospedagem.tblLocaisDeHospedagem.active := True;
end;

procedure Tform15LocaisDeHospedagem.SpeedButton4Click(Sender: TObject);
begin
try
DMLocaisDeHospedagem.tblLocaisDeHospedagem.active := False;
DMLocaisDeHospedagem.tblLocaisDeHospedagem.active := True;
except
MessageDlg(‘Erro ao carregar tblLocaisDeHospedagem’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform15LocaisDeHospedagem.SpeedButton27Click(Sender: TObject);
begin
try
try
rptLocaisDeHospedagem01 := TrptLocaisDeHospedagem01.Create(application);
rptLocaisDeHospedagem01.ComponenteRelatorio.preview;
finally
rptLocaisDeHospedagem01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptLocaisDeHospedagem01!’, mtwarning, [mbOk], 0);
end;
{
try
rptLocaisDeHospedagem01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptLocaisDeHospedagem01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform15LocaisDeHospedagem.editLocalHosp1Exit(Sender: TObject);
begin
Try
if editLocalHosp1.Field.Text = ’90′ then
MessageDlg(‘A distancia digitada é maior que 90cm, deve ser de 90cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 90cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform15LocaisDeHospedagem.editLocalHosp2Exit(Sender: TObject);
begin
Try
if editLocalHosp2.Field.Text = ’90′ then
MessageDlg(‘A distancia digitada é maior que 90cm, deve ser de 90cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 90cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform15LocaisDeHospedagem.editLocalHosp3Exit(Sender: TObject);
begin
Try
if editLocalHosp3.Field.Text = ’90′ then
MessageDlg(‘A distancia digitada é maior que 90cm, deve ser de 90cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 90cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform15LocaisDeHospedagem.editLocalHosp4Exit(Sender: TObject);
begin
Try
if editLocalHosp1.Field.Text = ’80′ then
MessageDlg(‘A distancia digitada é maior que 80cm, deve ser de 80cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 80cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform15LocaisDeHospedagem.editLocalHosp5Exit(Sender: TObject);
begin
Try
if editLocalHosp5.Field.Text = ’150′ then
MessageDlg(‘A distancia digitada é maior que 150cm, deve ser de 150cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 150cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform15LocaisDeHospedagem.SpeedButton26Click(Sender: TObject);
begin
try
DMLocaisDeHospedagem.tblLocaisDeHospedagem.Locate(‘Codigo’,editLocalDeHospedagem.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform15LocaisDeHospedagem.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMLocaisDeHospedagem.ADOQryVisita.Close;
DMLocaisDeHospedagem.ADOQryVisita.SQL.clear;
DMLocaisDeHospedagem.ADOQryVisita.SQL.add(strsql);
DMLocaisDeHospedagem.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform15LocaisDeHospedagem.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// abre a tabela do banco de dados
DMLocaisDeHospedagem.ADOQryVisita.active := False;
DMLocaisDeHospedagem.tblFiscal.active := False;
DMLocaisDeHospedagem.tblEmpresa.active := False;
DMLocaisDeHospedagem.tblLocaisDeHospedagem.active := False;
}

end;

end.
unit frm16LocaisDeSaude;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons;

type
TMeuDBNavigator = class(TDBNavigator);

Tform16LocaisDeSaude = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
DBEdit11: TDBEdit;
Label14: TLabel;
DBEdit12: TDBEdit;
Label15: TLabel;
DBEdit13: TDBEdit;
Label16: TLabel;
DBEdit14: TDBEdit;
DBRadioGroup5: TDBRadioGroup;
Label17: TLabel;
DBImage1: TDBImage;
Label18: TLabel;
DBMemo1: TDBMemo;
Label19: TLabel;
DBEdit15: TDBEdit;
editLocalDeSaude: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form16LocaisDeSaude: Tform16LocaisDeSaude;

implementation

uses frmDMLocaisDeSaude, rptLocaisDeSaude1, frmPrincipal;

{$R *.dfm}

procedure Tform16LocaisDeSaude.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform16LocaisDeSaude.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;

for x:= 0 to DMLocaisDeSaude.ComponentCount-1 do
begin
Temp := DMLocaisDeSaude.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;
PageControl1.ActivePage := TabSheet1;

// Abre as tabelas do banco de dados
DMLocaisDeSaude.ADOQryVisita.active := True;
DMLocaisDeSaude.tblFiscal.active := True;
DMLocaisDeSaude.tblEmpresa.active := True;
DMLocaisDeSaude.tblLocaisDeSaude.active := True;
end;

procedure Tform16LocaisDeSaude.SpeedButton4Click(Sender: TObject);
begin
try
DMLocaisDeSaude.tblLocaisDeSaude.active := False;
DMLocaisDeSaude.tblLocaisDeSaude.active := True;
except
MessageDlg(‘Erro ao carregar tblLocaisDeSaude’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform16LocaisDeSaude.SpeedButton27Click(Sender: TObject);
begin
try
try
rptLocaisDeSaude01 := TrptLocaisDeSaude01.Create(application);
rptLocaisDeSaude01.ComponenteRelatorio.preview;
finally
rptLocaisDeSaude01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptLocaisDeSaude01!’, mtwarning, [mbOk], 0);
end;
{
try
rptLocaisDeSaude01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptLocaisDeSaude01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform16LocaisDeSaude.SpeedButton26Click(Sender: TObject);
begin
try
DMLocaisDeSaude.tblLocaisDeSaude.Locate(‘Codigo’,editLocalDeSaude.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform16LocaisDeSaude.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMLocaisDeSaude.ADOQryVisita.Close;
DMLocaisDeSaude.ADOQryVisita.SQL.clear;
DMLocaisDeSaude.ADOQryVisita.SQL.add(strsql);
DMLocaisDeSaude.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform16LocaisDeSaude.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// False as tabelas do banco de dados
DMLocaisDeSaude.ADOQryVisita.active := False;
DMLocaisDeSaude.tblFiscal.active := False;
DMLocaisDeSaude.tblEmpresa.active := False;
DMLocaisDeSaude.tblLocaisDeSaude.active := False;
}

end;

end.
unit frm17LocaisDeEnsino;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons;

type
TMeuDBNavigator = class(TDBNavigator);

Tform17LocaisDeEnsino = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
Label13: TLabel;
DBMemo1: TDBMemo;
DBRadioGroup5: TDBRadioGroup;
Label14: TLabel;
DBMemo2: TDBMemo;
DBRadioGroup6: TDBRadioGroup;
Label15: TLabel;
DBImage1: TDBImage;
Label16: TLabel;
DBMemo3: TDBMemo;
Label17: TLabel;
DBEdit11: TDBEdit;
editLocalDeEnsino: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form17LocaisDeEnsino: Tform17LocaisDeEnsino;

implementation

uses frmDMLocaisDeEnsino, rptLocaisDeEnsino1, frmPrincipal;

{$R *.dfm}

procedure Tform17LocaisDeEnsino.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform17LocaisDeEnsino.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;

for x:= 0 to DMLocaisDeEnsino.ComponentCount-1 do
begin
Temp := DMLocaisDeEnsino.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;
PageControl1.ActivePage := TabSheet1;

// Abre as tabelas do banco de dados
DMLocaisDeEnsino.ADOQryVisita.active := True;
DMLocaisDeEnsino.tblFiscal.active := True;
DMLocaisDeEnsino.tblEmpresa.active := True;
DMLocaisDeEnsino.tblLocaisDeEnsino.active := True;
end;

procedure Tform17LocaisDeEnsino.SpeedButton4Click(Sender: TObject);
begin
try
DMLocaisDeEnsino.tblLocaisDeEnsino.active := False;
DMLocaisDeEnsino.tblLocaisDeEnsino.active := True;
except
MessageDlg(‘Erro ao carregar tblLocaisDeEnsino’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform17LocaisDeEnsino.SpeedButton27Click(Sender: TObject);
begin
try
try
rptLocaisDeEnsino01 := TrptLocaisDeEnsino01.Create(application);
rptLocaisDeEnsino01.ComponenteRelatorio.preview;
finally
rptLocaisDeEnsino01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptLocaisDeEnsino01!’, mtwarning, [mbOk], 0);
end;
{
try
rptLocaisDeEnsino01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptLocaisDeEnsino01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform17LocaisDeEnsino.SpeedButton26Click(Sender: TObject);
begin
try
DMLocaisDeEnsino.tblLocaisDeEnsino.Locate(‘Codigo’,editLocalDeEnsino.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform17LocaisDeEnsino.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMLocaisDeEnsino.ADOQryVisita.Close;
DMLocaisDeEnsino.ADOQryVisita.SQL.clear;
DMLocaisDeEnsino.ADOQryVisita.SQL.add(strsql);
DMLocaisDeEnsino.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform17LocaisDeEnsino.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// Abre as tabelas do banco de dados
DMLocaisDeEnsino.ADOQryVisita.active := False;
DMLocaisDeEnsino.tblFiscal.active := False;
DMLocaisDeEnsino.tblEmpresa.active := False;
DMLocaisDeEnsino.tblLocaisDeEnsino.active := False;
}
end;

end.
unit frm18Provadores;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons, jpeg;

type
TMeuDBNavigator = class(TDBNavigator);

Tform18Provadores = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
TabSheet2: TTabSheet;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
Label13: TLabel;
DBImage1: TDBImage;
Label14: TLabel;
DBMemo1: TDBMemo;
Label15: TLabel;
editProvador1: TDBEdit;
Label16: TLabel;
editProvador2: TDBEdit;
Label17: TLabel;
editProvador3: TDBEdit;
Image1: TImage;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
DBRadioGroup21: TDBRadioGroup;
Label22: TLabel;
DBEdit11: TDBEdit;
editProvadores: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure editProvador1Exit(Sender: TObject);
procedure editProvador2Exit(Sender: TObject);
procedure editProvador3Exit(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form18Provadores: Tform18Provadores;

implementation

uses frmDMProvadores, rptProvadores1, frmPrincipal;

{$R *.dfm}

procedure Tform18Provadores.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform18Provadores.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;

for x:= 0 to DMProvadores.ComponentCount-1 do
begin
Temp := DMProvadores.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;
PageControl1.ActivePage := TabSheet1;

// Abre as tabelas do banco de dados
DMProvadores.ADOQryVisita.Connection := frmPrincipal.formPRINCIPAL.ADOConnection1;
DMProvadores.ADOQryVisita.active := True;
DMProvadores.tblFiscal.Connection := formPRINCIPAL.ADOConnection1;
DMProvadores.tblFiscal.active := True;
DMProvadores.tblEmpresa.Connection := formPRINCIPAL.ADOConnection1;
DMProvadores.tblEmpresa.active := True;
DMProvadores.tblProvadores.Connection := formPRINCIPAL.ADOConnection1;
DMProvadores.tblProvadores.active := True;

end;

procedure Tform18Provadores.PageControl1Change(Sender: TObject);
begin
PageControl3.ActivePage := TabSheet30;
end;

procedure Tform18Provadores.SpeedButton4Click(Sender: TObject);
begin
try
DMProvadores.tblProvadores.active := False;
DMProvadores.tblProvadores.active := True;
except
MessageDlg(‘Erro ao carregar tblProvadores’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform18Provadores.SpeedButton27Click(Sender: TObject);
begin
try
try
rptProvadores01 := TrptProvadores01.Create(application);
rptProvadores01.ComponenteRelatorio.preview;
finally
rptProvadores01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptProvadores01!’, mtwarning, [mbOk], 0);
end;
{
try
rptProvadores01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptProvadores01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform18Provadores.editProvador1Exit(Sender: TObject);
begin
Try
if editProvador1.Field.Text = ’80′ then
MessageDlg(‘A distancia digitada é maior que 80cm, deve ser de 80cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 80cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform18Provadores.editProvador2Exit(Sender: TObject);
begin
Try
if editProvador2.Field.Text = ’90′ then
MessageDlg(‘A distancia digitada é maior que 90cm, deve ser de 90cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 90cm!’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform18Provadores.editProvador3Exit(Sender: TObject);
begin
Try
if editProvador3.Field.Text = ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm, deve ser de 120cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform18Provadores.SpeedButton26Click(Sender: TObject);
begin
try
DMProvadores.tblProvadores.Locate(‘Codigo’,editProvadores.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform18Provadores.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMProvadores.ADOQryVisita.Close;
DMProvadores.ADOQryVisita.SQL.clear;
DMProvadores.ADOQryVisita.SQL.add(strsql);
DMProvadores.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform18Provadores.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// Abre as tabelas do banco de dados
DMProvadores.ADOQryVisita.active := False;
DMProvadores.tblFiscal.active := False;
DMProvadores.tblEmpresa.active := False;
DMProvadores.tblProvadores.active := False;
}

end;

end.
unit frm19Cozinhas;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ADODB,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons, jpeg;

type
TMeuDBNavigator = class(TDBNavigator);

Tform19Cozinhas = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
PageControl2: TPageControl;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
DBRadioGroup3: TDBRadioGroup;
DBEdit10: TDBEdit;
Label12: TLabel;
DBEdit9: TDBEdit;
Label11: TLabel;
DBEdit8: TDBEdit;
Label10: TLabel;
Label13: TLabel;
editCozinha1: TDBEdit;
Label14: TLabel;
editCozinha2: TDBEdit;
Label15: TLabel;
editCozinha3: TDBEdit;
Label16: TLabel;
editCozinha4: TDBEdit;
Image1: TImage;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
DBRadioGroup5: TDBRadioGroup;
Label22: TLabel;
DBImage1: TDBImage;
Label23: TLabel;
DBMemo1: TDBMemo;
Label24: TLabel;
DBEdit11: TDBEdit;
editCozinha: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure editCozinha1Exit(Sender: TObject);
procedure editCozinha2Exit(Sender: TObject);
procedure editCozinha3Exit(Sender: TObject);
procedure editCozinha4Exit(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form19Cozinhas: Tform19Cozinhas;

implementation

uses frmDMCozinhas, rptCozinha1, frmPrincipal;

{$R *.dfm}

procedure Tform19Cozinhas.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform19Cozinhas.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;
begin

for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;

for x:= 0 to DMCozinhas.ComponentCount-1 do
begin
Temp := DMCozinhas.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;

PageControl1.ActivePage := TabSheet1;

//formPRINCIPAL.ADOConnection1
DMCozinhas.ADOQryVisita.Connection := formPRINCIPAL.ADOConnection1;
DMCozinhas.tblFiscal.Connection := formPRINCIPAL.ADOConnection1;
DMCozinhas.tblEmpresa.Connection := formPRINCIPAL.ADOConnection1;
DMCozinhas.tblCozinha.Connection := formPRINCIPAL.ADOConnection1;

// abre as tabelas do banco
DMCozinhas.ADOQryVisita.active :=True;
DMCozinhas.tblFiscal.active :=True;
DMCozinhas.tblEmpresa.active :=True;
DMCozinhas.tblCozinha.active :=True;

end;

procedure Tform19Cozinhas.PageControl1Change(Sender: TObject);
begin
PageControl2.ActivePage := TabSheet2;
end;

procedure Tform19Cozinhas.SpeedButton4Click(Sender: TObject);
begin
try
DMCozinhas.tblCozinha.active := False;
DMCozinhas.tblCozinha.active := True;
except
MessageDlg(‘Erro ao carregar tblCozinha’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform19Cozinhas.SpeedButton27Click(Sender: TObject);
begin
try
try
rptCozinhas01 := TrptCozinhas01.Create(application);
rptCozinhas01.ComponenteRelatorio.preview;
finally
rptCozinhas01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptCozinhas01!’, mtwarning, [mbOk], 0);
end;
{
try
rptCozinhas01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptCozinhas01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform19Cozinhas.editCozinha1Exit(Sender: TObject);
begin
Try
if editCozinha1.Field.Text = ’150′ then
MessageDlg(‘A distancia digitada é maior que 150cm, deve ser de 150cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 150cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform19Cozinhas.editCozinha2Exit(Sender: TObject);
begin
Try
if editCozinha2.Field.Text = ’80′ then
MessageDlg(‘A distancia digitada é maior que 80cm, deve ser de 80cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 80cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform19Cozinhas.editCozinha3Exit(Sender: TObject);
begin
Try
if editCozinha1.Field.Text = ’73′ then
MessageDlg(‘A distancia digitada é maior que 73cm, deve ser de 73cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 73cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform19Cozinhas.editCozinha4Exit(Sender: TObject);
begin
Try
if editCozinha4.Field.Text = ’85′ then
MessageDlg(‘A distancia digitada é maior que 85cm, deve ser de 85cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 85cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform19Cozinhas.SpeedButton26Click(Sender: TObject);
begin
try
DMCozinhas.tblCozinha.Locate(‘Codigo’,editCozinha.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform19Cozinhas.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMCozinhas.ADOQryVisita.Close;
DMCozinhas.ADOQryVisita.SQL.clear;
DMCozinhas.ADOQryVisita.SQL.add(strsql);
DMCozinhas.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform19Cozinhas.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// fecha as tabelas do banco
DMCozinhas.ADOQryVisita.active := False;
DMCozinhas.tblFiscal.active := False;
DMCozinhas.tblEmpresa.active := False;
DMCozinhas.tblCozinha.active := False;

//formPRINCIPAL.ADOConnection1
DMCozinhas.ADOQryVisita.Connection := formPRINCIPAL.ADOConnection1;
DMCozinhas.tblFiscal.Connection := formPRINCIPAL.ADOConnection1;
DMCozinhas.tblEmpresa.Connection := formPRINCIPAL.ADOConnection1;
DMCozinhas.tblCozinha.Connection := formPRINCIPAL.ADOConnection1;
}

end;

end.
unit frm1PasseioPublico;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Buttons, DBCtrls, ExtCtrls, ComCtrls,
Grids, DBGrids, Mask, jpeg, JvExControls, JvLED, QuickRpt, QRCtrls,
JvBaseDlg, JvCalc;

type
TMeuDBNavigator = class(TDBNavigator);
Tform1PasseioPublico = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Edit1: TEdit;
Button1: TButton;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
PageControl2: TPageControl;
TabSheet22: TTabSheet;
TabSheet23: TTabSheet;
TabSheet24: TTabSheet;
TabSheet25: TTabSheet;
TabSheet26: TTabSheet;
TabSheet27: TTabSheet;
TabSheet28: TTabSheet;
TabSheet29: TTabSheet;
Panel7: TPanel;
Panel8: TPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label3: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label4: TLabel;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
DBGrid1: TDBGrid;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
DBEdit11: TDBEdit;
Label16: TLabel;
DBEdit14: TDBEdit;
Label18: TLabel;
DBEdit16: TDBEdit;
Label23: TLabel;
DBImage1: TDBImage;
Label24: TLabel;
DBMemo1: TDBMemo;
Label25: TLabel;
DBEdit21: TDBEdit;
Label26: TLabel;
DBEdit22: TDBEdit;
Label27: TLabel;
DBEdit23: TDBEdit;
Label28: TLabel;
DBEdit24: TDBEdit;
Label29: TLabel;
DBEdit25: TDBEdit;
Label31: TLabel;
editGrelhaD1: TDBEdit;
Label32: TLabel;
editGrelhaD2: TDBEdit;
Label34: TLabel;
DBImage2: TDBImage;
Label35: TLabel;
DBMemo2: TDBMemo;
imagemGrelha: TImage;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup7: TDBRadioGroup;
DBRadioGroup8: TDBRadioGroup;
DBRadioGroup9: TDBRadioGroup;
DBRadioGroup10: TDBRadioGroup;
DBRadioGroup11: TDBRadioGroup;
Label14: TLabel;
Panel5: TPanel;
DBNavigator2: TDBNavigator;
Panel6: TPanel;
DBNavigator3: TDBNavigator;
Panel9: TPanel;
Panel10: TPanel;
Panel11: TPanel;
Panel12: TPanel;
Panel13: TPanel;
Panel14: TPanel;
DBNavigator4: TDBNavigator;
DBNavigator5: TDBNavigator;
DBNavigator6: TDBNavigator;
DBNavigator7: TDBNavigator;
DBNavigator8: TDBNavigator;
DBNavigator9: TDBNavigator;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
TabSheet10: TTabSheet;
TabSheet11: TTabSheet;
TabSheet12: TTabSheet;
TabSheet13: TTabSheet;
TabSheet14: TTabSheet;
TabSheet15: TTabSheet;
TabSheet16: TTabSheet;
Panel15: TPanel;
DBNavigator10: TDBNavigator;
Panel16: TPanel;
DBNavigator11: TDBNavigator;
Panel17: TPanel;
DBNavigator12: TDBNavigator;
Panel18: TPanel;
DBNavigator13: TDBNavigator;
Panel19: TPanel;
DBNavigator14: TDBNavigator;
Panel20: TPanel;
DBNavigator15: TDBNavigator;
Panel21: TPanel;
DBNavigator16: TDBNavigator;
Panel22: TPanel;
DBNavigator17: TDBNavigator;
Panel23: TPanel;
DBNavigator18: TDBNavigator;
Panel24: TPanel;
DBNavigator19: TDBNavigator;
Panel25: TPanel;
DBNavigator20: TDBNavigator;
Panel26: TPanel;
DBNavigator21: TDBNavigator;
Panel27: TPanel;
DBNavigator22: TDBNavigator;
Panel28: TPanel;
DBNavigator23: TDBNavigator;
Label15: TLabel;
DBEdit12: TDBEdit;
Label17: TLabel;
DBEdit13: TDBEdit;
Label19: TLabel;
DBEdit15: TDBEdit;
Label30: TLabel;
editCxInspecaoD1: TDBEdit;
Label33: TLabel;
editCxInspecaoD2: TDBEdit;
Label36: TLabel;
editCxInspecaoA1: TDBEdit;
Label37: TLabel;
editCxInspecaoA2: TDBEdit;
Label39: TLabel;
DBImage3: TDBImage;
Label40: TLabel;
DBMemo3: TDBMemo;
DBRadioGroup12: TDBRadioGroup;
DBRadioGroup13: TDBRadioGroup;
DBRadioGroup14: TDBRadioGroup;
DBRadioGroup15: TDBRadioGroup;
Label20: TLabel;
imagemCxInspecao1: TImage;
imagemCxInspecao2: TImage;
Label21: TLabel;
DBEdit17: TDBEdit;
Label22: TLabel;
DBEdit18: TDBEdit;
Label38: TLabel;
DBEdit19: TDBEdit;
Label42: TLabel;
DBEdit32: TDBEdit;
DBRadioGroup16: TDBRadioGroup;
DBRadioGroup17: TDBRadioGroup;
DBRadioGroup18: TDBRadioGroup;
Label41: TLabel;
editPontoDeOnibusD1: TDBEdit;
Label43: TLabel;
editPontoDeOnibusD2: TDBEdit;
Label44: TLabel;
editPontoDeOnibusD3: TDBEdit;
Label45: TLabel;
editPontoDeOnibusD4: TDBEdit;
Label46: TLabel;
DBImage4: TDBImage;
Label47: TLabel;
DBMemo4: TDBMemo;
Label48: TLabel;
imagemPontoDeOnibus: TImage;
Label49: TLabel;
DBEdit36: TDBEdit;
Label50: TLabel;
DBEdit37: TDBEdit;
Label51: TLabel;
DBEdit38: TDBEdit;
Label52: TLabel;
editTelefonePublicoD1: TDBEdit;
Label53: TLabel;
editTelefonePublicoD2: TDBEdit;
Label54: TLabel;
editTelefonePublicoD3: TDBEdit;
Label55: TLabel;
editTelefonePublicoD4: TDBEdit;
Label56: TLabel;
editTelefonePublicoD5: TDBEdit;
Label57: TLabel;
editTelefonePublicoD6: TDBEdit;
Label58: TLabel;
editTelefonePublicoAltura: TDBEdit;
DBRadioGroup20: TDBRadioGroup;
DBRadioGroup21: TDBRadioGroup;
Label59: TLabel;
DBImage5: TDBImage;
Label60: TLabel;
DBMemo5: TDBMemo;
Label61: TLabel;
imagemTelefonePublico2: TImage;
imagemTelefonePublico1: TImage;
Label62: TLabel;
DBEdit46: TDBEdit;
Label63: TLabel;
DBEdit47: TDBEdit;
Label64: TLabel;
DBEdit48: TDBEdit;
Label65: TLabel;
editCXCorreioAltura: TDBEdit;
Label66: TLabel;
editCXCorreioD1: TDBEdit;
Label67: TLabel;
editCXCorreioD2: TDBEdit;
Label68: TLabel;
editCXCorreioD3: TDBEdit;
Label69: TLabel;
editCXCorreioD4: TDBEdit;
Label71: TLabel;
DBMemo6: TDBMemo;
Label72: TLabel;
Label70: TLabel;
DBImage6: TDBImage;
DBRadioGroup22: TDBRadioGroup;
imagemCaixaDeCorreio: TImage;
Label73: TLabel;
DBEdit54: TDBEdit;
Label74: TLabel;
DBEdit55: TDBEdit;
Label75: TLabel;
DBEdit56: TDBEdit;
Label76: TLabel;
editLixeiraAltura: TDBEdit;
Label77: TLabel;
editLixeiraD1: TDBEdit;
Label78: TLabel;
editLixeiraD2: TDBEdit;
Label79: TLabel;
editLixeiraD3: TDBEdit;
Label80: TLabel;
editLixeiraD4: TDBEdit;
DBRadioGroup23: TDBRadioGroup;
Label81: TLabel;
DBImage7: TDBImage;
Label82: TLabel;
DBMemo7: TDBMemo;
imagemLixeira: TImage;
Label83: TLabel;
Label84: TLabel;
imagemBanco: TImage;
Label85: TLabel;
imagemBanca: TImage;
Label86: TLabel;
imagemBancaDeMercadorias: TImage;
Label87: TLabel;
imagemFloreira: TImage;
Label88: TLabel;
imagemPontoDeTaxi: TImage;
Label89: TLabel;
imagemPosteDeLuz: TImage;
Label90: TLabel;
imagemPosteDeSinalizacao: TImage;
Label91: TLabel;
imagemBaiaDeVeiculo: TImage;
Label92: TLabel;
imagemVegetacao: TImage;
Label93: TLabel;
Image18: TImage;
Label99: TLabel;
imagemCxForcaTelefonia: TImage;
Label94: TLabel;
imagemOutraInterferencia: TImage;
TabSheet17: TTabSheet;
Label100: TLabel;
DBEdit62: TDBEdit;
Label101: TLabel;
DBEdit63: TDBEdit;
Label102: TLabel;
editBancoAltura: TDBEdit;
Label103: TLabel;
editBancoD1: TDBEdit;
Label104: TLabel;
editBancoD2: TDBEdit;
Label105: TLabel;
editBancoD3: TDBEdit;
DBRadioGroup24: TDBRadioGroup;
DBRadioGroup25: TDBRadioGroup;
DBRadioGroup26: TDBRadioGroup;
DBRadioGroup27: TDBRadioGroup;
DBRadioGroup28: TDBRadioGroup;
DBRadioGroup29: TDBRadioGroup;
DBRadioGroup30: TDBRadioGroup;
DBRadioGroup31: TDBRadioGroup;
DBRadioGroup32: TDBRadioGroup;
DBRadioGroup33: TDBRadioGroup;
DBRadioGroup34: TDBRadioGroup;
DBRadioGroup35: TDBRadioGroup;
DBRadioGroup38: TDBRadioGroup;
DBRadioGroup39: TDBRadioGroup;
Label107: TLabel;
DBImage8: TDBImage;
Label108: TLabel;
DBMemo8: TDBMemo;
Label109: TLabel;
DBEdit68: TDBEdit;
Label110: TLabel;
DBEdit69: TDBEdit;
Label111: TLabel;
DBEdit70: TDBEdit;
Label112: TLabel;
editBancaD1: TDBEdit;
Label113: TLabel;
editBancaD2: TDBEdit;
Label114: TLabel;
DBImage9: TDBImage;
Label115: TLabel;
DBMemo9: TDBMemo;
Label116: TLabel;
DBEdit73: TDBEdit;
Label117: TLabel;
DBEdit74: TDBEdit;
Label118: TLabel;
DBEdit75: TDBEdit;
Label119: TLabel;
editBancaDeMarcedoriasD1: TDBEdit;
Label120: TLabel;
editBancaDeMarcedoriasD2: TDBEdit;
Label121: TLabel;
DBImage10: TDBImage;
Label122: TLabel;
DBMemo10: TDBMemo;
Label123: TLabel;
DBEdit78: TDBEdit;
Label124: TLabel;
DBEdit79: TDBEdit;
Label125: TLabel;
editFloreiraD1: TDBEdit;
Label126: TLabel;
editFloreiraD2: TDBEdit;
Label127: TLabel;
DBImage11: TDBImage;
Label128: TLabel;
DBMemo11: TDBMemo;
Label129: TLabel;
DBEdit82: TDBEdit;
Label130: TLabel;
DBEdit83: TDBEdit;
Label131: TLabel;
DBEdit84: TDBEdit;
Label132: TLabel;
editPontoDeTaxiD1: TDBEdit;
Label133: TLabel;
editPontoDeTaxiD2: TDBEdit;
Label134: TLabel;
editPontoDeTaxiD3: TDBEdit;
Label135: TLabel;
editPontoDeTaxiD4: TDBEdit;
DBRadioGroup40: TDBRadioGroup;
Label136: TLabel;
DBImage12: TDBImage;
Label137: TLabel;
DBMemo12: TDBMemo;
Label138: TLabel;
DBEdit89: TDBEdit;
Label139: TLabel;
DBEdit90: TDBEdit;
Label140: TLabel;
DBEdit91: TDBEdit;
Label141: TLabel;
editPosteDeLuzD1: TDBEdit;
Label142: TLabel;
editPosteDeLuzD2: TDBEdit;
Label143: TLabel;
DBImage13: TDBImage;
Label144: TLabel;
DBMemo13: TDBMemo;
Label145: TLabel;
DBEdit94: TDBEdit;
Label146: TLabel;
DBEdit95: TDBEdit;
Label147: TLabel;
DBEdit96: TDBEdit;
Label148: TLabel;
editPosteDeSinalizacaoD1: TDBEdit;
Label149: TLabel;
editPosteDeSinalizacaoD2: TDBEdit;
Label150: TLabel;
DBImage14: TDBImage;
Label151: TLabel;
DBMemo14: TDBMemo;
Label152: TLabel;
DBEdit99: TDBEdit;
Label153: TLabel;
DBEdit100: TDBEdit;
Label154: TLabel;
DBEdit101: TDBEdit;
Label155: TLabel;
editBaiaDeVeiculoD1: TDBEdit;
Label156: TLabel;
editBaiaDeVeiculoD2: TDBEdit;
Label158: TLabel;
DBImage15: TDBImage;
Label159: TLabel;
DBMemo15: TDBMemo;
Label160: TLabel;
DBEdit105: TDBEdit;
Label161: TLabel;
DBEdit106: TDBEdit;
Label162: TLabel;
DBEdit107: TDBEdit;
Label163: TLabel;
editVegetacaoD1: TDBEdit;
Label164: TLabel;
editVegetacaoD2: TDBEdit;
DBRadioGroup41: TDBRadioGroup;
DBRadioGroup43: TDBRadioGroup;
DBRadioGroup44: TDBRadioGroup;
DBRadioGroup45: TDBRadioGroup;
DBRadioGroup46: TDBRadioGroup;
DBRadioGroup47: TDBRadioGroup;
DBRadioGroup48: TDBRadioGroup;
Label165: TLabel;
DBMemo16: TDBMemo;
Label166: TLabel;
DBImage16: TDBImage;
Label167: TLabel;
DBEdit110: TDBEdit;
Label168: TLabel;
DBEdit111: TDBEdit;
Label169: TLabel;
DBEdit112: TDBEdit;
Label170: TLabel;
editCxDeForcaTelefD1: TDBEdit;
Label171: TLabel;
editCxDeForcaTelefD2: TDBEdit;
DBRadioGroup42: TDBRadioGroup;
Label172: TLabel;
DBImage17: TDBImage;
Label173: TLabel;
DBMemo17: TDBMemo;
Label174: TLabel;
DBEdit115: TDBEdit;
Label175: TLabel;
DBEdit116: TDBEdit;
Label176: TLabel;
DBEdit117: TDBEdit;
Label177: TLabel;
editOutraInterfD1: TDBEdit;
Label178: TLabel;
editOutraInterfD2: TDBEdit;
Label179: TLabel;
DBImage18: TDBImage;
Label180: TLabel;
DBMemo18: TDBMemo;
Panel29: TPanel;
DBNavigator24: TDBNavigator;
Label106: TLabel;
DBEdit120: TDBEdit;
Label181: TLabel;
DBEdit121: TDBEdit;
Label183: TLabel;
DBEdit123: TDBEdit;
DBRadioGroup49: TDBRadioGroup;
Label184: TLabel;
DBImage19: TDBImage;
Label185: TLabel;
DBMemo19: TDBMemo;
Label95: TLabel;
DBEdit124: TDBEdit;
Label186: TLabel;
DBEdit125: TDBEdit;
Label189: TLabel;
DBEdit128: TDBEdit;
DBRadioGroup50: TDBRadioGroup;
Label190: TLabel;
editAlturaDegrau: TDBEdit;
Label191: TLabel;
DBImage20: TDBImage;
Label192: TLabel;
DBMemo20: TDBMemo;
PageControl3: TPageControl;
TabSheet18: TTabSheet;
TabSheet19: TTabSheet;
Label194: TLabel;
DBEdit131: TDBEdit;
Label193: TLabel;
DBEdit130: TDBEdit;
Label195: TLabel;
DBEdit132: TDBEdit;
DBRadioGroup51: TDBRadioGroup;
DBRadioGroup52: TDBRadioGroup;
DBRadioGroup53: TDBRadioGroup;
DBRadioGroup54: TDBRadioGroup;
DBRadioGroup57: TDBRadioGroup;
DBRadioGroup58: TDBRadioGroup;
DBRadioGroup59: TDBRadioGroup;
DBRadioGroup60: TDBRadioGroup;
DBRadioGroup61: TDBRadioGroup;
DBRadioGroup62: TDBRadioGroup;
DBRadioGroup55: TDBRadioGroup;
DBRadioGroup36: TDBRadioGroup;
DBRadioGroup56: TDBRadioGroup;
DBRadioGroup63: TDBRadioGroup;
DBRadioGroup64: TDBRadioGroup;
Label196: TLabel;
editEscadaD1: TDBEdit;
Label197: TLabel;
editEscadaD2: TDBEdit;
Label198: TLabel;
editEscadaD3: TDBEdit;
Label199: TLabel;
editEscadaD4: TDBEdit;
Label200: TLabel;
editEscadaD5: TDBEdit;
Label201: TLabel;
editEscadaD6: TDBEdit;
Label202: TLabel;
editEscadaD7: TDBEdit;
Label203: TLabel;
editEscadaD8: TDBEdit;
Label204: TLabel;
editEscadaD9: TDBEdit;
Label205: TLabel;
editEscadaD10: TDBEdit;
Label96: TLabel;
imagemEscada: TImage;
Label206: TLabel;
DBImage21: TDBImage;
Label208: TLabel;
DBMemo21: TDBMemo;
PageControl4: TPageControl;
TabSheet20: TTabSheet;
TabSheet21: TTabSheet;
imagemRampa: TImage;
Label97: TLabel;
Label209: TLabel;
DBEdit143: TDBEdit;
Label210: TLabel;
DBEdit144: TDBEdit;
Label211: TLabel;
DBEdit145: TDBEdit;
DBRadioGroup37: TDBRadioGroup;
Label212: TLabel;
DBEdit146: TDBEdit;
DBRadioGroup65: TDBRadioGroup;
Label213: TLabel;
editRampaD1: TDBEdit;
Label214: TLabel;
editRampaD2: TDBEdit;
Label215: TLabel;
editRampaD3: TDBEdit;
Label216: TLabel;
editRampaD4: TDBEdit;
Label217: TLabel;
editRampaD5: TDBEdit;
Label218: TLabel;
editRampaD6: TDBEdit;
Label219: TLabel;
editRampaD7: TDBEdit;
Label220: TLabel;
editRampaD8: TDBEdit;
Label221: TLabel;
editRampaD9: TDBEdit;
Label222: TLabel;
editRampaD10: TDBEdit;
Label223: TLabel;
editRampaD11: TDBEdit;
Label224: TLabel;
DBEdit158: TDBEdit;
DBRadioGroup66: TDBRadioGroup;
DBRadioGroup67: TDBRadioGroup;
DBRadioGroup68: TDBRadioGroup;
DBRadioGroup69: TDBRadioGroup;
DBRadioGroup70: TDBRadioGroup;
DBRadioGroup71: TDBRadioGroup;
DBRadioGroup72: TDBRadioGroup;
DBRadioGroup73: TDBRadioGroup;
DBRadioGroup74: TDBRadioGroup;
DBRadioGroup75: TDBRadioGroup;
DBRadioGroup76: TDBRadioGroup;
DBRadioGroup77: TDBRadioGroup;
Label225: TLabel;
DBImage23: TDBImage;
Label226: TLabel;
DBMemo22: TDBMemo;
Label98: TLabel;
DBEdit159: TDBEdit;
Label227: TLabel;
DBEdit160: TDBEdit;
Label228: TLabel;
DBEdit161: TDBEdit;
DBRadioGroup78: TDBRadioGroup;
Label229: TLabel;
DBEdit162: TDBEdit;
Label230: TLabel;
DBEdit163: TDBEdit;
DBRadioGroup79: TDBRadioGroup;
Label231: TLabel;
DBEdit164: TDBEdit;
DBRadioGroup80: TDBRadioGroup;
DBRadioGroup81: TDBRadioGroup;
DBRadioGroup82: TDBRadioGroup;
DBRadioGroup83: TDBRadioGroup;
DBRadioGroup86: TDBRadioGroup;
Label232: TLabel;
DBEdit165: TDBEdit;
Label233: TLabel;
DBEdit166: TDBEdit;
Label234: TLabel;
DBEdit167: TDBEdit;
DBRadioGroup84: TDBRadioGroup;
Label235: TLabel;
DBEdit168: TDBEdit;
Label236: TLabel;
DBEdit169: TDBEdit;
DBRadioGroup85: TDBRadioGroup;
Label237: TLabel;
DBImage24: TDBImage;
Label238: TLabel;
DBMemo23: TDBMemo;
Label239: TLabel;
Label240: TLabel;
Label241: TLabel;
Label242: TLabel;
Label243: TLabel;
Label244: TLabel;
Label245: TLabel;
Label246: TLabel;
Label247: TLabel;
Label248: TLabel;
Label249: TLabel;
Label250: TLabel;
Label251: TLabel;
Label252: TLabel;
Label253: TLabel;
Label254: TLabel;
Label255: TLabel;
Label256: TLabel;
Label257: TLabel;
Label258: TLabel;
Label259: TLabel;
Label260: TLabel;
Label261: TLabel;
Label262: TLabel;
Label263: TLabel;
Label264: TLabel;
Label265: TLabel;
Label266: TLabel;
Label267: TLabel;
Label268: TLabel;
Label269: TLabel;
Label270: TLabel;
Label271: TLabel;
Label272: TLabel;
Label273: TLabel;
Label274: TLabel;
Label275: TLabel;
Label276: TLabel;
Label277: TLabel;
Label278: TLabel;
Label279: TLabel;
Label280: TLabel;
Label281: TLabel;
Label282: TLabel;
Label283: TLabel;
Label284: TLabel;
Label285: TLabel;
Label286: TLabel;
Label287: TLabel;
Label288: TLabel;
Label289: TLabel;
Label290: TLabel;
Label291: TLabel;
Label292: TLabel;
Label293: TLabel;
Label294: TLabel;
Label295: TLabel;
Label296: TLabel;
Label297: TLabel;
Label298: TLabel;
Label299: TLabel;
Label300: TLabel;
Label301: TLabel;
Label302: TLabel;
Label303: TLabel;
Label304: TLabel;
Label305: TLabel;
Label306: TLabel;
Label307: TLabel;
Label308: TLabel;
Label309: TLabel;
Label310: TLabel;
DBEdit170: TDBEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton27: TSpeedButton;
SpeedButton28: TSpeedButton;
SpeedButton29: TSpeedButton;
SpeedButton30: TSpeedButton;
SpeedButton31: TSpeedButton;
SpeedButton32: TSpeedButton;
SpeedButton33: TSpeedButton;
SpeedButton34: TSpeedButton;
SpeedButton35: TSpeedButton;
SpeedButton36: TSpeedButton;
SpeedButton37: TSpeedButton;
SpeedButton38: TSpeedButton;
SpeedButton39: TSpeedButton;
SpeedButton40: TSpeedButton;
SpeedButton41: TSpeedButton;
SpeedButton42: TSpeedButton;
SpeedButton43: TSpeedButton;
SpeedButton44: TSpeedButton;
SpeedButton45: TSpeedButton;
SpeedButton46: TSpeedButton;
SpeedButton47: TSpeedButton;
SpeedButton48: TSpeedButton;
SpeedButton49: TSpeedButton;
Label312: TLabel;
editEscadaD11: TDBEdit;
TabSheet30: TTabSheet;
Panel30: TPanel;
SpeedButton50: TSpeedButton;
SpeedButton51: TSpeedButton;
DBNavigator25: TDBNavigator;
Label313: TLabel;
Label314: TLabel;
DBEdit26: TDBEdit;
Label315: TLabel;
DBEdit27: TDBEdit;
Label316: TLabel;
DBEdit28: TDBEdit;
Label317: TLabel;
editSemaforoD1: TDBEdit;
Label318: TLabel;
editSemaforoD2: TDBEdit;
DBRadioGroup19: TDBRadioGroup;
Label319: TLabel;
DBImage25: TDBImage;
Label320: TLabel;
DBMemo24: TDBMemo;
imagemSemaforo: TImage;
Label321: TLabel;
Label322: TLabel;
editLocalizar: TEdit;
btnLocalizar: TSpeedButton;
btnLocalizar3: TSpeedButton;
editCxInspecao: TEdit;
SpeedButton52: TSpeedButton;
editGrelha: TEdit;
editPontoDeOnibus: TEdit;
SpeedButton53: TSpeedButton;
editTelefPublico: TEdit;
SpeedButton54: TSpeedButton;
editCxCorreio: TEdit;
SpeedButton55: TSpeedButton;
editLixeira: TEdit;
SpeedButton56: TSpeedButton;
editBanco: TEdit;
SpeedButton57: TSpeedButton;
editBanca: TEdit;
SpeedButton58: TSpeedButton;
editBancaDeMercadorias: TEdit;
SpeedButton59: TSpeedButton;
editFloreira: TEdit;
SpeedButton60: TSpeedButton;
editPontoDeTaxi: TEdit;
SpeedButton61: TSpeedButton;
editPosteDeLuz: TEdit;
SpeedButton62: TSpeedButton;
editSemaforo: TEdit;
SpeedButton63: TSpeedButton;
editPostSinalizacao: TEdit;
SpeedButton64: TSpeedButton;
editBaia: TEdit;
SpeedButton65: TSpeedButton;
editVegetacao: TEdit;
SpeedButton66: TSpeedButton;
editCxForcaTelef: TEdit;
SpeedButton67: TSpeedButton;
editOutraTransf: TEdit;
SpeedButton68: TSpeedButton;
editDesnivelTrans: TEdit;
SpeedButton69: TSpeedButton;
editDegrau: TEdit;
SpeedButton70: TSpeedButton;
editEscada: TEdit;
SpeedButton71: TSpeedButton;
editRampa: TEdit;
SpeedButton72: TSpeedButton;
editRevestimento: TEdit;
SpeedButton73: TSpeedButton;
SpeedButton74: TSpeedButton;
JvCalculator1: TJvCalculator;
procedure editGrelhaD1Exit(Sender: TObject);
procedure editGrelhaD2Exit(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure SpeedButton18Click(Sender: TObject);
procedure SpeedButton19Click(Sender: TObject);
procedure SpeedButton20Click(Sender: TObject);
procedure SpeedButton21Click(Sender: TObject);
procedure SpeedButton22Click(Sender: TObject);
procedure SpeedButton23Click(Sender: TObject);
procedure SpeedButton24Click(Sender: TObject);
procedure SpeedButton25Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton29Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure SpeedButton30Click(Sender: TObject);
procedure SpeedButton31Click(Sender: TObject);
procedure SpeedButton32Click(Sender: TObject);
procedure SpeedButton33Click(Sender: TObject);
procedure SpeedButton34Click(Sender: TObject);
procedure SpeedButton35Click(Sender: TObject);
procedure SpeedButton36Click(Sender: TObject);
procedure SpeedButton37Click(Sender: TObject);
procedure SpeedButton38Click(Sender: TObject);
procedure SpeedButton39Click(Sender: TObject);
procedure SpeedButton40Click(Sender: TObject);
procedure SpeedButton41Click(Sender: TObject);
procedure SpeedButton42Click(Sender: TObject);
procedure SpeedButton43Click(Sender: TObject);
procedure SpeedButton44Click(Sender: TObject);
procedure SpeedButton45Click(Sender: TObject);
procedure SpeedButton46Click(Sender: TObject);
procedure SpeedButton47Click(Sender: TObject);
procedure SpeedButton48Click(Sender: TObject);
procedure SpeedButton49Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure PageControl1Change(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure SpeedButton28Click(Sender: TObject);
procedure editCxInspecaoA1Exit(Sender: TObject);
procedure editCxInspecaoA2Exit(Sender: TObject);
procedure editPontoDeOnibusD1Exit(Sender: TObject);
procedure editPontoDeOnibusD2Exit(Sender: TObject);
procedure editPontoDeOnibusD3Exit(Sender: TObject);
procedure editPontoDeOnibusD4Exit(Sender: TObject);
procedure editTelefonePublicoD1Exit(Sender: TObject);
procedure editTelefonePublicoD2Exit(Sender: TObject);
procedure editTelefonePublicoD3Exit(Sender: TObject);
procedure editTelefonePublicoD4Exit(Sender: TObject);
procedure editTelefonePublicoD5Exit(Sender: TObject);
procedure editTelefonePublicoD6Exit(Sender: TObject);
procedure editTelefonePublicoAlturaExit(Sender: TObject);
procedure editCXCorreioD1Exit(Sender: TObject);
procedure editCXCorreioD2Exit(Sender: TObject);
procedure editCXCorreioD3Exit(Sender: TObject);
procedure editCXCorreioD4Exit(Sender: TObject);
procedure editLixeiraD1Exit(Sender: TObject);
procedure editLixeiraD2Exit(Sender: TObject);
procedure editLixeiraD3Exit(Sender: TObject);
procedure editLixeiraD4Exit(Sender: TObject);
procedure editCXCorreioAlturaExit(Sender: TObject);
procedure editLixeiraAlturaExit(Sender: TObject);
procedure editBancoD1Exit(Sender: TObject);
procedure editBancoD2Exit(Sender: TObject);
procedure editBancoD3Exit(Sender: TObject);
procedure editBancaD1Exit(Sender: TObject);
procedure editBancaD2Exit(Sender: TObject);
procedure editBancaDeMarcedoriasD1Exit(Sender: TObject);
procedure editBancaDeMarcedoriasD2Exit(Sender: TObject);
procedure editCxInspecaoD1Exit(Sender: TObject);
procedure editCxInspecaoD2Exit(Sender: TObject);
procedure editFloreiraD1Exit(Sender: TObject);
procedure editFloreiraD2Exit(Sender: TObject);
procedure editPontoDeTaxiD1Exit(Sender: TObject);
procedure editPontoDeTaxiD3Exit(Sender: TObject);
procedure editPontoDeTaxiD4Exit(Sender: TObject);
procedure editPosteDeLuzD1Exit(Sender: TObject);
procedure editPosteDeLuzD2Exit(Sender: TObject);
procedure editSemaforoD1Exit(Sender: TObject);
procedure editSemaforoD2Exit(Sender: TObject);
procedure editBaiaDeVeiculoD1Exit(Sender: TObject);
procedure editVegetacaoD2Exit(Sender: TObject);
procedure editCxDeForcaTelefD2Exit(Sender: TObject);
procedure editOutraInterfD2Exit(Sender: TObject);
procedure editPosteDeSinalizacaoD2Exit(Sender: TObject);
procedure editAlturaDegrauExit(Sender: TObject);
procedure editEscadaD1Exit(Sender: TObject);
procedure editEscadaD2Exit(Sender: TObject);
procedure editEscadaD3Exit(Sender: TObject);
procedure editEscadaD4Exit(Sender: TObject);
procedure editEscadaD5Exit(Sender: TObject);
procedure editEscadaD6Exit(Sender: TObject);
procedure editEscadaD7Exit(Sender: TObject);
procedure editEscadaD8Exit(Sender: TObject);
procedure editEscadaD9Exit(Sender: TObject);
procedure editEscadaD10Exit(Sender: TObject);
procedure editEscadaD11Exit(Sender: TObject);
procedure editRampaD1Exit(Sender: TObject);
procedure editRampaD2Exit(Sender: TObject);
procedure editRampaD3Exit(Sender: TObject);
procedure editRampaD4Exit(Sender: TObject);
procedure editRampaD5Exit(Sender: TObject);
procedure editRampaD6Exit(Sender: TObject);
procedure editRampaD7Exit(Sender: TObject);
procedure editRampaD8Exit(Sender: TObject);
procedure editRampaD9Exit(Sender: TObject);
procedure editRampaD11Exit(Sender: TObject);
procedure editPontoDeTaxiD2Exit(Sender: TObject);
procedure btnLocalizarClick(Sender: TObject);
procedure SpeedButton52Click(Sender: TObject);
procedure btnLocalizar3Click(Sender: TObject);
procedure SpeedButton53Click(Sender: TObject);
procedure SpeedButton54Click(Sender: TObject);
procedure SpeedButton55Click(Sender: TObject);
procedure SpeedButton56Click(Sender: TObject);
procedure SpeedButton57Click(Sender: TObject);
procedure SpeedButton58Click(Sender: TObject);
procedure SpeedButton59Click(Sender: TObject);
procedure SpeedButton60Click(Sender: TObject);
procedure SpeedButton61Click(Sender: TObject);
procedure SpeedButton63Click(Sender: TObject);
procedure SpeedButton64Click(Sender: TObject);
procedure SpeedButton65Click(Sender: TObject);
procedure SpeedButton66Click(Sender: TObject);
procedure SpeedButton67Click(Sender: TObject);
procedure SpeedButton68Click(Sender: TObject);
procedure SpeedButton69Click(Sender: TObject);
procedure SpeedButton70Click(Sender: TObject);
procedure SpeedButton71Click(Sender: TObject);
procedure SpeedButton72Click(Sender: TObject);
procedure SpeedButton73Click(Sender: TObject);
procedure SpeedButton62Click(Sender: TObject);
procedure SpeedButton51Click(Sender: TObject);
procedure SpeedButton74Click(Sender: TObject);
procedure PageControl2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form1PasseioPublico: Tform1PasseioPublico;
nomeTabela: string;

implementation

uses rptCaixaDeInspecao,
rptPontoDeOnibus1, rptTelefonePublico1, rptCaixaDeCorreio1, rptLixeira1,
rptBanco1, rptBanca1, rptBancaDeMercadorias1, rptFloreira1,
rptPontoDeTaxi1, rptPosteDeLuz1, rptPosteDeSinalizacao1,
rptBaiaDeVeiculo1, rptVegetacao1, rptCxForcaTelefonia1,
rptOutroInterferencia1, rptDesnivelTransversal1, rptDegrau1, rptEscada1,
rptRampa1, rptRevistimento1, rptVisita1, frmDMPasseioPublico, rptGrelha1,
rptPasseioPublico1, rptSemaforo1, frmPrincipal;

{$R *.dfm}

// Documentacao
{*——————————————————————————
Ver norma NBR 9050, página 40

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p40.
——————————————————————————-}
procedure Tform1PasseioPublico.editGrelhaD1Exit(Sender: TObject);
begin
Try
{
if editGrelhaD1.Field.Text ’15′ then
MessageDlg(‘altura D1 maior que 15mm’, mtwarning, [mbOk], 0);
Label311.Caption := ‘Atenção: Distancias fora do padrão’;
JvLED1.ColorOn := clRed;
JvLED1.Visible := True;

if editGrelhaD1.Field.text = ’15′ then
Label311.Caption := ‘Distancias dentro do padrão’;
JvLED1.ColorOn := clGreen;
JvLED1.Visible := True;
}
if editGrelhaD1.Field.Text ’15′ then
MessageDlg(‘altura D1 maior que 15mm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A altura deve ser de até 15mm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver norma NBR 9050, página 40

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p40.
——————————————————————————-}
procedure Tform1PasseioPublico.editGrelhaD2Exit(Sender: TObject);
begin
try
if editGrelhaD2.Field.Text ’15′ then
MessageDlg(‘altura D2 maior que 15mm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A altura deve ser de até 15mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform1PasseioPublico.SpeedButton2Click(Sender: TObject);
begin
try
try
rptVisita01 := TrptVisita01.Create(application);
rptVisita01.ComponenteRelatorio.preview;
finally
rptVisita01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptVisita01!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton1Click(Sender: TObject);
begin
Try
DMPasseioPublico.tblVisita.active := False;
DMPasseioPublico.tblVisita.active := True;
Except
MessageDlg(‘Erro ao carregar a tblVisita’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton4Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPasseioPublico.active := False;
DMPasseioPublico.tblPasseioPublico.active := True;
except
MessageDlg(‘Erro ao carregar tblPasseioPublico’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton5Click(Sender: TObject);
begin
try
DMPasseioPublico.tblGrelha.active := False;
DMPasseioPublico.tblGrelha.active := True;
except
MessageDlg(‘Erro ao carregar tblGrelha’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton6Click(Sender: TObject);
begin
try
DMPasseioPublico.tblCxDeInspecao.active := False;
DMPasseioPublico.tblCxDeInspecao.active := True;
except
MessageDlg(‘Erro ao carregar tblCxDeInspecao’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton7Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeOnibus.active := False;
DMPasseioPublico.tblPontoDeOnibus.active := True;
except
MessageDlg(‘Erro ao carregar tblPontoDeOnibus’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton8Click(Sender: TObject);
begin
Try
DMPasseioPublico.tblTelefonePublico.active := False;
DMPasseioPublico.tblTelefonePublico.active := True;
except
MessageDlg(‘Erro ao carregar tblTelefonePublico’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton9Click(Sender: TObject);
begin
Try
DMPasseioPublico.tblCaixaDeCorreio.active := False;
DMPasseioPublico.tblCaixaDeCorreio.active := True;
except
MessageDlg(‘Erro ao carregar tblCaixaDeCorreio’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton10Click(Sender: TObject);
begin
try
DMPasseioPublico.tblLixeira.active := False;
DMPasseioPublico.tblLixeira.active := True;
except
MessageDlg(‘Erro ao carregar tblLixeira’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton11Click(Sender: TObject);
begin
try
DMPasseioPublico.tblBanco.active := False;
DMPasseioPublico.tblBanco.active := True;
except
MessageDlg(‘Erro ao carregar tblBanco’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton12Click(Sender: TObject);
begin
try
DMPasseioPublico.tblBanca.active := False;
DMPasseioPublico.tblBanca.active := True;
except
MessageDlg(‘Erro ao carregar tblBanca’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton13Click(Sender: TObject);
begin
try
DMPasseioPublico.tblBancaDeMercadorias.active := False;
DMPasseioPublico.tblBancaDeMercadorias.active := True;
except
MessageDlg(‘Erro ao carregar tblBancaDeMercadorias’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton14Click(Sender: TObject);
begin
try
DMPasseioPublico.tblFloreira.active := False;
DMPasseioPublico.tblFloreira.active := True;
except
MessageDlg(‘Erro ao carregar tblFloreira’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton26Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.active := False;
DMPasseioPublico.tblPontoDeTaxi.active := True;
except
MessageDlg(‘Erro ao carregar tblPontoDeTaxi’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton15Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPosteDeLuz.active := False;
DMPasseioPublico.tblPosteDeLuz.active := True;
except
MessageDlg(‘Erro ao carregar tblPosteDeLuz’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton16Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPosteDeSinalizacao.active := False;
DMPasseioPublico.tblPosteDeSinalizacao.active := True;
except
MessageDlg(‘Erro ao carregar tblPosteDeSinalizacao’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton17Click(Sender: TObject);
begin
try
DMPasseioPublico.tblBaiaDeVeiculos.active := False;
DMPasseioPublico.tblBaiaDeVeiculos.active := True;
except
MessageDlg(‘Erro ao carregar tblBaiaDeVeiculos’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton18Click(Sender: TObject);
begin
try
DMPasseioPublico.tblVegetacao.active := False;
DMPasseioPublico.tblVegetacao.active := True;
except
MessageDlg(‘Erro ao carregar tblVegetacao’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton19Click(Sender: TObject);
begin
try
DMPasseioPublico.CxForcaTelefonia.active := False;
DMPasseioPublico.CxForcaTelefonia.active := True;
except
MessageDlg(‘Erro ao carregar CxForcaTelefonia’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton20Click(Sender: TObject);
begin
try
DMPasseioPublico.tblOutraInterferencia.active := False;
DMPasseioPublico.tblOutraInterferencia.active := True;
except
MessageDlg(‘Erro ao carregar tblOutraInterferencia’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton21Click(Sender: TObject);
begin
try
DMPasseioPublico.tblDesnivelTransversal.active := False;
DMPasseioPublico.tblDesnivelTransversal.active := True;
except
MessageDlg(‘Erro ao carregar tblDesnivelTransversal’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton22Click(Sender: TObject);
begin
Try
DMPasseioPublico.tblDegrau.active := False;
DMPasseioPublico.tblDegrau.active := True;
except
MessageDlg(‘Erro ao carregar tblDegrau’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton23Click(Sender: TObject);
begin
Try
DMPasseioPublico.tblEscada.active := False;
DMPasseioPublico.tblEscada.active := True;
except
MessageDlg(‘Erro ao carregar tblEscada’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton24Click(Sender: TObject);
begin
Try
DMPasseioPublico.tblRampa.active := False;
DMPasseioPublico.tblRampa.active := True;
except
MessageDlg(‘Erro ao carregar tblRampa’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton25Click(Sender: TObject);
begin
try
DMPasseioPublico.tblRevestimento.active := False;
DMPasseioPublico.tblRevestimento.active := True;
except
MessageDlg(‘Erro ao carregar tblRevestimento’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton27Click(Sender: TObject);
begin
try
try
rptPasseioPublico01 := TrptPasseioPublico01.Create(application);
rptPasseioPublico01.ComponenteRelatorio.preview;
finally
rptPasseioPublico01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptPasseioPublico01!’, mtwarning, [mbOk], 0);
end;
{
try
rptPasseioPublico01.ComponenteRelatorio.Preview;
except
MessageDlg(‘Erro ao carregar relatório rptPasseioPublico01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton29Click(Sender: TObject);
begin
try
try
rptCaixaDeInspecao01 := TrptCaixaDeInspecao01.Create(application);
rptCaixaDeInspecao01.ComponenteRelatorio.preview;
finally
rptCaixaDeInspecao01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptVisita01!’, mtwarning, [mbOk], 0);
end;
{
try
rptCaixaDeInspecao01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptCaixaDeInspecao’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.Button1Click(Sender: TObject);
var
strsql: string;
nomeTabela: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CodVisita = ‘ + #39 + Edit1.Text + #39;
DMPasseioPublico.ADOQryVisita.Close;
DMPasseioPublico.ADOQryVisita.SQL.clear;
DMPasseioPublico.ADOQryVisita.SQL.add(strsql);
DMPasseioPublico.ADOQryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton30Click(Sender: TObject);
begin
try
try
rptPontoDeOnibus01 := TrptPontoDeOnibus01.Create(application);
rptPontoDeOnibus01.ComponenteRelatorio.preview;
finally
rptPontoDeOnibus01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptPontoDeOnibus01!’, mtwarning, [mbOk], 0);
end;
{
try
rptPontoDeOnibus01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptPontoDeOnibus’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton31Click(Sender: TObject);
begin
try
try
rptTelefonePublico01 := TrptTelefonePublico01.Create(application);
rptTelefonePublico01.ComponenteRelatorio.preview;
finally
rptTelefonePublico01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptTelefonePublico01!’, mtwarning, [mbOk], 0);
end;
{
try
rptTelefonePublico01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptTelefonePublico01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton32Click(Sender: TObject);
begin
try
try
rptCaixaDeCorreio01 := TrptCaixaDeCorreio01.Create(application);
rptCaixaDeCorreio01.ComponenteRelatorio.preview;
finally
rptCaixaDeCorreio01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptCaixaDeCorreio01!’, mtwarning, [mbOk], 0);
end;
{
try
rptCaixaDeCorreio01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptCaixaDeCorreio01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton33Click(Sender: TObject);
begin
try
try
rptLixeira01 := TrptLixeira01.Create(application);
rptLixeira01.ComponenteRelatorio.preview;
finally
rptLixeira01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptLixeira01!’, mtwarning, [mbOk], 0);
end;
{
try
rptLixeira01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptLixeira01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton34Click(Sender: TObject);
begin
try
try
rptBanco01 := TrptBanco01.Create(application);
rptBanco01.ComponenteRelatorio.preview;
finally
rptBanco01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptBanco01!’, mtwarning, [mbOk], 0);
end;
{
try
rptBanco01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptBanco01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton35Click(Sender: TObject);
begin
try
try
rptBanca01 := TrptBanca01.Create(application);
rptBanca01.ComponenteRelatorio.preview;
finally
rptBanca01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptBanca01!’, mtwarning, [mbOk], 0);
end;
{
try
rptBanca01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptBanca01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton36Click(Sender: TObject);
begin
try
try
rptBancaDeMercadorias01 := TrptBancaDeMercadorias01.Create(application);
rptBancaDeMercadorias01.ComponenteRelatorio.preview;
finally
rptBancaDeMercadorias01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptBancaDeMercadorias01!’, mtwarning, [mbOk], 0);
end;
{
try
rptBancaDeMercadorias01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptBancaDeMarcadorias01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton37Click(Sender: TObject);
begin
try
try
rptFloreira01 := TrptFloreira01.Create(application);
rptFloreira01.ComponenteRelatorio.preview;
finally
rptFloreira01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptFloreira01!’, mtwarning, [mbOk], 0);
end;
{
try
rptFloreira01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptFloreira01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton38Click(Sender: TObject);
begin
try
try
rptPontoDeTaxi01 := TrptPontoDeTaxi01.Create(application);
rptPontoDeTaxi01.ComponenteRelatorio.preview;
finally
rptPontoDeTaxi01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptPontoDeTaxi01!’, mtwarning, [mbOk], 0);
end;
{
Try
rptPontoDeTaxi01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptPontoDeTaxi01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton39Click(Sender: TObject);
begin
try
try
rptPosteDeLuz01 := TrptPosteDeLuz01.Create(application);
rptPosteDeLuz01.ComponenteRelatorio.preview;
finally
rptPosteDeLuz01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptPosteDeLuz01!’, mtwarning, [mbOk], 0);
end;
{
try
rptPosteDeLuz01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptPosteDeLuz01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton40Click(Sender: TObject);
begin
try
try
rptPosteDeSinalizacao01 := TrptPosteDeSinalizacao01.Create(application);
rptPosteDeSinalizacao01.ComponenteRelatorio.preview;
finally
rptPosteDeSinalizacao01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptPosteDeSinalizacao01!’, mtwarning, [mbOk], 0);
end;
{
try
rptPosteDeSinalizacao01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptPosteDeSinalizacao’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton41Click(Sender: TObject);
begin
try
try
rptBaiaDeVeiculo01 := TrptBaiaDeVeiculo01.Create(application);
rptBaiaDeVeiculo01.ComponenteRelatorio.preview;
finally
rptBaiaDeVeiculo01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptBaiaDeVeiculo01!’, mtwarning, [mbOk], 0);
end;
{
try
rptBaiaDeVeiculo01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptBaiaDeVeiculo01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton42Click(Sender: TObject);
begin
try
try
rptVegetacao01 := TrptVegetacao01.Create(application);
rptVegetacao01.ComponenteRelatorio.preview;
finally
rptVegetacao01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptVegetacao01!’, mtwarning, [mbOk], 0);
end;
{
Try
rptVegetacao01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptVegetacao01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton43Click(Sender: TObject);
begin
try
try
rptCxForcaTelefonia01 := TrptCxForcaTelefonia01.Create(application);
rptCxForcaTelefonia01.ComponenteRelatorio.preview;
finally
rptCxForcaTelefonia01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptCxForcaTelefonia01!’, mtwarning, [mbOk], 0);
end;
{
try
rptCxForcaTelefonia01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptCxForcaTelefonia01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton44Click(Sender: TObject);
begin
try
try
rptOutroInterferencia01 := TrptOutroInterferencia01.Create(application);
rptOutroInterferencia01.ComponenteRelatorio.preview;
finally
rptOutroInterferencia01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptOutroInterferencia01!’, mtwarning, [mbOk], 0);
end;
{
try
rptOutroInterferencia01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptOutroInterferencia01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton45Click(Sender: TObject);
begin
try
try
rptDesnivelTransversal01 := TrptDesnivelTransversal01.Create(application);
rptDesnivelTransversal01.ComponenteRelatorio.preview;
finally
rptDesnivelTransversal01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptDesnivelTransversal01!’, mtwarning, [mbOk], 0);
end;
{
try
rptDesnivelTransversal01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptDesnivelTransversal01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton46Click(Sender: TObject);
begin
try
try
rptDegrau01 := TrptDegrau01.Create(application);
rptDegrau01.ComponenteRelatorio.preview;
finally
rptDegrau01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptDegrau01!’, mtwarning, [mbOk], 0);
end;
{
Try
rptDegrau01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptDegrau01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton47Click(Sender: TObject);
begin
try
try
rptEscada01 := TrptEscada01.Create(application);
rptEscada01.ComponenteRelatorio.preview;
finally
rptEscada01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptEscada01!’, mtwarning, [mbOk], 0);
end;
{
try
rptEscada01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptEscada01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton48Click(Sender: TObject);
begin
try
try
rptRampa01 := TrptRampa01.Create(application);
rptRampa01.ComponenteRelatorio.preview;
finally
rptRampa01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptRampa01!’, mtwarning, [mbOk], 0);
end;
{
try
rptRampa01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptRampa01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.SpeedButton49Click(Sender: TObject);
begin
try
try
rptRevestimento01 := TrptRevestimento01.Create(application);
rptRevestimento01.ComponenteRelatorio.preview;
finally
rptRevestimento01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptRevestimento01!’, mtwarning, [mbOk], 0);
end;
{
try
rptRevestimento01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptRevestimento01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;

begin
for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator3).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator4).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator5).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator6).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator7).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator8).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator9).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator10).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator11).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator12).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator13).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator14).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator25).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator15).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator16).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;

with TMeuDBNavigator(DBNavigator17).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator18).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator19).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator24).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;

with TMeuDBNavigator(DBNavigator20).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator21).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator22).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator23).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;
for x:= 0 to DMPasseioPublico.ComponentCount-1 do
begin
Temp := DMPasseioPublico.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;
// coloca a página Dados da visita em primeiro plano
PageControl1.ActivePage := TabSheet1;

{
DMPasseioPublico.ADOConnection1.ConnectionString := ‘C:\sistemavistoria1\fontes\bancodedados.udl’;
DMPasseioPublico.ADOConnection1.Connected := True;
DMPasseioPublico.ADOQryVisita.active := True;
}

DMPasseioPublico.ADOQryVisita.active := True;
DMPasseioPublico.tblVisita.active := True;
DMPasseioPublico.tblFiscal.active := True;
DMPasseioPublico.tblEmpresa.active := True;
DMPasseioPublico.tblPasseioPublico.active := True;
DMPasseioPublico.tblGrelha.active := True;
DMPasseioPublico.tblCxDeInspecao.active := True;
DMPasseioPublico.tblPontoDeOnibus.active := True;
DMPasseioPublico.tblTelefonePublico.active := True;
DMPasseioPublico.tblLixeira.active := True;
DMPasseioPublico.tblFloreira.active := True;
DMPasseioPublico.tblPontoDeTaxi.active := True;
DMPasseioPublico.tblPosteDeLuz.active := True;
DMPasseioPublico.tblPosteDeSinalizacao.active := True;
DMPasseioPublico.tblCaixaDeCorreio.active := True;
DMPasseioPublico.tblBanco.active := True;
DMPasseioPublico.tblBanca.active := True;
DMPasseioPublico.tblBaiaDeVeiculos.active := True;
DMPasseioPublico.tblVegetacao.active := True;
DMPasseioPublico.CxForcaTelefonia.active := True;
DMPasseioPublico.tblOutraInterferencia.active := True;
DMPasseioPublico.tblBancaDeMercadorias.active := True;
DMPasseioPublico.tblDesnivelTransversal.active := True;
DMPasseioPublico.tblDegrau.active := True;
DMPasseioPublico.tblEscada.active := True;
DMPasseioPublico.tblRampa.active := True;
DMPasseioPublico.tblRevestimento.active := True;
DMPasseioPublico.tblSemaforo.active := True;

//carrega figuras durante execução
{
ImagemGrelha.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig1Grelha.jpg’);
imagemCxInspecao1.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig2cxinspecao1.jpg’);
imagemCxInspecao2.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig3cxinspecao2.jpg’);
imagemPontoDeOnibus.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig4pontodeonibus.jpg’);
imagemTelefonePublico1.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig5telefonepublico.jpg’);
imagemTelefonePublico2.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig6telefonepublico2.jpg’);
imagemCaixaDeCorreio.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig7cxcorreio.jpg’);
imagemLixeira.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig8lixeira.jpg’);
imagemBanco.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig9banco.jpg’);
imagemBanca.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig10banca.jpg’);
imagemBancaDeMercadorias.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig11bancademercadorias.jpg’);
imagemFloreira.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig12Floreira.jpg’);
imagemPontoDeTaxi.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig13pontodetaxi.jpg’);
imagemPosteDeLuz.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig14postedeluz.jpg’);
imagemSemaforo.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig15semaforo.jpg’);
imagemPosteDeSinalizacao.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig16postedesinalizacao.jpg’);
imagemBaiaDeVeiculo.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig17baiadeveiculos.jpg’);
imagemVegetacao.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig18vegetacao.jpg’);
imagemCxForcaTelefonia.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig19cxforca_telefonia.jpg’);
imagemOutraInterferencia.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig20outrainterferencia.jpg’);
imagemEscada.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig21escada.jpg’);
imagemRampa.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig22rampa.jpg’);
}
//

end;

procedure Tform1PasseioPublico.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
DMPasseioPublico.ADOQryVisita.active := False;
DMPasseioPublico.tblVisita.active := False;
DMPasseioPublico.tblFiscal.active := False;
DMPasseioPublico.tblEmpresa.active := False;
DMPasseioPublico.tblPasseioPublico.active := False;
DMPasseioPublico.tblGrelha.active := False;
DMPasseioPublico.tblCxDeInspecao.active := False;
DMPasseioPublico.tblPontoDeOnibus.active := False;
DMPasseioPublico.tblTelefonePublico.active := False;
DMPasseioPublico.tblLixeira.active := False;
DMPasseioPublico.tblFloreira.active := False;
DMPasseioPublico.tblPontoDeTaxi.active := False;
DMPasseioPublico.tblPosteDeLuz.active := False;
DMPasseioPublico.tblPosteDeSinalizacao.active := False;
DMPasseioPublico.tblCaixaDeCorreio.active := False;
DMPasseioPublico.tblBanco.active := False;
DMPasseioPublico.tblBanca.active := False;
DMPasseioPublico.tblBaiaDeVeiculos.active := False;
DMPasseioPublico.tblVegetacao.active := False;
DMPasseioPublico.CxForcaTelefonia.active := False;
DMPasseioPublico.tblOutraInterferencia.active := False;
DMPasseioPublico.tblBancaDeMercadorias.active := False;
DMPasseioPublico.tblDesnivelTransversal.active := False;
DMPasseioPublico.tblDegrau.active := False;
DMPasseioPublico.tblEscada.active := False;
DMPasseioPublico.tblRampa.active := False;
DMPasseioPublico.tblRevestimento.active := False;
DMPasseioPublico.tblSemaforo.active := False;
}

//libera figuras ao fechar o formulario
{
ImagemGrelha.Picture.free;
imagemCxInspecao1.Picture.free;
imagemCxInspecao2.Picture.free;
imagemPontoDeOnibus.Picture.free;
imagemTelefonePublico1.Picture.free;
imagemTelefonePublico2.Picture.free;
imagemCaixaDeCorreio.Picture.free;
imagemLixeira.Picture.free;
imagemBanco.Picture.free;
imagemBanca.Picture.free;
imagemBancaDeMercadorias.Picture.free;
imagemFloreira.Picture.free;
imagemPontoDeTaxi.Picture.free;
imagemPosteDeLuz.Picture.free;
imagemSemaforo.Picture.free;
imagemPosteDeSinalizacao.Picture.free;
imagemBaiaDeVeiculo.Picture.free;
imagemVegetacao.Picture.free;
imagemCxForcaTelefonia.Picture.free;
imagemOutraInterferencia.Picture.free;
imagemEscada.Picture.free;
imagemRampa.Picture.free;
//
}

end;

procedure Tform1PasseioPublico.PageControl1Change(Sender: TObject);
begin
PageControl2.ActivePage := TabSheet22;
end;

procedure Tform1PasseioPublico.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if odd(DMPasseioPublico.ADOQryVisita.RecNo) then
DBGrid1.Canvas.Brush.Color:= clmenubar
else
DBGrid1.Canvas.Brush.Color:= clCream;
TDbGrid(Sender).Canvas.font.Color:= clBlack;
if gdSelected in State then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color := clmoneygreen;
FillRect(Rect);
Font.Style := [fsbold]
end;
TDbGrid(Sender).DefaultDrawDataCell(Rect, TDbGrid(Sender).columns[datacol].field, State);
end;

procedure Tform1PasseioPublico.SpeedButton28Click(Sender: TObject);
begin
//rptGrelha01

try
try
rptGrelha01 := TrptGrelha01.Create(application);
rptGrelha01.ComponenteRelatorio.preview;
finally
rptGrelha01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptGrelha01!’, mtwarning, [mbOk], 0);
end;

{
try
rptGrelha01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao tentar chamar o relatorio rptGrelha01′, mtwarning, [mbOk], 0);
end;
}
end;

// Documentacao
{*——————————————————————————
Ver norma NBR 9050, página 40

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p40.
——————————————————————————-}
procedure Tform1PasseioPublico.editCxInspecaoA1Exit(Sender: TObject);
begin
Try
if editCxInspecaoA1.Field.Text ’15′ then
MessageDlg(‘altura A1 maior que 15mm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A altura deve ser de até 15mm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver norma NBR 9050, página 40

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p40.
——————————————————————————-}
procedure Tform1PasseioPublico.editCxInspecaoA2Exit(Sender: TObject);
begin
Try
if editCxInspecaoA1.Field.Text ’15′ then
MessageDlg(‘altura A2 maior que 15mm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A altura deve ser de até 15mm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver Mobilidade acessível a cidade de SP, página 116 e NBR 9050 P.37

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessível, p116 + NBR 9050 p.37
——————————————————————————-}
procedure Tform1PasseioPublico.editPontoDeOnibusD1Exit(Sender: TObject);
begin
try
if editPontoDeOnibusD1.Field.Text ’100′ then
MessageDlg(‘altura D1 maior que 100cm (1m)’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘Distâncias devem estar entre 75mm a 100mm(1m)’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.editPontoDeOnibusD2Exit(Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
end;

// Documentacao
{*——————————————————————————
Ver Mobilidade acessível a cidade de SP, página 116 e NBR 9050 P.37

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessível, p116 + NBR 9050 p.37
——————————————————————————-}
procedure Tform1PasseioPublico.editPontoDeOnibusD3Exit(Sender: TObject);
begin
try
if editPontoDeOnibusD2.Field.Text < '50' then
MessageDlg('altura D1 deve ter 50cm min.', mtwarning, [mbOk], 0);
Except
MessageDlg('A distância mínima deve ter 50cm min.!', mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver Mobilidade acessível a cidade de SP, página 116 e NBR 9050 P.37

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessível, p116 + NBR 9050 p.37
——————————————————————————-}
procedure Tform1PasseioPublico.editPontoDeOnibusD4Exit(Sender: TObject);
begin
try
if editPontoDeOnibusD4.Field.Text ’60′ then
MessageDlg(‘altura D1 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘Distâncias devem estar entre 25cm e 60cm’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.editTelefonePublicoD1Exit(Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
{
Try
if editTelefonePublicoD1.Field.Text ’15′ then
MessageDlg(‘altura D1 maior que 15mm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A altura deve ser de até 15mm!’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform1PasseioPublico.editTelefonePublicoD2Exit(Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
{
Try
if editTelefonePublicoD1.Field.Text ’15′ then
MessageDlg(‘altura D1 maior que 15mm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A altura deve ser de até 15mm!’, mtwarning, [mbOk], 0);
end;
}
end;

// Documentacao
{*——————————————————————————
Ver Manual de instrucoes tecnicas de acessibilidade, p. 11

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessivel na cidade de Sao Paulo, p. 95
——————————————————————————-}
procedure Tform1PasseioPublico.editTelefonePublicoD3Exit(Sender: TObject);
begin
Try
if editTelefonePublicoD3.Field.Text ’60′ then
MessageDlg(‘Distancia D3 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver Manual de instrucoes tecnicas de acessibilidade, p. 11

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessivel na cidade de Sao Paulo, p. 95
——————————————————————————-}
procedure Tform1PasseioPublico.editTelefonePublicoD4Exit(Sender: TObject);
begin
Try
if editTelefonePublicoD4.Field.Text ’60′ then
MessageDlg(‘Distancia D4 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;

end;

// Documentacao
{*——————————————————————————
Ver Manual de instrucoes tecnicas de acessibilidade, p. 11

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessivel na cidade de Sao Paulo, p. 95
——————————————————————————-}
procedure Tform1PasseioPublico.editTelefonePublicoD5Exit(Sender: TObject);
begin
Try
if editTelefonePublicoD5.Field.Text ’60′ then
MessageDlg(‘Distancia D4 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;

end;

// Documentacao
{*——————————————————————————
Ver Manual de instrucoes tecnicas de acessibilidade, p. 11

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessivel na cidade de Sao Paulo, p. 95
——————————————————————————-}
procedure Tform1PasseioPublico.editTelefonePublicoD6Exit(Sender: TObject);
begin
Try
if editTelefonePublicoD6.Field.Text ’60′ then
MessageDlg(‘Distancia D6 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform1PasseioPublico.editTelefonePublicoAlturaExit(
Sender: TObject);
begin
Try
if editTelefonePublicoAltura.Field.Text ’120′ then
MessageDlg(‘Altura maior que 120cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 60 e 120cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
Mobilidade acessivel na cidade de Sao Paulo, p. 95

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 31
——————————————————————————-}
procedure Tform1PasseioPublico.editCXCorreioD1Exit(Sender: TObject);
begin
Try
if editCXCorreioD1.Field.Text ’60′ then
MessageDlg(‘Distancia D1 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
Mobilidade acessivel na cidade de Sao Paulo, p. 95

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 31
——————————————————————————-}
procedure Tform1PasseioPublico.editCXCorreioD2Exit(Sender: TObject);
begin
Try
if editCXCorreioD2.Field.Text ’60′ then
MessageDlg(‘Distancia D2 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
Mobilidade acessivel na cidade de Sao Paulo, p. 95

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 31
——————————————————————————-}
procedure Tform1PasseioPublico.editCXCorreioD3Exit(Sender: TObject);
begin
Try
if editCXCorreioD3.Field.Text ’60′ then
MessageDlg(‘Distancia D3 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
Mobilidade acessivel na cidade de Sao Paulo, p. 95

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 31
——————————————————————————-}
procedure Tform1PasseioPublico.editCXCorreioD4Exit(Sender: TObject);
begin
Try
if editCXCorreioD4.Field.Text ’60′ then
MessageDlg(‘Distancia D4 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
Mobilidade acessivel na cidade de Sao Paulo, p. 95

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 31
——————————————————————————-}
procedure Tform1PasseioPublico.editLixeiraD1Exit(Sender: TObject);
begin
Try
if editTelefonePublicoD1.Field.Text ’60′ then
MessageDlg(‘Distancia D1 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
Mobilidade acessivel na cidade de Sao Paulo, p. 95

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 31
——————————————————————————-}
procedure Tform1PasseioPublico.editLixeiraD2Exit(Sender: TObject);
begin
Try
if editTelefonePublicoD2.Field.Text ’60′ then
MessageDlg(‘Distancia D2 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
Mobilidade acessivel na cidade de Sao Paulo, p. 95

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 31
——————————————————————————-}
procedure Tform1PasseioPublico.editLixeiraD3Exit(Sender: TObject);
begin
Try
if editTelefonePublicoD3.Field.Text ’60′ then
MessageDlg(‘Distancia D3 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
Mobilidade acessivel na cidade de Sao Paulo, p. 95

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 31
——————————————————————————-}
procedure Tform1PasseioPublico.editLixeiraD4Exit(Sender: TObject);
begin
Try
if editTelefonePublicoD4.Field.Text ’60′ then
MessageDlg(‘Distancia D4 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.editCXCorreioAlturaExit(Sender: TObject);
begin
Try
if editCXCorreioAltura.Field.Text ’120′ then
MessageDlg(‘Altura maior que 120cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 60 e 120cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
Mobilidade acessivel na cidade de Sao Paulo, p. 95

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 31
——————————————————————————-}
procedure Tform1PasseioPublico.editLixeiraAlturaExit(Sender: TObject);
begin
Try
if editLixeiraAltura.Field.Text ’120′ then
MessageDlg(‘Altura maior que 120cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 60 e 120cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 93
——————————————————————————-}
procedure Tform1PasseioPublico.editBancoD1Exit(Sender: TObject);
begin
Try
if editBancoD1.Field.Text ’120′ then
MessageDlg(‘Distancia D1 maior que 120cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distância deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 93
——————————————————————————-}
procedure Tform1PasseioPublico.editBancoD2Exit(Sender: TObject);
begin
Try
if editBancoD1.Field.Text ’80′ then
MessageDlg(‘Distancia D2 maior que 80cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distância deve ser de 80cm!!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 93
——————————————————————————-}
procedure Tform1PasseioPublico.editBancoD3Exit(Sender: TObject);
begin
Try
if editBancoD3.Field.Text ’240′ then
MessageDlg(‘Distancia D3 maior que 240cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distância deve ser de 240cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: verificar valores para D1 e D2

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@comment verificar valores!
——————————————————————————-}
procedure Tform1PasseioPublico.editBancaD1Exit(Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
end;

// Documentacao
{*——————————————————————————
Ver: verificar valores para D1 e D2

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@comment verificar valores!
——————————————————————————-}
procedure Tform1PasseioPublico.editBancaD2Exit(Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
end;

// Documentacao
{*——————————————————————————
Ver: verificar valores para D1 e D2

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@comment verificar valores!
——————————————————————————-}
procedure Tform1PasseioPublico.editBancaDeMarcedoriasD1Exit(
Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
end;

// Documentacao
{*——————————————————————————
Ver: verificar valores para D1 e D2

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@comment verificar valores!
——————————————————————————-}
procedure Tform1PasseioPublico.editBancaDeMarcedoriasD2Exit(
Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
end;

// Documentacao
{*——————————————————————————
Ver: verificar valores para D1 e D2

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@comment verificar valores!
——————————————————————————-}
procedure Tform1PasseioPublico.editCxInspecaoD1Exit(Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
end;

// Documentacao
{*——————————————————————————
Ver: verificar valores para D1 e D2

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@comment verificar valores!
——————————————————————————-}
procedure Tform1PasseioPublico.editCxInspecaoD2Exit(Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
Try
if editCxInspecaoD2.Field.Text ’120′ then
MessageDlg(‘Distancia D2 maior que 120cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘As medidas devem estar entre 60 e 120cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.editFloreiraD1Exit(Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
end;

procedure Tform1PasseioPublico.editFloreiraD2Exit(Sender: TObject);
begin
// Consulte NBR 9050 para maiores detalhes
end;

// Documentacao
{*——————————————————————————
Ver Mobilidade acessível na cidade de SP, página 116 e NBR 9050 P.37

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessível, p116 + NBR 9050 p.37
——————————————————————————-}
procedure Tform1PasseioPublico.editPontoDeTaxiD1Exit(Sender: TObject);
begin
Try
if editPontoDeTaxiD1.Field.Text = ’100′ then
MessageDlg(‘A distancia digitada é maior que 100 cm, deve estar entre 75-100!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 75 e 100 cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver Mobilidade acessível na cidade de SP, página 116 e NBR 9050 P.37

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessível, p116 + NBR 9050 p.37
——————————————————————————-}
procedure Tform1PasseioPublico.editPontoDeTaxiD3Exit(Sender: TObject);
begin
Try
if editPontoDeTaxiD3.Field.Text = ’50′ then
MessageDlg(‘A distancia digitada é maior que 50cm, deve ser de 50cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 50cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver Mobilidade acessível na cidade de SP, página 116 e NBR 9050 P.37

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessível, p116 + NBR 9050 p.37
——————————————————————————-}
procedure Tform1PasseioPublico.editPontoDeTaxiD4Exit(Sender: TObject);
begin
Try
if editPontoDeTaxiD4.Field.Text = ’60′ then
MessageDlg(‘A distancia digitada é maior que 60cm, deve ser de 60cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver Mobilidade acessível na cidade de SP, página 115

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessível, p. 115
——————————————————————————-}
procedure Tform1PasseioPublico.editPosteDeLuzD1Exit(Sender: TObject);
begin
try
if editPosteDeLuzD1.Field.Text ’60′ then
MessageDlg(‘D1 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘D1 deverá estar distante no minimo 60cm do bordo da guia’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver Mobilidade acessível na cidade de SP, página 115
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessível, p. 115
——————————————————————————-}
procedure Tform1PasseioPublico.editPosteDeLuzD2Exit(Sender: TObject);
begin
try
if editPosteDeLuzD2.Field.Text ’60′ then
MessageDlg(‘D2 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘D2 deverá estar distante no minimo 60cm do bordo da guia’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Mobilidade acessivel na cidade de Sao Paulo, p. 115
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessivel na cidade de Sao Paulo, p. 115
——————————————————————————-}
procedure Tform1PasseioPublico.editSemaforoD1Exit(Sender: TObject);
begin
try
if editSemaforoD1.Field.Text ’60′ then
MessageDlg(‘D1 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘D1 deverá estar distante no minimo 60cm do bordo da guia’, mtwarning, [mbOk], 0);
end;
end;

{*——————————————————————————
Ver: Mobilidade acessivel na cidade de Sao Paulo, p. 115

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessivel na cidade de Sao Paulo, p. 115
——————————————————————————-}
procedure Tform1PasseioPublico.editSemaforoD2Exit(Sender: TObject);
begin
try
if editSemaforoD2.Field.Text ’60′ then
MessageDlg(‘D2 maior que 60cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘D2 deverá estar distante no minimo 60cm do bordo da guia’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: NBR 9050, p. 63

@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment NBR 9050, p. 63
——————————————————————————-}
procedure Tform1PasseioPublico.editBaiaDeVeiculoD1Exit(Sender: TObject);
begin
Try
if editBaiaDeVeiculoD1.Field.Text ’150′ then
MessageDlg(‘Distancia maior que 150cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia D1 deve ser de 150cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 11
——————————————————————————-}
procedure Tform1PasseioPublico.editVegetacaoD2Exit(Sender: TObject);
begin
Try
if editVegetacaoD2.Field.Text ’120′ then
MessageDlg(‘distancia maior que 120cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia D2 deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 11
——————————————————————————-}
procedure Tform1PasseioPublico.editCxDeForcaTelefD2Exit(Sender: TObject);
begin
Try
if editCxDeForcaTelefD2.Field.Text ’120′ then
MessageDlg(‘Distancia D2 maior que 120cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia D2 deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 11
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 11
——————————————————————————-}
procedure Tform1PasseioPublico.editOutraInterfD2Exit(Sender: TObject);
begin
Try
if editCxDeForcaTelefD2.Field.Text ’120′ then
MessageDlg(‘Distancia D2 maior que 120cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia D2 deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Mobilidade acessivel na cidade de Sao Paulo, p. 115
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Mobilidade acessivel na cidade de Sao Paulo, p. 115
——————————————————————————-}
procedure Tform1PasseioPublico.editPosteDeSinalizacaoD2Exit(
Sender: TObject);
begin
Try
if editPosteDeSinalizacaoD2.Field.Text ’120′ then
MessageDlg(‘Distancia D2 maior que 120cm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia D2 deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.editAlturaDegrauExit(Sender: TObject);
begin
Try
if editAlturaDegrau.Field.Text = ’19′ then
MessageDlg(‘A altura digitada é maior que 18 cm, deve estar entre 15-18!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A altura deve estar entre 15 e 18 cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD1Exit(Sender: TObject);
begin
Try
if editEscadaD1.Field.Text ’4′ then
MessageDlg(‘A distancia digitada é maior que 4 cm, deve ser no mínimo 4cm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de 4cm min.!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD2Exit(Sender: TObject);
begin
Try
if editEscadaD2.Field.Text ’45′ then
MessageDlg(‘A distancia digitada é maior que 45mm, deve estar entre 30 e 45mm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve estar entre 30 e 45mm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD3Exit(Sender: TObject);
begin
Try
if editEscadaD3.Field.Text ’92′ then
MessageDlg(‘A distancia digitada é maior que 92cm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de 92cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD4Exit(Sender: TObject);
begin
Try
if editEscadaD4.Field.Text ’70′ then
MessageDlg(‘A distancia digitada é maior que 70cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 70cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD5Exit(Sender: TObject);
begin
Try
if editEscadaD3.Field.Text ’18′ then
MessageDlg(‘A distancia digitada é maior que 18cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve estar entre 16 e 18cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD6Exit(Sender: TObject);
begin
Try
if editEscadaD6.Field.Text ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD7Exit(Sender: TObject);
begin
Try
if editEscadaD7.Field.Text ’60′ then
MessageDlg(‘A distancia digitada é maior que 60cm! Deve estar entre 25 e 60cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD8Exit(Sender: TObject);
begin
Try
if editEscadaD8.Field.Text ’60′ then
MessageDlg(‘A distancia digitada é maior que 60cm! Deve estar entre 25 e 60cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD9Exit(Sender: TObject);
begin
Try
if editEscadaD9.Field.Text ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm! Deve ser ter um mínimo de 120cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ter um mínimo de 120cm’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD10Exit(Sender: TObject);
begin
Try
if editEscadaD10.Field.Text ’32′ then
MessageDlg(‘A distancia digitada é maior que 32mm, deve estar entre 28 e 32mm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve estar entre 28 e 32mm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 18
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 18
——————————————————————————-}
procedure Tform1PasseioPublico.editEscadaD11Exit(Sender: TObject);
begin
Try
if editEscadaD9.Field.Text ’30′ then
MessageDlg(‘A distancia digitada é maior que 30cm! Deve ser de 30cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 30cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD1Exit(Sender: TObject);
begin
Try
if editRampaD1.Field.Text ’4′ then
MessageDlg(‘A distancia digitada é maior que 4 cm, deve ser no mínimo 4cm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de 4cm min.!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD2Exit(Sender: TObject);
begin
Try
if editRampaD2.Field.Text ’45′ then
MessageDlg(‘A distancia digitada é maior que 45mm, deve estar entre 30 e 45mm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve estar entre 30 e 45mm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD3Exit(Sender: TObject);
begin
Try
if editRampaD3.Field.Text ’92′ then
MessageDlg(‘A distancia digitada é maior que 92cm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de 92cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD4Exit(Sender: TObject);
begin
Try
if editRampaD4.Field.Text ’70′ then
MessageDlg(‘A distancia digitada é maior que 70cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 70cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD5Exit(Sender: TObject);
begin
Try
if editRampaD5.Field.Text ’5′ then
MessageDlg(‘A distancia digitada é maior que 5cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 5cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD6Exit(Sender: TObject);
begin
Try
if editRampaD6.Field.Text ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD7Exit(Sender: TObject);
begin
Try
if editRampaD7.Field.Text ’60′ then
MessageDlg(‘A distancia digitada é maior que 60cm! Deve estar entre 25 e 60cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD8Exit(Sender: TObject);
begin
Try
if editRampaD8.Field.Text ’60′ then
MessageDlg(‘A distancia digitada é maior que 60cm! Deve estar entre 25 e 60cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD9Exit(Sender: TObject);
begin
Try
if editRampaD9.Field.Text ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm! Deve ser ter um mínimo de 120cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ter um mínimo de 120cm’, mtwarning, [mbOk], 0);
end;
end;

// Documentacao
{*——————————————————————————
Ver: Manual de instrucoes tecnicas de acessibilidade, p. 16
@author Prof. Emiliano S. Monteiro .´.
@version 1.0.2
@todo melhorar tratamento de excecao
@comment Manual de instrucoes tecnicas de acessibilidade, p. 16
——————————————————————————-}
procedure Tform1PasseioPublico.editRampaD11Exit(Sender: TObject);
begin
Try
if editRampaD11.Field.Text ’30′ then
MessageDlg(‘A distancia digitada é maior que 30cm! Deve ser de 30cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 30cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.editPontoDeTaxiD2Exit(Sender: TObject);
begin
Try
if editPontoDeTaxiD2.Field.Text = ” then
MessageDlg(‘Consulte a norma NBR 9050!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘Consulte a norma NBR 9050!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.btnLocalizarClick(Sender: TObject);
begin
try
DMPasseioPublico.tblPasseioPublico.Locate(‘CodPasseioPublico’,editLocalizar.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por CodPasseioPublico!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton52Click(Sender: TObject);
begin
try
DMPasseioPublico.tblGrelha.Locate(‘CodGrelha’,editGrelha.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por CodGrelha!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.btnLocalizar3Click(Sender: TObject);
begin
try
DMPasseioPublico.tblCxDeInspecao.Locate(‘Codigo’,editCxInspecao.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton53Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeOnibus.Locate(‘Codigo’,editPontoDeOnibus.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton54Click(Sender: TObject);
begin
try
DMPasseioPublico.tblTelefonePublico.Locate(‘Codigo’,editTelefPublico.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton55Click(Sender: TObject);
begin
try
DMPasseioPublico.tblCaixaDeCorreio.Locate(‘Codigo’,editCxCorreio.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton56Click(Sender: TObject);
begin
try
DMPasseioPublico.tblLixeira.Locate(‘Codigo’,editLixeira.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton57Click(Sender: TObject);
begin
try
DMPasseioPublico.tblBanco.Locate(‘Codigo’,editBanco.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton58Click(Sender: TObject);
begin
try
DMPasseioPublico.tblBanca.Locate(‘Codigo’,editBanca.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton59Click(Sender: TObject);
begin
try
DMPasseioPublico.tblBancaDeMercadorias.Locate(‘Codigo’,editBancaDeMercadorias.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton60Click(Sender: TObject);
begin
try
DMPasseioPublico.tblFloreira.Locate(‘Codigo’,editFloreira.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton61Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editPontoDeTaxi.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton63Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editSemaforo.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton64Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editPostSinalizacao.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton65Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editBaia.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton66Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editVegetacao.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton67Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editCxForcaTelef.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton68Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editOutraTransf.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton69Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editDesnivelTrans.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton70Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editDegrau.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton71Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editEscada.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton72Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editRampa.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton73Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPontoDeTaxi.Locate(‘Codigo’,editRevestimento.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton62Click(Sender: TObject);
begin
try
DMPasseioPublico.tblPosteDeLuz.Locate(‘Codigo’,editPosteDeLuz.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton51Click(Sender: TObject);
begin
try
try
rptSemaforo01 := TrptSemaforo01.Create(application);
rptSemaforo01.ComponenteRelatorio.preview;
finally
rptSemaforo01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptSemaforo01!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform1PasseioPublico.SpeedButton74Click(Sender: TObject);
begin
JvCalculator1.Execute;
end;

procedure Tform1PasseioPublico.PageControl2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PageControl2.ActivePage.Highlighted := True;
end;

end.
unit frm20OutrosObjetos;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons;

type
TMeuDBNavigator = class(TDBNavigator);

Tform20OutrosObjetos = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form20OutrosObjetos: Tform20OutrosObjetos;

implementation

{$R *.dfm}

procedure Tform20OutrosObjetos.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform20OutrosObjetos.FormCreate(Sender: TObject);
begin
PageControl1.ActivePage := TabSheet1;
end;

procedure Tform20OutrosObjetos.SpeedButton4Click(Sender: TObject);
begin
{
try
DMPasseioPublico.tblPasseioPublico.active := False;
DMPasseioPublico.tblPasseioPublico.active := True;
except
MessageDlg(‘Erro ao carregar tblPasseioPublico’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform20OutrosObjetos.SpeedButton27Click(Sender: TObject);
begin
{
try
rptAcesso01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptAcesso01′, mtwarning, [mbOk], 0);
end;
}
end;

end.
unit frm21OutrosAmbientes;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids,
DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask, Buttons;

type
Tform21OutrosAmbientes = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Button1: TButton;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form21OutrosAmbientes: Tform21OutrosAmbientes;

implementation

{$R *.dfm}

procedure Tform21OutrosAmbientes.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform21OutrosAmbientes.FormCreate(Sender: TObject);
begin
PageControl1.ActivePage := TabSheet1;
end;

procedure Tform21OutrosAmbientes.SpeedButton4Click(Sender: TObject);
begin
{
try
DMPasseioPublico.tblPasseioPublico.active := False;
DMPasseioPublico.tblPasseioPublico.active := True;
except
MessageDlg(‘Erro ao carregar tblPasseioPublico’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform21OutrosAmbientes.SpeedButton27Click(Sender: TObject);
begin
{
try
rptAcesso01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptAcesso01′, mtwarning, [mbOk], 0);
end;
}
end;

end.
unit frm2Acesso;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Buttons, DBCtrls, ExtCtrls, ComCtrls,
Grids, DBGrids, Mask, jpeg, QuickRpt, QRCtrls;

type
TMeuDBNavigator = class(TDBNavigator);

Tform2Acesso = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Edit1: TEdit;
Button1: TButton;
Panel2: TPanel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel7: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit4: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Panel8: TPanel;
DBGrid1: TDBGrid;
TabSheet3: TTabSheet;
PageControlAcesso: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
TabSheet31: TTabSheet;
TabSheet32: TTabSheet;
TabSheet33: TTabSheet;
TabSheet34: TTabSheet;
TabSheet35: TTabSheet;
TabSheet36: TTabSheet;
TabSheet37: TTabSheet;
TabSheet38: TTabSheet;
TabSheet39: TTabSheet;
TabSheet40: TTabSheet;
TabSheet41: TTabSheet;
TabSheet42: TTabSheet;
TabSheet43: TTabSheet;
DBNavigator2: TDBNavigator;
Panel16: TPanel;
DBNavigator3: TDBNavigator;
Panel5: TPanel;
DBNavigator4: TDBNavigator;
Panel6: TPanel;
DBNavigator5: TDBNavigator;
Panel9: TPanel;
DBNavigator6: TDBNavigator;
Panel10: TPanel;
DBNavigator7: TDBNavigator;
Panel11: TPanel;
DBNavigator8: TDBNavigator;
Panel12: TPanel;
DBNavigator9: TDBNavigator;
Panel13: TPanel;
DBNavigator10: TDBNavigator;
Panel14: TPanel;
DBNavigator11: TDBNavigator;
Panel17: TPanel;
DBNavigator12: TDBNavigator;
Panel18: TPanel;
DBNavigator13: TDBNavigator;
Panel19: TPanel;
DBNavigator14: TDBNavigator;
Panel20: TPanel;
DBNavigator15: TDBNavigator;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton29: TSpeedButton;
SpeedButton30: TSpeedButton;
SpeedButton31: TSpeedButton;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
DBEdit11: TDBEdit;
Label15: TLabel;
DBEdit13: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
Label14: TLabel;
DBImage1: TDBImage;
Label16: TLabel;
DBMemo1: TDBMemo;
PageControl2: TPageControl;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
Label193: TLabel;
DBEdit130: TDBEdit;
Label194: TLabel;
DBEdit131: TDBEdit;
Label195: TLabel;
DBEdit132: TDBEdit;
DBRadioGroup51: TDBRadioGroup;
DBRadioGroup52: TDBRadioGroup;
DBRadioGroup59: TDBRadioGroup;
DBRadioGroup56: TDBRadioGroup;
DBRadioGroup57: TDBRadioGroup;
DBRadioGroup58: TDBRadioGroup;
DBRadioGroup62: TDBRadioGroup;
DBRadioGroup60: TDBRadioGroup;
DBRadioGroup61: TDBRadioGroup;
DBRadioGroup53: TDBRadioGroup;
DBRadioGroup55: TDBRadioGroup;
DBRadioGroup54: TDBRadioGroup;
DBRadioGroup63: TDBRadioGroup;
DBRadioGroup64: TDBRadioGroup;
Label206: TLabel;
DBImage21: TDBImage;
Label207: TLabel;
DBImage22: TDBImage;
DBRadioGroup36: TDBRadioGroup;
DBMemo21: TDBMemo;
Label208: TLabel;
Label196: TLabel;
editEscadaD1: TDBEdit;
Label197: TLabel;
editEscadaD2: TDBEdit;
Label198: TLabel;
editEscadaD3: TDBEdit;
Label199: TLabel;
editEscadaD4: TDBEdit;
Label200: TLabel;
editEscadaD5: TDBEdit;
Label201: TLabel;
editEscadaD6: TDBEdit;
Label202: TLabel;
editEscadaD7: TDBEdit;
Label203: TLabel;
editEscadaD8: TDBEdit;
Label204: TLabel;
editEscadaD9: TDBEdit;
Label205: TLabel;
editEscadaD10: TDBEdit;
PageControl4: TPageControl;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
Label209: TLabel;
DBEdit143: TDBEdit;
Label210: TLabel;
DBEdit144: TDBEdit;
Label211: TLabel;
DBEdit145: TDBEdit;
DBRadioGroup37: TDBRadioGroup;
Label212: TLabel;
DBEdit146: TDBEdit;
DBRadioGroup65: TDBRadioGroup;
Label224: TLabel;
DBEdit158: TDBEdit;
DBRadioGroup66: TDBRadioGroup;
DBRadioGroup67: TDBRadioGroup;
DBRadioGroup68: TDBRadioGroup;
DBRadioGroup69: TDBRadioGroup;
DBRadioGroup70: TDBRadioGroup;
DBRadioGroup71: TDBRadioGroup;
DBRadioGroup73: TDBRadioGroup;
DBRadioGroup74: TDBRadioGroup;
DBRadioGroup72: TDBRadioGroup;
DBRadioGroup75: TDBRadioGroup;
DBMemo22: TDBMemo;
Label226: TLabel;
DBImage23: TDBImage;
DBRadioGroup77: TDBRadioGroup;
DBRadioGroup76: TDBRadioGroup;
Label225: TLabel;
Label213: TLabel;
editRampaD1: TDBEdit;
Label214: TLabel;
editRampaD2: TDBEdit;
Label215: TLabel;
editRampaD3: TDBEdit;
Label216: TLabel;
editRampaD4: TDBEdit;
Label217: TLabel;
editRampaD5: TDBEdit;
Label218: TLabel;
editRampaD6: TDBEdit;
Label219: TLabel;
editRampaD7: TDBEdit;
Label220: TLabel;
editRampaD8: TDBEdit;
Label221: TLabel;
editRampaD9: TDBEdit;
Label222: TLabel;
editRampaD10: TDBEdit;
Label223: TLabel;
editRampaD11: TDBEdit;
Label19: TLabel;
DBEdit12: TDBEdit;
Label20: TLabel;
DBEdit14: TDBEdit;
Label21: TLabel;
DBEdit15: TDBEdit;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup7: TDBRadioGroup;
Label23: TLabel;
DBImage2: TDBImage;
Label24: TLabel;
DBMemo2: TDBMemo;
Label22: TLabel;
DBEdit124: TDBEdit;
Label186: TLabel;
DBEdit125: TDBEdit;
Label187: TLabel;
DBEdit126: TDBEdit;
Label188: TLabel;
DBEdit127: TDBEdit;
Label189: TLabel;
DBEdit128: TDBEdit;
DBRadioGroup50: TDBRadioGroup;
Label190: TLabel;
editDegrauA1: TDBEdit;
DBRadioGroup35: TDBRadioGroup;
DBMemo20: TDBMemo;
Label192: TLabel;
DBImage20: TDBImage;
Label191: TLabel;
Label25: TLabel;
DBEdit16: TDBEdit;
Label26: TLabel;
DBEdit17: TDBEdit;
Label27: TLabel;
DBEdit18: TDBEdit;
Label28: TLabel;
DBEdit19: TDBEdit;
DBRadioGroup8: TDBRadioGroup;
DBRadioGroup9: TDBRadioGroup;
DBRadioGroup10: TDBRadioGroup;
DBRadioGroup11: TDBRadioGroup;
DBRadioGroup12: TDBRadioGroup;
Label29: TLabel;
DBImage3: TDBImage;
Label30: TLabel;
DBMemo3: TDBMemo;
Label31: TLabel;
DBEdit20: TDBEdit;
Label32: TLabel;
DBEdit21: TDBEdit;
Label33: TLabel;
DBEdit22: TDBEdit;
DBRadioGroup13: TDBRadioGroup;
DBRadioGroup14: TDBRadioGroup;
DBRadioGroup15: TDBRadioGroup;
DBRadioGroup16: TDBRadioGroup;
DBRadioGroup17: TDBRadioGroup;
DBRadioGroup18: TDBRadioGroup;
DBRadioGroup19: TDBRadioGroup;
Label34: TLabel;
DBImage4: TDBImage;
Label35: TLabel;
DBMemo4: TDBMemo;
Label36: TLabel;
DBEdit23: TDBEdit;
Label37: TLabel;
DBEdit24: TDBEdit;
Label38: TLabel;
DBEdit25: TDBEdit;
DBRadioGroup20: TDBRadioGroup;
Label39: TLabel;
DBEdit26: TDBEdit;
Label40: TLabel;
DBEdit27: TDBEdit;
DBRadioGroup21: TDBRadioGroup;
Label41: TLabel;
editPortaD1: TDBEdit;
Label42: TLabel;
editPortaD2: TDBEdit;
Label43: TLabel;
editPortaD3: TDBEdit;
DBRadioGroup22: TDBRadioGroup;
Label44: TLabel;
DBImage5: TDBImage;
Label45: TLabel;
DBMemo5: TDBMemo;
imagemPortas: TImage;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
DBEdit31: TDBEdit;
Label50: TLabel;
DBEdit32: TDBEdit;
Label51: TLabel;
DBEdit33: TDBEdit;
DBRadioGroup23: TDBRadioGroup;
DBRadioGroup24: TDBRadioGroup;
DBRadioGroup25: TDBRadioGroup;
Label52: TLabel;
DBImage6: TDBImage;
Label53: TLabel;
DBMemo6: TDBMemo;
Label54: TLabel;
DBEdit34: TDBEdit;
Label55: TLabel;
DBEdit35: TDBEdit;
Label56: TLabel;
DBEdit36: TDBEdit;
Label57: TLabel;
editCapachoA1: TDBEdit;
DBRadioGroup26: TDBRadioGroup;
Label58: TLabel;
DBImage7: TDBImage;
Label59: TLabel;
DBMemo7: TDBMemo;
Label60: TLabel;
DBEdit38: TDBEdit;
Label61: TLabel;
DBEdit39: TDBEdit;
Label62: TLabel;
DBEdit40: TDBEdit;
Label63: TLabel;
editTapeteA1: TDBEdit;
DBRadioGroup27: TDBRadioGroup;
Label64: TLabel;
DBImage8: TDBImage;
Label65: TLabel;
DBMemo8: TDBMemo;
Label66: TLabel;
DBEdit42: TDBEdit;
Label67: TLabel;
DBEdit43: TDBEdit;
Label68: TLabel;
DBEdit44: TDBEdit;
Label69: TLabel;
DBEdit45: TDBEdit;
DBRadioGroup28: TDBRadioGroup;
Label70: TLabel;
DBImage9: TDBImage;
Label71: TLabel;
DBMemo9: TDBMemo;
imagemCampainha: TImage;
Label72: TLabel;
editCampainhaD1: TDBEdit;
Label73: TLabel;
Label74: TLabel;
DBEdit47: TDBEdit;
Label75: TLabel;
DBEdit48: TDBEdit;
Label76: TLabel;
DBEdit49: TDBEdit;
Label77: TLabel;
editInterfoneD1: TDBEdit;
Label78: TLabel;
editInterfoneD2: TDBEdit;
imagemInterfone: TImage;
DBRadioGroup29: TDBRadioGroup;
Label79: TLabel;
DBImage10: TDBImage;
Label80: TLabel;
DBMemo10: TDBMemo;
Label81: TLabel;
DBEdit52: TDBEdit;
Label82: TLabel;
DBEdit53: TDBEdit;
Label83: TLabel;
DBEdit54: TDBEdit;
Label85: TLabel;
editGrelhaD1: TDBEdit;
Label86: TLabel;
editGrelhaD2: TDBEdit;
DBRadioGroup30: TDBRadioGroup;
imagemGrelha: TImage;
Label84: TLabel;
Label87: TLabel;
DBImage11: TDBImage;
Label88: TLabel;
DBMemo11: TDBMemo;
DBRadioGroup31: TDBRadioGroup;
Label89: TLabel;
Label90: TLabel;
Label91: TLabel;
Label92: TLabel;
Label290: TLabel;
Label291: TLabel;
Label288: TLabel;
Label289: TLabel;
Label292: TLabel;
Label293: TLabel;
Label294: TLabel;
Label295: TLabel;
Label298: TLabel;
Label297: TLabel;
Label296: TLabel;
imagemEscada: TImage;
Label96: TLabel;
Label301: TLabel;
Label302: TLabel;
Label303: TLabel;
Label300: TLabel;
Label299: TLabel;
Label304: TLabel;
Label308: TLabel;
Label309: TLabel;
Label305: TLabel;
Label306: TLabel;
Label307: TLabel;
imagemRampa: TImage;
Label97: TLabel;
Label17: TLabel;
editEscadaD11: TDBEdit;
Label18: TLabel;
DBEdit58: TDBEdit;
editAcesso: TEdit;
btnLocalizar: TSpeedButton;
editEscada: TEdit;
SpeedButton32: TSpeedButton;
editRampa1: TEdit;
SpeedButton33: TSpeedButton;
editDesnivelTrans: TEdit;
SpeedButton34: TSpeedButton;
editDegrau: TEdit;
SpeedButton35: TSpeedButton;
editPlataformaPercVert: TEdit;
SpeedButton36: TSpeedButton;
editPlataformaPercInc: TEdit;
SpeedButton37: TSpeedButton;
editPorta: TEdit;
SpeedButton38: TSpeedButton;
editCatraca: TEdit;
SpeedButton39: TSpeedButton;
editCapacho: TEdit;
SpeedButton40: TSpeedButton;
editTapete: TEdit;
SpeedButton41: TSpeedButton;
editCampainha: TEdit;
SpeedButton42: TSpeedButton;
editInterfone: TEdit;
SpeedButton43: TSpeedButton;
editGrelha: TEdit;
SpeedButton44: TSpeedButton;
SpeedButton28: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure PageControl1Change(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton18Click(Sender: TObject);
procedure SpeedButton20Click(Sender: TObject);
procedure SpeedButton22Click(Sender: TObject);
procedure SpeedButton24Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure SpeedButton29Click(Sender: TObject);
procedure SpeedButton31Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure SpeedButton19Click(Sender: TObject);
procedure SpeedButton21Click(Sender: TObject);
procedure SpeedButton23Click(Sender: TObject);
procedure SpeedButton25Click(Sender: TObject);
// procedure btnImprimirInterfoneClick(Sender: TObject);
procedure SpeedButton30Click(Sender: TObject);
procedure editGrelhaD1Exit(Sender: TObject);
procedure editGrelhaD2Exit(Sender: TObject);
procedure editInterfoneD1Exit(Sender: TObject);
procedure editInterfoneD2Exit(Sender: TObject);
procedure editCampainhaD1Exit(Sender: TObject);
procedure editTapeteA1Exit(Sender: TObject);
procedure editCapachoA1Exit(Sender: TObject);
procedure editPortaD1Exit(Sender: TObject);
procedure editPortaD2Exit(Sender: TObject);
procedure editPortaD3Exit(Sender: TObject);
procedure editDegrauA1Exit(Sender: TObject);
procedure editRampaD1Exit(Sender: TObject);
procedure editRampaD2Exit(Sender: TObject);
procedure editRampaD3Exit(Sender: TObject);
procedure editRampaD4Exit(Sender: TObject);
procedure editRampaD5Exit(Sender: TObject);
procedure editRampaD6Exit(Sender: TObject);
procedure editRampaD7Exit(Sender: TObject);
procedure editRampaD8Exit(Sender: TObject);
procedure editRampaD9Exit(Sender: TObject);
procedure editRampaD11Exit(Sender: TObject);
procedure editEscadaD1Exit(Sender: TObject);
procedure editEscadaD2Exit(Sender: TObject);
procedure editEscadaD3Exit(Sender: TObject);
procedure editEscadaD4Exit(Sender: TObject);
procedure editEscadaD5Exit(Sender: TObject);
procedure editEscadaD6Exit(Sender: TObject);
procedure editEscadaD7Exit(Sender: TObject);
procedure editEscadaD8Exit(Sender: TObject);
procedure editEscadaD9Exit(Sender: TObject);
procedure editEscadaD10Exit(Sender: TObject);
procedure editEscadaD11Exit(Sender: TObject);
procedure btnLocalizarClick(Sender: TObject);
procedure SpeedButton32Click(Sender: TObject);
procedure SpeedButton33Click(Sender: TObject);
procedure SpeedButton34Click(Sender: TObject);
procedure SpeedButton35Click(Sender: TObject);
procedure SpeedButton36Click(Sender: TObject);
procedure SpeedButton37Click(Sender: TObject);
procedure SpeedButton38Click(Sender: TObject);
procedure SpeedButton39Click(Sender: TObject);
procedure SpeedButton40Click(Sender: TObject);
procedure SpeedButton41Click(Sender: TObject);
procedure SpeedButton42Click(Sender: TObject);
procedure SpeedButton43Click(Sender: TObject);
procedure SpeedButton44Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure SpeedButton28Click(Sender: TObject);
procedure PageControlAcessoMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form2Acesso: Tform2Acesso;

implementation

uses frmDMAcesso, rptAcesso, frmSobre, rptEscada1, rptEscada2, rptRampa2,
rptDesnivelTransversal2, rptDegrau2, rptPlataformaPercursoVertical1,
rptPlataformaPercursoInclinado1, rptPorta1, rptCatracaPortaGiratoria1,
rptCapacho1, rptTapete1, rptCampainha1, rptInterfone1, rptGrelha2,
frmDMPasseioPublico, frmPrincipal;

{$R *.dfm}

procedure Tform2Acesso.SpeedButton1Click(Sender: TObject);
begin
{
Try
DMVistoria.tblVisita.active := False;
DMVistoria.tblVisita.active := True;
Except
MessageDlg(‘Erro ao carregar a tblVisita’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton2Click(Sender: TObject);
begin
try
try
rptAcesso01 := TrptAcesso01.Create(application);
rptAcesso01.ComponenteRelatorio.preview;
finally
rptAcesso01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptAcesso01!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tform2Acesso.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,'Cancelar’, ‘Atualizar’);
var x : integer;
Temp: TComponent;
Botao: TNavigateBtn;

begin
for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator2).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator3).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator4).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator5).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator6).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator7).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator8).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator9).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator10).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator11).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator12).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator13).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator14).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
with TMeuDBNavigator(DBNavigator15).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;

for x:= 0 to DMAcesso.ComponentCount-1 do
begin
Temp := DMAcesso.Components[x];
if (Temp is TADOTable) then
begin
TADOTable(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
if (Temp is TADOQuery) then
begin
TADOQuery(Temp).Connection := formPRINCIPAL.ADOConnection1;
end;
end;// coloca a página Dados da visita em primeiro plano

PageControl1.ActivePage := TabSheet1;

// abrir o banco de dados
{ Try
DMAcesso.ADOConnection1.ConnectionString := ‘C:\sistemavistoria1\fontes\bancodedados.udl’;
DMAcesso.ADOConnection1.Connected := True;
Except
MessageDlg(‘Erro com ConnectionString .udl’, mtwarning, [mbOk], 0);
end;

DMAcesso.ADOQryVisita.active := True;
}

DMAcesso.ADOQryVisita.active := True;
DMAcesso.tblFiscal.active := True;
DMAcesso.tblEmpresa.active := True;
DMAcesso.tblAcesso.active := True;
DMAcesso.tblEscada.active := True;
DMAcesso.tblRampa.active := True;
DMAcesso.tblDesnivelTransversal.active := True;
DMAcesso.tblDegrau.active := True;
DMAcesso.tblPlataformaPercursoVertical.active := True;
DMAcesso.tblPlataformaPercursoInclinado.active := True;
DMAcesso.tblPorta.active := True;
DMAcesso.tblCatracaPortaGira.active := True;
DMAcesso.tblCapacho.active := True;
DMAcesso.tblTapete.active := True;
DMAcesso.tblCampainha.active := True;
DMAcesso.tblInterfone.active := True;
DMAcesso.tblGrelha.active := True;
//DMAcesso.tblSinalizacao.active := True;

//carregamento das figuras do formulario
{
imagemEscada.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig21escada.jpg’);
imagemRampa.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig22rampa.jpg’);
imagemPortas.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig23porta.jpg’);
imagemCampainha.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig24campainha.jpg’);
imagemInterfone.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig25Interfone.jpg’);
imagemGrelha.Picture.LoadFromFile(‘C:\sistemavistoria1\imagens\NBR9050\fig26grelha2.jpg’);
}
end;

procedure Tform2Acesso.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
// fechar o banco de dados
{
DMAcesso.ADOQryVisita.active := False;
DMAcesso.ADOQryVisita.active := False;
DMAcesso.tblFiscal.active := False;
DMAcesso.tblEmpresa.active := False;
DMAcesso.tblAcesso.active := False;
DMAcesso.tblEscada.active := False;
DMAcesso.tblRampa.active := False;
DMAcesso.tblDesnivelTransversal.active := False;
DMAcesso.tblDegrau.active := False;
DMAcesso.tblPlataformaPercursoVertical.active := False;
DMAcesso.tblPlataformaPercursoInclinado.active := False;
DMAcesso.tblPorta.active := False;
DMAcesso.tblCatracaPortaGira.active := False;
DMAcesso.tblCapacho.active := False;
DMAcesso.tblTapete.active := False;
DMAcesso.tblCampainha.active := False;
DMAcesso.tblInterfone.active := False;
DMAcesso.tblGrelha.active := False;
//DMAcesso.tblSinalizacao.active := False;
}
end;

procedure Tform2Acesso.PageControl1Change(Sender: TObject);
begin
// PageControl3.ActivePage := TabSheet30;
end;

procedure Tform2Acesso.SpeedButton27Click(Sender: TObject);
begin
try
try
rptAcesso01 := TrptAcesso01.Create(application);
rptAcesso01.ComponenteRelatorio.preview;
finally
rptAcesso01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptAcesso01!’, mtwarning, [mbOk], 0);
end;
{
try
rptAcesso01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptAcesso01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton4Click(Sender: TObject);
begin
try
DMAcesso.tblAcesso.active := False;
DMAcesso.tblAcesso.active := True;
except
MessageDlg(‘Erro ao carregar tblAcesso’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton6Click(Sender: TObject);
begin
try
DMAcesso.tblEscada.active := False;
DMAcesso.tblEscada.active := True;
except
MessageDlg(‘Erro ao carregar tblEscada’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton8Click(Sender: TObject);
begin
try
DMAcesso.tblRampa.active := False;
DMAcesso.tblRampa.active := True;
except
MessageDlg(‘Erro ao carregar tblRampa’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton10Click(Sender: TObject);
begin
try
DMAcesso.tblDesnivelTransversal.active := False;
DMAcesso.tblDesnivelTransversal.active := True;
except
MessageDlg(‘Erro ao carregar tblDesnivelTransversal’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton12Click(Sender: TObject);
begin
try
DMAcesso.tblDegrau.active := False;
DMAcesso.tblDegrau.active := True;
except
MessageDlg(‘Erro ao carregar tblDegrau’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton14Click(Sender: TObject);
begin
try
DMAcesso.tblPlataformaPercursoVertical.active := False;
DMAcesso.tblPlataformaPercursoVertical.active := True;
except
MessageDlg(‘Erro ao carregar tblPlataformaPercursoVertical’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton16Click(Sender: TObject);
begin
try
DMAcesso.tblPlataformaPercursoInclinado.active := False;
DMAcesso.tblPlataformaPercursoInclinado.active := True;
except
MessageDlg(‘Erro ao carregar tblPlataformaPercursoInclinado’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton18Click(Sender: TObject);
begin
try
DMAcesso.tblPorta.active := False;
DMAcesso.tblPorta.active := True;
except
MessageDlg(‘Erro ao carregar tblPorta’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton20Click(Sender: TObject);
begin
try
DMAcesso.tblCatracaPortaGira.active := False;
DMAcesso.tblCatracaPortaGira.active := True;
except
MessageDlg(‘Erro ao carregar tblPasseioPublico’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton22Click(Sender: TObject);
begin
try
DMAcesso.tblCapacho.active := False;
DMAcesso.tblCapacho.active := True;
except
MessageDlg(‘Erro ao carregar tblCapacho’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton24Click(Sender: TObject);
begin
try
DMAcesso.tblTapete.active := False;
DMAcesso.tblTapete.active := True;
except
MessageDlg(‘Erro ao carregar tblTapete’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton26Click(Sender: TObject);
begin
try
DMAcesso.tblCampainha.active := False;
DMAcesso.tblCampainha.active := True;
except
MessageDlg(‘Erro ao carregar tblCampainha’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton29Click(Sender: TObject);
begin
try
DMAcesso.tblInterfone.active := False;
DMAcesso.tblInterfone.active := True;
except
MessageDlg(‘Erro ao carregar tblInterfone’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton31Click(Sender: TObject);
begin
try
DMAcesso.tblGrelha.active := False;
DMAcesso.tblGrelha.active := True;
except
MessageDlg(‘Erro ao carregar tblGrelha’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton5Click(Sender: TObject);
begin
try
try
rptEscada02 := TrptEscada02.Create(application);
rptEscada02.ComponenteRelatorio.preview;
finally
rptEscada02.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptEscada02!’, mtwarning, [mbOk], 0);
end;
{
try
rptEscada02.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptEscada02′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton7Click(Sender: TObject);
begin
try
try
rptRampa02 := TrptRampa02.Create(application);
rptRampa02.ComponenteRelatorio.preview;
finally
rptRampa02.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptRampa02!’, mtwarning, [mbOk], 0);
end;
{
try
rptRampa02.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptRampa02′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton9Click(Sender: TObject);
begin
try
try
rptDesnivelTransversal02 := TrptDesnivelTransversal02.Create(application);
rptDesnivelTransversal02.ComponenteRelatorio.preview;
finally
rptDesnivelTransversal02.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptDesnivelTransversal02!’, mtwarning, [mbOk], 0);
end;
{
try
rptDesnivelTransversal02.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptDesnivelTransversal02′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton11Click(Sender: TObject);
begin
try
try
rptDegrau02 := TrptDegrau02.Create(application);
rptDegrau02.ComponenteRelatorio.preview;
finally
rptDegrau02.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptDegrau02!’, mtwarning, [mbOk], 0);
end;
{
try
rptDegrau02.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptDegrau02′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton13Click(Sender: TObject);
begin
try
try
rptPlataformaPercursoVertical01 := TrptPlataformaPercursoVertical01.Create(application);
rptPlataformaPercursoVertical01.ComponenteRelatorio.preview;
finally
rptPlataformaPercursoVertical01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptPlataformaPercursoVertical01!’, mtwarning, [mbOk], 0);
end;
{
try
rptPlataformaPercursoVertical01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptPlataformaPercursoVertical01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton15Click(Sender: TObject);
begin
try
try
rptPlataformaPercursoInclinado01 := TrptPlataformaPercursoInclinado01.Create(application);
rptPlataformaPercursoInclinado01.ComponenteRelatorio.preview;
finally
rptPlataformaPercursoInclinado01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptPlataformaPercursoInclinado01!’, mtwarning, [mbOk], 0);
end;
{
try
rptPlataformaPercursoInclinado01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptPlataformaPercursoInclinado01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton17Click(Sender: TObject);
begin
try
try
rptPorta01 := TrptPorta01.Create(application);
rptPorta01.ComponenteRelatorio.preview;
finally
rptPorta01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptPorta01!’, mtwarning, [mbOk], 0);
end;
{
try
rptPorta01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptPorta01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton19Click(Sender: TObject);
begin
try
try
rptCatracaPortaGiratoria01 := TrptCatracaPortaGiratoria01.Create(application);
rptCatracaPortaGiratoria01.ComponenteRelatorio.preview;
finally
rptCatracaPortaGiratoria01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptCatracaPortaGiratoria01!’, mtwarning, [mbOk], 0);
end;
{
try
rptCatracaPortaGiratoria01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptCatracaPortaGiratoria01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton21Click(Sender: TObject);
begin
try
try
rptCapacho01 := TrptCapacho01.Create(application);
rptCapacho01.ComponenteRelatorio.preview;
finally
rptCapacho01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptCapacho01!’, mtwarning, [mbOk], 0);
end;
{
try
rptCapacho01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptCapacho01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton23Click(Sender: TObject);
begin
try
try
rptTapete01 := TrptTapete01.Create(application);
rptTapete01.ComponenteRelatorio.preview;
finally
rptTapete01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptTapete01!’, mtwarning, [mbOk], 0);
end;
{
try
rptTapete01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptTapete01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton25Click(Sender: TObject);
begin
try
try
rptCampainha01 := TrptCampainha01.Create(application);
rptCampainha01.ComponenteRelatorio.preview;
finally
rptCampainha01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptCampainha01!’, mtwarning, [mbOk], 0);
end;
{
try
rptCampainha01.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptCampainha01′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.SpeedButton30Click(Sender: TObject);
begin
try
try
rptGrelha02 := TrptGrelha02.Create(application);
rptGrelha02.ComponenteRelatorio.preview;
finally
rptGrelha02.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptGrelha02!’, mtwarning, [mbOk], 0);
end;
{
try
rptGrelha02.ComponenteRelatorio.preview;
except
MessageDlg(‘Erro ao carregar relatório rptGrelha02′, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform2Acesso.editGrelhaD1Exit(Sender: TObject);
begin
Try
if editGrelhaD1.Field.Text ’15′ then
MessageDlg(‘distancia D1 maior que 15mm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de até 15mm!’, mtwarning, [mbOk], 0);
End;
end;

procedure Tform2Acesso.editGrelhaD2Exit(Sender: TObject);
begin
Try
if editGrelhaD2.Field.Text ’15′ then
MessageDlg(‘distancia D2 maior que 15mm’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de até 15mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editInterfoneD1Exit(Sender: TObject);
begin
Try
if editInterfoneD1.Field.Text = ’120′ then
MessageDlg(‘A distancia digitada é maior que 120 cm, deve estar entre 80-120!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve estar entre 80 e 120 cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editInterfoneD2Exit(Sender: TObject);
begin
Try
if editInterfoneD2.Field.Text = ’120′ then
MessageDlg(‘A distancia digitada é maior que 120 cm, deve estar entre 80-120!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve estar entre 80 e 120 cm!’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform2Acesso.editCampainhaD1Exit(Sender: TObject);
begin
Try
if editCampainhaD1.Field.Text = ’100′ then
MessageDlg(‘A distancia digitada é maior que 100 cm, deve estar entre 60-100!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve estar entre 60 e 100 cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editTapeteA1Exit(Sender: TObject);
begin
Try
if editTapeteA1.Field.Text = ’5′ then
MessageDlg(‘A distancia digitada é maior que 5mm, deve ser de 5mm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 5mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editCapachoA1Exit(Sender: TObject);
begin
Try
if editCapachoA1.Field.Text = ’5′ then
MessageDlg(‘A distancia digitada é maior que 5mm, deve ser de 5mm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 5mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editPortaD1Exit(Sender: TObject);
begin
Try
if editPortaD1.Field.Text = ’80′ then
MessageDlg(‘A distancia digitada é maior que 80cm, deve ser de 80cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 80mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editPortaD2Exit(Sender: TObject);
begin
Try
if editPortaD2.Field.Text = ’80′ then
MessageDlg(‘A distancia digitada é maior que 80cm, deve ser de 80cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 80mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editPortaD3Exit(Sender: TObject);
begin
Try
if editPortaD3.Field.Text = ’80′ then
MessageDlg(‘A distancia digitada é maior que 80cm, deve ser de 80cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 80mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editDegrauA1Exit(Sender: TObject);
begin
Try
if editDegrauA1.Field.Text = ’18′ then
MessageDlg(‘A distancia digitada é maior que 18 cm, deve estar entre 16-18!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 16 e 18 cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD1Exit(Sender: TObject);
begin
Try
if editRampaD1.Field.Text ’4′ then
MessageDlg(‘A distancia digitada é maior que 4 cm, deve ser no mínimo 4cm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de 4cm min.!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD2Exit(Sender: TObject);
begin
Try
if editRampaD2.Field.Text ’45′ then
MessageDlg(‘A distancia digitada é maior que 45mm, deve estar entre 30 e 45mm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve estar entre 30 e 45mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD3Exit(Sender: TObject);
begin
Try
if editRampaD3.Field.Text ’92′ then
MessageDlg(‘A distancia digitada é maior que 92cm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de 92cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD4Exit(Sender: TObject);
begin
Try
if editRampaD4.Field.Text ’70′ then
MessageDlg(‘A distancia digitada é maior que 70cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 70cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD5Exit(Sender: TObject);
begin
Try
if editRampaD5.Field.Text ’5′ then
MessageDlg(‘A distancia digitada é maior que 5cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 5cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD6Exit(Sender: TObject);
begin
Try
if editRampaD6.Field.Text ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD7Exit(Sender: TObject);
begin
Try
if editRampaD7.Field.Text ’60′ then
MessageDlg(‘A distancia digitada é maior que 60cm! Deve estar entre 25 e 60cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD8Exit(Sender: TObject);
begin
Try
if editRampaD8.Field.Text ’60′ then
MessageDlg(‘A distancia digitada é maior que 60cm! Deve estar entre 25 e 60cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD9Exit(Sender: TObject);
begin
Try
if editRampaD9.Field.Text ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm! Deve ser ter um mínimo de 120cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ter um mínimo de 120cm’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editRampaD11Exit(Sender: TObject);
begin
Try
if editRampaD11.Field.Text ’30′ then
MessageDlg(‘A distancia digitada é maior que 30cm! Deve ser de 30cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 30cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD1Exit(Sender: TObject);
begin
Try
if editEscadaD1.Field.Text ’4′ then
MessageDlg(‘A distancia digitada é maior que 4 cm, deve ser no mínimo 4cm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de 4cm min.!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD2Exit(Sender: TObject);
begin
Try
if editEscadaD2.Field.Text ’45′ then
MessageDlg(‘A distancia digitada é maior que 45mm, deve estar entre 30 e 45mm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve estar entre 30 e 45mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD3Exit(Sender: TObject);
begin
Try
if editEscadaD3.Field.Text ’92′ then
MessageDlg(‘A distancia digitada é maior que 92cm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de 92cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD4Exit(Sender: TObject);
begin
Try
if editEscadaD4.Field.Text ’70′ then
MessageDlg(‘A distancia digitada é maior que 70cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 70cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD5Exit(Sender: TObject);
begin
Try
if editEscadaD3.Field.Text ’18′ then
MessageDlg(‘A distancia digitada é maior que 18cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve estar entre 16 e 18cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD6Exit(Sender: TObject);
begin
Try
if editEscadaD6.Field.Text ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm!’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD7Exit(Sender: TObject);
begin
Try
if editEscadaD7.Field.Text ’60′ then
MessageDlg(‘A distancia digitada é maior que 60cm! Deve estar entre 25 e 60cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD8Exit(Sender: TObject);
begin
Try
if editEscadaD8.Field.Text ’60′ then
MessageDlg(‘A distancia digitada é maior que 60cm! Deve estar entre 25 e 60cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia mínima deve estar entre 25 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD9Exit(Sender: TObject);
begin
Try
if editEscadaD9.Field.Text ’120′ then
MessageDlg(‘A distancia digitada é maior que 120cm! Deve ser ter um mínimo de 120cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ter um mínimo de 120cm’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD10Exit(Sender: TObject);
begin
Try
if editEscadaD10.Field.Text ’32′ then
MessageDlg(‘A distancia digitada é maior que 32mm, deve estar entre 28 e 32mm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve estar entre 28 e 32mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.editEscadaD11Exit(Sender: TObject);
begin
Try
if editEscadaD11.Field.Text ’30′ then
MessageDlg(‘A distancia digitada é maior que 30cm! Deve ser de 30cm’, mtwarning, [mbOk], 0);
Except
messageDlg(‘A distancia deve ser de 30cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.btnLocalizarClick(Sender: TObject);
begin
try
DMAcesso.tblAcesso.Locate(‘Codigo’,editAcesso.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton32Click(Sender: TObject);
begin
try
DMAcesso.tblEscada.Locate(‘Codigo’,editEscada.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton33Click(Sender: TObject);
begin
try
DMAcesso.tblRampa.Locate(‘Codigo’,editRampa1.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton34Click(Sender: TObject);
begin
try
DMAcesso.tblDesnivelTransversal.Locate(‘Codigo’,editDesnivelTrans.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton35Click(Sender: TObject);
begin
try
DMAcesso.tblDegrau.Locate(‘Codigo’,editDegrau.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton36Click(Sender: TObject);
begin
try
DMAcesso.tblPlataformaPercursoVertical.Locate(‘Codigo’,editPlataformaPercVert.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton37Click(Sender: TObject);
begin
try
DMAcesso.tblPlataformaPercursoInclinado.Locate(‘Codigo’,editPlataformaPercInc.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton38Click(Sender: TObject);
begin
try
DMAcesso.tblPorta.Locate(‘Codigo’,editPorta.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton39Click(Sender: TObject);
begin
try
DMAcesso.tblCatracaPortaGira.Locate(‘Codigo’,editCatraca.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton40Click(Sender: TObject);
begin
try
DMAcesso.tblCapacho.Locate(‘Codigo’,editCapacho.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton41Click(Sender: TObject);
begin
try
DMAcesso.tblTapete.Locate(‘Codigo’,editTapete.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform2Acesso.SpeedButton42Click(Sender: TObject);
begin
try
DMAcesso.tblCampainha.Locate(‘Codigo’,editCampainha.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;