Troia’da Personel Yönetim Sistemi projemize devam ediyoruz.

Bu yazımda INSERT işleminden bahsediyor olacağım. 

Senaryomuz şöyle olacak.

  1. si öncelikle bir kişiden referans alıp üzerinden değişiklik yapıp yeni kişi olarak kaydedeceğiz.
  2. si ise tamamen sıfırdan bir kişiyi ekleyip kaydedeceğiz.

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

O yüzden öncelikle NEW butonunun başlangıcta 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; */ şu 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 almayacaktır.

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

Şimdi Detay dialogunda 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 aslında 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.


muratbilginer