Aplikasi untuk kocok arisan menggunakan delphi

By FIKI -
Iseng-iseng bikin aplikasi untuk mengacak arisan menggunakan delphi. aplikasi ini sangat sederhana sekali dengan menggunakan database MS Access. 

Cara kerja aplikasi ini adalah dengan cara me-random atau mengacak data dari dalam database accsess dengan menekan tombol start . Apabila dirasa cukup mengacaknya tekan tombol stop. secara otomatis aplikasi akan berhenti dan akan menampilkan nama terahir yang diacak dan data yang terahir diacak bisa dihapus.

aplikasi ini memungkinkan juga untuk menambah anggota baru, dengan mengisi nama dan alamat dan pilih tambah. 
Tampilan aplikasinya seperti dibawah ini..




Nah kenapa hanya nama dan alamat.. Karena aplikasi ini adalah sangat sederhana untuk kebutuhan lainya bisa dikembangkan. ini hanyalah salah satu contoh gambaran aplikasi untuk mengacak arisan.


aplikasi kocok arisan dengan delphi kocok arisan dengan aplikasi delphi arisan arisan delphi aplikasi untuk mengacak arisan dengan menggunakan delphi accsess microsoft accsess mysql oracle 

Popular posts from this blog

Menampilkan tanggal fastreport delphi

By FIKI -
Image
Ada beberapa pertanyaan yang pernah saya alami sendiri mengenai tanggal di fastreport.. karena keterbatasan koneksi internet dengan mengotak atik tanpa bantuan buku dll ahirnya menemukan juga cara menampilkan tanggal di fastreport. Pernah beberapa kali bertanya dengan pertanyaan seperti ini 1. bagaimana cara membuat tanggal di fastreport delphi 2. bagaimana cara menampilkan tanggal di fastreport delphi 3. bagaimana fastreport menampilkan tanggal di delphi.  dll.... sebenarnya sangat simpel sekali untuk melakukan proses ini. Tetapi sesimpel apapun apabila belum pernah mencoba dan belum tahu caranya semua itu berubah menjadi sulit bahkan bisa sangat sulit.. Pengalaman saya dalam membuat tanggal di fastreport menggunakan delphi  1. Siapkan frxReport1, dan klik 2 kali maka akan muncul form utama fastreportnya 2. maka akan muncul seperti ini Lihat sebelah paling kiri  pilih yang ada simbol huruf A dan seret ke dalam grid form fastreportnya 3. jadi sepert
Read more

Android C2DM (Cloud to Device Message) adalah

By FIKI -
Bagi para developer sebuah fasilitas C2DM adalah sebuah fasilitas yang akan membantu dalam pengiriman data dari beberapa server ke aplikasi yang kita buat ke perangkat android. Mekanisme yang sangat mudah terdapat pada pemanggilan aplikasi yang kita buat untuk menghubungkan langsung dengan serverita gunakan, untuk pembaharuan pada aplikasi atau pengambilan data user. Fasilitas C2DM dapat menamngani semua aspek atrian pada pe san dan untuk pengiriman pada aplikasi yang sedang berjalan ke perangkat target. Beberapa karakteristik C2DM : Hal ini memungkinkan pihak ketiga dari aplikasi server dapat mengirimkan pesan rigan untuk aplikasi Android mereka. Layanan ini tidak dirancang untuk mengirimkan banyak konten pengguna melalui pesan. Sebaliknya, hal itu digunakan untuk memberitahu aplikasi bahwa da data baru di server sehingga aplikasi dapat mengambilnya.  C2DM tidak memberikan jaminan tentang pengiriman atau urutan pesan. Sementara fitur ini digunakan untuk memberitahu ap
Read more

Menambahkan data pada TreeView delphi dari database mysql

By FIKI -
Image
Siapkan dua tabel seperti gambar di atas Di delphi tambahkan button dan treeview isi button delphi dengan : procedure TF_penjualan_order.Button1Click(Sender: TObject); var   CurrentDeptID, RecordDeptID: Integer;   RootNode, DeptNode: TTreeNode; begin   CurrentDeptID := 0;   TreeView1.Items.Clear;   RootNode := TreeView1.Items.Add(nil, 'Nama Barang');   DeptNode := nil;   ZQuery1.SQL.Text := 'SELECT a.id_kategori, a.kategori, b.nama FROM kategori a INNER JOIN barang b ON (a.id_kategori=b.id_kategori) ORDER BY b.id_kategori, a.id_kategori';   ZQuery1.Open;   try     ZQuery1.First;     while not ZQuery1.Eof do     begin       RecordDeptID := ZQuery1.FieldByName('id_kategori').AsInteger;       if (DeptNode = nil) or (RecordDeptID <> CurrentDeptID) then       begin         DeptNode := TreeView1.Items.AddChild(RootNode, ZQuery1.FieldByName('kategori').AsString);         CurrentDeptID := RecordDeptID
Read more