Fórum Que tipo de programação é esta #464926
25/12/2013
0
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
Curtir tópico
+ 0Posts
26/12/2013
Alessandro Yamasaki
E no FormShow vc não consegue acessar o TabGlobal para verificar aonde está as informações?
Gostei + 0
26/12/2013
Marcos Roberto
Tabglobal é um DM sem nada.
Gostei + 0
26/12/2013
Marcos Roberto
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
26/12/2013
Alessandro Yamasaki
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)