kayıt çoğatlma execsql

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

kayıt çoğatlma execsql

Mesaj gönderen erdogan_ozkaya »

Arkadaşlar,


Aşağıdaki kod ile kayıt ekliyor görünürde bir sorun yok fakat,

"A_PERSONEL_NET_UCRET" alanını kopyalarken eğer değer "100" gibi yuvarlak bir rakamsa sorun yok "100,50" olduğunda virgülden sonraki değeri yani "50" sonraki kayda atmaya çalışıyor virgül olduğu için nasıl yapabilirim ?

teşekkürler

Kod: Tümünü seç

            qryKAYIT_COGALT_DB.Close;
            qryKAYIT_COGALT_DB.SQL.Clear;
            qryKAYIT_COGALT_DB.SQL.Add(' INSERT INTO PERSONEL_PROJE_PUANTAJ  '
                                      +' (PERSONEL_KIMLIK,PERSONEL_ADI_SOYADI,PERSONEL_TC_NO,MESLEK_KODU,PROJE_KIMLIK, '
                                      +' PERSONEL_NET_MAAS, '
                                      +' PERSONEL_BRUT_MAAS, '
                                      +' HAFTA_ICI_MESAI_ORAN, '
                                      +' HAFTASONU_MESAI_CMRT_ORAN, '
                                      +' HAFTASONU_MESAI_PAZAR_ORAN, '
                                      +' BAYRAM_MESAI_ORAN, '
                                      +' RESMI_TATIL_MESAI_ORAN, '

                                      +' DONEM_YIL, '
                                      +' DONEM_AY, '
                                      +' ACIKLAMA, '

                                      +' CALISILAN_FIRMA, '
                                      +' EKLEYEN )'

                               +' SELECT PERSONEL_KIMLIK, ADI+'+#39+' '+#39+'+SOYADI, TC_NO, MESLEKI_KODU, GOREV_YERI,'

                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('A_PERSONEL_NET_UCRET').Text     +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('A_PERSONEL_BRUT_UCRET').Text   +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('HAFTA_ICI_MESAI').Text         +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('HAFTASONU_MESAI_CMRT').Text    +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('HAFTASONU_MESAI_PAZAR').Text   +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('BAYRAM_MESAI').Text            +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('RESMI_TATIL_MESAI').Text       +','

                               +#39+ cbbPUANTAJ_YIL.Text   +''+#39+','
                               +#39+ cbbPUANTAJ_AY.Text    +''+#39+','
                               +#39+ editACIKLAMA.Text     +''+#39+','

                               +#39+ KULLANICI_GIRIS.qryCALISILAN_FIRMA_DB.FieldByName('KIMLIK').Text +''+#39+', '
                               +#39+ KULLANICI_GIRIS.qryKULLANICI_DB.FieldByName('GORUNEN_AD').Text   +''+#39+''

                              +' FROM PERSONEL_BILGILERI  '

                                     +' WHERE TC_NO =  '+#39+qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('TC_NO').Text+#39+''
                                     +' AND CALISILAN_FIRMA_KIMLIK = '+#39+KULLANICI_GIRIS.qryCALISILAN_FIRMA_DB.fieldbyname('KIMLIK').Text+#39+'');
                mmo1.Lines.Add(qryKAYIT_COGALT_DB.SQL.Text);
                qryKAYIT_COGALT_DB.ExecSQL;
                qryKAYIT_COGALT_DB.close;
Başa dön
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:
İletişim Lost Soul

Re: kayıt çoğatlma execsql

Mesaj gönderen Lost Soul »

Veriyi aldıktan sonra ","ü "." ile replace ediniz.

Anahtar kelimeler: environment, decimal separator
Başa dön
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: kayıt çoğatlma execsql

Mesaj gönderen erdogan_ozkaya »

:))

teşekkürler oldu.

Kod: Tümünü seç

            qryKAYIT_COGALT_DB.Close;
            qryKAYIT_COGALT_DB.SQL.Clear;
            qryKAYIT_COGALT_DB.SQL.Add(' INSERT INTO PERSONEL_PROJE_PUANTAJ  '
                                      +' (PERSONEL_KIMLIK,PERSONEL_ADI_SOYADI,PERSONEL_TC_NO,MESLEK_KODU,PROJE_KIMLIK, '
                                      +' PERSONEL_NET_MAAS, '
                                      +' PERSONEL_BRUT_MAAS, '
                                      +' HAFTA_ICI_MESAI_ORAN, '
                                      +' HAFTASONU_MESAI_CMRT_ORAN, '
                                      +' HAFTASONU_MESAI_PAZAR_ORAN, '
                                      +' BAYRAM_MESAI_ORAN, '
                                      +' RESMI_TATIL_MESAI_ORAN, '

                                      +' DONEM_YIL, '
                                      +' DONEM_AY, '
                                      +' ACIKLAMA, '

                                      +' CALISILAN_FIRMA, '
                                      +' EKLEYEN )'

                               +' SELECT PERSONEL_KIMLIK, ADI+'+#39+' '+#39+'+SOYADI, TC_NO, MESLEKI_KODU, GOREV_YERI,'
                                                                                                             {
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('A_PERSONEL_NET_UCRET').Text)   +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('A_PERSONEL_BRUT_UCRET').Text)  +','   }


                               + StringReplace(qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('A_PERSONEL_NET_UCRET').Text, ',','.',[rfReplaceAll])+','
                               + StringReplace(qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('A_PERSONEL_BRUT_UCRET').Text,',','.',[rfReplaceAll])+','




                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('HAFTA_ICI_MESAI').Text         +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('HAFTASONU_MESAI_CMRT').Text    +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('HAFTASONU_MESAI_PAZAR').Text   +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('BAYRAM_MESAI').Text            +','
                               + qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('RESMI_TATIL_MESAI').Text       +','

                               +#39+ cbbPUANTAJ_YIL.Text   +''+#39+','
                               +#39+ cbbPUANTAJ_AY.Text    +''+#39+','
                               +#39+ editACIKLAMA.Text     +''+#39+','

                               +#39+ KULLANICI_GIRIS.qryCALISILAN_FIRMA_DB.FieldByName('KIMLIK').Text +''+#39+', '
                               +#39+ KULLANICI_GIRIS.qryKULLANICI_DB.FieldByName('GORUNEN_AD').Text   +''+#39+''

                              +' FROM PERSONEL_BILGILERI  '

                                     +' WHERE TC_NO =  '+#39+qryPERSONEL_PROJE_DAGILIM_DB.FieldByName('TC_NO').Text+#39+''
                                     +' AND CALISILAN_FIRMA_KIMLIK = '+#39+KULLANICI_GIRIS.qryCALISILAN_FIRMA_DB.fieldbyname('KIMLIK').Text+#39+'');
                mmo1.Lines.Add(qryKAYIT_COGALT_DB.SQL.Text);
                qryKAYIT_COGALT_DB.ExecSQL;
                qryKAYIT_COGALT_DB.close;
Başa dön
Cevapla

“Programlama” sayfasına dön