2. Convert to second value
SELECT no, TIME_TO_SEC(time)/3600 as ' Time in New Value' FROM coba;





3. Finish.

Public Class ClsGAJI
    Private noslip As String
    Private tglslip As Date
    Private gaji As Double
    Public Property nomorslip() As String
        Get
            Return noslip
        End Get
        Set(ByVal value As String)
            noslip = value
        End Set
    End Property
    Public Property tglgaji() As Date
        Get
            Return tglslip
        End Get
        Set(ByVal value As Date)
            tglslip = value
        End Set
    End Property
    Public Property gapok() As Double
        Get
            Return gaji
        End Get
        Set(ByVal value As Double)
            gaji = value

        End Set
    End Property
End Class

Public Class ClsPEGAWAI
    Private nip, nama, jabatan As String
    Private tglahir As Date
    Public Property nomor() As String
        Get
            Return nip
        End Get
        Set(ByVal value As String)
            nip = value
        End Set
    End Property
    Public Property nmpeg() As String
        Get
            Return nama
        End Get
        Set(ByVal value As String)
            nama = value
        End Set
    End Property
    Public Property jabatanpgw() As String
        Get
            Return jabatan
        End Get
        Set(ByVal value As String)
            jabatan = value
        End Set
    End Property
    Public Property tanggal() As String
        Get
            Return tglahir
        End Get
        Set(ByVal value As String)
            tglahir = value
        End Set
    End Property
End Class


Public Class FrmSlipGaji
    Dim objslip As New ClsGAJI
    Dim objPGW As New ClsPegawai
    Dim objGAJI As New ClsGAJI


    Private Sub FrmSlipGaji_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        With CBJabatan
            .Items.Add("Director")
            .Items.Add("Manager")
            .Items.Add("Supervisor")
            .Items.Add("Officer")
            .SelectedIndex = 0


        End With
    End Sub

    Private Sub BBatal_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BBatal.Click
        TxtNoSlip.Text = ""
        DTglSlip.Value = Now
        TxtNama.Text = ""
        CBJabatan.Text = ""
        TxtGAPOK.Text = ""

    End Sub

    Private Sub BCetak_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BCetak.Click
        Dim data As String
        With objPGW
            .nmpeg = TxtNama.Text
            .jabatanpgw = CBJabatan.Text
        End With
        With objGaJI
            .nomorslip = TxtNoSlip.Text
            .tglgaji = DTglSlip.Value
            .gapok = TxtGAPOK.Text
        End With
        data = "Nomor Slip : " + objGAJI.nomorslip + Chr(13) + _
             "tanggal Slip : " + Format(objGAJI.tglgaji, "dd/MM/yyyy") + Chr(13) + _
             "Nama Pegawai : " + objPGW.nmpeg + Chr(13) + _
             "Jabatan : " + objPGW.jabatanpgw + Chr(13) + _
             "Gaji Pokok : " + Format(objGAJI.gapok, "###,###")

        MsgBox(data, MsgBoxStyle.OkOnly, "Data Slip Pegawai")

    End Sub
End Class

Tercetak :

• Isi Webblog title dan email
• User dan password untuk administrator admin

Selanjutnya, kita dapat login mmelalui wp-login.php menggunakan username dan password admnistrator/admin untuk kemudian mengadmini Situs dan membuat user lainnya.

Untuk mengatasinya berikut ini ada trik untuk menghilangkan tampilan tersebut saat start up.

Menghilangkan Peringatan Windows Genuine Advance (WGA)

• Langkah2nya adalah sebagai berikut :
• Buka Task Manager dengan menekan “Ctrl+Alt+Del”
• Matikan proses yang bernama “wgatray.exe”
• Restart computer dan masuklah ke dalam Safe Mode (biasanya dengan menekan tombol F8)Pada Safe Mode, buka registry editor dengan cara klik Start \\ Run. Ketik “regedit” kemudian ENTER
• Pada regedit, carilah: HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ windowsNT \\ CurrentVersion \\ Winlogon \\ Notify
• Kemudian hapus folder/directory “WGALOGON”
•  Restart kembali komputer seperti biasa

Uninstall Windows Genuine Advance (WGA)
Caranya:

• Matikan process “wgatray.exe” di Task Manager
• Restart Windows XP dan masuk safe mode
• Delete WgaTray.exe dari c:\Windows\System32
• Delete WgaTray.exe dari c:\Windows\System32\dllcache
• Buka RegEdit, cari: HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows NT \\ CurrentVersion \\ Winlogon \\ Notify
• Delete folder “WgaLogon” dan seluruh isinya
• Reboot Windows XP