Que tipo de programação é esta
Pessoal
Comprei um Sistema na net com fontes, só que as tabelas parece serem criadas em tempo de execução porque não estão no DataModule. Alguem sabe que tipo de programação é esta ?
procedure TFormClientes.CamposCalculados;
begin
{08-Início do Bloco Modular. Modificações não serão preservadas}
{99-Final do Bloco Modular. Modificações não serão preservadas}
end;
procedure TFormClientes.FormShow(Sender: TObject);
Var
I: Integer;
begin
{05-Início do Bloco Modular. Modificações não serão preservadas}
TabelaPrincipal := TabGlobal.DCLIENTES;
TituloModulo := 'Ficha Cadastral de Clientes / Fornecedores / Prestadores';
Caption := TituloModulo;
{99-Final do Bloco Modular. Modificações não serão preservadas}
FormPrincipal.PnImagemFundo.Visible := False;
Sistema.JanelasMDI := Sistema.JanelasMDI + 01;
if Sistema.JanelasMDI < 1 then // Pouco provável + ...
Sistema.JanelasMDI := 1;
Navegando := False;
DataSource.DataSet := TabelaPrincipal;
ListaCamposED := TListaCampos.Create;
ConsultasSalvas := TList.Create;
.......
Grato.
Comprei um Sistema na net com fontes, só que as tabelas parece serem criadas em tempo de execução porque não estão no DataModule. Alguem sabe que tipo de programação é esta ?
procedure TFormClientes.CamposCalculados;
begin
{08-Início do Bloco Modular. Modificações não serão preservadas}
{99-Final do Bloco Modular. Modificações não serão preservadas}
end;
procedure TFormClientes.FormShow(Sender: TObject);
Var
I: Integer;
begin
{05-Início do Bloco Modular. Modificações não serão preservadas}
TabelaPrincipal := TabGlobal.DCLIENTES;
TituloModulo := 'Ficha Cadastral de Clientes / Fornecedores / Prestadores';
Caption := TituloModulo;
{99-Final do Bloco Modular. Modificações não serão preservadas}
FormPrincipal.PnImagemFundo.Visible := False;
Sistema.JanelasMDI := Sistema.JanelasMDI + 01;
if Sistema.JanelasMDI < 1 then // Pouco provável + ...
Sistema.JanelasMDI := 1;
Navegando := False;
DataSource.DataSet := TabelaPrincipal;
ListaCamposED := TListaCampos.Create;
ConsultasSalvas := TList.Create;
.......
Grato.
Marcos Roberto
Curtidas 0
Respostas
Alessandro Yamasaki
25/12/2013
Na procedure CamposCalculados só tem aquilo de programacao?
E no FormShow vc não consegue acessar o TabGlobal para verificar aonde está as informações?
E no FormShow vc não consegue acessar o TabGlobal para verificar aonde está as informações?
GOSTEI 0
Marcos Roberto
25/12/2013
Exatamente,
Tabglobal é um DM sem nada.
Tabglobal é um DM sem nada.
GOSTEI 0
Marcos Roberto
25/12/2013
Veja o Tabglobal
procedure TTabGlobal.DataModuleCreate(Sender: TObject);
var
I: Integer;
Tabela: TTabela;
begin
{02-Início do Bloco Modular. Modificações não serão preservadas}
DPARAMET := TDPARAMET.Create(Self);
DCLIENTES := TDCLIENTES.Create(Self);
DATIVIDAD := TDATIVIDAD.Create(Self);
DTPCLI := TDTPCLI.Create(Self);
DVENDEDOR := TDVENDEDOR.Create(Self);
DFOLLOW := TDFOLLOW.Create(Self);
DGRUPOS := TDGRUPOS.Create(Self);
DFAMILIA := TDFAMILIA.Create(Self);
DFABRIC := TDFABRIC.Create(Self);
DUNIDADE := TDUNIDADE.Create(Self);
DPRODUTO := TDPRODUTO.Create(Self);
DCORES := TDCORES.Create(Self);
DTAMANHO := TDTAMANHO.Create(Self);
DPLANOCT := TDPLANOCT.Create(Self)
................
procedure TTabGlobal.DataModuleCreate(Sender: TObject);
var
I: Integer;
Tabela: TTabela;
begin
{02-Início do Bloco Modular. Modificações não serão preservadas}
DPARAMET := TDPARAMET.Create(Self);
DCLIENTES := TDCLIENTES.Create(Self);
DATIVIDAD := TDATIVIDAD.Create(Self);
DTPCLI := TDTPCLI.Create(Self);
DVENDEDOR := TDVENDEDOR.Create(Self);
DFOLLOW := TDFOLLOW.Create(Self);
DGRUPOS := TDGRUPOS.Create(Self);
DFAMILIA := TDFAMILIA.Create(Self);
DFABRIC := TDFABRIC.Create(Self);
DUNIDADE := TDUNIDADE.Create(Self);
DPRODUTO := TDPRODUTO.Create(Self);
DCORES := TDCORES.Create(Self);
DTAMANHO := TDTAMANHO.Create(Self);
DPLANOCT := TDPLANOCT.Create(Self)
................
GOSTEI 0
Alessandro Yamasaki
25/12/2013
E conseguiu acessar o TDPARAMET? Segure o Ctrl e clique em cima do TDPARAMET para vê para aonde vai, pois está estranho isto. Deve haver alguma classe para vc acessar ou alguma dll q oculta estas informações, mas realiza o procedimento.
GOSTEI 0