Delphi Forum

Arkadaşlar bu kodları yazınca DCU hatası alıyorum.
Uses' a ne eklemeliyim.

Yardımlarınız için teşekkürler.

İyi çalışmalar.

Merhabalar;

husonet arkadaşımızın kodunu kullandım gayet güzel çalışıyor fakat Excel'e başlıklar gelmiyor bunun için ne yapmalıyız

Kodu tam yazmamıştım asıl kod

procedure TArama_formu.cxButton1Click(Sender: TObject);
begin
if (Ebolge.Text='')and(Emudurluk.Text='')and(Edepartman.Text='')and(Ekonu.text='')and(Edosyaadi.Text='')and(Edosyano.Text='')and(Esaksure.Text='')and(Eeskidepo.Text='')and(Edurum.Text='')then
begin ...

Merhabalar;

bir tablo içinde birden fazla edit alanına göre listeleme yapmak istiyorum.

bunun için formuma bir adet buton koydum ve birden fazla da edit alanları koydum.

Listelemeyi yapıyor fakat eksik yapıyor.

Mesala Bölge alanında GEBZE den çok fazla kayıt olmasına rağmen çok az sayıda kayıt ...

Yardımlarınız için çok teşekkür ederim.

Herkese iyi çalışmalar.

Herkese Merhaba;
yapmış olduğum program 7 adet table'dan oluşuyor.
Ben bunları innerjoin ile birbrine bağladım.

Adoguery kullanıyorum.

Daha sonra formuma bir adet cxgrid ve 1 adet edit alanı koydum.

Yapmak istediğim olay;

edit'in içine girdiğim kritere göre arama sorgu yapıp cx gridde sonucu ...

kusura bakmayın cevap geç oldu.

çalışan kod aşağıdaki gibidir.

procedure Tuser_form.tamamClick(Sender: TObject);
var kullaniciMY,kullaniciQ,passQ,passMY: string;
begin
if user.Text='' then
begin
ShowMessage('Kullanıcı adı boş geçilemez!Lütfen Giriniz..');
user.SetFocus
end else
begin ...

cevap yazan herkese teşekkür ederim.
Problemi butonun click olayına aşağıdaki kodları yazzarak çözdüm.

İyi çalışmalar.

var

boy,carp,carps,carp1:extended;
kilo,a,carp2: integer;
kilos, boys,carp4,carp3 :String;

begin
a:=10;
boys:=Eboy.Text;
boy:=strtofloat(boys);
kilos:=Ekilo.Text;
kilo ...

Arkadaşlar Merhaba;

Yukarıdaki sorumiçin ben şöyle bir kod kullandım.

var
carp,sonuc2,sonuc:Extended;
sonuc1,kilo:Longint;
boy:Real;
a:integer;
begin
boy:=strtofloat(Eboy.Text);
kilo:=strtoint(Ekilo.Text);
a:=10;
carp:=(boy*boy);
sonuc:=(kilo/carp)*a;
Sonuc1:=Trunc(sonuc);
sonuc2:=sonuc1/a;
Ebmi ...

Arkadaşlar soruma ceap alamadım.Kendim uğraşıyorum fakat halledemedim.
Yardımlarınızı bekliyorum.

Merhaba arkadaşlar;
Matematiksel işlemlerle ilgili bir problemim var.
Access databasem var.
Boy,Kilo,ve sonuc alanlarım var db de.

Boy ve kilo alanları:sayı tipinde
sonuc ise sayı ama ondalıklı sayı tipinde.

yapmak istediğim olay

sonuc:kilo/boy^2 işlemini yaptırmak ve sonuc kısmında işlemin ...

arkadaşlar çok teşekkür ederim.

hatayı bulup düzelttim.

ellerinzie sağlık.

Kolay gelsin

ikutluay delphide yeniyim

yuklardaki select ten donen recordcount=0 ise zaten kullanıcı yok demekrtir. kalan kontrolleri çok uzatıyorsunuz.

kısmını kod üzerinden açıklarsanız sevinirim.

arkadaşlar kod için teşekkür ederim.
Aşağıdaki gibi bir kod yazdım.

database de user tanımlı olduğu halde kullanıcı adına tanımlı useri girdiğimde Yanlış Kullanıcı Adı Girdiniz mesajı çıkıyor.

Fakat kullanıcı adından sonra şifreyide tanımlı olduğu gibi girersem sisteme login oluyor.

Problem ne ...

Herkese kolay gelsin.

kullanıcı formda dbedit lara kullanıcı adını ve parolasını yazıp
butona tıkladığında giriş yapacak
burda nasıl bir kodlama yapılmalı

Adoquery ile yapmak istiyorum.

Database access