{ Berbagi, Menulis, Dan Mengajar } Ilmu…

info_at_ikc_co_id — Company : CV.IDE KITA CEMERLANG Email : info@ikc.co.id Valid From : 10-02-2011 s/d 10-02-2013 Serial Number : 4696 —- Konfirmasi Password Baru Di bawah ini adalah username beserta password anda yang baru. Username: dms@ikc.co.id Password: YXMS6k Terima kasih, Administrator Layanan Pengadaan Secara Elektronik (LPSE) Pemerintah Kota Surabaya Jl. Jimerto 25-27 Lt. IV Surabaya 60272 telp : 031-5462064 url : lpse.surabaya.go.id email : helpdesk@surabaya-eproc.or.id ---- Selamat datang di sistem e-Procurement - Pemerintah Kota Surabaya. Perusahaan Anda telah terdaftar sistem e-Procurement kami, tetapi account Anda belum bisa digunakan sebelum Anda melakukan aktivasi. Klik link di bawah untuk proses aktivasi. <a href="https://www.surabaya-eproc.or.id/perusahaan_register/aktivasikan/kode_aktivasi/210010dfff6eb14ec25fe009f1c3ba3d">Mulai Proses Aktivasi &raquo;</a> atau, kalau link di atas tidak bisa diklik, copy-kan link berikut ini: https://www.surabaya-eproc.or.id/perusahaan_register/aktivasikan/kode_aktivasi/210010dfff6eb14ec25fe009f1c3ba3d Setelah melakukan proses aktivasi, data login berikut dapat digunakan: Username … Read entire article »

CatatanBankBNI … Read entire article »

Fungsi-fungsi VB di bawah ini digunakan untuk mengolah data string. Left : mengambil n karakter di sebelah kiri suatu string karakter = Left(“abcdef”,2) ‘karakter = “ab” Right : mengambil n karakter di sebelah kanan suatu string karakter = Right(“abcdef”,2) ‘karakter = “ef” Trim : menghilangkan spasi kosong di awal dan akhir suatu string karakter = Trim(“ abc def ”) ‘karakter = “abc def” Ltrim : menghilangkan spasi kosong di awal suatu string MyStr = Ltrim(AnyString) Rtrim : menghilangkan spasi kosong di akhir suatu string MyStr = Rtrim(AnyString) Ucase : mengubah suatu string menjadi huruf besar semua MyStr = UCase(AnyString) Lcase : mengubah suatu string menjadi huruf kecil semua MyStr = LCase(AnyString) Mid : mengambil n karakter dari suatu posisi yang ditetapkan MyStr = Mid(“abcdefghij”, 3, 4) ‘hasil “cdef” Len : menghitung jumlah karakter yang membentuk suatu string MyStr = Len(“abcdef”) ‘hasil=6 LSet : menempatkan string di dalam … Read entire article »

\\192.168.1.1\dms\THESIS\TUTORIAL … Read entire article »

031 – 8540406 … Read entire article »

Set Rs_PegawaiBesar = New ADODB.Recordset Rs_PegawaiBesar.Open “SELECT Pegawai.NIP, ” _ & ” Pegawai.Nm_Pegawai ” _ & ” FROM Pegawai,DataBesarPegawai ” _ & ” WHERE Pegawai.NIP=DataBesarPegawai.NIP ” _ & ” ORDER BY DataBesarPegawai.NIP”, _ DBKoneksi, adOpenDynamic, adLockBatchOptimistic With Rs_PegawaiBesar If .BOF Then MsgBox “Informasi SDM Pegawai Masih Kosong ! “, _ vbInformation + vbOKOnly, “Informasi” Exit Sub Else i = 1 ListDataTersimpan.ListItems.Clear While Not .EOF Set View = ListDataTersimpan.ListItems.Add View.Text = i View.SubItems(1) = !NIP View.SubItems(2) = !Nm_Pegawai i = i + 1 .MoveNext Wend End If End With … Read entire article »

… Read entire article »

update `dbpenggajian`.`pangkat` set `Kd_Pangkat`=” where `Kd_Pangkat`=’001′ … Read entire article »

Ubah Dengan Extension .bat Penghapus Virus shortcut … Read entire article »

http://www.youtube.com/watch?v=hti0JTLhLXg … Read entire article »