🧝 🛷 ✝️ LsFusion में पदानुक्रम के साथ काम करना 😉 👩🏽‍🏫 👆🏽

विभिन्न अनुप्रयोगों में, अक्सर वस्तुओं के एक श्रेणीबद्ध प्रतिनिधित्व को लागू करने की आवश्यकता होती है। आमतौर पर, इसका उपयोग समूहों को निर्दिष्ट करके उन्हें वर्गीकृत करने के लिए किया जाता है। ये समूह गतिशील गहराई का एक पेड़ बनाते हैं, जो तब नेविगेशन, डेटा एकत्रीकरण और पैरामीटर सेटिंग के लिए उपयोग किया जाता है।

इस लेख में, मैं दिखाऊंगा कि कैसे खुले और मुक्त lsFusion मंच में इस तर्क को लागू किया जा सकता है।

एक उदाहरण के रूप में, आइए एक सरल तर्क लें जिसमें आपको विशिष्ट समूहों में वर्गीकृत वस्तुओं के तर्क को लागू करने की आवश्यकता होती है जो गतिशील गहराई का एक पदानुक्रम बनाते हैं। इस मामले में, सामान को पेड़ के एक मध्यवर्ती नोड से बांधा जा सकता है।

सबसे पहले, मानक योजना के अनुसार, उत्पाद समूह इकाई को एक साधारण फ्लैट वर्ग के रूप में घोषित करें जिसमें संपादन प्रपत्र और एक सूची हो:

CLASS Group '' ;
name '' = DATA ISTRING [ 50 ] (Group);

FORM group ''
OBJECTS g = Group PANEL
PROPERTIES (g) name

EDIT Group OBJECT g
;

FORM groups ''
OBJECTS g = Group
PROPERTIES (g) READONLY name
PROPERTIES (g) NEWSESSION NEW , EDIT , DELETE

LIST Group OBJECT g
;

NAVIGATOR {
NEW groups;
}

अब समूह से बाहर एक पदानुक्रम बनाते हैं। ऐसा करने के लिए, हम एक संपत्ति पेश करते हैं जिसमें मूल समूह का लिंक होगा:

parent = DATA Group (Group);
nameParent ' ' (Group g) = name(parent(g));

अगला, हम एक संपत्ति बनाते हैं जो दो समूहों के बीच संबंध को पुन: निर्धारित करेगा:

level '' (Group child, Group parent) =
RECURSION 1l IF child IS Group AND parent = child
STEP 2l IF parent = parent($parent) MATERIALIZED ;

RECURSION ऑपरेटर किस सिद्धांत पर काम करता है , मैं इस लेख में वर्णन नहीं करूंगा, लेकिन स्तर की संपत्ति 2 "संबंधित बच्चे के पेड़ में बच्चे और माता - पिता के बीच पथ की लंबाई" की डिग्री तक वापस आ जाएगी। MATERIALIZED इंगित करता है कि प्लेटफ़ॉर्म को इसे एक अलग तालिका में संग्रहीत करना चाहिए, जहां जुड़े नोड्स के प्रत्येक जोड़े के लिए संबंधित कॉलम में स्तर मान के साथ एक अलग रिकॉर्ड होगा। पेड़ की संरचना में किसी भी परिवर्तन के साथ, यह तालिका स्वचालित रूप से फिर से जुड़ जाएगी।

उदाहरण के लिए, ऐसे पेड़ के लिए:

तालिका इस तरह दिखाई देगी:

इसमें, Key0 वंशज कोड है, और Key1 पेरेंट कोड है। इस तालिका में प्रविष्टियों की संख्या पेड़ की औसत गहराई के समूहों की संख्या के लगभग बराबर होगी। इस तरह की भंडारण योजना इसमें उपयोगी होगी, यदि आपको समूह के सभी वंशजों की गणना करने की आवश्यकता है, तो आपको सीटीई अनुरोधों का सहारा नहीं लेना होगा, लेकिन आप इस तालिका के लिए सामान्य जॉइन का उपयोग कर सकते हैं।

इसके अलावा, निर्मित संपत्ति के आधार पर, समूह के विहित नाम की गणना की जा सकती है:

canonicalName ' ' (Group group) =
GROUP CONCAT name(Group parent), ' / ' ORDER DESC level(group, parent) CHARWIDTH 50 ;

उदाहरण के लिए, उपरोक्त चित्र में मिल्क समूह के लिए, विहित नाम ऑल / किराने का सामान / डेयरी / दूध होगा । इंटरफ़ेस का निर्माण करते समय इस गुण (वर्णों में) के लिए किस चौड़ाई का उपयोग किया जाए, यह बताने के लिए CHARWIDTH को निर्दिष्ट किया गया है।

अब हम नए बनाए गए गुणों के साथ समूहों को देखने और संपादित करने के लिए फ़ॉर्म का विस्तार करेंगे:

EXTEND FORM group
PROPERTIES (g) nameParent, canonicalName
;

EXTEND FORM groups
PROPERTIES (g) READONLY nameParent, canonicalName
;

एक फ्लैट रूप में समूहों की सूची के साथ एक फॉर्म इस तरह दिखाई देगा:

समूहों का तर्क पूरा होने के बाद, इकाई जोड़ें:

CLASS Product '' ;
name '' = DATA ISTRING [ 50 ] (Product);

उत्पाद समूह के लिए एक उत्पाद लिंक बनाएँ जिसमें वह है:

group '' = DATA Group (Product);
canonicalNameGroup ' ' (Product p) = canonicalName(group(p));

अंत में, हम माल दर्ज करने के लिए एक फॉर्म तैयार करेंगे, जिसमें दो तत्व होंगे: समूहों का एक पेड़ और माल की एक सूची। चयनित ट्री समूह के लिए, केवल वे उत्पाद जो चयनित नोड के किसी भी वंशज के हैं, सूची में प्रदर्शित किए जाएंगे। सबसे पहले, एक फॉर्म घोषित करें और समूहों की सूची के साथ इसमें एक पेड़ जोड़ें:

FORM products ''
TREE groups g = Group PARENT parent
PROPERTIES READONLY name(g)
;

TREE कमांड का उपयोग करते हुए, एक पेड़ को समूह वर्ग की वस्तुओं से बनाया जाता है, जिसकी पदानुक्रम पहले की मूल संपत्ति द्वारा निर्धारित की जाती है।

नेविगेटर में फ़ॉर्म जोड़ें:

NAVIGATOR {
NEW products;
}

इस उदाहरण में, माल का इनपुट और संपादन अलग-अलग संवादों के माध्यम से नहीं, बल्कि सीधे फॉर्म में ही किया जाएगा। ऐसा करने के लिए, चयनित समूह के संदर्भ में उत्पाद बनाने के लिए एक क्रिया बनाएं:

newProduct '' (Group g) {
NEW p = Product {
group(p) <- g;
}
}

अब, पहले से बनाए गए फॉर्म पर, संपादन योग्य कॉलम वाले उत्पादों की सूची जोड़ें:

EXTEND FORM products
OBJECTS p = Product
PROPERTIES (p) name, canonicalNameGroup
FILTERS level(group(p), g)
;

माल जोड़ने और हटाने के लिए फॉर्म बटन पर फेंकें:

EXTEND FORM products
PROPERTIES newProduct(g) DRAW p TOOLBAR , DELETE (p)
;

चूंकि एक्शन न्यूप्रोड को उत्पादों के एक समूह के लिए परिभाषित किया गया है, इसलिए आपको स्पष्ट रूप से संकेत देना चाहिए कि इसे उत्पादों की सूची (पी) के साथ टूलबार में जोड़ा जाना चाहिए।

यह डिज़ाइन को कॉन्फ़िगर करने के लिए रहता है ताकि पेड़ बाईं ओर प्रदर्शित हो, और उत्पादों की सूची दाईं ओर हो, और उनके बीच एक विभाजक हो, जिसके साथ आप वस्तुओं का आकार बदल सकते हैं:

DESIGN products {
OBJECTS {
NEW pane {
type = SPLITH ;
fill = 1 ;
MOVE BOX ( TREE groups);
MOVE BOX (p);
}
}
}

अंतिम रूप इस तरह दिखाई देगा:

उत्पादों और समूहों के पदानुक्रम के निर्माण के बाद, अक्सर किसी भी स्तर पर कुछ पैरामीटर सेट करने की आवश्यकता होती है। इसके अलावा, निम्न पदानुक्रम निर्दिष्ट है, उच्च इसका मूल्य। उदाहरण के लिए, यदि डेयरी समूह 30 पर सेट है, और मिल्क समूह 20 पर सेट है, तो अंतिम को चुना जाना चाहिए।

मान लीजिए आप इस तरह से प्रीमियम विकल्प को परिभाषित करना चाहते हैं। ऐसा करने के लिए, पहले समूह के लिए उपयुक्त संपत्ति बनाएँ:

markup ', %' = DATA NUMERIC [ 10 , 2 ] (Group);

वांछित मूल्य खोजने के लिए, अंतिम मूल्य के विकल्प के साथ समूह का उपयोग करें:

parentMarkup ' ( ), %' (Group child) =
GROUP LAST markup(Group parent) ORDER DESC level(child, parent) WHERE markup(parent);

सामान्य भाषा में अनुवादित, यह अभिव्यक्ति शीर्ष समूह ( समूह माता-पिता ) पर अंतिम ( LAST ) मार्कअप का पता लगाती है , जिससे यह दूरी ( ORDER DESC स्तर (बच्चे, माता-पिता) ) के लिए कम होती है, जिसके लिए यह मार्कअप है दिया ( WHERE मार्कअप (मूल) )। यहां मैं यह नोट करना चाहता हूं कि कैसे lsFusion प्राकृतिक भाषा से मेल खाती है।

समूह ट्री में उत्पाद रूप में ऊपर निर्मित गुण जोड़ें:

EXTEND FORM products
PROPERTIES (g) markup, parentMarkup READONLY
;

मान लीजिए कि किसी उत्पाद के लिए सीधे प्रीमियम सेट करने की आवश्यकता है, और यह समूह के लिए प्रीमियम से अधिक होना चाहिए। ऐसा करने के लिए, पहले उत्पाद के लिए प्राथमिक संपत्ति बनाएं:

dataMarkup ' , %' = DATA NUMERIC [ 10 , 2 ] (Product);

फिर हम एक संपत्ति की घोषणा करते हैं जो उत्पाद से प्रीमियम लौटाएगा, यदि कोई निर्दिष्ट है, या समूह से प्रीमियम है:

markup ', %' (Product p) = OVERRIDE dataMarkup(p), parentMarkup(group(p));

उसके बाद, दोनों गुणों को फ़ॉर्म में जोड़ें:

EXTEND FORM products
PROPERTIES (p) dataMarkup, markup READONLY
;

समूहों और उत्पादों के लिए प्रीमियम सेट करने का तंत्र इस तरह दिखेगा:

निष्कर्ष

उपरोक्त लेख में, हम सामानों के तर्क को बनाने में सक्षम थे, उन्हें गतिशील गहराई के पदानुक्रम के साथ समूहों में मिलाएं, और उपयोगकर्ता को किसी भी स्तर पर प्रीमियम सेट करने की क्षमता प्रदान करें। यह सब कोड की लगभग 70 महत्वपूर्ण पंक्तियों को ले गया। आप यह कोशिश कर सकते हैं कि यह ऑनलाइन कैसे काम करता है, साथ ही साइट के संबंधित अनुभाग (प्लेटफ़ॉर्म टैब) में कोड में अपने बदलाव करें। यहां संपूर्ण स्रोत कोड है जिसे आपको उपयुक्त फ़ील्ड में पेस्ट करना है:

स्रोत कोड

CLASS Group '' ;
name '' = DATA ISTRING [ 50 ] (Group);

FORM group ''
OBJECTS g = Group PANEL
PROPERTIES (g) name

EDIT Group OBJECT g
;

FORM groups ''
OBJECTS g = Group
PROPERTIES (g) READONLY name
PROPERTIES (g) NEWSESSION NEW , EDIT , DELETE

LIST Group OBJECT g
;

NAVIGATOR {
NEW groups;
}

parent = DATA Group (Group);
nameParent ' ' (Group g) = name(parent(g));

level '' (Group child, Group parent) =
RECURSION 1l IF child IS Group AND parent = child
STEP 2l IF parent = parent($parent) MATERIALIZED ;

canonicalName ' ' (Group group) =
GROUP CONCAT name(Group parent), ' / ' ORDER DESC level(group, parent) CHARWIDTH 50 ;

EXTEND FORM group
PROPERTIES (g) nameParent, canonicalName
;

EXTEND FORM groups
PROPERTIES (g) READONLY nameParent, canonicalName
;

CLASS Product '' ;
name '' = DATA ISTRING [ 50 ] (Product);

group '' = DATA Group (Product);
canonicalNameGroup ' ' (Product p) = canonicalName(group(p));

FORM products ''
TREE groups g = Group PARENT parent
PROPERTIES READONLY name(g)
;

NAVIGATOR {
NEW products;
}

newProduct '' (Group g) {
NEW p = Product {
group(p) <- g;
}
}
EXTEND FORM products
OBJECTS p = Product
PROPERTIES (p) name, canonicalNameGroup
FILTERS level(group(p), g)
;

EXTEND FORM products
PROPERTIES newProduct(g) DRAW p TOOLBAR , DELETE (p)
;

DESIGN products {
OBJECTS {
NEW pane {
type = SPLITH ;
fill = 1 ;
MOVE BOX ( TREE groups);
MOVE BOX (p);
}
}
}

markup ', %' = DATA NUMERIC [ 10 , 2 ] (Group);

parentMarkup ' ( ), %' (Group child) =
GROUP LAST markup(Group parent) ORDER DESC level(child, parent) WHERE markup(parent);

EXTEND FORM products
PROPERTIES (g) markup, parentMarkup READONLY
;

dataMarkup ' , %' = DATA NUMERIC [ 10 , 2 ] (Product);
markup ', %' (Product p) = OVERRIDE dataMarkup(p), parentMarkup(group(p));

EXTEND FORM products
PROPERTIES (p) dataMarkup, markup READONLY
;

ऊपर वर्णित टेम्पलेट को गुणों में अतिरिक्त मापदंडों को जोड़कर विभिन्न तरीकों से संशोधित और उपयोग किया जा सकता है। उदाहरण के लिए, ईआरपी प्रणाली के एक कार्यान्वयन में , समूहों और वस्तुओं के लिए प्रीमियम इस तरह से वैश्विक स्तर पर निर्धारित नहीं किए जाते हैं, बल्कि प्रत्येक प्रकार की कीमत के लिए अलग-अलग होते हैं। इसके अलावा, जटिलता में कार्यान्वयन ऊपर वर्णित उदाहरण से अलग नहीं है।

LsFusion में पदानुक्रम के साथ काम करना

निष्कर्ष

More articles: