Merhaba, Personel Yönetim Sistemini geliştirmeye kaldığımız yerden devam ediyoruz.

Bu yazımda bahsedeceğim konu MODI değişkeni.

IAS’ın kendisinin bir standart olarak oluşturduğu bu değeri standartlara uygun kod yazmak için bilmenizde fayda var.

Neden fayda var?

Çünkü çalıştığınız firmada ekiple ortak bir kod geliştirme ortamına sahipseniz belli standartlara uymak kod anlaşılırlığını artırır. Aynı zamanda firmanıza dışarıdan gelen IAS danışmanları ile doğru kodsal iletişimi kurabilmeniz, sorunların daha çabuk çözülmesini sağlamak için standartlara uygun kod geliştirmekte fayda vardır.

MODI INTEGER bir değişkendir. Görevi formlar arası geçiş yaparken hangi butona bastığımızı geçtiğimiz formda anlamamızı ve buna göre işlem yapmamızı sağlar.

Formumuza bir bakalım.

Şimdi burada Göz ile girdiğimizde farklı işlerin olmasını kalemle girdiğimiz daha farklı ve artı ile girildiğinde bambaşka işlerin olmasını istiyoruz.

İşte hangi tuşa bastığımızı hafızada tutacak olan değişkenimiz MODI dir.

MODI’nin aldığı standart değerler mevcuttur. 3 Değer alır.

Aşağıdaki resimde de bunu görüyoruz.

Şimdi o zaman şunu yapalım.

Öncelikle detay ekranımızı bir görelim.

Şunu yapacağız.

SHOW butonu ile girmek demek sadece verilere bakacağım demektir. Onun için SHOW ile gidersem SAVE butonunun ENABLE’ını false yapalım.

MODI değişkenine her yerden ulaşmak için öncelikle BEFORE metodu içinde tanımlayalım.

OBJECT:
INTEGER MODI;

SELECT * 
	FROM EDUTESTTABLE 
	WHERE 1=2 
	INTO PERSONELBILGISI;

Şimdi SHOW metodu içinde MODI değerini 2 yapacağız.

MODI=2;

IF PERSONELBILGISI_SELECTED == 1 THEN
CALL DIALOG EDUPERSON02;
ENDIF;

Geçiş yaptığımız Diyalogun AFTER kodlarında DISABLE, ENABLE durumlarını kontrol edelim.

IF MODI == 2 THEN
	SET SAVE TO DISABLE;
ELSE
	SET SAVE TO ENABLE;
ENDIF;

Kodlarla söylediğimiz şey şu MODI değeri 2 gelirse bu SHOW olarak gelmiş demektir. O zaman SAVE butonuna erişimi kapat ama yok öyle değilse o zamanda aç diyoruz.

Bir de diğerlerinin kodlarını yazalım.

MODI=1;

IF PERSONELBILGISI_SELECTED == 1 THEN
	CALL DIALOG EDUPERSON02;
ENDIF;
MODI=0;

CALL DIALOG EDUPERSON02;
SELECT *  FROM 
EDUTESTTABLE  WHERE 1=2  
INTO PERSONELBILGISI;

Tek tek sayfalarımıza bakalım.

AÇILIŞ

SEARCH

SHOW

CHANGE

NEW

İstediğimiz işlemi yaptığımıza göre bir sonraki yazımda görüşmek üzere.


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
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.