LabQ5

'Made on 4th June 2009 BY Muh. Iqbal oo>LABQ5oo< Private Sub DTPEntered_Change() TxtDateEntered.Text = DTPEntered.Value End Sub Private Sub DTPEntered_Click() TxtDateEntered.Text = DTPEntered.Value End Sub Private Sub DTPReturn_Change() TxtDateReturn.Text = DTPReturn.Value SQLQuery End Sub Private Sub DTPReturn_Click() TxtDateReturn.Text = DTPReturn.Value SQLQuery End Sub Private Sub TxtDateEntered_Change() If DTPEntered.Value > DTPReturn.Value Then MsgBox "Date entered must be less than or " & vbCrLf & _ "equal to the date of return",vbExclamation DTPReturn.Value = DTPEntered.Value End If End Sub Private Sub TxtDateReturn_Change() If DTPReturn.Value < DTPEntered.Value Then MsgBox "Date of return must be more or " & vbCrLf & _ "equal to the date of entry",vbExclamation DTPEntered.Value = DTPReturn.Value End If End Sub 'Query is Used Sub SQLQuery() Dim RSZZ As New ADODB.Record

Dim RSViewer As New ADODB.Recordset Dim MySQL As String Dim i As Integer Dim JmlSiswaDiTerima As String MySQL= "SELECT NIS FROM Tab_SiswaPKL WHERE Tab_SiswaPKL.Status='Diterima' " Set RSViewer = New ADODB.Recordset RSViewer.Open MySQL, DbAcax, adOpenKeyset, adLockOptimistic If RSViewer.BOF = True And RSViewer.EOF = True Then MsgBox "Database Kosong", vbOKOnly + vbInformation Exit Sub End If RSViewer.MoveFirst For i = 0 To RSViewer.RecordCount - 1 RSViewer.GetRows = i Next i = i JmlSiswaDiTerima = i JmlSiswaDiTerima = Format(JmlSiswaDiTerima, "###,###,##0") TxtSiswaDiterima.Text = i & " Siswa" TxtSiswaDiterima.Locked = True Set RSViewer = Nothing

Download Icon

Tabel yang dipakai adl Tabel Supervisor Function CariSVisor() ' adl Fungsi Pencarian data On Error GoTo Handl Dim RsSVisorView As New ADODB.Recordset Dim MySQL, NOIS, UserMsg, TXt As String UserMsg = InputBox("Masukkan NIK Yang Dicari!", " Lab~Q 5", NOIS, 5000, 3500) If StrPtr(UserMsg) <> 0 Then ' Start of Usermessage NOIS = UserMsg MySQL = "SELECT From Tab_Karyawan " & _ "WHERE NIK LIKE '%" & UserMsg & "%' And Tab_Karyawan.Jabatan Not Like 'Teknisi' And Tab_Karyawan.Jabatan Not Like 'Petugas' ORDER BY Tab_Karyawan.Nama" RsSVisorView.Open MySQL, DbAcax, adOpenKeyset, adLockOptimistic If RsSVisorView.BOF = True And RsSVisorView.EOF = True Then ' cari NAMA Set RsSVisorView = Nothing MySQL = "SELECT * From Tab_Karyawan " & _ "WHERE Nama LIKE '%" & UserMsg & "%' And Tab_Karyawan.Jabatan Not Like 'Teknisi' And Tab_Karyawan.Jabatan Not L

Private Sub Form_Load() On Error GoTo handl Set DbAcax = New ADODB.Connection DbAcax.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=PassWord; Data Source=" & App.Path & "\.mdb" DbAcax.CursorLocation = adUseClient BukaRS Exit Sub handl: If Err <> 0 Then MsgBox Err.Description, , " Lab~Q 5" End If End Sub

Berikut agar AoutoRun tidak dijalankan setiap user akses USB Drive : . [Start] >> [Run] · Pada dialog box “Run” ketik “gpedit.msc” >> “OK” · Pada layar “Group Policy”, pilih “User Configuration” · Pilih menu “Administrative Templates” >> “System” . Pada menu “system” tersebut klik kanan “Turn off Autoplay” >> “Properties” . Pada layar “Turn off Autoplay properties” Klik tabulasi “Setting” Pilih option “Enable” . Pada menu “Turn off Autoplay on” pilih “All Drives” >> “Apply” >> “OK” Dengan setting ini Group Policy untuk “Turn off Autoplay ” berubah menjadi “Enable” karena sebelumnya semua setting Group Policy biasanya belum dikonfigurasi “Not Configured” Cara ini tidak menghilangkan kemungkinan komputer terserang virus, yg paling efektif adalah memasang antivirus yg terus update, tetapi cara diatas hanya memperlambat masuknya virus saja .

Menghitung Jumlah Jam Kerja.exe

Bagi yang membutuhkan design Gambar atau Loggo dengan CorelDraw12