العلاقات :: عائلة
التحميل الان

العلاقات :: عائلة الترتيب والملخص

العلاقات :: عائلة العلامات

قاعدة البيانات الوحدة النمطية بيرل محرك الاستعلام

العلاقات :: عائلة وصف

العلاقات :: الأسرة هو وحدة DBI / DBD :: الخلية العلائقية محرك سؤال. العلاقات :: الأسرة هو DBI / DBD :: الخلية العلائقية سؤال محرك module.SYNOPSIS # DBI، العلاقات :: سيناريو الأسرة على أن يخلق بعض الاستفسارات. #! / البيرة / بن / استخدام بيرل DBI. العلاقات استخدام :: الأسرة؛ $ DSN = "DBI: ك: مكتشف". اسم المستخدم $ = "الجذر"؛ $ كلمة المرور = ''؛ $ DBH = DBI-> Connect ($ DSN، اسم المستخدم $، $ كلمة المرور، {printError => 1، الرجوع إلى الرجوع => 0})؛ الملخصات $ = علاقات جديدة :: مجردة ($ DBH)؛ $ الأسرة = علاقات جديدة :: الأسرة ($ مجردة)؛ $ بالأسرة> add_member (-اسم => 'الحساب'، -label => 'الزبون. الحساب "، -database =>' مكتشف، -الجدول => 'الحساب'، -id_field => 'acc_id، -الاستعلام => {-إختر => { 'الهوية' => 'acc_id'، 'تسمية' => "CONCAT (CUST_NAME، '-'، والتوازن)"}، -من => ، ، أين => "customer.cust_id = account.cust_id"، -order_by => "CUST_NAME"})؛ $ بالأسرة> add_member (-اسم => 'العملاء'، -label => 'العملاء'، -database => 'مكتشف، -الجدول =>' العملاء '، -id_field =>' cust_id، -الاستعلام => {-إختر => { 'الهوية' => 'cust_id'، 'التسمية' 'CUST_NAME' =>}، -من => 'العملاء'، -order_by => "CUST_NAME"})؛ $ بالأسرة> add_member (-اسم => 'شراء'، -label => 'شراء'، -database => 'مكتشف، -الجدول =>' شراء '، -id_field =>' pur_id، -الاستعلام => {-إختر => { 'الهوية' => 'pur_id'، 'تسمية' => "CONCAT (CUST_NAME، '-'، DATE_FORMAT (التاريخ،" M D، Y ')) "}، -من = > ،، أين => 'customer.cust_id = purchase.cust_id، -order_by => })؛ $ بالأسرة> add_lineage (-parent_name => 'العملاء'، -parent_field => 'cust_id، -child_name =>' شراء '، -child_field =>' cust_id ')؛ $ بالأسرة> add_rivalry (-brother_name => 'العملاء'، -brother_field => 'cust_id، -sister_name =>' الحساب '، -sister_field =>' cust_id ')؛ $ بالأسرة> set_chosen (-label => 'العملاء'، -ids => '2،4')؛ $ = $ متوفر بالأسرة> get_available (-label => 'شراء')؛ بطباعة "العثور $ المتاحة -> {عدد} مشتريات: ن". foreach $ معرف (@ {$ المتاحة -> {ids_array}}) {طباعة "رقم: $ معرف التسمية: $ المتاحة -> {labels_hash} -> {$} معرف ن". } $ بالأسرة> add_value (-اسم => '. الزبون الحساب "، -sql =>" CONCAT (CUST_NAME،' - '، والتوازن) "، -member_names =>' العملاء، وحساب ')؛ $ بالأسرة> add_value (-اسم => "مدفوع"، -sql => "إذا (التوازن> 0، 'لا'، 'نعم')"، -member_names => 'الحساب')؛ $ بالأسرة> add_value (-اسم => 'العملاء'، -sql => 'CUST_NAME، -member_names =>' العملاء ')؛ $ بالأسرة> add_value (-اسم => 'شراء'، -sql => "CONCAT (CUST_NAME، '-'، DATE_FORMAT (التاريخ،" M D، Y ')) "، -member_names =>' شراء ،عميل')؛ $ الشمل = $ بالأسرة> get_reunion (داتا => "مدفوع، شراء، -use_labels => 'العملاء'، -order_by => 'العملاء، شراء')؛ $ مصفوفة = $ abstract-> select_matrix (-الاستعلام => $ لم الشمل)؛ طباعة "العثور على". العددية @ $ المصفوفة. "القيم: ن". foreach $ صف (@ $ المصفوفة) {الطباعة "العميل: $ صف واحد -> { 'العملاء'} ن". طباعة "الشراء: $ صف واحد -> { 'شراء'} ن". طباعة "مدفوع: $ صف واحد -> {" مدفوع "} ن ن". } $ dbh-> قطع ()؛ متطلبات: perl.

العلاقات :: عائلة برامج ذات صلة