Kamis, 31 Januari 2013

Kamis, 31 Januari 2013

Siang ini saya merapikan diagram database apotek yang belum tertata  rapi, karena akan di print mangkanya saya merapikan sehingga diagram tersebut bisa enak dibaca..
Hingga sore hari, diagramnya sudah selesai, tapi belom di print, karena waktunya sudah pulang jadi akan saya print besok :)
Terimakasih :))

Rabu, 30 Januari 2013

Rabu, 30 Januari 2013

Siang ini saya membuat diagram baru di database apotek yang di perintahkan oleh pak Candra, Saya merapikan relasi 129 tabel yang terdapat dalam database apotik. Baru selesai sore hari sampek kepala saya pusing, Saat akan diprint, settingan pada print setupnya belum lengkap dan akan saya selesaikan besok lagi ..
Terimakasih :)

Selasa, 29 Januari 2013

Selasa, 29 Januari 2013

Pagi ini, ada anak siswa prakerin baru dari SMKN 5 Malang dan pagi itu juga saya mengajarkan bagaimana cara membuat blog kepada teman-teman saya yang baru :)
Siangnya saya di bantu mas Yondi untuk mengerjakan diagram database apotek dengan menggunakan jaringan kabel, sampai sore saya hanya merapikan diagramnya hanya beberapa tabel dan selanjutnya mungkin akan saya kerjakan besok, terimakasih :))

Senin, 28 Januari 2013

Senin, 28 Januari 2013

Hari ini saya mulai membuat diagram dalam database apotek ..
Sebelum itu saya mulai mengkoneksikan dengan jaringan kabel dengan cara client ke server ..
Setelah itu d ping ke cmd, yaitu agar kita bisa mengetahui apakah benar sudah tersambung apa belum ..
Terimakasih :))

Jumat, 25 Januari 2013

Jumat, 25 Februari 2013

Pagi ini, laptop saya bermasalah dengan VM ware dan Virtual Box, setelah di benahi olek Pak Candra akhirnya laptop saya dapat digunakan dengan virtual Box dan windowsnya tidak error lagi. Setelah dapat digunakan, lalu siangnya saya browsing tentang cara sharing dari windows 7 ke windows XP dan akhirnya ketemu juga, Sayangnya saat saya mencoba sharing folder, folder tersebut tidak muncul di windows XP, saya tidak tahu tata letak kesalahannya dimana, namun saya masih berusaha mencarinya, Terimakasih :)

Kamis, 24 Januari 2013

Hari ini libur Maulid Nabi Muhammad SAW :)

Rabu, 23 Januari 2013

Hari ini saya menginstall virtual box untuk menggunakan windows XP , tapi masih banyak permasalahan, kendalanya terletak pada laptop sehingga masih belum bisa digunakan .. Mungkin jumat akan saya benahi agar bisa digunakan ..

Selasa, 22 Januari 2013

Hari ini saya browsing" di internet cara" memakai virtual box ..

Selasa, 22 Januari 2013

Senin, 21 Januari 2013

Hari ini saya menginstall VM ware yang nantinya akan saya gunakan untuk membuat diagram di SQL 2000, karena hanya windows xp yang support untuk di jalankan dengan SQL 2000 untuk membuat diagram.. Terimakasih :)

Jumat, 18 Januari 2013

Hari ini saya masih mencoba kembali membuat diagram untuk database apotek di SQL 2000, dan hasilnya masih saja tetap closing program ..
Senin mungkin akan saya install vm ware dulu.. Terimakasih :)

Kamis, 17 Januari 2013

Hari ini saya membenahi fungsi escape pada form laporan yang saya kerjakan, dan alhmadulilah sudah selesai semua ..
Sorenya saya di mintai pak candra untuk membenahi posisi diagram pada database apotek, sebelum saya melakukannya, terlebih dahulu saya menginstall sql 2000, tapi saat saya kerjakan, sqlnya tidak suport pada laptop saya, saat di tambahkan pada diagram baru, selalu programnya otomatis close ..
Terimakasih :)

Rabu, 16 Januari 2013

Hari ini saya mencari bug pada form laporan yang saya kerjakan, diantaranya adalah :
1. Form Laporan Kendaraan Masuk
2. Form Laporan Kendaraan Keluar
3. Form Laporan detail Pembayaran
4. Form Laporan Rekap Pemabayaran
Ternyata masih ada yang kurang, yaitu fungsi escape untuk kembali ke menu sebelmunya :)
Mungkin besok akan saya benahi. Terimakasih :)

Selasa, 15 Januari 2013

Pagi ini saya browsing" saja di internet, siangnya saya mencari bug pada form identitas yang sudah saya kerjakan di aplikasi parkir mall :) Terimakasih :)

Senin, 14 Januari 2013

Hari ini saya browsing" tentang kalimat yang digunakan untuk installer di laporan, terimakasih :)

Jumat, 11 Januari 2013

Hari ini saya membantu mengerjakan laporan milik teman" saya yang SMK ..
Sorenya juga membantu mengerjakan form" yang belum selesai :) Terima kasih :)

Kamis, 10 Januari 2013

Kamis ini saya browsing tentang macam" software yang digunakan untuk menginstall suatu program ..
Lalu saya juga browsing" yang lainnya :)

Rabu, 9 Januari 2013

Siang ini saya mempelajari tentang Inno Isntaller, bagaimana cara kerjanya..
Sorenya saya browsing" tentang inno installer :) Terimakasih ..

Selasa, 15 Januari 2013

Rabu, 09 Januari 2013

Senin, 7 Januari 2013

Pagi ini saya mulai mengcoding lagi form laporan yang terdiri dari :
- Form Laporan Kendaraan Masuk
- Form Laporan Kendaraan Keluar
Form Laporan Detail Pemabayaran
- Form Laporan Rekap Pembayaran
Dan alhamdulilah setelah saya kerjakan sampai sore dengan bantuan teman saya Bangkit, akhirnya tugas saya selesai juga ..
Berikut ini adalah scrip laporan kendaraan masuk :


Dim RptApp As New CRAXDDRT.Application
Dim Rpt As New CRAXDDRT.Report
Dim con As New ADODB.Connection
Dim StrSql As String
Dim tanggal As String, waktu As String, waktu2 As String, tanggal2 As String

Private Sub koneksi()
If Koneksidb(serverdb, nama_db, "", "", con) = True Then
Exit Sub
Else
MsgBox "Gagal Masuk Aplikasi ! Silahkan setting database dulu !!", vbCritical, "K e s a l a h a n  L o g i n s ! ! !"
End
End If
End Sub

Private Sub DTPicker1_Change()
tanggal = Format(DTPicker1, "yyyy-mm-dd")
End Sub


Private Sub DTPicker2_Change()
tanggal2 = Format(DTPicker2, "yyyy-mm-dd")
End Sub

Private Sub Form_Load()
koneksi
End Sub

Private Sub MaskEdBox1_Change()
waktu = Format(MaskEdBox1, "hh:mm:ss")
End Sub

Private Sub MaskEdBox2_Change()
waktu2 = Format(MaskEdBox2, "hh:mm:ss")
End Sub

Private Sub XPButton1_Click()
Laporan_Masuk.Visible = False
Form1.Visible = True
wkt2 = waktu2
tgl2 = tanggal2
wkt = waktu
tgl = tanggal

jumlah2 = tgl2 & " " & wkt2
jumlah = tgl & " " & wkt

'MsgBox jumlah
'MsgBox jumlah2
     Set Rpt = RptApp.OpenReport(App.Path & "\ReportMasuk.rpt")  ' menghubungkan ke desain report
Rpt.DiscardSavedData
'StrSql = "select * from keluar where Tanggal_Keluar between '2012-12-10 08:00:00' and '2013-01-07 16:00:00'"

StrSql = "select * from masuk where Waktu_Masuk between '" & jumlah & "' and '" & jumlah2 & "'"

Set rs = con.Execute(StrSql) 'ambil data dari table  ke recordset
Rpt.Database.SetDataSource rs  ' masukan data dari recordset ke crystal report

With Form1.CRViewer1    'komponen preview

   .ReportSource = Rpt  ' ambil report
   .EnableGroupTree = False ' hiden tree
   .EnableExportButton = True  ' tampilkan tombol export
   .Zoom 100
   .ViewReport ' tampilkan
End With
End Sub

Private Sub XPButton3_Click()
Unload Me
Menu.TombolStats(0).Visible = True
Menu.TombolStats(1).Visible = True

End Sub


Jumat, 4 Januari 2013

Hari ini saya mengisi data di dalam database untuk memanggil di codingan laporan nanti ..
Sorenya saya melanjutkan coding form laporan. Terimakasih :)

Kamis, 03 Januari 2013

Kamis, 3 Januari 2013

Dan hari ini saya masih tetap menyelesaikan form laporan kendaraan masuk yang telah lama belom terselesaikan :(

Rabu, 2 Januari 2013

Hari ini awal masuk kerja di tahun baru 2013, Paginya saya browsing" di internet tentang coding DTPicker untuk menampilkan di crystall report, saya sudah menemukan codingannya .. Tetapi selalu error pada format harinya, Siangnya terus saya coba mengerjakan form laporan kendaraan masuk dan hasilnya masih nihil belum bisa menampilkan, :(
Akan saya lanjutkan besok .. Terimakasih u,u ..