Hari ini libur karena bertepatan dengan hari raya Indul Adha...
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.....
Langganan:
Postingan (Atom)