MUMPS ग्लोबल्स: एक्सट्रीम डेटाबेस प्रोग्रामिंग। भाग २

भाग 1 देखना शुरू करें।

अध्याय 2. SQL / संबंधपरक डेटाबेस बनाम MUMPS

यह अध्याय नियमित SQL रिलेशनल डेटाबेस और MUMPS- आधारित डेटाबेस के बीच मुख्य अंतर को रेखांकित करेगा।

अध्याय 1 पढ़ें यदि आपको यह समझने की आवश्यकता है कि ग्लोबल्स क्या हैं और उन्हें कैसे हेरफेर करना है।

डेटा संरचनाओं को परिभाषित करें

आइए बुनियादी बातों से शुरू करें - डेटा को परिभाषित करें। एक उदाहरण के लिए, हम एक साधारण डेटाबेस का उपयोग करेंगे जिसमें 3 टेबल होंगे:

1. ग्राहक तालिका (ग्राहक)
2. आदेश तालिका (आदेश)
3. उन चीजों की एक सूची के साथ तालिका जो एक व्यक्तिगत आदेश (ITEM) बनाती है



तालिका के नाम बोल्ड में दिखाए गए हैं, प्राथमिक कुंजियों को रेखांकित किया गया है।

ग्राहक
कनिष् य अद्वितीय ग्राहक संख्या
ग्राहक का नाम
पता ग्राहक का पता
कुल बिक्री आदेशों की कुल संख्या

आदेश
आदेश संख्या क्रम
ग्राहक संख्या (ग्राहक तालिका से विदेशी कुंजी)
आदेश दिनांक आदेश
चालान तिथि चालान करें
TotalValue आदेश मूल्य

मद
आदेश क्रम संख्या (ORDER तालिका से कुंजी के अनुरूप)।
आइटम नंबर आइटम नंबर
मूल्य ग्राहक के लिए आइटम की कीमत (सभी छूटों पर विचार)।

आरेख में एक से कई संबंधों को दिखाया गया है। प्रत्येक ग्राहक के पास कई ऑर्डर हो सकते हैं और प्रत्येक ऑर्डर में कई चीजें शामिल हो सकती हैं।

किसी विशेष ग्राहक (CUSTOMER.totalOrders) के लिए आदेशों की संख्या, ORDERS तालिका में ग्राहक द्वारा रखे गए आदेशों की कुल संख्या है, जो इसकी संख्या से पहचानी जाती हैं।

ऑर्डर मूल्य (ORDER.totalValue) सभी चीजों की लागत का योग है, प्रत्येक विशिष्ट लागत ITEM.price फ़ील्ड द्वारा निर्धारित की जाती है।

फ़ील्ड CUSTOMER.totalOrders और ORDER.totalValue उपयोगकर्ता द्वारा सीधे दर्ज नहीं किए जाते हैं - ये परिकलित फ़ील्ड हैं।

SQL / संबंधपरक डेटाबेस के लिए, इन तालिका परिभाषाओं को SQL का उपयोग करने से पहले डेटाबेस (CREATE TABLE का उपयोग करके) में लोड किया जाना चाहिए, आप रिकॉर्ड जोड़ सकते हैं, संशोधित कर सकते हैं और पुनः प्राप्त कर सकते हैं।

MUMPS उपयोग करने से पहले टेबल परिभाषाओं का उपयोग नहीं करता है, और इसलिए स्ट्रिंग्स को सीधे रिपॉजिटरी में लिखा जा सकता है बिना पूर्व निर्धारित औपचारिक रूप से परिभाषित किए।

फिर भी, यह ध्यान रखना महत्वपूर्ण है कि SQL स्कीम के माध्यम से डेटा तक पहुँचने के लिए रिलेशनल स्कीमा को MUMPS स्टोरेज पर पारदर्शी रूप से सुपरइम्पोज़ किया जा सकता है। एक आवश्यक स्कीमा मौजूदा MUMPS रिपॉजिटरी में जोड़ा जा सकता है जब यह आवश्यक हो जाता है, सामान्यीकृत रूप में रिकॉर्ड तक पहुंच प्रदान करता है (यदि संरचनाएं खुद को सामान्य करने के लिए उधार देती हैं)।

इन तीन तालिकाओं को निम्नलिखित ग्लोबल्स का उपयोग करके MUMPS में प्रस्तुत किया जाएगा:

ग्राहक तालिका

^ ग्राहक (कस्टर्नो) = नाम | पता | TotalOrders

आदेश तालिका

^ ORDER (आदेश) = custNo | orderDate | इनवॉइसडेट | TotalValue

आइटम तालिका

^ ITEM (ऑर्डरनो, आइटमनो) = मूल्य

CUSTOMER और ORDER के बीच के संबंध को वैश्विक का उपयोग करते हुए दर्शाया जाएगा:

^ ORDERX1 (custNo, orderNo) = ""

वह ग्राहक संख्या द्वारा आदेश संख्या प्रदान करेगा।

MUMPS में आप किसी भी वैश्विक नाम का उपयोग कर सकते हैं। आपके पास विकल्प भी है: प्रत्येक तालिका के लिए एक वैश्विक का उपयोग करें (जैसा हमने किया) या कई या सभी तालिकाओं के लिए एक ही वैश्विक।

उदाहरण के लिए, हम अपनी संपूर्ण संरचना के लिए एक वैश्विक का उपयोग कर सकते हैं:

^OrderDatabase(“customer”,custNo)= name_”~”_address_”~”_totalOrders ^OrderDatabase(“order”,orderNo)= custNo_”~”_orderDate_”~”_invoiceDate_”~”_totalValue ^OrderDatabase(“item”,orderNo,itemNo)=price ^OrderDatabase(“index1”,custNo,orderNo)=”” 

इस लेख के शिक्षण उद्देश्यों के लिए, हमने वैश्विक प्रति तालिका का उपयोग करना चुना।

हमने ग्लोबल्स में क्षेत्र विभाजक के रूप में टिल्ड चरित्र (~) का उपयोग करना भी चुना (आप किसी अन्य वर्ण का चयन कर सकते हैं)।

डेटाबेस में एक रिकॉर्ड जोड़ना

चलिए एक बहुत ही सरल उदाहरण से शुरू करते हैं। ग्राहक तालिका में एक नया ग्राहक जोड़ें।

एसक्यूएल

 INSERT INTO CUSTOMER (CustNo, Name, Address) VALUES (100, 'Chris Munt', 'Oxford') 

MUMPS

 Set ^CUSTOMER(100)= “Chris Munt”_"~"_"Oxford" 

"_" ग्लूइंग (सुरीले) तारों के लिए एक वर्ण है।

दाईं ओर हम एक टिल्ड प्रतीक द्वारा अलग किए गए 2 क्षेत्रों में प्रवेश किया। वैसे, किसी भी वर्ण को एक विभाजक के रूप में उपयोग किया जा सकता है, जिसमें गैर-मुद्रण योग्य वर्ण शामिल हैं।

हम लिख सकते हैं:

 Set ^CUSTOMER(100)= “Chris Munt”_$c(1)_"Oxford" 

फंक्शन $ c (1) का अर्थ है "ASCII वर्ण जिसका मूल्य 1" है।
$ c, $ char फ़ंक्शन का संक्षिप्त नाम है।

और इस मामले में, एएससीआईआई 1 चरित्र का उपयोग क्षेत्र को अलग करने के लिए किया जाएगा।

बेशक, एक वास्तविक स्थिति में, डेटा जिसे INSERT अनुरोध (या MUMPS कमांड में) में प्रतिस्थापित किया जाता है, चर में संग्रहीत किया जाता है।

एसक्यूएल

 INSERT INTO CUSTOMER (custNo, name, address) VALUES (:custNo, :name, :address) 

लगभग। अनुवादक: एएनएसआई एसक्यूएल में, पूर्ववर्ती कोलन का उपयोग चर को निर्दिष्ट करने के लिए किया जाता है।

MUMPS

 Set ^CUSTOMER(custNo)=name_"~"_address 

डेटाबेस से रिकॉर्ड प्राप्त करना

एसक्यूएल

 SELECT A.name, A.address FROM CUSTOMER A WHERE A.custNo = :custNo 

MUMPS

 Set record=$get(^CUSTOMER(custNo)) Set name=$piece(record,"~",1) Set address=$piece(record,"~",2) 

$ Get () फ़ंक्शन का उपयोग करने पर एक नोट। यह ग्लोबल्स से मूल्यों को निकालने का एक सुविधाजनक तरीका है। यदि अनुरोधित आइटम मौजूद नहीं है, तो $ get () शून्य हो जाएगी ("")।

यदि हमने $ get () का उपयोग नहीं किया था, तो हमें यह करना होगा:

 Set record=^CUSTOMER(custNo) 

यदि अनुरोधित वैश्विक तत्व मौजूद नहीं है, तो MUMPS एक रनटाइम त्रुटि लौटाएगा (यानी डेटा परिभाषित नहीं है)।

MUMPS में अधिकांश कमांड और फ़ंक्शन की तरह, आप $ get के बदले शॉर्टहैंड $ g () का उपयोग कर सकते हैं ():

 Set record=$g(^CUSTOMER(custNo)) 

डेटाबेस से एक रिकॉर्ड हटाएं

एसक्यूएल

 DELETE FROM CUSTOMER A WHERE A.custNo = :custNo 

MUMPS

 kill ^CUSTOMER(custNo) 

ध्यान दें कि इस सरल उदाहरण में अभी तक चेक नहीं हैं जो आपको डेटाबेस की तार्किक अखंडता बनाए रखने की अनुमति देते हैं। अगला, हम दिखाएंगे कि यह कैसे किया जाता है।

कई रिकॉर्ड का चयन करें

एसक्यूएल

 SELECT A.custNo, A.name, A.address FROM CUSTOMER A 

MUMPS

 s custNo=”” fs custNo=$order(^CUSTOMER(custNo)) Quit:custNo= “” do . Set record=$get(^CUSTOMER(custNo)) . Set name=$piece(record,"~",1) . Set address=$piece(record,"~",2) . Set totalOrders=$piece(record,"~",3) . ;        

ध्यान दें कि हम डॉट सिंटैक्स (डॉट-सिंटैक्स) का उपयोग करते हैं। पीरियड्स से शुरू होने वाली लाइनें डू कमांड द्वारा बुलाई गई सबरूटीन का प्रतिनिधित्व करती हैं (पहली पंक्ति का अंत देखें)

आप सब कुछ कर सकते हैं जो आपको उपप्रोग्राम के अंदर की प्रत्येक पंक्ति के साथ चाहिए, जैसा कि टिप्पणी से पता चलता है (आखिरी पंक्ति ";" से शुरू होती है);

MUMPS में $ ऑर्डर फ़ंक्शन ग्लोबल्स की शक्ति और लचीलेपन के स्तंभों में से एक है। इसके काम का सार आमतौर पर उन लोगों के लिए आमतौर पर समझ से बाहर है जो केवल SQL और संबंधपरक डेटाबेस से परिचित हैं, इसलिए अध्याय 1 में इसके बारे में अधिक पढ़ें।

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

उच्च स्तरीय डेटा एक्सेस के लिए MUMPS फ़ंक्शंस का उपयोग करना

व्यवहार में, कोड अतिरेक को पुन: उपयोग और समाप्त करने के लिए, ऊपर दिखाए गए MUMPS कमांड को फ़ंक्शन में परिवर्तित किया जाना चाहिए। ऐसे कार्यों के उदाहरण नीचे दिखाए गए हैं।

डेटाबेस में एक नया रिकॉर्ड जोड़ना

 setCustomer(custNo,data) ;    If custNo="" Quit 0 Set ^CUSTOMER(custNo)=data("name")_"~"_data("address") Quit 1 

इस फ़ंक्शन को निम्नलिखित तरीके से बुलाया जा सकता है:

 kill data ;    data (    RAM) set data("name")="Rob Tweed" set data("address")="London" set custNo=101 set ok=$$setCustomer(custNo,.data) ; $$ ,    

डेटा फ़ंक्शन के पैरामीटर से पहले बिंदु पर ध्यान दें। यह एक लिंक कॉल है। डेटा एक स्थानीय सरणी है, एक साधारण चर नहीं है, इसलिए हम इसे संदर्भ द्वारा फ़ंक्शन में पास करते हैं।

SetCustomer फ़ंक्शन किसी अन्य प्रोग्राम (उदाहरण के लिए, myFunctions) में समाहित हो सकता है। और चूंकि MUMPS में प्रोग्राम ग्लोबल्स में समाहित हैं, वैश्विक से एक फ़ंक्शन को कॉल करने के लिए, आपको $ $ setCustomer ^ myFunctions (custNo, .data) लिखना होगा।

एक उदाहरण:

 kill data ; clear down data local array set data("name")="Rob Tweed" set data("address")="London" set custNo=101 set ok=$$setCustomer^myFunctions(custNo,.data) 

$ $ SetCustomer () फ़ंक्शन को बाहरी कहा जा सकता है। OOP के संदर्भ में, यह जनता से मेल खाता है। हम इसे संदर्भित कर सकते हैं, भले ही यह किसी अन्य कार्यक्रम में निहित हो। बाहरी फ़ंक्शन कुछ प्रकार के डेटा एक्सेस के तरीके हैं।

यदि हम क्लाइंट नंबर के रूप में अशक्त हैं, तो $$ setCustomer () फ़ंक्शन शून्य (यानी गलत) देता है। अन्य मामलों में, रिकॉर्ड सहेजा जाएगा और $$ setCustomer () 1 लौटेगा (यानी सत्य)। आप यह देखने के लिए कि क्या बचत पूर्ण है या नहीं, आप ठीक चर की जांच कर सकते हैं।

चूँकि हमारे पास CUSTOMER तालिका में कुल गणना की गई है, इसलिए हम कोड में इसका समर्थन करेंगे:

 setCustomer(custNo,data) ; if custNo="" Quit 0 ;    Set data(“totalOrders”)=0 Set orderNo=”” for set orderNo=$order(^ORDERX1(custNo,orderNo)) Quit:orderNo=”” do . set data(“totalOrders”)=data(“totalOrders”)+1 set ^CUSTOMER(custNo)=data("name")_"~"_data("address")_”~”_data(“totalOrders”) Quit 1 

हम बाद में ट्रिगर अनुभागों में संगणित क्षेत्रों पर चर्चा करना जारी रखेंगे।

डेटाबेस से रिकॉर्ड प्राप्त करना

निम्नलिखित बाहरी फ़ंक्शन कस्टमर तालिका से एक पंक्ति लौटाएगा।

 getCustomer(custNo,data) ; new record kill data ; clear down data array if custNo="" Quit 0 set record=$get(^CUSTOMER(custNo)) set data("name")=$piece(record,"~",1) set data("address")=$piece(record,"~",2) set data("totalOrders")=$piece(record,"~",3) Quit 1 

इस फ़ंक्शन का उपयोग निम्नानुसार किया जा सकता है:

 S custNo=101 set ok=$$getCustomer(custNo,.data) 

यह एक स्थानीय सरणी लौटाएगा (या बल्कि, इसे बदल दें, क्योंकि यह संदर्भ द्वारा पारित किया गया है) निर्दिष्ट क्लाइंट की स्ट्रिंग से 3 फ़ील्ड्स शामिल हैं:

डेटा ("नाम")
डेटा ("पता")
डेटा ("कुल")

डेटाबेस से एक रिकॉर्ड हटाएं

निम्नलिखित बाहरी फ़ंक्शन कस्टमर तालिका से एक पंक्ति हटा देगा:

 deleteCustomer(custNo) ; if custNo="" Quit 0 kill ^CUSTOMER(custNo) Quit 1 

इस फ़ंक्शन का उपयोग निम्नानुसार किया जा सकता है:

 S custNo=101 S ok=$$deleteCustomer(custNo) 

लगभग। अनुवादक: 3 भागों में हम द्वितीयक सूचकांक, ट्रिगर और लेनदेन के बारे में बात करेंगे।

तीसरा भाग, समाप्त।