Relations::Family Relations::Family is a DBI/DBD::mysql Relational Query Engine module.
Download

Relations::Family Ranking & Summary

Relations::Family Tags

database Perl module query engine

Relations::Family Description

Relations::Family is a DBI/DBD::mysql Relational Query Engine module. Relations::Family is a DBI/DBD::mysql Relational Query Engine module.SYNOPSIS # DBI, Relations::Family Script that creates some queries. #!/usr/bin/perl use DBI; use Relations::Family; $dsn = "DBI:mysql:finder"; $username = "root"; $password = ''; $dbh = DBI->connect($dsn,$username,$password,{PrintError => 1, RaiseError => 0}); $abstract = new Relations::Abstract($dbh); $family = new Relations::Family($abstract); $family->add_member(-name => 'account', -label => 'Cust. Account', -database => 'finder', -table => 'account', -id_field => 'acc_id', -query => {-select => {'id' => 'acc_id', 'label' => "concat(cust_name,' - ',balance)"}, -from => , -where => "customer.cust_id=account.cust_id", -order_by => "cust_name"}); $family->add_member(-name => 'customer', -label => 'Customer', -database => 'finder', -table => 'customer', -id_field => 'cust_id', -query => {-select => {'id' => 'cust_id', 'label' => 'cust_name'}, -from => 'customer', -order_by => "cust_name"}); $family->add_member(-name => 'purchase', -label => 'Purchase', -database => 'finder', -table => 'purchase', -id_field => 'pur_id', -query => {-select => {'id' => 'pur_id', 'label' => "concat( cust_name, ' - ', date_format(date, '%M %D, %Y') )"}, -from => , -where => 'customer.cust_id=purchase.cust_id', -order_by => }); $family->add_lineage(-parent_name => 'customer', -parent_field => 'cust_id', -child_name => 'purchase', -child_field => 'cust_id'); $family->add_rivalry(-brother_name => 'customer', -brother_field => 'cust_id', -sister_name => 'account', -sister_field => 'cust_id'); $family->set_chosen(-label => 'Customer', -ids => '2,4'); $available = $family->get_available(-label => 'Purchase'); print "Found $available->{count} Purchases:n"; foreach $id (@{$available->{ids_array}}) { print "Id: $id Label: $available->{labels_hash}->{$id}n"; } $family->add_value(-name => 'Cust. Account', -sql => "concat(cust_name,' - ',balance)", -member_names => 'customer,account'); $family->add_value(-name => 'Paid', -sql => "if(balance > 0,'NO','YES')", -member_names => 'account'); $family->add_value(-name => 'Customer', -sql => 'cust_name', -member_names => 'customer'); $family->add_value(-name => 'Purchase', -sql => "concat( cust_name, ' - ', date_format(date, '%M %D, %Y') )", -member_names => 'purchase,customer'); $reunion = $family->get_reunion(-data => 'Paid,Purchase', -use_labels => 'Customer', -order_by => 'Customer,Purchase'); $matrix = $abstract->select_matrix(-query => $reunion); print "Found " . scalar @$matrix . " Values:n"; foreach $row (@$matrix) { print "Customer: $row->{'Customer'}n"; print "Purchase: $row->{'Purchase'}n"; print "Paid: $row->{'Paid'}nn"; } $dbh->disconnect(); Requirements: · Perl

Relations::Family Related Software