Dashboard Pelayanan dari VB6.0 – ke PHP bootstrap (Versi ke 2)

Selamat pagi …. saya kembali menyapa para pembaca setia,

Pagi ini saya mencoba berbagi tentang dashboard seperti beberapa waktu yang lalu pointnya sama, tapi yang membedakan dashboard kali ini menampilkan data yang bisa diakses public oleh teman2 unit/ruangan di rumah sakit tempat saya bekerja.

Sistemnya sama saya menggunakan VB6.0 – MSSQL kemudian saya insert ke MYSQL dan saya tampilan di PHP-Bootstrap, saya lebih banyak menampilkan grafik karena lebih ke analisa data

Lansung saja saya coba tampilkan skreenshoot dashboard pelayanan :

1. Dashboard Pelayanan – Grafik demografi berdasar usia pasien di kunjungan Rawat Inap dan Rawat Jalan. seperti ini tampilannya (seperti sebelumnya saya menggunakan data dummy) :

   

   Grafik Demografi berdasar usia Pasien

    

2. Dashboard Pelayanan – Grafik demografi berdasar agama pasien, seperti ini tampilannya :

   

   Grafik Demografi berdasar agama Pasien

    

3. Dashboard Pelayanan – Grafik demografi berdasar jenis kelamin pasien, seperti ini tampilannya :

   

   Grafik Demografi berdasar jenis kelamin Pasien

    

4. Dashboard Pelayanan – Grafik demografi berdasar wilayah atau domisili pasien, seperti ini tampilannya :

   

   Grafik Demografi berdasar wilayah atau domisil pasien

    

5. Dashboard Pelayanan – Grafik demografi berdasar pendidikan pasien, seperti ini tampilannya :

   

   Grafik Demografi berdasar pendidikan pasien

   Itulah beberapa grafik demografi yang saya tampilkan di dashboad pelayanan rumah sakit, sebenarnya selain grafik demografi yang tampilan juga beberapa grafik untuk analisa data teman-teman di unit pelayanan, yaitu grafik jumlah kunjungan rawat jalan pada hari itu, kemudian grafik kunjungan diunit penunjang pelayanan, dan akhir dari dashboard seperti tampilan dibawah ini :

 

 

 

 

 

 

 

mohon maaf saya tidak menyertakan source code, karena source sama seperti di postingan saya beberapa waktu yang lalu, yang berbeda hanya pada query insert-nya saja. demikian yang bisa saya sharingkan untuk teman-teman pembaca semoga bermanfaat dan berguna bagi teman-teman, seperti biasa jika anda berminat pada source diatas bisa saya kirimkan via email dengan terlebih dulu mengirimkan donasi untuk paketan data pengiriman – email terlebih dahulu di : indra0379@gmail.com

 

salam,

Dashboard dari VB6.0 – ke PHP bootstrap

selamat pagi semua rekan2 pembaca tercinta …

cukup lama juga ternyata saya tidak menulis di blog tercinta ini, karena situasi dan kondisi karena wabah (COVID19) yang membuat waktu saya banyak luangnya, sehingga akhirnya saya bisa menulis lagi disini.

Banyak hal yang sebenarnya mau saya sharing dan sampaikan disini, tapi coba saya mulai satu persatu sehingga semua yang terlintas (imajinasi liar) di benak saya bisa saya tuliskan disini.

Saya akan mencoba sharing tentang project saya yaitu pembuatan dashboard, karena musim…. semua laporan pasti ada dashboarnya, ini saya coba dengan project yang ada VB6.0 – MS SQL kemudian saya insert ke MYSQL dan saya tampilkan di PHP – bootstrap.

Seperti ini skreenshoot tampilan dashboard hasil karya saya :

menu login -> karena ini sifatnya dashboard laporan untuk manajemen jadi saya buat menu login untuk menjaga kerahasiaan data :

 

 

 

 

 

 

tampilan paling atas dashboard adalah keuangan pada hari ini (data dummy) :

 

 

 

 

 

 

kemudian sebagai manajemen kita harus bisa menganalisa kunjungan pasien per hari ini, apakah melebihi target atau malah sebaliknya, ini saya tampilkan dengan grafik2, untuk grafik saya buat dari yang free saja yaitu dari ChartJS, tidak masalah tampilan sederhana tapi masalahnya bilangan angkanya harus terlihat jelas untuk analisa suata sistem …

 

 

 

 

 

 

saya tampilkan juga status kamar rawat inap untuk mengetahui ketersediaan kamar

 

 

 

 

 

 

seperti ini source code yang saya buat di VB6.0 dimulai dari form load :

Private Sub Form_Load()
Tgl1.Value = Date
Tgl2.Value = Date

‘dibuat untuk otomatis (berdasar waktu/interval) konvert data dari MSSQL ke MYSQL
If Check1.Value = Checked Then
TimerRefresh.Interval = 65000
txtrefresh.Text = 65000
txtrefresh.Text = Format(txtrefresh.Text, “###,###”)
TimerRefresh.Interval = txtrefresh.Text
End If

‘koneksi database dari HIS MSSQL
Set dbNIRMALA = New ADODB.Connection
dbNIRMALA.CursorLocation = adUseClient
dbNIRMALA.Open “Provider=SQLOLEDB.1;Persist Security Info=False;User ID=’xx’ ;password= ‘xxx’;Initial Catalog=’xxx’;Data Source=’192.xx.x.xx'”

‘koneksi database dari Accounting MSSQL
Set dbKAS = New ADODB.Connection
dbKAS.CursorLocation = adUseClient
dbKAS.Open “Provider=SQLOLEDB.1;Persist Security Info=False;User ID=’xxx’ ;password= ‘xxx’;Initial Catalog=’xxx’;Data Source=’192.xxx.x.x'”

‘koneksi database dari MYSQL
Set DbOnline = New ADODB.Connection
DbOnline.CursorLocation = adUseClient
DbOnline.Open “Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=xxx;Initial Catalog=xxx” ‘password:xxxx

loaddata
LOAD2
loaddata_RI
loaddata_KAS
loaddata_KELUAR
LoadData_Demografi
TOTAL = TOTAL_KAS + TOTAL_UM
Text8.Text = Format(TOTAL, “###,###,##0”)
Text4.Text = Time
End Sub

Mungkin itu dulu source yang bisa saya share untuk lebih lengkapnya bisa dikirim via email, tapi dengan syarat bisa kirim donasi dulu untuk mengganti paketan data (ongkos kirim), untuk donasi bisa konfirmasi ke email terlebih dahulu di : indra0379@gmail.com 

 

Sekian sharing pengalaman saya membuat project dashboard dari VB6.0 – PHP, akhir kata mohon maaf lahir dan bathin, Selamat Idul Fitri 1441H.

 

salam,