O PT é podre?

Malafaia fala sobre Feliciano

Vídeo | Publicado em por | Marcado com , , , | Deixe um comentário

Mudamos de endereço!!!!!!!!!!!!!!

http://www.m104.com.br

| Deixe um comentário

Nova versão lançada no codeplex

A versão Alfa 1.0.3 foi lançada em: http://sistemavistoria.codeplex.com
em substituição da 1.0.2

Publicado em SVA | Marcado com , , | Deixe um comentário

Códigos (SVA, parte 18)

unit frm10LocaisDeRefeicao;

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;

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

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

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

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

procedure Tform2Acesso.PageControlAcessoMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PageControlAcesso.ActivePage.Highlighted := True;
end;

end.
unit frm3CirculacaoHorizontal;

interface

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

type
TMeuDBNavigator = class(TDBNavigator);

Tform3CirculacaoHorizontal = 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;
TabSheet34: TTabSheet;
Panel9: TPanel;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
DBNavigator6: TDBNavigator;
TabSheet35: TTabSheet;
Panel10: TPanel;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
DBNavigator7: TDBNavigator;
TabSheet36: TTabSheet;
Panel11: TPanel;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
DBNavigator8: TDBNavigator;
TabSheet37: TTabSheet;
Panel12: TPanel;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
DBNavigator9: TDBNavigator;
TabSheet38: TTabSheet;
Panel13: TPanel;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
DBNavigator10: TDBNavigator;
TabSheet39: TTabSheet;
Panel14: TPanel;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
DBNavigator11: TDBNavigator;
TabSheet40: TTabSheet;
Panel17: TPanel;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
DBNavigator12: TDBNavigator;
TabSheet41: TTabSheet;
Panel18: TPanel;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
DBNavigator13: TDBNavigator;
TabSheet42: TTabSheet;
Panel19: TPanel;
SpeedButton28: TSpeedButton;
SpeedButton29: TSpeedButton;
DBNavigator14: TDBNavigator;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup7: TDBRadioGroup;
DBRadioGroup8: TDBRadioGroup;
DBRadioGroup9: TDBRadioGroup;
DBRadioGroup10: TDBRadioGroup;
DBRadioGroup12: TDBRadioGroup;
DBRadioGroup13: TDBRadioGroup;
Label20: TLabel;
DBEdit8: TDBEdit;
Label21: TLabel;
DBEdit9: TDBEdit;
Label22: TLabel;
DBEdit10: TDBEdit;
Label23: TLabel;
DBEdit11: TDBEdit;
Label24: TLabel;
DBEdit12: TDBEdit;
Label25: TLabel;
DBImage1: TDBImage;
Label26: TLabel;
DBMemo1: TDBMemo;
Label27: TLabel;
DBEdit13: TDBEdit;
Label28: TLabel;
DBEdit14: TDBEdit;
Label29: TLabel;
DBEdit15: TDBEdit;
Label31: TLabel;
DBEdit17: TDBEdit;
DBRadioGroup14: TDBRadioGroup;
Label30: TLabel;
DBImage2: TDBImage;
Label32: TLabel;
DBMemo2: TDBMemo;
Label33: TLabel;
DBEdit16: TDBEdit;
Label34: TLabel;
DBEdit18: TDBEdit;
Label35: TLabel;
DBEdit19: TDBEdit;
Label36: TLabel;
editCapachoA1: TDBEdit;
Label37: TLabel;
DBImage3: TDBImage;
Label38: TLabel;
DBMemo3: TDBMemo;
Label48: TLabel;
Image2: TImage;
Label39: TLabel;
DBRadioGroup16: TDBRadioGroup;
Label10: TLabel;
DBEdit21: TDBEdit;
Label11: TLabel;
DBEdit22: TDBEdit;
Label12: TLabel;
DBEdit23: TDBEdit;
Label13: TLabel;
DBEdit24: TDBEdit;
Label14: TLabel;
DBEdit25: TDBEdit;
Label15: TLabel;
DBEdit26: TDBEdit;
Label16: TLabel;
editTapeteA1: TDBEdit;
Label17: TLabel;
DBImage4: TDBImage;
Label18: TLabel;
DBMemo4: TDBMemo;
Label19: TLabel;
DBEdit28: TDBEdit;
Label40: TLabel;
DBEdit29: TDBEdit;
Label41: TLabel;
DBEdit30: TDBEdit;
Label43: TLabel;
editGrelhaD1: TDBEdit;
DBRadioGroup17: TDBRadioGroup;
Label42: TLabel;
DBEdit31: TDBEdit;
Label44: TLabel;
DBEdit33: TDBEdit;
Label45: TLabel;
DBEdit34: TDBEdit;
Label46: TLabel;
DBEdit35: TDBEdit;
Label47: TLabel;
DBEdit36: TDBEdit;
Label49: TLabel;
DBEdit37: TDBEdit;
Label50: TLabel;
DBEdit38: TDBEdit;
Image1: TImage;
Label51: TLabel;
Label52: TLabel;
DBImage5: TDBImage;
Label53: TLabel;
DBImage6: TDBImage;
Label54: TLabel;
DBMemo5: TDBMemo;
Label55: TLabel;
DBMemo6: TDBMemo;
Label56: TLabel;
DBEdit39: TDBEdit;
Label57: TLabel;
DBEdit40: TDBEdit;
Label58: TLabel;
DBEdit41: TDBEdit;
DBRadioGroup18: TDBRadioGroup;
Label59: TLabel;
DBImage7: TDBImage;
Label60: TLabel;
DBMemo7: TDBMemo;
Label61: TLabel;
DBEdit42: TDBEdit;
Label62: TLabel;
DBEdit43: TDBEdit;
Label63: TLabel;
DBEdit44: TDBEdit;
Label65: TLabel;
editDegrauA1: TDBEdit;
DBRadioGroup19: TDBRadioGroup;
Label64: TLabel;
DBImage8: TDBImage;
Label66: TLabel;
DBMemo8: TDBMemo;
PageControl4: TPageControl;
TabSheet5: TTabSheet;
Label209: TLabel;
Label210: TLabel;
Label211: TLabel;
Label212: TLabel;
Label224: TLabel;
Label226: TLabel;
Label225: TLabel;
DBEdit143: TDBEdit;
DBEdit144: TDBEdit;
DBEdit145: TDBEdit;
DBRadioGroup37: TDBRadioGroup;
DBEdit146: TDBEdit;
DBRadioGroup65: TDBRadioGroup;
DBEdit158: TDBEdit;
DBRadioGroup66: TDBRadioGroup;
DBRadioGroup67: TDBRadioGroup;
DBRadioGroup68: TDBRadioGroup;
DBRadioGroup69: TDBRadioGroup;
DBRadioGroup70: TDBRadioGroup;
DBRadioGroup71: TDBRadioGroup;
DBRadioGroup73: TDBRadioGroup;
DBRadioGroup74: TDBRadioGroup;
DBRadioGroup72: TDBRadioGroup;
DBRadioGroup75: TDBRadioGroup;
DBMemo22: TDBMemo;
DBImage23: TDBImage;
DBRadioGroup77: TDBRadioGroup;
DBRadioGroup76: TDBRadioGroup;
TabSheet6: TTabSheet;
Label213: TLabel;
Label214: TLabel;
Label215: TLabel;
Label216: TLabel;
Label217: TLabel;
Label218: TLabel;
Label219: TLabel;
Label220: TLabel;
Label221: TLabel;
Label222: TLabel;
Label223: TLabel;
editRampaD1: TDBEdit;
editRampaD2: TDBEdit;
editRampaD3: TDBEdit;
editRampaD4: TDBEdit;
editRampaD5: TDBEdit;
editRampaD6: TDBEdit;
editRampaD7: TDBEdit;
editRampaD8: TDBEdit;
editRampaD9: TDBEdit;
editRampaD10: TDBEdit;
editRampaD11: TDBEdit;
PageControl2: TPageControl;
TabSheet18: TTabSheet;
Label194: TLabel;
Label193: TLabel;
Label195: TLabel;
Label206: TLabel;
Label207: TLabel;
Label208: TLabel;
DBEdit131: TDBEdit;
DBEdit130: TDBEdit;
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;
DBImage21: TDBImage;
DBImage22: TDBImage;
DBMemo21: TDBMemo;
TabSheet19: TTabSheet;
Label196: TLabel;
Label197: TLabel;
Label198: TLabel;
Label199: TLabel;
Label200: TLabel;
Label201: TLabel;
Label202: TLabel;
Label203: TLabel;
Label204: TLabel;
Label205: TLabel;
Label67: TLabel;
Image3: TImage;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
editEscadaD1: TDBEdit;
editEscadaD2: TDBEdit;
editEscadaD3: TDBEdit;
editEscadaD4: TDBEdit;
editEscadaD5: TDBEdit;
editEscadaD6: TDBEdit;
editEscadaD7: TDBEdit;
editEscadaD8: TDBEdit;
editEscadaD9: TDBEdit;
editEscadaD10: TDBEdit;
Label79: TLabel;
editEscadaD11: TDBEdit;
Label80: TLabel;
DBEdit47: TDBEdit;
Label81: TLabel;
DBEdit48: TDBEdit;
Label82: TLabel;
DBEdit49: TDBEdit;
Label83: TLabel;
DBEdit50: TDBEdit;
DBRadioGroup11: TDBRadioGroup;
DBRadioGroup15: TDBRadioGroup;
DBRadioGroup20: TDBRadioGroup;
DBRadioGroup21: TDBRadioGroup;
Label84: TLabel;
DBImage9: TDBImage;
Label85: TLabel;
DBMemo9: TDBMemo;
Label86: TLabel;
DBEdit51: TDBEdit;
Label87: TLabel;
DBEdit52: TDBEdit;
Label88: TLabel;
DBEdit53: TDBEdit;
DBRadioGroup22: TDBRadioGroup;
DBRadioGroup23: TDBRadioGroup;
DBRadioGroup24: TDBRadioGroup;
DBRadioGroup25: TDBRadioGroup;
DBRadioGroup26: TDBRadioGroup;
DBRadioGroup27: TDBRadioGroup;
DBRadioGroup28: TDBRadioGroup;
Label89: TLabel;
DBImage10: TDBImage;
Label90: TLabel;
DBMemo10: TDBMemo;
Label91: TLabel;
DBEdit54: TDBEdit;
lbl1: TLabel;
lbl2: TLabel;
lbl4: TLabel;
lbl5: TLabel;
imagemRampa: TImage;
Label301: TLabel;
Label302: TLabel;
Label303: TLabel;
Label300: TLabel;
Label299: TLabel;
Label304: TLabel;
Label308: TLabel;
Label309: TLabel;
Label305: TLabel;
Label306: TLabel;
Label307: TLabel;
Label97: TLabel;
editCirculacao: TEdit;
btnLocalizar: TSpeedButton;
editCorredor: TEdit;
SpeedButton30: TSpeedButton;
editPiso: TEdit;
SpeedButton31: TSpeedButton;
editCapacho: TEdit;
SpeedButton32: TSpeedButton;
editTapete: TEdit;
SpeedButton33: TSpeedButton;
editGrelha: TEdit;
SpeedButton34: TSpeedButton;
editBarreiraS: TEdit;
SpeedButton35: TSpeedButton;
editDesnivel: TEdit;
SpeedButton36: TSpeedButton;
editDegrau: TEdit;
SpeedButton37: TSpeedButton;
editRampa: TEdit;
SpeedButton38: TSpeedButton;
editEscada: TEdit;
SpeedButton39: TSpeedButton;
editPlatPercVert: TEdit;
SpeedButton40: TSpeedButton;
editPlatPercInc: TEdit;
SpeedButton41: TSpeedButton;
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 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 SpeedButton27Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton11Click(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 SpeedButton28Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure editCapachoA1Exit(Sender: TObject);
procedure editTapeteA1Exit(Sender: TObject);
procedure editGrelhaD1Exit(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 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 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
form3CirculacaoHorizontal: Tform3CirculacaoHorizontal;

implementation

uses frmDMCirculacaoHorizontal, rptCirculacaoHorizonta1, rptCorredor1,
rptPiso1, rptCapacho2, rptTapete2, rptGrelha3, rptBarreiraSuspensa1,
rptDesnivel05a15cm1, rptDegrau3, rptRampa3, rptEscada3,
rptPlataformaPercursoVertical2, rptPlataformaPercursoInclinado2,
frmPrincipal;

{$R *.dfm}

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

procedure Tform3CirculacaoHorizontal.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;
begin
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;
end;

end;

for x:= 0 to DMCirculacaoHorizontal.ComponentCount-1 do
begin
Temp := DMCirculacaoHorizontal.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;// deixa pagecontrol1 em primeiro plano
PageControl1.ActivePage := TabSheet1;

//abre o banco de dados
DMCirculacaoHorizontal.ADOQryVisita.active := True;
DMCirculacaoHorizontal.tblFiscal.active := True;
DMCirculacaoHorizontal.tblEmpresa.active := True;
DMCirculacaoHorizontal.tblCirculacaoHorizontal.active := True;
DMCirculacaoHorizontal.tblPlatPercVert.active := True;
DMCirculacaoHorizontal.tblCorredor.active := True;
DMCirculacaoHorizontal.tblPiso.active := True;
DMCirculacaoHorizontal.tblCapacho.active := True;
DMCirculacaoHorizontal.tblTapete.active := True;
DMCirculacaoHorizontal.tblRampa.active := True;
DMCirculacaoHorizontal.tblPlatPercInc.active := True;
DMCirculacaoHorizontal.tblGrelha.active := True;
DMCirculacaoHorizontal.tblBarreiraSuspensa.active := True;
DMCirculacaoHorizontal.tblDesnivelTransversal.active := True;
DMCirculacaoHorizontal.tblDegrau.active := True;
DMCirculacaoHorizontal.tblEscada.active := True;

end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.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 Tform3CirculacaoHorizontal.btnLocalizarClick(Sender: TObject);
begin
try
DMCirculacaoHorizontal.tblCirculacaoHorizontal.Locate(‘Codigo’,editCirculacao.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform3CirculacaoHorizontal.SpeedButton30Click(Sender: TObject);
begin
try
DMCirculacaoHorizontal.tblCorredor.Locate(‘Codigo’,editCorredor.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform3CirculacaoHorizontal.SpeedButton31Click(Sender: TObject);
begin
try
DMCirculacaoHorizontal.tblPiso.Locate(‘Codigo’,editPiso.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

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

procedure Tform3CirculacaoHorizontal.SpeedButton34Click(Sender: TObject);
begin
try
DMCirculacaoHorizontal.tblGrelha.Locate(‘Codigo’,editGrelha.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform3CirculacaoHorizontal.SpeedButton35Click(Sender: TObject);
begin
try
DMCirculacaoHorizontal.tblBarreiraSuspensa.Locate(‘Codigo’,editBarreiraS.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform3CirculacaoHorizontal.SpeedButton36Click(Sender: TObject);
begin
try
DMCirculacaoHorizontal.tblDesnivelTransversal.Locate(‘Codigo’,editDesnivel.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

procedure Tform3CirculacaoHorizontal.SpeedButton38Click(Sender: TObject);
begin
try
DMCirculacaoHorizontal.tblRampa.Locate(‘Codigo’,editRampa.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

procedure Tform3CirculacaoHorizontal.SpeedButton40Click(Sender: TObject);
begin
try
DMCirculacaoHorizontal.tblPlatPercVert.Locate(‘Codigo’,editPlatPercVert.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform3CirculacaoHorizontal.SpeedButton41Click(Sender: TObject);
begin
try
DMCirculacaoHorizontal.tblPlatPercInc.Locate(‘Codigo’,editPlatPercInc.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

end;

procedure Tform3CirculacaoHorizontal.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
// fecha o banco de dados
{
DMCirculacaoHorizontal.ADOQryVisita.active := False;
DMCirculacaoHorizontal.tblFiscal.active := False;
DMCirculacaoHorizontal.tblEmpresa.active := False;
DMCirculacaoHorizontal.tblCirculacaoHorizontal.active := False;
DMCirculacaoHorizontal.tblPlatPercVert.active := False;
DMCirculacaoHorizontal.tblCorredor.active := False;
DMCirculacaoHorizontal.tblPiso.active := False;
DMCirculacaoHorizontal.tblCapacho.active := False;
DMCirculacaoHorizontal.tblTapete.active := False;
DMCirculacaoHorizontal.tblRampa.active := False;
DMCirculacaoHorizontal.tblPlatPercInc.active := False;
DMCirculacaoHorizontal.tblGrelha.active := False;
DMCirculacaoHorizontal.tblBarreiraSuspensa.active := False;
DMCirculacaoHorizontal.tblDesnivelTransversal.active := False;
DMCirculacaoHorizontal.tblDegrau.active := False;
DMCirculacaoHorizontal.tblEscada.active := False;
}
end;

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

end.

unit frm4CirculacaoVertical;

interface

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

type
TMeuDBNavigator = class(TDBNavigator);

Tform4CirculacaoVertical = 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;
TabSheet34: TTabSheet;
Panel9: TPanel;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
DBNavigator6: TDBNavigator;
TabSheet35: TTabSheet;
Panel10: TPanel;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
DBNavigator7: TDBNavigator;
TabSheet36: TTabSheet;
Panel11: TPanel;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
DBNavigator8: TDBNavigator;
TabSheet37: TTabSheet;
Panel12: TPanel;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
DBNavigator9: TDBNavigator;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup9: TDBRadioGroup;
DBRadioGroup10: TDBRadioGroup;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
DBImage1: TDBImage;
Label14: TLabel;
DBMemo1: TDBMemo;
PageControl4: TPageControl;
TabSheet5: TTabSheet;
Label209: TLabel;
Label210: TLabel;
Label211: TLabel;
Label212: TLabel;
Label224: TLabel;
Label226: TLabel;
Label225: TLabel;
DBEdit143: TDBEdit;
DBEdit144: TDBEdit;
DBEdit145: TDBEdit;
DBRadioGroup37: TDBRadioGroup;
DBEdit146: TDBEdit;
DBRadioGroup65: TDBRadioGroup;
DBEdit158: TDBEdit;
DBRadioGroup66: TDBRadioGroup;
DBRadioGroup67: TDBRadioGroup;
DBRadioGroup68: TDBRadioGroup;
DBRadioGroup69: TDBRadioGroup;
DBRadioGroup70: TDBRadioGroup;
DBRadioGroup71: TDBRadioGroup;
DBRadioGroup73: TDBRadioGroup;
DBRadioGroup74: TDBRadioGroup;
DBRadioGroup72: TDBRadioGroup;
DBRadioGroup75: TDBRadioGroup;
DBMemo22: TDBMemo;
DBImage23: TDBImage;
DBRadioGroup77: TDBRadioGroup;
DBRadioGroup76: TDBRadioGroup;
TabSheet6: TTabSheet;
Label213: TLabel;
Label214: TLabel;
Label215: TLabel;
Label216: TLabel;
Label217: TLabel;
Label218: TLabel;
Label219: TLabel;
Label220: TLabel;
Label221: TLabel;
Label222: TLabel;
Label223: TLabel;
editRampaD1: TDBEdit;
editRampaD2: TDBEdit;
editRampaD3: TDBEdit;
editRampaD4: TDBEdit;
editRampaD5: TDBEdit;
editRampaD6: TDBEdit;
editRampaD7: TDBEdit;
editRampaD8: TDBEdit;
editRampaD9: TDBEdit;
editRampaD10: TDBEdit;
editRampaD11: TDBEdit;
PageControl2: TPageControl;
TabSheet18: TTabSheet;
Label194: TLabel;
Label193: TLabel;
Label195: TLabel;
Label206: TLabel;
Label207: TLabel;
Label208: TLabel;
DBEdit131: TDBEdit;
DBEdit130: TDBEdit;
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;
DBImage21: TDBImage;
DBImage22: TDBImage;
DBMemo21: TDBMemo;
TabSheet19: TTabSheet;
Label196: TLabel;
Label197: TLabel;
Label198: TLabel;
Label199: TLabel;
Label200: TLabel;
Label201: TLabel;
Label202: TLabel;
Label203: TLabel;
Label204: TLabel;
Label205: TLabel;
Label67: TLabel;
Image3: TImage;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
Label79: TLabel;
editEscadaD1: TDBEdit;
editEscadaD2: TDBEdit;
editEscadaD3: TDBEdit;
editEscadaD4: TDBEdit;
editEscadaD5: TDBEdit;
editEscadaD6: TDBEdit;
editEscadaD7: TDBEdit;
editEscadaD8: TDBEdit;
editEscadaD9: TDBEdit;
editEscadaD10: TDBEdit;
editEscadaD11: TDBEdit;
PageControl5: TPageControl;
TabSheet2: TTabSheet;
TabSheet4: TTabSheet;
Label15: TLabel;
DBEdit11: TDBEdit;
Label16: TLabel;
DBEdit12: TDBEdit;
Label17: TLabel;
DBEdit13: TDBEdit;
Label18: TLabel;
DBEdit14: TDBEdit;
Label19: TLabel;
DBEdit15: TDBEdit;
Label20: TLabel;
DBEdit16: TDBEdit;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup16: TDBRadioGroup;
DBRadioGroup14: TDBRadioGroup;
DBRadioGroup11: TDBRadioGroup;
DBRadioGroup15: TDBRadioGroup;
DBRadioGroup13: TDBRadioGroup;
Label21: TLabel;
DBEdit17: TDBEdit;
DBRadioGroup17: TDBRadioGroup;
Label22: TLabel;
DBImage2: TDBImage;
Label23: TLabel;
DBMemo2: TDBMemo;
Image1: TImage;
Label24: TLabel;
Label25: TLabel;
editElevadorD1: TDBEdit;
Label26: TLabel;
editElevadorD2: TDBEdit;
Label27: TLabel;
editElevadorD3: TDBEdit;
Label28: TLabel;
editElevadorD4: TDBEdit;
Label29: TLabel;
editElevadorD5: TDBEdit;
Label30: TLabel;
editElevadorD6: TDBEdit;
Label31: TLabel;
editElevadorD7: TDBEdit;
Label32: TLabel;
editElevadorD8: TDBEdit;
Label33: TLabel;
editElevadorD9: TDBEdit;
Label34: TLabel;
editElevadorD10: TDBEdit;
Label35: TLabel;
editElevadorD11: TDBEdit;
Label36: TLabel;
editElevadorD12: TDBEdit;
Label37: TLabel;
editElevadorD13: TDBEdit;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label80: TLabel;
DBEdit47: TDBEdit;
Label81: TLabel;
DBEdit48: TDBEdit;
Label82: TLabel;
DBEdit49: TDBEdit;
Label83: TLabel;
DBEdit50: TDBEdit;
DBRadioGroup7: TDBRadioGroup;
DBRadioGroup20: TDBRadioGroup;
DBRadioGroup21: TDBRadioGroup;
DBRadioGroup18: TDBRadioGroup;
DBRadioGroup19: TDBRadioGroup;
DBImage9: TDBImage;
Label84: TLabel;
Label85: TLabel;
DBMemo9: TDBMemo;
Label86: TLabel;
DBEdit51: TDBEdit;
Label87: TLabel;
DBEdit52: TDBEdit;
Label88: TLabel;
DBEdit53: TDBEdit;
DBRadioGroup22: TDBRadioGroup;
DBRadioGroup23: TDBRadioGroup;
DBRadioGroup24: TDBRadioGroup;
DBRadioGroup25: TDBRadioGroup;
DBRadioGroup26: TDBRadioGroup;
DBRadioGroup27: TDBRadioGroup;
DBRadioGroup28: TDBRadioGroup;
Label89: TLabel;
DBImage10: TDBImage;
Label90: TLabel;
DBMemo10: TDBMemo;
DBRadioGroup8: TDBRadioGroup;
Label51: TLabel;
DBEdit31: TDBEdit;
Label52: TLabel;
DBEdit32: TDBEdit;
Label53: TLabel;
DBEdit33: TDBEdit;
DBRadioGroup29: TDBRadioGroup;
DBRadioGroup30: TDBRadioGroup;
DBRadioGroup31: TDBRadioGroup;
DBRadioGroup32: TDBRadioGroup;
DBRadioGroup33: TDBRadioGroup;
DBRadioGroup34: TDBRadioGroup;
DBRadioGroup35: TDBRadioGroup;
DBRadioGroup38: TDBRadioGroup;
Label54: TLabel;
editPisoTatilL1: TDBEdit;
Label55: TLabel;
DBImage3: TDBImage;
Label56: TLabel;
DBMemo3: TDBMemo;
Label57: TLabel;
DBEdit35: TDBEdit;
Label58: TLabel;
DBEdit36: TDBEdit;
Label59: TLabel;
DBEdit37: TDBEdit;
DBRadioGroup39: TDBRadioGroup;
DBRadioGroup40: TDBRadioGroup;
DBRadioGroup41: TDBRadioGroup;
DBRadioGroup42: TDBRadioGroup;
Label60: TLabel;
editPisoTatilL2: TDBEdit;
Label61: TLabel;
DBImage4: TDBImage;
Label62: TLabel;
DBMemo4: TDBMemo;
Label63: TLabel;
DBEdit39: TDBEdit;
TabSheet7: TTabSheet;
Panel13: TPanel;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
DBNavigator10: TDBNavigator;
DBRadioGroup12: TDBRadioGroup;
Label64: TLabel;
DBEdit40: TDBEdit;
Label65: TLabel;
DBEdit41: TDBEdit;
Label66: TLabel;
DBEdit42: TDBEdit;
Label91: TLabel;
DBImage5: TDBImage;
Label92: TLabel;
DBMemo5: TDBMemo;
imagemRampa: TImage;
Label301: TLabel;
Label302: TLabel;
Label303: TLabel;
Label300: TLabel;
Label299: TLabel;
Label304: TLabel;
Label308: TLabel;
Label309: TLabel;
Label305: TLabel;
Label306: TLabel;
Label307: TLabel;
Label97: TLabel;
editCircVert: TEdit;
btnLocalizar: TSpeedButton;
editRampa: TEdit;
SpeedButton21: TSpeedButton;
editEscada: TEdit;
SpeedButton22: TSpeedButton;
editElevador: TEdit;
SpeedButton23: TSpeedButton;
editPlataformaPercVert: TEdit;
SpeedButton24: TSpeedButton;
editPlatPercInc: TEdit;
SpeedButton25: TSpeedButton;
editEscadaRolante: TEdit;
SpeedButton26: TSpeedButton;
editEsteiraRolante: TEdit;
SpeedButton28: TSpeedButton;
editRota: TEdit;
SpeedButton29: TSpeedButton;
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 SpeedButton12Click(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 SpeedButton11Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton15Click(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 editElevadorD1Exit(Sender: TObject);
procedure editElevadorD2Exit(Sender: TObject);
procedure editElevadorD3Exit(Sender: TObject);
procedure editElevadorD4Exit(Sender: TObject);
procedure editElevadorD5Exit(Sender: TObject);
procedure editElevadorD6Exit(Sender: TObject);
procedure editElevadorD7Exit(Sender: TObject);
procedure editElevadorD9Exit(Sender: TObject);
procedure editElevadorD10Exit(Sender: TObject);
procedure editElevadorD11Exit(Sender: TObject);
procedure editElevadorD12Exit(Sender: TObject);
procedure editElevadorD13Exit(Sender: TObject);
procedure editPisoTatilL1Exit(Sender: TObject);
procedure editPisoTatilL2Exit(Sender: TObject);
procedure editRampaD1Exit(Sender: TObject);
procedure btnLocalizarClick(Sender: TObject);
procedure SpeedButton21Click(Sender: TObject);
procedure SpeedButton22Click(Sender: TObject);
procedure SpeedButton23Click(Sender: TObject);
procedure SpeedButton24Click(Sender: TObject);
procedure SpeedButton25Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure SpeedButton28Click(Sender: TObject);
procedure SpeedButton29Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure SpeedButton19Click(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
form4CirculacaoVertical: Tform4CirculacaoVertical;

implementation

uses frmDMCirculacaoVertical, rptCirculacaoVertical1, rptRampa4,
rptEscada4, rptElevador1, rptPlataformaPercursoVertical3,
rptPlataformaPercursoInclinado3, rptEscadaRolante1, rptEsteiraRolante1,
rptRota1, frmPrincipal;

//uses formDMCirculacaoVertical, frmDMCirculacaoVertical;

{$R *.dfm}

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

procedure Tform4CirculacaoVertical.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;
end;

for x:= 0 to DMCirculacaoVertical.ComponentCount-1 do
begin
Temp := DMCirculacaoVertical.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;

// deixa pagecontrol1 em primeiro plano
PageControl1.ActivePage := TabSheet1;

try
PageControl1.ActivePage := TabSheet1;
except
MessageDlg(‘Erro ao alterar a pagina ativa do tabsheet’, mtwarning, [mbOk], 0);
end;
// abre o banco de dados
try
DMCirculacaoVertical.ADOQryVisita.active := True;
DMCirculacaoVertical.tblFiscal.active := True;
DMCirculacaoVertical.tblEmpresa.active := True;
DMCirculacaoVertical.tblCirculacaoVertical.active := True;
DMCirculacaoVertical.tblRota.active := True;
DMCirculacaoVertical.tblEsteiraRolante.active := True;
DMCirculacaoVertical.tblRampa.active := True;
DMCirculacaoVertical.tblEscada.active := True;
DMCirculacaoVertical.tblElevador.active := True;
DMCirculacaoVertical.tblPlatPercVert.active := True;
DMCirculacaoVertical.tblPlatPercInc.active := True;
DMCirculacaoVertical.tblEscadaRolante.active := True;
except
MessageDlg(‘Erro ao abrir as tabelas do datamodule DMCirculacaoVertical’, mtwarning, [mbOk], 0);
end;
end;

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

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

end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.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 Tform4CirculacaoVertical.editElevadorD1Exit(Sender: TObject);
begin
Try
if editElevadorD1.Field.Text = ‘110’ then
MessageDlg(‘A distancia digitada é maior que 110cm, deve ser de 110cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 110cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.editElevadorD2Exit(Sender: TObject);
begin
Try
if editElevadorD2.Field.Text = ‘140’ then
MessageDlg(‘A distancia digitada é maior que 110cm, deve ser de 140cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 140cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.editElevadorD3Exit(Sender: TObject);
begin
Try
if editElevadorD3.Field.Text = ’32’ then
MessageDlg(‘A distancia digitada é maior que 110cm, deve ser de 32cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 32cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.editElevadorD4Exit(Sender: TObject);
begin
Try
if editElevadorD4.Field.Text = ’60’ then
MessageDlg(‘A distancia digitada é maior que 60 cm, deve estar entre 25-60!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 25 e 60 cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.editElevadorD5Exit(Sender: TObject);
begin
Try
if editElevadorD5.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 Tform4CirculacaoVertical.editElevadorD6Exit(Sender: TObject);
begin
Try
if editElevadorD6.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 Tform4CirculacaoVertical.editElevadorD7Exit(Sender: TObject);
begin
Try
if editElevadorD7.Field.Text = ‘210’ then
MessageDlg(‘A distancia digitada é maior que 210cm, deve ser de 210cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 210cm!’, mtwarning, [mbOk], 0);
end;
end;

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

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

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

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

procedure Tform4CirculacaoVertical.editElevadorD13Exit(Sender: TObject);
begin
Try
if editElevadorD12.Field.Text = ” then
MessageDlg(‘O espelho deve estar acima do corrimão!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘O espelho deve estar acima do corrimão!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.editPisoTatilL1Exit(Sender: TObject);
begin
Try
if editPisoTatilL1.Field.Text = ’60’ then
MessageDlg(‘A distancia digitada é maior que 60cm, deve estar entre 25-60!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 25 e 60 cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.editPisoTatilL2Exit(Sender: TObject);
begin
Try
if editPisoTatilL2.Field.Text = ’60’ then
MessageDlg(‘A distancia digitada é maior que 60cm, deve estar entre 25-60!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 25 e 60 cm!’, mtwarning, [mbOk], 0);
end;

end;

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

procedure Tform4CirculacaoVertical.btnLocalizarClick(Sender: TObject);
begin
try
DMCirculacaoVertical.tblCirculacaoVertical.Locate(‘Codigo’,editCircVert.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.SpeedButton21Click(Sender: TObject);
begin
try
DMCirculacaoVertical.tblRampa.Locate(‘Codigo’,editRampa.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

procedure Tform4CirculacaoVertical.SpeedButton23Click(Sender: TObject);
begin
try
DMCirculacaoVertical.tblElevador.Locate(‘Codigo’,editElevador.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.SpeedButton24Click(Sender: TObject);
begin
try
DMCirculacaoVertical.tblPlatPercVert.Locate(‘Codigo’,editPlataformaPercVert.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.SpeedButton25Click(Sender: TObject);
begin
try
DMCirculacaoVertical.tblPlatPercInc.Locate(‘Codigo’,editPlatPercInc.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.SpeedButton26Click(Sender: TObject);
begin
try
DMCirculacaoVertical.tblEscadaRolante.Locate(‘Codigo’,editEscadaRolante.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform4CirculacaoVertical.SpeedButton28Click(Sender: TObject);
begin

try
DMCirculacaoVertical.tblEsteiraRolante.Locate(‘Codigo’,editEsteiraRolante.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform4CirculacaoVertical.SpeedButton29Click(Sender: TObject);
begin
try
DMCirculacaoVertical.tblRota.Locate(‘Codigo’,editRota.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;

end;

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

procedure Tform4CirculacaoVertical.SpeedButton17Click(Sender: TObject);
begin
//
try
try
rptEsteiraRolante01 := TrptEsteiraRolante01.Create(application);
rptEsteiraRolante01.ComponenteRelatorio.preview;
finally
rptEsteiraRolante01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptEsteiraRolante01!’, mtwarning, [mbOk], 0);
end;
end;

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

end;

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

// fecha o banco de dados
{
DMCirculacaoVertical.ADOQryVisita.active := False;
DMCirculacaoVertical.tblFiscal.active := False;
DMCirculacaoVertical.tblEmpresa.active := False;
DMCirculacaoVertical.tblCirculacaoVertical.active := False;
DMCirculacaoVertical.tblRota.active := False;
DMCirculacaoVertical.tblEsteiraRolante.active := False;
DMCirculacaoVertical.tblRampa.active := False;
DMCirculacaoVertical.tblEscada.active := False;
DMCirculacaoVertical.tblElevador.active := False;
DMCirculacaoVertical.tblPlatPercVert.active := False;
DMCirculacaoVertical.tblPlatPercInc.active := False;
DMCirculacaoVertical.tblEscadaRolante.active := False;
}

end;

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

end.
unit frm5PortasJanelas;

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);

Tform5PortasJanelas = 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;
TabSheet_DadosDaVisita: 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;
TabSheet_PortasJanelasDisp: TTabSheet;
PageControl3: TPageControl;
TabSheet_Portas: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator3: TDBNavigator;
TabSheet_PortaVaiEVem: TTabSheet;
Panel16: TPanel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
DBNavigator4: TDBNavigator;
TabSheet_PortaDeCorrer: TTabSheet;
Panel5: TPanel;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
DBNavigator5: TDBNavigator;
TabSheet_catracaPortaGiratoria: TTabSheet;
Panel6: TPanel;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
DBNavigator6: TDBNavigator;
TabSheet_Janelas: TTabSheet;
Panel9: TPanel;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
DBNavigator7: TDBNavigator;
TabSheet_Dispositivos: TTabSheet;
Panel10: TPanel;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
DBNavigator8: TDBNavigator;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup7: TDBRadioGroup;
DBRadioGroup8: TDBRadioGroup;
DBRadioGroup9: TDBRadioGroup;
Label13: TLabel;
DBEdit11: TDBEdit;
DBRadioGroup10: TDBRadioGroup;
Label14: TLabel;
DBEdit12: TDBEdit;
DBRadioGroup11: TDBRadioGroup;
Label15: TLabel;
DBEdit13: TDBEdit;
DBRadioGroup12: TDBRadioGroup;
Label16: TLabel;
DBEdit14: TDBEdit;
Label17: TLabel;
DBImage1: TDBImage;
Label18: TLabel;
DBMemo1: TDBMemo;
Label19: TLabel;
DBEdit15: TDBEdit;
Label20: TLabel;
DBEdit16: TDBEdit;
Label21: TLabel;
DBEdit17: TDBEdit;
DBRadioGroup13: TDBRadioGroup;
DBRadioGroup14: TDBRadioGroup;
Label22: TLabel;
DBEdit18: TDBEdit;
Label23: TLabel;
editPortaVaiVem1: TDBEdit;
Label24: TLabel;
editPortaVaiVem2: TDBEdit;
Label25: TLabel;
editPortaVaiVem3: TDBEdit;
Image1: TImage;
Label26: TLabel;
DBImage2: TDBImage;
Label27: TLabel;
DBMemo2: TDBMemo;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
DBEdit22: TDBEdit;
Label33: TLabel;
DBEdit23: TDBEdit;
Label34: TLabel;
DBEdit24: TDBEdit;
Label35: TLabel;
DBEdit25: TDBEdit;
Label36: TLabel;
DBEdit26: TDBEdit;
Label37: TLabel;
DBImage3: TDBImage;
Label38: TLabel;
DBMemo3: TDBMemo;
Label39: TLabel;
DBEdit27: TDBEdit;
Label40: TLabel;
DBEdit28: TDBEdit;
Label41: TLabel;
DBEdit29: TDBEdit;
DBRadioGroup15: TDBRadioGroup;
Label42: TLabel;
DBImage4: TDBImage;
Label43: TLabel;
DBMemo4: TDBMemo;
Label44: TLabel;
DBEdit30: TDBEdit;
Label45: TLabel;
DBEdit31: TDBEdit;
Label46: TLabel;
DBEdit32: TDBEdit;
DBRadioGroup16: TDBRadioGroup;
DBRadioGroup17: TDBRadioGroup;
Label47: TLabel;
DBEdit33: TDBEdit;
Label48: TLabel;
DBImage5: TDBImage;
Label49: TLabel;
DBMemo5: TDBMemo;
Label50: TLabel;
DBEdit34: TDBEdit;
Label51: TLabel;
DBEdit35: TDBEdit;
Label52: TLabel;
DBEdit36: TDBEdit;
Image2: TImage;
DBRadioGroup18: TDBRadioGroup;
Label53: TLabel;
DBEdit37: TDBEdit;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
DBImage6: TDBImage;
Label57: TLabel;
DBMemo6: TDBMemo;
Label58: TLabel;
TabSheet_DadosBasicos: TTabSheet;
Panel11: TPanel;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
DBNavigator2: TDBNavigator;
Label59: TLabel;
DBEdit40: TDBEdit;
Label60: TLabel;
DBEdit41: TDBEdit;
Label61: TLabel;
DBEdit42: TDBEdit;
Label63: TLabel;
DBImage7: TDBImage;
Label64: TLabel;
DBMemo7: TDBMemo;
DBRadioGroup19: TDBRadioGroup;
Label62: TLabel;
DBEdit43: TDBEdit;
editPJD: TEdit;
SpeedButton28: TSpeedButton;
editPortas: TEdit;
SpeedButton17: TSpeedButton;
editPortavaievem: TEdit;
SpeedButton18: TSpeedButton;
editPortadecorrer: TEdit;
SpeedButton19: TSpeedButton;
editCatraca: TEdit;
SpeedButton20: TSpeedButton;
editJanelas: TEdit;
SpeedButton21: TSpeedButton;
editDispositivos: TEdit;
SpeedButton22: TSpeedButton;
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 SpeedButton12Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure editPortaVaiVem1Exit(Sender: TObject);
procedure editPortaVaiVem2Exit(Sender: TObject);
procedure editPortaVaiVem3Exit(Sender: TObject);
procedure editdistanciaMinima1Exit(Sender: TObject);
procedure editdistanciaMaxima1Exit(Sender: TObject);
procedure editAlturaMinima1Exit(Sender: TObject);
procedure editAlturaMaxima1Exit(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton28Click(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 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
form5PortasJanelas: Tform5PortasJanelas;

implementation

uses frmDMPortasJanelasDisp, rptPorta2, rptPortaVaievem1,
rptPortaDeCorrer1, rptCatracaPortaGiratoria2, rptJanelas1,
rptDispositivos1, rptPortasJanelasDispositivos1, frmPrincipal;

{$R *.dfm}

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

procedure Tform5PortasJanelas.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 DMPortasJanelasDisp.ComponentCount-1 do
begin
Temp := DMPortasJanelasDisp.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 := TabSheet_DadosDaVisita;

// Abrir banco de dados
DMPortasJanelasDisp.ADOQryVisita.active := True;
DMPortasJanelasDisp.tblFiscal.active := True;
DMPortasJanelasDisp.tblEmpresa.active := True;
DMPortasJanelasDisp.tblPortasJanelasDispositivos.active := True;
DMPortasJanelasDisp.tblDispositivos.active := True;
DMPortasJanelasDisp.tblPortas.active := True;
DMPortasJanelasDisp.tblPortaVaiEVem.active := True;
DMPortasJanelasDisp.tblPortaDeCorrer.active := True;
DMPortasJanelasDisp.tblCatraca.active := True;
DMPortasJanelasDisp.tblJanelas.active := True;
end;

procedure Tform5PortasJanelas.PageControl1Change(Sender: TObject);
begin
PageControl3.ActivePage := TabSheet_DadosBasicos;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tform5PortasJanelas.editPortaVaiVem1Exit(Sender: TObject);
begin
Try
if editPortaVaiVem1.Field.Text = ’90’ then
MessageDlg(‘A distancia digitada é menor que 90cm, deve estar entre 40-90’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 20cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform5PortasJanelas.editPortaVaiVem2Exit(Sender: TObject);
begin
Try
if editPortaVaiVem2.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 Tform5PortasJanelas.editPortaVaiVem3Exit(Sender: TObject);
begin
Try
if editPortaVaiVem3.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 Tform5PortasJanelas.editdistanciaMinima1Exit(Sender: TObject);
begin
{ Try
if editdistanciaMinima1.Field.Text = ‘5’ then
MessageDlg(‘A distancia digitada é maior que 40cm, deve ser de 40cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia MINIMA deve ser de 40cm!’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform5PortasJanelas.editdistanciaMaxima1Exit(Sender: TObject);
begin
{
Try
if editdistanciaMaxima1.Field.Text = ‘120’ then
MessageDlg(‘A distancia digitada é maior que 120cm, deve ser de 120cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia MAXIMA deve ser de 120cm!’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform5PortasJanelas.editAlturaMinima1Exit(Sender: TObject);
begin
{
Try
if editAlturaMinima1.Field.Text = ‘120’ then
MessageDlg(‘A distancia digitada é maior que 120 cm, deve estar entre 40-120!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 40 e 120 cm!’, mtwarning, [mbOk], 0);
end;
}
end;

procedure Tform5PortasJanelas.editAlturaMaxima1Exit(Sender: TObject);
begin
{
Try
if editAlturaMaxima1.Field.Text = ‘120’ then
MessageDlg(‘A distancia digitada é maior que 120 cm, deve estar entre 40-120!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 40 e 120 cm!’, mtwarning, [mbOk], 0);
end;
}
end;

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

procedure Tform5PortasJanelas.SpeedButton28Click(Sender: TObject);
begin
try
DMPortasJanelasDisp.tblPortasJanelasDispositivos.Locate(‘Codigo’,editPJD.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform5PortasJanelas.SpeedButton17Click(Sender: TObject);
begin
try
DMPortasJanelasDisp.tblPortas.Locate(‘Codigo’,editPortas.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform5PortasJanelas.SpeedButton18Click(Sender: TObject);
begin
try
DMPortasJanelasDisp.tblPortaVaiEVem.Locate(‘Codigo’,editPortavaievem.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform5PortasJanelas.SpeedButton19Click(Sender: TObject);
begin
try
DMPortasJanelasDisp.tblPortaDeCorrer.Locate(‘Codigo’,editPortadecorrer.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform5PortasJanelas.SpeedButton20Click(Sender: TObject);
begin
try
DMPortasJanelasDisp.tblCatraca.Locate(‘Codigo’,editCatraca.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform5PortasJanelas.SpeedButton21Click(Sender: TObject);
begin
try
DMPortasJanelasDisp.tblJanelas.Locate(‘Codigo’,editJanelas.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform5PortasJanelas.SpeedButton22Click(Sender: TObject);
begin
try
DMPortasJanelasDisp.tblDispositivos.Locate(‘Codigo’,editDispositivos.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

end;

procedure Tform5PortasJanelas.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// fechar banco de dados
DMPortasJanelasDisp.ADOQryVisita.active := False;
DMPortasJanelasDisp.tblFiscal.active := False;
DMPortasJanelasDisp.tblEmpresa.active := False;
DMPortasJanelasDisp.tblPortasJanelasDispositivos.Active := False;
DMPortasJanelasDisp.tblDispositivos.active := False;
DMPortasJanelasDisp.tblPortas.active := False;
DMPortasJanelasDisp.tblPortaVaiEVem.active := False;
DMPortasJanelasDisp.tblPortaDeCorrer.active := False;
DMPortasJanelasDisp.tblCatraca.active := False;
DMPortasJanelasDisp.tblJanelas.active := False;
}
end;

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

end.
unit frm6Sanitarios;

interface

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

type
TMeuDBNavigator = class(TDBNavigator);

Tform6Sanitarios = 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;
TabSheet_DadosBasicos: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator2: TDBNavigator;
TabSheet_PortaSanitario: TTabSheet;
Panel16: TPanel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
DBNavigator3: TDBNavigator;
TabSheet_BaciaSanitaria: TTabSheet;
Panel5: TPanel;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
DBNavigator4: TDBNavigator;
TabSheet_Lavatorio: TTabSheet;
Panel6: TPanel;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
DBNavigator5: TDBNavigator;
TabSheet_Mictorio: TTabSheet;
Panel9: TPanel;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
DBNavigator6: TDBNavigator;
TabSheet_Chuveiro: TTabSheet;
Panel10: TPanel;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
DBNavigator7: TDBNavigator;
TabSheet_Banheira: TTabSheet;
Panel11: TPanel;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
DBNavigator8: TDBNavigator;
TabSheet_Vestiario: TTabSheet;
Panel12: TPanel;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
DBNavigator9: TDBNavigator;
PageControl2: TPageControl;
tbsDadosBasicosSanitarios: TTabSheet;
TabSheet4: TTabSheet;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
DBRadioGroup21: TDBRadioGroup;
DBRadioGroup3: TDBRadioGroup;
Label13: TLabel;
DBEdit11: TDBEdit;
Label14: TLabel;
DBEdit12: TDBEdit;
Label15: TLabel;
DBEdit13: TDBEdit;
Label16: TLabel;
DBEdit14: TDBEdit;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
Label17: TLabel;
DBEdit15: TDBEdit;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup7: TDBRadioGroup;
Label18: TLabel;
DBEdit16: TDBEdit;
Label19: TLabel;
DBImage1: TDBImage;
Label20: TLabel;
DBMemo1: TDBMemo;
Label21: TLabel;
editSanitario1: TDBEdit;
Label22: TLabel;
editSanitario2: TDBEdit;
Label23: TLabel;
editSanitario3: TDBEdit;
Label24: TLabel;
editSanitario4: TDBEdit;
Label25: TLabel;
editSanitario5: TDBEdit;
Image1: TImage;
Label26: TLabel;
Label27: TLabel;
DBEdit22: TDBEdit;
Label28: TLabel;
DBEdit23: TDBEdit;
Label29: TLabel;
DBEdit24: TDBEdit;
DBRadioGroup8: TDBRadioGroup;
DBRadioGroup11: TDBRadioGroup;
DBRadioGroup15: TDBRadioGroup;
Label30: TLabel;
DBEdit25: TDBEdit;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
DBRadioGroup16: TDBRadioGroup;
Image2: TImage;
Label36: TLabel;
editPuxador1: TDBEdit;
Label37: TLabel;
editPuxador2: TDBEdit;
Label38: TLabel;
editPuxador3: TDBEdit;
Label39: TLabel;
editPuxador4: TDBEdit;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
DBImage2: TDBImage;
Label43: TLabel;
DBMemo2: TDBMemo;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
PageControl4: TPageControl;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
DBRadioGroup9: TDBRadioGroup;
Label48: TLabel;
DBEdit30: TDBEdit;
Label49: TLabel;
DBEdit31: TDBEdit;
Label50: TLabel;
DBEdit32: TDBEdit;
DBRadioGroup17: TDBRadioGroup;
DBRadioGroup18: TDBRadioGroup;
DBRadioGroup19: TDBRadioGroup;
DBRadioGroup20: TDBRadioGroup;
Label51: TLabel;
editDiamBarrrApoio1: TDBEdit;
DBRadioGroup22: TDBRadioGroup;
Label52: TLabel;
DBEdit34: TDBEdit;
DBRadioGroup23: TDBRadioGroup;
Label53: TLabel;
DBImage3: TDBImage;
Label54: TLabel;
DBMemo3: TDBMemo;
Label55: TLabel;
editBaciaSanitaria1: TDBEdit;
Label56: TLabel;
editBaciaSanitaria2: TDBEdit;
Label57: TLabel;
editBaciaSanitaria3: TDBEdit;
Label58: TLabel;
editBaciaSanitaria4: TDBEdit;
Label59: TLabel;
editBaciaSanitaria5: TDBEdit;
Label60: TLabel;
editBaciaSanitaria6: TDBEdit;
Label61: TLabel;
editBaciaSanitaria7: TDBEdit;
Label62: TLabel;
editBaciaSanitaria8: TDBEdit;
Label63: TLabel;
editBaciaSanitaria9: TDBEdit;
Label64: TLabel;
editBaciaSanitaria10: TDBEdit;
Label65: TLabel;
editBaciaSanitaria11: TDBEdit;
Image3: TImage;
Label66: TLabel;
Label67: TLabel;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
PageControl5: TPageControl;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
Label78: TLabel;
DBEdit46: TDBEdit;
Label79: TLabel;
DBEdit47: TDBEdit;
Label80: TLabel;
DBEdit48: TDBEdit;
DBRadioGroup10: TDBRadioGroup;
DBRadioGroup24: TDBRadioGroup;
DBRadioGroup25: TDBRadioGroup;
Label81: TLabel;
DBEdit49: TDBEdit;
Label82: TLabel;
editDiamBarrrApoio2: TDBEdit;
DBRadioGroup26: TDBRadioGroup;
Label83: TLabel;
DBImage4: TDBImage;
Label84: TLabel;
DBMemo4: TDBMemo;
Image4: TImage;
Label85: TLabel;
editLavatorio1: TDBEdit;
Label86: TLabel;
editLavatorio2: TDBEdit;
Label87: TLabel;
editLavatorio3: TDBEdit;
Label88: TLabel;
editLavatorio4: TDBEdit;
Label89: TLabel;
editLavatorio5: TDBEdit;
Label90: TLabel;
editLavatorio6: TDBEdit;
Label91: TLabel;
editLavatorio7: TDBEdit;
Label92: TLabel;
Label93: TLabel;
Label94: TLabel;
Label95: TLabel;
Label96: TLabel;
Label97: TLabel;
Label98: TLabel;
Label99: TLabel;
Label100: TLabel;
DBEdit58: TDBEdit;
Label101: TLabel;
DBEdit59: TDBEdit;
Label102: TLabel;
DBEdit60: TDBEdit;
Label103: TLabel;
editMictorio1: TDBEdit;
Label104: TLabel;
editMictorio2: TDBEdit;
Label105: TLabel;
editMictorio3: TDBEdit;
Label106: TLabel;
editMictorio4: TDBEdit;
Label107: TLabel;
editMictorio5: TDBEdit;
Image5: TImage;
Label108: TLabel;
DBImage5: TDBImage;
Label109: TLabel;
DBMemo5: TDBMemo;
Label110: TLabel;
Label111: TLabel;
Label112: TLabel;
Label113: TLabel;
Label114: TLabel;
PageControl6: TPageControl;
TabSheet9: TTabSheet;
TabSheet10: TTabSheet;
Label115: TLabel;
DBEdit66: TDBEdit;
Label116: TLabel;
DBEdit67: TDBEdit;
Label117: TLabel;
DBEdit68: TDBEdit;
DBRadioGroup12: TDBRadioGroup;
DBRadioGroup27: TDBRadioGroup;
Label118: TLabel;
DBImage6: TDBImage;
Label119: TLabel;
DBMemo6: TDBMemo;
Label120: TLabel;
editChuveiro1: TDBEdit;
Label121: TLabel;
editChuveiro2: TDBEdit;
Label122: TLabel;
editChuveiro3: TDBEdit;
Label123: TLabel;
editChuveiro4: TDBEdit;
Label124: TLabel;
editChuveiro5: TDBEdit;
Label125: TLabel;
editChuveiro6: TDBEdit;
Label126: TLabel;
editChuveiro7: TDBEdit;
Label127: TLabel;
editChuveiro8: TDBEdit;
Label128: TLabel;
editChuveiro9: TDBEdit;
Label129: TLabel;
editChuveiro10: TDBEdit;
Label130: TLabel;
editChuveiro11: TDBEdit;
Label131: TLabel;
editChuveiro12: TDBEdit;
Image6: TImage;
Label132: TLabel;
Label133: TLabel;
PageControl7: TPageControl;
TabSheet11: TTabSheet;
TabSheet12: TTabSheet;
Label134: TLabel;
DBEdit81: TDBEdit;
Label135: TLabel;
DBEdit82: TDBEdit;
Label136: TLabel;
DBEdit83: TDBEdit;
DBRadioGroup13: TDBRadioGroup;
DBRadioGroup28: TDBRadioGroup;
DBRadioGroup29: TDBRadioGroup;
DBRadioGroup30: TDBRadioGroup;
DBRadioGroup31: TDBRadioGroup;
DBRadioGroup32: TDBRadioGroup;
Label137: TLabel;
editProfundPranchTransf: TDBEdit;
Label138: TLabel;
DBImage7: TDBImage;
Label139: TLabel;
DBMemo7: TDBMemo;
Label140: TLabel;
editBanheira1: TDBEdit;
Label141: TLabel;
editBanheira2: TDBEdit;
Label142: TLabel;
editBanheira3: TDBEdit;
Label143: TLabel;
editBanheira4: TDBEdit;
Label144: TLabel;
editBanheira5: TDBEdit;
Label145: TLabel;
editBanheira6: TDBEdit;
Image7: TImage;
Label146: TLabel;
Label147: TLabel;
Label148: TLabel;
Label149: TLabel;
Label150: TLabel;
Label151: TLabel;
Label152: TLabel;
PageControl8: TPageControl;
TabSheet13: TTabSheet;
TabSheet14: TTabSheet;
Label153: TLabel;
DBEdit91: TDBEdit;
Label154: TLabel;
DBEdit92: TDBEdit;
Label155: TLabel;
DBEdit93: TDBEdit;
Label156: TLabel;
DBRadioGroup14: TDBRadioGroup;
Label157: TLabel;
DBImage8: TDBImage;
Label158: TLabel;
DBMemo8: TDBMemo;
Label159: TLabel;
editVestiario1: TDBEdit;
Label160: TLabel;
editVestiario2: TDBEdit;
Label161: TLabel;
editVestiario3: TDBEdit;
Label162: TLabel;
editVestiario4: TDBEdit;
Label163: TLabel;
editVestiario5: TDBEdit;
Label164: TLabel;
editVestiario6: TDBEdit;
Label165: TLabel;
editVestiario7: TDBEdit;
Label166: TLabel;
editVestiario8: TDBEdit;
Label167: TLabel;
editVestiario9: TDBEdit;
Image8: TImage;
Label168: TLabel;
Label169: TLabel;
Label170: TLabel;
Label171: TLabel;
Label172: TLabel;
Label173: TLabel;
Label174: TLabel;
Label175: TLabel;
Label176: TLabel;
Label177: TLabel;
Label178: TLabel;
Label179: TLabel;
Label180: TLabel;
Label181: TLabel;
Label182: TLabel;
Label183: TLabel;
Label184: TLabel;
Label185: TLabel;
Label186: TLabel;
Label187: TLabel;
Label188: TLabel;
Label189: TLabel;
Label190: TLabel;
Label191: TLabel;
Label192: TLabel;
Label193: TLabel;
Label194: TLabel;
Label195: TLabel;
Label196: TLabel;
DBEdit104: TDBEdit;
Label197: TLabel;
editChuveiro13: TDBEdit;
Label198: TLabel;
editBanheira7: TDBEdit;
Label199: TLabel;
editBanheira8: TDBEdit;
editSanitarios: TEdit;
SpeedButton28: TSpeedButton;
SpeedButton19: TSpeedButton;
editPorta: TEdit;
editBaciaS: TEdit;
SpeedButton20: TSpeedButton;
editLavatorio: TEdit;
SpeedButton21: TSpeedButton;
editMictorio: TEdit;
SpeedButton22: TSpeedButton;
editChuveiro: TEdit;
SpeedButton23: TSpeedButton;
editBanheira: TEdit;
SpeedButton24: TSpeedButton;
editVestiario: TEdit;
SpeedButton25: TSpeedButton;
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 SpeedButton12Click(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 SpeedButton11Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure editSanitario1Exit(Sender: TObject);
procedure editSanitario2Exit(Sender: TObject);
procedure editSanitario3Exit(Sender: TObject);
procedure editSanitario4Exit(Sender: TObject);
procedure editSanitario5Exit(Sender: TObject);
procedure editPuxador1Exit(Sender: TObject);
procedure editPuxador2Exit(Sender: TObject);
procedure editPuxador3Exit(Sender: TObject);
procedure editPuxador4Exit(Sender: TObject);
procedure editDiamBarrrApoio1Exit(Sender: TObject);
procedure editBaciaSanitaria1Exit(Sender: TObject);
procedure editBaciaSanitaria2Exit(Sender: TObject);
procedure editBaciaSanitaria3Exit(Sender: TObject);
procedure editBaciaSanitaria4Exit(Sender: TObject);
procedure editBaciaSanitaria5Exit(Sender: TObject);
procedure editBaciaSanitaria6Exit(Sender: TObject);
procedure editBaciaSanitaria7Exit(Sender: TObject);
procedure editBaciaSanitaria8Exit(Sender: TObject);
procedure editBaciaSanitaria9Exit(Sender: TObject);
procedure editBaciaSanitaria10Exit(Sender: TObject);
procedure editBaciaSanitaria11Exit(Sender: TObject);
procedure editDiamBarrrApoio2Exit(Sender: TObject);
procedure editLavatorio1Exit(Sender: TObject);
procedure editLavatorio2Exit(Sender: TObject);
procedure editLavatorio3Exit(Sender: TObject);
procedure editLavatorio6Exit(Sender: TObject);
procedure editLavatorio7Exit(Sender: TObject);
procedure editMictorio1Exit(Sender: TObject);
procedure editMictorio2Exit(Sender: TObject);
procedure editMictorio3Exit(Sender: TObject);
procedure editMictorio4Exit(Sender: TObject);
procedure editMictorio5Exit(Sender: TObject);
procedure editChuveiro1Exit(Sender: TObject);
procedure editChuveiro2Exit(Sender: TObject);
procedure editChuveiro3Exit(Sender: TObject);
procedure editChuveiro4Exit(Sender: TObject);
procedure editChuveiro10Exit(Sender: TObject);
procedure editChuveiro5Exit(Sender: TObject);
procedure editChuveiro6Exit(Sender: TObject);
procedure editChuveiro7Exit(Sender: TObject);
procedure editChuveiro8Exit(Sender: TObject);
procedure editChuveiro9Exit(Sender: TObject);
procedure editChuveiro11Exit(Sender: TObject);
procedure editChuveiro12Exit(Sender: TObject);
procedure editChuveiro13Exit(Sender: TObject);
procedure editProfundPranchTransfExit(Sender: TObject);
procedure editBanheira1Exit(Sender: TObject);
procedure editBanheira2Exit(Sender: TObject);
procedure editBanheira3Exit(Sender: TObject);
procedure editBanheira4Exit(Sender: TObject);
procedure editBanheira5Exit(Sender: TObject);
procedure editBanheira6Exit(Sender: TObject);
procedure editBanheira7Exit(Sender: TObject);
procedure editBanheira8Exit(Sender: TObject);
procedure editdistanciaTrocaRoupaExit(Sender: TObject);
procedure editVestiario1Exit(Sender: TObject);
procedure editVestiario2Exit(Sender: TObject);
procedure editVestiario3Exit(Sender: TObject);
procedure editVestiario4Exit(Sender: TObject);
procedure editVestiario7Exit(Sender: TObject);
procedure editVestiario5Exit(Sender: TObject);
procedure editVestiario8Exit(Sender: TObject);
procedure editVestiario9Exit(Sender: TObject);
procedure editVestiario6Exit(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure PageControl3Change(Sender: TObject);
procedure SpeedButton28Click(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 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
form6Sanitarios: Tform6Sanitarios;

implementation

uses frmDMSanitarios, rptSanitarios1, rptPortaSanitario1,
rptBaciaSanitaria1, rptLavatorio1, rptMictorio1, rptChuveiro1,
rptBanheira1, rptVestiario1, frmPrincipal;

{$R *.dfm}

procedure Tform6Sanitarios.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;
end;
for x:= 0 to DMSanitarios.ComponentCount-1 do
begin
Temp := DMSanitarios.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 banco de dados
DMSanitarios.ADOQryVisita.active := True;
DMSanitarios.tblFiscal.active := True;
DMSanitarios.tblEmpresa.active := True;
DMSanitarios.tblSanitarios.active := True;
DMSanitarios.tblVestiario.active := True;
DMSanitarios.tblPortaSanitario.active := True;
DMSanitarios.tblBaciaSanitaria.active := True;
DMSanitarios.tblLavatorio.active := True;
DMSanitarios.tblMictorio.active := True;
DMSanitarios.tblChuveiro.active := True;
DMSanitarios.tblBanheira.active := True;
end;

procedure Tform6Sanitarios.PageControl1Change(Sender: TObject);
begin
PageControl3.ActivePage := TabSheet_DadosBasicos;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tform6Sanitarios.editSanitario1Exit(Sender: TObject);
begin
Try
if editSanitario1.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 Tform6Sanitarios.editSanitario2Exit(Sender: TObject);
begin
Try
if editSanitario2.Field.Text = ‘170’ then
MessageDlg(‘A distancia digitada é maior que 170 cm, deve estar entre 150-170!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 150 e 170 cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.editSanitario3Exit(Sender: TObject);
begin
Try
if editSanitario3.Field.Text = ‘100’ then
MessageDlg(‘A distancia digitada é maior que 100cm, deve estar entre 80-100!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 80 e 100 cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.editSanitario4Exit(Sender: TObject);
begin
Try
if editSanitario4.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 Tform6Sanitarios.editSanitario5Exit(Sender: TObject);
begin
Try
if editSanitario5.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 Tform6Sanitarios.editPuxador1Exit(Sender: TObject);
begin
Try
if editPuxador1.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 90m!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.editPuxador2Exit(Sender: TObject);
begin
Try
if editPuxador2.Field.Text = ‘110’ then
MessageDlg(‘A distancia digitada é maior que 110 cm, deve estar entre 90-110cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 90 e 110 cm!’, mtwarning, [mbOk], 0);
end;
end;

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

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

procedure Tform6Sanitarios.editDiamBarrrApoio1Exit(Sender: TObject);
begin
Try
if editDiamBarrrApoio1.Field.Text = ’45’ then
MessageDlg(‘A distancia digitada é maior que 45 cm, deve estar entre 30-45mm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 30 e 45 mm!’, mtwarning, [mbOk], 0);
end;
end;

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

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

procedure Tform6Sanitarios.editBaciaSanitaria3Exit(Sender: TObject);
begin
Try
if editBaciaSanitaria3.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 Tform6Sanitarios.editBaciaSanitaria4Exit(Sender: TObject);
begin
Try
if editBaciaSanitaria4.Field.Text = ’15’ then
MessageDlg(‘A distancia digitada é maior que 15cm, deve ser de 15cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 15cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.editBaciaSanitaria5Exit(Sender: TObject);
begin
Try
if editBaciaSanitaria5.Field.Text = ’60’ then
MessageDlg(‘A distancia digitada é maior que 60cm, deve estar entre 60 e 60cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 40 e 60cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.editBaciaSanitaria6Exit(Sender: TObject);
begin
Try
if editBaciaSanitaria6.Field.Text = ‘120’ then
MessageDlg(‘A distancia digitada é maior que 120cm, deve estar entre 100 e 120 cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 100 e 120cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.editBaciaSanitaria7Exit(Sender: TObject);
begin
Try
if editBaciaSanitaria7.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 Tform6Sanitarios.editBaciaSanitaria8Exit(Sender: TObject);
begin
Try
if editBaciaSanitaria8.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 Tform6Sanitarios.editBaciaSanitaria9Exit(Sender: TObject);
begin
Try
if editBaciaSanitaria9.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 Tform6Sanitarios.editBaciaSanitaria10Exit(Sender: TObject);
begin
Try
if editBaciaSanitaria10.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;

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

procedure Tform6Sanitarios.editDiamBarrrApoio2Exit(Sender: TObject);
begin
Try
if editDiamBarrrApoio2.Field.Text = ’45’ then
MessageDlg(‘A distancia digitada é maior que 45 cm, deve estar entre 30-45mm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 30 e 45 mm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.editLavatorio1Exit(Sender: TObject);
begin
Try
if editLavatorio1.Field.text >= ‘5’ then
MessageDlg(‘O angulo de inclinacao deve ser de 10graus!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘O angulo de inclinacao deve ser de 10graus!’, mtwarning, [mbOk], 0);
end;
end;

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

procedure Tform6Sanitarios.editLavatorio3Exit(Sender: TObject);
begin
Try
if editLavatorio3.Field.Text = ‘120’ then
MessageDlg(‘A distancia digitada é maior que 120cm, deve estar entre 80 e 120cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 80 e 120cm!’, mtwarning, [mbOk], 0);
end;
end;

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

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

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

procedure Tform6Sanitarios.editMictorio2Exit(Sender: TObject);
begin
Try
if editMictorio2.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 Tform6Sanitarios.editMictorio3Exit(Sender: TObject);
begin
Try
if editMictorio3.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 Tform6Sanitarios.editMictorio4Exit(Sender: TObject);
begin
Try
if editMictorio3.Field.Text = ‘100’ then
MessageDlg(‘A distancia digitada é maior que 100cm, deve ser de 100cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 100cm!’, mtwarning, [mbOk], 0);
end;
end;

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

procedure Tform6Sanitarios.editChuveiro1Exit(Sender: TObject);
begin
Try
if editChuveiro1.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 Tform6Sanitarios.editChuveiro2Exit(Sender: TObject);
begin
Try
if editChuveiro2.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 Tform6Sanitarios.editChuveiro3Exit(Sender: TObject);
begin
Try
if editChuveiro3.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 Tform6Sanitarios.editChuveiro4Exit(Sender: TObject);
begin
Try
if editChuveiro4.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 Tform6Sanitarios.editChuveiro10Exit(Sender: TObject);
begin
Try
if editChuveiro10.Field.Text = ’60’ then
MessageDlg(‘A distancia digitada é maior que 60cm, deve ser de 60cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 60cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.editChuveiro5Exit(Sender: TObject);
begin
Try
if editChuveiro5.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 Tform6Sanitarios.editChuveiro6Exit(Sender: TObject);
begin
Try
if editChuveiro6.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 Tform6Sanitarios.editChuveiro7Exit(Sender: TObject);
begin
Try
if editChuveiro7.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 Tform6Sanitarios.editChuveiro8Exit(Sender: TObject);
begin
Try
if editChuveiro8.Field.Text = ‘100’ then
MessageDlg(‘A distancia digitada é maior que 100cm, deve ser de 100cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 100cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.editChuveiro9Exit(Sender: TObject);
begin
Try
if editChuveiro9.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 Tform6Sanitarios.editChuveiro11Exit(Sender: TObject);
begin
Try
if editChuveiro11.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 Tform6Sanitarios.editChuveiro12Exit(Sender: TObject);
begin
Try
if editChuveiro12.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 Tform6Sanitarios.editChuveiro13Exit(Sender: TObject);
begin
Try
if editChuveiro13.Field.Text = ’75’ then
MessageDlg(‘A distancia digitada é maior que 75cm, deve ser de 75cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 75cm!’, mtwarning, [mbOk], 0);
end;
end;

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

procedure Tform6Sanitarios.editBanheira1Exit(Sender: TObject);
begin
Try
if editBanheira1.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 Tform6Sanitarios.editBanheira2Exit(Sender: TObject);
begin
Try
if editBanheira2.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 Tform6Sanitarios.editBanheira3Exit(Sender: TObject);
begin
Try
if editBanheira3.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 Tform6Sanitarios.editBanheira4Exit(Sender: TObject);
begin
Try
if editBanheira4.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 Tform6Sanitarios.editBanheira5Exit(Sender: TObject);
begin
Try
if editBanheira5.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 Tform6Sanitarios.editBanheira6Exit(Sender: TObject);
begin
Try
if editBanheira6.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 Tform6Sanitarios.editBanheira7Exit(Sender: TObject);
begin
Try
if editBanheira7.Field.Text = ’75’ then
MessageDlg(‘A distancia digitada é maior que 75cm, deve ser de 75cm!’, mtwarning, [mbOk], 0);
Except
MessageDlg(‘A distancia deve ser de 75cm!’, mtwarning, [mbOk], 0);
End;

end;

procedure Tform6Sanitarios.editBanheira8Exit(Sender: TObject);
begin
Try
if editBanheira8.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 Tform6Sanitarios.editdistanciaTrocaRoupaExit(Sender: TObject);
begin
{
Try
if editdistanciaTrocaRoupa.Field.Text = ‘180’ then
MessageDlg(‘A distancia digitada é maior que 180 cm, deve estar entre 80-180!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 80 e 180 cm!’, mtwarning, [mbOk], 0);
end;
}
end;

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

procedure Tform6Sanitarios.editVestiario2Exit(Sender: TObject);
begin
Try
if editVestiario2.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 Tform6Sanitarios.editVestiario3Exit(Sender: TObject);
begin
Try
if editVestiario3.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 Tform6Sanitarios.editVestiario4Exit(Sender: TObject);
begin
Try
if editVestiario4.Field.Text = ‘180’ then
MessageDlg(‘A distancia digitada é maior que 180cm, deve ser de 180cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 180cm!’, mtwarning, [mbOk], 0);
end;
end;

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

procedure Tform6Sanitarios.editVestiario5Exit(Sender: TObject);
begin
Try
if editVestiario5.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 Tform6Sanitarios.editVestiario8Exit(Sender: TObject);
begin
Try
if editVestiario8.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 Tform6Sanitarios.editVestiario9Exit(Sender: TObject);
begin
Try
if editVestiario9.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 Tform6Sanitarios.editVestiario6Exit(Sender: TObject);
begin
Try
if editVestiario6.Field.Text = ’40’ then
MessageDlg(‘A distancia digitada é maior que 40cm, deve ser de 40cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 40cm!’, mtwarning, [mbOk], 0);
end;

end;

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

procedure Tform6Sanitarios.PageControl3Change(Sender: TObject);
begin
PageControl2.ActivePage := tbsDadosBasicosSanitarios;
end;

procedure Tform6Sanitarios.SpeedButton28Click(Sender: TObject);
begin
try
DMSanitarios.tblSanitarios.Locate(‘Codigo’,editSanitarios.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.SpeedButton19Click(Sender: TObject);
begin
try
DMSanitarios.tblPortaSanitario.Locate(‘Codigo’,editPorta.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.SpeedButton20Click(Sender: TObject);
begin
try
DMSanitarios.tblBaciaSanitaria.Locate(‘Codigo’,editBaciaS.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.SpeedButton21Click(Sender: TObject);
begin
try
DMSanitarios.tblLavatorio.Locate(‘Codigo’,editLavatorio.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.SpeedButton22Click(Sender: TObject);
begin
try
DMSanitarios.tblMictorio.Locate(‘Codigo’,editMictorio.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.SpeedButton23Click(Sender: TObject);
begin
try
DMSanitarios.tblChuveiro.Locate(‘Codigo’,editChuveiro.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.SpeedButton24Click(Sender: TObject);
begin
try
DMSanitarios.tblBanheira.Locate(‘Codigo’,editBanheira.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform6Sanitarios.SpeedButton25Click(Sender: TObject);
begin
try
DMSanitarios.tblVestiario.Locate(‘Codigo’,editVestiario.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

procedure Tform6Sanitarios.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
// Fecha as tabelas do banco
DMSanitarios.ADOQryVisita.active := False;
DMSanitarios.tblFiscal.active := False;
DMSanitarios.tblEmpresa.active := False;
DMSanitarios.tblSanitarios.active := False;
DMSanitarios.tblVestiario.active := False;
DMSanitarios.tblPortaSanitario.active := False;
DMSanitarios.tblBaciaSanitaria.active := False;
DMSanitarios.tblLavatorio.active := False;
DMSanitarios.tblMictorio.active := False;
DMSanitarios.tblChuveiro.active := False;
DMSanitarios.tblBanheira.active := False;
end;

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

end.

unit frm7Mobiliario;

interface

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

type
TMeuDBNavigator = class(TDBNavigator);

Tform7Mobiliario = 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;
PageControl13: TPageControl;
TabSheet30: TTabSheet;
Panel15: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator3: TDBNavigator;
TabSheet31: TTabSheet;
Panel16: TPanel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
DBNavigator4: TDBNavigator;
TabSheet32: TTabSheet;
Panel5: TPanel;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
DBNavigator5: TDBNavigator;
TabSheet34: TTabSheet;
Panel9: TPanel;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
DBNavigator6: TDBNavigator;
TabSheet35: TTabSheet;
Panel10: TPanel;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
DBNavigator7: TDBNavigator;
TabSheet36: TTabSheet;
Panel11: TPanel;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
DBNavigator8: TDBNavigator;
TabSheet37: TTabSheet;
Panel12: TPanel;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
DBNavigator9: TDBNavigator;
TabSheet38: TTabSheet;
Panel13: TPanel;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
DBNavigator10: TDBNavigator;
TabSheet40: TTabSheet;
Panel17: TPanel;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
DBNavigator11: TDBNavigator;
TabSheet41: TTabSheet;
Panel18: TPanel;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
DBNavigator12: TDBNavigator;
TabSheet42: TTabSheet;
Panel19: TPanel;
SpeedButton28: TSpeedButton;
SpeedButton29: TSpeedButton;
DBNavigator13: TDBNavigator;
TabSheet2: TTabSheet;
Panel6: TPanel;
DBNavigator2: TDBNavigator;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
PageControl2: TPageControl;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup3: TDBRadioGroup;
DBEdit13: TDBEdit;
Label15: TLabel;
DBEdit12: TDBEdit;
Label14: TLabel;
Label13: TLabel;
DBEdit11: TDBEdit;
DBRadioGroup4: TDBRadioGroup;
Label16: TLabel;
DBEdit14: TDBEdit;
Label17: TLabel;
DBEdit15: TDBEdit;
DBRadioGroup5: TDBRadioGroup;
Label18: TLabel;
DBImage1: TDBImage;
Label19: TLabel;
DBMemo1: TDBMemo;
Label20: TLabel;
editTelefone1: TDBEdit;
Label21: TLabel;
editTelefone2: TDBEdit;
Label22: TLabel;
editTelefone3: TDBEdit;
Label23: TLabel;
editTelefone4: TDBEdit;
Label24: TLabel;
editTelefone5: TDBEdit;
Image1: TImage;
Image2: TImage;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
DBEdit21: TDBEdit;
Label32: TLabel;
DBEdit22: TDBEdit;
Label33: TLabel;
DBEdit23: TDBEdit;
Label34: TLabel;
DBEdit24: TDBEdit;
Label35: TLabel;
DBEdit25: TDBEdit;
Label36: TLabel;
DBEdit26: TDBEdit;
DBRadioGroup7: TDBRadioGroup;
Label37: TLabel;
DBEdit27: TDBEdit;
Label38: TLabel;
DBEdit28: TDBEdit;
DBRadioGroup8: TDBRadioGroup;
Label39: TLabel;
DBEdit29: TDBEdit;
Label40: TLabel;
DBEdit30: TDBEdit;
DBRadioGroup9: TDBRadioGroup;
Label41: TLabel;
DBMemo2: TDBMemo;
Label42: TLabel;
DBImage2: TDBImage;
Label43: TLabel;
DBEdit31: TDBEdit;
Label44: TLabel;
DBEdit32: TDBEdit;
Label45: TLabel;
DBEdit33: TDBEdit;
Label46: TLabel;
DBEdit34: TDBEdit;
Label47: TLabel;
DBEdit35: TDBEdit;
Label48: TLabel;
DBEdit36: TDBEdit;
Image3: TImage;
DBRadioGroup10: TDBRadioGroup;
Label52: TLabel;
Label53: TLabel;
DBMemo3: TDBMemo;
Label54: TLabel;
DBImage3: TDBImage;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Image4: TImage;
Label58: TLabel;
DBEdit40: TDBEdit;
Label59: TLabel;
DBEdit41: TDBEdit;
Label60: TLabel;
DBEdit42: TDBEdit;
Label61: TLabel;
DBEdit43: TDBEdit;
Label62: TLabel;
DBEdit44: TDBEdit;
Label63: TLabel;
DBEdit45: TDBEdit;
Label64: TLabel;
editAssentosFixo1: TDBEdit;
Label65: TLabel;
editAssentosFixo2: TDBEdit;
DBRadioGroup11: TDBRadioGroup;
Label66: TLabel;
DBImage4: TDBImage;
Label67: TLabel;
DBMemo4: TDBMemo;
Image5: TImage;
Label68: TLabel;
Label69: TLabel;
DBRadioGroup12: TDBRadioGroup;
Label70: TLabel;
DBEdit48: TDBEdit;
Label71: TLabel;
DBEdit49: TDBEdit;
Label72: TLabel;
DBEdit50: TDBEdit;
Label74: TLabel;
editBalcao1: TDBEdit;
Label75: TLabel;
editBalcao2: TDBEdit;
Label76: TLabel;
editBalcao3: TDBEdit;
DBRadioGroup13: TDBRadioGroup;
Label73: TLabel;
DBMemo5: TDBMemo;
Label77: TLabel;
DBImage5: TDBImage;
Image6: TImage;
Label78: TLabel;
Label79: TLabel;
Label80: TLabel;
Label81: TLabel;
Label82: TLabel;
Label83: TLabel;
Label84: TLabel;
DBEdit51: TDBEdit;
Label85: TLabel;
DBEdit55: TDBEdit;
Label86: TLabel;
DBEdit56: TDBEdit;
Label87: TLabel;
editBilheteria1: TDBEdit;
Label88: TLabel;
editBilheteria2: TDBEdit;
Label89: TLabel;
editBilheteria3: TDBEdit;
DBRadioGroup14: TDBRadioGroup;
Label90: TLabel;
DBMemo6: TDBMemo;
Label91: TLabel;
DBImage6: TDBImage;
Label92: TLabel;
Label93: TLabel;
Label94: TLabel;
Label95: TLabel;
DBEdit60: TDBEdit;
Label96: TLabel;
DBEdit61: TDBEdit;
Label97: TLabel;
DBEdit62: TDBEdit;
Label98: TLabel;
DBEdit63: TDBEdit;
Label99: TLabel;
DBEdit64: TDBEdit;
DBRadioGroup15: TDBRadioGroup;
Label100: TLabel;
DBMemo7: TDBMemo;
Label101: TLabel;
DBImage7: TDBImage;
DBRadioGroup16: TDBRadioGroup;
Label102: TLabel;
DBEdit65: TDBEdit;
Label103: TLabel;
DBEdit66: TDBEdit;
Label104: TLabel;
DBEdit67: TDBEdit;
Label105: TLabel;
DBEdit68: TDBEdit;
Label106: TLabel;
DBMemo8: TDBMemo;
Label107: TLabel;
DBImage8: TDBImage;
DBRadioGroup17: TDBRadioGroup;
DBRadioGroup18: TDBRadioGroup;
DBRadioGroup19: TDBRadioGroup;
Label108: TLabel;
DBEdit69: TDBEdit;
Label109: TLabel;
DBEdit70: TDBEdit;
Label110: TLabel;
DBEdit71: TDBEdit;
Label111: TLabel;
DBEdit72: TDBEdit;
Label112: TLabel;
editMesaSupRef1: TDBEdit;
Label113: TLabel;
editMesaSupRef2: TDBEdit;
Label114: TLabel;
editMesaSupRef3: TDBEdit;
Image7: TImage;
Label115: TLabel;
Label116: TLabel;
Label117: TLabel;
Label118: TLabel;
Label119: TLabel;
DBMemo9: TDBMemo;
Label120: TLabel;
DBImage9: TDBImage;
Image8: TImage;
Label121: TLabel;
DBEdit76: TDBEdit;
Label122: TLabel;
DBEdit77: TDBEdit;
Label123: TLabel;
DBEdit78: TDBEdit;
Label124: TLabel;
DBEdit79: TDBEdit;
Label125: TLabel;
editAutoServ1: TDBEdit;
Label126: TLabel;
editAutoServ2: TDBEdit;
Label128: TLabel;
Label129: TLabel;
DBMemo10: TDBMemo;
Label130: TLabel;
DBImage10: TDBImage;
Image9: TImage;
Image10: TImage;
Label131: TLabel;
Label132: TLabel;
DBEdit83: TDBEdit;
Label133: TLabel;
DBEdit84: TDBEdit;
Label134: TLabel;
DBEdit85: TDBEdit;
DBRadioGroup20: TDBRadioGroup;
DBRadioGroup21: TDBRadioGroup;
DBRadioGroup22: TDBRadioGroup;
DBRadioGroup23: TDBRadioGroup;
Label135: TLabel;
editAlturaPuxador1: TDBEdit;
Label136: TLabel;
DBMemo11: TDBMemo;
Label137: TLabel;
DBImage11: TDBImage;
Label138: TLabel;
Label140: TLabel;
Label139: TLabel;
DBEdit87: TDBEdit;
Label49: TLabel;
editMesaSupTrb1: TDBEdit;
Label50: TLabel;
editMesaSupTrb2: TDBEdit;
Label51: TLabel;
editMesaSupTrb3: TDBEdit;
editMobiliario: TEdit;
SpeedButton21: TSpeedButton;
editTelefone: TEdit;
SpeedButton22: TSpeedButton;
editBebedouro: TEdit;
SpeedButton30: TSpeedButton;
SpeedButton31: TSpeedButton;
editMesa: TEdit;
SpeedButton32: TSpeedButton;
editAssentos: TEdit;
SpeedButton33: TSpeedButton;
editBalcao: TEdit;
SpeedButton34: TSpeedButton;
editBilheteria: TEdit;
SpeedButton35: TSpeedButton;
editLousa: TEdit;
SpeedButton36: TSpeedButton;
editCama: TEdit;
SpeedButton37: TSpeedButton;
editMesaSupRef: TEdit;
SpeedButton38: TSpeedButton;
editAutoServ: TEdit;
SpeedButton39: TSpeedButton;
editArmario: TEdit;
DBRadioGroup24: TDBRadioGroup;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton18Click(Sender: TObject);
procedure SpeedButton20Click(Sender: TObject);
procedure SpeedButton24Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure SpeedButton29Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure SpeedButton19Click(Sender: TObject);
procedure SpeedButton23Click(Sender: TObject);
procedure SpeedButton25Click(Sender: TObject);
procedure SpeedButton28Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure editTelefone1Exit(Sender: TObject);
procedure editTelefone2Exit(Sender: TObject);
procedure editTelefone3Exit(Sender: TObject);
procedure editTelefone4Exit(Sender: TObject);
procedure editTelefone5Exit(Sender: TObject);
procedure editAssentosFixo1Exit(Sender: TObject);
procedure editAssentosFixo2Exit(Sender: TObject);
procedure editBalcao1Exit(Sender: TObject);
procedure editBalcao2Exit(Sender: TObject);
procedure editBalcao3Exit(Sender: TObject);
procedure editBilheteria1Exit(Sender: TObject);
procedure editMesaSupTrb1Exit(Sender: TObject);
procedure editMesaSupTrb2Exit(Sender: TObject);
procedure editMesaSupTrb3Exit(Sender: TObject);
procedure editBilheteria2Exit(Sender: TObject);
procedure editBilheteria3Exit(Sender: TObject);
procedure editMesaSupRef1Exit(Sender: TObject);
procedure editMesaSupRef2Exit(Sender: TObject);
procedure editMesaSupRef3Exit(Sender: TObject);
procedure editAutoServ1Exit(Sender: TObject);
procedure editAutoServ2Exit(Sender: TObject);
procedure editAlturaPuxador1Exit(Sender: TObject);
procedure SpeedButton21Click(Sender: TObject);
procedure SpeedButton22Click(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 Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure PageControl13MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form7Mobiliario: Tform7Mobiliario;

implementation

uses frmDMMobiliario, rptTelefone1, rptMesaSuptrabalho1,
rptAssentosFixos1, rptBalcao1, rptBilheteria1, rptMobiliario1, rptLousa1,
rptCama1, rptMesaSupRefeicao1, rptAutoServico1, rptArmario1,
rptBebedouro1, frmPrincipal;

{$R *.dfm}

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

procedure Tform7Mobiliario.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;;
end;
for x:= 0 to DMMobiliario.ComponentCount-1 do
begin
Temp := DMMobiliario.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
DMMobiliario.ADOQryVisita.active := True;
DMMobiliario.tblFiscal.active := True;
DMMobiliario.tblEmpresa.active := True;
DMMobiliario.tblMobiliario.active := True;
DMMobiliario.tblMesaSupRefeicao.active := True;
DMMobiliario.tblArmario.active := True;
DMMobiliario.tblTelefone.active := True;
DMMobiliario.tblBebedouro.active := True;
DMMobiliario.tblMesaSupTrabalho.active := True;
DMMobiliario.tblAssentosFixos.active := True;
DMMobiliario.tblBalcao.active := True;
DMMobiliario.tblBilheteria.active := True;
DMMobiliario.tblLousa.active := True;
DMMobiliario.tblCama.active := True;
DMMobiliario.tblAutoservico.active := True;

end;

procedure Tform7Mobiliario.PageControl1Change(Sender: TObject);
begin
PageControl13.ActivePage := TabSheet2;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tform7Mobiliario.editTelefone2Exit(Sender: TObject);
begin
Try
if editTelefone2.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 Tform7Mobiliario.editTelefone3Exit(Sender: TObject);
begin
Try
if editTelefone3.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 Tform7Mobiliario.editTelefone4Exit(Sender: TObject);
begin
Try
if editTelefone4.Field.Text = ’60’ then
MessageDlg(‘A distancia digitada é maior que 60cm, deve ser de 60cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 60cm!’, mtwarning, [mbOk], 0);
end;

end;

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

end;

procedure Tform7Mobiliario.editAssentosFixo1Exit(Sender: TObject);
begin
Try
if editAssentosFixo1.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 Tform7Mobiliario.editAssentosFixo2Exit(Sender: TObject);
begin
Try
if editAssentosFixo1.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 Tform7Mobiliario.editBalcao1Exit(Sender: TObject);
begin
Try
if editBalcao1.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 Tform7Mobiliario.editBalcao2Exit(Sender: TObject);
begin
Try
if editBalcao1.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 Tform7Mobiliario.editBalcao3Exit(Sender: TObject);
begin
Try
if editBalcao1.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 Tform7Mobiliario.editBilheteria1Exit(Sender: TObject);
begin
Try
if editBalcao1.Field.Text = ‘105’ then
MessageDlg(‘A distancia digitada é maior que 105cm, deve ser de 105cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve ser de 105cm!’, mtwarning, [mbOk], 0);
end;
end;

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

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

end;

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

end;

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

procedure Tform7Mobiliario.editBilheteria3Exit(Sender: TObject);
begin
Try
if editBilheteria3.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 Tform7Mobiliario.editMesaSupRef1Exit(Sender: TObject);
begin
Try
if editMesaSupRef1.Field.Text = ’85’ then
MessageDlg(‘A distancia digitada é maior que 85cm, deve estar entre 75-85!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 75 e 85 cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.editMesaSupRef2Exit(Sender: TObject);
begin
Try
if editMesaSupRef1.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;

procedure Tform7Mobiliario.editMesaSupRef3Exit(Sender: TObject);
begin
Try
if editMesaSupRef1.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 Tform7Mobiliario.editAutoServ1Exit(Sender: TObject);
begin
Try
if editAutoServ1.Field.Text = ’85’ then
MessageDlg(‘A distancia digitada é maior que 85cm, deve estar entre 75-85!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia deve estar entre 75 e 85 cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.editAutoServ2Exit(Sender: TObject);
begin
Try
if editMesaSupRef1.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 Tform7Mobiliario.editAlturaPuxador1Exit(Sender: TObject);
begin
Try
if editMesaSupRef1.Field.Text = ‘140’ then
MessageDlg(‘A distancia digitada é maior que 140cm, deve ser de 140cm!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘A distancia estar entre 40 e 140cm!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton21Click(Sender: TObject);
begin
try
DMMobiliario.tblMobiliario.Locate(‘Codigo’,editMobiliario.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton22Click(Sender: TObject);
begin
try
DMMobiliario.tblTelefone.Locate(‘Codigo’,editTelefone.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton30Click(Sender: TObject);
begin
try
DMMobiliario.tblBebedouro.Locate(‘Codigo’,editBebedouro.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton31Click(Sender: TObject);
begin
try
DMMobiliario.tblMesaSupTrabalho.Locate(‘Codigo’,editMesa.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton32Click(Sender: TObject);
begin
try
DMMobiliario.tblAssentosFixos.Locate(‘Codigo’,editAssentos.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton33Click(Sender: TObject);
begin
try
DMMobiliario.tblBalcao.Locate(‘Codigo’,editBalcao.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton34Click(Sender: TObject);
begin
try
DMMobiliario.tblBilheteria.Locate(‘Codigo’,editBilheteria.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton35Click(Sender: TObject);
begin
try
DMMobiliario.tblLousa.Locate(‘Codigo’,editLousa.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton36Click(Sender: TObject);
begin
try
DMMobiliario.tblCama.Locate(‘Codigo’,editCama.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton37Click(Sender: TObject);
begin
try
DMMobiliario.tblMesaSupRefeicao.Locate(‘Codigo’,editMesaSupRef.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton38Click(Sender: TObject);
begin
try
DMMobiliario.tblAutoservico.Locate(‘Codigo’,editAutoServ.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform7Mobiliario.SpeedButton39Click(Sender: TObject);
begin
try
DMMobiliario.tblArmario.Locate(‘Codigo’,editArmario.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

end;

procedure Tform7Mobiliario.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// Fecha as tabelas do banco
DMMobiliario.ADOQryVisita.active := False;
DMMobiliario.tblFiscal.active := False;
DMMobiliario.tblEmpresa.active := False;
DMMobiliario.tblMobiliario.active := False;
DMMobiliario.tblMesaSupRefeicao.active := False;
DMMobiliario.tblArmario.active := False;
DMMobiliario.tblTelefone.active := False;
DMMobiliario.tblBebedouro.active := False;
DMMobiliario.tblMesaSupTrabalho.active := False;
DMMobiliario.tblAssentosFixos.active := False;
DMMobiliario.tblBalcao.active := False;
DMMobiliario.tblBilheteria.active := False;
DMMobiliario.tblLousa.active := False;
DMMobiliario.tblCama.active := False;
DMMobiliario.tblAutoservico.active := False;
}
end;

procedure Tform7Mobiliario.PageControl13MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PageControl13.ActivePage.Highlighted := True;
end;

end.

unit frm8Estacionamento;

interface

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

type
TMeuDBNavigator = class(TDBNavigator);

Tform8Estacionamento = 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;
editQtdTotVagas1: TDBEdit;
Label14: TLabel;
editVagasParaDef1: TDBEdit;
Label15: TLabel;
editLarguraVaga1: TDBEdit;
Label16: TLabel;
editComprimentoVaga1: TDBEdit;
Label17: TLabel;
editLarguraFaixaAdicional1: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup5: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup7: TDBRadioGroup;
DBRadioGroup8: TDBRadioGroup;
Label18: TLabel;
DBMemo1: TDBMemo;
Label19: TLabel;
DBImage1: TDBImage;
Label20: TLabel;
DBEdit11: TDBEdit;
editEstacionamento: TEdit;
SpeedButton39: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton27Click(Sender: TObject);
procedure editQtdTotVagas1Exit(Sender: TObject);
procedure editVagasParaDef1Exit(Sender: TObject);
procedure editLarguraVaga1Exit(Sender: TObject);
procedure editComprimentoVaga1Exit(Sender: TObject);
procedure editLarguraFaixaAdicional1Exit(Sender: TObject);
procedure SpeedButton39Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form8Estacionamento: Tform8Estacionamento;

implementation

uses frmDMEstacionamento, rptEstacionamento1, frmPrincipal;

{$R *.dfm}

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

procedure Tform8Estacionamento.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 DMEstacionamento.ComponentCount-1 do
begin
Temp := DMEstacionamento.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
DMEstacionamento.ADOQryVisita.active := True;
DMEstacionamento.tblFiscal.active := True;
DMEstacionamento.tblEmpresa.active := True;
DMEstacionamento.tblEstacionamento.active := True;

end;

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

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

procedure Tform8Estacionamento.editQtdTotVagas1Exit(Sender: TObject);
begin
Try
if editQtdTotVagas1.Field.Text = ” then
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform8Estacionamento.editVagasParaDef1Exit(Sender: TObject);
begin
Try
if editQtdTotVagas1.Field.Text = ” then
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform8Estacionamento.editLarguraVaga1Exit(Sender: TObject);
begin
Try
if editQtdTotVagas1.Field.Text = ” then
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform8Estacionamento.editComprimentoVaga1Exit(Sender: TObject);
begin
Try
if editQtdTotVagas1.Field.Text = ” then
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform8Estacionamento.editLarguraFaixaAdicional1Exit(
Sender: TObject);
begin
Try
if editQtdTotVagas1.Field.Text = ” then
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
except
MessageDlg(‘Consulte a norma NBR9050!’, mtwarning, [mbOk], 0);
end;

end;

procedure Tform8Estacionamento.SpeedButton39Click(Sender: TObject);
begin
try
DMEstacionamento.tblEstacionamento.Locate(‘Codigo’,editEstacionamento.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

end;

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

end;

end.

unit frm9LocaisDeReuniao;

interface

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

type
TMeuDBNavigator = class(TDBNavigator);

Tform9LocaisDeReuniao = 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;
PageControl7: TPageControl;
TabSheet31: TTabSheet;
Panel16: TPanel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
DBNavigator2: TDBNavigator;
TabSheet32: TTabSheet;
Panel5: TPanel;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
DBNavigator3: TDBNavigator;
TabSheet33: TTabSheet;
Panel6: TPanel;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
DBNavigator4: TDBNavigator;
TabSheet34: TTabSheet;
Panel9: TPanel;
SpeedButton11: TSpeedButton;
SpeedButton12: 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;
TabSheet38: TTabSheet;
Panel13: TPanel;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
DBNavigator9: TDBNavigator;
Label10: TLabel;
DBEdit8: TDBEdit;
Label11: TLabel;
DBEdit9: TDBEdit;
Label12: TLabel;
DBEdit10: TDBEdit;
Label13: TLabel;
editPlateia1: TDBEdit;
Label14: TLabel;
editPlateia2: TDBEdit;
DBRadioGroup5: TDBRadioGroup;
Label20: TLabel;
Image1: TImage;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
DBImage1: TDBImage;
Label18: TLabel;
DBMemo1: TDBMemo;
Label19: TLabel;
DBEdit13: TDBEdit;
Label21: TLabel;
DBEdit14: TDBEdit;
Label22: TLabel;
DBEdit15: TDBEdit;
Label23: TLabel;
DBEdit16: TDBEdit;
DBRadioGroup3: TDBRadioGroup;
DBRadioGroup4: TDBRadioGroup;
DBRadioGroup6: TDBRadioGroup;
DBRadioGroup7: TDBRadioGroup;
DBRadioGroup8: TDBRadioGroup;
DBRadioGroup9: TDBRadioGroup;
DBRadioGroup10: TDBRadioGroup;
DBRadioGroup11: TDBRadioGroup;
DBRadioGroup12: TDBRadioGroup;
Label24: TLabel;
DBMemo2: TDBMemo;
Label25: TLabel;
DBImage2: TDBImage;
Label26: TLabel;
DBEdit17: TDBEdit;
Label27: TLabel;
DBEdit18: TDBEdit;
Label28: TLabel;
DBEdit19: TDBEdit;
DBRadioGroup13: TDBRadioGroup;
DBRadioGroup14: TDBRadioGroup;
DBRadioGroup15: TDBRadioGroup;
Label29: TLabel;
DBImage3: TDBImage;
Label30: TLabel;
DBMemo3: TDBMemo;
Label31: TLabel;
DBEdit20: TDBEdit;
Label32: TLabel;
DBEdit21: TDBEdit;
Label33: TLabel;
DBEdit22: TDBEdit;
DBRadioGroup16: TDBRadioGroup;
DBRadioGroup17: TDBRadioGroup;
Label34: TLabel;
DBEdit23: TDBEdit;
DBRadioGroup18: TDBRadioGroup;
Label35: TLabel;
DBEdit24: TDBEdit;
DBRadioGroup19: TDBRadioGroup;
Label36: TLabel;
DBEdit25: TDBEdit;
DBRadioGroup20: TDBRadioGroup;
DBRadioGroup21: TDBRadioGroup;
Label37: TLabel;
DBMemo4: TDBMemo;
Label38: TLabel;
DBImage4: TDBImage;
PageControl4: TPageControl;
TabSheet20: TTabSheet;
Label209: TLabel;
Label211: TLabel;
Label212: TLabel;
Label224: TLabel;
Label225: TLabel;
Label226: TLabel;
DBEdit143: TDBEdit;
DBEdit145: TDBEdit;
DBRadioGroup37: TDBRadioGroup;
DBEdit146: TDBEdit;
DBRadioGroup65: TDBRadioGroup;
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;
DBImage23: TDBImage;
DBMemo22: TDBMemo;
TabSheet21: TTabSheet;
Image23: TImage;
Label97: TLabel;
Label213: TLabel;
Label214: TLabel;
Label215: TLabel;
Label216: TLabel;
Label217: TLabel;
Label218: TLabel;
Label219: TLabel;
Label220: TLabel;
Label221: TLabel;
Label222: TLabel;
Label223: TLabel;
Label299: TLabel;
Label300: TLabel;
Label301: TLabel;
Label302: TLabel;
Label303: TLabel;
Label304: TLabel;
Label305: TLabel;
Label306: TLabel;
Label307: TLabel;
Label308: TLabel;
Label309: TLabel;
editRampaD1: TDBEdit;
editRampaD2: TDBEdit;
editRampaD3: TDBEdit;
editRampaD4: TDBEdit;
editRampaD5: TDBEdit;
editRampaD6: TDBEdit;
editRampaD7: TDBEdit;
editRampaD8: TDBEdit;
editRampaD9: TDBEdit;
editRampaD10: TDBEdit;
editRampaD11: TDBEdit;
Label80: TLabel;
Label82: TLabel;
Label83: TLabel;
Label84: TLabel;
Label85: TLabel;
DBRadioGroup22: TDBRadioGroup;
DBEdit47: TDBEdit;
DBEdit49: TDBEdit;
DBEdit50: TDBEdit;
DBRadioGroup23: TDBRadioGroup;
DBRadioGroup24: TDBRadioGroup;
DBRadioGroup25: TDBRadioGroup;
DBRadioGroup26: TDBRadioGroup;
DBImage9: TDBImage;
DBMemo9: TDBMemo;
Label86: TLabel;
Label88: TLabel;
Label89: TLabel;
Label90: TLabel;
DBRadioGroup27: TDBRadioGroup;
DBEdit51: TDBEdit;
DBEdit53: TDBEdit;
DBRadioGroup28: TDBRadioGroup;
DBRadioGroup29: TDBRadioGroup;
DBRadioGroup30: TDBRadioGroup;
DBRadioGroup31: TDBRadioGroup;
DBRadioGroup32: TDBRadioGroup;
DBRadioGroup33: TDBRadioGroup;
DBRadioGroup34: TDBRadioGroup;
DBImage10: TDBImage;
DBMemo10: TDBMemo;
PageControl2: TPageControl;
TabSheet18: TTabSheet;
Label193: TLabel;
Label195: TLabel;
Label206: TLabel;
Label207: TLabel;
Label208: TLabel;
DBEdit130: TDBEdit;
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;
DBImage21: TDBImage;
DBImage22: TDBImage;
DBMemo21: TDBMemo;
TabSheet19: TTabSheet;
Label196: TLabel;
Label197: TLabel;
Label198: TLabel;
Label199: TLabel;
Label200: TLabel;
Label201: TLabel;
Label202: TLabel;
Label203: TLabel;
Label204: TLabel;
Label205: TLabel;
Label67: TLabel;
Image3: TImage;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
Label79: TLabel;
editEscadaD1: TDBEdit;
editEscadaD2: TDBEdit;
editEscadaD3: TDBEdit;
editEscadaD4: TDBEdit;
editEscadaD5: TDBEdit;
editEscadaD6: TDBEdit;
editEscadaD7: TDBEdit;
editEscadaD8: TDBEdit;
editEscadaD9: TDBEdit;
editEscadaD10: TDBEdit;
editEscadaD11: TDBEdit;
Label39: TLabel;
DBEdit26: TDBEdit;
Label40: TLabel;
DBEdit27: TDBEdit;
Label41: TLabel;
DBEdit28: TDBEdit;
Label42: TLabel;
DBEdit29: TDBEdit;
Label43: TLabel;
DBEdit30: TDBEdit;
editLocaisReuniao: TEdit;
SpeedButton39: TSpeedButton;
SpeedButton4: TSpeedButton;
editEspPessoas: TEdit;
editBastidores: TEdit;
SpeedButton21: TSpeedButton;
editPalco: TEdit;
SpeedButton22: TSpeedButton;
editRampa: TEdit;
SpeedButton23: TSpeedButton;
editPlatPerVert: TEdit;
SpeedButton24: TSpeedButton;
editPlatPercInc: TEdit;
SpeedButton25: TSpeedButton;
editEscada: TEdit;
SpeedButton26: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PageControl1Change(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 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 editPlateia1Exit(Sender: TObject);
procedure editPlateia2Exit(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 SpeedButton39Click(Sender: TObject);
procedure SpeedButton21Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton22Click(Sender: TObject);
procedure SpeedButton23Click(Sender: TObject);
procedure SpeedButton24Click(Sender: TObject);
procedure SpeedButton25Click(Sender: TObject);
procedure SpeedButton26Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure PageControl7MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
form9LocaisDeReuniao: Tform9LocaisDeReuniao;

implementation

uses frmDMLocaisDeReuniao, rptLocaisDeReuniao1, rptEspacoParaPessoas1,
rptBastidoresCamarins1, rptPalco1, rptRampa5,
rptPlataformaPercursoVertical4, rptPlataformaPercursoInclinado4,
rptEscada5, frmPrincipal;

{$R *.dfm}

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

procedure Tform9LocaisDeReuniao.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;
end;
for x:= 0 to DMLocaisDeReuniao.ComponentCount-1 do
begin
Temp := DMLocaisDeReuniao.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
DMLocaisDeReuniao.ADOQryVisita.active := True;
DMLocaisDeReuniao.tblFiscal.active := True;
DMLocaisDeReuniao.tblEmpresa.active := True;
DMLocaisDeReuniao.tblLocaisDeReuniao.active := True;
DMLocaisDeReuniao.tblEspacoParaPessoas.active := True;
DMLocaisDeReuniao.tblPlataformaPercursoVertical.active := True;
DMLocaisDeReuniao.tblPlataformaDePercursoInclinado.active := True;
DMLocaisDeReuniao.tblBastidores.active := True;
DMLocaisDeReuniao.tblEscada.active := True;
DMLocaisDeReuniao.tblPalco.active := True;
DMLocaisDeReuniao.tblRampa.active := True;

end;

procedure Tform9LocaisDeReuniao.PageControl1Change(Sender: TObject);
begin
PageControl1.ActivePage := TabSheet31;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tform9LocaisDeReuniao.editPlateia1Exit(Sender: TObject);
begin
Try
if editPlateia1.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 Tform9LocaisDeReuniao.editPlateia2Exit(Sender: TObject);
begin
Try
if editPlateia1.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.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 Tform9LocaisDeReuniao.SpeedButton39Click(Sender: TObject);
begin
try
DMLocaisDeReuniao.tblLocaisDeReuniao.Locate(‘Codigo’,editLocaisReuniao.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform9LocaisDeReuniao.SpeedButton21Click(Sender: TObject);
begin
try
DMLocaisDeReuniao.tblBastidores.Locate(‘Codigo’,editBastidores.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform9LocaisDeReuniao.SpeedButton4Click(Sender: TObject);
begin
try
DMLocaisDeReuniao.tblEspacoParaPessoas.Locate(‘Codigo’,editEspPessoas.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform9LocaisDeReuniao.SpeedButton22Click(Sender: TObject);
begin
try
DMLocaisDeReuniao.tblPalco.Locate(‘Codigo’,editPalco.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform9LocaisDeReuniao.SpeedButton23Click(Sender: TObject);
begin
try
DMLocaisDeReuniao.tblRampa.Locate(‘Codigo’,editRampa.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform9LocaisDeReuniao.SpeedButton24Click(Sender: TObject);
begin
try
DMLocaisDeReuniao.tblPlataformaPercursoVertical.Locate(‘Codigo’,editPlatPerVert.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

procedure Tform9LocaisDeReuniao.SpeedButton25Click(Sender: TObject);
begin
try
DMLocaisDeReuniao.tblPlataformaDePercursoInclinado.Locate(‘Codigo’,editPlatPercInc.Text,[]);
except
MessageDlg(‘Erro ao executar consulta por Codigo!’, mtwarning, [mbOk], 0);
end;
end;

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

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

end;

procedure Tform9LocaisDeReuniao.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{
// fechar as tabelas do banco de dados
DMLocaisDeReuniao.ADOQryVisita.active := False;
DMLocaisDeReuniao.tblFiscal.active := False;
DMLocaisDeReuniao.tblEmpresa.active := False;
// DMLocaisDeReuniao.tblEstacionamento.active := False;
DMLocaisDeReuniao.tblLocaisDeReuniao.active := False;
DMLocaisDeReuniao.tblPlataformaPercursoVertical.active := False;
DMLocaisDeReuniao.tblPlataformaDePercursoInclinado.active := False;
DMLocaisDeReuniao.tblBastidores.active := False;
DMLocaisDeReuniao.tblEscada.active := False;
DMLocaisDeReuniao.tblPalco.active := False;
DMLocaisDeReuniao.tblRampa.active := False;
}
end;

procedure Tform9LocaisDeReuniao.PageControl7MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PageControl1.ActivePage.Highlighted := True;
end;

end.

unit frmDMAcesso;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMAcesso = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
tblFiscal: TADOTable;
dtsFiscal: TDataSource;
tblEmpresa: TADOTable;
dtsEmpresa: TDataSource;
ADOQryVisitaCodVisita: TWideStringField;
ADOQryVisitaCPFFiscal: TWideStringField;
ADOQryVisitaCNPJ: TWideStringField;
ADOQryVisitaDataVisita: TDateTimeField;
ADOQryVisitaTipoVisita: TWideStringField;
ADOQryVisitaHoraVisita: TWideStringField;
ADOQryVisitaProtocolo: TWideStringField;
ADOQryVisitaResultado: TWideStringField;
tblFiscalCPFFiscal: TWideStringField;
tblFiscalNomeFiscal: TWideStringField;
tblFiscalRG: TWideStringField;
tblFiscalSexo: TWideStringField;
tblFiscalProfissao: TWideStringField;
tblFiscalRegistroDeClasse: TWideStringField;
tblFiscalTelefone: TWideStringField;
tblFiscalRamal: TWideStringField;
tblFiscalCelular: TWideStringField;
tblFiscalEmail: TWideStringField;
tblFiscalFoto: TBlobField;
tblFiscalObs: TMemoField;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
tblAcesso: TADOTable;
dtsAcesso: TDataSource;
dtsEscada: TDataSource;
dtsRampa: TDataSource;
dtsDesnivelTransversal: TDataSource;
dtsDegrau: TDataSource;
dtsPlataformaPercursoVertical: TDataSource;
dtsPlataformaPercursoInclinado: TDataSource;
dtsPorta: TDataSource;
dtsCatracaPortaGira: TDataSource;
dtsCapacho: TDataSource;
dtsTapete: TDataSource;
dtsCampainha: TDataSource;
dtsInterfone: TDataSource;
dtsGrelha: TDataSource;
tblEscada: TADOTable;
tblRampa: TADOTable;
tblDesnivelTransversal: TADOTable;
tblDegrau: TADOTable;
tblPlataformaPercursoVertical: TADOTable;
tblPlataformaPercursoInclinado: TADOTable;
tblPorta: TADOTable;
tblCatracaPortaGira: TADOTable;
tblCapacho: TADOTable;
tblTapete: TADOTable;
tblInterfone: TADOTable;
tblGrelha: TADOTable;
tblAcessoCodigo: TWideStringField;
tblAcessoCodVisita: TWideStringField;
tblAcessoIdentifiqueAcesso: TWideStringField;
tblAcessoQualOAcessoASerAnalisado: TWideStringField;
tblAcessoEstaEntradaEAcessivelACadeirante: TWideStringField;
tblAcessoQualALarguraLivreNoAcessoAnalisado: TIntegerField;
tblAcessoSIA: TWideStringField;
tblAcessoStatus: TWideStringField;
tblAcessoFoto: TBlobField;
tblAcessoObs: TMemoField;
tblAcessoDiagnstico: TWideStringField;
tblEscadaCodigo: TWideStringField;
tblEscadaCodPasseioPublico: TWideStringField;
tblEscadaCodCirculacaoHorizontal: TWideStringField;
tblEscadaCodCirculacaoVertical: TWideStringField;
tblEscadaCodAcesso: TWideStringField;
tblEscadaCodLocalReuniao: TWideStringField;
tblEscadaIdentifique: TWideStringField;
tblEscadaCondicoesDoPiso: TWideStringField;
tblEscadaPossuiEspelhoVazada: TWideStringField;
tblEscadaAEscadaNaoPossuiSinalizacaoContraste: TWideStringField;
tblEscadaCorrimaoNaoeContinuiNosParamares: TWideStringField;
tblEscadaCorrimaoNaoPossuiAcabamentoCurvado: TWideStringField;
tblEscadaHaBarreiraSuspensa: TWideStringField;
tblEscadaNaoHaNecessidadeDePatamar: TWideStringField;
tblEscadaOCorrimaoNaoPossuiSecaoEmFormaAdequada: TWideStringField;
tblEscadaDegrausEmLeque: TWideStringField;
tblEscadaDegrausComProfundidadeDesfavoravel: TWideStringField;
tblEscadaCorrimaoNaoPossuiSinalizacaoEmBraille: TWideStringField;
tblEscadaCorrimaoNaoPossuiSinalizacaoEmAmbosOsLados: TWideStringField;
tblEscadaNaoPossuiCorrimaoIntermediario: TWideStringField;
tblEscadaHaSinalizacaoNaBarreiraSuspensa: TWideStringField;
tblEscadaD1: TIntegerField;
tblEscadaD2: TIntegerField;
tblEscadaD3: TIntegerField;
tblEscadaD4: TIntegerField;
tblEscadaD5: TIntegerField;
tblEscadaD6: TIntegerField;
tblEscadaD7: TIntegerField;
tblEscadaD8: TIntegerField;
tblEscadaD9: TIntegerField;
tblEscadaD10: TIntegerField;
tblEscadaStatus: TWideStringField;
tblEscadaFoto1: TBlobField;
tblEscadaFoto2: TBlobField;
tblEscadaObs: TMemoField;
tblRampaCodigo: TWideStringField;
tblRampaCodPasseioPublico: TWideStringField;
tblRampaCodAcesso: TWideStringField;
tblRampaCodCirculacaoVertical: TWideStringField;
tblRampaCodCirculacaoHorizontal: TWideStringField;
tblRampaCodLocalReuniao: TWideStringField;
tblRampaIdentifique: TWideStringField;
tblRampaCondicoesDePiso: TWideStringField;
tblRampaAlturaDesnivelVencido: TIntegerField;
tblRampaRampaEmCurva: TWideStringField;
tblRampaRaioInterno: TIntegerField;
tblRampaCorrimaoNaoEContinuiNosPatamares: TWideStringField;
tblRampaCorrimaoNaoPossuiAcabamentosCurvado: TWideStringField;
tblRampaCorrimaoNaoPossuiSinalizacaoBraille: TWideStringField;
tblRampaNaoPossuiCorrimaoIntermediario: TWideStringField;
tblRampaNaoPossuiCorrimaoEmAmbosOsLados: TWideStringField;
tblRampaNaoHaNecessidadeDePatamar: TWideStringField;
tblRampaNaoHaNecessidadeDeGuiaBaliz: TWideStringField;
tblRampaNaoHaNecessidadeProlongCorr: TWideStringField;
tblRampaNaoHaParedeAoLadoDoCorrimao: TWideStringField;
tblRampaCorrimaoNaoPossuiSecaoEmFormAdeq: TWideStringField;
tblRampaD1: TIntegerField;
tblRampaD2: TIntegerField;
tblRampaD3: TIntegerField;
tblRampaD4: TIntegerField;
tblRampaD5: TIntegerField;
tblRampaD6: TIntegerField;
tblRampaD7: TIntegerField;
tblRampaD8: TIntegerField;
tblRampaD9: TIntegerField;
tblRampaD10: TIntegerField;
tblRampaD11: TIntegerField;
tblRampaTemPisoTatilInterno: TWideStringField;
tblRampaStatus: TWideStringField;
tblRampaFoto: TBlobField;
tblRampaObs: TMemoField;
tblDesnivelTransversalCodigo: TWideStringField;
tblDesnivelTransversalCodPasseioPublico: TWideStringField;
tblDesnivelTransversalCodCirculacaoHorizontal: TWideStringField;
tblDesnivelTransversalCodAcesso: TWideStringField;
tblDesnivelTransversalIdentifique: TWideStringField;
tblDesnivelTransversalTipo: TWideStringField;
tblDesnivelTransversalStatus: TWideStringField;
tblDesnivelTransversalFoto: TBlobField;
tblDesnivelTransversalObs: TMemoField;
tblPlataformaPercursoVerticalCodigo: TWideStringField;
tblPlataformaPercursoVerticalCodLocalReuniao: TWideStringField;
tblPlataformaPercursoVerticalCodAcesso: TWideStringField;
tblPlataformaPercursoVerticalCodCirculacaoHoriz: TWideStringField;
tblPlataformaPercursoVerticalCodCirculacaoVertical: TWideStringField;
tblPlataformaPercursoVerticalCodElevador: TWideStringField;
tblPlataformaPercursoVerticalIdentifique: TWideStringField;
tblPlataformaPercursoVerticalDesnivelVencido: TIntegerField;
tblPlataformaPercursoVerticalPossuiCxEnclausurada: TWideStringField;
tblPlataformaPercursoVerticalPossuiDispositivoComunicacaoParaSolAux: TWideStringField;
tblPlataformaPercursoVerticalPossuiPessoalTreinadoDeAux: TWideStringField;
tblPlataformaPercursoVerticalPossuiSIA: TWideStringField;
tblPlataformaPercursoVerticalStatus: TWideStringField;
tblPlataformaPercursoVerticalFoto: TBlobField;
tblPlataformaPercursoVerticalObs: TMemoField;
tblPlataformaPercursoInclinadoCodigo: TWideStringField;
tblPlataformaPercursoInclinadoCodAcesso: TWideStringField;
tblPlataformaPercursoInclinadoCodCirculacaoHorizontal: TWideStringField;
tblPlataformaPercursoInclinadoCodCirculacaoVertical: TWideStringField;
tblPlataformaPercursoInclinadoCodElevador: TWideStringField;
tblPlataformaPercursoInclinadoCodLocalReuniao: TWideStringField;
tblPlataformaPercursoInclinadoIdentifique: TWideStringField;
tblPlataformaPercursoInclinadoHaParadaProgramadaNosPatamares: TWideStringField;
tblPlataformaPercursoInclinadoHaParadaProgramadaACada320deAltura: TWideStringField;
tblPlataformaPercursoInclinadoPossuiAssentoEscamoteavel: TWideStringField;
tblPlataformaPercursoInclinadoPossuiDispositivoDeComParaPedirAuxilio: TWideStringField;
tblPlataformaPercursoInclinadoPossuiSinalizacaoVisualNaAreaDeEmbarEPercurso: TWideStringField;
tblPlataformaPercursoInclinadoPossuiPessoalTreinadoParaAuxilio: TWideStringField;
tblPlataformaPercursoInclinadoPossuiSIA: TWideStringField;
tblPlataformaPercursoInclinadoStatus: TWideStringField;
tblPlataformaPercursoInclinadoFoto: TBlobField;
tblPlataformaPercursoInclinadoObs: TMemoField;
tblPortaCodigo: TWideStringField;
tblPortaCodAcesso: TWideStringField;
tblPortaIdentifique: TWideStringField;
tblPortaTipo: TWideStringField;
tblPortaQualTipoDePuxador: TWideStringField;
tblPortaOutroTipoPuxador: TWideStringField;
tblPortaAlturaDoPuxador: TIntegerField;
tblPortaD1: TIntegerField;
tblPortaD2: TIntegerField;
tblPortaD3: TIntegerField;
tblPortaStatus: TWideStringField;
tblPortaFoto: TBlobField;
tblPortaObs: TMemoField;
tblCatracaPortaGiraCodigo: TWideStringField;
tblCatracaPortaGiraCodAcesso: TWideStringField;
tblCatracaPortaGiraIdentifique: TWideStringField;
tblCatracaPortaGiraHaPassagemAcessivelAlternativa: TWideStringField;
tblCatracaPortaGiraPossuiSIAInformandoEntradaAcessivel: TWideStringField;
tblCatracaPortaGiraStatus: TWideStringField;
tblCatracaPortaGiraFoto: TBlobField;
tblCatracaPortaGiraObs: TMemoField;
tblCapachoCodigo: TWideStringField;
tblCapachoCodAcesso: TWideStringField;
tblCapachoCodCirculacaoHorizontal: TWideStringField;
tblCapachoIdentifique: TWideStringField;
tblCapachoAltura: TIntegerField;
tblCapachoStatus: TWideStringField;
tblCapachoFoto: TBlobField;
tblCapachoObs: TMemoField;
tblTapeteCodigo: TWideStringField;
tblTapeteCodAcesso: TWideStringField;
tblTapeteCodCirculacaoHorizontal: TWideStringField;
tblTapeteIdentifique: TWideStringField;
tblTapeteAltura: TIntegerField;
tblTapeteStatus: TWideStringField;
tblTapeteFoto: TBlobField;
tblTapeteObs: TMemoField;
tblCampainha: TADOTable;
tblCampainhaCodigo: TWideStringField;
tblCampainhaCodAcesso: TWideStringField;
tblCampainhaIdentifique: TWideStringField;
tblCampainhaAltura: TIntegerField;
tblCampainhaD1: TIntegerField;
tblCampainhaStatus: TWideStringField;
tblCampainhaFoto: TBlobField;
tblCampainhaObs: TMemoField;
tblInterfoneCodigo: TWideStringField;
tblInterfoneCodAcesso: TWideStringField;
tblInterfoneCodCirculacaoHorizontal: TWideStringField;
tblInterfoneIdentifique: TWideStringField;
tblInterfoneD1: TIntegerField;
tblInterfoneAltura: TIntegerField;
tblInterfoneStatus: TWideStringField;
tblInterfoneFoto: TBlobField;
tblInterfoneObs: TMemoField;
tblGrelhaCodGrelha: TWideStringField;
tblGrelhaCodCirculacaoHorizontal: TWideStringField;
tblGrelhaCodAcesso: TWideStringField;
tblGrelhaCodPasseioPublico: TWideStringField;
tblGrelhaIdentifiqueGrelha: TWideStringField;
tblGrelhaGrelhaNoSentidoTransFlux: TWideStringField;
tblGrelhaD1: TIntegerField;
tblGrelhaD2: TIntegerField;
tblGrelhaStatus: TWideStringField;
tblGrelhaFoto: TBlobField;
tblGrelhaObs: TMemoField;
tblEscadaD11: TIntegerField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMAcesso: TDMAcesso;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMCirculacaoHorizontal;

interface

uses
Windows, SysUtils, Classes, DB, ADODB;

type
TDMCirculacaoHorizontal = class(TDataModule)
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
dtsEmpresa: TDataSource;
dtsCirculacaoHorizontal: TDataSource;
dtsCorredor: TDataSource;
dtsPiso: TDataSource;
dtsCapacho: TDataSource;
dtsTapete: TDataSource;
ADOQryVisita: TADOQuery;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblCirculacaoHorizontal: TADOTable;
tblCorredor: TADOTable;
tblPiso: TADOTable;
tblCapacho: TADOTable;
tblTapete: TADOTable;
dtsGrelha: TDataSource;
dtsBarreiraSuspensa: TDataSource;
dtsDesnivelTransversal: TDataSource;
dtsDegrau: TDataSource;
tblGrelha: TADOTable;
tblBarreiraSuspensa: TADOTable;
tblDesnivelTransversal: TADOTable;
tblDegrau: TADOTable;
dtsRampa: TDataSource;
dtsPlatPercVert: TDataSource;
dtsEscada: TDataSource;
dtsPlatPercInc: TDataSource;
tblRampa: TADOTable;
tblPlatPercVert: TADOTable;
tblEscada: TADOTable;
tblPlatPercInc: TADOTable;
tblCirculacaoHorizontalCodigo: TWideStringField;
tblCirculacaoHorizontalCodVisita: TWideStringField;
tblCirculacaoHorizontalQualLocalASerAnalizado: TWideStringField;
tblCirculacaoHorizontalStatus: TWideStringField;
tblCirculacaoHorizontalFoto: TBlobField;
tblCirculacaoHorizontalObs: TMemoField;
tblCorredorCodigo: TWideStringField;
tblCorredorCodCirculacaoHorizontal: TWideStringField;
tblCorredorIdentifique: TWideStringField;
tblCorredorQualAMenorLargura: TIntegerField;
tblCorredorQualOComprimento: TIntegerField;
tblCorredorStatus: TWideStringField;
tblCorredorFoto: TBlobField;
tblCorredorObs: TMemoField;
tblPisoCodigo: TWideStringField;
tblPisoCodCirculacaoHorizontal: TWideStringField;
tblPisoEspecifique: TWideStringField;
tblPisoCondicoesDoPiso: TWideStringField;
tblPisoQualORevestimento: TWideStringField;
tblPisoStatus: TWideStringField;
tblPisoFoto: TBlobField;
tblPisoObs: TMemoField;
tblCapachoCodigo: TWideStringField;
tblCapachoCodAcesso: TWideStringField;
tblCapachoCodCirculacaoHorizontal: TWideStringField;
tblCapachoIdentifique: TWideStringField;
tblCapachoAltura: TIntegerField;
tblCapachoStatus: TWideStringField;
tblCapachoFoto: TBlobField;
tblCapachoObs: TMemoField;
tblTapeteCodigo: TWideStringField;
tblTapeteCodAcesso: TWideStringField;
tblTapeteCodCirculacaoHorizontal: TWideStringField;
tblTapeteIdentifique: TWideStringField;
tblTapeteAltura: TIntegerField;
tblTapeteStatus: TWideStringField;
tblTapeteFoto: TBlobField;
tblTapeteObs: TMemoField;
tblRampaCodigo: TWideStringField;
tblRampaCodPasseioPublico: TWideStringField;
tblRampaCodAcesso: TWideStringField;
tblRampaCodCirculacaoVertical: TWideStringField;
tblRampaCodCirculacaoHorizontal: TWideStringField;
tblRampaCodLocalReuniao: TWideStringField;
tblRampaIdentifique: TWideStringField;
tblRampaCondicoesDePiso: TWideStringField;
tblRampaAlturaDesnivelVencido: TIntegerField;
tblRampaRampaEmCurva: TWideStringField;
tblRampaRaioInterno: TIntegerField;
tblRampaCorrimaoNaoEContinuiNosPatamares: TWideStringField;
tblRampaCorrimaoNaoPossuiAcabamentosCurvado: TWideStringField;
tblRampaCorrimaoNaoPossuiSinalizacaoBraille: TWideStringField;
tblRampaNaoPossuiCorrimaoIntermediario: TWideStringField;
tblRampaNaoPossuiCorrimaoEmAmbosOsLados: TWideStringField;
tblRampaNaoHaNecessidadeDePatamar: TWideStringField;
tblRampaNaoHaNecessidadeDeGuiaBaliz: TWideStringField;
tblRampaNaoHaNecessidadeProlongCorr: TWideStringField;
tblRampaNaoHaParedeAoLadoDoCorrimao: TWideStringField;
tblRampaCorrimaoNaoPossuiSecaoEmFormAdeq: TWideStringField;
tblRampaD1: TIntegerField;
tblRampaD2: TIntegerField;
tblRampaD3: TIntegerField;
tblRampaD4: TIntegerField;
tblRampaD5: TIntegerField;
tblRampaD6: TIntegerField;
tblRampaD7: TIntegerField;
tblRampaD8: TIntegerField;
tblRampaD9: TIntegerField;
tblRampaD10: TIntegerField;
tblRampaD11: TIntegerField;
tblRampaTemPisoTatilInterno: TWideStringField;
tblRampaStatus: TWideStringField;
tblRampaFoto: TBlobField;
tblRampaObs: TMemoField;
tblPlatPercVertCodigo: TWideStringField;
tblPlatPercVertCodLocalReuniao: TWideStringField;
tblPlatPercVertCodAcesso: TWideStringField;
tblPlatPercVertCodCirculacaoHoriz: TWideStringField;
tblPlatPercVertCodCirculacaoVertical: TWideStringField;
tblPlatPercVertCodElevador: TWideStringField;
tblPlatPercVertIdentifique: TWideStringField;
tblPlatPercVertDesnivelVencido: TIntegerField;
tblPlatPercVertPossuiCxEnclausurada: TWideStringField;
tblPlatPercVertPossuiDispositivoComunicacaoParaSolAux: TWideStringField;
tblPlatPercVertPossuiPessoalTreinadoDeAux: TWideStringField;
tblPlatPercVertPossuiSIA: TWideStringField;
tblPlatPercVertStatus: TWideStringField;
tblPlatPercVertFoto: TBlobField;
tblPlatPercVertObs: TMemoField;
tblGrelhaCodGrelha: TWideStringField;
tblGrelhaCodCirculacaoHorizontal: TWideStringField;
tblGrelhaCodAcesso: TWideStringField;
tblGrelhaCodPasseioPublico: TWideStringField;
tblGrelhaIdentifiqueGrelha: TWideStringField;
tblGrelhaGrelhaNoSentidoTransFlux: TWideStringField;
tblGrelhaD1: TIntegerField;
tblGrelhaD2: TIntegerField;
tblGrelhaStatus: TWideStringField;
tblGrelhaFoto: TBlobField;
tblGrelhaObs: TMemoField;
tblBarreiraSuspensaCodigo: TWideStringField;
tblBarreiraSuspensaCodCirculacaoHorizontal: TWideStringField;
tblBarreiraSuspensaIdentifique: TWideStringField;
tblBarreiraSuspensaD1: TIntegerField;
tblBarreiraSuspensaD2: TIntegerField;
tblBarreiraSuspensaD3: TIntegerField;
tblBarreiraSuspensaD4: TIntegerField;
tblBarreiraSuspensaStatus: TWideStringField;
tblBarreiraSuspensaFoto: TBlobField;
tblBarreiraSuspensaObs: TMemoField;
tblDesnivelTransversalCodigo: TWideStringField;
tblDesnivelTransversalCodPasseioPublico: TWideStringField;
tblDesnivelTransversalCodCirculacaoHorizontal: TWideStringField;
tblDesnivelTransversalCodAcesso: TWideStringField;
tblDesnivelTransversalIdentifique: TWideStringField;
tblDesnivelTransversalTipo: TWideStringField;
tblDesnivelTransversalStatus: TWideStringField;
tblDesnivelTransversalFoto: TBlobField;
tblDesnivelTransversalObs: TMemoField;
tblDegrauCodigo: TWideStringField;
tblDegrauCodPasseioPublico: TWideStringField;
tblDegrauCodAcesso: TWideStringField;
tblDegrauCodCirculacaoHorizontal: TWideStringField;
tblDegrauIdentifique: TWideStringField;
tblDegrauPossuiFaixaCorContraste: TWideStringField;
tblDegrauAlturaDegrau: TIntegerField;
tblDegrauStatus: TWideStringField;
tblDegrauFoto: TBlobField;
tblDegrauObs: TMemoField;
tblEscadaCodigo: TWideStringField;
tblEscadaCodPasseioPublico: TWideStringField;
tblEscadaCodCirculacaoHorizontal: TWideStringField;
tblEscadaCodCirculacaoVertical: TWideStringField;
tblEscadaCodAcesso: TWideStringField;
tblEscadaCodLocalReuniao: TWideStringField;
tblEscadaIdentifique: TWideStringField;
tblEscadaCondicoesDoPiso: TWideStringField;
tblEscadaPossuiEspelhoVazada: TWideStringField;
tblEscadaAEscadaNaoPossuiSinalizacaoContraste: TWideStringField;
tblEscadaCorrimaoNaoeContinuiNosParamares: TWideStringField;
tblEscadaCorrimaoNaoPossuiAcabamentoCurvado: TWideStringField;
tblEscadaHaBarreiraSuspensa: TWideStringField;
tblEscadaNaoHaNecessidadeDePatamar: TWideStringField;
tblEscadaOCorrimaoNaoPossuiSecaoEmFormaAdequada: TWideStringField;
tblEscadaDegrausEmLeque: TWideStringField;
tblEscadaDegrausComProfundidadeDesfavoravel: TWideStringField;
tblEscadaCorrimaoNaoPossuiSinalizacaoEmBraille: TWideStringField;
tblEscadaCorrimaoNaoPossuiSinalizacaoEmAmbosOsLados: TWideStringField;
tblEscadaNaoPossuiCorrimaoIntermediario: TWideStringField;
tblEscadaHaSinalizacaoNaBarreiraSuspensa: TWideStringField;
tblEscadaD1: TIntegerField;
tblEscadaD2: TIntegerField;
tblEscadaD3: TIntegerField;
tblEscadaD4: TIntegerField;
tblEscadaD5: TIntegerField;
tblEscadaD6: TIntegerField;
tblEscadaD7: TIntegerField;
tblEscadaD8: TIntegerField;
tblEscadaD9: TIntegerField;
tblEscadaD10: TIntegerField;
tblEscadaStatus: TWideStringField;
tblEscadaFoto1: TBlobField;
tblEscadaFoto2: TBlobField;
tblEscadaObs: TMemoField;
tblPlatPercIncCodigo: TWideStringField;
tblPlatPercIncCodAcesso: TWideStringField;
tblPlatPercIncCodCirculacaoHorizontal: TWideStringField;
tblPlatPercIncCodCirculacaoVertical: TWideStringField;
tblPlatPercIncCodElevador: TWideStringField;
tblPlatPercIncCodLocalReuniao: TWideStringField;
tblPlatPercIncIdentifique: TWideStringField;
tblPlatPercIncHaParadaProgramadaNosPatamares: TWideStringField;
tblPlatPercIncHaParadaProgramadaACada320deAltura: TWideStringField;
tblPlatPercIncPossuiAssentoEscamoteavel: TWideStringField;
tblPlatPercIncPossuiDispositivoDeComParaPedirAuxilio: TWideStringField;
tblPlatPercIncPossuiSinalizacaoVisualNaAreaDeEmbarEPercurso: TWideStringField;
tblPlatPercIncPossuiPessoalTreinadoParaAuxilio: TWideStringField;
tblPlatPercIncPossuiSIA: TWideStringField;
tblPlatPercIncStatus: TWideStringField;
tblPlatPercIncFoto: TBlobField;
tblPlatPercIncObs: TMemoField;
tblEscadaD11: TIntegerField;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMCirculacaoHorizontal: TDMCirculacaoHorizontal;

implementation

uses frmPrincipal;

{$R *.dfm}

procedure TDMCirculacaoHorizontal.DataModuleCreate(Sender: TObject);
//var
// spath : string;
begin
{
spath := extractfilepath(application.ExeName);
ADOConnection1.Connected :=False;
ADOConnection1.ConnectionString:= ‘FILE NAME=’+spath+’bancodedados.udl’;
ADOConnection1.Connected :=True;
}
{ with formDataModule do
begin
ADOConnection1.Close;
ADOConnection1.ConnectionString:=’FILE NAME=’+ExtractFilePath(ParamStr(0))+’bancodedados.udl’;
// ADOConnection1.ConnectionString:=’FILE NAME=C:\sistemavistoria1\fontes\bancodedados.udl’;
ADOConnection1.Open;
end;

}
end;

end.
unit frmDMCirculacaoVertical;

interface

uses
SysUtils, Classes, ADODB, DB;

type
TDMCirculacaoVertical = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
dtsEmpresa: TDataSource;
tblEmpresa: TADOTable;
dtsRampa: TDataSource;
dtsEscada: TDataSource;
dtsElevador: TDataSource;
dtsPlatPercVert: TDataSource;
dtsPlatPercInc: TDataSource;
dtsEscadaRolante: TDataSource;
dtsEsteiraRolante: TDataSource;
tblRampa: TADOTable;
tblEscada: TADOTable;
tblPlatPercVert: TADOTable;
tblPlatPercInc: TADOTable;
tblEscadaRolante: TADOTable;
tblEsteiraRolante: TADOTable;
tblCirculacaoVertical: TADOTable;
dtsCirculacaoVertical: TDataSource;
tblCirculacaoVerticalCodigo: TWideStringField;
tblCirculacaoVerticalCodVisita: TWideStringField;
tblCirculacaoVerticalIdentifique: TWideStringField;
tblCirculacaoVerticalStatus: TWideStringField;
tblCirculacaoVerticalFoto: TBlobField;
tblCirculacaoVerticalObs: TMemoField;
tblElevador: TADOTable;
tblElevadorCodigo: TWideStringField;
tblElevadorCodCirculacaoVertical: TWideStringField;
tblElevadorIdentifique: TWideStringField;
tblElevadorAlvaraNumero: TIntegerField;
tblElevadorAlturaBotoneiraExterna: TIntegerField;
tblElevadorAlturaDaSinalizacao: TIntegerField;
tblElevadorHaSinalizacaoEmBrailleNoBatente: TWideStringField;
tblElevadorHaSinalizaCaoemBrailleNaBotoneiraExterna: TWideStringField;
tblElevadorHaSinalSonosoIndicandoSubidaEDescida: TWideStringField;
tblElevadorHaComunicaoAuditivaIndicandoAndar: TWideStringField;
tblElevadorHaSinalizacaoEmBrailleNaBotoneiraInterna: TWideStringField;
tblElevadorHaSistemaDeProtecaoEReaberturaDePorta: TWideStringField;
tblElevadorHaInterfoneComAPortaria: TWideStringField;
tblElevadorHaCameraDeVideoComAPortaria: TWideStringField;
tblElevadorD1: TIntegerField;
tblElevadorD2: TIntegerField;
tblElevadorD3: TIntegerField;
tblElevadorD4: TIntegerField;
tblElevadorD5: TIntegerField;
tblElevadorD6: TIntegerField;
tblElevadorD7: TIntegerField;
tblElevadorD8: TIntegerField;
tblElevadorD9: TIntegerField;
tblElevadorD10: TIntegerField;
tblElevadorD11: TIntegerField;
tblElevadorD12: TIntegerField;
tblElevadorD13: TIntegerField;
tblElevadorQualTipoDePorta: TWideStringField;
tblElevadorStatus: TWideStringField;
tblElevadorFoto: TBlobField;
tblElevadorObs: TMemoField;
tblPlatPercVertCodigo: TWideStringField;
tblPlatPercVertCodLocalReuniao: TWideStringField;
tblPlatPercVertCodAcesso: TWideStringField;
tblPlatPercVertCodCirculacaoHoriz: TWideStringField;
tblPlatPercVertCodCirculacaoVertical: TWideStringField;
tblPlatPercVertCodElevador: TWideStringField;
tblPlatPercVertIdentifique: TWideStringField;
tblPlatPercVertDesnivelVencido: TIntegerField;
tblPlatPercVertPossuiCxEnclausurada: TWideStringField;
tblPlatPercVertPossuiDispositivoComunicacaoParaSolAux: TWideStringField;
tblPlatPercVertPossuiPessoalTreinadoDeAux: TWideStringField;
tblPlatPercVertPossuiSIA: TWideStringField;
tblPlatPercVertStatus: TWideStringField;
tblPlatPercVertFoto: TBlobField;
tblPlatPercVertObs: TMemoField;
tblEscadaRolanteCodigo: TWideStringField;
tblEscadaRolanteCodCirculacaoVertical: TWideStringField;
tblEscadaRolanteIdentifique: TWideStringField;
tblEscadaRolantePossuiPlataformaParaCadeiraDeRodas: TWideStringField;
tblEscadaRolantePossuiSinalizacaoVisual: TWideStringField;
tblEscadaRolantePossuiSinalizacaoTatil: TWideStringField;
tblEscadaRolantePossuiInstrucoesDeUso: TWideStringField;
tblEscadaRolanteASinalizInformObrigAcompPessoalHabilitado: TWideStringField;
tblEscadaRolantePossuiDispositivoDeComunicacao: TWideStringField;
tblEscadaRolantePossuiSimboloInternacionalDeAcesso: TWideStringField;
tblEscadaRolantePossuiPisoTatilDeAlerta: TWideStringField;
tblEscadaRolanteLarguraDoPisoTatil: TIntegerField;
tblEscadaRolanteStatus: TWideStringField;
tblEscadaRolanteFoto: TBlobField;
tblEscadaRolanteObs: TMemoField;
tblEsteiraRolanteCodigo: TWideStringField;
tblEsteiraRolanteCodCirculacaoVertical: TWideStringField;
tblEsteiraRolanteIdentifique: TWideStringField;
tblEsteiraRolanteSinalIndicNecdAjudaPCadeiraIncl: TWideStringField;
tblEsteiraRolantePossuiDispositivoDeComunicacao: TWideStringField;
tblEsteiraRolantePossuiSimboloInterAcesso: TWideStringField;
tblEsteiraRolantePossuiPisoTatil: TWideStringField;
tblEsteiraRolanteLarguraPisoTatil: TIntegerField;
tblEsteiraRolanteStatus: TWideStringField;
tblEsteiraRolanteFoto: TBlobField;
tblEsteiraRolanteObs: TMemoField;
dtsRota: TDataSource;
tblRota: TADOTable;
tblRotaCodigo: TWideStringField;
tblRotaCodCirculacaoVertical: TWideStringField;
tblRotaHaRotaAcessInterLigPavColPub: TWideStringField;
tblRotaStatus: TWideStringField;
tblRotaFoto: TBlobField;
tblRotaObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMCirculacaoVertical: TDMCirculacaoVertical;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMConexao;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMConexao = class(TDataModule)
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMConexao: TDMConexao;

implementation

{$R *.dfm}

end.
unit frmDMCozinhas;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMCozinhas = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsCozinha: TDataSource;
tblCozinha: TADOTable;
tblCozinhaCodigo: TWideStringField;
tblCozinhaCodVisita: TWideStringField;
tblCozinhaIdentifique: TWideStringField;
tblCozinhaExisteCondicaoCirculacao: TWideStringField;
tblCozinhaD1: TIntegerField;
tblCozinhaD2: TIntegerField;
tblCozinhaD3: TIntegerField;
tblCozinhaD4: TIntegerField;
tblCozinhaStatus: TWideStringField;
tblCozinhaFoto: TBlobField;
tblCozinhaObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMCozinhas: TDMCozinhas;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMEquipAutoAtend;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMEquipamentoAutoAtend = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsEquipautoAtend: TDataSource;
tblEquipAutoAtend: TADOTable;
tblEquipAutoAtendCodigo: TWideStringField;
tblEquipAutoAtendCodVisita: TWideStringField;
tblEquipAutoAtendIdentifique: TWideStringField;
tblEquipAutoAtendLocalizacao: TWideStringField;
tblEquipAutoAtendQtdEquipAcessPorPavimento: TIntegerField;
tblEquipAutoAtendHaPeloMenosUmEquipAcessivel: TWideStringField;
tblEquipAutoAtendAreaDeAproximacao: TWideStringField;
tblEquipAutoAtendControlesAMaisDe30cmDaFrente: TWideStringField;
tblEquipAutoAtendDispEntradaSaidaAMaisDe30cm: TWideStringField;
tblEquipAutoAtendDispEntradaSaidaEntre040e120cm: TWideStringField;
tblEquipAutoAtendCtrlsEntre080e120cm: TWideStringField;
tblEquipAutoAtendHaConectorParaFoneDeOuvido: TWideStringField;
tblEquipAutoAtendModuloDeReferenciaGarantido: TWideStringField;
tblEquipAutoAtendD1: TIntegerField;
tblEquipAutoAtendD2: TIntegerField;
tblEquipAutoAtendStatus: TWideStringField;
tblEquipAutoAtendFoto: TBlobField;
tblEquipAutoAtendObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMEquipamentoAutoAtend: TDMEquipamentoAutoAtend;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMEsporteLazerTurismo;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMEsporteLazerTurismo = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsLocaisDeEsporteLazerTurismo: TDataSource;
tblLocaisDeEsporteLazerTurismo: TADOTable;
tblLocaisDeEsporteLazerTurismoCodigo: TWideStringField;
tblLocaisDeEsporteLazerTurismoCodVisita: TWideStringField;
tblLocaisDeEsporteLazerTurismoIdentifique: TWideStringField;
tblLocaisDeEsporteLazerTurismoPortasComVaoLivreMin: TWideStringField;
tblLocaisDeEsporteLazerTurismoStatus: TWideStringField;
tblLocaisDeEsporteLazerTurismoFoto: TBlobField;
tblLocaisDeEsporteLazerTurismoObs: TMemoField;
dtsArquibancada: TDataSource;
dtsParquePraca: TDataSource;
dtsPiscina: TDataSource;
dtsEscadaPiscina: TDataSource;
dtsRampaSubmersa: TDataSource;
dtsBancoPiscina: TDataSource;
tblArquibancada: TADOTable;
tblParquePraca: TADOTable;
tblPiscina: TADOTable;
tblRampaSubmersa: TADOTable;
tblBancoPiscina: TADOTable;
tblEscadaPiscina: TADOTable;
tblArquibancadaCodigo: TWideStringField;
tblArquibancadaCodLocalEsportLazer: TWideStringField;
tblArquibancadaIdentifique: TWideStringField;
tblArquibancadaExistemEspacosReservadosPara: TWideStringField;
tblArquibancadaAssentosReservadosEstaoSinalizados: TWideStringField;
tblArquibancadaExisteRotaAcessivelInterligndEspAoAssentos: TWideStringField;
tblArquibancadaStatus: TWideStringField;
tblArquibancadaFoto: TBlobField;
tblArquibancadaObs: TMemoField;
tblParquePracaCodigo: TWideStringField;
tblParquePracaCodLocalEsporteLazer: TWideStringField;
tblParquePracaIdentifique: TWideStringField;
tblParquePracaMobiliarioOuEquipSaoAcessiveis: TWideStringField;
tblParquePracaExistePeloMenosUmaMesaAcessivel: TWideStringField;
tblParquePracaStatus: TWideStringField;
tblParquePracaFoto: TBlobField;
tblParquePracaObs: TMemoField;
tblPiscinaCodigo: TWideStringField;
tblPiscinaCodLocalEsporteLazer: TWideStringField;
tblPiscinaIdentifique: TWideStringField;
tblPiscinaPisoNoEntornoDaPiscinaAtiderrapante: TWideStringField;
tblPiscinaHaEquipMecOuEletricParaTrans: TWideStringField;
tblPiscinaNaoHaAcessoAPiscinaParaPCR: TWideStringField;
tblPiscinaStatus: TWideStringField;
tblPiscinaFoto: TBlobField;
tblPiscinaObs: TMemoField;
tblEscadaPiscinaCodigo: TWideStringField;
tblEscadaPiscinaCodLocalEsporteLazer: TWideStringField;
tblEscadaPiscinaIdentifique: TWideStringField;
tblEscadaPiscinaBordaDegrauAcabamentoArredondado: TWideStringField;
tblEscadaPiscinaEscadaSubmersaTemCorrimaoAmbosLados: TWideStringField;
tblEscadaPiscinaDistanciaEntreCorrimaos: TWideStringField;
tblEscadaPiscinaD1: TIntegerField;
tblEscadaPiscinaD2: TIntegerField;
tblEscadaPiscinaD3: TIntegerField;
tblEscadaPiscinaD4: TIntegerField;
tblEscadaPiscinaD5: TIntegerField;
tblEscadaPiscinaStatus: TWideStringField;
tblEscadaPiscinaFoto: TBlobField;
tblEscadaPiscinaObs: TMemoField;
tblRampaSubmersaCodigo: TWideStringField;
tblRampaSubmersaCodLocalEsporteLazer: TWideStringField;
tblRampaSubmersaIdentifique: TWideStringField;
tblRampaSubmersaPossuiCorrimaoAmbosLados: TWideStringField;
tblRampaSubmersaDistanciaEntreCorrimao: TWideStringField;
tblRampaSubmersaD1: TIntegerField;
tblRampaSubmersaD2: TIntegerField;
tblRampaSubmersaD3: TIntegerField;
tblRampaSubmersaD4: TIntegerField;
tblRampaSubmersaD5: TIntegerField;
tblRampaSubmersaStatus: TWideStringField;
tblRampaSubmersaFoto: TBlobField;
tblRampaSubmersaObs: TMemoField;
tblBancoPiscinaCodigo: TWideStringField;
tblBancoPiscinaCodLocalEsporteLazer: TWideStringField;
tblBancoPiscinaIdentifique: TWideStringField;
tblBancoPiscinaAreaDeAproxManobraNaoInterfereAreaCir: TWideStringField;
tblBancoPiscinaExtensaoDoBanco: TIntegerField;
tblBancoPiscinaD1: TIntegerField;
tblBancoPiscinaD2: TIntegerField;
tblBancoPiscinaD3: TIntegerField;
tblBancoPiscinaStatus: TWideStringField;
tblBancoPiscinaFoto: TBlobField;
tblBancoPiscinaObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMEsporteLazerTurismo: TDMEsporteLazerTurismo;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMEstacionamento;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMEstacionamento = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsEstacionamento: TDataSource;
tblEstacionamento: TADOTable;
tblEstacionamentoCodigo: TWideStringField;
tblEstacionamentoCodVisita: TWideStringField;
tblEstacionamentoIdentifique: TWideStringField;
tblEstacionamentoQtdTotalVagas: TIntegerField;
tblEstacionamentoQtdVagasParaDeficientes: TIntegerField;
tblEstacionamentoLarguraVaga: TIntegerField;
tblEstacionamentoComprimentoVaga: TIntegerField;
tblEstacionamentoLarguraFaixaAdicional: TIntegerField;
tblEstacionamentoVagasAdaptProxAoAcessoPrincipal: TWideStringField;
tblEstacionamentoVagasAdaptLocalizadaEmRotaAcesso: TWideStringField;
tblEstacionamentoVagasAdaptTemSinalizVert: TWideStringField;
tblEstacionamentoTemSinalizacaoHorizontalAdequada: TWideStringField;
tblEstacionamentoSinalOrientPercAtVagaAcess: TWideStringField;
tblEstacionamentoStatus: TWideStringField;
tblEstacionamentoFoto: TBlobField;
tblEstacionamentoObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMEstacionamento: TDMEstacionamento;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMLocaisDeEnsino;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMLocaisDeEnsino = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsLocaisDeEnsino: TDataSource;
tblLocaisDeEnsino: TADOTable;
tblLocaisDeEnsinoCodigo: TWideStringField;
tblLocaisDeEnsinoCodVisita: TWideStringField;
tblLocaisDeEnsinoIdentifique: TWideStringField;
tblLocaisDeEnsinoEntradaEmLocalDeMenorFluxo: TWideStringField;
tblLocaisDeEnsinoTodasAsAreasAdmSaoAcessiveis: TWideStringField;
tblLocaisDeEnsinoIdentAresAdminInacessiveis: TMemoField;
tblLocaisDeEnsinoTodasASAreasCompSaoAcessiveis: TWideStringField;
tblLocaisDeEnsinoIdentAreasCompInacessiveis: TMemoField;
tblLocaisDeEnsinoStatus: TWideStringField;
tblLocaisDeEnsinoFoto: TBlobField;
tblLocaisDeEnsinoObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMLocaisDeEnsino: TDMLocaisDeEnsino;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMLocaisDeExposicao;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMLocaisDeExposicao = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsLocaisDeExposicao: TDataSource;
tblLocaisDeExposicao: TADOTable;
tblLocaisDeExposicaoCodigo: TWideStringField;
tblLocaisDeExposicaoCodVisita: TWideStringField;
tblLocaisDeExposicaoIdentifique: TWideStringField;
tblLocaisDeExposicaoTodosElemtExpPublicaEstaAcessiveis: TWideStringField;
tblLocaisDeExposicaoTextosExplicOuSimilarEmBraille: TWideStringField;
tblLocaisDeExposicaoStatus: TWideStringField;
tblLocaisDeExposicaoFoto: TBlobField;
tblLocaisDeExposicaoObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMLocaisDeExposicao: TDMLocaisDeExposicao;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMLocaisDeHospedagem;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMLocaisDeHospedagem = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsLocaisDeHospedagem: TDataSource;
tblLocaisDeHospedagem: TADOTable;
tblLocaisDeHospedagemCodigo: TWideStringField;
tblLocaisDeHospedagemCodVisita: TWideStringField;
tblLocaisDeHospedagemIdentifique: TWideStringField;
tblLocaisDeHospedagemQualTotalDeDormitorios: TIntegerField;
tblLocaisDeHospedagemQntsSaoConsideradosAcessiveis: TIntegerField;
tblLocaisDeHospedagemDormitoriosAcessiveisEmTodosOsNiveis: TWideStringField;
tblLocaisDeHospedagemDormitoriosTemAreaParaGiroDe360g: TWideStringField;
tblLocaisDeHospedagemAreaCirculacaoIgualSup090: TWideStringField;
tblLocaisDeHospedagemTemSanitarioAdaptado: TWideStringField;
tblLocaisDeHospedagemSanitarioTemDispositivoDeChamadaDeEmergencia: TWideStringField;
tblLocaisDeHospedagemD1: TIntegerField;
tblLocaisDeHospedagemD2: TIntegerField;
tblLocaisDeHospedagemD3: TIntegerField;
tblLocaisDeHospedagemD4: TIntegerField;
tblLocaisDeHospedagemD5: TIntegerField;
tblLocaisDeHospedagemStatus: TWideStringField;
tblLocaisDeHospedagemFoto: TBlobField;
tblLocaisDeHospedagemObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMLocaisDeHospedagem: TDMLocaisDeHospedagem;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMLocaisDeLeitura;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMLocaisDeLeitura = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsLocaisDeLeitura: TDataSource;
tblLocaisDeLeitura: TADOTable;
tblLocaisDeLeituraCodigo: TWideStringField;
tblLocaisDeLeituraCodVisita: TWideStringField;
tblLocaisDeLeituraIdentifique: TWideStringField;
tblLocaisDeLeituraTodosOsLocaisEstaoAcessiveis: TWideStringField;
tblLocaisDeLeituraQualADistanciaEntreEstantesNaBiblioteca: TIntegerField;
tblLocaisDeLeituraEntrEstantesACada15mExisteEspManobra: TWideStringField;
tblLocaisDeLeituraABibliotecaPossuiPublicacoesEmBraille: TWideStringField;
tblLocaisDeLeituraABibliotecaPossuiRecurspsAudiovisiaus: TWideStringField;
tblLocaisDeLeituraOAcervoEAbertoAoPublico: TWideStringField;
tblLocaisDeLeituraStatus: TWideStringField;
tblLocaisDeLeituraObs: TBlobField;
tblLocaisDeLeituraFoto: TBlobField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMLocaisDeLeitura: TDMLocaisDeLeitura;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMLocaisDeRefeicao;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMLocaisDeRefeicao = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsLocaisDeRefeicao: TDataSource;
tblLocaisDeRefeicao: TADOTable;
tblLocaisDeRefeicaoCodigo: TWideStringField;
tblLocaisDeRefeicaoCodVisita: TWideStringField;
tblLocaisDeRefeicaoIdentifique: TWideStringField;
tblLocaisDeRefeicaoTotalDeMesa: TIntegerField;
tblLocaisDeRefeicaoQtdAdaptadas: TIntegerField;
tblLocaisDeRefeicaoFaixaLivreDeCirculacaoDe090: TWideStringField;
tblLocaisDeRefeicaoAreaDeManobraDe: TWideStringField;
tblLocaisDeRefeicaoStatus: TWideStringField;
tblLocaisDeRefeicaoFoto: TBlobField;
tblLocaisDeRefeicaoObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMLocaisDeRefeicao: TDMLocaisDeRefeicao;

implementation

uses frmPrincipal;

{$R *.dfm}

end.

unit frmDMLocaisDeReuniao;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMLocaisDeReuniao = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsLocaisDeReuniao: TDataSource;
tblLocaisDeReuniao: TADOTable;
tblLocaisDeReuniaoCodigo: TWideStringField;
tblLocaisDeReuniaoCodVisita: TWideStringField;
tblLocaisDeReuniaoTotalDeAssentos: TIntegerField;
tblLocaisDeReuniaoD1: TIntegerField;
tblLocaisDeReuniaoD2: TIntegerField;
tblLocaisDeReuniaoStatus: TWideStringField;
tblLocaisDeReuniaoFoto: TBlobField;
tblLocaisDeReuniaoObs: TMemoField;
dtsEspacoParaPessoas: TDataSource;
tblEspacoParaPessoas: TADOTable;
tblLocaisDeReuniaoIdentifique: TWideStringField;
tblEspacoParaPessoasCodigo: TWideStringField;
tblEspacoParaPessoasCodLocalReuniao: TWideStringField;
tblEspacoParaPessoasNumeroAssentosReservados: TIntegerField;
tblEspacoParaPessoasHaSinalizBilheteria: TWideStringField;
tblEspacoParaPessoasEspacoREstaoDivNosDifSetores: TWideStringField;
tblEspacoParaPessoasEspacoEstaoDistribEmRotasAcessiveis: TWideStringField;
tblEspacoParaPessoasEspacoEstaoLocaliPisoPlano: TWideStringField;
tblEspacoParaPessoasEspacoGarantemConfortoBoaVisAcustic: TWideStringField;
tblEspacoParaPessoasEspacoTemCadeiraLateralAcomp: TWideStringField;
tblEspacoParaPessoasTipoEspaco: TWideStringField;
tblEspacoParaPessoasStatus: TWideStringField;
tblEspacoParaPessoasFoto: TBlobField;
tblEspacoParaPessoasObs: TMemoField;
tblEspacoParaPessoasHaSinalizIndicandoLocalizacao: TWideStringField;
dtsBastidores: TDataSource;
tblBastidores: TADOTable;
tblBastidoresCodigo: TWideStringField;
tblBastidoresCodLocalReuniao: TWideStringField;
tblBastidoresIdentifique: TWideStringField;
tblBastidoresTemCamarimAcessivel: TWideStringField;
tblBastidoresTipo: TWideStringField;
tblBastidoresStatus: TWideStringField;
tblBastidoresFoto: TBlobField;
tblBastidoresObs: TMemoField;
tblPalco: TADOTable;
dtsPalco: TDataSource;
tblPalcoCodigo: TWideStringField;
tblPalcoCodLocalReuniao: TWideStringField;
tblPalcoIdentifique: TWideStringField;
tblPalcoHaDesnivelEmRelacaoAPlateia: TWideStringField;
tblPalcoAlturaDesnivel: TIntegerField;
tblPalcoHaPisoTatilDeAlertaNaBeiradaDoPalco: TWideStringField;
tblPalcoLarguraDoPisoTatil: TIntegerField;
tblPalcoHaBarreiraArqNaBeiradaDoPalco: TWideStringField;
tblPalcoLarguraDaBarreira: TIntegerField;
tblPalcoHaDispTecAsstAtndrPalcPedDefAudVis: TWideStringField;
tblPalcoNaoHaRotaAcessivalAoPalco: TWideStringField;
tblPalcoStatus: TWideStringField;
tblPalcoFoto: TBlobField;
tblPalcoObs: TMemoField;
tblRampa: TADOTable;
dtsRampa: TDataSource;
tblRampaCodigo: TWideStringField;
tblRampaCodPasseioPublico: TWideStringField;
tblRampaCodAcesso: TWideStringField;
tblRampaCodCirculacaoVertical: TWideStringField;
tblRampaCodCirculacaoHorizontal: TWideStringField;
tblRampaCodLocalReuniao: TWideStringField;
tblRampaIdentifique: TWideStringField;
tblRampaCondicoesDePiso: TWideStringField;
tblRampaAlturaDesnivelVencido: TIntegerField;
tblRampaRampaEmCurva: TWideStringField;
tblRampaRaioInterno: TIntegerField;
tblRampaCorrimaoNaoEContinuiNosPatamares: TWideStringField;
tblRampaCorrimaoNaoPossuiAcabamentosCurvado: TWideStringField;
tblRampaCorrimaoNaoPossuiSinalizacaoBraille: TWideStringField;
tblRampaNaoPossuiCorrimaoIntermediario: TWideStringField;
tblRampaNaoPossuiCorrimaoEmAmbosOsLados: TWideStringField;
tblRampaNaoHaNecessidadeDePatamar: TWideStringField;
tblRampaNaoHaNecessidadeDeGuiaBaliz: TWideStringField;
tblRampaNaoHaNecessidadeProlongCorr: TWideStringField;
tblRampaNaoHaParedeAoLadoDoCorrimao: TWideStringField;
tblRampaCorrimaoNaoPossuiSecaoEmFormAdeq: TWideStringField;
tblRampaD1: TIntegerField;
tblRampaD2: TIntegerField;
tblRampaD3: TIntegerField;
tblRampaD4: TIntegerField;
tblRampaD5: TIntegerField;
tblRampaD6: TIntegerField;
tblRampaD7: TIntegerField;
tblRampaD8: TIntegerField;
tblRampaD9: TIntegerField;
tblRampaD10: TIntegerField;
tblRampaD11: TIntegerField;
tblRampaTemPisoTatilInterno: TWideStringField;
tblRampaStatus: TWideStringField;
tblRampaFoto: TBlobField;
tblRampaObs: TMemoField;
dtsPlataformaPercursoVertical: TDataSource;
dtsPlataformaPercursoInclinado: TDataSource;
dtsEscada: TDataSource;
tblPlataformaPercursoVertical: TADOTable;
tblPlataformaDePercursoInclinado: TADOTable;
tblEscada: TADOTable;
tblPlataformaPercursoVerticalCodigo: TWideStringField;
tblPlataformaPercursoVerticalCodLocalReuniao: TWideStringField;
tblPlataformaPercursoVerticalCodAcesso: TWideStringField;
tblPlataformaPercursoVerticalCodCirculacaoHoriz: TWideStringField;
tblPlataformaPercursoVerticalCodCirculacaoVertical: TWideStringField;
tblPlataformaPercursoVerticalCodElevador: TWideStringField;
tblPlataformaPercursoVerticalIdentifique: TWideStringField;
tblPlataformaPercursoVerticalDesnivelVencido: TIntegerField;
tblPlataformaPercursoVerticalPossuiCxEnclausurada: TWideStringField;
tblPlataformaPercursoVerticalPossuiDispositivoComunicacaoParaSolAux: TWideStringField;
tblPlataformaPercursoVerticalPossuiPessoalTreinadoDeAux: TWideStringField;
tblPlataformaPercursoVerticalPossuiSIA: TWideStringField;
tblPlataformaPercursoVerticalStatus: TWideStringField;
tblPlataformaPercursoVerticalFoto: TBlobField;
tblPlataformaPercursoVerticalObs: TMemoField;
tblPlataformaDePercursoInclinadoCodigo: TWideStringField;
tblPlataformaDePercursoInclinadoCodAcesso: TWideStringField;
tblPlataformaDePercursoInclinadoCodCirculacaoHorizontal: TWideStringField;
tblPlataformaDePercursoInclinadoCodCirculacaoVertical: TWideStringField;
tblPlataformaDePercursoInclinadoCodElevador: TWideStringField;
tblPlataformaDePercursoInclinadoCodLocalReuniao: TWideStringField;
tblPlataformaDePercursoInclinadoIdentifique: TWideStringField;
tblPlataformaDePercursoInclinadoHaParadaProgramadaNosPatamares: TWideStringField;
tblPlataformaDePercursoInclinadoHaParadaProgramadaACada320deAltura: TWideStringField;
tblPlataformaDePercursoInclinadoPossuiAssentoEscamoteavel: TWideStringField;
tblPlataformaDePercursoInclinadoPossuiDispositivoDeComParaPedirAuxilio: TWideStringField;
tblPlataformaDePercursoInclinadoPossuiSinalizacaoVisualNaAreaDeEmbarEPercurso: TWideStringField;
tblPlataformaDePercursoInclinadoPossuiPessoalTreinadoParaAuxilio: TWideStringField;
tblPlataformaDePercursoInclinadoPossuiSIA: TWideStringField;
tblPlataformaDePercursoInclinadoStatus: TWideStringField;
tblPlataformaDePercursoInclinadoFoto: TBlobField;
tblPlataformaDePercursoInclinadoObs: TMemoField;
tblEscadaCodigo: TWideStringField;
tblEscadaCodPasseioPublico: TWideStringField;
tblEscadaCodCirculacaoHorizontal: TWideStringField;
tblEscadaCodCirculacaoVertical: TWideStringField;
tblEscadaCodAcesso: TWideStringField;
tblEscadaCodLocalReuniao: TWideStringField;
tblEscadaIdentifique: TWideStringField;
tblEscadaCondicoesDoPiso: TWideStringField;
tblEscadaPossuiEspelhoVazada: TWideStringField;
tblEscadaAEscadaNaoPossuiSinalizacaoContraste: TWideStringField;
tblEscadaCorrimaoNaoeContinuiNosParamares: TWideStringField;
tblEscadaCorrimaoNaoPossuiAcabamentoCurvado: TWideStringField;
tblEscadaHaBarreiraSuspensa: TWideStringField;
tblEscadaNaoHaNecessidadeDePatamar: TWideStringField;
tblEscadaOCorrimaoNaoPossuiSecaoEmFormaAdequada: TWideStringField;
tblEscadaDegrausEmLeque: TWideStringField;
tblEscadaDegrausComProfundidadeDesfavoravel: TWideStringField;
tblEscadaCorrimaoNaoPossuiSinalizacaoEmBraille: TWideStringField;
tblEscadaCorrimaoNaoPossuiSinalizacaoEmAmbosOsLados: TWideStringField;
tblEscadaNaoPossuiCorrimaoIntermediario: TWideStringField;
tblEscadaHaSinalizacaoNaBarreiraSuspensa: TWideStringField;
tblEscadaD1: TIntegerField;
tblEscadaD2: TIntegerField;
tblEscadaD3: TIntegerField;
tblEscadaD4: TIntegerField;
tblEscadaD5: TIntegerField;
tblEscadaD6: TIntegerField;
tblEscadaD7: TIntegerField;
tblEscadaD8: TIntegerField;
tblEscadaD9: TIntegerField;
tblEscadaD10: TIntegerField;
tblEscadaD11: TIntegerField;
tblEscadaStatus: TWideStringField;
tblEscadaFoto1: TBlobField;
tblEscadaFoto2: TBlobField;
tblEscadaObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMLocaisDeReuniao: TDMLocaisDeReuniao;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMLocaisDeSaude;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMLocaisDeSaude = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsLocaisDeSaude: TDataSource;
tblLocaisDeSaude: TADOTable;
tblLocaisDeSaudeCodigo: TWideStringField;
tblLocaisDeSaudeCodVisita: TWideStringField;
tblLocaisDeSaudeIdentifique: TWideStringField;
tblLocaisDeSaudeTotalDeLeitosComSanitario: TIntegerField;
tblLocaisDeSaudeQntsSaoAcessiveis: TIntegerField;
tblLocaisDeSaudeQntsSanitariosExistem: TIntegerField;
tblLocaisDeSaudeQntsDestesSaoAcessiveis: TIntegerField;
tblLocaisDeSaudeStatus: TWideStringField;
tblLocaisDeSaudeFoto: TBlobField;
tblLocaisDeSaudeObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMLocaisDeSaude: TDMLocaisDeSaude;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMMobiliario;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMMobiliario = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
dtsEmpresa: TDataSource;
dtsMobiliario: TDataSource;
tblMobiliario: TADOTable;
dtsTelefone: TDataSource;
dtsBebedouro: TDataSource;
dtsMesaSupTrabalho: TDataSource;
dtsAssentosFixos: TDataSource;
dtsBalcao: TDataSource;
dtsBilheteria: TDataSource;
dtsLousa: TDataSource;
dtsCama: TDataSource;
dtsAutoservico: TDataSource;
dtsArmario: TDataSource;
tblTelefone: TADOTable;
tblBebedouro: TADOTable;
tblMesaSupTrabalho: TADOTable;
tblAssentosFixos: TADOTable;
tblBalcao: TADOTable;
tblBilheteria: TADOTable;
tblLousa: TADOTable;
tblCama: TADOTable;
tblAutoservico: TADOTable;
tblArmario: TADOTable;
tblMobiliarioCodigo: TWideStringField;
tblMobiliarioCodVisita: TWideStringField;
tblMobiliarioIdentificacao: TWideStringField;
tblTelefoneCodigo: TWideStringField;
tblTelefoneCodMobiliario: TWideStringField;
tblTelefoneIdentifique: TWideStringField;
tblTelefoneQtsTelefonesPubExistem: TIntegerField;
tblTelefoneQtsTelefonesSaoAcessiveis: TIntegerField;
tblTelefoneHaSimbInterAcesso: TWideStringField;
tblTelefoneUmApAmplificadorPorPavimento: TWideStringField;
tblTelefoneEdifPossuiTextTDD: TWideStringField;
tblTelefoneD1: TIntegerField;
tblTelefoneD2: TIntegerField;
tblTelefoneD3: TIntegerField;
tblTelefoneD4: TIntegerField;
tblTelefoneD5: TIntegerField;
tblTelefoneStatus: TWideStringField;
tblTelefoneFoto: TBlobField;
tblTelefoneObs: TMemoField;
tblMesaSupTrabalhoCodigo: TWideStringField;
tblMesaSupTrabalhoCodMobiliario: TWideStringField;
tblMesaSupTrabalhoIdentifique: TWideStringField;
tblMesaSupTrabalhoLocalizacao: TWideStringField;
tblMesaSupTrabalhoTotalDeMesas: TIntegerField;
tblMesaSupTrabalhoNumeroDeMesasAcessiveis: TIntegerField;
tblMesaSupTrabalhoD1: TIntegerField;
tblMesaSupTrabalhoD2: TIntegerField;
tblMesaSupTrabalhoD3: TIntegerField;
tblMesaSupTrabalhoStatus: TWideStringField;
tblMesaSupTrabalhoFoto: TBlobField;
tblMesaSupTrabalhoObs: TMemoField;
tblAssentosFixosCodigo: TWideStringField;
tblAssentosFixosCodMobiliario: TWideStringField;
tblAssentosFixosIdentifique: TWideStringField;
tblAssentosFixosAmbienteAnalisado: TWideStringField;
tblAssentosFixosTotalDeAssentosFixo: TIntegerField;
tblAssentosFixosQtdAssentosComEspacoDeRef: TIntegerField;
tblAssentosFixosD1: TIntegerField;
tblAssentosFixosD2: TIntegerField;
tblAssentosFixosStatus: TWideStringField;
tblAssentosFixosFoto: TBlobField;
tblAssentosFixosObs: TMemoField;
tblBalcaoCodigo: TWideStringField;
tblBalcaoCodMobiliario: TWideStringField;
tblBalcaoIdentifique: TWideStringField;
tblBalcaoHaSimbInterAcesso: TWideStringField;
tblBalcaoD1: TIntegerField;
tblBalcaoD2: TIntegerField;
tblBalcaoD3: TIntegerField;
tblBalcaoStatus: TWideStringField;
tblBalcaoFoto: TBlobField;
tblBalcaoObs: TMemoField;
tblBilheteriaCodigo: TWideStringField;
tblBilheteriaCodMobiliario: TWideStringField;
tblBilheteriaIdentifique: TWideStringField;
tblBilheteriaD1: TIntegerField;
tblBilheteriaD2: TIntegerField;
tblBilheteriaD3: TIntegerField;
tblBilheteriaStatus: TWideStringField;
tblBilheteriaFoto: TBlobField;
tblBilheteriaObs: TMemoField;
tblLousaCodigo: TWideStringField;
tblLousaCodMobiliario: TWideStringField;
tblLousaIdentifique: TWideStringField;
tblLousaAmbienteAnalisado: TWideStringField;
tblLousaAlturaLousa: TIntegerField;
tblLousaStatus: TWideStringField;
tblLousaFoto: TBlobField;
tblLousaObs: TMemoField;
tblCamaCodigo: TWideStringField;
tblCamaCodImobiliario: TWideStringField;
tblCamaIdentifique: TWideStringField;
tblCamaAlturaDaCama: TIntegerField;
tblCamaStatus: TWideStringField;
tblCamaFoto: TBlobField;
tblCamaObs: TMemoField;
dtsMesaSupRefeicao: TDataSource;
tblMesaSupRefeicao: TADOTable;
tblMesaSupRefeicaoCodigo: TWideStringField;
tblMesaSupRefeicaoCodMobiliario: TWideStringField;
tblMesaSupRefeicaoIdentifique: TWideStringField;
tblMesaSupRefeicaoAmbienteAnalisado: TWideStringField;
tblMesaSupRefeicaoD1: TIntegerField;
tblMesaSupRefeicaoD2: TIntegerField;
tblMesaSupRefeicaoD3: TIntegerField;
tblMesaSupRefeicaoStatus: TWideStringField;
tblMesaSupRefeicaoFoto: TBlobField;
tblMesaSupRefeicaoObs: TMemoField;
tblAutoservicoCodigo: TWideStringField;
tblAutoservicoCodMobiliario: TWideStringField;
tblAutoservicoIdentifique: TWideStringField;
tblAutoservicoAmbienteAnalisado: TWideStringField;
tblAutoservicoD1: TIntegerField;
tblAutoservicoD2: TIntegerField;
tblAutoservicoD3: TIntegerField;
tblAutoservicoStatus: TWideStringField;
tblAutoservicoFoto: TBlobField;
tblAutoservicoObs: TMemoField;
tblArmarioCodigo: TWideStringField;
tblArmarioCodMobiliario: TWideStringField;
tblArmarioIdentifique: TWideStringField;
tblArmarioPossuiPortas: TWideStringField;
tblArmarioPrjProtasInterNaAreaDeCirculacao: TWideStringField;
tblArmarioMedidasDeAlcanceEstaDeAcordo: TWideStringField;
tblArmarioPossuiPuxador: TWideStringField;
tblArmarioAlturaDoPuxador: TIntegerField;
tblArmarioStatus: TWideStringField;
tblArmarioFoto: TBlobField;
tblArmarioObs: TMemoField;
tblBebedouroCodigo: TWideStringField;
tblBebedouroCodMobiliario: TWideStringField;
tblBebedouroIdentificacao: TWideStringField;
tblBebedouroLocalizacao: TWideStringField;
tblBebedouroQtdeBebedourosPorPavimento: TIntegerField;
tblBebedouroQtdeBebAcessivel: TIntegerField;
tblBebedouroBebedouroGarrafao: TWideStringField;
tblBebedouroAlturaBica: TIntegerField;
tblBebedouroAlturaSuporteCopos: TIntegerField;
tblBebedouroAreaDeAproximacao: TWideStringField;
tblBebedouroAlturaLivreInferior: TIntegerField;
tblBebedouroProfLivreDeAproxFrontal: TIntegerField;
tblBebedouroStatus: TWideStringField;
tblBebedouroFoto: TBlobField;
tblBebedouroObs: TMemoField;
tblMobiliarioStatus: TWideStringField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMMobiliario: TDMMobiliario;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMPasseioPublico;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMPasseioPublico = class(TDataModule)
dtsGrelha: TDataSource;
dtsCxDeInspecao: TDataSource;
dtsPontoDeOnibus: TDataSource;
dtsTelefonePublico: TDataSource;
dtsCaixaDeCorreio: TDataSource;
dtsLixeira: TDataSource;
dtsBanco: TDataSource;
dtsBanca: TDataSource;
dtsBancaDeMercadorias: TDataSource;
dtsPontoDeTaxi: TDataSource;
dtsPosteDeLuz: TDataSource;
dtsFloreira: TDataSource;
dtsPosteDeSinalizacao: TDataSource;
dtsBaiaDeVeiculo: TDataSource;
dtsVegetacao: TDataSource;
dtsCxForcaTelefonia: TDataSource;
dtsOutraInterferencia: TDataSource;
dtsEscada: TDataSource;
dtsRampa: TDataSource;
dtsDesnivelTransversal: TDataSource;
dtsRevestimento: TDataSource;
dtsEmpresa: TDataSource;
tblVisita: TADOTable;
dtsVisita: TDataSource;
dtsPasseioPublico: TDataSource;
tblPasseioPublico: TADOTable;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
tblEmpresa: TADOTable;
tblGrelha: TADOTable;
tblCxDeInspecao: TADOTable;
tblPontoDeOnibus: TADOTable;
tblTelefonePublico: TADOTable;
tblCaixaDeCorreio: TADOTable;
tblLixeira: TADOTable;
tblBanco: TADOTable;
tblBanca: TADOTable;
tblBancaDeMercadorias: TADOTable;
tblFloreira: TADOTable;
tblPontoDeTaxi: TADOTable;
tblPosteDeLuz: TADOTable;
tblPosteDeSinalizacao: TADOTable;
tblBaiaDeVeiculos: TADOTable;
tblVegetacao: TADOTable;
CxForcaTelefonia: TADOTable;
tblOutraInterferencia: TADOTable;
tblDesnivelTransversal: TADOTable;
dtsDegrau: TDataSource;
tblDegrau: TADOTable;
tblEscada: TADOTable;
tblRampa: TADOTable;
tblRevestimento: TADOTable;
ADOQryVisita: TADOQuery;
tblEscadaCodigo: TWideStringField;
tblEscadaCodPasseioPublico: TWideStringField;
tblEscadaCodCirculacaoHorizontal: TWideStringField;
tblEscadaCodCirculacaoVertical: TWideStringField;
tblEscadaCodAcesso: TWideStringField;
tblEscadaCodLocalReuniao: TWideStringField;
tblEscadaIdentifique: TWideStringField;
tblEscadaCondicoesDoPiso: TWideStringField;
tblEscadaPossuiEspelhoVazada: TWideStringField;
tblEscadaAEscadaNaoPossuiSinalizacaoContraste: TWideStringField;
tblEscadaCorrimaoNaoeContinuiNosParamares: TWideStringField;
tblEscadaCorrimaoNaoPossuiAcabamentoCurvado: TWideStringField;
tblEscadaHaBarreiraSuspensa: TWideStringField;
tblEscadaNaoHaNecessidadeDePatamar: TWideStringField;
tblEscadaOCorrimaoNaoPossuiSecaoEmFormaAdequada: TWideStringField;
tblEscadaDegrausEmLeque: TWideStringField;
tblEscadaDegrausComProfundidadeDesfavoravel: TWideStringField;
tblEscadaCorrimaoNaoPossuiSinalizacaoEmBraille: TWideStringField;
tblEscadaCorrimaoNaoPossuiSinalizacaoEmAmbosOsLados: TWideStringField;
tblEscadaNaoPossuiCorrimaoIntermediario: TWideStringField;
tblEscadaHaSinalizacaoNaBarreiraSuspensa: TWideStringField;
tblEscadaD1: TIntegerField;
tblEscadaD2: TIntegerField;
tblEscadaD3: TIntegerField;
tblEscadaD4: TIntegerField;
tblEscadaD5: TIntegerField;
tblEscadaD6: TIntegerField;
tblEscadaD7: TIntegerField;
tblEscadaD8: TIntegerField;
tblEscadaD9: TIntegerField;
tblEscadaD10: TIntegerField;
tblEscadaD11: TIntegerField;
tblEscadaStatus: TWideStringField;
tblEscadaFoto1: TBlobField;
tblEscadaFoto2: TBlobField;
tblEscadaObs: TMemoField;
dtsSemaforo: TDataSource;
tblSemaforo: TADOTable;
tblSemaforoCodigo: TWideStringField;
tblSemaforoCodPasseioPublico: TWideStringField;
tblSemaforoIdentifique: TWideStringField;
tblSemaforoD1: TIntegerField;
tblSemaforoD2: TIntegerField;
tblSemaforoStatus: TWideStringField;
tblSemaforoFotos: TBlobField;
tblSemaforoObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMPasseioPublico: TDMPasseioPublico;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMPortasJanelasDisp;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMPortasJanelasDisp = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
dtsEmpresa: TDataSource;
tblEmpresa: TADOTable;
tblPortasJanelasDispositivos: TADOTable;
dtsPortasJanelasDispositivos: TDataSource;
tblPortasJanelasDispositivosCodigo: TWideStringField;
tblPortasJanelasDispositivos__CodPortasJanelas: TWideStringField;
tblPortasJanelasDispositivos__CodigoCirculacaoVertical: TWideStringField;
tblPortasJanelasDispositivosCodVisita: TWideStringField;
tblPortasJanelasDispositivosIdentifique: TWideStringField;
tblPortasJanelasDispositivosStatus: TWideStringField;
tblPortasJanelasDispositivosFoto: TBlobField;
tblPortasJanelasDispositivosObs: TMemoField;
dtsPortas: TDataSource;
dtsPortaVaiEVem: TDataSource;
dtsPortaDeCorrer: TDataSource;
dtsCatraca: TDataSource;
dtsJanelas: TDataSource;
dtsDispositivos: TDataSource;
tblPortas: TADOTable;
tblPortaVaiEVem: TADOTable;
tblPortaDeCorrer: TADOTable;
tblCatraca: TADOTable;
tblJanelas: TADOTable;
tblDispositivos: TADOTable;
tblPortasCodigo: TWideStringField;
tblPortasCodPortasJanelas: TWideStringField;
tblPortasIdentifique: TWideStringField;
tblPortasNasRotasHaPortaVaiLivreInf80: TWideStringField;
tblPortasEspecifiqueRota: TWideStringField;
tblPortasAsPortasExigemResistencia: TWideStringField;
tblPortasEspecifiquePorta1: TWideStringField;
tblPortasNaRotaExistPortNaoDoTipoAlavanca: TWideStringField;
tblPortasEspecifiquePorta2: TWideStringField;
tblPortasHaAlgumaPortaSemAreaDAprox: TWideStringField;
tblPortasEspecifiquePortSemAprx: TWideStringField;
tblPortasStatus: TWideStringField;
tblPortasFoto: TBlobField;
tblPortasObs: TMemoField;
tblPortaVaiEVemCodigo: TWideStringField;
tblPortaVaiEVemCodPortasJanelas: TWideStringField;
tblPortaVaiEVemIdentifique: TWideStringField;
tblPortaVaiEVemPossuiPuxadorVertical: TWideStringField;
tblPortaVaiEVemPossuiVisor: TWideStringField;
tblPortaVaiEVemLocalizePortalInadequada: TWideStringField;
tblPortaVaiEVemD1: TIntegerField;
tblPortaVaiEVemD2: TIntegerField;
tblPortaVaiEVemD3: TIntegerField;
tblPortaVaiEVemStatus: TWideStringField;
tblPortaVaiEVemFoto: TBlobField;
tblPortaVaiEVemObs: TMemoField;
tblPortaDeCorrerCodigo: TWideStringField;
tblPortaDeCorrerCodPortasJanelas: TWideStringField;
tblPortaDeCorrerIdentifique: TWideStringField;
tblPortaDeCorrerQualAAlturaDoTrilho: TIntegerField;
tblPortaDeCorrerLocalizaPortaInadequada: TWideStringField;
tblPortaDeCorrerStatus: TWideStringField;
tblPortaDeCorrerFoto: TBlobField;
tblPortaDeCorrerObs: TMemoField;
tblCatracaCodigo: TWideStringField;
tblCatracaCodPortasJanelas: TWideStringField;
tblCatracaIdentifique: TWideStringField;
tblCatracaHaPassagemAcessivel: TWideStringField;
tblCatracaStatus: TWideStringField;
tblCatracaFoto: TBlobField;
tblCatracaObs: TMemoField;
tblJanelasCodigo: TWideStringField;
tblJanelasCodPortasJanelas: TWideStringField;
tblJanelasIdentifique: TWideStringField;
tblJanelasComandoJanelaAcimaDe120: TWideStringField;
tblJanelasComandoJanelaAcimaDe140: TWideStringField;
tblJanelasLocalizeJanela: TWideStringField;
tblJanelasStatus: TWideStringField;
tblJanelasFoto: TBlobField;
tblJanelasObs: TMemoField;
tblDispositivosCodigo: TWideStringField;
tblDispositivosCodPortasJanelas: TWideStringField;
tblDispositivosIdentifique: TWideStringField;
tblDispositivosNaRotaAcesExisteDispNaoAtendam: TWideStringField;
tblDispositivosTipoDispositivo: TWideStringField;
tblDispositivosAlturaMax: TIntegerField;
tblDispositivosAlturaMin: TIntegerField;
tblDispositivosStatus: TWideStringField;
tblDispositivosFoto: TBlobField;
tblDispositivosObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMPortasJanelasDisp: TDMPortasJanelasDisp;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMProvadores;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMProvadores = class(TDataModule)
ADOQryVisita: TADOQuery;
dtsVisita: TDataSource;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
dtsEmpresa: TDataSource;
dtsProvadores: TDataSource;
tblProvadores: TADOTable;
tblProvadoresCodigo: TWideStringField;
tblProvadoresCodVisita: TWideStringField;
tblProvadoresIdentifique: TWideStringField;
tblProvadoresQualTipoDePorta: TWideStringField;
tblProvadoresD1: TIntegerField;
tblProvadoresD2: TIntegerField;
tblProvadoresD3: TIntegerField;
tblProvadoresStatus: TWideStringField;
tblProvadoresFotos: TBlobField;
tblProvadoresObs: TMemoField;
tblEmpresa: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMProvadores: TDMProvadores;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmDMSanitarios;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDMSanitarios = class(TDataModule)
dtsVisita: TDataSource;
ADOQryVisita: TADOQuery;
dtsFiscal: TDataSource;
tblFiscal: TADOTable;
dtsEmpresa: TDataSource;
tblEmpresa: TADOTable;
dtsSanitarios: TDataSource;
tblSanitarios: TADOTable;
tblSanitariosCodigo: TWideStringField;
tblSanitariosCodVisita: TWideStringField;
tblSanitariosIdentifique: TWideStringField;
tblSanitariosSanitarioAdaptadoIsolado: TWideStringField;
tblSanitariosTotalDeBoxesMasc: TIntegerField;
tblSanitariosTotalDeBoxesFem: TIntegerField;
tblSanitariosTotalDeBoxesAdapMasc: TIntegerField;
tblSanitariosTotalDeBoxesAdapFem: TIntegerField;
tblSanitariosSanitariosAdapEmRotaAcessivel: TWideStringField;
tblSanitariosSanitarioUnisex: TWideStringField;
tblSanitariosTotalSanitUnisex: TIntegerField;
tblSanitariosSanitarioAdapDevidSinalizado: TWideStringField;
tblSanitariosTemSinalizacaoSonoraDeEmergencia: TWideStringField;
tblSanitariosAlturaSinalizacao: TIntegerField;
tblSanitariosD1: TIntegerField;
tblSanitariosD2: TIntegerField;
tblSanitariosD3: TIntegerField;
tblSanitariosD4: TIntegerField;
tblSanitariosD5: TIntegerField;
tblSanitariosStatus: TWideStringField;
tblSanitariosFoto: TBlobField;
tblSanitariosObs: TMemoField;
dtsPortaSanitario: TDataSource;
dtsBaciaSanitaria: TDataSource;
dtsLavatorio: TDataSource;
dtsMictorio: TDataSource;
dtsChuveiro: TDataSource;
dtsBanheira: TDataSource;
dtsVestiario: TDataSource;
tblPortaSanitario: TADOTable;
tblBaciaSanitaria: TADOTable;
tblLavatorio: TADOTable;
tblMictorio: TADOTable;
tblChuveiro: TADOTable;
tblBanheira: TADOTable;
tblVestiario: TADOTable;
tblEmpresaCNPJ: TWideStringField;
tblEmpresaCPFRepresentante: TWideStringField;
tblEmpresaIE: TWideStringField;
tblEmpresaNomaFantasia: TWideStringField;
tblEmpresaRazaoSocial: TWideStringField;
tblEmpresaFone: TWideStringField;
tblEmpresaSite: TWideStringField;
tblEmpresaEmail: TWideStringField;
tblEmpresaEndereo: TWideStringField;
tblEmpresaComplemento: TWideStringField;
tblEmpresaBairro: TWideStringField;
tblEmpresaMunicipio: TWideStringField;
tblEmpresaCEP: TWideStringField;
tblEmpresaUF: TWideStringField;
tblEmpresaLatitude: TWideStringField;
tblEmpresaLongitude: TWideStringField;
tblEmpresaOrgaoAoQualPertence: TWideStringField;
tblEmpresaImoveltombado: TWideStringField;
tblEmpresaQualOrgaoTombou: TWideStringField;
tblEmpresaFotoFachada: TBlobField;
tblEmpresaFotoMapa: TBlobField;
tblEmpresaFotoAerea: TBlobField;
tblEmpresaObs: TMemoField;
tblPortaSanitarioCodigo: TWideStringField;
tblPortaSanitarioCodSanitario: TWideStringField;
tblPortaSanitarioIdentifique: TWideStringField;
tblPortaSanitarioTipoPuxador: TWideStringField;
tblPortaSanitarioOutroTipoPuxador: TWideStringField;
tblPortaSanitarioTipoDePorta: TWideStringField;
tblPortaSanitarioD1: TIntegerField;
tblPortaSanitarioD2: TIntegerField;
tblPortaSanitarioD3: TIntegerField;
tblPortaSanitarioD4: TIntegerField;
tblPortaSanitarioStatus: TWideStringField;
tblPortaSanitarioFoto: TBlobField;
tblPortaSanitarioObs: TMemoField;
tblBaciaSanitariaCodigo: TWideStringField;
tblBaciaSanitariaCodSanitario: TWideStringField;
tblBaciaSanitariaIdentifique: TWideStringField;
tblBaciaSanitariaTipoPapeleira: TWideStringField;
tblBaciaSanitariaLocalizadaParedeLateralABacia: TWideStringField;
tblBaciaSanitariaAlinhadaComBordaBacia: TWideStringField;
tblBaciaSanitariaBarraDeApoioHorizontal: TWideStringField;
tblBaciaSanitariaDiametroBarraDeApoio: TIntegerField;
tblBaciaSanitariaSoculoAcompanhaProjBaseBacia: TWideStringField;
tblBaciaSanitariaMedidaDoContornoDoSoculo: TIntegerField;
tblBaciaSanitariaCaixaAcoplada: TWideStringField;
tblBaciaSanitariaD1: TIntegerField;
tblBaciaSanitariaD2: TIntegerField;
tblBaciaSanitariaD3: TIntegerField;
tblBaciaSanitariaD4: TIntegerField;
tblBaciaSanitariaD5: TIntegerField;
tblBaciaSanitariaD6: TIntegerField;
tblBaciaSanitariaD7: TIntegerField;
tblBaciaSanitariaD8: TIntegerField;
tblBaciaSanitariaD9: TIntegerField;
tblBaciaSanitariaD10: TIntegerField;
tblBaciaSanitariaD11: TIntegerField;
tblBaciaSanitariaStatus: TWideStringField;
tblBaciaSanitariaFoto: TBlobField;
tblBaciaSanitariaObs: TMemoField;
tblLavatorioCodigo: TWideStringField;
tblLavatorioCodSanitario: TWideStringField;
tblLavatorioIdentifique: TWideStringField;
tblLavatorioEspelhoPossuiInclinacaoDe10: TWideStringField;
tblLavatorioTipoTorneira: TWideStringField;
tblLavatorioColunaOuGabinete: TWideStringField;
tblLavatorioAlturaBarraDeApoio: TIntegerField;
tblLavatorioDiametroBarraDeApoio: TIntegerField;
tblLavatorioD1: TIntegerField;
tblLavatorioD2: TIntegerField;
tblLavatorioD3: TIntegerField;
tblLavatorioD4: TIntegerField;
tblLavatorioD5: TIntegerField;
tblLavatorioD6: TIntegerField;
tblLavatorioD7: TIntegerField;
tblLavatorioStatus: TWideStringField;
tblLavatorioFoto: TBlobField;
tblLavatorioObs: TMemoField;
tblMictorioCodigo: TWideStringField;
tblMictorioCodSanitario: TWideStringField;
tblMictorioIdentifique: TWideStringField;
tblMictorioD1: TIntegerField;
tblMictorioD2: TIntegerField;
tblMictorioD3: TIntegerField;
tblMictorioD4: TIntegerField;
tblMictorioD5: TIntegerField;
tblMictorioStatus: TWideStringField;
tblMictorioFoto: TBlobField;
tblMictorioObs: TMemoField;
tblChuveiroCodigo: TWideStringField;
tblChuveiroCodSanitario: TWideStringField;
tblChuveiroIdentifique: TWideStringField;
tblChuveiroHaDuchaManual: TWideStringField;
tblChuveiroD1: TIntegerField;
tblChuveiroD2: TIntegerField;
tblChuveiroD3: TIntegerField;
tblChuveiroD4: TIntegerField;
tblChuveiroD5: TIntegerField;
tblChuveiroD6: TIntegerField;
tblChuveiroD7: TIntegerField;
tblChuveiroD8: TIntegerField;
tblChuveiroD9: TIntegerField;
tblChuveiroD10: TIntegerField;
tblChuveiroD11: TIntegerField;
tblChuveiroD12: TIntegerField;
tblChuveiroStatus: TWideStringField;
tblChuveiroFoto: TBlobField;
tblChuveiroObs: TMemoField;
tblBanheiraCodigo: TWideStringField;
tblBanheiraCodSanitario: TWideStringField;
tblBanheiraIdentifique: TWideStringField;
tblBanheiraDispositivoDeTransferencia: TWideStringField;
tblBanheiraSuperficiePranchaTransAntiDerrapante: TWideStringField;
tblBanheiraComprimPranchaIgualLargCabBanheira: TWideStringField;
tblBanheiraProfundidadePranchaTransf: TIntegerField;
tblBanheiraFundoBanheiraTemsupAntiDerrapante: TWideStringField;
tblBanheiraMisturadorTipoAlavanca: TWideStringField;
tblBanheiraD1: TIntegerField;
tblBanheiraD2: TIntegerField;
tblBanheiraD3: TIntegerField;
tblBanheiraD4: TIntegerField;
tblBanheiraD5: TIntegerField;
tblBanheiraD6: TIntegerField;
tblBanheiraStatus: TWideStringField;
tblBanheiraFoto: TBlobField;
tblBanheiraObs: TMemoField;
tblVestiarioCodigo: TWideStringField;
tblVestiarioCodSanitario: TWideStringField;
tblVestiarioIdentifique: TWideStringField;
tblVestiarioAlturaSuperficieParaTrocaRoupa: TIntegerField;
tblVestiarioD1: TIntegerField;
tblVestiarioD2: TIntegerField;
tblVestiarioD3: TIntegerField;
tblVestiarioD4: TIntegerField;
tblVestiarioD5: TIntegerField;
tblVestiarioD6: TIntegerField;
tblVestiarioD7: TIntegerField;
tblVestiarioD8: TIntegerField;
tblVestiarioD9: TIntegerField;
tblVestiarioStatus: TWideStringField;
tblVestiarioFoto: TBlobField;
tblVestiarioObs: TMemoField;
tblChuveiroD13: TIntegerField;
tblBanheiraD7: TIntegerField;
tblBanheiraD8: TIntegerField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DMSanitarios: TDMSanitarios;

implementation

uses frmPrincipal;

{$R *.dfm}

end.
unit frmED;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls;

type
TformED = class(TForm)
SpeedButton1: TSpeedButton;
Image1: TImage;
Memo1: TMemo;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formED: TformED;

implementation

{$R *.dfm}

procedure TformED.SpeedButton1Click(Sender: TObject);
begin
close;
end;

end.
unit frmEmpresa;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, DBCtrls, DB, ADODB, Mask,
Grids, DBGrids,
Menus, ImgList, JvExControls, JvArrowButton, JvComponentBase,
JvgExportComponents, JvDBGridExport, OleCtrls, SHDocVw, jpeg,
JvExStdCtrls, JvEdit, JvDBSearchEdit;

type
TMeuDBNavigator = class(TDBNavigator);

TformEmpresa = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
DBNavigator1: TDBNavigator;
Edit1: TEdit;
Edit2: TEdit;
ADOQryEmpresa: TADOQuery;
dtsEmpresa: TDataSource;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
dtsRepresentante: TDataSource;
ADOQueryRepresentante: TADOQuery;
ADOQueryRepresentanteCPFRepresentante: TWideStringField;
ADOQueryRepresentanteNome: TWideStringField;
ADOQueryRepresentanteRG: TWideStringField;
ADOQueryRepresentanteSexo: TWideStringField;
ADOQueryRepresentanteEndereo: TWideStringField;
ADOQueryRepresentanteComplemento: TWideStringField;
ADOQueryRepresentanteBairro: TWideStringField;
ADOQueryRepresentanteCidade: TWideStringField;
ADOQueryRepresentanteCEP: TWideStringField;
ADOQueryRepresentanteUF: TWideStringField;
ADOQueryRepresentanteTelefone: TWideStringField;
ADOQueryRepresentanteCelular: TWideStringField;
ADOQueryRepresentanteEmail: TWideStringField;
ADOQueryRepresentanteObs: TMemoField;
ADOQryEmpresaCNPJ: TWideStringField;
ADOQryEmpresaCPFRepresentante: TWideStringField;
ADOQryEmpresaIE: TWideStringField;
ADOQryEmpresaNomaFantasia: TWideStringField;
ADOQryEmpresaRazaoSocial: TWideStringField;
ADOQryEmpresaFone: TWideStringField;
ADOQryEmpresaSite: TWideStringField;
ADOQryEmpresaEmail: TWideStringField;
ADOQryEmpresaEndereo: TWideStringField;
ADOQryEmpresaComplemento: TWideStringField;
ADOQryEmpresaBairro: TWideStringField;
ADOQryEmpresaMunicipio: TWideStringField;
ADOQryEmpresaCEP: TWideStringField;
ADOQryEmpresaUF: TWideStringField;
ADOQryEmpresaLatitude: TWideStringField;
ADOQryEmpresaLongitude: TWideStringField;
ADOQryEmpresaOrgaoAoQualPertence: TWideStringField;
ADOQryEmpresaImoveltombado: TWideStringField;
ADOQryEmpresaQualOrgaoTombou: TWideStringField;
ADOQryEmpresaFotoFachada: TBlobField;
ADOQryEmpresaFotoAerea: TBlobField;
ADOQryEmpresaObs: TMemoField;
DBLookupComboBox1: TDBLookupComboBox;
DBGrid1: TDBGrid;
Label6: TLabel;
DBEdit2: TDBEdit;
Label7: TLabel;
DBEdit6: TDBEdit;
Label8: TLabel;
DBEdit7: TDBEdit;
Label9: TLabel;
DBEdit8: TDBEdit;
Label10: TLabel;
DBEdit9: TDBEdit;
Label11: TLabel;
DBEdit10: TDBEdit;
Label12: TLabel;
DBEdit11: TDBEdit;
Label13: TLabel;
DBEdit12: TDBEdit;
Label14: TLabel;
DBComboBox1: TDBComboBox;
Label15: TLabel;
DBEdit13: TDBEdit;
Label16: TLabel;
DBEdit14: TDBEdit;
Label17: TLabel;
DBEdit15: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
Label18: TLabel;
DBEdit16: TDBEdit;
Label19: TLabel;
DBMemo1: TDBMemo;
DBImage1: TDBImage;
DBImage2: TDBImage;
ADOQryEmpresaFotoMapa: TBlobField;
TabSheet5: TTabSheet;
DBImage3: TDBImage;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
ImageList1: TImageList;
menuRelatorio: TPopupMenu;
Ficha1: TMenuItem;
Listagem1: TMenuItem;
JvArrowButton1: TJvArrowButton;
JvgExportExcel1: TJvgExportExcel;
Formatoxls1: TMenuItem;
JvArrowButton2: TJvArrowButton;
ImageList2: TImageList;
menuExportar: TPopupMenu;
DBGridpWord1: TMenuItem;
DBGridpExcel1: TMenuItem;
JvDBGridWordExport1: TJvDBGridWordExport;
JvDBGridExcelExport1: TJvDBGridExcelExport;
Label20: TLabel;
SpeedButton2: TSpeedButton;
TabSheet6: TTabSheet;
Panel5: TPanel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Cidade: TEdit;
Estado: TEdit;
Rua: TEdit;
Cep: TEdit;
Longitude: TEdit;
Latitude: TEdit;
Button1: TButton;
Button2: TButton;
WebBrowser1: TWebBrowser;
Image1: TImage;
Label27: TLabel;
Label28: TLabel;
JvDBSearchEdit1: TJvDBSearchEdit;
JvDBSearchEdit2: TJvDBSearchEdit;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Ficha1Click(Sender: TObject);
procedure Listagem1Click(Sender: TObject);
procedure Formatoxls1Click(Sender: TObject);
procedure DBGridpWord1Click(Sender: TObject);
procedure DBGridpExcel1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure TabSheet6Show(Sender: TObject);
procedure TabSheet6Exit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TabSheet5Show(Sender: TObject);
procedure TabSheet4Show(Sender: TObject);
procedure TabSheet3Show(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure TabSheet1Show(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formEmpresa: TformEmpresa;
nomeTabela: string;

implementation

uses rptEmpresa1, rptEmpresa2, frmPrincipal;

{$R *.dfm}

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

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

procedure TformEmpresa.SpeedButton4Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblEmpresa’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CNPJ = ‘ + #39 + Edit1.Text + #39;
ADOQryEmpresa.Close;
ADOQryEmpresa.SQL.clear;
ADOQryEmpresa.SQL.add(strsql);
ADOQryEmpresa.Open;
except
MessageDlg(‘Erro ao realizar a consulta por CNPJ’, mtwarning, [mbOk], 0);
end;
end;

procedure TformEmpresa.SpeedButton5Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblEmpresa’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE RazaoSocial = ‘ + #39 + Edit2.Text + #39;
ADOQryEmpresa.Close;
ADOQryEmpresa.SQL.clear;
ADOQryEmpresa.SQL.add(strsql);
ADOQryEmpresa.Open;
except
MessageDlg(‘Erro ao realizar a consulta pelo RazaoSocial’, mtwarning, [mbOk], 0);
end;

end;

procedure TformEmpresa.FormActivate(Sender: TObject);
begin
ADOQryEmpresa.active := true;
end;

procedure TformEmpresa.Ficha1Click(Sender: TObject);
begin
// rptEmpresa01.ComponenteRelatorio.preview;
try
try
rptEmpresa01 := TrptEmpresa01.Create(application);
rptEmpresa01.ComponenteRelatorio.preview;
finally
rptEmpresa01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptEmpresa01!’, mtwarning, [mbOk], 0);
end;

end;

procedure TformEmpresa.Listagem1Click(Sender: TObject);
begin
// rptEmpresa02.ComponenteRelatorio.preview;
try
try
rptEmpresa02 := TrptEmpresa02.Create(application);
rptEmpresa02.ComponenteRelatorio.preview;
finally
rptEmpresa02.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptEmpresa02!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformEmpresa.Formatoxls1Click(Sender: TObject);
begin
JvgExportExcel1.Execute;
end;

procedure TformEmpresa.DBGridpWord1Click(Sender: TObject);
begin
JvDBGridWordExport1.ExportGrid;
end;

procedure TformEmpresa.DBGridpExcel1Click(Sender: TObject);
begin
JvDBGridExcelExport1.ExportGrid;
end;

procedure TformEmpresa.SpeedButton2Click(Sender: TObject);
begin
Try
ADOQryEmpresa.Close;
ADOQryEmpresa.SQL.Clear;
ADOQryEmpresa.SQL.Add(‘SELECT * FROM tblEmpresa’);
ADOQryEmpresa.Open;
Except;
MessageDlg(‘Erro ao tentar refazer consulta SQL’, mtwarning, [mbOk], 0);
End;
end;

procedure TformEmpresa.Button1Click(Sender: TObject);
Var ConsultaEndereco : string;
begin
ConsultaEndereco := ‘http://maps.google.com/maps?q=&#8217;;
If Cidade.Text ” Then
ConsultaEndereco := ConsultaEndereco + Cidade.Text + ‘,’;
If Estado.Text ” Then
ConsultaEndereco := ConsultaEndereco + Estado.Text + ‘,’;
If Rua.Text ” Then
ConsultaEndereco := ConsultaEndereco + Rua.Text + ‘,’;
If Cep.Text ” Then
ConsultaEndereco := ConsultaEndereco + Cep.Text;
Caption := ConsultaEndereco;
WebBrowser1.Navigate(ConsultaEndereco);
end;

procedure TformEmpresa.Button2Click(Sender: TObject);
Var ConsultaEndereco : string;
begin
ConsultaEndereco := ‘http://maps.google.com/maps?q=&#8217;;
If ( Latitude.Text ” ) and ( Longitude.Text ” ) Then
ConsultaEndereco := ConsultaEndereco + Latitude.Text + ‘,’ + Longitude.Text ;
Caption := ConsultaEndereco;
WebBrowser1.Navigate(ConsultaEndereco);
end;

procedure TformEmpresa.TabSheet6Show(Sender: TObject);
begin
formEmpresa.WindowState := wsMaximized;
end;

procedure TformEmpresa.TabSheet6Exit(Sender: TObject);
begin
formEmpresa.WindowState := wsNormal;
end;

procedure TformEmpresa.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,’Cancelar’, ‘Atualizar’);
var
Botao: TNavigateBtn;
//varPrimeiro, varAnterior, varProximo, varUltimo, varInserir, varExcluir, varEditar, varSalvar, varCancelar, varAtualizar: Tbitmap;
begin
PageControl1.ActivePage := TabSheet1;
{
varPrimeiro := Tbitmap.Create;
varPrimeiro.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\primeiro.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbFirst].Glyph := varPrimeiro;

varAnterior := Tbitmap.Create;
varAnterior.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\anterior.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbPrior].Glyph := varAnterior;

varProximo := Tbitmap.Create;
varProximo.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\proximo.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbNext].Glyph := varProximo;

varUltimo := Tbitmap.Create;
varUltimo.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\ultimo.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbLast].Glyph := varUltimo;

varInserir := Tbitmap.Create;
varInserir.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\inserir.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbinsert].Glyph := varInserir;

varExcluir := Tbitmap.Create;
varExcluir.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\deletar1.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbDelete].Glyph := varExcluir;

varEditar := Tbitmap.Create;
varEditar.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\editar.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbEdit].Glyph := varEditar;

varSalvar := Tbitmap.Create;
varSalvar.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\gravar.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbPost].Glyph := varSalvar;

varCancelar := Tbitmap.Create;
varCancelar.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\cancelar1.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbCancel].Glyph := varCancelar;

varAtualizar := Tbitmap.Create;
varAtualizar.LoadFromFile(‘C:\sistemavistoria1\imagens\botoes\atualizar2.bmp’);
TMeuDBNavigator(dbnavigator1).buttons[nbRefresh].Glyph := varAtualizar;
}
for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;

ADOQueryRepresentante.Connection := formPrincipal.ADOConnection1;
ADOQueryRepresentante.Active := True;
ADOQryEmpresa.Connection := formPrincipal.ADOConnection1;
ADOQryEmpresa.Active := True;

end;

procedure TformEmpresa.TabSheet5Show(Sender: TObject);
begin
formEmpresa.WindowState := wsMaximized;
end;

procedure TformEmpresa.TabSheet4Show(Sender: TObject);
begin
formEmpresa.WindowState := wsNormal;
end;

procedure TformEmpresa.TabSheet3Show(Sender: TObject);
begin
formEmpresa.WindowState := wsNormal;
end;

procedure TformEmpresa.TabSheet2Show(Sender: TObject);
begin
formEmpresa.WindowState := wsMaximized;
end;

procedure TformEmpresa.TabSheet1Show(Sender: TObject);
begin
formEmpresa.WindowState := wsNormal;
end;

procedure TformEmpresa.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if odd(ADOQryEmpresa.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 TformEmpresa.FormClose(Sender: TObject;
var Action: TCloseAction);
begin

//fecha o banco de dados
// ADOQryRepresentante.Connection := formPrincipal.ADOConnection1;
ADOQueryRepresentante.Active := False;
// ADOQryEmpresa.Connection := formPrincipal.ADOConnection1;
ADOQryEmpresa.Active := False;

end;

end.
unit frmFiscal01;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, Mask,
ComCtrls, Buttons, Menus, ImgList, JvExControls, JvArrowButton, JvComponentBase,
JvgExportComponents, JvDBGridExport, jpeg, JvExStdCtrls, JvEdit,
JvDBSearchEdit;

type
TMeuDBNavigator = class(TDBNavigator);

TformFiscal = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
DBRadioGroup1: TDBRadioGroup;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
ADOQryFiscal: TADOQuery;
dtsFiscal: TDataSource;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
ADOQryFiscalCPFFiscal: TWideStringField;
ADOQryFiscalNomeFiscal: TWideStringField;
ADOQryFiscalRG: TWideStringField;
ADOQryFiscalSexo: TWideStringField;
ADOQryFiscalProfissao: TWideStringField;
ADOQryFiscalRegistroDeClasse: TWideStringField;
ADOQryFiscalTelefone: TWideStringField;
ADOQryFiscalRamal: TWideStringField;
ADOQryFiscalCelular: TWideStringField;
ADOQryFiscalEmail: TWideStringField;
ADOQryFiscalFoto: TBlobField;
ADOQryFiscalObs: TMemoField;
Label10: TLabel;
DBMemo1: TDBMemo;
Label11: TLabel;
DBImage1: TDBImage;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
ImageList1: TImageList;
menuRelatorio: TPopupMenu;
Ficha1: TMenuItem;
Listagem1: TMenuItem;
JvArrowButton1: TJvArrowButton;
JvgExportExcel1: TJvgExportExcel;
Formatoxls1: TMenuItem;
JvArrowButton2: TJvArrowButton;
JvDBGridWordExport1: TJvDBGridWordExport;
JvDBGridExcelExport1: TJvDBGridExcelExport;
ImageList2: TImageList;
menuExportar: TPopupMenu;
DBGridpWord1: TMenuItem;
DBGridpExcel1: TMenuItem;
Label12: TLabel;
Image1: TImage;
SpeedButton2: TSpeedButton;
JvDBSearchEdit1: TJvDBSearchEdit;
JvDBSearchEdit2: TJvDBSearchEdit;
Label13: TLabel;
Label14: TLabel;
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Ficha1Click(Sender: TObject);
procedure Listagem1Click(Sender: TObject);
procedure Formatoxls1Click(Sender: TObject);
procedure DBGridpWord1Click(Sender: TObject);
procedure DBGridpExcel1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure SpeedButton2Click(Sender: TObject);
procedure TabSheet1Show(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formFiscal: TformFiscal;
nomeTabela: string;

implementation

uses rptFiscal1, rptFiscal2, frmPrincipal;

{$R *.dfm}

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

procedure TformFiscal.SpeedButton4Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblFiscal’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CPFRepresentante = ‘ + #39 + Edit1.Text + #39;
ADOQryFiscal.Close;
ADOQryFiscal.SQL.clear;
ADOQryFiscal.SQL.add(strsql);
ADOQryFiscal.Open;
except
MessageDlg(‘Erro ao realizar a consulta por CPF’, mtwarning, [mbOk], 0);
end;
end;

procedure TformFiscal.SpeedButton5Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblFiscal’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE Nome = ‘ + #39 + Edit2.Text + #39;
ADOQryFiscal.Close;
ADOQryFiscal.SQL.clear;
ADOQryFiscal.SQL.add(strsql);
ADOQryFiscal.Open;
except
MessageDlg(‘Erro ao realizar a consulta por nome’, mtwarning, [mbOk], 0);
end;

end;

procedure TformFiscal.FormActivate(Sender: TObject);
begin
ADOQryFiscal.Active := true;
end;

procedure TformFiscal.Ficha1Click(Sender: TObject);
begin
// rptFiscal01.ComponenteRelatorio.preview;

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

end;

procedure TformFiscal.Listagem1Click(Sender: TObject);
begin
// rptFiscal02.ComponenteRelatorio.preview;
try
try
rptFiscal02 := TrptFiscal02.Create(application);
rptFiscal02.ComponenteRelatorio.preview;
finally
rptFiscal02.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptFiscal02!’, mtwarning, [mbOk], 0);
end;

end;

procedure TformFiscal.Formatoxls1Click(Sender: TObject);
begin
JvgExportExcel1.Execute;
end;

procedure TformFiscal.DBGridpWord1Click(Sender: TObject);
begin
JvDBGridWordExport1.ExportGrid;
end;

procedure TformFiscal.DBGridpExcel1Click(Sender: TObject);
begin
JvDBGridExcelExport1.ExportGrid;
end;

procedure TformFiscal.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,’Cancelar’, ‘Atualizar’);
var
Botao: TNavigateBtn;
begin
PageControl1.ActivePage := TabSheet1;
for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;

ADOQryFiscal.Connection := formPrincipal.ADOConnection1;
ADOQryFiscal.Active := True;

end;

procedure TformFiscal.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if odd(ADOQryFiscal.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 TformFiscal.SpeedButton2Click(Sender: TObject);
begin
Try
ADOQryFiscal.Close;
ADOQryFiscal.SQL.Clear;
ADOQryFiscal.SQL.Add(‘SELECT * FROM tblFiscal’);
ADOQryFiscal.Open;
Except;
MessageDlg(‘Erro ao tentar refazer consulta SQL’, mtwarning, [mbOk], 0);
End;
end;

procedure TformFiscal.TabSheet1Show(Sender: TObject);
begin
formFiscal.WindowState := wsNormal;
end;

procedure TformFiscal.TabSheet2Show(Sender: TObject);
begin
formFiscal.WindowState := wsMaximized;
end;

procedure TformFiscal.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// ADOQryFiscal.Connection := formPrincipal.ADOConnection1;
ADOQryFiscal.Active := False;
end;

end.
unit frmMAINv1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ImgList, Menus, jpeg, ExtCtrls, Buttons, StdCtrls,
ComCtrls;

type
TformMAIN = class(TForm)
StatusBar1: TStatusBar;
Panel2: TPanel;
Label7: TLabel;
SpeedButton1: TSpeedButton;
Label99: TLabel;
Panel1: TPanel;
Image1: TImage;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Image2: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
MainMenu1: TMainMenu;
Arquivo1: TMenuItem;
Representantediretordaempresa1: TMenuItem;
Empresa1: TMenuItem;
Fiscal1: TMenuItem;
N2: TMenuItem;
N1Instituio1: TMenuItem;
Subopesdevistoria1: TMenuItem;
N1Acessovertical1: TMenuItem;
N2Acessos1: TMenuItem;
N3Circulaohorizontal1: TMenuItem;
N4Circulaovertical1: TMenuItem;
N5PortasJanelasDispositivos1: TMenuItem;
N6Sanitrios1: TMenuItem;
N7Mobilirio1: TMenuItem;
N8Estacionamento1: TMenuItem;
N9Locaisdereunio1: TMenuItem;
N10Locaisderefeio1: TMenuItem;
N11Equipamentosautoatendimento1: TMenuItem;
N12Locaisdeexposio1: TMenuItem;
N13Esportelazerturismo1: TMenuItem;
N14Locaisdeleitura1: TMenuItem;
N15Locaisdehospedagem1: TMenuItem;
N16Locaisdesade1: TMenuItem;
N17Locaisdeensino1: TMenuItem;
N18Provadores1: TMenuItem;
N19Cozinhas1: TMenuItem;
N20Outrosobjetos1: TMenuItem;
N21Outrosambientes1: TMenuItem;
N5: TMenuItem;
Sair1: TMenuItem;
Consultas1: TMenuItem;
ConstrutordeSQL1: TMenuItem;
Relatrios1: TMenuItem;
Visogeral1: TMenuItem;
Relatrioresumodegrupossupergrupo1: TMenuItem;
Detalhadogruposesubgrupos1: TMenuItem;
Ferramentas1: TMenuItem;
BlocodeNotas1: TMenuItem;
Calculadora1: TMenuItem;
WindowsExplorer1: TMenuItem;
Ampliadordetela1: TMenuItem;
Autocad1: TMenuItem;
Dia1: TMenuItem;
Winword1: TMenuItem;
FreeCAD1: TMenuItem;
Excel1: TMenuItem;
Ajuda1: TMenuItem;
Sitedoprojeto1: TMenuItem;
Sobre1: TMenuItem;
Sobreoprojeto1: TMenuItem;
Sair2: TMenuItem;
ImageListMenu: TImageList;
ADOConnection1: TADOConnection;
OpenDialog1: TOpenDialog;
procedure Sair2Click(Sender: TObject);
procedure Sair1Click(Sender: TObject);
procedure Representantediretordaempresa1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formMAIN: TformMAIN;

implementation

{$R *.dfm}

procedure TformMAIN.Sair2Click(Sender: TObject);
begin
close;
end;

procedure TformMAIN.Sair1Click(Sender: TObject);
begin
close;
end;

procedure TformMAIN.Representantediretordaempresa1Click(Sender: TObject);
begin
{
Try
Application.CreateForm(TformRepresentante, formRepresentante);
formRepresentante.showmodal;
formRepresentante.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario formRepresentante!’, mtwarning, [mbOk], 0);
end;
}
end;

end.
unit frmPrincipal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, jpeg, ExtCtrls, ShellApi, DB, ADODB, ImgList,
Buttons, StdCtrls, MMSystem, ComObj, AppEvnts, JvExStdCtrls, JvButton,
JvStartMenuButton, JvComponentBase, JvFormMagnet, JvBaseDlg, JvWinDialogs,
JvExControls, JvgLabel;

type
TformPRINCIPAL = class(TForm)
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
Arquivo1: TMenuItem;
Consultas1: TMenuItem;
Relatrios1: TMenuItem;
Ferramentas1: TMenuItem;
Ajuda1: TMenuItem;
N1Instituio1: TMenuItem;
Subopesdevistoria1: TMenuItem;
Sair1: TMenuItem;
N1Acessovertical1: TMenuItem;
N2Acessos1: TMenuItem;
N3Circulaohorizontal1: TMenuItem;
N4Circulaovertical1: TMenuItem;
N5PortasJanelasDispositivos1: TMenuItem;
N6Sanitrios1: TMenuItem;
N7Mobilirio1: TMenuItem;
N8Estacionamento1: TMenuItem;
N9Locaisdereunio1: TMenuItem;
N10Locaisderefeio1: TMenuItem;
N11Equipamentosautoatendimento1: TMenuItem;
N12Locaisdeexposio1: TMenuItem;
N13Esportelazerturismo1: TMenuItem;
N14Locaisdeleitura1: TMenuItem;
N15Locaisdehospedagem1: TMenuItem;
N16Locaisdesade1: TMenuItem;
N17Locaisdeensino1: TMenuItem;
N18Provadores1: TMenuItem;
N19Cozinhas1: TMenuItem;
N20Outrosobjetos1: TMenuItem;
N21Outrosambientes1: TMenuItem;
Panel2: TPanel;
N2: TMenuItem;
Empresa1: TMenuItem;
Fiscal1: TMenuItem;
Sair2: TMenuItem;
Representantediretordaempresa1: TMenuItem;
WindowsExplorer1: TMenuItem;
Calculadora1: TMenuItem;
BlocodeNotas1: TMenuItem;
Dia1: TMenuItem;
Autocad1: TMenuItem;
ConstrutordeSQL1: TMenuItem;
N5: TMenuItem;
Ampliadordetela1: TMenuItem;
ImageListMenu: TImageList;
Sitedoprojeto1: TMenuItem;
Sobre1: TMenuItem;
Sobreoprojeto1: TMenuItem;
Panel1: TPanel;
Image1: TImage;
Image2: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Winword1: TMenuItem;
FreeCAD1: TMenuItem;
Excel1: TMenuItem;
ADOConnection1: TADOConnection;
Visogeral1: TMenuItem;
Relatrioresumodegrupossupergrupo1: TMenuItem;
Detalhadogruposesubgrupos1: TMenuItem;
OpenDialog1: TOpenDialog;
Timer1: TTimer;
Site3Codeplexhostingdoprojeto1: TMenuItem;
JvFormMagnet1: TJvFormMagnet;
JvgLabel1: TJvgLabel;
JvgLabel2: TJvgLabel;
JvgLabel3: TJvgLabel;
Panel3: TPanel;
Panel4: TPanel;
SpeedButton1: TSpeedButton;
Panel5: TPanel;
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;
Memo1: TMemo;
SpeedButton3: TSpeedButton;
Panel6: TPanel;
Label4: TLabel;
Image3: TImage;
Label5: TLabel;
JvgLabel4: TJvgLabel;
Image4: TImage;
JvgLabel5: TJvgLabel;
Label6: TLabel;
Image5: TImage;
Label7: TLabel;
JvgLabel6: TJvgLabel;
Image6: TImage;
JvgLabel7: TJvgLabel;
Label8: TLabel;
procedure Sair1Click(Sender: TObject);
procedure Sair2Click(Sender: TObject);
procedure Fiscal1Click(Sender: TObject);
procedure Representantediretordaempresa1Click(Sender: TObject);
procedure Empresa1Click(Sender: TObject);
procedure N1Instituio1Click(Sender: TObject);
procedure N1Acessovertical1Click(Sender: TObject);
procedure N2Acessos1Click(Sender: TObject);
procedure Sobre1Click(Sender: TObject);
procedure N6TabelaStatus1Click(Sender: TObject);
procedure N3Circulaohorizontal1Click(Sender: TObject);
procedure N9Locaisdereunio1Click(Sender: TObject);
procedure N8Estacionamento1Click(Sender: TObject);
procedure N7Mobilirio1Click(Sender: TObject);
procedure N6Sanitrios1Click(Sender: TObject);
procedure N5PortasJanelasDispositivos1Click(Sender: TObject);
procedure N4Circulaovertical1Click(Sender: TObject);
procedure N10Locaisderefeio1Click(Sender: TObject);
procedure N11Equipamentosautoatendimento1Click(Sender: TObject);
procedure N12Locaisdeexposio1Click(Sender: TObject);
procedure N13Esportelazerturismo1Click(Sender: TObject);
procedure N14Locaisdeleitura1Click(Sender: TObject);
procedure N15Locaisdehospedagem1Click(Sender: TObject);
procedure N16Locaisdesade1Click(Sender: TObject);
procedure N17Locaisdeensino1Click(Sender: TObject);
procedure N20Outrosobjetos1Click(Sender: TObject);
procedure N21Outrosambientes1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure ApplicationEvents1Hint(Sender: TObject);
procedure BlocodeNotas1Click(Sender: TObject);
procedure Calculadora1Click(Sender: TObject);
procedure InternetExplorer1Click(Sender: TObject);
procedure WindowsExplorer1Click(Sender: TObject);
procedure Dia1Click(Sender: TObject);
procedure Autocad1Click(Sender: TObject);
procedure Winword1Click(Sender: TObject);
procedure FreeCAD1Click(Sender: TObject);
procedure Excel1Click(Sender: TObject);
procedure Visogeral1Click(Sender: TObject);
procedure Relatrioresumodegrupossupergrupo1Click(Sender: TObject);
procedure Detalhadogruposesubgrupos1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure N19Cozinhas1Click(Sender: TObject);
procedure N18Provadores1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Sitedoprojeto1Click(Sender: TObject);
procedure Sobreoprojeto1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Site3Codeplexhostingdoprojeto1Click(Sender: TObject);
procedure SpeedButton3Click(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 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 JvgLabel4Click(Sender: TObject);
procedure JvgLabel5Click(Sender: TObject);
procedure JvgLabel6Click(Sender: TObject);

private
{ Private declarations }
// hints nas aplicacoes
procedure AppHint(Sender: TObject);

public
{ Public declarations }
// function AbreFormulario(_TForm: TFormclass;_form :TForm):boolean;
lConecta : boolean;
end;

var
formPRINCIPAL: TformPRINCIPAL;

implementation

uses frmRepresentante, frmVisita01, frmEmpresa, frm19Cozinhas,
frm10LocaisDeRefeicao, frm11EquipAutoAtend, frm12LocaisDeExposicao,
frm13LocaisDeEsporte, frm14LocaisDeLeitura, frm15LocaisDeHospedagem,
frm16LocaisDeSaude, frm17LocaisDeEnsino, frm18Provadores,
frm1PasseioPublico, frm20OutrosObjetos, frm21OutrosAmbientes, frm2Acesso,
frm3CirculacaoHorizontal, frm4CirculacaoVertical, frm5PortasJanelas,
frm6Sanitarios, frm7Mobiliario, frm8Estacionamento, frm9LocaisDeReuniao,
frmDMAcesso, frmDMCirculacaoHorizontal, frmDMCirculacaoVertical,
frmDMConexao, frmDMCozinhas, frmDMEquipAutoAtend,
frmDMEsporteLazerTurismo, frmDMEstacionamento, frmDMLocaisDeEnsino,
frmDMLocaisDeExposicao, frmDMLocaisDeHospedagem, frmDMLocaisDeLeitura,
frmDMLocaisDeRefeicao, frmDMLocaisDeReuniao, frmDMLocaisDeSaude,
frmDMMobiliario, frmDMPasseioPublico, frmDMPortasJanelasDisp,
frmDMProvadores, frmDMSanitarios, frmED, frmFiscal01, frmMAINv1,
frmSobre, frmStatus, frmVisaoGeral1;

{$R *.dfm}

{
function TformPRINCIPAL.AbreFormulario(_TForm: TFormclass;_form :TForm):boolean;
begin
if not ADOConnection1.Connected then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end;
Try
Application.CreateForm(_TForm, _form);
_form.showmodal;
_form.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario formFiscal!’, mtwarning, [mbOk], 0);
end;
end;
}

procedure TformPRINCIPAL.AppHint(Sender: TObject);
begin
Statusbar1.Panels [0].Text := Application.Hint;
end;

procedure TformPRINCIPAL.Sair1Click(Sender: TObject);
begin
// close;
Try
Application.Terminate;
except
MessageDlg(‘Erro ao tentar encerrar o sistema’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Sair2Click(Sender: TObject); // sair teste
begin
Try
Application.Terminate;
except
MessageDlg(‘Erro ao tentar encerrar o sistema’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Fiscal1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
Try
Application.CreateForm(TformFiscal, formFiscal);
formFiscal.showmodal;
formFiscal.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario formFiscal!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Representantediretordaempresa1Click(
Sender: TObject);
Begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
Try
Application.CreateForm(TformRepresentante, formRepresentante);
formRepresentante.showmodal;
formRepresentante.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario formrepreentante!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Empresa1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
Try
Application.CreateForm(TformEmpresa, formEmpresa);
formEmpresa.showmodal;
formEmpresa.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario formEmpresa!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N1Instituio1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
application.createform(TformVisita1, formVisita1);
formVisita1.showmodal;
formVisita1.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario formVisita1!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N1Acessovertical1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
Try
Application.CreateForm(Tform1PasseioPublico, form1PasseioPublico);
form1PasseioPublico.showmodal;
form1PasseioPublico.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario form1PasseioPublico!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N2Acessos1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form2acesso := Tform2Acesso.Create(application);
form2acesso.ShowModal;
finally
form2acesso.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form2Acesso!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Sobre1Click(Sender: TObject);
Begin
Try
Application.CreateForm(TFormSobre, FormSobre);
FormSobre.showmodal;
FormSobre.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario formSobre!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N6TabelaStatus1Click(Sender: TObject);
begin
// formStatus.showmodal;
end;

procedure TformPRINCIPAL.N3Circulaohorizontal1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form3CirculacaoHorizontal := Tform3CirculacaoHorizontal.Create(application);
form3CirculacaoHorizontal.ShowModal;
finally
form3CirculacaoHorizontal.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form3CirculacaoHorizontal!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N9Locaisdereunio1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form9LocaisDeReuniao := Tform9LocaisDeReuniao.Create(application);
form9LocaisDeReuniao.ShowModal;
finally
form9LocaisDeReuniao.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form9LocaisDeReuniao!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N8Estacionamento1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form8Estacionamento := Tform8Estacionamento.Create(application);
form8Estacionamento.ShowModal;
finally
form8Estacionamento.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form8Estacionamento!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N7Mobilirio1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form7Mobiliario := Tform7Mobiliario.Create(application);
form7Mobiliario.ShowModal;
finally
form7Mobiliario.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form7Mobiliario!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N6Sanitrios1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form6Sanitarios := Tform6Sanitarios.Create(application);
form6Sanitarios.ShowModal;
finally
form6Sanitarios.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form6Sanitarios!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N5PortasJanelasDispositivos1Click(
Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form5PortasJanelas := Tform5PortasJanelas.Create(application);
form5PortasJanelas.ShowModal;
finally
form5PortasJanelas.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form5PortasJanelas!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N4Circulaovertical1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form4CirculacaoVertical := Tform4CirculacaoVertical.Create(application);
form4CirculacaoVertical.ShowModal;
finally
form4CirculacaoVertical.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form4CirculacaoVertical!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N10Locaisderefeio1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form10LocaisDeRefeicao := Tform10LocaisDeRefeicao.Create(application);
form10LocaisDeRefeicao.ShowModal;
finally
form10LocaisDeRefeicao.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form10LocaisDeRefeicao!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N11Equipamentosautoatendimento1Click(
Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form11EquipAutoAtend := Tform11EquipAutoAtend.Create(application);
form11EquipAutoAtend.ShowModal;
finally
form11EquipAutoAtend.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form11EquipAutoAtend!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N12Locaisdeexposio1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form12LocaisDeExposicao := Tform12LocaisDeExposicao.Create(application);
form12LocaisDeExposicao.ShowModal;
finally
form12LocaisDeExposicao.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form12LocaisDeExposicao!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N13Esportelazerturismo1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form13LocaisDeEsporte := Tform13LocaisDeEsporte.Create(application);
form13LocaisDeEsporte.ShowModal;
finally
form13LocaisDeEsporte.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form13LocaisDeEsporte!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N14Locaisdeleitura1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form14LocaisDeLeitura := Tform14LocaisDeLeitura.Create(application);
form14LocaisDeLeitura.ShowModal;
finally
form14LocaisDeLeitura.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form14LocaisDeLeitura!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N15Locaisdehospedagem1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form15LocaisDeHospedagem := Tform15LocaisDeHospedagem.Create(application);
form15LocaisDeHospedagem.ShowModal;
finally
form15LocaisDeHospedagem.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form15LocaisDeHospedagem!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N16Locaisdesade1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form16LocaisDeSaude := Tform16LocaisDeSaude.Create(application);
form16LocaisDeSaude.ShowModal;
finally
form16LocaisDeSaude.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form16LocaisDeSaude!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N17Locaisdeensino1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form17LocaisDeEnsino := Tform17LocaisDeEnsino.Create(application);
form17LocaisDeEnsino.ShowModal;
finally
form17LocaisDeEnsino.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form17LocaisDeEnsino!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N20Outrosobjetos1Click(Sender: TObject);
begin
{
Application.CreateForm(TformED, formED);
formED.showmodal;
formED.Free;
}

end;

procedure TformPRINCIPAL.N21Outrosambientes1Click(Sender: TObject);
begin
{
Application.CreateForm(TformED, formED);
formED.showmodal;
formED.Free;
}
end;

procedure TformPRINCIPAL.FormActivate(Sender: TObject);
begin
formPrincipal.left := 0;
formPrincipal.Top := 0;
end;

procedure TformPRINCIPAL.ApplicationEvents1Hint(Sender: TObject);
begin
statusBar1.Panels[0].Text := Application.Hint;
end;

procedure TformPRINCIPAL.BlocodeNotas1Click(Sender: TObject);
begin
try
WinExec(‘notepad.exe’,SW_MAXIMIZE);
except
MessageDlg(‘Erro ao tentar abrir o notepad!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Calculadora1Click(Sender: TObject);
begin
try
WinExec(‘calc.exe’,SW_NORMAL);
except
MessageDlg(‘Erro ao tentar abrir o calc!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.InternetExplorer1Click(Sender: TObject);
begin
try
WinExec(‘firefox.exe’,SW_MAXIMIZE);
except
MessageDlg(‘Erro ao tentar abrir o firefox!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.WindowsExplorer1Click(Sender: TObject);
begin
try
WinExec(‘explorer.exe’,SW_MAXIMIZE);
except
MessageDlg(‘Erro ao tentar abrir o explorer!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Dia1Click(Sender: TObject);
begin
try
WinExec(‘DIAW.EXE’,SW_MAXIMIZE);
except
MessageDlg(‘Erro ao tentar abrir o DIA!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Autocad1Click(Sender: TObject);
begin
try
WinExec(‘ACAD.EXE’,SW_MAXIMIZE);
except
MessageDlg(‘Erro ao tentar abrir o CAD!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Winword1Click(Sender: TObject);
begin
try
WinExec(‘WINWORD.EXE’,SW_MAXIMIZE);
except
MessageDlg(‘Erro ao tentar abrir o MS-Windows!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.FreeCAD1Click(Sender: TObject);
begin
try
WinExec(‘FreeCAD.EXE’,SW_MAXIMIZE);
except
MessageDlg(‘Erro ao tentar abrir o FreeCAD!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Excel1Click(Sender: TObject);
begin
try
WinExec(‘EXCEL.EXE’,SW_MAXIMIZE);
except
MessageDlg(‘Erro ao tentar abrir o MS-Excel!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.Visogeral1Click(Sender: TObject);
begin
// frmVisaoGeral01.ShowModal;
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end;

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

end;

procedure TformPRINCIPAL.Relatrioresumodegrupossupergrupo1Click(
Sender: TObject);
begin
// rptSuperGrupo01.ComponenteRelatorio.preview;
{
try
try

frmVisaoGeral01.Visible := False;
frmVisaoGeral01.showmodal;

rptSuperGrupo01 := TrptSuperGrupo01.Create(application);
rptSuperGrupo01.ShowModal;
finally
rptSuperGrupo01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptSuperGrupo01!’, mtwarning, [mbOk], 0);
end;
}
end;

procedure TformPRINCIPAL.Detalhadogruposesubgrupos1Click(Sender: TObject);
begin
// rptGrupoSubGrupo01.ComponenteRelatorio.preview;
{ try
try
rptGrupoSubGrupo01 := TrptGrupoSubGrupo01.Create(application);
rptGrupoSubGrupo01.ShowModal;
finally
rptGrupoSubGrupo01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptGrupoSubGrupo01!’, mtwarning, [mbOk], 0);
end;
}
end;

procedure TformPRINCIPAL.SpeedButton1Click(Sender: TObject);
begin
ADOConnection1.Close;
if OpenDialog1.Execute then
begin
// ADOConnection1.Close;
ADOConnection1.ConnectionString := ‘Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=’+opendialog1.FileName+’;Mode=Share Deny None;Jet OLEDB:System database=””;’+
‘Jet OLEDB:Registry Path=””;Jet OLEDB:Database Password=””;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;’+
‘Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=””;’+
‘Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don”t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;’+
‘Jet OLEDB:Support Complex Data=False;’;
ADOConnection1.open;
ADOConnection1.Connected := True;
// adotable1.open;
end;

lConecta := ADOConnection1.Connected;
end;

procedure TformPRINCIPAL.N19Cozinhas1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;

Try
Application.CreateForm(Tform19Cozinhas, form19Cozinhas);
form19Cozinhas.showmodal;
form19Cozinhas.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario form19Cozinhas!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.N18Provadores1Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
Try
Application.CreateForm(Tform18Provadores, form18Provadores);
form18Provadores.showmodal;
form18Provadores.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario formrepreentante!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.FormShow(Sender: TObject);
begin
formPrincipal.left := 0;
formPrincipal.top := 0;

end;

procedure TformPRINCIPAL.FormCreate(Sender: TObject);
begin
Application.OnHint := AppHint;
end;

procedure TformPRINCIPAL.Sitedoprojeto1Click(Sender: TObject);
begin
shellexecute(handle, ‘open’, ‘http://sistemavistoria.wordpress.com&#8217;, NiL, NiL, SW_SHOWNORMAL);
end;

procedure TformPRINCIPAL.Sobreoprojeto1Click(Sender: TObject);
begin
shellexecute(handle, ‘open’, ‘https://doutrinapos.wordpress.com/category/sva/&#8217;, NiL, NiL, SW_SHOWNORMAL);
end;

procedure TformPRINCIPAL.Timer1Timer(Sender: TObject);
function ifthen(_expressao :boolean;_true,_false:variant):variant;
begin
if _expressao then result := _true
else result := _false;

end;
begin
statusbar1.panels[1].Text := formatdatetime(‘dd/mm/yy hh:mm’ ,now());
statusbar1.Panels[2].Text := ifthen(lConecta,’Bco Aberto’,’Bco Fechado’);
statusbar1.Panels[3].text := ifthen(lConecta,OpenDialog1.FileName,’…’);
end;

procedure TformPRINCIPAL.Site3Codeplexhostingdoprojeto1Click(
Sender: TObject);
begin
shellexecute(handle, ‘open’, ‘http://sistemavistoria.codeplex.com/&#8217;, NiL, NiL, SW_SHOWNORMAL);
end;

procedure TformPRINCIPAL.SpeedButton3Click(Sender: TObject);
begin
Close;
end;

procedure TformPRINCIPAL.SpeedButton4Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
Try
Application.CreateForm(Tform1PasseioPublico, form1PasseioPublico);
form1PasseioPublico.showmodal;
form1PasseioPublico.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario form1PasseioPublico!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton5Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form2acesso := Tform2Acesso.Create(application);
form2acesso.ShowModal;
finally
form2acesso.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form2Acesso!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton6Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form3CirculacaoHorizontal := Tform3CirculacaoHorizontal.Create(application);
form3CirculacaoHorizontal.ShowModal;
finally
form3CirculacaoHorizontal.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form3CirculacaoHorizontal!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton7Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form4CirculacaoVertical := Tform4CirculacaoVertical.Create(application);
form4CirculacaoVertical.ShowModal;
finally
form4CirculacaoVertical.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form4CirculacaoVertical!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton8Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form5PortasJanelas := Tform5PortasJanelas.Create(application);
form5PortasJanelas.ShowModal;
finally
form5PortasJanelas.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form5PortasJanelas!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton9Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form6Sanitarios := Tform6Sanitarios.Create(application);
form6Sanitarios.ShowModal;
finally
form6Sanitarios.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form6Sanitarios!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton10Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form7Mobiliario := Tform7Mobiliario.Create(application);
form7Mobiliario.ShowModal;
finally
form7Mobiliario.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form7Mobiliario!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton11Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form8Estacionamento := Tform8Estacionamento.Create(application);
form8Estacionamento.ShowModal;
finally
form8Estacionamento.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form8Estacionamento!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton12Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form9LocaisDeReuniao := Tform9LocaisDeReuniao.Create(application);
form9LocaisDeReuniao.ShowModal;
finally
form9LocaisDeReuniao.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form9LocaisDeReuniao!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton13Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form10LocaisDeRefeicao := Tform10LocaisDeRefeicao.Create(application);
form10LocaisDeRefeicao.ShowModal;
finally
form10LocaisDeRefeicao.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form10LocaisDeRefeicao!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton14Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form11EquipAutoAtend := Tform11EquipAutoAtend.Create(application);
form11EquipAutoAtend.ShowModal;
finally
form11EquipAutoAtend.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form11EquipAutoAtend!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton15Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form12LocaisDeExposicao := Tform12LocaisDeExposicao.Create(application);
form12LocaisDeExposicao.ShowModal;
finally
form12LocaisDeExposicao.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form12LocaisDeExposicao!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton16Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form13LocaisDeEsporte := Tform13LocaisDeEsporte.Create(application);
form13LocaisDeEsporte.ShowModal;
finally
form13LocaisDeEsporte.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form13LocaisDeEsporte!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton17Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form14LocaisDeLeitura := Tform14LocaisDeLeitura.Create(application);
form14LocaisDeLeitura.ShowModal;
finally
form14LocaisDeLeitura.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form14LocaisDeLeitura!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton18Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form15LocaisDeHospedagem := Tform15LocaisDeHospedagem.Create(application);
form15LocaisDeHospedagem.ShowModal;
finally
form15LocaisDeHospedagem.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form15LocaisDeHospedagem!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton19Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form16LocaisDeSaude := Tform16LocaisDeSaude.Create(application);
form16LocaisDeSaude.ShowModal;
finally
form16LocaisDeSaude.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form16LocaisDeSaude!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton20Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
try
try
form17LocaisDeEnsino := Tform17LocaisDeEnsino.Create(application);
form17LocaisDeEnsino.ShowModal;
finally
form17LocaisDeEnsino.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario form17LocaisDeEnsino!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton21Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;
Try
Application.CreateForm(Tform18Provadores, form18Provadores);
form18Provadores.showmodal;
form18Provadores.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario formrepreentante!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.SpeedButton22Click(Sender: TObject);
begin
if ((not ADOConnection1.Connected) and (not lConecta)) then
begin
MessageDlg(‘Selecione o Banco de Dados antes de prosseguir !’,mtinformation,[mbOK],0);
Exit;
end
else ADOConnection1.Connected := true;

Try
Application.CreateForm(Tform19Cozinhas, form19Cozinhas);
form19Cozinhas.showmodal;
form19Cozinhas.Free;
except
MessageDlg(‘Erro ao tentar abrir o formulario form19Cozinhas!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformPRINCIPAL.JvgLabel4Click(Sender: TObject);
begin
// shellexecute(handle, ‘open’, ‘https://doutrinapos.wordpress.com/category/sva/&#8217;, NiL, NiL, SW_SHOWNORMAL);
end;

procedure TformPRINCIPAL.JvgLabel5Click(Sender: TObject);
begin
// shellexecute(handle, ‘open’, ‘http://sistemavistoria.wordpress.com/&#8217;, NiL, NiL, SW_SHOWNORMAL);
end;

procedure TformPRINCIPAL.JvgLabel6Click(Sender: TObject);
begin
// shellexecute(handle, ‘open’, ‘http://sistemavistoria.codeplex.com/discussions&#8217;, NiL, NiL, SW_SHOWNORMAL);
end;

end.
unit frmRepresentante;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Mask, DBCtrls, StdCtrls, ComCtrls, Buttons, ExtCtrls,
Grids, DBGrids, Menus, JvArrowButton, ImgList, JvComponentBase,
JvgReport, JvgExportComponents, JvDBGridExport, DbiProcs, jpeg,
JvExControls, JvExStdCtrls, JvEdit, JvDBSearchEdit;

type
TMeuDBNavigator = class(TDBNavigator);

TformRepresentante = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
ADOQryRepresentante: TADOQuery;
dtsRepresentante: TDataSource;
Label1: TLabel;
DBEdit1_CPF: TDBEdit;
Label2: TLabel;
DBEdit2_NOME: TDBEdit;
Label3: TLabel;
DBEdit3_RG: TDBEdit;
DBRadioGroup1_SEXO: TDBRadioGroup;
Label4: TLabel;
DBEdit4_ENDERECO: TDBEdit;
Label5: TLabel;
DBEdit5_COMPLEMENTO: TDBEdit;
Label6: TLabel;
DBEdit6_BAIRRO: TDBEdit;
Label7: TLabel;
DBEdit7_CIDADE: TDBEdit;
Label8: TLabel;
DBEdit8_CEP: TDBEdit;
Label9: TLabel;
DBComboBox1_UF: TDBComboBox;
Label10: TLabel;
DBEdit9_TELEFONE: TDBEdit;
Label11: TLabel;
DBEdit10_CELULAR: TDBEdit;
Label12: TLabel;
DBEdit11_EMAIL: TDBEdit;
Label13: TLabel;
DBMemo1_OBS: TDBMemo;
DBGrid1: TDBGrid;
ADOQryRepresentanteCPFRepresentante: TWideStringField;
ADOQryRepresentanteNome: TWideStringField;
ADOQryRepresentanteRG: TWideStringField;
ADOQryRepresentanteSexo: TWideStringField;
ADOQryRepresentanteEndereo: TWideStringField;
ADOQryRepresentanteComplemento: TWideStringField;
ADOQryRepresentanteBairro: TWideStringField;
ADOQryRepresentanteCidade: TWideStringField;
ADOQryRepresentanteCEP: TWideStringField;
ADOQryRepresentanteUF: TWideStringField;
ADOQryRepresentanteTelefone: TWideStringField;
ADOQryRepresentanteCelular: TWideStringField;
ADOQryRepresentanteEmail: TWideStringField;
ADOQryRepresentanteObs: TMemoField;
ADOQryRepresentanteFoto: TBlobField;
Label14: TLabel;
DBImage1: TDBImage;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
JvArrowButton1: TJvArrowButton;
menuRelatorio: TPopupMenu;
Ficha1: TMenuItem;
Listagem1: TMenuItem;
ImageList1: TImageList;
Exportadadosxls1: TMenuItem;
JvgExportExcel1: TJvgExportExcel;
JvArrowButton2: TJvArrowButton;
JvDBGridWordExport1: TJvDBGridWordExport;
JvDBGridExcelExport1: TJvDBGridExcelExport;
ImageList2: TImageList;
menuExportar: TPopupMenu;
DBGridpWord1: TMenuItem;
DBGridpExcel1: TMenuItem;
SpeedButton2: TSpeedButton;
Label15: TLabel;
SpeedButton6: TSpeedButton;
Image1: TImage;
JvDBSearchEdit1: TJvDBSearchEdit;
Label16: TLabel;
JvDBSearchEdit2: TJvDBSearchEdit;
Label17: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure Ficha1Click(Sender: TObject);
procedure Listagem1Click(Sender: TObject);
procedure Exportadadosxls1Click(Sender: TObject);
procedure DBGridpWord1Click(Sender: TObject);
procedure DBGridpExcel1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure TabSheet1Show(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure ADOQryRepresentanteBeforeDelete(DataSet: TDataSet);

private
{ Private declarations }
public
{ Public declarations }
end;

var
formRepresentante: TformRepresentante;
nomeTabela: string;

implementation

uses rptRepresentante, rptRepresentante2, frmPrincipal;

//uses rptRepresentante, rptRepresentante2, frmPrincipal;

{$R *.dfm}

procedure tbDBDeleteAll(const DataSet: TDataSet);
begin
with DataSet do
while RecordCount > 0 do
Delete;
end;

procedure TformRepresentante.SpeedButton1Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblRepresentante’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
ADOQryRepresentante.Close;
ADOQryRepresentante.SQL.clear;
ADOQryRepresentante.SQL.add(strsql);
ADOQryRepresentante.Open;
ADOQryRepresentante.active := False;
ADOQryRepresentante.active := True;
except
MessageDlg(‘Erro ao carregar a ADOQueryRepresentante’, mtwarning, [mbOk], 0);
end;
end;

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

procedure TformRepresentante.Button2Click(Sender: TObject);
var
strsql: string;
begin
nomeTabela := ‘tblRepresentante’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE Nome = ‘ + #39 + Edit1.Text + #39;
ADOQryRepresentante.Close;
ADOQryRepresentante.SQL.clear;
ADOQryRepresentante.SQL.add(strsql);
ADOQryRepresentante.Open;
end;

procedure TformRepresentante.SpeedButton4Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblRepresentante’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE CPFRepresentante = ‘ + #39 + Edit1.Text + #39;
ADOQryRepresentante.Close;
ADOQryRepresentante.SQL.clear;
ADOQryRepresentante.SQL.add(strsql);
ADOQryRepresentante.Open;
except
MessageDlg(‘Erro ao realizar a consulta por CPF’, mtwarning, [mbOk], 0);
end;
end;

procedure TformRepresentante.SpeedButton5Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblRepresentante’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE Nome = ‘ + #39 + Edit2.Text + #39;
ADOQryRepresentante.Close;
ADOQryRepresentante.SQL.clear;
ADOQryRepresentante.SQL.add(strsql);
ADOQryRepresentante.Open;
except
MessageDlg(‘Erro ao realizar a consulta por nome’, mtwarning, [mbOk], 0);
end;
end;

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

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

procedure TformRepresentante.Exportadadosxls1Click(Sender: TObject);
begin
try
JvgExportExcel1.Execute;
except
MessageDlg(‘Erro ao tentar exportar dados!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformRepresentante.DBGridpWord1Click(Sender: TObject);
begin
JvDBGridWordExport1.ExportGrid;
end;

procedure TformRepresentante.DBGridpExcel1Click(Sender: TObject);
begin
// JvgExportExcel1.ExportGrid;
JvDBGridExcelExport1.ExportGrid;
end;

procedure TformRepresentante.SpeedButton2Click(Sender: TObject);
begin
Try
ADOQryRepresentante.Close;
ADOQryRepresentante.SQL.Clear;
ADOQryRepresentante.SQL.Add(‘SELECT * FROM tblRepresentante’);
ADOQryRepresentante.Open;
Except;
MessageDlg(‘Erro ao tentar refazer consulta SQL’, mtwarning, [mbOk], 0);
End;
end;

procedure TformRepresentante.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,’Cancelar’, ‘Atualizar’);
var
Botao: TNavigateBtn;
begin
PageControl1.ActivePage := TabSheet1;

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

// Abrir o banco de dados
//ADOQryRepresentante.Connection := formPrincipal.ADOConnection1;
AdoQryRepresentante.Active := True;

end;

procedure TformRepresentante.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if odd(ADOQryRepresentante.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 TformRepresentante.TabSheet1Show(Sender: TObject);
begin
formRepresentante.WindowState := wsNormal;
end;

procedure TformRepresentante.TabSheet2Show(Sender: TObject);
begin
formRepresentante.WindowState := wsMaximized;
end;

procedure TformRepresentante.SpeedButton6Click(Sender: TObject);
begin
// tbDBDeleteAll(ADOQryRepresentante);
end;

procedure TformRepresentante.ADOQryRepresentanteBeforeDelete(
DataSet: TDataSet);
begin
//if MessageDlg(‘Confirma a exclusão ?’, mtConfirmation, [mbYes,mbNo], 0)mrYes then Abort;
{ if Application.MessageBox(‘Confirma a exclusão ?’, ‘Aviso do sistema’, mb_YesNo+mb_iconinformation) = idNo then
Begin
Abort;
End;}
end;

end.
unit frmSobre;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, ComCtrls, jpeg, shellapi, ComObj, JvGIF, JvScrollText,
JvExControls, JvaScrollText, JvgLabel;

type
TformSobre = class(TForm)
Panel1: TPanel;
Version: TLabel;
Copyright: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Image8: TImage;
Image1: TImage;
Image2: TImage;
Image3: TImage;
JvScrollText1: TJvScrollText;
SpeedButton1: TSpeedButton;
JvgLabel1: TJvgLabel;
Image4: TImage;
Image6: TImage;
Image7: TImage;
Image9: TImage;
Image10: TImage;
JvScrollText2: TJvScrollText;
procedure OKButtonClick(Sender: TObject);
procedure JvLinkLabel1Click(Sender: TObject);
procedure JvLinkLabel3Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Label5Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formSobre: TformSobre;
IEApp: Variant;

implementation

{$R *.dfm}

procedure TformSobre.OKButtonClick(Sender: TObject);
begin
close;
end;

procedure TformSobre.JvLinkLabel1Click(Sender: TObject);
begin
{
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘https://doutrinapos.wordpress.com/category/sva/&#8217;);
}
end;

procedure TformSobre.JvLinkLabel3Click(Sender: TObject);
begin
{
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘http://sistemavistoria.codeplex.com/&#8217;);
}
end;

procedure TformSobre.Image1Click(Sender: TObject);
begin
{
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘http://www.unioeste.br&#8217;);
}
end;

procedure TformSobre.Image3Click(Sender: TObject);
begin
{
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘http://www.radstudiobrasil.blogspot.com/&#8217;);
}
end;

procedure TformSobre.Image2Click(Sender: TObject);
begin
{
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘http://jvcl.delphi-jedi.org/&#8217;);
}
end;

procedure TformSobre.Image4Click(Sender: TObject);
begin
{
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘http://www.delphi-jedi.org/&#8217;);
}
end;

procedure TformSobre.Image6Click(Sender: TObject);
begin
{
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘http://www.cascavel.pr.gov.br/&#8217;);
}
end;

procedure TformSobre.Label5Click(Sender: TObject);
begin
// try
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘http://sistemavistoria.wordpress.com&#8217;);
// except
// MessageDlg(‘Erro ao tentar acessar a página’, mtwarning, [mbOk], 0);
// end;
end;

procedure TformSobre.Image5Click(Sender: TObject);
begin
{
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘http://www.radstudiobrasil.blogspot.com/&#8217;);
}
end;

procedure TformSobre.Image7Click(Sender: TObject);
begin
{
IEApp := CreateOLEObject(‘InternetExplorer.Application’);
IEApp.visible := true;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.width := screen.width;
IEApp.height := screen.height;
IEApp.Navigate(‘http://creativecommons.org/&#8217;);
}
end;

procedure TformSobre.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TformSobre.SpeedButton1Click(Sender: TObject);
begin
close;
end;

end.

unit frmStatus;

interface

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

type
TformStatus = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
dtsStatus: TDataSource;
// ppReport1: TppReport;
// ppDesigner1: TppDesigner;
ADOQryStatus: TADOQuery;
ADOQryStatusCodigo: TAutoIncField;
ADOQryStatusDescricao: TWideStringField;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
ADOQryStatusComentario: TWideStringField;
Label3: TLabel;
DBEdit3: TDBEdit;
procedure SpeedButton3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formStatus: TformStatus;
nomeTabela: string;

implementation

//uses ;

{$R *.dfm}

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

procedure TformStatus.FormActivate(Sender: TObject);
begin
ADOQryStatus.Active := true;
end;

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

procedure TformStatus.SpeedButton4Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblStatus’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE Codigo = ‘ + #39 + Edit1.Text + #39;
ADOQryStatus.Close;
ADOQryStatus.SQL.clear;
ADOQryStatus.SQL.add(strsql);
ADOQryStatus.Open;
except
MessageDlg(‘Erro ao realizar a consulta por Codigo’, mtwarning, [mbOk], 0);
end;

end;

end.
unit frmVisaoGeral1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, JvDBControls, Grids, DBGrids,
JvExDBGrids, JvDBGrid, JvDBUltimGrid, ComCtrls, JvExComCtrls,
JvDBTreeView, JvExControls, JvDBLookup, JvLED, JvLabel, StdCtrls,
JvExStdCtrls, JvEdit, JvDBSearchEdit, JvCombobox, JvDBSearchComboBox,
Mask, Buttons, RpCon, RpConDS, RpConBDE, RpDefine, RpRave;

type
TfrmVisaoGeral01 = class(TForm)
dtsPasseioPublico: TDataSource;
dtsAcesso: TDataSource;
dtsCircHoriz: TDataSource;
dtsCircVert: TDataSource;
dtsPortJanDisp: TDataSource;
tblPasseioPublico: TADOTable;
tblAcesso: TADOTable;
tblCircHoriz: TADOTable;
tblCircVert: TADOTable;
tblPortJanDisp: TADOTable;
tblPasseioPublicoCodPasseioPublico: TWideStringField;
tblPasseioPublicoCodVisita: TWideStringField;
tblPasseioPublicoViaAnalisada: TWideStringField;
tblPasseioPublicoLarguraDoPasseio: TIntegerField;
tblPasseioPublicoHaFaixaLivreDemarcada: TWideStringField;
tblPasseioPublicoHaFaixaDeServico: TWideStringField;
tblPasseioPublicoLarguraFaixaDeServico: TIntegerField;
tblPasseioPublicoHaFaixaDeAcesso: TWideStringField;
tblPasseioPublicoLarguraFaixaDeAcesso: TIntegerField;
tblPasseioPublicoInclinacaoTransversalAreaFluxo: TWideStringField;
tblPasseioPublicoInclinacaoLongitudinalAreaFluxAcomRua: TWideStringField;
tblPasseioPublicoInterferenciasNoPasseio: TWideStringField;
tblPasseioPublicoStatus: TWideStringField;
tblPasseioPublicoFoto: TBlobField;
tblPasseioPublicoObservacoes: TMemoField;
tblAcessoCodigo: TWideStringField;
tblAcessoCodVisita: TWideStringField;
tblAcessoIdentifiqueAcesso: TWideStringField;
tblAcessoQualOAcessoASerAnalisado: TWideStringField;
tblAcessoEstaEntradaEAcessivelACadeirante: TWideStringField;
tblAcessoQualALarguraLivreNoAcessoAnalisado: TIntegerField;
tblAcessoSIA: TWideStringField;
tblAcessoStatus: TWideStringField;
tblAcessoFoto: TBlobField;
tblAcessoObs: TMemoField;
tblAcessoDiagnstico: TWideStringField;
tblCircHorizCodigo: TWideStringField;
tblCircHorizCodVisita: TWideStringField;
tblCircHorizQualLocalASerAnalizado: TWideStringField;
tblCircHorizStatus: TWideStringField;
tblCircHorizFoto: TBlobField;
tblCircHorizObs: TMemoField;
tblCircVertCodigo: TWideStringField;
tblCircVertCodVisita: TWideStringField;
tblCircVertIdentifique: TWideStringField;
tblCircVertStatus: TWideStringField;
tblCircVertFoto: TBlobField;
tblCircVertObs: TMemoField;
tblPortJanDispCodigo: TWideStringField;
tblPortJanDisp__CodPortasJanelas: TWideStringField;
tblPortJanDisp__CodigoCirculacaoVertical: TWideStringField;
tblPortJanDispCodVisita: TWideStringField;
tblPortJanDispIdentifique: TWideStringField;
tblPortJanDispStatus: TWideStringField;
tblPortJanDispFoto: TBlobField;
tblPortJanDispObs: TMemoField;
Label1: TLabel;
dtsSanitarios: TDataSource;
dtsMobiliarios: TDataSource;
dtsEstacionamento: TDataSource;
dtsLocaisDeReuniao: TDataSource;
dtsLocaisDeRefeicao: TDataSource;
tblSanitarios: TADOTable;
tblMobiliario: TADOTable;
tblEstacionamento: TADOTable;
tblLocaisDeReuniao: TADOTable;
tblRefeicao: TADOTable;
tblSanitariosCodigo: TWideStringField;
tblSanitariosCodVisita: TWideStringField;
tblSanitariosIdentifique: TWideStringField;
tblSanitariosSanitarioAdaptadoIsolado: TWideStringField;
tblSanitariosTotalDeBoxesMasc: TIntegerField;
tblSanitariosTotalDeBoxesFem: TIntegerField;
tblSanitariosTotalDeBoxesAdapMasc: TIntegerField;
tblSanitariosTotalDeBoxesAdapFem: TIntegerField;
tblSanitariosSanitariosAdapEmRotaAcessivel: TWideStringField;
tblSanitariosSanitarioUnisex: TWideStringField;
tblSanitariosTotalSanitUnisex: TIntegerField;
tblSanitariosSanitarioAdapDevidSinalizado: TWideStringField;
tblSanitariosTemSinalizacaoSonoraDeEmergencia: TWideStringField;
tblSanitariosAlturaSinalizacao: TIntegerField;
tblSanitariosD1: TIntegerField;
tblSanitariosD2: TIntegerField;
tblSanitariosD3: TIntegerField;
tblSanitariosD4: TIntegerField;
tblSanitariosD5: TIntegerField;
tblSanitariosStatus: TWideStringField;
tblSanitariosFoto: TBlobField;
tblSanitariosObs: TMemoField;
tblMobiliarioCodigo: TWideStringField;
tblMobiliarioCodVisita: TWideStringField;
tblMobiliarioIdentificacao: TWideStringField;
tblEstacionamentoCodigo: TWideStringField;
tblEstacionamentoCodVisita: TWideStringField;
tblEstacionamentoIdentifique: TWideStringField;
tblEstacionamentoQtdTotalVagas: TIntegerField;
tblEstacionamentoQtdVagasParaDeficientes: TIntegerField;
tblEstacionamentoLarguraVaga: TIntegerField;
tblEstacionamentoComprimentoVaga: TIntegerField;
tblEstacionamentoLarguraFaixaAdicional: TIntegerField;
tblEstacionamentoVagasAdaptProxAoAcessoPrincipal: TWideStringField;
tblEstacionamentoVagasAdaptLocalizadaEmRotaAcesso: TWideStringField;
tblEstacionamentoVagasAdaptTemSinalizVert: TWideStringField;
tblEstacionamentoTemSinalizacaoHorizontalAdequada: TWideStringField;
tblEstacionamentoSinalOrientPercAtVagaAcess: TWideStringField;
tblEstacionamentoStatus: TWideStringField;
tblEstacionamentoFoto: TBlobField;
tblEstacionamentoObs: TMemoField;
tblLocaisDeReuniaoCodigo: TWideStringField;
tblLocaisDeReuniaoCodVisita: TWideStringField;
tblLocaisDeReuniaoIdentifique: TWideStringField;
tblLocaisDeReuniaoTotalDeAssentos: TIntegerField;
tblLocaisDeReuniaoD1: TIntegerField;
tblLocaisDeReuniaoD2: TIntegerField;
tblLocaisDeReuniaoStatus: TWideStringField;
tblLocaisDeReuniaoFoto: TBlobField;
tblLocaisDeReuniaoObs: TMemoField;
tblRefeicaoCodigo: TWideStringField;
tblRefeicaoCodVisita: TWideStringField;
tblRefeicaoIdentifique: TWideStringField;
tblRefeicaoTotalDeMesa: TIntegerField;
tblRefeicaoQtdAdaptadas: TIntegerField;
tblRefeicaoFaixaLivreDeCirculacaoDe090: TWideStringField;
tblRefeicaoAreaDeManobraDe: TWideStringField;
tblRefeicaoStatus: TWideStringField;
tblRefeicaoFoto: TBlobField;
tblRefeicaoObs: TMemoField;
Label6: TLabel;
tblMobiliarioStatus: TWideStringField;
Label8: TLabel;
editEstacionamento: TDBEdit;
Label10: TLabel;
editRefeicao: TDBEdit;
dtsEquipAutoAtend: TDataSource;
dtsLocaisDeExposicao: TDataSource;
dtsLocaisEsportLazerTurism: TDataSource;
dtsLocaisDeLeitura: TDataSource;
dtsLocaisDeHospedagem: TDataSource;
dtsLocaisDeSaude: TDataSource;
dtsLocaisDeEnsino: TDataSource;
dtsProvadores: TDataSource;
dtsCozinha: TDataSource;
tblEquipAutoAtend: TADOTable;
tblLocaisDeExposicao: TADOTable;
tblLocaisEsportLazerTurism: TADOTable;
tblLocaisDeLeitura: TADOTable;
tblLocaisDeHospedagem: TADOTable;
tblLocaisDeSaude: TADOTable;
tblLocaisDeEnsino: TADOTable;
tblProvadores: TADOTable;
tblCozinha: TADOTable;
tblEquipAutoAtendCodigo: TWideStringField;
tblEquipAutoAtendCodVisita: TWideStringField;
tblEquipAutoAtendIdentifique: TWideStringField;
tblEquipAutoAtendLocalizacao: TWideStringField;
tblEquipAutoAtendQtdEquipAcessPorPavimento: TIntegerField;
tblEquipAutoAtendHaPeloMenosUmEquipAcessivel: TWideStringField;
tblEquipAutoAtendAreaDeAproximacao: TWideStringField;
tblEquipAutoAtendControlesAMaisDe30cmDaFrente: TWideStringField;
tblEquipAutoAtendDispEntradaSaidaAMaisDe30cm: TWideStringField;
tblEquipAutoAtendDispEntradaSaidaEntre040e120cm: TWideStringField;
tblEquipAutoAtendCtrlsEntre080e120cm: TWideStringField;
tblEquipAutoAtendHaConectorParaFoneDeOuvido: TWideStringField;
tblEquipAutoAtendModuloDeReferenciaGarantido: TWideStringField;
tblEquipAutoAtendD1: TIntegerField;
tblEquipAutoAtendD2: TIntegerField;
tblEquipAutoAtendStatus: TWideStringField;
tblEquipAutoAtendFoto: TBlobField;
tblEquipAutoAtendObs: TMemoField;
Label11: TLabel;
editEquipAutoAtend: TDBEdit;
tblLocaisDeExposicaoCodigo: TWideStringField;
tblLocaisDeExposicaoCodVisita: TWideStringField;
tblLocaisDeExposicaoIdentifique: TWideStringField;
tblLocaisDeExposicaoTodosElemtExpPublicaEstaAcessiveis: TWideStringField;
tblLocaisDeExposicaoTextosExplicOuSimilarEmBraille: TWideStringField;
tblLocaisDeExposicaoStatus: TWideStringField;
tblLocaisDeExposicaoFoto: TBlobField;
tblLocaisDeExposicaoObs: TMemoField;
Label12: TLabel;
editLocalExposicao: TDBEdit;
tblLocaisEsportLazerTurismCodigo: TWideStringField;
tblLocaisEsportLazerTurismCodVisita: TWideStringField;
tblLocaisEsportLazerTurismIdentifique: TWideStringField;
tblLocaisEsportLazerTurismPortasComVaoLivreMin: TWideStringField;
tblLocaisEsportLazerTurismStatus: TWideStringField;
tblLocaisEsportLazerTurismFoto: TBlobField;
tblLocaisEsportLazerTurismObs: TMemoField;
Label13: TLabel;
editLocalEsporte: TDBEdit;
tblLocaisDeLeituraCodigo: TWideStringField;
tblLocaisDeLeituraCodVisita: TWideStringField;
tblLocaisDeLeituraIdentifique: TWideStringField;
tblLocaisDeLeituraTodosOsLocaisEstaoAcessiveis: TWideStringField;
tblLocaisDeLeituraQualADistanciaEntreEstantesNaBiblioteca: TIntegerField;
tblLocaisDeLeituraEntrEstantesACada15mExisteEspManobra: TWideStringField;
tblLocaisDeLeituraABibliotecaPossuiPublicacoesEmBraille: TWideStringField;
tblLocaisDeLeituraABibliotecaPossuiRecurspsAudiovisiaus: TWideStringField;
tblLocaisDeLeituraOAcervoEAbertoAoPublico: TWideStringField;
tblLocaisDeLeituraStatus: TWideStringField;
tblLocaisDeLeituraFoto: TBlobField;
tblLocaisDeLeituraObs: TBlobField;
Label14: TLabel;
editLocaisLeitura: TDBEdit;
tblLocaisDeHospedagemCodigo: TWideStringField;
tblLocaisDeHospedagemCodVisita: TWideStringField;
tblLocaisDeHospedagemIdentifique: TWideStringField;
tblLocaisDeHospedagemQualTotalDeDormitorios: TIntegerField;
tblLocaisDeHospedagemQntsSaoConsideradosAcessiveis: TIntegerField;
tblLocaisDeHospedagemDormitoriosAcessiveisEmTodosOsNiveis: TWideStringField;
tblLocaisDeHospedagemDormitoriosTemAreaParaGiroDe360g: TWideStringField;
tblLocaisDeHospedagemAreaCirculacaoIgualSup090: TWideStringField;
tblLocaisDeHospedagemTemSanitarioAdaptado: TWideStringField;
tblLocaisDeHospedagemSanitarioTemDispositivoDeChamadaDeEmergencia: TWideStringField;
tblLocaisDeHospedagemD1: TIntegerField;
tblLocaisDeHospedagemD2: TIntegerField;
tblLocaisDeHospedagemD3: TIntegerField;
tblLocaisDeHospedagemD4: TIntegerField;
tblLocaisDeHospedagemD5: TIntegerField;
tblLocaisDeHospedagemStatus: TWideStringField;
tblLocaisDeHospedagemFoto: TBlobField;
tblLocaisDeHospedagemObs: TMemoField;
Label15: TLabel;
editHospedagem: TDBEdit;
tblLocaisDeSaudeCodigo: TWideStringField;
tblLocaisDeSaudeCodVisita: TWideStringField;
tblLocaisDeSaudeIdentifique: TWideStringField;
tblLocaisDeSaudeTotalDeLeitosComSanitario: TIntegerField;
tblLocaisDeSaudeQntsSaoAcessiveis: TIntegerField;
tblLocaisDeSaudeQntsSanitariosExistem: TIntegerField;
tblLocaisDeSaudeQntsDestesSaoAcessiveis: TIntegerField;
tblLocaisDeSaudeStatus: TWideStringField;
tblLocaisDeSaudeFoto: TBlobField;
tblLocaisDeSaudeObs: TMemoField;
Label16: TLabel;
editLocaisSaude: TDBEdit;
tblLocaisDeEnsinoCodigo: TWideStringField;
tblLocaisDeEnsinoCodVisita: TWideStringField;
tblLocaisDeEnsinoIdentifique: TWideStringField;
tblLocaisDeEnsinoEntradaEmLocalDeMenorFluxo: TWideStringField;
tblLocaisDeEnsinoTodasAsAreasAdmSaoAcessiveis: TWideStringField;
tblLocaisDeEnsinoIdentAresAdminInacessiveis: TMemoField;
tblLocaisDeEnsinoTodasASAreasCompSaoAcessiveis: TWideStringField;
tblLocaisDeEnsinoIdentAreasCompInacessiveis: TMemoField;
tblLocaisDeEnsinoStatus: TWideStringField;
tblLocaisDeEnsinoFoto: TBlobField;
tblLocaisDeEnsinoObs: TMemoField;
Label17: TLabel;
editLocaisEnsino: TDBEdit;
tblProvadoresCodigo: TWideStringField;
tblProvadoresCodVisita: TWideStringField;
tblProvadoresIdentifique: TWideStringField;
tblProvadoresQualTipoDePorta: TWideStringField;
tblProvadoresD1: TIntegerField;
tblProvadoresD2: TIntegerField;
tblProvadoresD3: TIntegerField;
tblProvadoresStatus: TWideStringField;
tblProvadoresFotos: TBlobField;
tblProvadoresObs: TMemoField;
tblCozinhaCodigo: TWideStringField;
tblCozinhaCodVisita: TWideStringField;
tblCozinhaIdentifique: TWideStringField;
tblCozinhaExisteCondicaoCirculacao: TWideStringField;
tblCozinhaD1: TIntegerField;
tblCozinhaD2: TIntegerField;
tblCozinhaD3: TIntegerField;
tblCozinhaD4: TIntegerField;
tblCozinhaStatus: TWideStringField;
tblCozinhaFoto: TBlobField;
tblCozinhaObs: TMemoField;
Label19: TLabel;
editCozinhas: TDBEdit;
dtsGrelha: TDataSource;
tblGrelha: TADOTable;
dtsCxInspecao: TDataSource;
dtsPontoDeOnibus: TDataSource;
dtsTelefonePublico: TDataSource;
dtsCxCorreio: TDataSource;
dtsLixeira: TDataSource;
dtsBanco: TDataSource;
dtsBanca: TDataSource;
dtsBancMerc: TDataSource;
dtsFloreira: TDataSource;
dtsPontoDeTaxi: TDataSource;
dtsEscada: TDataSource;
dtsRampa: TDataSource;
dtsDesvTrans: TDataSource;
tblCxInspecao: TADOTable;
tblPontoOnibus: TADOTable;
tblTelefonePublico: TADOTable;
tblCxCorreio: TADOTable;
tblLixeira: TADOTable;
tblBanco: TADOTable;
tblBanca: TADOTable;
tblBancMerc: TADOTable;
tblFloreira: TADOTable;
tblPontoTaxi: TADOTable;
tblEscada: TADOTable;
tblRampa: TADOTable;
tblDesvTrans: TADOTable;
dtsPostLuz: TDataSource;
tblPosteLuz: TADOTable;
dtsSemaforo: TDataSource;
tblSemaforo: TADOTable;
dtsPosteSin: TDataSource;
dtsBaiaVeic: TDataSource;
tblPosteSin: TADOTable;
tblBaiaVeic: TADOTable;
tblVeget: TADOTable;
tblCxTelef: TADOTable;
dtsVeget: TDataSource;
dtsCxTelef: TDataSource;
dtsOutraInterf: TDataSource;
tblOutraInterf: TADOTable;
tblDegrau: TADOTable;
dtsDegrau: TDataSource;
dtsRevestimento: TDataSource;
tblRevestimento: TADOTable;
dtsEscada2: TDataSource;
tblEscada2: TADOTable;
dtsRampa2: TDataSource;
dtsDesvTrans2: TDataSource;
dtsDegrau2: TDataSource;
dtsPlatPercVert: TDataSource;
dtsPlatPercInc: TDataSource;
dtsPorta: TDataSource;
tblRampa2: TADOTable;
tblDesvTrans2: TADOTable;
tblDegrau2: TADOTable;
tblPlatPercVert1: TADOTable;
tblPlatPercInc1: TADOTable;
tblPorta: TADOTable;
tblCatraca: TADOTable;
tblCapacho: TADOTable;
tblTapete: TADOTable;
tblCampainha: TADOTable;
tblInterfone: TADOTable;
tblGrelha2: TADOTable;
dtsCatraca: TDataSource;
dtsCapacho: TDataSource;
dtsTapete: TDataSource;
dtsCampainha: TDataSource;
dtsInterfone: TDataSource;
dtsGrelha2: TDataSource;
dtsCorredor: TDataSource;
dtsPiso: TDataSource;
dtsCapacho2: TDataSource;
dtsTapete2: TDataSource;
dtsGrelha3: TDataSource;
dtsBarrSusp: TDataSource;
dtsDesvTrans3: TDataSource;
dtsDegrau3: TDataSource;
dtsRampa3: TDataSource;
dtsEscada3: TDataSource;
dtsPlatPercVert2: TDataSource;
tblCorredor: TADOTable;
tblPiso: TADOTable;
tblCapacho2: TADOTable;
tblTapete2: TADOTable;
tblGrelha3: TADOTable;
tblBarrSusp: TADOTable;
tblDesvTrans3: TADOTable;
tblDegrau3: TADOTable;
tblRampa3: TADOTable;
tblEscada3: TADOTable;
tblPlatPercVert2: TADOTable;
tblPlatPercInc2: TADOTable;
dtsPlatPercInc2: TDataSource;
dtsRampa4: TDataSource;
dtsEscada4: TDataSource;
dtsElevador: TDataSource;
dtsPlatPercVert3: TDataSource;
dtsPlatPercInc3: TDataSource;
dtsEscadaRolante: TDataSource;
dtsEsteiraRolante: TDataSource;
dtsRota: TDataSource;
tblRampa4: TADOTable;
tblEscada4: TADOTable;
tblElevador: TADOTable;
tblPlatPercVert3: TADOTable;
tblPlatPercInc3: TADOTable;
tblEscadaRolante: TADOTable;
tblEsteiraRolante: TADOTable;
tblRota: TADOTable;
dtsPortas: TDataSource;
dtsPortaVaievem: TDataSource;
dtsPortadecorrer: TDataSource;
dtsCatraca2: TDataSource;
dtsJanelas: TDataSource;
dtsDispositivos: TDataSource;
tblPortas: TADOTable;
tblPortaVaievem: TADOTable;
tblPortadecorrer: TADOTable;
tblCatraca2: TADOTable;
tblJanelas: TADOTable;
tblDispositivos: TADOTable;
dtsPortaSanit: TDataSource;
dtsBaciaSanit: TDataSource;
dtsLavatorio: TDataSource;
dtsMictorio: TDataSource;
dtsChuveiro: TDataSource;
dtsBanheira: TDataSource;
tblPortaSanit: TADOTable;
tblBaciaSanit: TADOTable;
tblLavatorio: TADOTable;
tblMictorio: TADOTable;
tblChuveiro: TADOTable;
tblBanheira: TADOTable;
tblVestiario: TADOTable;
dtsVestiario: TDataSource;
dtsTelefone: TDataSource;
dtsBebedouro: TDataSource;
dtsMesaSupTrab: TDataSource;
dtsAssentFix: TDataSource;
dtsBalcao: TDataSource;
dtsBilheteria: TDataSource;
dtsLousa: TDataSource;
dtsCama: TDataSource;
dtsMesaSubRef: TDataSource;
dtsAutoServico: TDataSource;
dtsArmario: TDataSource;
tblTelefone: TADOTable;
tblBebedouro: TADOTable;
tblMesaSupTrab: TADOTable;
tblAssenntFix: TADOTable;
tblBalcao: TADOTable;
tblBilheteria: TADOTable;
tblLousa: TADOTable;
tblCama: TADOTable;
tblMesaSubRef: TADOTable;
tblAutoServico: TADOTable;
tblArmario: TADOTable;
editStatusPasPub: TDBEdit;
Label3: TLabel;
editStatusAcesso: TDBEdit;
Label7: TLabel;
editCircVert: TDBEdit;
ediSanitarios: TDBEdit;
Label22: TLabel;
editPortJanDisp: TDBEdit;
Label23: TLabel;
editMobiliario: TDBEdit;
dtsBastidores: TDataSource;
dtsPalco: TDataSource;
dtsRampa5: TDataSource;
dtsPlatPercVert4: TDataSource;
dtsPlatPercInc4: TDataSource;
dtsEscada5: TDataSource;
tblBastidores: TADOTable;
tblPalco: TADOTable;
tblRampa5: TADOTable;
tblPlatPercVert4: TADOTable;
tblPlatPercInc4: TADOTable;
tblEscada5: TADOTable;
dtsArquibancada: TDataSource;
dtsParquoupraca: TDataSource;
dtsPiscina: TDataSource;
dtsEscadaPiscina: TDataSource;
dtsRampaSubmersa: TDataSource;
dtsBancoPiscina: TDataSource;
tblArquibancada: TADOTable;
tblParqueoupraca: TADOTable;
tblPiscina: TADOTable;
tblEscadaPiscina: TADOTable;
tblRampaSubmersa: TADOTable;
tblBancoPiscina: TADOTable;
Panel1: TPanel;
JvLabel1: TJvLabel;
JvLabel2: TJvLabel;
JvLabel3: TJvLabel;
btnPrimeiro: TSpeedButton;
btnAnterior: TSpeedButton;
btnProximo: TSpeedButton;
btnUltimo: TSpeedButton;
JvDBGrid1: TJvDBGrid;
JvDBSearchEdit1: TJvDBSearchEdit;
JvDBSearchComboBox1: TJvDBSearchComboBox;
dtsVisita: TDataSource;
tblVisita: TADOTable;
tblVisitaCodVisita: TWideStringField;
tblVisitaCPFFiscal: TWideStringField;
tblVisitaCNPJ: TWideStringField;
tblVisitaDataVisita: TDateTimeField;
tblVisitaTipoVisita: TWideStringField;
tblVisitaHoraVisita: TWideStringField;
tblVisitaProtocolo: TWideStringField;
tblVisitaResultado: TWideStringField;
Panel2: TPanel;
ledPasseioPublico: TJvLED;
ledAcesso: TJvLED;
ledCircHoriz: TJvLED;
ledCircVert: TJvLED;
ledPortasJanDisp: TJvLED;
lblPasseioPublico: TJvLabel;
lblAcesso: TJvLabel;
lblCirculacaoHorizontal: TJvLabel;
lblCirculacaoVertical: TJvLabel;
lblPortasJanelasDispositivo: TJvLabel;
ledSanitarios: TJvLED;
ledMobiliarios: TJvLED;
ledEstacionamento: TJvLED;
ledLocaisDeReuniao: TJvLED;
ledEquipAutoAtend: TJvLED;
ledLocaisDeExposicao: TJvLED;
ledLocaisEsportLazerTur: TJvLED;
JvLabel5: TJvLabel;
JvLabel6: TJvLabel;
JvLabel7: TJvLabel;
JvLabel8: TJvLabel;
JvLabel9: TJvLabel;
JvLabel10: TJvLabel;
JvLabel11: TJvLabel;
JvLabel12: TJvLabel;
JvLabel13: TJvLabel;
JvLabel14: TJvLabel;
JvLabel15: TJvLabel;
JvLabel16: TJvLabel;
JvLabel17: TJvLabel;
ledLocaisDeLeitura: TJvLED;
ledLocaisDeHospedagem: TJvLED;
ledLocaisDeSaude: TJvLED;
ledLocaisDeEnsino: TJvLED;
ledProvadores: TJvLED;
ledCozinhas: TJvLED;
ledLocaisDeRefeicao: TJvLED;
JvLabel18: TJvLabel;
GroupBox1: TGroupBox;
JvLED16: TJvLED;
JvLED18: TJvLED;
JvLED19: TJvLED;
JvLabel19: TJvLabel;
JvLabel20: TJvLabel;
JvLabel22: TJvLabel;
JvLED2: TJvLED;
JvLabel21: TJvLabel;
Panel3: TPanel;
GroupBox2: TGroupBox;
SpeedButton2: TSpeedButton;
Label21: TLabel;
SpeedButton4: TSpeedButton;
SpeedButton3: TSpeedButton;
Edit1: TEdit;
RadioGroup1: TRadioGroup;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
Label2: TLabel;
editProvadores: TDBEdit;
Label4: TLabel;
editStatusCircHoriz: TDBEdit;
Label5: TLabel;
editReuniao: TDBEdit;
procedure btnPrimeiroClick(Sender: TObject);
procedure btnAnteriorClick(Sender: TObject);
procedure btnProximoClick(Sender: TObject);
procedure btnUltimoClick(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmVisaoGeral01: TfrmVisaoGeral01;

implementation

uses rptGrupoSubGrupo1, rptSuperGrupo1, frmPrincipal;

{$R *.dfm}

procedure TfrmVisaoGeral01.btnPrimeiroClick(Sender: TObject);
begin
tblvisita.First;

// LED: 1. Passeio público
if editStatusPasPub.Text = ‘A’ then
ledPasseioPublico.ColorOn := clLime;
if editStatusPasPub.Text = ‘O’ then
ledPasseioPublico.ColorOn := clYellow;
if editStatusPasPub.Text = ‘R’ then
ledPasseioPublico.ColorOn := clRed;
if editStatusPasPub.Text = ‘M’ then
ledPasseioPublico.ColorOn := clNavy;
if editStatusPasPub.Text = ” then
ledPasseioPublico.ColorOn := clSilver;

// LED: 2. Acesso
if editStatusAcesso.Text = ‘A’ then
ledAcesso.ColorOn := clLime;
if editStatusAcesso.Text = ‘O’ then
ledAcesso.ColorOn := clYellow;
if editStatusAcesso.Text = ‘R’ then
ledAcesso.ColorOn := clRed;
if editStatusAcesso.Text = ‘M’ then
ledAcesso.ColorOn := clNavy;
if editStatusAcesso.Text = ” then
ledAcesso.ColorOn := clSilver;

// LED: 3. Circ. Horizontal
if editStatusCircHoriz.Text = ‘A’ then
ledCircHoriz.ColorOn := clLime;
if editStatusCircHoriz.Text = ‘O’ then
ledCircHoriz.ColorOn := clYellow;
if editStatusCircHoriz.Text = ‘R’ then
ledCircHoriz.ColorOn := clRed;
if editStatusCircHoriz.Text = ‘M’ then
ledCircHoriz.ColorOn := clNavy;
if editStatusCircHoriz.Text = ” then
ledCircHoriz.ColorOn := clSilver;

// LED: 4. Circ. Vertical
if editCircVert.Text = ‘A’ then
ledCircVert.ColorOn := clLime;
if editCircVert.Text = ‘O’ then
ledCircVert.ColorOn := clYellow;
if editCircVert.Text = ‘R’ then
ledCircVert.ColorOn := clRed;
if editCircVert.Text = ‘M’ then
ledCircVert.ColorOn := clNavy;
if editCircVert.Text = ” then
ledCircVert.ColorOn := clSilver;

// LED: 5. Portas, janelas e dispositivos
//tblPortJanDisp
if editPortJanDisp.Text = ‘A’ then
ledPortasJanDisp.ColorOn := clLime;
if editPortJanDisp.Text = ‘O’ then
ledPortasJanDisp.ColorOn := clYellow;
if editPortJanDisp.Text = ‘R’ then
ledPortasJanDisp.ColorOn := clRed;
if editPortJanDisp.Text = ‘M’ then
ledPortasJanDisp.ColorOn := clNavy;
if editPortJanDisp.Text = ” then
ledPortasJanDisp.ColorOn := clSilver;

// LED: 6. Sanitarios
//tblSanitarios
if ediSanitarios.Text = ‘A’ then
ledSanitarios.ColorOn := clLime;
if ediSanitarios.Text = ‘O’ then
ledSanitarios.ColorOn := clYellow;
if ediSanitarios.Text = ‘R’ then
ledSanitarios.ColorOn := clRed;
if ediSanitarios.Text = ‘M’ then
ledSanitarios.ColorOn := clNavy;
if ediSanitarios.Text = ” then
ledSanitarios.ColorOn := clSilver;

// LED: 7. Mobiliarios
//tblMobiliario
if editMobiliario.Text = ‘A’ then
ledMobiliarios.ColorOn := clLime;
if editMobiliario.Text = ‘O’ then
ledMobiliarios.ColorOn := clYellow;
if editMobiliario.Text = ‘R’ then
ledMobiliarios.ColorOn := clRed;
if editMobiliario.Text = ‘M’ then
ledMobiliarios.ColorOn := clNavy;
if editMobiliario.Text = ” then
ledMobiliarios.ColorOn := clSilver;

// LED: 8. Estacionamento
//tblEstacionamento
if editEstacionamento.Text = ‘A’ then
ledEstacionamento.ColorOn := clLime;
if editEstacionamento.Text = ‘O’ then
ledEstacionamento.ColorOn := clYellow;
if editEstacionamento.Text = ‘R’ then
ledEstacionamento.ColorOn := clRed;
if editEstacionamento.Text = ‘M’ then
ledEstacionamento.ColorOn := clNavy;
if editEstacionamento.Text = ” then
ledEstacionamento.ColorOn := clSilver;

// LED 9. Locais de reunião
//tblLocaisDeReuniao
if editReuniao.Text = ‘A’ then
ledLocaisDeReuniao.ColorOn := clLime;
if editReuniao.Text = ‘O’ then
ledLocaisDeReuniao.ColorOn := clYellow;
if editReuniao.Text = ‘R’ then
ledLocaisDeReuniao.ColorOn := clRed;
if editReuniao.Text = ‘M’ then
ledLocaisDeReuniao.ColorOn := clNavy;
if editReuniao.Text = ” then
ledLocaisDeReuniao.ColorOn := clSilver;

// LED 10. Locais de refeição
//tblRefeicao editRefeicao
if editRefeicao.Text = ‘A’ then
ledLocaisDeRefeicao.ColorOn := clLime;
if editRefeicao.Text = ‘O’ then
ledLocaisDeRefeicao.ColorOn := clYellow;
if editRefeicao.Text = ‘R’ then
ledLocaisDeRefeicao.ColorOn := clRed;
if editRefeicao.Text = ‘M’ then
ledLocaisDeRefeicao.ColorOn := clNavy;
if editRefeicao.Text = ” then
ledLocaisDeRefeicao.ColorOn := clSilver;

// LED 11. Equipamentos de auto atendimento
//tblEquipAutoAtend editEquipAutoAtend
if editEquipAutoAtend.Text = ‘A’ then
ledEquipAutoAtend.ColorOn := clLime;
if editEquipAutoAtend.Text = ‘O’ then
ledEquipAutoAtend.ColorOn := clYellow;
if editEquipAutoAtend.Text = ‘R’ then
ledEquipAutoAtend.ColorOn := clRed;
if editEquipAutoAtend.Text = ‘M’ then
ledEquipAutoAtend.ColorOn := clNavy;
if editEquipAutoAtend.Text = ” then
ledEquipAutoAtend.ColorOn := clSilver;

// LED 12. Locais de esporte
//tblLocaisDeExposicao editLocalExposicao
if editLocalExposicao.Text = ‘A’ then
ledLocaisDeExposicao.ColorOn := clLime;
if editLocalExposicao.Text = ‘O’ then
ledLocaisDeExposicao.ColorOn := clYellow;
if editLocalExposicao.Text = ‘R’ then
ledLocaisDeExposicao.ColorOn := clRed;
if editLocalExposicao.Text = ‘M’ then
ledLocaisDeExposicao.ColorOn := clNavy;
if editLocalExposicao.Text = ” then
ledLocaisDeExposicao.ColorOn := clSilver;

// LED 13. Esporte lazer e turismo
//tblLocaisEsportLazerTurism editLocalEsporte
if editLocalEsporte.Text = ‘A’ then
ledLocaisEsportLazerTur.ColorOn := clLime;
if editLocalEsporte.Text = ‘O’ then
ledLocaisEsportLazerTur.ColorOn := clYellow;
if editLocalEsporte.Text = ‘R’ then
ledLocaisEsportLazerTur.ColorOn := clRed;
if editLocalEsporte.Text = ‘M’ then
ledLocaisEsportLazerTur.ColorOn := clNavy;
if editLocalEsporte.Text = ” then
ledLocaisEsportLazerTur.ColorOn := clSilver;

// LED 14. Locais de leitura
//tblLocaisDeLeitura editLocaisLeitura
if editLocaisLeitura.Text = ‘A’ then
ledLocaisDeLeitura.ColorOn := clLime;
if editLocaisLeitura.Text = ‘O’ then
ledLocaisDeLeitura.ColorOn := clYellow;
if editLocaisLeitura.Text = ‘R’ then
ledLocaisDeLeitura.ColorOn := clRed;
if editLocaisLeitura.Text = ‘M’ then
ledLocaisDeLeitura.ColorOn := clNavy;
if editLocaisLeitura.Text = ” then
ledLocaisDeLeitura.ColorOn := clSilver;

// LED 15. Locais de hospedagem
//tblLocaisDeHospedagem editHospedagem
if editHospedagem.Text = ‘A’ then
ledLocaisDeHospedagem.ColorOn := clLime;
if editHospedagem.Text = ‘O’ then
ledLocaisDeHospedagem.ColorOn := clYellow;
if editHospedagem.Text = ‘R’ then
ledLocaisDeHospedagem.ColorOn := clRed;
if editHospedagem.Text = ‘M’ then
ledLocaisDeHospedagem.ColorOn := clNavy;
if editHospedagem.Text = ” then
ledLocaisDeHospedagem.ColorOn := clSilver;

// LED 16. Locais de saude
//tblLocaisDeSaude editLocaisSaude
if editLocaisSaude.Text = ‘A’ then
ledLocaisDeSaude.ColorOn := clLime;
if editLocaisSaude.Text = ‘O’ then
ledLocaisDeSaude.ColorOn := clYellow;
if editLocaisSaude.Text = ‘R’ then
ledLocaisDeSaude.ColorOn := clRed;
if editLocaisSaude.Text = ‘M’ then
ledLocaisDeSaude.ColorOn := clNavy;
if editLocaisSaude.Text = ” then
ledLocaisDeSaude.ColorOn := clSilver;

// LED 17. Locais de ensino
//tblLocaisDeEnsino editLocaisEnsino
if editLocaisEnsino.Text = ‘A’ then
ledLocaisDeEnsino.ColorOn := clLime;
if editLocaisEnsino.Text = ‘O’ then
ledLocaisDeEnsino.ColorOn := clYellow;
if editLocaisEnsino.Text = ‘R’ then
ledLocaisDeEnsino.ColorOn := clRed;
if editLocaisEnsino.Text = ‘M’ then
ledLocaisDeEnsino.ColorOn := clNavy;
if editLocaisEnsino.Text = ” then
ledLocaisDeEnsino.ColorOn := clSilver;

// LED 18. Provadores
//tblProvadores editProvadores
if editProvadores.Text = ‘A’ then
ledProvadores.ColorOn := clLime;
if editProvadores.Text = ‘O’ then
ledProvadores.ColorOn := clYellow;
if editProvadores.Text = ‘R’ then
ledProvadores.ColorOn := clRed;
if editProvadores.Text = ‘M’ then
ledProvadores.ColorOn := clNavy;
if editProvadores.Text = ” then
ledProvadores.ColorOn := clSilver;

// LED 19. Cozinhas
//tblCozinha editCozinhas
if editCozinhas.Text = ‘A’ then
ledCozinhas.ColorOn := clLime;
if editCozinhas.Text = ‘O’ then
ledCozinhas.ColorOn := clYellow;
if editCozinhas.Text = ‘R’ then
ledCozinhas.ColorOn := clRed;
if editCozinhas.Text = ‘M’ then
ledCozinhas.ColorOn := clNavy;
if editCozinhas.Text = ” then
ledCozinhas.ColorOn := clSilver;

end;

procedure TfrmVisaoGeral01.btnAnteriorClick(Sender: TObject);
begin
tblVisita.Prior;

// LED: 1. Passeio público
if editStatusPasPub.Text = ‘A’ then
ledPasseioPublico.ColorOn := clLime;
if editStatusPasPub.Text = ‘O’ then
ledPasseioPublico.ColorOn := clYellow;
if editStatusPasPub.Text = ‘R’ then
ledPasseioPublico.ColorOn := clRed;
if editStatusPasPub.Text = ‘M’ then
ledPasseioPublico.ColorOn := clNavy;
if editStatusPasPub.Text = ” then
ledPasseioPublico.ColorOn := clSilver;

// LED: 2. Acesso
if editStatusAcesso.Text = ‘A’ then
ledAcesso.ColorOn := clLime;
if editStatusAcesso.Text = ‘O’ then
ledAcesso.ColorOn := clYellow;
if editStatusAcesso.Text = ‘R’ then
ledAcesso.ColorOn := clRed;
if editStatusAcesso.Text = ‘M’ then
ledAcesso.ColorOn := clNavy;
if editStatusAcesso.Text = ” then
ledAcesso.ColorOn := clSilver;

// LED: 3. Circ. Horizontal
if editStatusCircHoriz.Text = ‘A’ then
ledCircHoriz.ColorOn := clLime;
if editStatusCircHoriz.Text = ‘O’ then
ledCircHoriz.ColorOn := clYellow;
if editStatusCircHoriz.Text = ‘R’ then
ledCircHoriz.ColorOn := clRed;
if editStatusCircHoriz.Text = ‘M’ then
ledCircHoriz.ColorOn := clNavy;
if editStatusCircHoriz.Text = ” then
ledCircHoriz.ColorOn := clSilver;

// LED: 4. Circ. Vertical
if editCircVert.Text = ‘A’ then
ledCircVert.ColorOn := clLime;
if editCircVert.Text = ‘O’ then
ledCircVert.ColorOn := clYellow;
if editCircVert.Text = ‘R’ then
ledCircVert.ColorOn := clRed;
if editCircVert.Text = ‘M’ then
ledCircVert.ColorOn := clNavy;
if editCircVert.Text = ” then
ledCircVert.ColorOn := clSilver;

// LED: 5. Portas, janelas e dispositivos
//tblPortJanDisp
if editPortJanDisp.Text = ‘A’ then
ledPortasJanDisp.ColorOn := clLime;
if editPortJanDisp.Text = ‘O’ then
ledPortasJanDisp.ColorOn := clYellow;
if editPortJanDisp.Text = ‘R’ then
ledPortasJanDisp.ColorOn := clRed;
if editPortJanDisp.Text = ‘M’ then
ledPortasJanDisp.ColorOn := clNavy;
if editPortJanDisp.Text = ” then
ledPortasJanDisp.ColorOn := clSilver;

// LED: 6. Sanitarios
//tblSanitarios
if ediSanitarios.Text = ‘A’ then
ledSanitarios.ColorOn := clLime;
if ediSanitarios.Text = ‘O’ then
ledSanitarios.ColorOn := clYellow;
if ediSanitarios.Text = ‘R’ then
ledSanitarios.ColorOn := clRed;
if ediSanitarios.Text = ‘M’ then
ledSanitarios.ColorOn := clNavy;
if ediSanitarios.Text = ” then
ledSanitarios.ColorOn := clSilver;

// LED: 7. Mobiliarios
//tblMobiliario
if editMobiliario.Text = ‘A’ then
ledMobiliarios.ColorOn := clLime;
if editMobiliario.Text = ‘O’ then
ledMobiliarios.ColorOn := clYellow;
if editMobiliario.Text = ‘R’ then
ledMobiliarios.ColorOn := clRed;
if editMobiliario.Text = ‘M’ then
ledMobiliarios.ColorOn := clNavy;
if editMobiliario.Text = ” then
ledMobiliarios.ColorOn := clSilver;

// LED: 8. Estacionamento
//tblEstacionamento
if editEstacionamento.Text = ‘A’ then
ledEstacionamento.ColorOn := clLime;
if editEstacionamento.Text = ‘O’ then
ledEstacionamento.ColorOn := clYellow;
if editEstacionamento.Text = ‘R’ then
ledEstacionamento.ColorOn := clRed;
if editEstacionamento.Text = ‘M’ then
ledEstacionamento.ColorOn := clNavy;
if editEstacionamento.Text = ” then
ledEstacionamento.ColorOn := clSilver;

// LED 9. Locais de reunião
//tblLocaisDeReuniao
if editReuniao.Text = ‘A’ then
ledLocaisDeReuniao.ColorOn := clLime;
if editReuniao.Text = ‘O’ then
ledLocaisDeReuniao.ColorOn := clYellow;
if editReuniao.Text = ‘R’ then
ledLocaisDeReuniao.ColorOn := clRed;
if editReuniao.Text = ‘M’ then
ledLocaisDeReuniao.ColorOn := clNavy;
if editReuniao.Text = ” then
ledLocaisDeReuniao.ColorOn := clSilver;

// LED 10. Locais de refeição
//tblRefeicao editRefeicao
if editRefeicao.Text = ‘A’ then
ledLocaisDeRefeicao.ColorOn := clLime;
if editRefeicao.Text = ‘O’ then
ledLocaisDeRefeicao.ColorOn := clYellow;
if editRefeicao.Text = ‘R’ then
ledLocaisDeRefeicao.ColorOn := clRed;
if editRefeicao.Text = ‘M’ then
ledLocaisDeRefeicao.ColorOn := clNavy;
if editRefeicao.Text = ” then
ledLocaisDeRefeicao.ColorOn := clSilver;

// LED 11. Equipamentos de auto atendimento
//tblEquipAutoAtend editEquipAutoAtend
if editEquipAutoAtend.Text = ‘A’ then
ledEquipAutoAtend.ColorOn := clLime;
if editEquipAutoAtend.Text = ‘O’ then
ledEquipAutoAtend.ColorOn := clYellow;
if editEquipAutoAtend.Text = ‘R’ then
ledEquipAutoAtend.ColorOn := clRed;
if editEquipAutoAtend.Text = ‘M’ then
ledEquipAutoAtend.ColorOn := clNavy;
if editEquipAutoAtend.Text = ” then
ledEquipAutoAtend.ColorOn := clSilver;

// LED 12. Locais de esporte
//tblLocaisDeExposicao editLocalExposicao
if editLocalExposicao.Text = ‘A’ then
ledLocaisDeExposicao.ColorOn := clLime;
if editLocalExposicao.Text = ‘O’ then
ledLocaisDeExposicao.ColorOn := clYellow;
if editLocalExposicao.Text = ‘R’ then
ledLocaisDeExposicao.ColorOn := clRed;
if editLocalExposicao.Text = ‘M’ then
ledLocaisDeExposicao.ColorOn := clNavy;
if editLocalExposicao.Text = ” then
ledLocaisDeExposicao.ColorOn := clSilver;

// LED 13. Esporte lazer e turismo
//tblLocaisEsportLazerTurism editLocalEsporte
if editLocalEsporte.Text = ‘A’ then
ledLocaisEsportLazerTur.ColorOn := clLime;
if editLocalEsporte.Text = ‘O’ then
ledLocaisEsportLazerTur.ColorOn := clYellow;
if editLocalEsporte.Text = ‘R’ then
ledLocaisEsportLazerTur.ColorOn := clRed;
if editLocalEsporte.Text = ‘M’ then
ledLocaisEsportLazerTur.ColorOn := clNavy;
if editLocalEsporte.Text = ” then
ledLocaisEsportLazerTur.ColorOn := clSilver;

// LED 14. Locais de leitura
//tblLocaisDeLeitura editLocaisLeitura
if editLocaisLeitura.Text = ‘A’ then
ledLocaisDeLeitura.ColorOn := clLime;
if editLocaisLeitura.Text = ‘O’ then
ledLocaisDeLeitura.ColorOn := clYellow;
if editLocaisLeitura.Text = ‘R’ then
ledLocaisDeLeitura.ColorOn := clRed;
if editLocaisLeitura.Text = ‘M’ then
ledLocaisDeLeitura.ColorOn := clNavy;
if editLocaisLeitura.Text = ” then
ledLocaisDeLeitura.ColorOn := clSilver;

// LED 15. Locais de hospedagem
//tblLocaisDeHospedagem editHospedagem
if editHospedagem.Text = ‘A’ then
ledLocaisDeHospedagem.ColorOn := clLime;
if editHospedagem.Text = ‘O’ then
ledLocaisDeHospedagem.ColorOn := clYellow;
if editHospedagem.Text = ‘R’ then
ledLocaisDeHospedagem.ColorOn := clRed;
if editHospedagem.Text = ‘M’ then
ledLocaisDeHospedagem.ColorOn := clNavy;
if editHospedagem.Text = ” then
ledLocaisDeHospedagem.ColorOn := clSilver;

// LED 16. Locais de saude
//tblLocaisDeSaude editLocaisSaude
if editLocaisSaude.Text = ‘A’ then
ledLocaisDeSaude.ColorOn := clLime;
if editLocaisSaude.Text = ‘O’ then
ledLocaisDeSaude.ColorOn := clYellow;
if editLocaisSaude.Text = ‘R’ then
ledLocaisDeSaude.ColorOn := clRed;
if editLocaisSaude.Text = ‘M’ then
ledLocaisDeSaude.ColorOn := clNavy;
if editLocaisSaude.Text = ” then
ledLocaisDeSaude.ColorOn := clSilver;

// LED 17. Locais de ensino
//tblLocaisDeEnsino editLocaisEnsino
if editLocaisEnsino.Text = ‘A’ then
ledLocaisDeEnsino.ColorOn := clLime;
if editLocaisEnsino.Text = ‘O’ then
ledLocaisDeEnsino.ColorOn := clYellow;
if editLocaisEnsino.Text = ‘R’ then
ledLocaisDeEnsino.ColorOn := clRed;
if editLocaisEnsino.Text = ‘M’ then
ledLocaisDeEnsino.ColorOn := clNavy;
if editLocaisEnsino.Text = ” then
ledLocaisDeEnsino.ColorOn := clSilver;

// LED 18. Provadores
//tblProvadores editProvadores
if editProvadores.Text = ‘A’ then
ledProvadores.ColorOn := clLime;
if editProvadores.Text = ‘O’ then
ledProvadores.ColorOn := clYellow;
if editProvadores.Text = ‘R’ then
ledProvadores.ColorOn := clRed;
if editProvadores.Text = ‘M’ then
ledProvadores.ColorOn := clNavy;
if editProvadores.Text = ” then
ledProvadores.ColorOn := clSilver;

// LED 19. Cozinhas
//tblCozinha editCozinhas
if editCozinhas.Text = ‘A’ then
ledCozinhas.ColorOn := clLime;
if editCozinhas.Text = ‘O’ then
ledCozinhas.ColorOn := clYellow;
if editCozinhas.Text = ‘R’ then
ledCozinhas.ColorOn := clRed;
if editCozinhas.Text = ‘M’ then
ledCozinhas.ColorOn := clNavy;
if editCozinhas.Text = ” then
ledCozinhas.ColorOn := clSilver;

end;

procedure TfrmVisaoGeral01.btnProximoClick(Sender: TObject);
begin
tblVisita.Next;

// LED: 1. Passeio público
if editStatusPasPub.Text = ‘A’ then
ledPasseioPublico.ColorOn := clLime;
if editStatusPasPub.Text = ‘O’ then
ledPasseioPublico.ColorOn := clYellow;
if editStatusPasPub.Text = ‘R’ then
ledPasseioPublico.ColorOn := clRed;
if editStatusPasPub.Text = ‘M’ then
ledPasseioPublico.ColorOn := clNavy;
if editStatusPasPub.Text = ” then
ledPasseioPublico.ColorOn := clSilver;

// LED: 2. Acesso
if editStatusAcesso.Text = ‘A’ then
ledAcesso.ColorOn := clLime;
if editStatusAcesso.Text = ‘O’ then
ledAcesso.ColorOn := clYellow;
if editStatusAcesso.Text = ‘R’ then
ledAcesso.ColorOn := clRed;
if editStatusAcesso.Text = ‘M’ then
ledAcesso.ColorOn := clNavy;
if editStatusAcesso.Text = ” then
ledAcesso.ColorOn := clSilver;

// LED: 3. Circ. Horizontal
if editStatusCircHoriz.Text = ‘A’ then
ledCircHoriz.ColorOn := clLime;
if editStatusCircHoriz.Text = ‘O’ then
ledCircHoriz.ColorOn := clYellow;
if editStatusCircHoriz.Text = ‘R’ then
ledCircHoriz.ColorOn := clRed;
if editStatusCircHoriz.Text = ‘M’ then
ledCircHoriz.ColorOn := clNavy;
if editStatusCircHoriz.Text = ” then
ledCircHoriz.ColorOn := clSilver;

// LED: 4. Circ. Vertical
if editCircVert.Text = ‘A’ then
ledCircVert.ColorOn := clLime;
if editCircVert.Text = ‘O’ then
ledCircVert.ColorOn := clYellow;
if editCircVert.Text = ‘R’ then
ledCircVert.ColorOn := clRed;
if editCircVert.Text = ‘M’ then
ledCircVert.ColorOn := clNavy;
if editCircVert.Text = ” then
ledCircVert.ColorOn := clSilver;

// LED: 5. Portas, janelas e dispositivos
//tblPortJanDisp
if editPortJanDisp.Text = ‘A’ then
ledPortasJanDisp.ColorOn := clLime;
if editPortJanDisp.Text = ‘O’ then
ledPortasJanDisp.ColorOn := clYellow;
if editPortJanDisp.Text = ‘R’ then
ledPortasJanDisp.ColorOn := clRed;
if editPortJanDisp.Text = ‘M’ then
ledPortasJanDisp.ColorOn := clNavy;
if editPortJanDisp.Text = ” then
ledPortasJanDisp.ColorOn := clSilver;

// LED: 6. Sanitarios
//tblSanitarios
if ediSanitarios.Text = ‘A’ then
ledSanitarios.ColorOn := clLime;
if ediSanitarios.Text = ‘O’ then
ledSanitarios.ColorOn := clYellow;
if ediSanitarios.Text = ‘R’ then
ledSanitarios.ColorOn := clRed;
if ediSanitarios.Text = ‘M’ then
ledSanitarios.ColorOn := clNavy;
if ediSanitarios.Text = ” then
ledSanitarios.ColorOn := clSilver;

// LED: 7. Mobiliarios
//tblMobiliario
if editMobiliario.Text = ‘A’ then
ledMobiliarios.ColorOn := clLime;
if editMobiliario.Text = ‘O’ then
ledMobiliarios.ColorOn := clYellow;
if editMobiliario.Text = ‘R’ then
ledMobiliarios.ColorOn := clRed;
if editMobiliario.Text = ‘M’ then
ledMobiliarios.ColorOn := clNavy;
if editMobiliario.Text = ” then
ledMobiliarios.ColorOn := clSilver;

// LED: 8. Estacionamento
//tblEstacionamento
if editEstacionamento.Text = ‘A’ then
ledEstacionamento.ColorOn := clLime;
if editEstacionamento.Text = ‘O’ then
ledEstacionamento.ColorOn := clYellow;
if editEstacionamento.Text = ‘R’ then
ledEstacionamento.ColorOn := clRed;
if editEstacionamento.Text = ‘M’ then
ledEstacionamento.ColorOn := clNavy;
if editEstacionamento.Text = ” then
ledEstacionamento.ColorOn := clSilver;

// LED 9. Locais de reunião
//tblLocaisDeReuniao
if editReuniao.Text = ‘A’ then
ledLocaisDeReuniao.ColorOn := clLime;
if editReuniao.Text = ‘O’ then
ledLocaisDeReuniao.ColorOn := clYellow;
if editReuniao.Text = ‘R’ then
ledLocaisDeReuniao.ColorOn := clRed;
if editReuniao.Text = ‘M’ then
ledLocaisDeReuniao.ColorOn := clNavy;
if editReuniao.Text = ” then
ledLocaisDeReuniao.ColorOn := clSilver;

// LED 10. Locais de refeição
//tblRefeicao editRefeicao
if editRefeicao.Text = ‘A’ then
ledLocaisDeRefeicao.ColorOn := clLime;
if editRefeicao.Text = ‘O’ then
ledLocaisDeRefeicao.ColorOn := clYellow;
if editRefeicao.Text = ‘R’ then
ledLocaisDeRefeicao.ColorOn := clRed;
if editRefeicao.Text = ‘M’ then
ledLocaisDeRefeicao.ColorOn := clNavy;
if editRefeicao.Text = ” then
ledLocaisDeRefeicao.ColorOn := clSilver;

// LED 11. Equipamentos de auto atendimento
//tblEquipAutoAtend editEquipAutoAtend
if editEquipAutoAtend.Text = ‘A’ then
ledEquipAutoAtend.ColorOn := clLime;
if editEquipAutoAtend.Text = ‘O’ then
ledEquipAutoAtend.ColorOn := clYellow;
if editEquipAutoAtend.Text = ‘R’ then
ledEquipAutoAtend.ColorOn := clRed;
if editEquipAutoAtend.Text = ‘M’ then
ledEquipAutoAtend.ColorOn := clNavy;
if editEquipAutoAtend.Text = ” then
ledEquipAutoAtend.ColorOn := clSilver;

// LED 12. Locais de esporte
//tblLocaisDeExposicao editLocalExposicao
if editLocalExposicao.Text = ‘A’ then
ledLocaisDeExposicao.ColorOn := clLime;
if editLocalExposicao.Text = ‘O’ then
ledLocaisDeExposicao.ColorOn := clYellow;
if editLocalExposicao.Text = ‘R’ then
ledLocaisDeExposicao.ColorOn := clRed;
if editLocalExposicao.Text = ‘M’ then
ledLocaisDeExposicao.ColorOn := clNavy;
if editLocalExposicao.Text = ” then
ledLocaisDeExposicao.ColorOn := clSilver;

// LED 13. Esporte lazer e turismo
//tblLocaisEsportLazerTurism editLocalEsporte
if editLocalEsporte.Text = ‘A’ then
ledLocaisEsportLazerTur.ColorOn := clLime;
if editLocalEsporte.Text = ‘O’ then
ledLocaisEsportLazerTur.ColorOn := clYellow;
if editLocalEsporte.Text = ‘R’ then
ledLocaisEsportLazerTur.ColorOn := clRed;
if editLocalEsporte.Text = ‘M’ then
ledLocaisEsportLazerTur.ColorOn := clNavy;
if editLocalEsporte.Text = ” then
ledLocaisEsportLazerTur.ColorOn := clSilver;

// LED 14. Locais de leitura
//tblLocaisDeLeitura editLocaisLeitura
if editLocaisLeitura.Text = ‘A’ then
ledLocaisDeLeitura.ColorOn := clLime;
if editLocaisLeitura.Text = ‘O’ then
ledLocaisDeLeitura.ColorOn := clYellow;
if editLocaisLeitura.Text = ‘R’ then
ledLocaisDeLeitura.ColorOn := clRed;
if editLocaisLeitura.Text = ‘M’ then
ledLocaisDeLeitura.ColorOn := clNavy;
if editLocaisLeitura.Text = ” then
ledLocaisDeLeitura.ColorOn := clSilver;

// LED 15. Locais de hospedagem
//tblLocaisDeHospedagem editHospedagem
if editHospedagem.Text = ‘A’ then
ledLocaisDeHospedagem.ColorOn := clLime;
if editHospedagem.Text = ‘O’ then
ledLocaisDeHospedagem.ColorOn := clYellow;
if editHospedagem.Text = ‘R’ then
ledLocaisDeHospedagem.ColorOn := clRed;
if editHospedagem.Text = ‘M’ then
ledLocaisDeHospedagem.ColorOn := clNavy;
if editHospedagem.Text = ” then
ledLocaisDeHospedagem.ColorOn := clSilver;

// LED 16. Locais de saude
//tblLocaisDeSaude editLocaisSaude
if editLocaisSaude.Text = ‘A’ then
ledLocaisDeSaude.ColorOn := clLime;
if editLocaisSaude.Text = ‘O’ then
ledLocaisDeSaude.ColorOn := clYellow;
if editLocaisSaude.Text = ‘R’ then
ledLocaisDeSaude.ColorOn := clRed;
if editLocaisSaude.Text = ‘M’ then
ledLocaisDeSaude.ColorOn := clNavy;
if editLocaisSaude.Text = ” then
ledLocaisDeSaude.ColorOn := clSilver;

// LED 17. Locais de ensino
//tblLocaisDeEnsino editLocaisEnsino
if editLocaisEnsino.Text = ‘A’ then
ledLocaisDeEnsino.ColorOn := clLime;
if editLocaisEnsino.Text = ‘O’ then
ledLocaisDeEnsino.ColorOn := clYellow;
if editLocaisEnsino.Text = ‘R’ then
ledLocaisDeEnsino.ColorOn := clRed;
if editLocaisEnsino.Text = ‘M’ then
ledLocaisDeEnsino.ColorOn := clNavy;
if editLocaisEnsino.Text = ” then
ledLocaisDeEnsino.ColorOn := clSilver;

// LED 18. Provadores
//tblProvadores editProvadores
if editProvadores.Text = ‘A’ then
ledProvadores.ColorOn := clLime;
if editProvadores.Text = ‘O’ then
ledProvadores.ColorOn := clYellow;
if editProvadores.Text = ‘R’ then
ledProvadores.ColorOn := clRed;
if editProvadores.Text = ‘M’ then
ledProvadores.ColorOn := clNavy;
if editProvadores.Text = ” then
ledProvadores.ColorOn := clSilver;

// LED 19. Cozinhas
//tblCozinha editCozinhas
if editCozinhas.Text = ‘A’ then
ledCozinhas.ColorOn := clLime;
if editCozinhas.Text = ‘O’ then
ledCozinhas.ColorOn := clYellow;
if editCozinhas.Text = ‘R’ then
ledCozinhas.ColorOn := clRed;
if editCozinhas.Text = ‘M’ then
ledCozinhas.ColorOn := clNavy;
if editCozinhas.Text = ” then
ledCozinhas.ColorOn := clSilver;

end;

procedure TfrmVisaoGeral01.btnUltimoClick(Sender: TObject);
begin
tblVisita.Last;

// LED: 1. Passeio público
if editStatusPasPub.Text = ‘A’ then
ledPasseioPublico.ColorOn := clLime;
if editStatusPasPub.Text = ‘O’ then
ledPasseioPublico.ColorOn := clYellow;
if editStatusPasPub.Text = ‘R’ then
ledPasseioPublico.ColorOn := clRed;
if editStatusPasPub.Text = ‘M’ then
ledPasseioPublico.ColorOn := clNavy;
if editStatusPasPub.Text = ” then
ledPasseioPublico.ColorOn := clSilver;

// LED: 2. Acesso
if editStatusAcesso.Text = ‘A’ then
ledAcesso.ColorOn := clLime;
if editStatusAcesso.Text = ‘O’ then
ledAcesso.ColorOn := clYellow;
if editStatusAcesso.Text = ‘R’ then
ledAcesso.ColorOn := clRed;
if editStatusAcesso.Text = ‘M’ then
ledAcesso.ColorOn := clNavy;
if editStatusAcesso.Text = ” then
ledAcesso.ColorOn := clSilver;

// LED: 3. Circ. Horizontal
if editStatusCircHoriz.Text = ‘A’ then
ledCircHoriz.ColorOn := clLime;
if editStatusCircHoriz.Text = ‘O’ then
ledCircHoriz.ColorOn := clYellow;
if editStatusCircHoriz.Text = ‘R’ then
ledCircHoriz.ColorOn := clRed;
if editStatusCircHoriz.Text = ‘M’ then
ledCircHoriz.ColorOn := clNavy;
if editStatusCircHoriz.Text = ” then
ledCircHoriz.ColorOn := clSilver;

// LED: 4. Circ. Vertical
if editCircVert.Text = ‘A’ then
ledCircVert.ColorOn := clLime;
if editCircVert.Text = ‘O’ then
ledCircVert.ColorOn := clYellow;
if editCircVert.Text = ‘R’ then
ledCircVert.ColorOn := clRed;
if editCircVert.Text = ‘M’ then
ledCircVert.ColorOn := clNavy;
if editCircVert.Text = ” then
ledCircVert.ColorOn := clSilver;

// LED: 5. Portas, janelas e dispositivos
//tblPortJanDisp
if editPortJanDisp.Text = ‘A’ then
ledPortasJanDisp.ColorOn := clLime;
if editPortJanDisp.Text = ‘O’ then
ledPortasJanDisp.ColorOn := clYellow;
if editPortJanDisp.Text = ‘R’ then
ledPortasJanDisp.ColorOn := clRed;
if editPortJanDisp.Text = ‘M’ then
ledPortasJanDisp.ColorOn := clNavy;
if editPortJanDisp.Text = ” then
ledPortasJanDisp.ColorOn := clSilver;

// LED: 6. Sanitarios
//tblSanitarios
if ediSanitarios.Text = ‘A’ then
ledSanitarios.ColorOn := clLime;
if ediSanitarios.Text = ‘O’ then
ledSanitarios.ColorOn := clYellow;
if ediSanitarios.Text = ‘R’ then
ledSanitarios.ColorOn := clRed;
if ediSanitarios.Text = ‘M’ then
ledSanitarios.ColorOn := clNavy;
if ediSanitarios.Text = ” then
ledSanitarios.ColorOn := clSilver;

// LED: 7. Mobiliarios
//tblMobiliario
if editMobiliario.Text = ‘A’ then
ledMobiliarios.ColorOn := clLime;
if editMobiliario.Text = ‘O’ then
ledMobiliarios.ColorOn := clYellow;
if editMobiliario.Text = ‘R’ then
ledMobiliarios.ColorOn := clRed;
if editMobiliario.Text = ‘M’ then
ledMobiliarios.ColorOn := clNavy;
if editMobiliario.Text = ” then
ledMobiliarios.ColorOn := clSilver;

// LED: 8. Estacionamento
//tblEstacionamento
if editEstacionamento.Text = ‘A’ then
ledEstacionamento.ColorOn := clLime;
if editEstacionamento.Text = ‘O’ then
ledEstacionamento.ColorOn := clYellow;
if editEstacionamento.Text = ‘R’ then
ledEstacionamento.ColorOn := clRed;
if editEstacionamento.Text = ‘M’ then
ledEstacionamento.ColorOn := clNavy;
if editEstacionamento.Text = ” then
ledEstacionamento.ColorOn := clSilver;

// LED 9. Locais de reunião
//tblLocaisDeReuniao
if editReuniao.Text = ‘A’ then
ledLocaisDeReuniao.ColorOn := clLime;
if editReuniao.Text = ‘O’ then
ledLocaisDeReuniao.ColorOn := clYellow;
if editReuniao.Text = ‘R’ then
ledLocaisDeReuniao.ColorOn := clRed;
if editReuniao.Text = ‘M’ then
ledLocaisDeReuniao.ColorOn := clNavy;
if editReuniao.Text = ” then
ledLocaisDeReuniao.ColorOn := clSilver;

// LED 10. Locais de refeição
//tblRefeicao editRefeicao
if editRefeicao.Text = ‘A’ then
ledLocaisDeRefeicao.ColorOn := clLime;
if editRefeicao.Text = ‘O’ then
ledLocaisDeRefeicao.ColorOn := clYellow;
if editRefeicao.Text = ‘R’ then
ledLocaisDeRefeicao.ColorOn := clRed;
if editRefeicao.Text = ‘M’ then
ledLocaisDeRefeicao.ColorOn := clNavy;
if editRefeicao.Text = ” then
ledLocaisDeRefeicao.ColorOn := clSilver;

// LED 11. Equipamentos de auto atendimento
//tblEquipAutoAtend editEquipAutoAtend
if editEquipAutoAtend.Text = ‘A’ then
ledEquipAutoAtend.ColorOn := clLime;
if editEquipAutoAtend.Text = ‘O’ then
ledEquipAutoAtend.ColorOn := clYellow;
if editEquipAutoAtend.Text = ‘R’ then
ledEquipAutoAtend.ColorOn := clRed;
if editEquipAutoAtend.Text = ‘M’ then
ledEquipAutoAtend.ColorOn := clNavy;
if editEquipAutoAtend.Text = ” then
ledEquipAutoAtend.ColorOn := clSilver;

// LED 12. Locais de esporte
//tblLocaisDeExposicao editLocalExposicao
if editLocalExposicao.Text = ‘A’ then
ledLocaisDeExposicao.ColorOn := clLime;
if editLocalExposicao.Text = ‘O’ then
ledLocaisDeExposicao.ColorOn := clYellow;
if editLocalExposicao.Text = ‘R’ then
ledLocaisDeExposicao.ColorOn := clRed;
if editLocalExposicao.Text = ‘M’ then
ledLocaisDeExposicao.ColorOn := clNavy;
if editLocalExposicao.Text = ” then
ledLocaisDeExposicao.ColorOn := clSilver;

// LED 13. Esporte lazer e turismo
//tblLocaisEsportLazerTurism editLocalEsporte
if editLocalEsporte.Text = ‘A’ then
ledLocaisEsportLazerTur.ColorOn := clLime;
if editLocalEsporte.Text = ‘O’ then
ledLocaisEsportLazerTur.ColorOn := clYellow;
if editLocalEsporte.Text = ‘R’ then
ledLocaisEsportLazerTur.ColorOn := clRed;
if editLocalEsporte.Text = ‘M’ then
ledLocaisEsportLazerTur.ColorOn := clNavy;
if editLocalEsporte.Text = ” then
ledLocaisEsportLazerTur.ColorOn := clSilver;

// LED 14. Locais de leitura
//tblLocaisDeLeitura editLocaisLeitura
if editLocaisLeitura.Text = ‘A’ then
ledLocaisDeLeitura.ColorOn := clLime;
if editLocaisLeitura.Text = ‘O’ then
ledLocaisDeLeitura.ColorOn := clYellow;
if editLocaisLeitura.Text = ‘R’ then
ledLocaisDeLeitura.ColorOn := clRed;
if editLocaisLeitura.Text = ‘M’ then
ledLocaisDeLeitura.ColorOn := clNavy;
if editLocaisLeitura.Text = ” then
ledLocaisDeLeitura.ColorOn := clSilver;

// LED 15. Locais de hospedagem
//tblLocaisDeHospedagem editHospedagem
if editHospedagem.Text = ‘A’ then
ledLocaisDeHospedagem.ColorOn := clLime;
if editHospedagem.Text = ‘O’ then
ledLocaisDeHospedagem.ColorOn := clYellow;
if editHospedagem.Text = ‘R’ then
ledLocaisDeHospedagem.ColorOn := clRed;
if editHospedagem.Text = ‘M’ then
ledLocaisDeHospedagem.ColorOn := clNavy;
if editHospedagem.Text = ” then
ledLocaisDeHospedagem.ColorOn := clSilver;

// LED 16. Locais de saude
//tblLocaisDeSaude editLocaisSaude
if editLocaisSaude.Text = ‘A’ then
ledLocaisDeSaude.ColorOn := clLime;
if editLocaisSaude.Text = ‘O’ then
ledLocaisDeSaude.ColorOn := clYellow;
if editLocaisSaude.Text = ‘R’ then
ledLocaisDeSaude.ColorOn := clRed;
if editLocaisSaude.Text = ‘M’ then
ledLocaisDeSaude.ColorOn := clNavy;
if editLocaisSaude.Text = ” then
ledLocaisDeSaude.ColorOn := clSilver;

// LED 17. Locais de ensino
//tblLocaisDeEnsino editLocaisEnsino
if editLocaisEnsino.Text = ‘A’ then
ledLocaisDeEnsino.ColorOn := clLime;
if editLocaisEnsino.Text = ‘O’ then
ledLocaisDeEnsino.ColorOn := clYellow;
if editLocaisEnsino.Text = ‘R’ then
ledLocaisDeEnsino.ColorOn := clRed;
if editLocaisEnsino.Text = ‘M’ then
ledLocaisDeEnsino.ColorOn := clNavy;
if editLocaisEnsino.Text = ” then
ledLocaisDeEnsino.ColorOn := clSilver;

// LED 18. Provadores
//tblProvadores editProvadores
if editProvadores.Text = ‘A’ then
ledProvadores.ColorOn := clLime;
if editProvadores.Text = ‘O’ then
ledProvadores.ColorOn := clYellow;
if editProvadores.Text = ‘R’ then
ledProvadores.ColorOn := clRed;
if editProvadores.Text = ‘M’ then
ledProvadores.ColorOn := clNavy;
if editProvadores.Text = ” then
ledProvadores.ColorOn := clSilver;

// LED 19. Cozinhas
//tblCozinha editCozinhas
if editCozinhas.Text = ‘A’ then
ledCozinhas.ColorOn := clLime;
if editCozinhas.Text = ‘O’ then
ledCozinhas.ColorOn := clYellow;
if editCozinhas.Text = ‘R’ then
ledCozinhas.ColorOn := clRed;
if editCozinhas.Text = ‘M’ then
ledCozinhas.ColorOn := clNavy;
if editCozinhas.Text = ” then
ledCozinhas.ColorOn := clSilver;

end;

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

procedure TfrmVisaoGeral01.Button2Click(Sender: TObject);
begin

tblvisita.Filtered := False;
tblvisita.Filter := ‘CodVisita=’ + QuotedStr(Edit1.text);
tblvisita.Filtered := True;

end;

procedure TfrmVisaoGeral01.SpeedButton4Click(Sender: TObject);
begin

case RadioGroup1.ItemIndex of
0: Begin
tblvisita.Filtered := False;
tblvisita.Filter := ‘CodVisita=’ + QuotedStr(Edit1.text);
tblvisita.Filtered := True;
End;

1: Begin
tblvisita.Filtered := False;
tblvisita.Filter := ‘Protocolo=’ + QuotedStr(Edit1.text);
tblvisita.Filtered := True;
End;

end;

end;

procedure TfrmVisaoGeral01.SpeedButton3Click(Sender: TObject);
begin
// rptSuperGrupo01.ComponenteRelatorio.preview;
try
try
rptSuperGrupo01 := TrptSuperGrupo01.Create(application);
rptSuperGrupo01.ComponenteRelatorio.Preview
finally
rptSuperGrupo01.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptSuperGrupo01!’, mtwarning, [mbOk], 0);
end;
end;

procedure TfrmVisaoGeral01.FormDestroy(Sender: TObject);
begin
// ADOConnection11.Connected := False;
{
frmVisaoGeral01.tblVisita.active := False;
frmVisaoGeral01.tblEquipAutoAtend.active := False;
frmVisaoGeral01.tblLocaisDeExposicao.active := False;
frmVisaoGeral01.tblLocaisDeLeitura.active := False;
frmVisaoGeral01.tblLocaisDeHospedagem.active := False;
frmVisaoGeral01.tblLocaisDeSaude.active := False;
frmVisaoGeral01.tblLocaisDeEnsino.active := False;
frmVisaoGeral01.tblProvadores.active := False;
frmVisaoGeral01.tblCozinha.active := False;
frmVisaoGeral01.tblEstacionamento.active := False;
frmVisaoGeral01.tblRefeicao.active := False;
frmVisaoGeral01.tblPasseioPublico.active := False;
frmVisaoGeral01.tblGrelha.active := False;
frmVisaoGeral01.tblCxInspecao.active := False;
frmVisaoGeral01.tblPontoOnibus.active := False;
frmVisaoGeral01.tblTelefonePublico.active := False;
frmVisaoGeral01.tblCxCorreio.active := False;
frmVisaoGeral01.tblLixeira.active := False;
frmVisaoGeral01.tblPosteLuz.active := False;
frmVisaoGeral01.tblSemaforo.active := False;
frmVisaoGeral01.tblCxTelef.active := False;
frmVisaoGeral01.tblDesvTrans.active := False;
frmVisaoGeral01.tblEscada.active := False;
frmVisaoGeral01.tblRevestimento.active := False;
frmVisaoGeral01.tblBanco.active := False;
frmVisaoGeral01.tblBanca.active := False;
frmVisaoGeral01.tblBancMerc.active := False;
frmVisaoGeral01.tblFloreira.active := False;
frmVisaoGeral01.tblPontoTaxi.active := False;
frmVisaoGeral01.tblPosteSin.active := False;
frmVisaoGeral01.tblBaiaVeic.active := False;
frmVisaoGeral01.tblVeget.active := False;
frmVisaoGeral01.tblOutraInterf.active := False;
frmVisaoGeral01.tblDegrau.active := False;
frmVisaoGeral01.tblRampa.active := False;

frmVisaoGeral01.tblAcesso.active := False;
frmVisaoGeral01.tblEscada2.active := False;
frmVisaoGeral01.tblRampa2.active := False;
frmVisaoGeral01.tblDesvTrans2.active := False;
frmVisaoGeral01.tblDegrau2.active := False;
frmVisaoGeral01.tblPlatPercVert1.active := False;
frmVisaoGeral01.tblPlatPercInc1.active := False;
frmVisaoGeral01.tblPorta.active := False;
frmVisaoGeral01.tblCatraca.active := False;
frmVisaoGeral01.tblCapacho.active := False;
frmVisaoGeral01.tblTapete.active := False;
frmVisaoGeral01.tblCampainha.active := False;
frmVisaoGeral01.tblInterfone.active := False;
frmVisaoGeral01.tblGrelha2.active := False;

frmVisaoGeral01.tblCircHoriz.active := False;
frmVisaoGeral01.tblCorredor.active := False;
frmVisaoGeral01.tblPiso.active := False;
frmVisaoGeral01.tblCapacho2.active := False;
frmVisaoGeral01.tblTapete2.active := False;
frmVisaoGeral01.tblGrelha3.active := False;
frmVisaoGeral01.tblBarrSusp.active := False;
frmVisaoGeral01.tblDesvTrans3.active := False;
frmVisaoGeral01.tblDegrau3.active := False;
frmVisaoGeral01.tblRampa3.active := False;
frmVisaoGeral01.tblEscada3.active := False;
frmVisaoGeral01.tblPlatPercVert2.active := False;
frmVisaoGeral01.tblPlatPercInc2.active := False;

frmVisaoGeral01.tblCircVert.active := False;
frmVisaoGeral01.tblRampa4.active := False;
frmVisaoGeral01.tblEscada4.active := False;
frmVisaoGeral01.tblElevador.active := False;
frmVisaoGeral01.tblPlatPercVert3.active := False;
frmVisaoGeral01.tblPlatPercInc3.active := False;
frmVisaoGeral01.tblEscadaRolante.active := False;
frmVisaoGeral01.tblEsteiraRolante.active := False;
frmVisaoGeral01.tblRota.active := False;

frmVisaoGeral01.tblSanitarios.active := False;
frmVisaoGeral01.tblPortaSanit.active := False;
frmVisaoGeral01.tblBaciaSanit.active := False;
frmVisaoGeral01.tblLavatorio.active := False;
frmVisaoGeral01.tblMictorio.active := False;
frmVisaoGeral01.tblChuveiro.active := False;
frmVisaoGeral01.tblBanheira.active := False;
frmVisaoGeral01.tblVestiario.active := False;

frmVisaoGeral01.tblPortJanDisp.active := False;
frmVisaoGeral01.tblPortas.active := False;
frmVisaoGeral01.tblPortaVaievem.active := False;
frmVisaoGeral01.tblPortadecorrer.active := False;
frmVisaoGeral01.tblCatraca2.active := False;
frmVisaoGeral01.tblJanelas.active := False;
frmVisaoGeral01.tblDispositivos.active := False;

frmVisaoGeral01.tblLocaisDeReuniao.active := False;
frmVisaoGeral01.tblBastidores.active := False;
frmVisaoGeral01.tblPalco.active := False;
frmVisaoGeral01.tblRampa5.active := False;
frmVisaoGeral01.tblPlatPercVert4.active := False;
frmVisaoGeral01.tblPlatPercInc4.active := False;
frmVisaoGeral01.tblEscada5.active := False;

frmVisaoGeral01.tblMesaSupTrab.active := False;
frmVisaoGeral01.tblAssenntFix.active := False;
frmVisaoGeral01.tblAutoServico.active := False;
frmVisaoGeral01.tblBalcao.active := False;
frmVisaoGeral01.tblMesaSubRef.active := False;
frmVisaoGeral01.tblBilheteria.active := False;
frmVisaoGeral01.tblLousa.active := False;
frmVisaoGeral01.tblMobiliario.active := False;
frmVisaoGeral01.tblTelefone.active := False;
frmVisaoGeral01.tblBebedouro.active := False;
frmVisaoGeral01.tblCama.active := False;
frmVisaoGeral01.tblArmario.active := False;

frmVisaoGeral01.tblLocaisEsportLazerTurism.active := False;
frmVisaoGeral01.tblArquibancada.active := False;
frmVisaoGeral01.tblParqueoupraca.active := False;
frmVisaoGeral01.tblPiscina.active := False;
frmVisaoGeral01.tblEscadaPiscina.active := False;
frmVisaoGeral01.tblRampaSubmersa.active := False;
frmVisaoGeral01.tblBancoPiscina.active := False;
}
end;

procedure TfrmVisaoGeral01.FormShow(Sender: TObject);
var x : integer;
Temp: TComponent;

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

frmVisaoGeral01.Height := 588;
frmVisaoGeral01.Width := 490;

frmVisaoGeral01.tblVisita.active := True;
frmVisaoGeral01.tblEquipAutoAtend.active := True;
frmVisaoGeral01.tblLocaisDeExposicao.active := True;
frmVisaoGeral01.tblLocaisDeLeitura.active := True;
frmVisaoGeral01.tblLocaisDeHospedagem.active := True;
frmVisaoGeral01.tblLocaisDeSaude.active := True;
frmVisaoGeral01.tblLocaisDeEnsino.active := True;
frmVisaoGeral01.tblProvadores.active := True;
frmVisaoGeral01.tblCozinha.active := True;
frmVisaoGeral01.tblEstacionamento.active := True;
frmVisaoGeral01.tblRefeicao.active := True;
frmVisaoGeral01.tblPasseioPublico.active := True;
frmVisaoGeral01.tblGrelha.active := True;
frmVisaoGeral01.tblCxInspecao.active := True;
frmVisaoGeral01.tblPontoOnibus.active := True;
frmVisaoGeral01.tblTelefonePublico.active := True;
frmVisaoGeral01.tblCxCorreio.active := True;
frmVisaoGeral01.tblLixeira.active := True;
frmVisaoGeral01.tblPosteLuz.active := True;
frmVisaoGeral01.tblSemaforo.active := True;
frmVisaoGeral01.tblCxTelef.active := True;
frmVisaoGeral01.tblDesvTrans.active := True;
frmVisaoGeral01.tblEscada.active := True;
frmVisaoGeral01.tblRevestimento.active := True;
frmVisaoGeral01.tblBanco.active := True;
frmVisaoGeral01.tblBanca.active := True;
frmVisaoGeral01.tblBancMerc.active := True;
frmVisaoGeral01.tblFloreira.active := True;
frmVisaoGeral01.tblPontoTaxi.active := True;
frmVisaoGeral01.tblPosteSin.active := True;
frmVisaoGeral01.tblBaiaVeic.active := True;
frmVisaoGeral01.tblVeget.active := True;
frmVisaoGeral01.tblOutraInterf.active := True;
frmVisaoGeral01.tblDegrau.active := True;
frmVisaoGeral01.tblRampa.active := True;

frmVisaoGeral01.tblAcesso.active := True;
frmVisaoGeral01.tblEscada2.active := True;
frmVisaoGeral01.tblRampa2.active := True;
frmVisaoGeral01.tblDesvTrans2.active := True;
frmVisaoGeral01.tblDegrau2.active := True;
frmVisaoGeral01.tblPlatPercVert1.active := True;
frmVisaoGeral01.tblPlatPercInc1.active := True;
frmVisaoGeral01.tblPorta.active := True;
frmVisaoGeral01.tblCatraca.active := True;
frmVisaoGeral01.tblCapacho.active := True;
frmVisaoGeral01.tblTapete.active := True;
frmVisaoGeral01.tblCampainha.active := True;
frmVisaoGeral01.tblInterfone.active := True;
frmVisaoGeral01.tblGrelha2.active := True;

frmVisaoGeral01.tblCircHoriz.active := True;
frmVisaoGeral01.tblCorredor.active := True;
frmVisaoGeral01.tblPiso.active := True;
frmVisaoGeral01.tblCapacho2.active := True;
frmVisaoGeral01.tblTapete2.active := True;
frmVisaoGeral01.tblGrelha3.active := True;
frmVisaoGeral01.tblBarrSusp.active := True;
frmVisaoGeral01.tblDesvTrans3.active := True;
frmVisaoGeral01.tblDegrau3.active := True;
frmVisaoGeral01.tblRampa3.active := True;
frmVisaoGeral01.tblEscada3.active := True;
frmVisaoGeral01.tblPlatPercVert2.active := True;
frmVisaoGeral01.tblPlatPercInc2.active := True;

frmVisaoGeral01.tblCircVert.active := True;
frmVisaoGeral01.tblRampa4.active := True;
frmVisaoGeral01.tblEscada4.active := True;
frmVisaoGeral01.tblElevador.active := True;
frmVisaoGeral01.tblPlatPercVert3.active := True;
frmVisaoGeral01.tblPlatPercInc3.active := True;
frmVisaoGeral01.tblEscadaRolante.active := True;
frmVisaoGeral01.tblEsteiraRolante.active := True;
frmVisaoGeral01.tblRota.active := True;

frmVisaoGeral01.tblSanitarios.active := True;
frmVisaoGeral01.tblPortaSanit.active := True;
frmVisaoGeral01.tblBaciaSanit.active := True;
frmVisaoGeral01.tblLavatorio.active := True;
frmVisaoGeral01.tblMictorio.active := True;
frmVisaoGeral01.tblChuveiro.active := True;
frmVisaoGeral01.tblBanheira.active := True;
frmVisaoGeral01.tblVestiario.active := True;

frmVisaoGeral01.tblPortJanDisp.active := True;
frmVisaoGeral01.tblPortas.active := True;
frmVisaoGeral01.tblPortaVaievem.active := True;
frmVisaoGeral01.tblPortadecorrer.active := True;
frmVisaoGeral01.tblCatraca2.active := True;
frmVisaoGeral01.tblJanelas.active := True;
frmVisaoGeral01.tblDispositivos.active := True;

frmVisaoGeral01.tblLocaisDeReuniao.active := True;
frmVisaoGeral01.tblBastidores.active := True;
frmVisaoGeral01.tblPalco.active := True;
frmVisaoGeral01.tblRampa5.active := True;
frmVisaoGeral01.tblPlatPercVert4.active := True;
frmVisaoGeral01.tblPlatPercInc4.active := True;
frmVisaoGeral01.tblEscada5.active := True;

frmVisaoGeral01.tblMesaSupTrab.active := True;
frmVisaoGeral01.tblAssenntFix.active := True;
frmVisaoGeral01.tblAutoServico.active := True;
frmVisaoGeral01.tblBalcao.active := True;
frmVisaoGeral01.tblMesaSubRef.active := True;
frmVisaoGeral01.tblBilheteria.active := True;
frmVisaoGeral01.tblLousa.active := True;
frmVisaoGeral01.tblMobiliario.active := True;
frmVisaoGeral01.tblTelefone.active := True;
frmVisaoGeral01.tblBebedouro.active := True;
frmVisaoGeral01.tblCama.active := True;
frmVisaoGeral01.tblArmario.active := True;

frmVisaoGeral01.tblLocaisEsportLazerTurism.active := True;
frmVisaoGeral01.tblArquibancada.active := True;
frmVisaoGeral01.tblParqueoupraca.active := True;
frmVisaoGeral01.tblPiscina.active := True;
frmVisaoGeral01.tblEscadaPiscina.active := True;
frmVisaoGeral01.tblRampaSubmersa.active := True;
frmVisaoGeral01.tblBancoPiscina.active := True;

end;

procedure TfrmVisaoGeral01.SpeedButton5Click(Sender: TObject);
begin
frmVisaoGeral01.tblvisita.Filtered := False;
frmVisaoGeral01.Edit1.text :=”;

end;

procedure TfrmVisaoGeral01.SpeedButton6Click(Sender: TObject);
begin
// LED: 1. Passeio público
if editStatusPasPub.Text = ‘A’ then
ledPasseioPublico.ColorOn := clLime;
if editStatusPasPub.Text = ‘O’ then
ledPasseioPublico.ColorOn := clYellow;
if editStatusPasPub.Text = ‘R’ then
ledPasseioPublico.ColorOn := clRed;
if editStatusPasPub.Text = ‘M’ then
ledPasseioPublico.ColorOn := clNavy;
if editStatusPasPub.Text = ” then
ledPasseioPublico.ColorOn := clSilver;

// LED: 2. Acesso
if editStatusAcesso.Text = ‘A’ then
ledAcesso.ColorOn := clLime;
if editStatusAcesso.Text = ‘O’ then
ledAcesso.ColorOn := clYellow;
if editStatusAcesso.Text = ‘R’ then
ledAcesso.ColorOn := clRed;
if editStatusAcesso.Text = ‘M’ then
ledAcesso.ColorOn := clNavy;
if editStatusAcesso.Text = ” then
ledAcesso.ColorOn := clSilver;

// LED: 3. Circ. Horizontal
if editStatusCircHoriz.Text = ‘A’ then
ledCircHoriz.ColorOn := clLime;
if editStatusCircHoriz.Text = ‘O’ then
ledCircHoriz.ColorOn := clYellow;
if editStatusCircHoriz.Text = ‘R’ then
ledCircHoriz.ColorOn := clRed;
if editStatusCircHoriz.Text = ‘M’ then
ledCircHoriz.ColorOn := clNavy;
if editStatusCircHoriz.Text = ” then
ledCircHoriz.ColorOn := clSilver;

// LED: 4. Circ. Vertical
if editCircVert.Text = ‘A’ then
ledCircVert.ColorOn := clLime;
if editCircVert.Text = ‘O’ then
ledCircVert.ColorOn := clYellow;
if editCircVert.Text = ‘R’ then
ledCircVert.ColorOn := clRed;
if editCircVert.Text = ‘M’ then
ledCircVert.ColorOn := clNavy;
if editCircVert.Text = ” then
ledCircVert.ColorOn := clSilver;

// LED: 5. Portas, janelas e dispositivos
//tblPortJanDisp
if editPortJanDisp.Text = ‘A’ then
ledPortasJanDisp.ColorOn := clLime;
if editPortJanDisp.Text = ‘O’ then
ledPortasJanDisp.ColorOn := clYellow;
if editPortJanDisp.Text = ‘R’ then
ledPortasJanDisp.ColorOn := clRed;
if editPortJanDisp.Text = ‘M’ then
ledPortasJanDisp.ColorOn := clNavy;
if editPortJanDisp.Text = ” then
ledPortasJanDisp.ColorOn := clSilver;

// LED: 6. Sanitarios
//tblSanitarios
if ediSanitarios.Text = ‘A’ then
ledSanitarios.ColorOn := clLime;
if ediSanitarios.Text = ‘O’ then
ledSanitarios.ColorOn := clYellow;
if ediSanitarios.Text = ‘R’ then
ledSanitarios.ColorOn := clRed;
if ediSanitarios.Text = ‘M’ then
ledSanitarios.ColorOn := clNavy;
if ediSanitarios.Text = ” then
ledSanitarios.ColorOn := clSilver;

// LED: 7. Mobiliarios
//tblMobiliario
if editMobiliario.Text = ‘A’ then
ledMobiliarios.ColorOn := clLime;
if editMobiliario.Text = ‘O’ then
ledMobiliarios.ColorOn := clYellow;
if editMobiliario.Text = ‘R’ then
ledMobiliarios.ColorOn := clRed;
if editMobiliario.Text = ‘M’ then
ledMobiliarios.ColorOn := clNavy;
if editMobiliario.Text = ” then
ledMobiliarios.ColorOn := clSilver;

// LED: 8. Estacionamento
//tblEstacionamento
if editEstacionamento.Text = ‘A’ then
ledEstacionamento.ColorOn := clLime;
if editEstacionamento.Text = ‘O’ then
ledEstacionamento.ColorOn := clYellow;
if editEstacionamento.Text = ‘R’ then
ledEstacionamento.ColorOn := clRed;
if editEstacionamento.Text = ‘M’ then
ledEstacionamento.ColorOn := clNavy;
if editEstacionamento.Text = ” then
ledEstacionamento.ColorOn := clSilver;

// LED 9. Locais de reunião
//tblLocaisDeReuniao
if editReuniao.Text = ‘A’ then
ledLocaisDeReuniao.ColorOn := clLime;
if editReuniao.Text = ‘O’ then
ledLocaisDeReuniao.ColorOn := clYellow;
if editReuniao.Text = ‘R’ then
ledLocaisDeReuniao.ColorOn := clRed;
if editReuniao.Text = ‘M’ then
ledLocaisDeReuniao.ColorOn := clNavy;
if editReuniao.Text = ” then
ledLocaisDeReuniao.ColorOn := clSilver;

// LED 10. Locais de refeição
//tblRefeicao editRefeicao
if editRefeicao.Text = ‘A’ then
ledLocaisDeRefeicao.ColorOn := clLime;
if editRefeicao.Text = ‘O’ then
ledLocaisDeRefeicao.ColorOn := clYellow;
if editRefeicao.Text = ‘R’ then
ledLocaisDeRefeicao.ColorOn := clRed;
if editRefeicao.Text = ‘M’ then
ledLocaisDeRefeicao.ColorOn := clNavy;
if editRefeicao.Text = ” then
ledLocaisDeRefeicao.ColorOn := clSilver;

// LED 11. Equipamentos de auto atendimento
//tblEquipAutoAtend editEquipAutoAtend
if editEquipAutoAtend.Text = ‘A’ then
ledEquipAutoAtend.ColorOn := clLime;
if editEquipAutoAtend.Text = ‘O’ then
ledEquipAutoAtend.ColorOn := clYellow;
if editEquipAutoAtend.Text = ‘R’ then
ledEquipAutoAtend.ColorOn := clRed;
if editEquipAutoAtend.Text = ‘M’ then
ledEquipAutoAtend.ColorOn := clNavy;
if editEquipAutoAtend.Text = ” then
ledEquipAutoAtend.ColorOn := clSilver;

// LED 12. Locais de esporte
//tblLocaisDeExposicao editLocalExposicao
if editLocalExposicao.Text = ‘A’ then
ledLocaisDeExposicao.ColorOn := clLime;
if editLocalExposicao.Text = ‘O’ then
ledLocaisDeExposicao.ColorOn := clYellow;
if editLocalExposicao.Text = ‘R’ then
ledLocaisDeExposicao.ColorOn := clRed;
if editLocalExposicao.Text = ‘M’ then
ledLocaisDeExposicao.ColorOn := clNavy;
if editLocalExposicao.Text = ” then
ledLocaisDeExposicao.ColorOn := clSilver;

// LED 13. Esporte lazer e turismo
//tblLocaisEsportLazerTurism editLocalEsporte
if editLocalEsporte.Text = ‘A’ then
ledLocaisEsportLazerTur.ColorOn := clLime;
if editLocalEsporte.Text = ‘O’ then
ledLocaisEsportLazerTur.ColorOn := clYellow;
if editLocalEsporte.Text = ‘R’ then
ledLocaisEsportLazerTur.ColorOn := clRed;
if editLocalEsporte.Text = ‘M’ then
ledLocaisEsportLazerTur.ColorOn := clNavy;
if editLocalEsporte.Text = ” then
ledLocaisEsportLazerTur.ColorOn := clSilver;

// LED 14. Locais de leitura
//tblLocaisDeLeitura editLocaisLeitura
if editLocaisLeitura.Text = ‘A’ then
ledLocaisDeLeitura.ColorOn := clLime;
if editLocaisLeitura.Text = ‘O’ then
ledLocaisDeLeitura.ColorOn := clYellow;
if editLocaisLeitura.Text = ‘R’ then
ledLocaisDeLeitura.ColorOn := clRed;
if editLocaisLeitura.Text = ‘M’ then
ledLocaisDeLeitura.ColorOn := clNavy;
if editLocaisLeitura.Text = ” then
ledLocaisDeLeitura.ColorOn := clSilver;

// LED 15. Locais de hospedagem
//tblLocaisDeHospedagem editHospedagem
if editHospedagem.Text = ‘A’ then
ledLocaisDeHospedagem.ColorOn := clLime;
if editHospedagem.Text = ‘O’ then
ledLocaisDeHospedagem.ColorOn := clYellow;
if editHospedagem.Text = ‘R’ then
ledLocaisDeHospedagem.ColorOn := clRed;
if editHospedagem.Text = ‘M’ then
ledLocaisDeHospedagem.ColorOn := clNavy;
if editHospedagem.Text = ” then
ledLocaisDeHospedagem.ColorOn := clSilver;

// LED 16. Locais de saude
//tblLocaisDeSaude editLocaisSaude
if editLocaisSaude.Text = ‘A’ then
ledLocaisDeSaude.ColorOn := clLime;
if editLocaisSaude.Text = ‘O’ then
ledLocaisDeSaude.ColorOn := clYellow;
if editLocaisSaude.Text = ‘R’ then
ledLocaisDeSaude.ColorOn := clRed;
if editLocaisSaude.Text = ‘M’ then
ledLocaisDeSaude.ColorOn := clNavy;
if editLocaisSaude.Text = ” then
ledLocaisDeSaude.ColorOn := clSilver;

// LED 17. Locais de ensino
//tblLocaisDeEnsino editLocaisEnsino
if editLocaisEnsino.Text = ‘A’ then
ledLocaisDeEnsino.ColorOn := clLime;
if editLocaisEnsino.Text = ‘O’ then
ledLocaisDeEnsino.ColorOn := clYellow;
if editLocaisEnsino.Text = ‘R’ then
ledLocaisDeEnsino.ColorOn := clRed;
if editLocaisEnsino.Text = ‘M’ then
ledLocaisDeEnsino.ColorOn := clNavy;
if editLocaisEnsino.Text = ” then
ledLocaisDeEnsino.ColorOn := clSilver;

// LED 18. Provadores
//tblProvadores editProvadores
if editProvadores.Text = ‘A’ then
ledProvadores.ColorOn := clLime;
if editProvadores.Text = ‘O’ then
ledProvadores.ColorOn := clYellow;
if editProvadores.Text = ‘R’ then
ledProvadores.ColorOn := clRed;
if editProvadores.Text = ‘M’ then
ledProvadores.ColorOn := clNavy;
if editProvadores.Text = ” then
ledProvadores.ColorOn := clSilver;

// LED 19. Cozinhas
//tblCozinha editCozinhas
if editCozinhas.Text = ‘A’ then
ledCozinhas.ColorOn := clLime;
if editCozinhas.Text = ‘O’ then
ledCozinhas.ColorOn := clYellow;
if editCozinhas.Text = ‘R’ then
ledCozinhas.ColorOn := clRed;
if editCozinhas.Text = ‘M’ then
ledCozinhas.ColorOn := clNavy;
if editCozinhas.Text = ” then
ledCozinhas.ColorOn := clSilver;
end;

procedure TfrmVisaoGeral01.SpeedButton7Click(Sender: TObject);
begin
close;
end;

end.
unit frmVisita01;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, DBCtrls, StdCtrls, ExtCtrls, Mask,
Buttons, ComCtrls, JvExMask, JvToolEdit, JvMaskEdit, JvCheckedMaskEdit,
JvDatePickerEdit, JvDBDatePickerEdit, Menus, ImgList, JvExControls, JvArrowButton,
JvComponentBase, JvgExportComponents, JvDBGridExport, jpeg;

type
TMeuDBNavigator = class(TDBNavigator);
TformVisita1 = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
Panel3: TPanel;
DBNavigator1: TDBNavigator;
Panel4: TPanel;
editCodigo: TEdit;
editProtocolo: TEdit;
Panel2: TPanel;
Panel5: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBRadioGroup2: TDBRadioGroup;
DBEdit7: TDBEdit;
DBRadioGroup1: TDBRadioGroup;
DBLookupComboBox1: TDBLookupComboBox;
Panel6: TPanel;
DBGrid1: TDBGrid;
ADOQueryVisita: TADOQuery;
ADOQueryVisitaCodVisita: TWideStringField;
ADOQueryVisitaCPFFiscal: TWideStringField;
ADOQueryVisitaCNPJ: TWideStringField;
ADOQueryVisitaTipoVisita: TWideStringField;
ADOQueryVisitaProtocolo: TWideStringField;
ADOQueryVisitaResultado: TWideStringField;
dtsVisita01: TDataSource;
dtsFiscal: TDataSource;
ADOQueryFiscal: TADOQuery;
dtsEmpresa: TDataSource;
ADOQueryEmpresa: TADOQuery;
DBLookupComboBox2: TDBLookupComboBox;
ADOQueryVisitaDataVisita: TDateTimeField;
ADOQueryVisitaHoraVisita: TWideStringField;
Label4: TLabel;
DBEdit2: TDBEdit;
Label5: TLabel;
DBEdit3: TDBEdit;
SpeedButton3: TSpeedButton;
ImageList1: TImageList;
menuRelatorio: TPopupMenu;
Ficha1: TMenuItem;
Listagem1: TMenuItem;
JvArrowButton1: TJvArrowButton;
btnBuscaCodigo: TSpeedButton;
SpeedButton4: TSpeedButton;
Formatoxls1: TMenuItem;
JvgExportExcel1: TJvgExportExcel;
JvDBGridWordExport1: TJvDBGridWordExport;
JvDBGridExcelExport1: TJvDBGridExcelExport;
JvArrowButton2: TJvArrowButton;
menuExportar: TPopupMenu;
DBGridpWord1: TMenuItem;
DBGridpExcel1: TMenuItem;
ImageList2: TImageList;
Label6: TLabel;
Image1: TImage;
btnBuscaProtocolo: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure btnBuscaCodigoClick(Sender: TObject);
procedure Ficha1Click(Sender: TObject);
procedure Listagem1Click(Sender: TObject);
procedure Formatoxls1Click(Sender: TObject);
procedure DBGridpWord1Click(Sender: TObject);
procedure DBGridpExcel1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure FormCreate(Sender: TObject);
procedure btnBuscaProtocoloClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
formVisita1: TformVisita1;
nomeTabela: string;

implementation

uses rptVisita1, rptVisita2, frmPrincipal;

{$R *.dfm}

procedure TformVisita1.SpeedButton3Click(Sender: TObject);
begin
Close;
end;

procedure TformVisita1.SpeedButton1Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
ADOQueryVisita.Close;
ADOQueryVisita.SQL.clear;
ADOQueryVisita.SQL.add(strsql);
ADOQueryVisita.Open;
ADOQueryVisita.active := False;
ADOQueryVisita.active := True;
except
MessageDlg(‘Erro ao carregar a ADOQueryVisita’, mtwarning, [mbOk], 0);
end;

end;

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

procedure TformVisita1.Ficha1Click(Sender: TObject);
begin
// rptVisita01.ComponenteRelatorio.preview;
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 TformVisita1.Listagem1Click(Sender: TObject);
begin
// rptVisita02.ComponenteRelatorio.preview;
try
try
rptVisita02 := TrptVisita02.Create(application);
rptVisita02.ComponenteRelatorio.preview;
finally
rptVisita02.free;
end;
except
messageDlg(‘Erro ao tentar abrir o formulario rptVisita02!’, mtwarning, [mbOk], 0);
end;
end;

procedure TformVisita1.Formatoxls1Click(Sender: TObject);
begin
JvgExportExcel1.Execute;
end;

procedure TformVisita1.DBGridpWord1Click(Sender: TObject);
begin
JvDBGridWordExport1.ExportGrid;
end;

procedure TformVisita1.DBGridpExcel1Click(Sender: TObject);
begin
JvDBGridExcelExport1.ExportGrid;
end;

procedure TformVisita1.SpeedButton4Click(Sender: TObject);
var
strsql: string;
begin
try
nomeTabela := ‘tblVisita’;
strsql := ‘SELECT * FROM ‘+nomeTabela;
strsql := strsql + ‘ WHERE Protocolo = ‘ + #39 + editProtocolo.Text + #39;
ADOQueryVisita.Close;
ADOQueryVisita.SQL.clear;
ADOQueryVisita.SQL.add(strsql);
ADOQueryVisita.Open;
except
MessageDlg(‘Erro ao realizar a consulta por Codigo’, mtwarning, [mbOk], 0);
end;
end;

procedure TformVisita1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if odd(ADOQueryVisita.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 TformVisita1.FormCreate(Sender: TObject);
const
Legendas: array[TNavigateBtn] of string = (
‘Primeiro’, ‘Anterior’, ‘Próximo’, ‘Último’,
‘Incluir’, ‘Excluir’, ‘Editar’, ‘Salvar’,’Cancelar’, ‘Atualizar’);
var
Botao: TNavigateBtn;
begin
for Botao := nbFirst to nbRefresh do
begin
with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
begin
Caption := Legendas[Botao];
Layout := blGlyphTop;
end;
end;

ADOQueryVisita.Connection := formPrincipal.ADOConnection1;
ADOQueryVisita.Active := True;
ADOQueryFiscal.Connection := formPrincipal.ADOConnection1;
ADOQueryFiscal.Active := True;
ADOQueryEmpresa.Connection := formPrincipal.ADOConnection1;
ADOQueryEmpresa.Active := True;

{
try
ADOQueryEmpresa.ConnectionString := ‘FILE NAME=C:\sistemavistoria1\fontes\bancodedados.udl’;
ADOQueryEmpresa.active := true;
except
//ADOQueryVisita.active := true;
//ADOQueryFiscal.active := true;
MessageDlg(‘Erro ao abrir ADOQueryEmpresa !!’, mtwarning, [mbOk], 0);
end;
}
end;

procedure TformVisita1.btnBuscaProtocoloClick(Sender: TObject);
begin
Try
ADOQueryVisita.Close;
ADOQueryVisita.SQL.Clear;
ADOQueryVisita.SQL.Add(‘SELECT * FROM tblVisita’);
ADOQueryVisita.Open;
Except;
MessageDlg(‘Erro ao tentar refazer consulta SQL’, mtwarning, [mbOk], 0);
End;
end;

procedure TformVisita1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ADOQueryVisita.Active := False;
ADOQueryFiscal.Active := False;
ADOQueryEmpresa.Active := False;
end;

end.

Publicado em SVA | Marcado com , , | Deixe um comentário

Na reta final (SVA, parte 17)

Terminando relatórios e os códigos do padrão.

Publicado em SVA | Marcado com | Deixe um comentário

Gostou das telas? (SVA, parte 16)

Como nosso sistema tem uma interface tão bonita?

Estamos rodando o software no Windows Vista e no Windows usamos um “thema” (estilo de ambiente) que muda a cara nativa do Vista para parecer com o MacOS

Vocês podem instalar isso nos seus computadores também:

Basta verificar como nestes links:

http://www.baixaki.com.br/download/uxtheme-patcher-for-windows-vista.htm

http://www.baixaki.com.br/download/vista-visual-master-mac-theme.htm

http://www.baixaki.com.br/download/mydock.htm

Publicado em SVA | Marcado com , , , , | Deixe um comentário

Projeto SVA no IV SEMINARIO DE ACESSIBILIDADE, (SVA, parte 15)

Nova apresentação do projeto no evento:

 

OS DESAFIOS PARA IMPLANTAÇÃO DA ACESSIBILIDADE NAS CIDADES

24 de novembro de 2010

Local: Câmara Municipal de Cascavel

PROGRAMAÇÃO

Período da manhã

8horas – Credenciamento e Café da manhã
8h45 – Solenidade de abertura oficial
9horas – Assinatura do Termo de Cooperação Técnica entre São Paulo e Cascavel
9h30 – Palestra: As experiências em acessibilidade do município de São Paulo
11horas – Debate
11h30 – Intervalo para almoço

Período da tarde

13h30 – Mesa-redonda: O panorama da Acessibilidade nos Municípios da Região Oeste do Paraná: Cascavel, Toledo e Foz do Iguaçu.
15h30 – Debate
16h30 – Encerramento e Confraternização.

Informações e inscrições
APPIS – Av. Assunção, 1757, 2º piso da Rodoviária. Fone/Fax: (45) 3327-1306
E-mail: cpacascavel@yahoo.com.br
Certificado de participação de 08horas.

Publicado em SVA | Marcado com , , , , | Deixe um comentário