Olá galera, nesta Quick Tips irei mostrar como criar um formulário a partir de uma string, mas indo mais além vou fazer um cadastro de Forms, em XML mesmo, para ficar mais interessante, sendo possível cadastrar seus formulários e montar um menu dinamicamente. Então vamos ao primeiro passo, montar o esquema do XML, que poderá ser aplicado ao seu banco de dados, e lido da mesma forma.

 

Criando um XML para armazenar os dados.

 

Salve o Form aberto como FrmCadastro e sua Unit como uFrmCadastro.

 

Adicione ao projeto

 

1 – ClientDataSet (CDSForms)

1 – DataSorce ( DSForms)

1 – DBGrid( DBGridForms )

1 – DBNavigator (DBNavigatorForms)

 

CDSForms

Adicionar os seguintes Fields

 

Name

FieldType

Size

IDForm

AutoInc

-

Descricao

String

80

Categoria

String

80

Nome

String

80

 

 

File Name = DBForm.XML

 

IndexFieldNames = Categoria

 

Clique com o Botão direito em cima do mesmo, e no menu pop clique em CreateDataSet

 

DSForms

 

DataSet = CDSForms

 

 DBGridForms

 

DataSorce = DSForms

 

DBNavigatorForms

 

DataSorce = DSForms

 


Em seguida iremos montar a tela de cadastro, arrastando os Fields para o Formulário

 

E sua tela ficará assim

 

 



Agora iremos adicionar mais 3 formulários, para não estender o trabalho braçal, vamos deixar somente estes 3 como exemplo, e criando um conseguiremos criar quantos outros forem necessários.

 

Crie os 3 Forms

 

Name

Unit

Descricao

FrmCliente

uFrmCliente

Formulários criados que seram chamados pelo menu

FrmFornecedor

uFrmFornecedor

Formulários criados que seram chamados pelo menu

FrmPrincipal

uFrmPrincipal

Onde colocaremos  o menu

 

 

Obs : Cadastre alguns formulários, porém esta rotina precisa que a propriedade Nome, no CDSForms, seja cadastrada igual ao nome dos forms que formos criar.

 

Fico por aqui e na próxima Quick Tips, antes de partirmos para próxima Quick Tips, peço que cadastrem os 2 formulários de Cliente e Fornecedor na tela acima desenvolvida, para podermos prosseguir nas dicas.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br