Fórum Abrindo form com condição (if not FileExists) #509590
05/02/2015
0
if not FileExists('c:\base.ini') then
begin
????????
end;
Minha duvida esta do que colocar nesse código, pois tentei de varias formas, e não deu certo. Acredito que tenha algo tambem em relação aos forms que estão no auto-create forms e os que estão no available forms. Bom, no meu projeto coloquei o dataModulo , fCaminho_banco e o fPrincipal no lado 'auto-create forms' e o restante dos forms no lado available forms.
A questão em si é que no momento de executar o projeto, se o arquivo do caminho do banco de dados (base.ini) não existir, então abra o form fCaminho_banco para criar o arquivo base.ini e tambem inserir atravez de um edit o caminho do banco, e caso o arquivo base.ini ja existir, então apenas abra o form fPrincipal. Se alguem puder me ajudar agradeço.
Jhon
Curtir tópico
+ 0Posts
05/02/2015
Renato Rubinho
Segue código para, quando não encontrar o arquivo, abrir o form em modal para depois seguir o carregamento do sistema.
Não sei se no create do DataModule funciona corretamente. Se não funcionar, tenta no create do fPrincipal.
if not FileExists('c:\base.ini') then
begin
Application.CreateForm(TfCaminho_banco,fCaminho_banco);
fCaminho_banco.ShowModal;
fCaminho_banco.Release;
end;
Gostei + 0
06/02/2015
Jhon
Gostei + 0
06/02/2015
Renato Rubinho
Seu problema é apenas verificar se o arquivo existe antes de conectar o SQLConnection ?
Veja se colocando o código que passei no evento BeforeConnect do SQLConnection não resolve o que você precisa. Acredito que sim.
Gostei + 0
07/02/2015
Jhon
Gostei + 0
09/02/2015
Renato Rubinho
Provavelmente está dando erro porque você não declarou a unit Forms no "uses" do seu DataModule que é necessária para a criação do Form.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)