SQLite का उपयोग करके एक साधारण Tcl / Tk विंडोज एप्लीकेशन लिखना

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

प्रस्तावना

मेरे पास संस्थान में एक कार्य था: एक छोटे से आवेदन को लिखने के लिए एक प्रयोगशाला कार्य के रूप में जो एक निश्चित मात्रा में संरचित डेटा के साथ संचालित होता है। किसी भी दुभाषियों, डेटाबेस, फ्रेमवर्क या किसी अतिरिक्त सॉफ़्टवेयर की स्थापना की आवश्यकता के बिना, एप्लिकेशन को विंडोज के तहत चलना चाहिए। डेटा संरचना ऐसी है कि उन्हें रिलेशनल डेटाबेस में संग्रहीत करना सुविधाजनक है। पीएल के अधिक मुफ्त विकल्प और किसी भी कंप्यूटर पर आसान लॉन्च के लिए आवश्यकता की अनुपस्थिति के साथ, आदत से बाहर मैं PHP + MySQL में सब कुछ लिखूंगा, लेकिन यहां मुझे अन्य तरीकों की तलाश करनी थी।
अपने साथियों से यह पूछने के बाद कि इस समस्या को कैसे हल किया जाए, मैंने पाया कि वे मुख्य रूप से डेल्फी / विज़ुअल बेसिक में स्टोरेज के लिए सीएसवी जैसी फाइलों का उपयोग करते हुए लिखते हैं। मैं भारी सिस्टम का उपयोग नहीं करना चाहता था और एसक्यूएल को मना नहीं करता था। और प्रेरणा आई: लेकिन मैं काम पर लगभग हर दिन टीसीएल का उपयोग करता हूं! जानकारी के लिए एक संक्षिप्त खोज के बाद, यह पाया गया कि यह हमारी समस्या को हल करने के लिए एकदम सही है।

निष्पादन योग्य विंडो में टीसीएल कोड चालू करना

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

1. डाउनलोड करें और TkWrap को अनपैक करें
2. परिणामी संग्रह में तीन फाइलें हैं, हम fullwrap.exe में रुचि रखते हैं, क्योंकि केवल यह SQLite के साथ काम का समर्थन करता है। इसे चलाएं: fullwrap.exe hello.tcl -o hello.exe
   hello.tcl स्रोत कोड के साथ एक पूर्व-तैयार फ़ाइल है, hello.exe निष्पादन योग्य फ़ाइल का नाम है जो हमें आउटपुट पर मिलेगा।
3. बनाए गए hello.exe को चलाएं और किए गए कार्य के परिणामों का आनंद लें।

बेशक, प्रशंसा करने के लिए कुछ करने के लिए, पहले कुछ लिखना आवश्यक है। अब TCL कोड के बारे में।

TCL से SQLite के साथ काम करना

SQLite एक लाइटवेट एम्बेडेड रिलेशनल डेटाबेस (विकिपीडिया से उद्धृत) है। इसका मतलब है कि हम बिना किसी डेटाबेस सर्वर को शुरू किए बिना आसानी से SQL के सभी प्रसन्नता का उपयोग कर सकते हैं। आपको क्या चाहिए
टीसीएल से SQLite के साथ काम करने का विस्तृत विवरण आधिकारिक SQLite वेबसाइट पर पाया जा सकता है। मैं मुख्य बिंदुओं का मुफ्त अनुवाद दूंगा:
sqlite3 dbcmd database-name कमांड हमें डेटाबेस-नाम डेटाबेस से जोड़ता है (यदि कोई मौजूद नहीं है, तो यह स्वचालित रूप से बनाया जाएगा)। dbcmd कनेक्शन पहचानकर्ता है जिसका हमने आविष्कार किया था। इस कमांड को निष्पादित करने के बाद, dbcmd कमांड विभिन्न तरीकों के साथ हमारे लिए उपलब्ध हो जाती है (जिनमें से कुल 22 हैं)। उदाहरण के लिए, केवल सबसे लोकप्रिय, स्पष्ट पर विचार करें:
dbcmd eval sql ?array-name ? ?script?
आदेश SQL कोड sql निष्पादित करता है और, यदि अंतिम पैरामीटर छोड़ दिया जाता है, तो निष्पादन का परिणाम देता है। पंक्तियों के माध्यम से जाने के लिए (जब लाने के लिए), आप कुछ इस तरह का उपयोग कर सकते हैं:
db1 eval {SELECT * FROM t1 ORDER BY a} values {
parray values
puts ""
}
तालिका t1 की प्रत्येक पंक्तियों के लिए (निश्चित रूप से, यह इसके लिए मौजूद होना चाहिए) इस पंक्ति के मानों से युक्त एक साहचर्य सरणी बनाई जाएगी और प्रदर्शित की जाएगी।

हम अपना आवेदन लिख रहे हैं

तो, एक उदाहरण: Tcl / Tk पर एक छोटा अनुप्रयोग जो आपको हमारे डेटाबेस में एक मनमाना sql-request निष्पादित करने की अनुमति देता है।
proc do_query {} {
upvar query_res query_res
set ret [query [.querytext get 0.0 end]]
set query_res [lindex $ret 1]
if {[lindex $ret 0] !=0} {
.res configure -fg red ;# ,
} {
.res configure -fg black
}
}

proc query {text} { ;# sql- , (0 ) :
upvar ourdb ourdb
set errcode [catch {ourdb eval $text} ret]

return [list $errcode $ret]
}
sqlite3 ourdb ourdb;#
wm title . " SQLite"
label .query -text " ourdb:" -compound center
text .querytext -width 100 -height 6
button .execute -text " " -command {do_query}

label .restitle -text ":" -compound center
label .res -textvariable query_res -wraplength 200
button .exit -text -command exit
. configure -padx 10 -pady 10 ;#
pack .query .querytext .execute .restitle .res .exit -expand yes ;#

इस कोड को सहेजने और ऊपर वर्णित TkWrapper को सेट करने के बाद, हम अपना आवेदन प्राप्त करते हैं:

संदर्भ

टीसीएल के बारे में और अधिक पढ़ें: http://tmml.sourceforge.net/doc/tcl/
Tk: http://linux.yaroslavl.ru/docs/prog/tcltk/kk.html का उपयोग करके एक ग्राफ़िकल इंटरफ़ेस बनाने के बारे में