Hari ini saya mencari cara supaya memperbesar ukuran font dan merubah font. . . .
dan mencobanya tapi masih belum bisa. . .
dan mencobanya tapi masih belum bisa. . .
Rabu, 26 Desember 2012
0
Senin, (24/12/2012)
Hari ini saya diskusi dengan tim dan pak candra untuk men-
diskusikan struk yang di pakai....
yang di diskusikan yang pertama :
diskusikan struk yang di pakai....
yang di diskusikan yang pertama :
- printer apa yang di pakai
- kertas ukuran berapa
- desain struk
Minggu, 23 Desember 2012
0
Jum'at, (21/12/2012)
Hari ini saya melanjutkan tugas membuat struk setelah berhasil mencoba di printer metrik. .
0
Kamis, (20/12/2012)
Hari ini saya membuat script Cetak struk. . .
Tugas saya yang kemaren membuat script hapus udah selesai . .
Tugas saya yang kemaren membuat script hapus udah selesai . .
Rabu, 19 Desember 2012
Selasa, 18 Desember 2012
0
Selasa, (18/12/2012)
Hari ini saya bertanya ke pak candra untuk meletakkan update data. .
pada waktu menginputkan no kendaraan lalu enter pertama untuk menampilkan data dan enter kedua untuk menyimpan data. .
Jumat, 14 Desember 2012
0
Jum'at, (14/12/2012)
Hari ini saya mengatur shortcut , sedikit membenahi script function untuk di pindah di module , mengatur posisi-posisi pada form transaksi keluar dan sedikit membantu teman mengcoding. .
0
Kamis, (13/12/2012)
Hari ini saya mengatur Enabled true/false dari form Keluar, membuat format tanggal supaya tidak ada PM/AM dan sedikit membantu teman mengcoding. . . .
0
Rabu, (12/12/2012)
Kemarin udah Buat function menghitung selisi waktu. . .
Hari ini saya membuat function Menghitung biaya dari selisi waktu
di bawah ini contoh functionnya. . .
-----------------------------------------------------------------
Function HitungBiaya(selisih As Double, kendaraan As String) As Double
Dim wa, ws, TS, ta, hasil As Double
Dim rst As ADODB.Recordset
Set rst = con.Execute("select * from kendaraan where kd_kendaraan = " & kendaraan & " ")
If Not rst.EOF Then
wa = rst.Fields!waktu_awal
ws = rst.Fields!waktu_selanjutnya
TS = rst.Fields!tarif_selanjutnya
ta = rst.Fields!tarif_awal
'MsgBox selisih
hasil = Round((selisih - wa) / ws) * TS + ta
'MsgBox hasil
HitungBiaya = hasil
End If
End Function
-----------------------------------------------------------------
Semoga Berhasil. . .
GOOD LUCK. . . .
Hari ini saya membuat function Menghitung biaya dari selisi waktu
di bawah ini contoh functionnya. . .
-----------------------------------------------------------------
Function HitungBiaya(selisih As Double, kendaraan As String) As Double
Dim wa, ws, TS, ta, hasil As Double
Dim rst As ADODB.Recordset
Set rst = con.Execute("select * from kendaraan where kd_kendaraan = " & kendaraan & " ")
If Not rst.EOF Then
wa = rst.Fields!waktu_awal
ws = rst.Fields!waktu_selanjutnya
TS = rst.Fields!tarif_selanjutnya
ta = rst.Fields!tarif_awal
'MsgBox selisih
hasil = Round((selisih - wa) / ws) * TS + ta
'MsgBox hasil
HitungBiaya = hasil
End If
End Function
-----------------------------------------------------------------
Semoga Berhasil. . .
GOOD LUCK. . . .
Selasa, 11 Desember 2012
0
Selasa, (11/12/2012)
Hari ini melanjutkan tugas form keluar aplikasi parkir yang sadah 70% sekarang saya mencari cara untuk menghitung selisi waktu masuk dan waktu keluar. . . .
akhirnya saya bisa membuat selisi waktu
menggunakan function seperti di bawah ini. . .
-----------------------------------------------------------------
Function SelisihHariJam(ByVal Awal As Date, _
ByVal Akhir As Date) As String
Dim Detik As Long, hari As Long, Jam As Long
Dim JamLengkap As String
If Awal > Akhir Then
MsgBox "Tanggal dan waktu awal harus lebih kecil " _
& vbCrLf & _
"dari pada tanggal dan waktu akhir", _
vbCritical, "Peringatan"
Exit Function
End If
'Tampung dalam durasi satuan terkecil, yaitu: DETIK
Detik = DateDiff("s", Awal, Akhir)
'Hitung jumlah jam dgn cara membagi 3600
'(backslash ("\") supaya menghasilkan nilai Integer
'tanpa pembulatan ke atas)
Jam = Detik \ 3600
'Kalo jumlah jam lebih besar dari 23 artinya: lebih
'dari 1 hari
If Jam > 23 Then
'Hitung jumlah hari dgn cara membaginya dengan 24
hari = Jam \ 24
'Hitung Durasi Jam dalam hh:mm:ss
JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
Else 'Kalo jumlah jam <= 23
hari = 0 'maka jumlah hari = nol
'Hitung Durasi Jam dalam hh:mm:ss
JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
End If
If hari = 0 Then 'Kalo jumlah hari = 0
'Tampung hasil akhirnya
SelisihHariJam = JamLengkap
Else 'Kalo jumlah hari > 0, tampilkan jumlah harinya
'Tampung hasil akhirnya
SelisihHariJam = hari & " " & JamLengkap
End If
Exit Function
End Function
-----------------------------------------------------------------
selamat mencoba semoga berhasil. . . .
GOOD LUCK....
akhirnya saya bisa membuat selisi waktu
menggunakan function seperti di bawah ini. . .
-----------------------------------------------------------------
Function SelisihHariJam(ByVal Awal As Date, _
ByVal Akhir As Date) As String
Dim Detik As Long, hari As Long, Jam As Long
Dim JamLengkap As String
If Awal > Akhir Then
MsgBox "Tanggal dan waktu awal harus lebih kecil " _
& vbCrLf & _
"dari pada tanggal dan waktu akhir", _
vbCritical, "Peringatan"
Exit Function
End If
'Tampung dalam durasi satuan terkecil, yaitu: DETIK
Detik = DateDiff("s", Awal, Akhir)
'Hitung jumlah jam dgn cara membagi 3600
'(backslash ("\") supaya menghasilkan nilai Integer
'tanpa pembulatan ke atas)
Jam = Detik \ 3600
'Kalo jumlah jam lebih besar dari 23 artinya: lebih
'dari 1 hari
If Jam > 23 Then
'Hitung jumlah hari dgn cara membaginya dengan 24
hari = Jam \ 24
'Hitung Durasi Jam dalam hh:mm:ss
JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
Else 'Kalo jumlah jam <= 23
hari = 0 'maka jumlah hari = nol
'Hitung Durasi Jam dalam hh:mm:ss
JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
End If
If hari = 0 Then 'Kalo jumlah hari = 0
'Tampung hasil akhirnya
SelisihHariJam = JamLengkap
Else 'Kalo jumlah hari > 0, tampilkan jumlah harinya
'Tampung hasil akhirnya
SelisihHariJam = hari & " " & JamLengkap
End If
Exit Function
End Function
-----------------------------------------------------------------
selamat mencoba semoga berhasil. . . .
GOOD LUCK....
Senin, 10 Desember 2012
0
Senin, (10/12/2012)
Hari ini saya dapat tugas di bagian transaksi keluar program aplikasi parkir...
hingga sore ini saya sudah dapat menyelesaikan 70%. .
hingga sore ini saya sudah dapat menyelesaikan 70%. .
0
Jum'at, (07/12/2012)
Hari ini saya hanya mencari tutorial untuk menambah ilmu dan sedikit membantu mengcoding
Kamis, 06 Desember 2012
0
Kamis, (06/12/2012)
Hari ini saya bisa membuat Auto Number dengan Kombinasi tanggal, bulan, tahun. . .
-----------------------------------------------------------------
Public Function Number(ByVal srcSQL As String, ByVal srcFields As String, ByVal srcFormat As String, Optional srcTrue As Boolean, Optional srcTanggal As Date)
buka
Dim rs As New Recordset
Dim noLalu, noBaru As String
Set rs = Nothing
rs.CursorLocation = adUseClient
rs.Open srcSQL, Cn, adOpenStatic, adLockReadOnly
If rs.EOF Then
If srcTrue = True Then
Number = "01" & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
Else
Number = "01" & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
End If
Else
If srcTrue = True Then
noLalu = Val(Left(rs.Fields(srcFields), 2) + 1)
noBaru = String(2 - Len(noLalu), "0") & noLalu
Number = noBaru & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
'MsgBox "no berikutnya " & noBaru
Else
noLalu = Val(Left(rs.Fields(srcFields), 2) + 1)
noBaru = String(2 - Len(noLalu), "0") & noLalu
Number = noBaru & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
'MsgBox "no berikutnya 2 " & noBaru
End If
End If
Set rs = Nothing
End Function
-----------------------------------------------------------------
Pemangilannya.. .
txtkuitansi = Number("Select top 20 no_kws from data order by no_kws desc", "no_kws", "/Ry.AdmPrakerin", False)
-----------------------------------------------------------------
semoga berhasil....
Good Luck....
-----------------------------------------------------------------
Public Function Number(ByVal srcSQL As String, ByVal srcFields As String, ByVal srcFormat As String, Optional srcTrue As Boolean, Optional srcTanggal As Date)
buka
Dim rs As New Recordset
Dim noLalu, noBaru As String
Set rs = Nothing
rs.CursorLocation = adUseClient
rs.Open srcSQL, Cn, adOpenStatic, adLockReadOnly
If rs.EOF Then
If srcTrue = True Then
Number = "01" & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
Else
Number = "01" & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
End If
Else
If srcTrue = True Then
noLalu = Val(Left(rs.Fields(srcFields), 2) + 1)
noBaru = String(2 - Len(noLalu), "0") & noLalu
Number = noBaru & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
'MsgBox "no berikutnya " & noBaru
Else
noLalu = Val(Left(rs.Fields(srcFields), 2) + 1)
noBaru = String(2 - Len(noLalu), "0") & noLalu
Number = noBaru & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
'MsgBox "no berikutnya 2 " & noBaru
End If
End If
Set rs = Nothing
End Function
-----------------------------------------------------------------
Pemangilannya.. .
txtkuitansi = Number("Select top 20 no_kws from data order by no_kws desc", "no_kws", "/Ry.AdmPrakerin", False)
-----------------------------------------------------------------
semoga berhasil....
Good Luck....
Rabu, 05 Desember 2012
0
Rabu, (05/12/2012)
Hari ini masih sama seperti kemaren meneruskan membuat Auto Number dengan kombinasi tanggal. .
Selasa, 04 Desember 2012
Senin, 03 Desember 2012
Jumat, 30 November 2012
0
Jum'at, (30/11/2012)
Hari ini saya mencari tutorial data combo untuk mengambil data di database . . .
0
Kamis, (29/11/2012)
Hari ini sama seperti hari-hari kemaren membantu angga tapi sekarang masalahnya di data combo untuk mengambil data dan di tampilkan di data combo. .
0
Rabu, (28/11/2012)
Hari ini sama seperti kemaren untuk membantu angga untuk menyelesaikan masalah di koneksi dan akhirnya bisa menyimpan untuk data di listview . .
0
Selasa, (27/11/2012)
Hari ini saya membantu angga karena waktu save untuk menampilkan data di listview tidak bisa karena ada masalah di koneksi
0
Senin, (26/11/2012)
Hari ini saya di suruh mas yondi untuk membantu angga untuk membuat koneksi dan menampilkan data di listview. . .
Kamis, 29 November 2012
0
Rabu, (21/11/2012)
Hari ini saya Hanya Mencari tutorial Untuk membantu saya saat di kasih tugas...
0
Selasa, (20/11/2012)
Hari ini saya menemukan cara supaya SQL server bisa di Edit mengguanakan Script dan Tampa Menggunakan Script
- Buka SQL server 2008
2. Klik Tools yang ada di gambar ini..
3. Pilih Options
4. Pilih Designers
5. Lalu samakan SQL anda dengan gambar di bawah ini
Selamat Mencoba Semoga Bermanfaat.....
Good Luck...
Selasa, 20 November 2012
0
Senin, (19/11/2012)
Hari ini saya Belajar Mandiri cuma mencari tutorial-tutorial supaya database SQL server bisa di edit menggunakan Script.
0
Jum'at, (16/11/2012)
Hari ini saya memBackUp database yang baru untuk di kasih ke semua anggota tim supaya saat coding tidak ada kesulitan.
0
Rabu, (14/11/2012)
Hari ini saya kembali mendesain database lagi karena Ada perubahan , di setiap tabel ditambahkan timestamp (Tanggal/Waktu) dan kode petugas.
Jumat, 16 November 2012
0
Selasa, (13/11/2012)
Hari ini saya kembali diskusi. Hasilnya banyak koreksi yang saya dapat pada user interface dan database. Ketambahan field timestamp dan kode user di setiap tabel. Masalah tampilan juga di perhitungkan. Karena hari ini membahas tampilan jenis kendaraan, semuanya dibenahi. Bertambah 1 menu utama "Bantuan" dengan icon buku yang isinya help. dan yang terutama harus di perhatikan / di perhitungkan tampilan harus ad keseimbangannya....
0
Senin, (12/11/2012)
Hari ini saya ikut presentasi tentang user interface. Karena saya juga termasuk team database karena di setiap yang di buat oleh team user interface selalu melihat desain database dan harus selalu ada komunikasi dengan tim user interface.
0
Kamis, (08/11/2012)
Hari ini saya presentasi database yang sudah di perbaiki bersama team database. Banyak koreksi lagi yang saya dapatkan kemarin. Karena diagramnya tidak rapi. Karena waktunya terbatas untuk pembahasan type data dilanjut besok.
Minggu, 11 November 2012
0
Rabu, (07/11/2012)
Hari ini saya membuat diagram Sistem Management linkar parkir sesudah itu saya mem-Back Up database linkar parkir kepada semua anggota tim.
0
Selasa, (06/11/2012)
Hari ini saya dan tim database membuat ulang database linkar parkir karana di SQL server 2008 yang kami miliki tidak bisa di rubah menggunakan script...
akhirnya saya dan tim database membuat database menggunakan script dan menyimpan script di notepad jika sewaktu-waktu ada yang harus di rubah tinggal hapus table yang ingin di rubah dan copy script yang ada di notepad ke database lalu rubah sesuai kebutuhan.
akhirnya saya dan tim database membuat database menggunakan script dan menyimpan script di notepad jika sewaktu-waktu ada yang harus di rubah tinggal hapus table yang ingin di rubah dan copy script yang ada di notepad ke database lalu rubah sesuai kebutuhan.
0
Senin, (05/11/2012)
Hari ini saya presentasi tentang desain database. Banyak koreksi yang saya dapat dari diskusi kemarin. Sebelum itu saya dan team diajarkan bagaimana cara membuat view.
Sebuah view adalah sebuah jendela dinamik, dalam artian bahwa ia mencerminkan semua update yang dilakukan terhadap database. Disamping pemakaiannya di dalam skema external, view juga berguna untuk menjamin data- security dengan cara yang sederhana. Dengan memilih subset dari database, view dapat menyembunyikan beberapa data dan di dalam database SQL server 2008 tidak bisa di ubah menggunakan script. bisanya table di hapus dan membuat table baru.....
Minggu, 04 November 2012
0
Kamis, (01/11/2012)
Hari ini membuat desain database saya diskusi sama mas eko dan tim desain database untuk menentukan fiedls database, panjang data, type data
0
Rabu, (31/10/2012)
Hari ini tugas saya untuk mendesain database sebelum mengerjakan ada diskusi dengan tim dan mas eko...
Jumat, 02 November 2012
0
Selasa, (30/10/2012)
Hari ini saya diskusi tentang alur program parkir dengan semua anggota tim dan mas-mas programmer. Hari ini diulas alur , transaksi dan macam-macam tentang program parkir. Berhasil membuat rumus untuk biaya akhir parkir dengan fitur yang fleksibel. Tugas untuk besok adalah testing rumus lewat microsoft excel.
0
Senin, (29/10/2012)
Hari ini tugas tim di mulai, hari ini tugas analisis sampai hari rabu sementara intu saya dapat bagian di desain database yang akan di mulai hari kamis
Senin, 29 Oktober 2012
Kamis, 25 Oktober 2012
0
Kamis, (25/10/2012)
Hari ini membentuk tim untuk membuat sofware lahan parkir
ada yang menjadi kordinator, Analisis sistem, Database designer, User interface, Progremer, Testing, Dokumentator, Instaler, Technical support...
saya kebagian tugas di (Database designer dan Testing)
ada yang menjadi kordinator, Analisis sistem, Database designer, User interface, Progremer, Testing, Dokumentator, Instaler, Technical support...
saya kebagian tugas di (Database designer dan Testing)
0
Rabu, (24/10/2012)
Hari ini saya kerja bakti bersama teman-teman prakerin dan mas-mas programmer.....
0
Selasa, (23/10/2012)
Hari ini saya gak ada tugas hanya Browsing mencari tutorial untuk menambah ilmu . . .
Rabu, 24 Oktober 2012
0
Jum'at, (19/10/2012)
Hari ini saya dan teman-teman prakerin disuruh mengentry data web panti Asuhan dan mengedit photo..!!
0
Rabu, (17/10/2012)
Cara membuat crystal report dengan VB6.0 dengan Desain Dari Luar
- kita buka VB6.0 / program yang sudah kita buat
- kita buat form baru
- klik Project => References => pilih yang seperti di bawah ini
4. setelah itu kita pilih CRViewer seperti gambar di bawah ini
5. klik double pada CRViewer di form baru
6. Lalu di form yang ingin di tampilkan di Crystal Report buat Button Print
7. Double Klik Pada Button yang barusan di buat masukkan Script seperti di bawah ini..
-----------------------------------------------------------------
Form1.Hide 'Form yang ada Button print
Report.Show 'Form yang buat nampilkan Crystal Reportnya
Set
Rpt = RptApp.OpenReport(App.Path & "\ttx\hasil.rpt") '
menghubungkan ke desain report'
Rpt.DiscardSavedData
StrSql = "select * from terapi1 where id <>'' "
Set rs = conn.Execute(StrSql) 'ambil data dari table ke recordset
Rpt.database.SetDataSource rs ' masukan data dari recordset ke crystal
report
With Report.CRViewer1 'komponen preview
.ReportSource = Rpt
.EnableGroupTree = False ' hiden tree
.EnableExportButton = True '
tampilkan tombol export
.Zoom
100
.ViewReport ' tampilkan
End With
-----------------------------------------------------------------
8. Setelah itu kita buka Crystal Report
9. Sebelum memulai download ttxnya untuk mendesain Klik Disini
10. Setelah itu ttxnya di open with ke Notepat
(Jangan di ubah tataletaknya hanya di ganti aja hurufnya aja save di Folder project)
11. Buka Lagi Crystal Report
12. Klik yang di beri warna seperti gambar di bawah ini
13. Setelah itu Klik Ok
14. Akan muncul seperti gambar di bawah ini
15. Klik More Data Sources yang di beri warna => pilih Active Data => Pilih Active Data (Field Definitions Only) => Klik Browse
16. Cari dimana Kamu Meletakkan ttx yang sudah di buat
17. Kalau Udah Klik Ok
18. Klik Add lalu Close
19. Lalu akan muncul Gambar seperti di bawah ini
20. Lihat di gambar yang di lingkari klik Database Fields => Klik nama ttx yang tadi di buat => geser Fields - Fieldsnya ke Details
21. save di Folder project
Semoga Berhasil...
Good Luck....
Good Luck....
Kalau ada error silakan komentar di bawah ini...!!
0
Selasa, (16/10/2012)
hari ini sama seperti kemaren membuat print menggunakan crystal report menggunakan desain dari luar sampai sore masih belum bisa..
0
Senin, (15/10/2012)
Hari ini saya mencoba menambahkan print pada
project askes menggunakan crystal report.Tapi sampai sore masih belom
selesai.Mungkin besok akan saya lanjutkan lagi.
Kamis, 18 Oktober 2012
0
Jum'at (12/10/2012)
Hari ini saya browsing untuk mencari cara supaya textbox dapat mencocokkan data di database....
0
Kamis, (11/10/2012)
Hari ini saya disuruh memperbaiki tugas yang kemaren karena masih ada kesalah sedikit.....
0
Rabu, (10/10/2012)
Hiri ini saya Bisa membuat auto number
langkah langkahnya di bawah ini ...!!- Kita buka Visual Basicnya
- Kita buat Form sepertin di bawah ini
3. Setelah Selesai buat Form seperti di atas
kita klik project => Preferences => lalu pilih seperti yang ada di gambar di bawah ini...
4. setelah itu kita pilih View Code dan masuk masukkan script di bawah ini..
txtinduk = textbox yang di lingkari warna merah
txtid= textbox yang di lingkari warna hitam
-----------------------------------------------------------------
Dim conn As New ADODB.Connection
Dim pilih As Integer
-----------------------------------------------------------------
Private Sub txtinduk_KeyPress(KeyAscii As Integer)
'Call angka
If KeyAscii = 13 Then
OpenRecordset "SELECT induk, id, kls_terapi, hal from terapi1 " & _
" where id = '" & txtinduk.Text & "'", conn
If Not rs.EOF Then
txtinduk = rs.Fields!id
Call AN
Else
MsgBox " Maaf No Induk Ini Tidak ada di database ", vbInformation, "Warning"
Call kosong
txtinduk.SetFocus
End If
End If
'If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") _
' Or KeyAscii = vbKeyBack) Then
' KeyAscii = 0
'
'End If
End Sub
-----------------------------------------------------------------
Private Sub AN()
Call kon 'Koneksi
rs.Open ("Select Count(id) as id from terapi1 where induk = '" & txtinduk.Text & "' "), conn
rs.Requery
Dim Urut As String, titik As String, ids As String, s As Integer
Dim Hitung As Long
Urut = txtinduk.Text
titik = "."
With rs
If rs.EOF Then
Else
If txtinduk.Text = "0" Then
Hitung = (rs.Fields!id)
ids = (Hitung)
txtid = ids
txtnama.SetFocus
txttingkat.Text = "0"
Else
Hitung = rs.Fields!id + 1
ids = (Urut & titik & Hitung)
txtid = ids
txtnama.SetFocus
s = UBound(Split(txtinduk.Text, ".")) + 1
txttingkat.Text = s
End If
End If
End With
End Sub
-----------------------------------------------------------------
Silakan Mencoba Dan semoga Berhasil.....
Kalau ada Yang masih Bingung Bisa komentar di bawah ini....
|| Good luck ||
Rabu, 17 Oktober 2012
0
Selasa, (09/10/2012)
Hari ini tugas auto number yang di buat tugas akhirnya di minta...
akan tetapi masih ada error di dalam project yang saya buat...
akhirnya di beri kesempatan untuk menyelesaikan sampai besok pagi....
akan tetapi masih ada error di dalam project yang saya buat...
akhirnya di beri kesempatan untuk menyelesaikan sampai besok pagi....
0
Jum'at, (05/10/2012)
Hari ini saya memperbaiki project askes karena masih banyak kesalahan - kesalahan...
0
Rabu, (03/10/2012)
Hari ini saya mencoba cara merubah type String ke Integer yang saya cari tutorialnya di internet akan terapi masih ada sedikit error....
0
Senin, (01/10/2012)
Hari ini saya hanya browsing aja dan melanjutka mencari tutorial Cara merubah type String ke Integer
Senin, 08 Oktober 2012
0
Kamis, (27/09/2012)
Hari ini saya melanjutkan tugas kelas terapi.. Sempat diajari mengenrate ID otomatis. Untuk itu saya disuruh membuat function yang saya beri nama "AN" / Auto Number. Kemudian didalam function tersebut berisi script pendeteksi data maximal dan nantinya akan di tambahkan 1. Tetapi type nya string sehingga tidak dapat di jumklahkan, makadari itu oleh Mas.Yondy disuruh searching materi untuk mengkonversikan "String" menjadi "Integer".
0
Rabu, (26/09/2012)
Hari ini sebenanya akan di ajari membuat laporan crystal report oleh mas yondi, tapi mas yondi hari ini gak datang.. ya kita menyempurnakan project hari kemarin ..
0
Selasa, (25/09/2012)
Hari ini saya di tugaskan oleh mas yondi untuk membuat project baru dari kelas terapi, dengan ketentuan oleh mas eko .. dan haru selesai sore ini, dan kita semua selesei tepat pada jam setengah 5 sore ..
Selasa, 02 Oktober 2012
0
Senin, (24/09/2012)
Hari ini saya mendapat banyak mendapat pengalaman berharga dari Bu Ros,Kami siswa prakerin di ajak taruhan 100 ribu sama Bu Ros untuk dapat menyelesaikan tugas tepat waktu.. dan kami siswa prakerin di kasih saran" supaya dapat pengalaman untuk masa depan...
0
Jum'at (21/09/2012)
Hari ini saya cuma browsing-browsing aja mencari Tutorial" vb untuk belajar.....
Minggu, 23 September 2012
0
Kamis, (20/09/2012)
Hari ini saya disuruh menggantikan teman saya yang tidak masuk untuk mengecek data... dan mencari kesalahan - kesalahan pada program Linkar Apotek Paru...
0
Selasa (18/09/2012)
Hari ini saya
menjalankan program Linkar Apotek Paru.. Untuk menjalankannya harus koneksi
dengan server. Kebetulan servernya adalah Mas.Yondy. Sebelum itu pak Chandra
maenjelaskan alur dari program itu. yang pertama gudang. Gudang terisi atas 2
gudang. Gudang farmasi yaitu gudang yang menyediakan peralatan kesehatan. Lalu
ada gudang umum juga. Gudang umum berisi di luar gudang farmasi. Ada peralatan
tulis, peralatan kesehatan atau semacamnya. Dibawah gudang ada otlet farmasi.
Maksudnya pemasaran barang-barang dari gudang, dipasarkan kesini. Barulah
sampai ke tangan konsumen/pasien karna ini program apotek.
Senin, 17 September 2012
2
Jum'at (14/09/2012)
Setelah Tugas Mencari Cara Koneksi Vb6.0 dengan SQL server 2008 sudah bisa ...
Sekarang dikasih tugas lagi....
Bagaimana Cara membuat listview Otomatis.....
Sekarang dikasih tugas lagi....
Bagaimana Cara membuat listview Otomatis.....
0
Kamis, (13/09/2012)
Hari masih tetap sama seperti hari kemaren mencari cara bagaimana cara mengkoneksikan vb6.0 dengan SQL server 2008 ..
- Akhirnya saya menemukan caranya...
- buatlah module di VB
- terus buatlah Script seperti gambar di bawah ini
- Kemudian Masukkan Script seperti di bawah ini di from
- setelah itu.... Di from load masukkan Script seperti di bawah ini....
- Call kon
- Selamat Mencoba semoga Success...
- Kalau masih error Silakan komentar di bawah ini..........
0
Rabu, (12/09/2012)
Hari ini saya masih belum bisa mekengkoneksikan vb6.0 dengan SQL server 2008 dengan cara yang simple..
0
Selasa, (11/09/2012)
Hari ini saya di kasih tugas bagaimana cara mengkoneksikan vb6.0 dengan database SQL server 2008 dengan cara yang sangat simple....
Rabu, 12 September 2012
0
Senin, (10/09/2012)
Hari ini saya ingin melanjutkan tugas (ASKES) Jenis Kelas Terapi yang masih belum sempurna ..
0
Kamis, (06/09/2012)
Hari ini saya di beri tugas untuk jenis kelas terapi .. dan Sampai jam 5 sore, project masih 50%...
0
Senin, (03/09/2012)
Hari ini saya bantu2 buat ngeprint proposal .. Dan di lain waktu saya juga belajar tentang relasi Database ..
Selasa, 04 September 2012
2
Jum'at, (31/08/2012)
Hari ini saya belajar tentang apa itu RELASI, apa itu FOREIGN KEY, apa itu PRIMARY KEY, dll. Bagian bagian dari database dan apa saja field yang saling berhubungan dengan field di tabel lain, dan sistem penjualan dalam suatu perusahaan bisnis. Northwind termasuk database penyimpanan data penjualan. Sistem yang digunakan adalah sistem penjualan. Disini saya juga belajar sistem apa yang saya hadapi. Alur dalam sistem penjualan.
Kamis, 30 Agustus 2012
0
Kamis, (30/08/2012)
Hari ini saya diberi tugas untuk mempelajari tentang "RELASI" . Yang saya tau, relasi itu ada 3 macam.
1. one to one
2. one to many
3. many to many
Dari diagram yang saya buat kemarin, relasinya yang ditandai dengan tanda 2 kunci dan bundaran 2. Ternyata tanda tersebut ada maknanya. Planning saya besok, saya searching materi dan mempelajarinya.
1. one to one
2. one to many
3. many to many
Dari diagram yang saya buat kemarin, relasinya yang ditandai dengan tanda 2 kunci dan bundaran 2. Ternyata tanda tersebut ada maknanya. Planning saya besok, saya searching materi dan mempelajarinya.
0
Rabu, (29/08/2012)
Hari ini saya belajar apa saja tabel dan relasi dari setiap field di dalam Database Nortrhwind. Setelah saya lihat Database Northwind berisi 13 tabel yaitu Order Details, Products, Categories, Suppliers EmployeeTerritories, Orders, Customers, Territories, Region, Employees, Shippers, CustomerCustomer, Customer Demographics .
0
Selasa, (28/08/2012)
Hari ini saya mencetak desain diagram database northwind yang setelah di print saya tau jumlah tabel dan apa saja field-fieldnya.. Dari pembahasan hari Senin kemarin, diagram berguna sebagai menampilkan desain dari semua tabel dalam database. Di dalam diagram kita dapat mengatur relasi dari setiap tabel yang akan dihubungkan. Di dalam database Northwind ada 13 table.
0
Senin, (27/08/2012)
Hari ini saya mendalami DDL (Data Definition Language) dan DML (Data Manipulation Language) beserta operator, kondisidan clause. Presentasi materi tentang Kondisi.
0
Selasa, (14/08/2012)
Hari ini saya belajar banyak tentang vb ..
Baru saja saya di beri THR (Tugas Hari Raya).
Mencari macam-macam operator, operator yang digunakan oleh text, number/tanggal .
Projection dan selection dll .
Baru saja saya di beri THR (Tugas Hari Raya).
Mencari macam-macam operator, operator yang digunakan oleh text, number/tanggal .
Projection dan selection dll .
Senin, 13 Agustus 2012
0
Senin, (13/08/2012)
- mencari cara mengkoneksikan Cryistal Report dengan Visual Basic
- kita buka Cryistal Report
2. Klik gambar yang di lingkari
3. Lalu klik OK
4. Klik OK lagi
5. akan muncul gambar seperti di bawah ini......
Lalu Klik button yang di kasih warna........
6. Klik tanda yang di lingkari pada gambar di bawah ini...
7. akan muncul seperti gambar di bawah ini....
Setelah itu klik Create New Data Source yang di kasih warna.......
8. Lalu Klik Add
9. Setelah Add di klik akan muncul pemberitahuan......... Klik OK
10. Akan muncul seperti gambar di bawah ini......
Lalu pilih yang di lingkari warna merah...........
11. Setelah pilih yang di lingkari warna merah Klik Next....
12. kemudian akan muncul gambar seperti di bawah ini.....
13. Lalu cari SQL server yang di kasih warna....
14. Kemudian Klik Next
15. Lalu Klik Finish
0
Jum'at (10/08/2012)
- browsing mencari cara untuk mengkoneksi Cryistal Report dengan Visual Basic.....
mudah mudahan hari esok bisa mencari cara untuk mengkoneksikan Cryistal Report dengan Visual Basic
Kamis, 09 Agustus 2012
Rabu, 08 Agustus 2012
0
QUERY SQL SERVER (08/08/2012)
Silakan Download Pengertian QUERY SQL Server Di Bawah ini..!!!!
- LINK
- KLIK DI SINI
Semoga Bermanfaat.........
Kalau Ada Kekurangan mohon Komentarnya.......
Selasa, 07 Agustus 2012
0
Selasa, (07/08/2012)
Hari ini saya melanjutkan Desain Visual Basic dan mencari Icon-Icon untuk memper Indah form Visual Basic...
kalau mau mencari Icon-Icon Silakan Klik di bawah ini...!!!!
KLIK DI SINI
kalau mau mencari Icon-Icon Silakan Klik di bawah ini...!!!!
KLIK DI SINI
Minggu, 05 Agustus 2012
0
Jum'at, (03/08/2012)
Tutorial Penggunaan Crystal Report dengan Visual Basic
Untuk Mendownload Tutorial Pengguaan Crystal Report dengan Visual Basic
- SiLakan Download Pada link di bawah ini....
- KLIK DI SINI
Kamis, 02 Agustus 2012
0
Kamis, (02/08/2012)
- menambah ilmu dari maz andre....
Script supaya textbox ketika di klik bergati warna......
- kita buka visual basic
- kita buat textboxnya dulu
- kita klik double pada textbox yang di buat
- akan muncul script seperti di bawah ini.
Private Sub Text1_Change()
End Sub
klik gambar yang di lingkari warna biru
- kalau sudah kita pilih click
- akan muncul script
End Sub
Private Sub Text1_Click ()
End Sub
isi Script yang berwarna biru seperti script di bawah ini....
Private Sub Text1_Click ()
Text1.BackColor = vbGreen
End Sub
Sangat mudahkan Script mengganti warna saat textbox di klik .......
Selamat mencoba...........!!!!!!!!!
Selamat mencoba...........!!!!!!!!!
Selasa, 31 Juli 2012
0
Rabu, (01/08/2012)
- mencoba membuat program penjualan rumah......
program masih belum selesai
program masih berjalan 25 %.....
- mencari tutorial untuk menambah pengetahuan......
Senin, 30 Juli 2012
0
Selasa, (31/07/2012)
- memperbaiki blok yang masih kurang
- mencari tutorial menyimpan gambar ke database SQL server 2008
- mencoba membuat program menggunakan SQL server 2008
0
Login VB mengambil dari database SQL server 2008 (30/07/2012)
cara cara login mengambil data dari database sangat mudah.....
1. kita buka Visual Basic....
2. kita buat di form1 seperti gambar di bawah ini...
=> Lingkaran berwarna Merah itu menggunakan Label
=> Lingkaran berwarna Biru itu menggunakan Textbox
=> Lingkaran berwarna Hitam itu menggunakan commmadbutton
3. Ubah
Label1 == lbluser
Label2 == lblpass
Text1 == txtuser
Text2 == txtpassword
Command1 == cmdlogin
Command2 == cmdexit
4. kita klik double pada gambar yang di silang di bawah ini....
=> Setelah klik double akan masuk ke form1 (code)
Private sub form_load ()
end sub
Hapus Script yang berwarna merah.....
5. lalu kita masukkan Script dibawah ini ke form1 (code)...
Private Sub cmdlogin_Click()
If Cn.State = adStateOpen Then Cn.Close
Cn.Open "Provider=SQLNCLI10;Server=.;Database=rumah;Trusted_COnnection=yes"
If Rs.State = 1 Then Rs.Close
Rs.Open "select * from login where username='" & txtuser.Text & "' And password='" & txtpass.Text & "'", Cn, 3, 3
'Sql = "select * from login where usernama='" & txtuser & "' and password='" & txtpass & "'"
If Not Rs.EOF Then
MsgBox " Login Success "
Else
MsgBox "Username atau Password salah", vbCritical, "L O G I N"
txtuser.Text = ""
txtpass.Text = ""
txtuser.SetFocus
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub txtuser_Change()
txtuser.SetFocus
End Sub
6. Buatlah Module...
1. kita buka Visual Basic....
2. kita buat di form1 seperti gambar di bawah ini...
=> Lingkaran berwarna Biru itu menggunakan Textbox
=> Lingkaran berwarna Hitam itu menggunakan commmadbutton
3. Ubah
Label1 == lbluser
Label2 == lblpass
Text1 == txtuser
Text2 == txtpassword
Command1 == cmdlogin
Command2 == cmdexit
4. kita klik double pada gambar yang di silang di bawah ini....
=> Setelah klik double akan masuk ke form1 (code)
Private sub form_load ()
end sub
Hapus Script yang berwarna merah.....
5. lalu kita masukkan Script dibawah ini ke form1 (code)...
Private Sub cmdlogin_Click()
If Cn.State = adStateOpen Then Cn.Close
Cn.Open "Provider=SQLNCLI10;Server=.;Database=rumah;Trusted_COnnection=yes"
If Rs.State = 1 Then Rs.Close
Rs.Open "select * from login where username='" & txtuser.Text & "' And password='" & txtpass.Text & "'", Cn, 3, 3
'Sql = "select * from login where usernama='" & txtuser & "' and password='" & txtpass & "'"
If Not Rs.EOF Then
MsgBox " Login Success "
Else
MsgBox "Username atau Password salah", vbCritical, "L O G I N"
txtuser.Text = ""
txtpass.Text = ""
txtuser.SetFocus
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub txtuser_Change()
txtuser.SetFocus
End Sub
6. Buatlah Module...
- Klik double pada Form1
- Pilih Add
- Lalu Klik module
- Lalu Open
7. Masukkan Script di bawah ini.....
Option Explicit
Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public nm As String
Public Sub buka()
If Cn.State = adStateOpen Then Cn.Close
Cn.Open "Provider=SQLNCLI10;Server=.;Database=rumah;Trusted_COnnection=yes"
End Sub
Public Sub eksekusiSQL(SQLstr As String)
Cn.Execute SQLstr
End Sub
Public Sub OpenRecordset(SQLstr As String)
If Rs.State = adStateOpen Then Rs.Close
Rs.Open SQLstr, Cn, adOpenKeyset, adLockOptimistic, adCmdText
End Sub
Public Sub tutup()
If Rs.State = adStateOpen Then Rs.Close
Set Rs.ActiveConnection = Nothing
Set Rs = Nothing
If Cn.State = adStateOpen Then Cn.Close
Set Cn = Nothing
End Sub
8. Jangan Lupa mengaktifkan Microsoft ActiveX Data Objects 2.7 / 2.8
- Klik Project yang di kasih warna...
- Lalu Klik Preferences
- Pilih Microsoft ActiveX Data Objects 2.7 / 2.8 Library
- Klik double di Microsoft ActiveX Data Objects 2.7 / 2.8 Library hingga tercawang
- Klik OK
9. Buatlah database SLQ server 2008
- database kasih nama Login
- Tabel kasih nama Login
- Buat kolom username dan password
- Lalu isi kolom username dan password
10. Save database.....
Semoga anda berhasil................
Kalau masih ada kesalahan/error silakan anda Comment di bawah ini.....
Selasa, 24 Juli 2012
0
Dasar Dasar Database (25/07/2012)
saya sudah menemukan Pengertian dari Dasar-dasar database...
silakan klik link yang ada di bawah ini untuk mendownload
1. KLIK DI SINI
ATAU
2. KLIK DI SINI
Kalau ini masih kurang silakan kalian cari di blog teman-teman saya.....
1. http://keep-blogger.blogspot.com/
2. http://we-are-se.blogspot.com/
3. http://diggnaseviira.blogspot.com/
4. http://zchair.blogspot.com/
5. http://rosianarosinovita.blogspot.com/
Semoga bermanfaat .......
kalau ada kekurangan mohon dikasih komentar......
Jumat, 20 Juli 2012
0
Macam-Macam Type Data pada SQL 2008
char(n) : Mendefinisikan string sepanjang n karakter. Bila n tidak didefinisikan makapanjang karakter adalah
1.
varchar(n) : Mendefinisikan string sepanjang variabel n.
binnary(n) : Untuk menyimpan bit pattern seperti heksadecimal. Contoh : 0x0fa9008e
datetime : Mendefinisikan tanggal, menyimpan tahun, bulan, hari, jam, menit, detik dan
seperseribu detik (milliseconds). Nilai tanggal sampai dengan 31 desember
9999.
text : Menyimpan teks sampai dengan 2 GB. Text disebut juga dengan binary large
objects (BLOBs)
image : Mendefinisikan binary data untuk menyimpan image seperti GIF, JPG, TIFF,
dll.
money : Bilangan pecahan dengan 4 angka dibelakang koma. Digunakan untuk
perhitungan moneter.
smallint : Sama dengan int, membutuhkan 50% memory yang ditempati int.
int : Mendefinisikan integer, bilangan bulat yang menampung angka sebanyak 4
byte.
float(n) : Mendefinisikan angka pecahan (floating point). Nilai n adalah jumlah angka
yang dapat ditampung . sysname
real(n) : sama dengan float namun menempati memory 50% dari float.
smalldatetime : sama dengan datetime hanya dengan presisi lebih kecil dimana satuan waktu
terkecil adalah menit dan nilai tanggal sampai dengan 6 juni 2079.
numeric(n,p) : Mendefinisikan angka pecahan baik fixed desimal ataupun floating point.
Nilai n adalah jumlah bytes total dan p adalah presisi angka dibelakang
koma. Numeric analog dengan DECIMAL(n,p).
Unicode Charakter String
Unicode adalah karakter international yang menampung 16 bit per karakter. Unicode digunakan
oleh bahasa non latin, misalnya jepang, jerman, Thai, dll.
nchar : Unicode karakter maksimum 4.000 karakter.
nvarchar : Unicode karakter dengan data variable maksimum 4.000 karakter. Sysnameadalah
contoh tipe data yang didefinisikan sebagai synonym dari nvarchar(128) dan
digunakan untuk referensi ke nama object database.
ntext : Unicode texts dengan panjang dua pangkat tigapuluh (1.073.741.823)karakter.
Untuk dapat melihat semua tipe data yang ada dalam Ms.SQL Server adalah dengan menggunakan
perintah stored procedure sp_datatype_info
Mendefinisikan tipe data baru
Tipe data dapat dibangun dari tipe data yang sudah ada.
Syntax secara umum untuk membuat tipe data baru :
USE nama_database
SP_ADDTYPE nama_tipe_data_baru,tipe_data_SQL
Syntax secara umum untuk menghapus tipe data baru :
USE nama_database
SP_DROPTYPE nama_tipe_data_baru
Kunci kata NONULL atau NULL dapat ditambahkan dalam mendefinisikan tipe data.
Contoh :
SP_ADDTYPE alamat,’varchar(9)’,nonull
Langganan:
Postingan (Atom)