Login Form sorunu

[muradguzel]

s.a arkadaşlar bir projem var son aşamaya geldim vt firebird ibdataset bağlantı şekli mevcut lakin giriş formu ekranında giriş yap deyince anaform açılacak iptal denince uygulama sonlanacak ama unit2 kısmında unit unit1 tanımlamasını yapamıyorum izin vermiyor bu yüzden şifre doğru ise form1(anaform).show olmuyor form1 çıkmıyor en kısa ve kullanışlı yönden login formu analatırsanız sevinirim forumda rama yaptım ama biraz karışık geldi pek çözemedim yardımcı olursanız sevinirim hayırlı günler.

[unicorn64]

s.a arkadaşlar bir projem var son aşamaya geldim vt firebird ibdataset bağlantı şekli mevcut lakin giriş formu ekranında giriş yap deyince anaform açılacak iptal denince uygulama sonlanacak ama unit2 kısmında unit unit1 tanımlamasını yapamıyorum izin vermiyor bu yüzden şifre doğru ise form1(anaform).show olmuyor form1 çıkmıyor en kısa ve kullanışlı yönden login formu analatırsanız sevinirim forumda rama yaptım ama biraz karışık geldi pek çözemedim yardımcı olursanız sevinirim hayırlı günler.

unit2 login formun, unit1 ana formun unitleri sanırım. unit2 de uses bölümüne unit1 i eklediniz mi?


" unit2 kısmında unit unit1 tanımlamasını yapamıyorum izin vermiyor " izin vermiyordan kastınız nedir? hata alıyorsanız hata mesajını da yazarsanız daha net cevaplar alabilirsiniz.

[muradguzel]

yardımcı olursanız sevinirim.

[muradguzel]

[Pascal Error] Unit1.pas(2): E2029 'INTERFACE' expected but 'UNIT' found
[Pascal Error] Unit1.pas(150): E2003 Undeclared identifier: 'TForm2'
[Pascal Fatal Error] Project1.dpr(6): F2063 Could not compile used unit 'Unit1.pas'

[CiTiZEN]

bence en kolay yontemlerden birisi şifreyi dönüştürüp bir dat veya herhangi bi dosyada saklarsınız program ve login formunuz açılınca şifreyi alıp değişkene atarsınız sonrada if döngüsü ile halledersiniz

if sifre=degisken then
form1.show;
else
application.terminate;

eger basit bişey isterseniz klay gelsin

[conari]

login formunda

Kod: Tümünü seç

implementation

uses ikinciişlemformun;

şeklinde unitini tanımladınmı?

Main form olarak ta login formunu seçmelisin

Kod: Tümünü seç

[Pascal Error] Unit1.pas(150): E2003 Undeclared identifier: 'TForm2'

bu hatadan bunu anlıyorum.

[unicorn64]

komple edit :

resimden hiçbirşey anlayamayınca hata mesajına göre birşeyler yazmıştım ama hataya tekrar bakınca

Kod: Tümünü seç

interface expected but unit found

sanırım uses tanımını yanlış yapmışsınız. interface tanımından önceki satırda uses unit1 yazıyor sanırım sizde.

tanımlamayı aşağıdaki şekilde düzenlerseniz sorun düzelecektir.

Kod: Tümünü seç

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,UNIT1;

[aslangeri]

s.a.
ben login formunu ana formun onactive eventinda çağırıyorum. eğer kullanıcı başarılı bir şekilde login olursa ana formun onactive eventinı iptal ediyorum.
ana formun onactive ine yazdığım kod şöyle bişi

Kod: Tümünü seç

if loginform=nil then loginform:=tloginform.create;
if loginform.showmodal=mrcancel then application.terminate else
begin
  freeandnil(loginform);
  onactive:=nil;
  kullanıcı yetkilerini oku ;
  menüleri ayarla;
   ıvır ;
   zıvr;
..
end;

ana form ve datamoduller hariç tüm formları manuel create ediyorum.
kolay gelsin.

[muradguzel]

arkadaşlar sağolasınız hallettim
implementation
uses unit2; kısmına yazmam gerekiyormuş. teşekkürler