Relações :: Família Relações :: Família é um módulo de mecanismo de consulta Relacional DBI / DBD :: MySQL.
Baixe Agora

Relações :: Família Classificação e resumo

Relações :: Família Tag

base de dados Módulo Perl. mecanismo de consulta

Relações :: Família Descrição

Relações :: Family é um módulo de motor de consulta Relacional DBI / DBD :: MySQL. Relações :: Família é um DBI / DBD :: MySQL Relational Query Motor Module.synopsis # DBI, Relações :: Family Script que cria algumas consultas. #! / usr / bin / perl Use DBI; usar relações :: família; $ DSN = "DBI: MySQL: Finder"; $ username = "root"; $ Senha = ''; $ dbh = dbi-> Conectar ($ DSN, $ Nome de usuário, $ Senha, {Printerror => 1, raisError => 0}); $ resumo = novas relações :: Resumo ($ DBH); $ Family = Novas Relações :: Família ($ resumo); $ Family-> Add_Member (-Name => 'conta', -Label => 'Cust. Conta', -Database => 'Finder', -Table => 'conta', -ID_field => 'acc_id', " => {-selecect => {'ID' => 'acc_id', 'Label' => "Concat (Cust_name, '-', equilíbrio)"}, "Conta", "Conta", "CONTA"], -Onter => "Customer.cust_id = conta.cust_id", -ourder_by => "cust_name"}); $ Family-> Add_Member (-Name => 'Cliente', -Label => 'Cliente', -Database => 'Finder', -Table => 'Cliente', -ID_field => 'Cust_id', -Query => {-Selecione => {'ID' => 'cust_id', 'Label' => 'cust_name'}, -FROM => 'cliente', -order_by => "cust_name"}); $ Family-> Add_Member (-Name => 'compra', -Label => 'compra', -database => 'finder', -Table => 'compra', -id_field => 'pur_id', -Query => {-Selecione => {'ID' => 'pur_id', 'Label' => "Concat (Cust_name, '-', data_format (data, '% m% d,% y')"}, -FROM = > , -Onfore => 'Customer.cust_id = adquiry.cust_id', -ourder_by => }); $ Family-> Add_LineAge (-Parent_name => 'Cliente', -Parent_field => 'cust_id', -child_name => 'compra', -child_field => 'cust_id'); $ Family-> Add_Rivalry (-brother_name => 'Cliente', -Broter_field => 'cust_id', -sister_name => 'conta', -sister_field => 'cust_id'); $ Family-> set_chosen (-label => 'Cliente', -ids => '2,4'); $ Disponível = $ Family-> get_available (-label => 'compra'); Imprimir "Encontrado $ Disponível -> {Contagem} compras: n"; foreach $ ID (@ {$ disponíveis -> {ids_array}}) {Imprimir "ID: $ ID Label: $ Disponível -> {Labels_Hash} -> {$ ID} N"; } $ Family-> Add_Value (-Name => 'Cust. Conta', -SQL => "Concat (Cust_name, '-', equilíbrio)", -Member_names => 'Cliente, conta'); $ Family-> Add_Value (-Name => 'pago', -sql => "if (balance> 0, 'não', 'sim')", -Member_names => 'conta'); $ Family-> Add_Value (-Name => 'Cliente', -SQL => 'cust_name', -member_names => 'Cliente'); $ Family-> Add_Value (-Name => 'Compra', -SQL => "Concat (Cust_name, '-', data_format (data, '% m% d,% y')", -Member_names => ' ,cliente'); $ Reunion = $ Family-> get_reunion (-data => 'pago, compra', -Use_labels => 'Cliente', -Order_by => 'Cliente, compra'); $ matriz = $ resumo-> select_matrix (-Query => $ reunion); Imprimir "encontrado". Scalar @ $ matriz. "Valores: n"; foreach $ ROW (@ $ matriz) {Print "Cliente: $ Row -> {'Cliente'} N"; Imprimir "Compra: $ Row -> {'COMPRA'} N"; Imprimir "Pago: $ Row -> {'pago'} nn"; } $ dbh-> Desconectar (); Requisitos: · Perl.

Relações :: Família Software Relacionado