Ir para conteúdo
Fórum CódigoFonte.net

John Wesley

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre John Wesley

Profile Information

  • Gender
    Male
  1. John Wesley

    HeLP

    procedure TForm1.BtnOKClick(Sender: TObject); begin // Se os campos estiverem em branco, mostra o erro… if (Edit1.text = '')and(Edit2.text ='') then begin Application.MessageBox('Preencha os campos de maneira adequada, por favor.','Erro!',MB_ICONError); Edit1.Clear; Edit2.Clear; Edit1.Setfocus; end; // Se os campos não estiverem em branco, Continua com a verificação... if (Edit1.text <> '')and(Edit2.text <> '') then begin // Verifica se o campo usuário estiver com o valor: gabriel e o campo senha: 123… // Se estiver tudo correto abre o Form2 if (Edit1.text = 'gabriel')and(Edit2.text = '123') then begin Form2 := Tform2.create(application); Hide; Form2.showmodal; end; // Se tiver algum problema na verificação, mostra uma mensagem e limpa os campos... if (Edit1.Text <> 'gabriel')or(Edit2.text = '123') then begin Application.MessageBox('Sua senha esta incorreta!','Erro!',MB_ICONError); Edit1.Clear; Edit2.Clear; Edit1.Setfocus; end; end; ta dando o seguinte erro: Startement expected but end of file found To tentando fazer uma tela de logim so q nun ta indo
  2. program Project1; uses Forms, Delphinovo in 'Delphinovo.pas' {frmprincipal}, UDM in 'UDM.pas' {DM: TDataModule}, ULogin in 'ULogin.pas' {FrmLogin}, CadCliente in 'CadCliente.pas' {FrmMenuPrin}, UCadCliente in 'UCadCliente.pas' {FrmCadCliente}, USplash in '..\Sistema John\USplash.pas' {FrmSplash}; SysUtils; {$R *.res} begin Application.Initialize; Application.CreateForm(TFrmMenuPrin, FrmMenuPrin); Application.CreateForm(TFrmLogin, FrmLogin); Application.CreateForm(Tfrmprincipal, frmprincipal); Application.CreateForm(TDM, DM); Application.CreateForm(TFrmCadCliente, FrmCadCliente); Application.CreateForm(TFrmSplash, FrmSplash); FrmSplash.Show; FrmSplash.Refresh; Sleep(2000); FrmSplash.Release; FrmSplash := nil; Application.Run; end. Esta dando erro nesta parte: USplash in '..\Sistema John\USplash.pas' {FrmSplash}; Esse e o erro q aparece: [Fatal Error] Project1.dpr(10): File not found: 'Delphinovo.dcu' Alguem da uma ajuda ai grato
×
×
  • Criar Novo...