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

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

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

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

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

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

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

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

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.