관계 :: 가족 관계 :: 패밀리는 DBI / DBD :: MySQL 관계 쿼리 엔진 모듈입니다.
지금 다운로드

관계 :: 가족 순위 및 요약

관계 :: 가족 태그

데이터 베이스 Perl 모듈 쿼리 엔진

관계 :: 가족 설명

관계 :: 패밀리는 DBI / DBD :: MySQL 관계 쿼리 엔진 모듈입니다. 관계 :: 패밀리는 DBI / DBD :: MySQL 관계 쿼리 엔진 Module.Synopsis # dbi, relations :: Family Script를 생성합니다. #! / usr / bin / perl 사용 dbi; 관계 :: 가족; $ dsn = "dbi : mysql : finder"; $ username = "root"; $ password = ''; $ dbh = dbi-> connect ($ dsn, $ username, $ password, {printerror => 1, raiseError => 0}); $ abstract = 새로운 관계 :: 초록 ($ dbh); $ Family = 새로운 관계 :: 가족 ($ Abstract); $ Family-> add_member (-name => '계정', -label => 'cust. 계정', -Database => '찾기', -table => '계정', -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 => '구매', -label => '구입', -Database => 'Finder', -table => '구매', -id_field => 'pur_id', -query => {-select => { 'id'=> 'pur_id', 'label'=> "concat (cust_name, '-', date_format (날짜, '% m % d, % y')"}, -from = > , -where => 'customer.cust_id = public.cust_id', -Order_by => }); $ Family-> add_lineage (-parent_name => 'customer', -parent_field => 'cust_id', -child_name => '구매', -child_field => 'cust_id'); $ Family-> add_rivalry (-brother_name => 'customer', -brother_field => 'cust_id', -sister_name => '계정', -sister_field => 'cust_id'); $ Family-> set_Cosen (-label => '고객', -IDS => '2,4'); $ Available = $ Family-> get_available (-label => '구매'); "발견 된 $ UABALY -> {COUNT} 구매 : N"을 인쇄하십시오. $ id (@ {$ will-> {ids_array}}) {print "ID : $ id label : $ 사용 가능한 -> {labels_hash} -> {$ ID} n"; } $ Family-> add_value (-name => 'cust. 계정', -sql => "concat (cust_name, '-', 잔액)", -member_names => '고객, 계정'); $ family-> add_value (-name => '유료', -sql => "(균형> 0, '아니오', '예')", -member_names => '계정'); $ Family-> add_value (-name => 'customer', -sql => 'cust_name', -member_names => '고객'); $ Family-> add_value (-name => '구매', -sql => "concat (cust_name, '-', date_format (날짜, '% m % d, % y')", -member_names => '구매 ,고객'); $ reunion = $ family-> get_reunion (-data => 유료, 구매 ', -use_labels =>'고객 ', -Order_by =>'고객, 구매 '); $ matrix = $ abstract-> select_matrix (-query => $ reunion); 인쇄 "발견". 스칼라 @ $ matrix. "값 : n"; foreach $ row (@ $ matrix) {인쇄 "고객 : $ row -> { '고객'} n"; 인쇄 "구매 : $ row -> { '구매'} n"; 인쇄 "유료 : $ row -> { '유료'} nn"; } $ dbh-> Disconnect (); 요구 사항 : · Perl.

관계 :: 가족 관련 소프트웨어