Membuat Kode Otomatis Berdasarkan Tanggal

Kode otomatis sangat dibutuhkan untuk program-program yang akan kita buat karena kode ini bisa dijadikan sebagai primary key dalam database yang kita rancang.
untuk membuat kode otomatis sangat banyak caranya, disini saya akan menjelaskan cara membuat kode otomatis berdasarkan tanggal pada pemrogramman delphi, semoga dapat membantu.

- Pertama kita buat dahulu project baru pada Delphi.

- Rancang form baru seperti berikut :

- Ubah propertis componen sesuai dengan yang anda inginkan.

- Selanjutnya doubleklik pada Button1, masukan koding berikut :

var
  Tahun,Bulan,Tanggal:Word;
  Waktu:TDateTime;
  TahunNew,no,new,temp,BulanNew,TanggalNew:String;
  newno,k : integer;
begin
    Waktu:=DateTimePicker1.date;

Rencana Berbagi Ilmu "Delphi"

Artikel-artikel yang "Insaallah" minggu depan bakalan di muat di blog ini menyangkut tentang bahasa pemrograman Delphi.

semoga para newbie Delphi bisa terbantu dan buat blog walker bisasharing ilmunya ya disini biar jadi rame blognya., :D

semangat belajar delphi.,

Hari Batik Nasional

Selamat Hari Batik Nasional yang jatuh pada hari ini 02 Oktober, udah tahun ke 4 semenjak UNESCO menetapkan BATIK sebagai warisan budaya manusia untuk dunia dari INDONESIA. kita selayaknya bangga dengan batik dari sebelum tetangga kita pengen ngeclaim batik dari kita tu.

ni sedikit saya copy tentang sejarah Hari BATIK Nasional buat INDONESIA.,

Pemilihan tanggal 2 Oktober sebagai Hari Batik Nasional, mengingat pada tanggal itu Badan PBB yang membidangi Pendidikan, Ilmu Pengetahuan, dan Kebudayaan (UNESCO) secara resmi mengakui batik Indonesia sebagai warisan budaya dunia. UNESCO memasukkan batik dalam Daftar Representatif Budaya Takbenda Warisan Manusia. Pengakuan terhadap batik merupakan pengakuan internasional terhadap mata budaya Indonesia.

"Penerbitan Kepres Nomor 33 Tahun 2009 sebagai usaha pemerintah meningkatkan citra positif dan martabat bangsa Indonesia di forum internasional. Selain untuk menumbuhkan kebanggaan dan kecintaan masyarakat terhadap kebudayaan Indonesia," ungkap lama setkab itu.

Penetapan hari Batik Nasional juga dalam rangka meningkatkan kesadaran masyarakat terhadap upaya perlindungan dan pengembangan batik Indonesia. Batik sebagian besar diproduksi oleh industri kecil, sehingga dengan makin sering masyarakat memakai batik sama artinya menghidupkan usaha kecil menengah.

"Kepada kalangan institusi yang telah mewajibkan seragam batik kepada para pegawainya, pemerintah menyampaikan terima kasih dan penghargaan. Saat ini sudah ada tiga warisan budaya khas Indonesia yang diakui UNESCO sebagai warisan budaya dunia yakni batik, keris, dan wayang," ungkapnya.