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

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...
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....
Read more

Daftar Nama Kecamatan Kelurahan/Desa & Kodepos Di Kota/Kabupaten Pacitan Jawa Timur (Jatim)

By FIKI -
1. Kecamatan Arjosari Daftar nama Desa/Kelurahan di Kecamatan Arjosari di Kota/Kabupaten Pacitan, Provinsi Jawa Timur (Jatim) : - Kelurahan/Desa Arjosari (Kodepos : 63581) - Kelurahan/Desa Borang (Kodepos : 63581) - Kelurahan/Desa Gayuhan (Kodepos : 63581) - Kelurahan/Desa Gegeran (Kodepos : 63581) - Kelurahan/Desa Gembong (Kodepos : 63581) - Kelurahan/Desa Gunungsari (Kodepos : 63581) - Kelurahan/Desa Jatimalang (Kodepos : 63581) - Kelurahan/Desa Jetis Kidul (Kodepos : 63581) - Kelurahan/Desa Karanggede (Kodepos : 63581) - Kelurahan/Desa Karangrejo (Kodepos : 63581) - Kelurahan/Desa Kedungbendo (Kodepos : 63581) - Kelurahan/Desa Mangunharjo (Kodepos : 63581) - Kelurahan/Desa Mlati (Kodepos : 63581) - Kelurahan/Desa Pagutan (Kodepos : 63581) - Kelurahan/Desa Sedayu (Kodepos : 63581) - Kelurahan/Desa Temon (Kodepos : 63581) - Kelurahan/Desa Tremas (Kodepos : 63581) 2. Kecamatan Bandar Daftar nama Desa/Kelurahan di Kecamatan Bandar di Kota/Kabupaten Pacitan, Provins...
Read more