Foto pelantikan kepala desa Bangunsari kecamatan bandar kabupaten pacitan

By FIKI -
Foto-foto ini saya ambil dari album facebook Dhocumas pacitan..




















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

SMPN 1 BANDAR PACITAN ( smp negeri 1 bandar pacitan)

By FIKI -
Image
Smp negeri 1 bandar pacitan merupakan sekolah menengah pertama yang sangat bagus di kecamatan bandar.. karena prestasi dan semua hal yang menyangkut pendidikan... smp di bandar tidak hanya satu saja melainkan ada banyak smp di sana... ada smp negeri, smp pgri/ swasta, smp terbuka, dan masih banyak yang lainya.. walaupun letak strategis smp1 bandar sangat terpencill.. tapi tidak kalah dengan smp-smp yang ada di kota... seiring berjalanya waktu prestasi demi prestasi di rain oleh sekolah menengah pertaman negeri 1 bandar ini... dan sekarang ini sekolah yang dulunya biasa-biasanya saja sekarang menjadi sekolah yang berstandart nasional... hemm moga ja kelak jadi smp terbaik di pacitan.. hemmm hehehehe selain muridnya juga bapak guru / ibu gurunya juga sangat ramah, baik.. tapi ada juga sih yang galak.. hehehe  tetapi itu semua juga bertujuan untuk mendidik supaya murid smp 1 bandar kelak menjadi orang yang sukses... amieeennn... smpn 1 bandar smpn 1 bandar sm...
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