Delphi Forum

100 tane QRAsBarcode bileşenim var. QRAsBarcode1 QRAsBarcode2 ....QRAsBarcode99 QRAsBarcode100 100 adet barkod hazırlayacağım for i:=1 to 100 do begin QRAsBarcode(i) = sqlpersonelsicil.text; end; fakat burda QRAsBarcode(i) i nasıl yazman gerekir. QRAsBarcode(i) = sqlpersonelsicil.text; nasıl yazman ...

aşağıda CalcFields alanı oldukça karışık bunu sqlde hesaplatmam zor. başka çözüm bulamadım procedure TDM.SQLBirimPersonelBulCalcFields(DataSet: TDataSet); var a,b,hsfc,hifc,vc,yemek,e,bayramcalisma,seyyargorev:string; sirano:integer; begin a := 'G'+copy(frmpuantaj.Edit3.text,1,2); sirano:=dm.SQLBiri...

SELECT * FROM PUANTAJ where BIRIMKOD=:birimkod and DONEM=:donem komutunda hatam yok sadece order by HAFTASONU nu ekleyince hata veriyor burdaki HAFTASONU CalcField (hesaplanmış alan) dır. aslında SQL den aldığım sonucu dbgridde gösteriyorum. fakat 200 e yakın kayıt var en üsteki kaydın HAFTASONU değ...

sql bileşeninde SELECT * FROM PUANTAJ where BIRIMKOD=:birimkod and DONEM=:donem SQL bileşeninde HAFTASONU alanını DIŞARDAM EKLEDİM SQLBirimPersonelBulCalcFields içerinde dm.SQLBirimPersonelBulHAFTASONU.Text:=20; komut var SELECT * FROM PUANTAJ where BIRIMKOD=:birimkod and DONEM=:donem order by HAFTA...

peki java ile nasıl yaparız

bir adet combobox bileşenim var bunun içinden değer seçtiğmde

diğer comboboxda değerleri otomatik yükleyeceğim

yani merkez listesi seçildiğinde ,

santral listesini çağıracağım

kısacası onclic olayanı nasıl gerçekleştirebilirim


teşekkürler

procedure Tmailgonderme.Button2Click(Sender: TObject); var i:integer; begin dm.Query1.First; while not dm.query1.eof do begin DM.Query1.DisableControls; dm.tablemail.DisableControls; if (pos('@',trim(DM.Query1mail1.Text))>0) and (dm.Query1durum.Text<>'OK') THEN begin IdMessage1.Recipients.EMailAddre...

sql sorgunun sonucunda dbgridden sırayla mail adreslerine bilgi gönderiyorum dbgrid hareket ederken sürekli SQL kum saaati çaslışıyor ama form üzerinde hiçbirşeyi seçemiyorum ayrıca başka programı simge halinde küçültüp tekrar büyültüğümde ekranda sadece dbgridde hareket eden kayıtlar var bunu nasıl...

IdMessage1.ContentType:='text/html'; IdMessage1.Subject :=Edit1.Text; IdMessage1.Body.Clear; IdMessage1.Body.Add(Richedit1.Text); IdMessage1.MessageParts.Clear; IdSMTP1.AuthenticationType:=atlogin; ile mail gönderiyorum ama richedit de alt alta yazdığım metinler mail alan kişide yanyana bititşik ola...

procedure TForm1.Button1Click(Sender: TObject); begin IdMessage1.Recipients.EMailAddresses:='aaaaaaadogacantasar11111@hotmail.com.tyr'; IdMessage1.ReplyTo.EMailAddresses:=bimsamsy@ttnet.net.tr ; IdMessage1.From.Address:=bimsamsy@ttnet.net.tr ; IdMessage1.From.Name:='Murat'; IdMessage1.Sender.Address...

delphide D8:D10 HÜCRELERİNİ birleştirdim. ve bu hücreye dikey olarak yazı yazmak istiyorum

excelde a1 de t1 e kadar ki hücreleri birleştiriyorım ama 2. sayfaya taşıyor

hangi komutla tek sayfaya sığdırabilirim

SHEET.CELLS[1,10].Borders.LineStyle := xlContinuous;

komutunda uses kısmına xlconst yazdım ama derlerken

file not found xlconst.dcu

mesajı veriyor. bu dosyayı nerden bulabilirim

Delphide butona tıklattığımda ekran çözünürlüğünü 800x600 nasıl yapabilirim

formda bulunan 50 adet edit bileşenlerinin text içeriğni otomatik olarak nasıl boşaltırım.