6.6/10 (73 أصوات )

دبيكس : : داتاموديل هي بيرل الصفوف والوحده مع النمط الشيوعي في طليعه الجمعيات دبي. نبذه في ملف myschema.pm يعلن خطه استخدام دبيكس : : داتاموديل » دبيكس : : داتاموديل -> مخطط (ميشيما ) » # ميشيما الان مجموعه بيرل اعلن مع الجداول (60 ، اسم ريتشارد اسم الرءيسيه الاولي ، العمود (د)). كل ذلك يصبح الجدول مجموعه بيرل. ميشيما -> الجدول (كو / موظف موظف emp_id () » ميشيما -> الجدول (كو) اداره شءون dpt_id () » ميشيما -> الجدول (كو) النشاط النشاط act_id () » اعلن الجمعيات الشيوعي في اسلوب ((table1 role1 multiplicity1 join1 table2) ، (...)). - ميشيما & رابطه ((كو) النشاط الانشطه emp_id *)) ، (كو) موظف موظف emp_id 1))). - ميشيما & رابطه ((كو) النشاط الانشطه dpt_id *)) ، (كو) اداره شءون dpt_id 1))). تعلن الي الرابطه ، بالاضافه الي ربط الجدول - ميشيما & رابطه ((كو) اداره الانشطه اداره الادارات *))). (كو) * انشطه الموظفين العاملين العمل))) » اعلن العمود انواع مع بعض العمال. . # التاريخ تحويل البيانات بين (155 -.. - د) والمستخدمين (dd.mm.yyyy) ميشيما - تاريخ & كولومنتيبي (= & فرومدب => افريقيا 1353 - 000 (0) = الموقع الثاني) (ددد) - (د) و (د) و 3 دولار. 2 000. (000)) ، تودب => افريقيا 1353 - 000 (0) = الموقع الثاني) (د). (د). (ددد) / 000 2 - 000 3 - 000 1) ، ( صحه => افريقيا 1353 - 000 (0) الموقع = م) (د). (د). (ددد) (() » # ? تحويل البيانات بين (0،8) والمستخدمين (80) ميشيما -> كولومنتيبي (? = & فرومدب => افريقيا 1353 - 000 (0) 100 000 *= اذا - (0)) ، تودب => افريقيا 1353 - 000 (0) / 100 = 000 - لو (0)) ، صحه => افريقيا 1353 - 000 (0) الموقع = / 1؟ د. د))) » . . وتنطبق هذه العمود انواع وبعض الاعمده بالمستخدمين تاريخ & كولومنتيبي (= & كو / d_birth () » النشاط تاريخ & كولومنتيبي (= & كو / d_begin d_end () » النشاط & كولومنتيبي (? = & كو / activity_rate () » العمود يعلن ان يتم شغل تلقاءيا في كل تحديث ميشيما -> اوتوبداتيكولومنس (= last_modif & اللجنه (000)) remote_user a. ،. اتجاه (لوكالتيمي))) » للاطلاع علي التفاصيل التي قد لا يكون عن وجهه الطريق ، اضيف طريقه جديده في الجدول الطبقه (وفي هذه الحاله ، صرح والجدول اعلانات ان يكون في بدء الطريق ، ذلك ان الجدول الطبقه المحدده قبل تبداوا الي اساليب و). مجموعه النشاط » (الفرعيه اكتيفيبيريود ونقل تقرير = 000 » 000 الذاتيه »)) d_end؟ - تقرير من 000 & (000) d_begin الذاتيه »)) d_end : منذ 000 الذاتيه »)) d_begin. ) كيف تعلن تلقاءيا الي زياده الانفاق في البيانات الاشجار النشاط & اوتوكسباند (كو) اداره الموظفين () » احتياجات : ? اعتبر



  • مرات التنزيل: 25361
  • متطلبات التشغيل:
  • الحجم: 0
  • الترخيص:
  • الاصدار : 0
  • اضيف في: 0000-00-00 00:00:00
  • اخر تحديث: 12/07/2014
  • الموقع علي الانترنت:






Description

DBIx::DataModel is a Perl module with Classes and UML-style Associations on top of DBI.

SYNOPSIS

in file "MySchema.pm"

Declare the schema
use DBIx::DataModel;
DBIx::DataModel->Schema('MySchema'); # MySchema is now a Perl package

Declare the tables with (Perl name, DB name, primary key column(s)). Each table then becomes a Perl package.

MySchema->Table(qw/Employee Employee emp_id/);
MySchema->Table(qw/Department Department dpt_id/);
MySchema->Table(qw/Activity Activity act_id/);
Declare associations in UML style ( [table1 role1 multiplicity1 join1], [table2...]).
MySchema->Association([qw/Activity activities * emp_id/],
[qw/Employee employee 1 emp_id/]);
MySchema->Association([qw/Activity activities * dpt_id/],
[qw/Department department 1 dpt_id/]);
Declare a n-to-n association, on top of the linking table
MySchema->Association([qw/Department departments * activities department/]);
[qw/Employee employees * activities employee/]);
Declare "column types" with some handlers ..
# date conversion between database (yyyy-mm-dd) and user (dd.mm.yyyy)
MySchema->ColumnType(Date =>
fromDB => sub {$_[0] =~ s/(dddd)-(dd)-(dd)/$3.$2.$1/},
toDB => sub {$_[0] =~ s/(dd).(dd).(dddd)/$3-$2-$1/},
validate => sub {$_[0] =~ m/(dd).(dd).(dddd)/});

# 'percent' conversion between database (0.8) and user (80)
MySchema->ColumnType(Percent =>
fromDB => sub {$_[0] *= 100 if $_[0]},
toDB => sub {$_[0] /= 100 if $_[0]},
validate => sub {$_[0] =~ /1?d?d/});
.. and apply these "column types" to some of our columns
Employee->ColumnType(Date => qw/d_birth/);
Activity->ColumnType(Date => qw/d_begin d_end/);
Activity->ColumnType(Percent => qw/activity_rate/);
Declare a column that will be filled automatically at each update
MySchema->AutoUpdateColumns(last_modif =>
sub{$ENV{REMOTE_USER}.", ".scalar(localtime)});

For details that could not be expressed in a declarative way, just add a new method into the table class (but in that case, Schema and Table declarations should be in a BEGIN block, so that the table class is defined before you start adding methods to it).

package Activity;

sub activePeriod {
my $self = shift;
$self->{d_end} ? "from $self->{d_begin} to $self->{d_end}"
: "since $self->{d_begin}";
}

Declare how to automatically expand objects into data trees
Activity->AutoExpand(qw/employee department/);

Requirements:
· Perl





التعليقات علي DBIx::DataModel 0.21
اضافة تعليق

تعليقات الفيسبوك

تعليقات الموقع