Canias ERP Troia 30 Personel Yönetim Sistemi 12 Insert İşlemi 2

Merhaba, Personel Yönetim Sistemini geliştirmeye kaldığımız yerden devam ediyoruz. Bu yazımda Insert işlemiyle beraber yeni konular öğreneceğiz.

Case: Öncelikle bir kişiden referans alıp üzerinden değişiklik yapıp yeni kişi olarak kaydedeceğiz. Daha sonra tamamen sıfırdan bir kişiyi ekleyip kaydedeceğiz.

Daha önceden sisteme girince SEARCH hariç tüm butonların Enable değerini false yapmıştık. Şu anda fark ediyoruz ki aslında yeni bir kayıt eklemek istersek illa arama yapmamıza gerek kalmamalı.

O yüzden öncelikle NEW butonunun başlangıçta durumunu ENABLE olarak bırakalım.

Bunun için AFTER’a yazdığımız şu kodları açıklama satırı haline getiriyoruz.

Açıklama Satırı

Her yazılım dilinde olduğu gibi Troia’da yazdığınız kodlar içine açıklama satırları eklemenize izin vermektedir.

Açıklama satırı /* Açıklama */ şeklinde gerçekleştirilir.

SET SHOW TO DISABLE;
SET CHANGE TO DISABLE;
/* SET NEW TO DISABLE; */SET DELETE TO DISABLE;

/* SET NEW TO DISABLE; */ 

Bu işlemi yaparak artık kodu deaktif etmiş olduk. Bunun anlamı şudur Runner bu kodu sadece bir text olarak görür ve geçer, kod olarak değerlendirip işleme almaz.

Şimdi açılışta New Butonuna bakalım.

Şimdi Detay Dialog’unda SAVE butonuna şu kodları yazıyoruz.

BEGINTRAN;

IF MODI == 1 THEN
 UPDATE PERSONELBILGISI 
  WHERE PERSONELNO = PERSONELBILGISI_PERSONELNO 
   AND PHONENUMBER = PERSONELBILGISI_PHONENUMBER 
   AND MAIL = PERSONELBILGISI_MAIL;

ELSE

 IF MODI == 0 THEN
  INSERT INTO PERSONELBILGISI;
 ENDIF;

ENDIF;


IF SYS_STATUS == 1 THEN
 ROLLBACKTRAN;
 RETURN;
ENDIF;

COMMITTRAN;

IF MODI == 1 THEN
 MSG='Güncelleme İşlemi Gerçekleşti';
 MESSAGE EDU I302 WITH MSG;
ELSE

 IF MODI == 0 THEN
  MSG='Kayıt İşlemi Gerçekleşti';
  MESSAGE EDU I302 WITH MSG;
 ENDIF;
 
SHUTDOWN;

ENDIF;

Bugünkü konumuzun odaklandığı kod şu satır

IF MODI == 0 THEN
  INSERT INTO PERSONELBILGISI;
ENDIF;

Tabloya veri kaydetme yani Insert işlemini gerçekleştirmek için yapmanız gereken son derece basittir.

INSERT INTO [BağlıGridİsmi];

Sonuçlarımıza bakalım.

İşlemimiz yine başarılı bir şekilde gerçekleşti.

Referans alarak üzerinde değişiklik yapıp yeni kaydı oluşturmayı sizlere bırakıyorum.

Kolay gelsin.