GTK2 :: EX :: المواضيع :: DBI تحقيق DBI غير متزامن مثل وظيفة تطبيقات GTK2-PERL باستخدام Perl IthReads
التحميل الان

GTK2 :: EX :: المواضيع :: DBI الترتيب والملخص

GTK2 :: EX :: المواضيع :: DBI العلامات

الوحدة النمطية بيرل بيرل GTK2 DBI غير متزامن بيرل IthReads. anthreads.

GTK2 :: EX :: المواضيع :: DBI وصف

تحقيق DBI غير المتزامن مثل تطبيقات GTK2-PERL باستخدام Perl IthReads GTK2 :: EX :: المواضيع :: DBI هي وحدة بيرل التي ستساعدك على تحقيق هذه الوظيفة من خلال استخدام Perl IthReads. يتم تحقيق وظيفة DBI غير متزامنة مثل استخدام عمليات الاسترجاعات من Threads.Synopsis استخدم GLIB QW (صحيح خطأ)؛ استخدام GTK2 QW / -Init -Threads-init /؛ استخدم GTK2 :: EX :: المواضيع :: DBI؛ استخدام QW المخزنة (تجميد ذوبان الجليد)؛ بلدي $ mythread = gtk2 :: ex :: dbi-> جديد ({dsn => 'dbi: mysql: اختبار: localhost'، user => 'الجذر'، passwd => "اختبار"، ATT => { الرجوع => 1، AutoCommit => 0}})؛ استعلام $ $ = $ mythread-> register_query (undef، \ call_sql، \ call_back)؛ $ mythread-> ابدأ ()؛ بلدي زر $ = gtk2 :: button-> جديد ("جلب البيانات من الجدول باستخدام نمط")؛ زر $-> Signal_Connect (النقر => SUB {My Pattern $ = $ Entry- $ retty-> get_text ()؛ # احصل على النمط $ query-> تنفيذ ()؛})؛ # يتم استدعاء هذه الوظيفة من داخل الخيط الفرعي call_sql {بلدي ($ dbh، $ sqlparams) =_؛ بلدي params $ = ذوبان الجليد $ sqlparams؛ بلدي $ sth = dbh-> تحضير (qq {# استعلام طويل معقد طويل يستغرق وقتا طويلا لإكمال تحديد * من xxx حيث yyy مثل؟ الحد 1000})؛ $ sth-> تنفيذ (''. Params $ Params -> . '')؛ بلدي @ result_array؛ بينما (بلدي @ بلدي = $ sth-> fetchrow_array ()) {دفع @ result_array، \ aare؛ } إرجاع \ result_array؛ } # هذه الوظيفة يتم استدعاؤها من داخل الموضوع بعد تنفيذ SQL Call_back SQL Call_Back {بلدي ($ الذاتي، $ fure_array) = @؛ @ {$ الشريعة -> {data}} = ()؛ # سنقوم بملء أبسط مع البيانات foreach بلدي X $ x (ذوبان الجليد $ _array) {push @ $ slist -> {data}}، @ $ x؛ } } متطلبات: perl.

GTK2 :: EX :: المواضيع :: DBI برامج ذات صلة