login sorunu

[RewriteRule]

Merhaba arkadaşlar,

Delphi 7 kullanarak şirket içinde kullanılacak bir stok programı kodluyorum. Delphi ile desktop versiyonunu, JSP ile de remote olarak erişebilmek için web arayüzünü kodluyorum. Veritabanı olarak Oracle XE kullanıyorum. Kullanıcı bilgilerini veritabanında tutmaktayım ve jsp ile bir sorunum yok hatta tüm kodlama bitti. Ancak Delphi ile login formu oluşturup giriş yapıldıktan sonra yeni form açıp, eski login formunu kapatmak istediğimde tüm program sonlanıyor. Benim yapmak istediğim başarılı bir girişten sonra esas formu açtırıp, login formunu kapatmak. Login formu kodlarım aşağıda.

frMain, başarılı bir girişten sonra açtırmak istediğim form.
dmAll, datamodule.
Form5, login formu.

Kod: Tümünü seç

procedure TForm5.Button1Click(Sender: TObject);
begin
  dmAll.This_Users.Filter := 'user_name = ''' + Edit1.Text + ''' AND user_pass = ''' + Edit2.Text + '''';
  dmAll.This_Users.Filtered := True;

  if dmAll.This_Users.RecordCount > 0 then
    begin
      frMain.Show;
    end
  else
    begin
      Edit1.Text := '';
      Edit2.Text := '';
      Edit1.SetFocus;
    end;
end;

frMain formunda login formunu kapattırdığım kod.

Kod: Tümünü seç

procedure TfrMain.FormShow(Sender: TObject);
begin
  Form5.Close;
end;

[/code]

[ikutluay]

Merhaba

ben olsam böyle yapmazdım. yapmanız gereken anamenu formunu göstermeden bunu yapmanız..

ben proje kodunu değiştiriyorum.
application.run dan önce login formunu gösterin herşey ok ise run etsin deilse çıksın

[RewriteRule]

Ana menüden önce gösteriyorum zaten. dpr dosyasının içeriği şu şekilde:

Kod: Tümünü seç

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {frMain},
  Unit2 in 'Unit2.pas' {frNew},
  Unit3 in 'Unit3.pas' {frBrowse},
  Unit4 in 'Unit4.pas' {frProducts},
  Unit7 in 'Unit7.pas' {manCategory},
  Unit8 in 'Unit8.pas' {manType},
  Unit9 in 'Unit9.pas' {manMake},
  Unit10 in 'Unit10.pas' {manModel},
  Unit11 in 'Unit11.pas' {myCalender},
  Unit12 in 'Unit12.pas' {manOrder},
  UdmAll in 'UdmAll.pas' {dmAll: TDataModule},
  Unit13 in 'Unit13.pas' {frDocument},
  Unit14 in 'Unit14.pas' {SplashV},
  Unit15 in 'Unit15.pas' {Form5};

{$R *.res}

begin
  SplashV := TSplashV.Create(Application); 
  SplashV.show;
  SplashV.update;
  Application.Initialize;
  Application.CreateForm(TdmAll, dmAll);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TfrMain, frMain);
  Application.CreateForm(TfrNew, frNew);
  Application.CreateForm(TfrBrowse, frBrowse);
  Application.CreateForm(TfrProducts, frProducts);
  Application.CreateForm(TmanCategory, manCategory);
  Application.CreateForm(TmanType, manType);
  Application.CreateForm(TmanMake, manMake);
  Application.CreateForm(TmanModel, manModel);
  Application.CreateForm(TmyCalender, myCalender);
  Application.CreateForm(TmanOrder, manOrder);
  Application.CreateForm(TfrDocument, frDocument);
  SplashV.hide;
  SplashV.free;
  Application.Run;
end.

Splash(loading) formu program tam olarak yüklenene kadar gösteriliyor.

[akdatilla]

Merhaba
Bence proje dosyanı şu şekilde hazırla:

Kod: Tümünü seç

program Project1; 

uses 
  Forms, 
  Unit1 in 'Unit1.pas' {frMain}, 
  Unit2 in 'Unit2.pas' {frNew}, 
  Unit3 in 'Unit3.pas' {frBrowse}, 
  Unit4 in 'Unit4.pas' {frProducts}, 
  Unit7 in 'Unit7.pas' {manCategory}, 
  Unit8 in 'Unit8.pas' {manType}, 
  Unit9 in 'Unit9.pas' {manMake}, 
  Unit10 in 'Unit10.pas' {manModel}, 
  Unit11 in 'Unit11.pas' {myCalender}, 
  Unit12 in 'Unit12.pas' {manOrder}, 
  UdmAll in 'UdmAll.pas' {dmAll: TDataModule}, 
  Unit13 in 'Unit13.pas' {frDocument}, 
  Unit14 in 'Unit14.pas' {SplashV}, 
  Unit15 in 'Unit15.pas' {Form5}; 

{$R *.res} 

begin 
  SplashV := TSplashV.Create(Application); 
  SplashV.show; 
  SplashV.update; 
  Application.Initialize; 
  Application.CreateForm(TdmAll, dmAll); 
  SplashV.hide; 
  SplashV.free; 
  SplashV:=Nil;
  Form5:=TForm5.Create(Nil);
  Form5.ShowModal;
  //form5 içinde ne yap et kullanıcı login olamazsa "Application.Terminate;"  komutunu çalıştır.
  Form5.Free;
  Form5:=Nil;
  if not Application.Terminated Then
  Beign
         Application.CreateForm(TfrMain, frMain); 
         Application.Run; 
  End;
  //Diğer formları çalışma esnasında hafızaya yüklemeni tavsiye ederim.
end.

[RewriteRule]

teşekkürler.