NEARBY LOCATIONS FROM MYSQL DATABASE

By FIKI -
SELECT *, ((ACOS(SIN(-7.796986 * PI() / 180) * SIN(lat * PI() / 180) + COS(-7.796986 * PI() / 180) * COS(lat * PI() / 180) * COS((110.387938 - lon) * PI() / 180)) * 180 / PI()) * 60 * 1.1515 * 1.609344) as distance
FROM driver
HAVING distance <= 20
ORDER BY distance ASC





Popular posts from this blog

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

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