Delphi Forum

Merhaba.

Ana formunuzu show yapıp şifre formunuzun visiblesini false yapabilirsiniz.

Merhaba.

Project-->View Source kısmını

Application.CreateForm(TAna_Form, Ana_Form);
Giris_Formu:=TGiris_Formu.Create(nil);
Giris_Formu.ShowModal;
Application.ProcessMessages; //Giriş Formunu ekranda göster
Application.Run;

şeklinde düzenleyiniz.

Sonrasında;

password_form'un onClose ...

Merhaba.

Bir ara benzer bir yapıya ihtiyacım olmuştu. Kullandığım şekliyle bir örnek ekliyorum. Umarım işinize yarar.

İyi çalışmalar.

Merhaba.

Kod kullanım şekliniz bana yanlış geldi. Sebebi; kullanım şekliniz, butona her tıklandığında formu oluşturacak şekilde. Kendi kullandığım yapıyı örnek olarak ekliyorum. Kendinize uyarlarsınız.

if Kursiyer_Karti = Nil Then
Kursiyer_Karti := TKursiyer_Karti.Create(self);
DM.KURSIYER.Append ...

Merhaba.

Select kısmına hangi alanları yazarsanız o alanlar listelenir.
Bu şekilde istediğiniz sonucu elde edebilirsiniz.

İyi çalışmalar.

Merhaba.

Sql Max() ile yapabilirsiniz.

Merhaba.

Sorunuz tam anlaşılmıyor. Aktarmak istediğiniz normal edit mi dbedit mi? DbEdit ise zaten aktarmaya gerek yok. Veri tabanı duyarlı bileşen olduğu için bağlantıları yapmanız yeterli. Normal edit ise döngüyle kontrol etmek gerekir. Benim anladığım yapmak istediğiniz bir ihtimal şu olabilir ...

Merhaba.


Connect kodunuzu paylaşabilir misiniz? Lazarus indirip denedim başarılı bir şekilde bağlandım. Bir de firebird in hangi sürümünü kullanıyorsunuz?

Merhaba.

Eklemek istediğiniz resmin uzantısı bmp mi?


İyi geceler hocam,
:oops: :oops: :oops:
Valla az önce birine "dikkat et, kaçırdığın bir yer var" diye mesaj attım. Aynını ben yaptım.
Uyarınız için teşekkür ederim. Tam olarak çözüm bu. :oops: :oops:


Rica ederim. Programcılık böyle ...

Merhaba.

Sisteminizde Firebird kurulu mu? Kurulum yapılması gerektiği uyarısı almışsınız. Eğer firebird kuruluysa IBConnection yanına IBDriverlink bileşeni ekleyip VendorLib kısmına fbclient.dll nin yerini göstermeniz yeterli olacaktır. Tabi bu dediklerim delphi için. Bende lazarus kurulu olmadığı ...

Merhaba.

Eklemek istediğiniz resmin uzantısı bmp mi?

Merhaba.

Yanılmıyorsam SQL Server için TOP komutuyla dediğiniz işlem yapılabilir.

Örneğin;
Bu şekilde Stok tablosunun ilk 100 kaydını getirmiş olursunuz.

Rica ederim. Allah cümlemizden razı olsun. İyi çalışmalar.

procedure TForm1.Button4Click(Sender: TObject);
begin
with IBSecurityService1 do
begin
Params.Clear;
Protocol:=Local;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
LoginPrompt:=FAlse;
SecurityAction:=ActionDisplayUser;
Active:=True;
end;
CarregaUser;
end;

Sizin ...

Programı bu şekilde veri tabanı şifresini değiştirerek korumak pek sağlıklı değil. Lisanslama olayı tamamen farklı bir konu. Ben lisanslama için Harddiskin fabrika seri numarasını alıp bir dizi işleme tabi tuttuktan sonra lisans parametresini şifreleyip veri tabanına kaydediyorum. Onun haricinde de ...