Attributes
Tag dapat juga terdiri dari attribute-attribute. Didalam contoh, tag “task” memiliki attribute dengan nama “id”. Sebuah attribut diikuti dengan tanda sama dengan (=) dan diikuti dengan value atau nilainya. Pada saat mendesai sebuah struktur XML, permasalahan yang selalu muncul adalah apakah sebuah data element harus menjadi attribute dari sebuah element atau menjadi sebuah sub-element.

Tidak ada aturan yang pasti, struktur element seperti apa yang harus kita anut. Akan tetapi dalam beberapa situasi, aturan-aturan dibawah ini harus dipenuhi:
• Data akan memiliki beberap sub-struktur, pada kasus dimana Anda harus menggunakan sebuah sub-element karena ia tidak boleh dimodelkan sebagai attribut.

• Data akan terdiri dari beberapa baris apabila attribut ingin dibuat sesederhana mungkin – sebuah string yang pendek tetapi mudah untuk dibaca dan digunakan.

• Data element dimungkinkan untuk muncul kembali.

• Data akan sering berubah.

XML Schema
XML tag harus bersifat extensible, dimana seorang desainer system dimungkinkan untuk menuliskan sendiri XML tag-nya dalam pendeskripsian sebuah content. Anda dapat menciptakan tag-tag yang berbeda untuk setiap format dokumen yang Anda inginkan didalam aplikasi atau sistem Anda. Tag didefinisikan menggunakan XML schema language. Sebuah schema mendefinisikan struktur dari dokumen XML. Sebuah skema juga digunakan membatasi content dari sebuah dokumen XML kedalam sebuah element, attributes, dan values tertentu. Sebuah Document Type Definition schema adalah bagian dari spesifikasi XML. Kita akan memanggil schema yang ditulis dalam bahasa ini disebut sebagai DTD. DTD ini juga mendefinisikan tag atau attribute mana yang sangat diperlukan dan mana yang bersifat optional.

Namespace
Ada beberapa kasus dimana tag atau element Anda memiliki nama yang sama. Misalnya, ada beberapa element yang mempunya nama yang sama yaitu “name”. Untuk mengatasi hal tersebut, sebuah namespace digunakan. Spesifikasi dari namespace akan digunakan oleh penulis dokumentasi untuk mengetahui schema atau DTD mana yang digunakan pada element tertentu. Namespace dapat diaplikasikan pada attribut dan juga pada elements.

Copas Dari ~> Antidws, Sahabat yang Profesional dan Terpercaya

Dalam bahasa pemrograman apapun pasti dikenal suatu mekanisme looping atau perulangan. Looping disini sangat berguna sekali untuk mengontrol jalannya program, terutama jika ada aktivitas yang berulang-ulang dan bahkan ada suatu kondisi tertentu di dalam looping tersebut. Nah, kali ini kita akan bahas mengenai mekanisme looping apa saja yang terdapat dalam Borland Delphi.
Dalam penulisan program Delphi ada kalanya tidak membutuhkan program yang terlalu panjang ketika hanya terdiri dari pengulangan dari program yang sebelumnya. Proses pengulangan suatu proses dalam batas tertentu tersebut dapat ditulis secara singkat dengan menggunakan looping. Jenis-jenis dari looping dapat dibagi sebagai berikut:
1. for…to..do dan for…downto…do
2. repeat…until
3. while…do
Untuk lebih jelasnya akan dibahas masing – masing dari proses looping tersebut beserta contoh sederhana yang akan memudahkan dalam pengaplikasiannya.
1. for…to…do dan for…down…to
Perulangan for dibagi lagi menjadi 2 jenis yaitu:
a. for…to…do
b. for…downto…do
Keduanya mempunyai fungsi yang sama dengan sintaks program seperti berikut ini.
for variable := nilai_awal to nilai_akhir do pernyataan
for variable := nilai_awal downto nilai_akhir do pernyataan
Looping for bisa digunakan untuk beberapa jenis proses pengulangan yaitu jenis pengulangan integer, pengulangan character dan pengulangan enumeration.
Contoh program:
– Pengulangan pada jenis variabel integer
var
i : integer;
begin
for i:= 1 to 5 do
showmessage (‘nilai i =’ + inttostr(i));
end;
ketika di-run:
nilai i = 1
nilai i = 2
nilai i = 3
nilai i = 4
nilai i = 5
– Pengulangan pada jenis variable character
var
i : char;
begin
for i:= ‘a’ to ‘e’ do
showmessage(‘nilai i =’ + i);
end;
ketika di-run:
nilai i = a
nilai i = b
nilai i = c
nilai i = d
nilai i = e
– Pengulangan pada jenis variable enumeration
var
kota: (surabaya,jakarta,bandung,jogja,sidoarjo);
begin
for kota:= bandung to sidoarjo do
showmessage(‘kota i =’ + inttostr(ord(kota)));
end;
ketika di-run:
kota i = 2
kota i = 3
kota i = 4
Pada enumeration akan diberikan nomor urut (ordinal type) pada masing – masing isi dari kota saat pendeklarasiannya pada bagian var. Nomor urut dimulai dari 0 sampai 4. Nomor urut surabaya adalah 0,nomor urut dari jakarta adalah 1 dan seterusnya. Karena looping dimulai dari bandung yang bernomor urut 2 maka ketika dirun yang pertama kali muncul adalah kota i = 2.
Untuk jenis looping for… downto…do hampir sama hanya saja pengulangan dilakukan secara hitungan turun.
Contoh program:
var
i : char;
begin
for i:= ‘f’ downto ‘c’ do
showmessage(‘nilai i =’ + i);
end;
ketika di-run:
nilai i = f
nilai i = e
nilai i = d
nilai i = c
2. repeat…until
Jenis looping ini digunakan untuk looping dengan sampai dengan batas yang ditentukan setelah pernyataan until. Sintaks dari jenis looping ini dapat dilihat seperti dibawah ini:
repeat pernyataan until syarat
Contoh program:
var
i,a : integer;
begin
i:=1;
repeat
a:=i*5;
showmessage(‘nilai ‘+ inttostr(i)+’ * 5 = ‘+inttostr(a));
inc(i); // inc(i)===> i=i+1
until i > 5;
end;
ketika di-run:
nilai 1 * 5 =5
nilai 2 * 5 =10
nilai 3 * 5 =15
nilai 4 * 5 =20
nilai 5 * 5 =25
Pada jenis looping repeat, nilai i diberi nilai awal dahulu sebelum masuk ke looping. Untuk menaikkan nilai i diperlukan pernyataan tambahan inc(i) atau i = i + 1, tidak seperti dalam looping jenis for yang tidak membutuhkan pernyataan untuk menaikkan nilai i.
3. while…do
Jenis looping ini hampir sama dengan jenis looping repeat…until. Beda dari kedua jenis looping ini adalah jika pada looping repeat…until dilakukan proses dahulu baru dilihat syarat mengakhiri looping masih memenuhi atau tidak. Jika memenuhi maka proses looping akan berhenti tapi kalau tidak maka looping akan terus berjalan sedangkan pada jenis looping while…do syarat melakukan looping diajukan terlebih dahulu jika memenuhi maka proses akan dilakukan tapi jika tidak maka looping tidak dilakukan.
Sintaks dari jenis looping ini adalah sebagai berikut:
while syarat do pernyataan
Contoh program:
var
i,a : integer;
begin
i:=1;
while i i=i+1
end;
end;
ketika di-run:
nilai kuadrat dari 1 adalah 1
nilai kuadrat dari 2 adalah 4
nilai kuadrat dari 3 adalah 9
nilai kuadrat dari 4 adalah 16
nilai kuadrat dari 5 adalah 25
Menghentikan proses looping
Ketika proses looping masih dilakukan kadang kala kita perlu untuk keluar dari looping berdasarkan suatu kondisi tertentu, untuk itu ada 3 cara untuk menghentikan proses looping tersebut yaitu dengan menggunakan:
1. goto
Biasanya penghentian looping dengan menggunakan sintak ini jarang digunakan. Penghentian looping dilakukan dengan pernyataan if. Jika syarat if terpenuhi maka looping berhenti dengan melompat ke label yang dibuat secara terpisah dengan program proses looping.
Contoh program:
var
i,a : integer;
label
berhenti;
begin
i:=1;
for i:=1 to 17 do
begin
a:=i*i;
showmessage (‘nilai kuadrat dari ‘+ inttostr(i)+’ adalah ‘ + inttostr(a));
if a>15 then goto berhenti;
end;
berhenti:
showmessage(‘loop berhenti saat i = ‘+inttostr(i)+’ dan kuadratnya adalah ‘+inttostr(a));
end;
ketika di-run:
nilai kuadrat dari 1 adalah 1
nilai kuadrat dari 2 adalah 4
nilai kuadrat dari 3 adalah 9
nilai kuadrat dari 4 adalah 16
loop berhenti saat i = 4 dan kuadratnya adalah 16
Pada proses tersebut looping tidak dilakukan sampai i ke-17 seperti perintah looping for…to…do, tetapi hanya hingga nilai a lebih dari 15 untuk pertama kalinya. Looping berhenti dan program melompat pada pernyataan dalam label.
2. continue
Penghentian loop ini digunakan dengan menggunakan pernyataan if . Jika pernyataan if dipenuhi maka looping tidak akan mengambil nilai tersebut tetapi meneruskan loop berikutnya.
Contoh program:
var
i : integer;
a : string;
begin
for i:=5 to 10 do
begin
if (i=6) or (i=9) then continue;
a:=a+’ ‘ +inttostr(i);
showmessage(‘a =’ + a);
end;
end;
ketika di-run:
a = 5
a = 5 7
a = 5 7 8
a = 5 7 8 10
Pada saat i = 6 maka looping tidak dilakukan, looping dilakukan kembali untuk nilai i = 7. Begitu pula pada saat i = 9.
3. break
Pernyataan ini digunakan untuk keluar dari proses looping, tanpa masuk ke pernyataan lain seperti pada goto dan juga tanpa meneruskan looping dengan menggunakan nilai selanjutnya seperti pada continue.
Contoh program:
var
i : integer;
begin
for i:=1 to 12 do
begin
if i=6 then
break;
showmessage(‘nilai i =’ + inttostr(i));
end;
end;
ketika di-run:
nilai i = 1
nilai i = 2
nilai i = 3
nilai i = 4
nilai i = 5
Looping dilakukan hanya sampai nilai i = 5. Ketika nilai i = 6 perintah break menghentikan looping.

Sumber –> Antidws, Sahabat yang Profesional dan Terpercaya

sql.add(‘select * from table where tgl=”‘+datetostr(datetimepicker1.date)+’”‘);

“seharusnya”, perintah diatas sudah benar dan dapat dijalankan dengan normal. Akan tetapi, muncul error tentang missmatch criteria expression. nah, sebagai solusinya, pakai code berikut :

sql.Add(‘select * from table where tgl=#’+formatdatetime(‘mm/dd/yyyy’,datetimepicker1.date)+’#');

sekian.

hehehe, maaf g bisa panjang lebar. nulisnya juga setengah2… tapi semoga membantu…

OK, akhir-akhir ini memang ada target yang harus diselesaikan dengan CI. sedangkan saya pribadi masih newbie di CI. Mencari materi gratis di internet adalah pilihan yang paling murah, mudah, dan cepat…

setelah mencari-cari, saya nemu tempat yang menyediakan video tutorial yang cukup lengkap. yah.. setidaknya cukuplah menjadi bekal untuk memulai pekerjaan…

untuk video tutorial bahasa inggris (17 episode) : http://net.tutsplus.com/sessions/codeigniter-from-scratch/

untuk bahasa indonesia (27 episode) : http://www.mediatutorial.web.id/search/label/FRAMEWORK%20-%20CODEIGNITER

sedangkan sumber original : http://codeigniter.com

Forum ID Reg : http://www.codeigniter-id.com/

ok, semoga manfaat. selamat belajar..

btw, title nya berlebihan g sih??

*Artikel dibuat sebagai bentuk ucapan terimakasih.

ok, uummmm….. jadi males ngetik
gini aja, untuk mengetahui apa itu CI, silakan kunjungi web resminya http://codeigniter.com/ heheh… dengan bekal pengetahuan bahasa inggris dan sedikit paham php, anda akan lebih mudah untuk berkenalan dengan CI melalui situs resminya. terutama jangan lewatkan “user guide” nya.
untuk komunitas, bisa anda kunjungi di http://www.codeigniter-id.com/

demikian, selamat belajar…

kali ini saya g akan bicara tentang database terdistribusi, delphi, ataupun mysql. Saya akan menyampaikan tentang sesuatu yang belum pernah saya bahas disini. pemrograman web dengan framework Codeigniter.

sebagai permulaan, saya akan menyampaikan tentang pengisian item dropdown dari database.

anggaplah anda punya dropdown statuspublish dari table statuspublishes yang punya field id dan nama.
di model_statuspublish anda tambahkan:

function get_all_for_options() {
$result = $this->db->get("statuspublishes");
$options = array();
foreach($result->result_array() as $row) {
$options[$row["id"]] = $row["nama"];
}
return $options;
}


di controller panggil fungsi model ini, semisal


$data["statuspublish_options"] = $this->model_statuspublish->get_all_for_options();


diviewnya gunakan (jangan lupa, load form helper) :


echo form_dropdown("statuspublish_id", $statuspublish_options);


jika ingin menambahkan nilai default selected, tambahkan sebagai parameter ke 3, sehingga menjadi seperti berikut:


echo form_dropdown("statuspublish_id", $statuspublish_options,1);


sehingga hasil output HTML akan seperti berikut:

< select name="statuspublish_id">
< option value="1" selected="selected">Publish< /option>
< option value="2">Draft< /option>
< /select>


demikian, semoga manfaat…
oya, tolong jangan cuma copas, diketik ulang, sekalian di cek kalau ada tag yang g ketulis..

referensi: http://www.codeigniter-id.com/node/927#comment-7706

yups, biasanya, kalau awal-awal belajar delphi, kita dikenalkan terlebih dahulu dengan aplikasi berbasis console dengan bahasa pascal-nya.

nah, berikut adalah contoh sederhana aplikasi kalkulator berbasis console yang biasanya dijadikan tugas dalam awal praktikum delphi.

dalam aplikasi ini, memuat beberapa contoh sederhana tentang function, procedure, percabangan if then else, dsb…

berikut tampilannya..

tidak ada source yang saya tampilkan disini.
silakan anda download source nya download disini

ingat, ini untuk belajar ya.. bukan untuk dijiplak atau “edit-kumpul”

klo ada pertanyaan, bisa lewat komen, atau bila ingin tanya jawab langsung, silakan chat bila saya Online.

ok, thats all. Thanks..

ShellExecute(Handle, ‘open’, PAnsiChar(ParamStr(0)), ”, ”, SW_SHOW);
Application.Terminate; // ato bisa pake “Close” aja

o iya, kadang restart terjadi lebih cepat daripada proses import database. jadi, kalau anda menemukan error berupa table yang belum exist, maka diperlukan jeda waktu restart. misal, “restore database berhasil, aplikasi akan restart dalam 5 detik lagi.” dan setelah 5 detik, baru aplikasi restart. untuk hal seperti ini, tentu anda bisa menambahkan komponen timer.

demikian sedikit tips. semoga bermanfaat.

kasus ini baru saja saya alami ketika saya membuat sebuah sistem keuangan. dan dari situ juga saya ada niat untuk share disini karena ternyata belum banyak yang menulis tentang ini. entah karena ini terlalu sepele sampai terlewatkan atau bagaimana saya kurang tahu. tapi, yah, semoga bermanfaat.:)

cara pembulatan tersebut cukup sederhana. algoritma yang saya pakai adalah membagi angka tersebut dengan angka 1000, kemudian mengalikannya kembali dengan angka 1000. jadi, untuk codenya kira-kira demikian:

angka := (angka div 1000) * 1000;

dimana angka adalah bilangan bertipe integer. apabila berupa bilangan real atau float, maka ditambah trunc() jadinya kira-kira begini untuk angka adalah bilangan real atau float:

angka := (trunc(angka) div 1000) * 1000;

demikian, semoga membantu.

====================

Advanced Data Export VCL is a component suite for Borland Delphi and C++ Builder that allows you to save your data in the most popular data formats for the future viewing, modification, printing or web publication. You can export data into MS Access, MS Excel, MS Word (RTF), Open XML Format, Open Document Format (ODF), HTML, XML, PDF, TXT, DBF, CSV and more! There will be no need to waste your time on tiresome data conversion – Advanced Data Export will do the task quickly and will give the result in the desired format.

Key Features

• Data export into 17 most popular formats: MS Access, MS Excel, MS Word, Open XML Format, Open Document Format (ODF), RTF, HTML, XML, PDF, TXT, DBF, CSV, SYLK, DIF, LaTeX, SQL and Windows Clipboard
• Delphi 5-7, 2005-2007, 2009, 2010, XE and C++ Builder 5-6, 2006-2007, 2009, 2010, XE support
• Export of Unicode data. Manually preset text encoding for exported data (UTF-8, UTF-16/UCS-2, UTF-32/UCS-4, Latin1, Latin2, Latin5, Latin7 and more)
• Saving data for future viewing, modification, printing or web publication
• Easy-to-use wizard allows your end-users to export data quickly
• Powerful export options for each data format
• 100% native Delphi code
• No additional libraries or software required to operate
• Detailed help system and demo application
• Powerful components and properties editors
• Setting the user formats for each field separately
• Multilanguage support

===============================================

tapi itu saya temukan di situs resminya. tentu, tidak gratis.. nah.. nah.. niat jahat pun muncul.. nah… sekarang pencarian versi gratisnya. alias bajakan..

lagi-lagi singkat cerita, q nemu di mana entah lupa. tapi yang ini sudah full source katanya. nah, trus.. em.. udah. (ga jelas banget).  ini file nya.. silakan download

DOWNLOAD EMS Advanced Data Export Component Suite 4.2.0.6.

o iya, untuk instalasi, mirip seperti instalasi zeos yang pernah saya post di situs ini. atau jika mau, ini ada installation notes nya.

INSTALLATION NOTES
——————

Component packages are named in the following way:
QExport4RT_<IDE code>
where <IDE code> stands for IDE version:
D5 = Delphi 5
D6 = Delphi 6
D7 = Delphi 7
D9 = Delphi 2005
D10 = Delphi 2006
D11 = Delphi 2007
D12 = Delphi 2009
D14 = Delphi 2010
C5 = C++Builder 5
C6 = C++Builder 6
For example, QExport4RT_D12 is a run-time package for Delphi 2009.

1. Uninstall previously installed version of EMS Advanced Data Export
Component Suite from Delphi/C++Builder IDE:

- Use the “Component\Install Packages…” menu item to open the “Packages” dialog box.
- Find EMS Advanced Data Export package in the list and delete it by clicking “Remove”.
- Confirm deletion by pressing “OK”.
- Remove previously compiled packages (if any) QExport4RT_<IDE code>.BPL and
QExport4DT_<IDE code>.BPL from your hard disk.

2. Build Run-Time Package:

- Use the “File\Open Project” menu item to open QExport4RT_<IDE code> package.
- Use the “View\Project Manager” menu item to open “Project Manager”.
- Search for QExport4RT_<IDE code> package in “Project Manager”.
- Double-click the package to select it.
- Use the “Run\Build QExport4RT_<IDE code>” menu item to build the package.

3. Install Design-Time Package:

- Use the “File\Open Project” menu item to open QExport4DT_<IDE code> package.
- Use the “View\Project Manager” menu item to open “Project Manager”.
- Search for QExport4DT_<IDE code> package in “Project Manager”.
- Double-click the package to select it.
- Use the “Run\Build QExport4DT_<IDE code>” menu item to build the package.
- Right-click the package and select “Install” from the context menu.

nah, jangan lupa seting environment nya juga….

demikian, jika mau mencoba-coba, pasti bisa kok, tanpa bertanya. tapi bila mau bertanya, boleh lewat komen atau email, karena lebih baik bertanya dari pada sesat di delphi.

thanks.