Mas Bambang...sakit ya....

Selesai UTS Mas Bambang jatuh sakit, tadi siang ngerjakan soal full
energi, jadinya...malamnya low batt...
Bang Fuad tolong kusuk dong..sakit kali nich..
Sabar Mbang..Yang laen ikut ngusukin...Nama nya perjuangan, sakit,
senang harus sama-sama...(tinggal 2 semester lagi....)


(Mas Eko..)Ntar, saya siapkan mie, ntuk tambahan tenaga.....

Mas Bambang udah agak mendingan, jadi yang laen siap buat tugas
untuk besok....!! (Team work jangan pernah lepas...)
Ayo... Kami Bisa......

Kuliah lagi..UPI Padang 16 Desember 2008

Hijaunya kampus kami (sebelahnya sawah sich)...
Pulang Kuliah, beli makan malam yuk. Kuliah dari pagi sampe sore wuih.. paniang juo
kapalo..tapi ndak Ba.a, mancari ilmu di nagari urang......
Tetap Smile Mr. Eko...Mas Bambang tukang Photonya..Bang Fuad kemana ya....

Rupanya.. pengikat Per Ban Belakang....

Rupanya Pengikat Per Ban belakang ada yang patah. Makanya Ndut.ndut an."Cari bengkel Bang". Sambil Nunggu ngelas..udah pada laper..Makan sate yox.........Bang Brahim semangat kali.Bang Fuad dan Mas Bambang kelihatannya....ngak tahan nengoin sate..... Lakeh seketek Jo.....Indak tahan lai ko..." Onde mande..Baru bara bulan...lidah udah macam orang minang sajo...

Ya....Kok Bus..nya ngadat Lagi....

Cihui.i ..abes kuliah di UPI Padang pulang ke Medan Coi...
Apalagi Nilai UTS matakuliah DR Gunadi Teknologi Sistem Informasi
pada tinggi-tinggi. Kan sueneng banget.e.e.e..sampe bukit tinggi Busnya..
ndut-ndut an, Bang Brahim : "Biar ku sorong...!!!" Lho kok mundur Bang..
"Mungkian ada yg copot nich.!!" kata Bang Fuad.Lha ini ...cobaan lagi.

Sst..Dosennya belon dateng...

Gini loh Bang..... Pak Darex (dari Lampung) lagi ngasi liat photo-photo anaknya. Dosen belon dateng, lagi enjoy.....
Semoga bisa trus enjoy sampe tahun depan.... Pak Eko dan Pak Bambang lagi serius kali di belakang...pada ngapain ya....
Ingat besok mau UTS....
Makanya....Belajar......

Sst...lagi belajar nich....

Bang Brahim(Ajo Baim) semangat belajar masih tinggi,masih pagi sih.....Jangan maen Game ya... Nanti DR itu marah lo....,----->>>>>

Ajo Baluik, siap belajar Laper.......sikat Mas Bam....eh Jo....

<<<----------

Silahkan Ambil Gridtambahan....

Download vs .....

Tugas Selanjutnya Buatlah Form Struk Footer

Tugas Selanjutnya Buatlah Form Settting Harga.

Tugas Selanjutnya Buatlah Form Profil

Tugas- Buat FormSupplier berikut ya...

Teknik sama dengan yang Lalu,
Selamat Bekerja...!!!

Susah ya.. Kalo Ngak yang ini aja.. baru kita bahas...

'Listing Program
Dim rstambah As New ADODB.Recordset
Dim rssimpan As New ADODB.Recordset
Dim Setuju As String
Private Sub Form_Load()
Call Tengah
cbostatus.AddItem "SuperAdmin"
cbostatus.AddItem "Admin"
cbostatus.AddItem "Kasir"
txtuser.BackColor = &HFFC0C0
Call IsiGrid
End Sub

Private Sub CmdSimpan_Click()
If txtuser.Text = "" Then
MsgBox "UserName masih kosong", vbInformation, "Perhatian"
txtuser.SetFocus
txtuser.BackColor = &HFFC0C0
ElseIf txtpassword.Text = "" Then
MsgBox "Password masih kosong", vbInformation, "Perhatian"
txtpassword.SetFocus
txtpassword.BackColor = &HFFC0C0
ElseIf cbostatus.Text = "" Then
MsgBox "Status masih kosong", vbInformation, "Perhatian"
cbostatus.SetFocus
cbostatus.BackColor = &HFFC0C0
Else
kerjakan = "select * from Operator where NamaUser='" & txtuser.Text & "'"
Set rstambah = New ADODB.Recordset
rstambah.Open kerjakan, KoneksiDatabase, adOpenKeyset, adLockOptimistic
If rstambah.RecordCount = 1 Then
MsgBox "User Name Tersebut Sudah Ada !. Ketikkan yang Baru.", vbCritical, "Perhatian"
txtuser.Text = ""
txtuser.SetFocus
txtuser.BackColor = &HFFC0C0
ElseIf txtpassword.Text <> txtulang.Text Then
MsgBox "Konfirmasi Password Anda Tidak Sama !", vbCritical, "Perhatian"
txtulang.BackColor = &HFFC0C0
txtpassword.SetFocus
Else
Setuju = MsgBox("Data akan disimpan ?", vbInformation + vbOKCancel, "Simpan")
If Setuju = vbOK Then
If rstambah.EOF Then
kerjakan = "insert into Operator (NamaUser,KodeUser,Status) values ('" & txtuser & _
"','" & txtpassword & _
"','" & cbostatus & "')"
Set rssimpan = New ADODB.Recordset
rssimpan.Open kerjakan, KoneksiDatabase, adOpenKeyset, adLockOptimistic
Call IsiGrid
Call bersih
txtuser.SetFocus
txtuser.BackColor = &HFFC0C0
End If
End If
End If
End If
End Sub

Wah..Mogok Nih...

Mas, inilah nama perjuangan.Mo kuliah ke Padang cari ilmu e... malah Bus nya mogok. Ngak mau jalan.Terpaksa pindah ke Bus Lain. Ehmm. Dari KotaNopan ke Bukit Tinggi (4 jam an) duduk di bangku tempel...Wihhh puegel tak ampun..Pak Fuad, Bambang dan Ibrahim sama ancurnya... Cobaan...
Jangan menyerah Abang-abang, ini untuk kampus kita. Oce..