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.


What's Your Reaction?

love
0
love
hate
0
hate
win
0
win
geeky
0
geeky
omg
0
omg
lol
0
lol
fail
0
fail
fun
0
fun
Murat Bilginer
21 Şubat 1992'de doğdum. Endüstri Mühendisi olarak lisansımı 2016 yılında tamamladım. Industryolog Akademi - NGenius oluşumlarının kurucusuyum. Şu anda kendi şirketim Brainy Tech ile Web ve Mobil Geliştirme, AWS, Google Cloud Platform Sistemleri İçin DevOps, Big Data Analiz ve Görselleştirme hizmetleri sunmakta ve Online Eğitimler vermekteyiz.