Delphi Forum

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; K...

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; K...

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 bir şey işte. ...

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ığı i...

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 kullanıcı yenilem...

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 ...

function Numarator(no: string): string; function TersCevir(nu: string): string; var Cevrilen: string; i: Integer; begin Cevrilen := ''; for i := length(nu) downto 1 do begin Cevrilen := Cevrilen + nu[i]; end; Result := Cevrilen; end; var Nmr, Temp: string; i, Tmp: Integer; begin Nmr := TersCevir(no...

Merhaba. Gerekli açıklamayı freeman35 yukarıda yapmış. O yüzden şifre değiştirmekle uğraşmak yerine veri tabanını güvenliğini kullanıcının sorumluluğuna bırakmak bence daha makul bir davranış olacaktır. Ayrıca bu şifreyi değiştirmek istemenizin sebebi nedir? Kullanıcı yetkilendirme gibi bir yapı mı ...