Edit ile ilgili

[sinancaylak]

Merhaba ben Edite sadece büyük harf girdirmek istiyorum bununla ilgili yardım ederseniz sevinirim

[mussimsek]

CharCase özelliğini ecUpperCase yap.

Kolay gelsin.

[Armani]

Hocam peki dbgridde belli bir colona nasıl olur?

[husonet]

DbGrid'in KeyPress Eventin'de yapabilirsin.

Kod: Tümünü seç

procedure TCariHesapAcilisIslemFrm.DBGrid1KeyPress(Sender: TObject;
  var Key: Char);
begin
    if (DBGrid1.SelectedField.FieldName = 'CARIKOD') Then
        Case key Of
            'a' : Key := 'A';
            'b' : Key := 'B';
            'c' : Key := 'C';
            'ç' : Key := 'Ç';
            'd' : Key := 'D';
            'e' : Key := 'E';
            'f' : Key := 'F';
            'g' : Key := 'G';
            'ğ' : Key := 'Ğ';
            'ı' : Key := 'I';
            'i' : Key := 'İ';
            'j' : Key := 'J';
            'k' : Key := 'K';
            'l' : Key := 'L';
            'm' : Key := 'M';
            'n' : Key := 'N';
            'o' : Key := 'O';
            'ö' : Key := 'Ö';
            'p' : Key := 'P';
            'r' : Key := 'R';
            's' : Key := 'S';
            'ş' : Key := 'Ş';
            't' : Key := 'T';
            'u' : Key := 'U';
            'ü' : Key := 'Ü';
            'v' : Key := 'V';
            'y' : Key := 'Y';
            'z' : Key := 'Z';
            'x' : Key := 'X';
        End;

Kolay Gelsin...

[sinancaylak]

Hocam Yardımlarınız için saolun

[cuneyt22]

peki hocam bu dbgride query ile listeledigimiz kayitlar uzerine default deger verebilirmiyiz..yani bir dbgridim bu dbgrid ile vt dan query(standart) ile listeledigim kayitlara default deger verebilirmiyim..ama bu default deger kayitlarda(tabloda) olmayacak ..kaydet diye bir butonum var bu kaydet degerine bastiginda default olarak verdigim degerleri tabloya kaydedecek iptal dedigimde bu default kayitlar tabloya yazilmayacak....

[husonet]

Dataset lere atama şeklinde alanlara değer yansıtabilirsiniz.

Kolay Gelsin...

[cuneyt22]

peki hocam dbgridin ornegin 2.sutununa nasil bir komut yazmaliyimki default degerler orada gorunsun

[cuneyt22]

Huseyin hocam dbgrid2.Fields[1].asstring:='NEGATIVE'; su komutu yazdim hicbir hata veriyor.. ancak sorguyu calistirdigimda hata veriyorr..baska bir yolu varmi? acaba

[cuneyt22]

hocam biraz duzeltim ama tam degil..sadece ilk kayda yazdigim degeri atiyor..yazdigim komut su..

if not Qsonuc.IsEmpty do
BEGIN
Qsonuc.Edit;
dbgrid2.Fields[1].asstring:='NEGATIVE';
END;

dogru bir sekilde calisiyor ama sadece ilk kayita bu degeri atiyor..alttakilere atmiyor..yardimci olursaniz sevinirim..

[husonet]

Buna bir de döngü içine alsan bütün kayıtlara ulaşabilirsin

Kod: Tümünü seç

Qsonuc.First;
while not QSonuc.Eof Do
Begin
    ............
    .............
    ............
   QSonuc.next;
End;

Kolay Gelsin...

[mussimsek]

Default Değer vermek için en güzeli ilgili datasetin (table, query vs.) OnNewRecord olayında yapmak. OnNewRecord'a şöyle bir kod yazman lazım :

Dataset.FieldByName('ALAN_ADI').AsString := 'Değer';

Kolay gelsin.

[cuneyt22]

huseyin hocamin dedigini yaptim ama bazi alanlar daha onceden dolu oldugu zaman bu alanlarada default deger atiyor...bunu nasil asabiliriz...

[husonet]

Bir if kontolü ile hişşt senin için dolumu diye sor şayet doluysa pas geçsin.

Kod ile ifadesi

Kod: Tümünü seç

if Dataset.FieldByName('Deneme').Asstring = '' Then
         // Değer yoksa yapılacaklar
else
        //Değer varsa yapılacaklar.

Kolay Gelsin...

[cuneyt22]

bende dun aksam yazdiklarinizi okuyamadim..evde biraz ugrastim ve yaptim ..su sekil yaptim..

if not Qsonuc.IsEmpty then
BEGIN
WHILE NOT QSONUC.EOF DO
BEGIN
IF dbgrid2.Fields[1].value = NULL then
begin
Qsonuc.Edit;
DbGrid2.Fields[1].asstring:='NEGATIVE';
end;
QSONUC.Next;
END;

belki birilerine lazim olur...iyi calismalar