Delphi Forum

Ankara için ben varım

ilk olaak teşekkür ederim ilginize
fakat, Dbgrid de tek bir hücrede '07:00 - 15:15' yazıyor. Ayrı ayrı değil.
Ben şu şekilde bir kod yazıyorum başarılı ama bunu bir döngüye sokamıyorum ve dünyanın if ini yazmam gerek

if table1Pazartesi.value := '07:00 - 15:15' then
Table1Toplam.value = '8.15 ...

(Hocam kusura bakmayın)
Arkadaşlar merhaba
Şu deyimi kod a çevirmek istiyorum ama malesef çeviremiyorum. Yardımcı olabilirseniz sevinirim.
Bunu if lerle yapmayı denedim ama dünyanın if ini yazmam gerek.

if table1Pazartesi.value := '07:00 - 15:15' ise 8.15 , '09:00 - 15:15' ise 6.15 , '10:00 - 15 ...

Arkadaşlar merhaba
Şu deyimi kod a çevirmek istiyorum ama malesef çeviremiyorum. Yardımcı olabilirseniz sevinirim.
Bunu if lerle yapmayı denedim ama dünyanın if ini yazmam gerek.


if table1Pazartesi.value := '07:00 - 15:15' ise 8.15 , '09:00 - 15:15' ise 6.15 , '10:00 - 15:15' ise 5.15 değeri ...

Arkadaşlar Günaydın
aşşağıdaki kod daki if lerde sıra veri tabanımla aynı olursa bir problem yok ama veri tabanımdaki sıra ile uyuşmadığı zaman veriyi değiştirmiyor yada değiştirdigini bir daha değitiriyor.
Yani Dbgridimdeki Pazartesi kolonunun ilk sütununa bakıp ona göre hareket etmesini istiyorum ...

Çok teşekkürler ilginiz için ama bulamadı zaman yine kırılıyorTable1.First;

while not Table1.Eof do
begin
if table1Pazartesi.Value = '07:00 - 15:00' then
table1.edit;
table1pazartesi.value := '10:00 - 15:00';
//table1.post;
showmessage (table1Pazartesi.Value);
Table1.Next;

Günaydın arkadaşlar
aşşagıdaki kod da bildiginiz gibi 10:00-15:00 ise 17:00-21:00 yapıyor. Ama 15:00-23:00 gördügü yere 07:00-15:00 yaz kodunu nasıl yazabilirim
Bir deneme yaptım fakat bulamadıgı zaman kırılıyor.

begin
vardiya := 0;
table1.first ;

repeat
if table1Pazartesi.Value = '10:00 - 15:00 ...

Tamam Hocam. İlk olarak bu saatleri pick liste yazmakla dogrumu yaptım bilemiyorum. ikinci olarak ben başlangıç olarak herkesin vardiyasını manuel girecem. Yaklaşık 200 kişi kadar. Girdikten sonra Tıklama yapılınca pazartesi günü 7 de gelen kişi otomatik olarak 10 da , salı günü 15 de gelen kişi 07 ...

Günaydın arkadaşlar. Benim gibi bir acemiye fikir verebilirseniz çok sevinirim. Vardiya programı yapıyorum.
Dbgridin Columns editor ünden pick lisk kısmına olabilecek sınırlı verileri girdim.
07:00 - 15:00,
10:00 - 15:00,
15:00 - 23:00 gibi
Ör. Pazartesi kolonunda 07:00 - 15:00 vardiyası ...

Arkadaşlar üstte belirtilen kod da shhet name i kendim nasıl belirleyebilirim
Çok ugraştım ama malesef bu konuda takılı kaldım
Sheet name sabit olarak PRODUCT olması gerekmektedir.

ilginizize şimdiden teşekkür ederim.

Arkadaşlar günaydın
bir sorum olacaktı sizlere. Sorum ise şu anda var olan *.dbs uzantılı bir database var. Delphi7 kullanıyorum. Bu database e nasıl baglanabilirim yada hangi componenet i kullanabilirim.?

çok teşekkür ederim.
Peki sheet name i nasıl sabit verebilirim

Merhabalar.
Aşşağıdaki kod da
1. Shetname ismi sabit olarak YILLIK olarak
2. Save edilirken otomatik olarak d:\ değilde bana savedialog penceresi getirip kayıt edecegim yeri bana sormasını istiyorum.

Bana yardımcı olabilirseniz sevinirim.

şimdiden teşekkürlerprocedure TForm3.BitBtn2Click ...

Selam Arkadaşlar.
Save As Dialog penceresini kod ile nasıl getirebilirim.

Teşekkürler

BU PROBLEMİ ÇÖZEN KOD AŞŞAĞIDAKİ GİBİDİR.

BİLGİLERİNİZE

var
k : integer;
i ,J : string;
begin
table1.Filtered := False;
J := '';
for k := 0 to listbox1.items.count -1 do
J := j + 'category = '+ chr(39) + trim(listbox1.Items[k])+ chr(39) + ' OR ' ;
delete (j,length(j)-3,length (j));
table1.Filter ...