بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
bismillaahirrahmaanirrahiim
السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Assalamu'alaikum warahmatullahi wabarakatuh
kasus nya begini siswa hanya bisa pinjam satu buku , dan jika siswa masih belum mengembalikan buku , maka siswa tidak boleh meminjam buku , dan di sebelum input peminjaman ada pengecekan peminjaman buku siswa .
Dim rbuk As Recordset
Dim sSQL As String
Dim ssql2 As String
Dim terang As String
Dim rspinjam As Recordset
Dim ab As String
ab = "sudah di kembalikan"
Set rspinjam = New ADODB.Recordset
rspinjam.Open "SELECT * FROM pinjam WHERE nis='" & Trim(Me.txtcek.Text) & "'", conndb
If Not rspinjam.EOF Then
If rspinjam!statusbuku = "sudah di kembalikan" Then
MsgBox "Siswa dapat meminjam buku", vbInformation, "Info"
Else
MsgBox "Maaf, Siswa dilarang Meminjam buku !!", vbCritical, "Info"
End If
Else
MsgBox "Data Siswa Tidak Ditemukan", vbInformation, "Info"
End If
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
NB :: Bila Sobat tertarik Ingin membuat software, membeli software,
membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI),
Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين
Alhamdulilah hirobil alamin
وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
wassalamualaikum warahmatullahi wabarakatuh
Artikel Cara Cek Peminjaman buku Yang belum di kembalikan Visual basic(vb6), Diterbitkan oleh sourcecodeaplikasi1 pada Sabtu, 12 Januari 2013. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software,
membeli source code ,Dengan Cara menghubungi saya
Ke Email: Fajarudinsidik@gmail.com, atau
No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.
