Bahasa Pemrograman

Tadi kita sudah membuat form-form'a sekarang kita akan membuat listing'a

Private Sub bersih()
txtid.Text = ""
txtnm.Text = ""
txttlp.Text = ""
txtalmt.Text = ""
End Sub

Private Sub nonaktif()
txtid.Enabled = False
txtnm.Enabled = False
txttlp.Enabled = False
txtalmt.Enabled = False
End Sub

Private Sub aktif()
txtid.Enabled = True
txtnm.Enabled = True
txttlp.Enabled = True
txtalmt.Enabled = True
End Sub

Private Sub tampil()
On Error Resume Next
txtid.Text = Data1.Recordset!id_apoteker
txtnm.Text = Data1.Recordset!nm_apoteker
txtalmt.Text = Data1.Recordset!alamat
txttlp.Text = Data1.Recordset!phone
End Sub

Private Sub nomor()
Dim ltanggal As String
Dim urutan As String * 9
Dim hitung As Byte
ltanggal = Format(Date, "ddmmyy")

With Data2
.DatabaseName = "C:\folder endah\simulasi ukk\rs.mdb"
.RecordsetType = 2
.RecordSource = "select id_nota from pembayaran where left(id_nota,6)='" & ltanggal & "'"
.Refresh
If .Recordset.RecordCount = 0 Then
urutan = ltanggal & "001"
Else
.Recordset.MoveLast
hitung = Val(Right(.Recordset!id_nota, 3)) + 1
urutan = ltanggal & Right("000" & hitung, 3)
End If
txtidnota.Text = urutan
End With
End Sub

Private Sub total_harga()
On Error Resume Next
DBGrid1.Col = 4
total = 0
sementara.Recordset.MoveFirst
Do While Not sementara.Recordset.EOF
sementara.Recordset!jmlhbyr = DBGrid1.SelText
total = total + DBGrid1.SelText
sementara.Recordset.MoveNext
Loop
txttot.Text = total
On Error GoTo 0
End Sub

Private Sub form_activate()
Call nonaktif
Call bersih
cmdsave.Enabled = False
cmddelete.Enabled = False
cmdcancel.Enabled = False
End Sub

Private Sub DBCombo1_Click(Area As Integer)
If Len(Trim(DBCombo1.Text)) > 5 Then
Exit Sub
End If
'CARI KODE APOTEKER
cost.Recordset.Index = "id_cos"
cost.Recordset.Seek "=", DBCombo1.Text
If cost.Recordset.NoMatch Then
MsgBox "ID Costomer Tidak Ada", vbOKOnly, "..::Konfirmasi::.."
Text4.Text = ""
DBCombo1.SetFocus
Exit Sub
End If
Text4.Text = cost.Recordset!nama_cos
DBCombo2.SetFocus
End Sub


Private Sub cmdadd_Click()
Call nomor
Call aktif
txtid.Enabled = False
txtnm.SetFocus
cmdadd.Enabled = False
cmdedit.Enabled = False
cmdsave.Enabled = True
cmdcancel.Enabled = True
End Sub


Private Sub cmdcancel_Click()
Call bersih
Call nonaktif
cmdsave.Enabled = False
cmddelete.Enabled = False
cmdadd.Enabled = True
cmdedit.Enabled = True
End Sub


Private Sub cmddelete_Click()
Data1.Recordset.Index = "id_apoteker"
Data1.Recordset.Seek "=", UCase(txtid.Text)
If Not Data1.Recordset.NoMatch Then
Data1.Recordset.Delete
Call nonaktif
Call bersih
cmdsave.Enabled = False
cmddelete.Enabled = False
cmdadd.Enabled = True
cmdedit.Enabled = True
End If
End Sub

Private Sub cmdedit_Click()
Dim x As String
x = InputBox("Masukkan ID Apoteker Yang Akan Anda Edit", "EDIT")
Data1.Recordset.Index = "id_apoteker"
Data1.Recordset.Seek "=", UCase(x)
If Not Data1.Recordset.NoMatch Then
Call tampil
Call aktif
txtid.Enabled = False
cmdsave.Enabled = True
cmddelete.Enabled = True
cmdcancel.Enabled = True
cmdadd.Enabled = False
cmdedit.Enabled = False
txtnm.SetFocus
Else
MsgBox "ID Apoteker Tidak Ada", vbOKOnly, "EDIT"
Call bersih
Call nonaktif
End If
End Sub


Private Sub cmdcari_Click()
Dim x As String
x = InputBox("Masukkan ID Apoteker Yang Anda Cari", "SEARCH")
Data1.Recordset.Index = "id_apoteker"
Data1.Recordset.Seek "=", UCase(x)
If Not Data1.Recordset.NoMatch Then
Call tampil
Call nonaktif
Else
MsgBox "ID Apoteker Tidak Ada", vbOKOnly, "SEARCH"
Call bersih
Call nonaktif
End If
cmdcancel.Enabled = True
End Sub


Private Sub cmdsave_Click()
If txtnm.Text = "" Or txttlp.Text = "" Or txtalmt.Text = "" Then
MsgBox "Data Masih Ada Yang Kosong", vbOKOnly, "Data Belum Lengkap"
Else
Data1.Recordset.Index = "id_apoteker"
Data1.Recordset.Seek "=", txtid.Text
If Not Data1.Recordset.NoMatch Then
Data1.Recordset.Edit
Data1.Recordset!id_apoteker = txtid.Text
Data1.Recordset!nm_apoteker = txtnm.Text
Data1.Recordset!alamat = txtalmt.Text
Data1.Recordset!phone = txttlp.Text
Data1.Recordset.Update
Else
Data1.Recordset.AddNew
Data1.Recordset!id_apoteker = txtid.Text
Data1.Recordset!nm_apoteker = txtnm.Text
Data1.Recordset!alamat = txtalmt.Text
Data1.Recordset!phone = txttlp.Text
Data1.Recordset.Update
End If
Call nonaktif
Call bersih
cmdsave.Enabled = False
cmddelete.Enabled = False
cmdcancel.Enabled = True
cmdadd.Enabled = True
End If
End Sub


Private Sub Cmdshow_Click()
Frame1.Visible = True
Frame2.Visible = True
cmdadd.Visible = True
cmdedit.Visible = True
cmdsave.Visible = True
cmddelete.Visible = True
cmdcari.Visible = True
cmdexit.Visible = True
cmdcancel.Visible = True
Command1.Visible = False
End Sub

ni listing yang combo'a da 2

Private Sub Combo1_Click()
Text1.Text = Mid(Combo1.Text, 7, 100)
Text2.Text = Left(Combo1.Text, 5)
End Sub

bis di tulis listing nie masukin juga listing di form load

Private Sub form_activate()
Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
Combo1.AddItem Data2.Recordset!id_jenis & " " & Data2.Recordset!jns_obat
Data2.Recordset.MoveNext
Loop
Call nonaktif
Call bersih
cmdsave.Enabled = False
cmddelete.Enabled = False
cmdcancel.Enabled = False
End Sub

nie listing u untuk harga + laba otomatis

Private Sub txtharga_Change()
If txtharga.Text = "" Or Val(txtharga.Text) <>
Exit Sub
Else
Dim x As String
x = Val(txtharga.Text) / Val(txtisi.Text) * 20 / 100
txthrgsat.Text = x
End If
End Sub


nie listing wat form login

Private Sub Form_Load()
teks = Me.Caption
End Sub

Private Sub form_activate()
txtUserName.MaxLength = 5
End Sub

Private Sub cmdcancel_Click()
End
End Sub

Private Sub cmdOK_Click()
Data1.Recordset.Index = "id_apoteker"
Data1.Recordset.Seek "=", txtPassword.Text
If Data1.Recordset.NoMatch Then
MsgBox "Invalid ID Apoteker?", vbOKOnly, "Informasi"
txtUserName.SetFocus
ElseIf Data1.Recordset!id_apoteker <> txtPassword.Text Then
MsgBox "Invalid Password?", vbOKOnly, "Informasi"
txtPassword.SetFocus
Else
MDIForm1.Show
kode = txtUserName.Text
Unload Me
Me.Hide
End If
End Sub

nie wat listing form pembayaran + resep

Private Sub DBGrid1_DblClick()
If sementara.Recordset.RecordCount = 0 Then
MsgBox "Tidak Ada yang Bisa Dihapus Lagi!", vbOKOnly + vbCritical, "Konfirmasi"
Exit Sub
End If
x = MsgBox("Yakin Data Mau Dihapus", vbYesNo + 32, "Konfirmasi")
If x = vbYes Then
On Error Resume Next
obat.Recordset.Index = "id_obat"
obat.Recordset.Seek "=", sementara.Recordset!kode_obat
If Not obat.Recordset.NoMatch Then
obat.Recordset.Edit
obat.Recordset!jumlah = va(obat.Recordset!jumlah) + Val(sementara.Recordset!qty)
obat.Recordset.Update
obat.Refresh
End If
If sementara.Recordset.RecordCount > 0 Then
sementara.Recordset.Delete
End If
Call total_harga
Else
Exit Sub
End If
End Sub


Private Sub cmdadd_Click()
If txtqty = "" Then
MsgBox "Data Masih Ada yang Kosong Tuchh, Silakan di Isi dulu", vbInformation, "Iformation"
txtqty.SetFocus
Else
sementara.Recordset.AddNew
sementara.Recordset!kode_obat = DBCombo2.Text
sementara.Recordset!nama_obat = txtnm.Text
sementara.Recordset!hargasat = txthrg.Text
sementara.Recordset!qty = txtqty.Text
sementara.Recordset!jmlhbyr = txtjmlbyr.Text
sementara.Recordset.Update
Call total_harga
With obat.Recordset
.Edit
!jumlah = Val(!jumlah) - Val(txtqty.Text)
.Update
End With
DBCombo2.Text = "Obat"
txtnm.Text = ""
txthrg.Text = ""
txtqty.Text = ""
txtjmlbyr.Text = ""
DBCombo2.SetFocus
End If
End sub


Private Sub cmdcancel_Click()
If sementara.Recordset.RecordCount = 0 Then
MsgBox "Tidak ada yang bisa dihapus lagi!", vbOKOnly + vbCritical, "Konfirmasi"
Exit Sub
End If
x = InputBox("Masukkan ID Obat yang Akan Dibatalkan", "Konfirmasi")
On Error Resume Next
sementara.Recordset.Index = "kode_obat"
sementara.Recordset.Seek "=", UCase(x)
If Not sementara.Recordset.NoMatch Then
sementara.Recordset.Delete
End If
Call total_harga
End Sub


Private Sub cmdsave_Click()
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Load printer
printer.Show
printer.FontName = "arial"
printer.CurrentX = 0
printer.CurrentY = 0
printer.FontSize = 12
printer.FontBold = False
printer.Print
printer.Print Tab(3); "Apotek Segera Sembuh"
printer.Print Tab(3); "Jl. Kompleks PLN P3B"
printer.Print
printer.FontSize = 8
printer.FontUnderline = False
printer.Print Tab(3); "Struk Obat"
printer.Print
printer.FontSize = 8
printer.FontUnderline = False
printer.Print Tab(3); "No. nota :"; Tab(35); txtidnota.Text
printer.Print Tab(3); "Tanggal :"; Tab(35); txttgl.Text
printer.Print Tab(3); "ID Apoteker :"; Tab(35); Text3.Text
printer.Print
printer.FontBold = False
printer.Print String(80, "=")
printer.FontBold = False
printer.Print Tab(3); "Kode Obat"; Tab(15); "Nama Obat"; Tab(27); "Jumlah"; Tab(39); "Harga"; Tab(51); "Bayar";
printer.FontBold = False
With sementara.Recordset
.MoveFirst
n = 1
While Not .EOF
a = sementara.Recordset!kode_obat
e = sementara.Recordset!nama_obat
f = sementara.Recordset!qty
g = sementara.Recordset!hargasat
h = sementara.Recordset!jmlhbyr
i = sementara.Recordset!jmlhbyr + i
If Not sementara.Recordset!kode_obat = Space(15) Then
nota.Recordset.AddNew
nota.Recordset!id_nota = txtidnota.Text
nota.Recordset!tgl_nota = txttgl.Text
nota.Recordset!jml_beli = sementara.Recordset!qty
nota.Recordset!harga = sementara.Recordset!hargasat
nota.Recordset!total_bayar = txttot.Text
nota.Recordset!id_cost = DBCombo1.Text
nota.Recordset!id_apteker = Text3.Text
nota.Recordset!id_obt = DBCombo2.Text
nota.Recordset.Update

End If
printer.Print Tab(3); Format(a, "###"); Tab(15); Format(e, "###"); Tab(27); Format(f, "###"); Tab(39); Format(g, "###"); Tab(51); Format(h, "###");
.MoveNext
n = n + 1
Wend
End With
printer.FontBold = False
printer.Print Tab(1); String(80, "=")
printer.FontBold = False
printer.Print Tab(51); "Total bayar:"; Tab(65); Format(i, "###,###,###")
printer.Print Tab(51); "Uang Bayar:"; Tab(65); Format(txtbyr.Text, "###,###,###")
b = Val(txtbyr.Text) - i
If b = 0 Then
b = "0"
End If
printer.Print Tab(51); "Uang Kembali:"; Tab(65); Format(b, "###,###,###")
printer.Print Tab(1); String(80, "=")
printer.Print Tab(3); "Terima kasih"
'printer.EndDoc
Z = MsgBox("Cetak Print?", vbYesNo, "Informasi")
If Z = vbYes Then
End If
If sementara.Recordset.RecordCount > 0 Then
sementara.Recordset.MoveFirst
Do While Not sementara.Recordset.EOF
sementara.Recordset.Delete
sementara.Recordset.MoveNext
Loop
End If
Call bersih
End Sub



Private Sub form_activate()
DBCombo2.SetFocus
Call Timer1_Timer
Call nomor
txtidnota.Enabled = False
txttgl.Enabled = False
Text3.Enabled = False
Text3.Text = apoteker.Recordset!id_apoteker
txttot.Text = ""
txtbyr.Text = ""
txtkmbl.Text = ""
End Sub
Private Sub Timer1_Timer()
txttgl.Text = Date
txtjam.Text = Time
End Sub

Private Sub txtbyr_Change()
txtkmbl.Text = Val(txtbyr.Text) - Val(txttot.Text)
End Sub

Private Sub txtqty_Change()
If Val(obat.Recordset!jumlah) = 0 Then
MsgBox "Maaf Stok Obat Kosong", vbInformation, "Informasi"
Exit Sub
End If
If Val(txtqty.Text) > Val(obat.Recordset!jumlah) Then
MsgBox "Maaf Stok Obat Tidak Mencukupi", vbInformation, "Informasi"
txtqty.Text = ""
Exit Sub
End If
txtjmlbyr.Text = Val(txtqty.Text) * Val(txthrg.Text)
End Sub

Private Sub txtqty_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0
End Sub

ckarang kita akan membuat form apotik
yang di atas tuh form-form yang kita butuhkan

nah ckarang kita akan membuat listing form rekam medis oce.....

yang di atas tuh form'a...
jelas kan...

yang ini listing-listing'a

nie listing bersih
Private Sub aktif()
txtnmrrkm.Enabled = True
txttgl.Enabled = True
txtjam.Enabled = True
DBCombo2.Enabled = True
txtnmdkt.Enabled = True
DBCombo1.Enabled = True
txtnmpsn.Enabled = True
txtdiag.Enabled = True
txtket.Enabled = True
txtkdksr.Enabled = True
DBCombo3.Enabled = True
txtnmobt.Enabled = True
txtjns.Enabled = True
txtjml.Enabled = True
DBGrid1.Enabled = True
End Sub

nie listing wat nonaktif
Private Sub nonaktif()
txtnmrrkm.Enabled = False
txttgl.Enabled = False
txtjam.Enabled = False
DBCombo2.Enabled = False
txtnmdkt.Enabled = False
DBCombo1.Enabled = False
txtnmpsn.Enabled = False
txtdiag.Enabled = False
txtket.Enabled = False
txtkdksr.Enabled = False
DBCombo3.Enabled = False
txtnmobt.Enabled = False
txtjns.Enabled = False
txtjml.Enabled = False
DBGrid1.Enabled = False
End Sub

nie listing wat bersih
Private Sub bersih()
txtnmrrkm.Text = ""
txttgl.Text = ""
txtjam.Text = ""
DBCombo2.Text = ""
txtnmdkt.Text = ""
DBCombo1.Text = ""
txtnmpsn.Text = ""
txtdiag.Text = ""
txtket.Text = ""
txtkdksr.Text = ""
DBCombo3.Text = ""
txtnmobt.Text = ""
txtjns.Text = ""
txtjml.Text = ""
DBGrid1.Text = ""
End Sub

nie listing wat bikin no otomatis
Private Sub nomor()
Dim no As String
With Data4
If .Recordset.RecordCount <> 0 Then
.Recordset.MoveLast
no = Val(Right(.Recordset!nomorrkm, 4)) + 1
If Len(Trim(no)) = 1 Then
txtnmrrkm.Text = "R" + "000" + no
End If
If Len(Trim(no)) = 2 Then
txtnmrrkm.Text = "R" + "00" + no
End If
If Len(Trim(no)) = 3 Then
txtnmrrkm.Text = "R" + "0" + no
End If
If Len(Trim(no)) = 4 Then
txtnmrrkm.Text = "R" + no
End If
Else
txtnmrrkm.Text = "R0001"
End If
End With
End Sub

nie listing wat button add
Private Sub Command1_Click()
If txtjml = "" Then
MsgBox "Data Masih Ada yang Kosong Tuchh, Silakan di Isi dulu", vbInformation, "Iformation"
txtjml.SetFocus
Else
Data7.Recordset.AddNew
Data7.Recordset!kdobt = DBCombo3.Text
Data7.Recordset!nmobt = txtnmobt.Text
Data7.Recordset!jnsobt = txtjns.Text
Data7.Recordset!jumlah = txtjml.Text
Data7.Recordset.Update
With Data2.Recordset
.Edit
!jumlahstok = Val(!jumlahstok) - Val(txtjml.Text)
.Update
End With
DBCombo3.Text = "obat"
txtnmobt.Text = ""
txtjns.Text = ""
txtjml.Text = ""
DBCombo3.SetFocus
End If
End Sub

nie listing wat button save
Private Sub Command2_Click()
Call nomor
On Error Resume Next
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Load printer1
printer1.Show
printer1.FontName = "arial"
printer1.CurrentX = 0
printer1.CurrentY = 0
printer1.FontSize = 11
printer1.FontBold = False
printer1.Print
printer1.Print Tab(15); "Apotek Segera Sembuh"
printer1.Print Tab(15); "Jl. Kompleks PLN P3B"
printer1.Print
printer1.FontSize = 8
printer1.FontUnderline = False
printer1.Print Tab(15); "Resep Obat"
printer1.Print
printer1.FontSize = 8
printer1.FontUnderline = False
printer1.Print Tab(3); "Nomor Rekam :"; Tab(35); txtnmrrkm.Text
printer1.Print Tab(3); "Tanggal :"; Tab(35); txttgl.Text
printer1.Print
printer1.FontBold = False
printer1.Print String(40, "=")
printer1.FontBold = False
printer1.Print Tab(3); "Kode obat"; Tab(17); "Nama obat"; Tab(33); "Jumlah";
printer1.FontBold = False
With Data7.Recordset
.MoveFirst
n = 1
While Not .EOF
a = Data7.Recordset!kdobt
e = Data7.Recordset!nmobt
f = Data7.Recordset!jumlah
'g = DtSementara.Recordset!diagnosis
If Not Data7.Recordset!kdobt = Space(17) Then
Data4.Recordset.AddNew
Data4.Recordset!nomorrkm = txtnmrrkm.Text
Data4.Recordset!tglperiksa = txttgl.Text
Data4.Recordset!kodepsn = DBCombo2.Text
Data4.Recordset!kodedkt = DBCombo1.Text
Data4.Recordset!diagnosa = txtdiag.Text
Data4.Recordset!keterangan = txtket.Text
Data4.Recordset!kdksr = txtkdksr.Text
Data4.Recordset.Update

End If
If Not Data7.Recordset!kdobt = Space(17) Then
Data6.Recordset.AddNew
Data6.Recordset!nmrrkm = txtnmrrkm.Text
Data6.Recordset!kodeobat = Data7.Recordset!kdobt
Data6.Recordset!dosis = Data7.Recordset!jumlah
Data6.Recordset.Update

End If
printer1.Print Tab(3); Format(a, "###"); Tab(17); Format(e, "###"); Tab(33); Format(f, "###");
.MoveNext
Wend
End With
printer1.Print Tab(1); String(40, "=")
printer1.Print Tab(15); "Terima kasih"
z = MsgBox("Cetak Print?", vbYesNo, "Informasi")
If z = vbYes Then
'Call cetakprint
End If
If Data7.Recordset.RecordCount > 0 Then
Data7.Recordset.MoveFirst
Do While Not Data7.Recordset.EOF
Data7.Recordset.Delete
Data7.Recordset.MoveNext
Loop
End If
Call bersih
End Sub

nie listing wat button batal
Private Sub Command4_Click()
Dim x As String
x = InputBox("Masukkan kode obat yang akan dibatalkan", "Konfirmasi")
Data7.Recordset.Index = "kdobt"
Data7.Recordset.Seek "=", UCase(x)
If Not Data7.Recordset.NoMatch Then
Data7.Recordset.Delete
MsgBox "obat telah dibatalkan", vbInformation, "informasi"
'Else
'MsgBox "Maaf", vbInformation, "info"
End If
Form5.Refresh
End Sub

nie listing wat dbcombo
Private Sub DBCombo1_Click(Area As Integer)
If Len(Trim(DBCombo1.Text)) > 5 Then
Exit Sub
End If
'CARI KODE DOKTER
Data3.Recordset.Index = "kodedkt"
Data3.Recordset.Seek "=", DBCombo1.Text
If Data3.Recordset.NoMatch Then
MsgBox "Kode Dokter Tidak Ada", vbOKOnly, "..::Konfirmasi::.."
txtnmdkt.Text = ""
DBCombo1.SetFocus
Exit Sub
End If
txtnmdkt.Text = Data3.Recordset!namadkt
DBCombo2.SetFocus
End Sub

Private Sub DBCombo2_Click(Area As Integer)
If Len(Trim(DBCombo2.Text)) > 5 Then
Exit Sub
End If
'CARI KODE PASIEN
Data1.Recordset.Index = "kodepsn"
Data1.Recordset.Seek "=", DBCombo2.Text
If Data1.Recordset.NoMatch Then
MsgBox "Kode Pasien Tidak Ada", vbOKOnly, "..::Konfirmasi::.."
txtnmpsn.Text = ""
DBCombo2.SetFocus
Exit Sub
End If
txtnmpsn.Text = Data1.Recordset!namapsn
txtdiag.SetFocus
End Sub

Private Sub DBCombo3_Click(Area As Integer)
If Len(Trim(DBCombo3.Text)) > 5 Then
Exit Sub
End If
'CARI KODE OBAT
Data2.Recordset.Index = "kodeobt"
Data2.Recordset.Seek "=", DBCombo3.Text
If Data2.Recordset.NoMatch Then
MsgBox "Kode Obat Tidak Ada", vbOKOnly, "..::Konfirmasi::.."
txtnmobt.Text = ""
txtjns.Text = ""
DBCombo3.SetFocus
Exit Sub
End If
txtnmobt.Text = Data2.Recordset!NamaObt
txtjns.Text = Data2.Recordset!jenisobt
txtjml.SetFocus
End Sub

nie wat listing cetak
Private Sub Cetak()
tampilkan.Show
Dim MGrs As String
tampilkan.Font = "Courier New"
'memilih nomor terakhir di tabel resep
'Data6.RecordSource = "select * from resep Where left(nomorrkm,5) In(Select max(left(nomorrkm,5)) From resep)"
'Data6.Refresh
'memilih nomor terakhir di tabel rekam medis
'Data4.RecordSource = "select * from rekammedis Where nomorrkm In(Select Max(nomorrkm)From rekammedis)Order By nomorrkm Desc" ', Nomor Asc"
'Data4.Refresh
'mencari kode pasien di tabel rekam medis
Data1.Recordset.Index = "kodepsn"
Data1.Recordset.Seek "=", Data4.Recordset!kodepsn
'mencari kode dokter di tabel rekam medis
Data3.Recordset.Index = "kodedkt"
Data3.Recordset.Seek "=", Data4.Recordset!kodedkt
tampilkan.Print
tampilkan.FontBold = True
tampilkan.Print
tampilkan.FontBold = False
tampilkan.Print Tab(5); "Nomor Rekam : "; Data4.Recordset!nomorrkm
tampilkan.Print Tab(5); "Tanggal : "; Format(Date, "DD-MMMM-YYYY")
tampilkan.Print Tab(5); "Dokter : "; Data3.Recordset!namadkt
tampilkan.Print Tab(5); "Pasien : "; Data1.Recordset!namapsn
MGrs = String$(33, "-")
tampilkan.Print Tab(5); MGrs
'menampilkan obat dari tabel resep
Data6.Recordset.MoveFirst
On Error Resume Next
Do While Not Data6.Recordset.EOF
Data2.Recordset.Index = "kodeobt"
Data2.Recordset.Seek "=", Data6.Recordset!kodeobat
tampilkan.Print Tab(5); Mid(Data6.Recordset!nmrrkm, 6, 2);
tampilkan.Print Tab(10); Data2.Recordset!NamaObt;
tampilkan.Print Tab(30); Data6.Recordset!dosis;
Data6.Recordset.MoveNext
Data6.Refresh
Loop
tampilkan.Print Tab(5); MGrs
tampilkan.Print
tampilkan.Print
End Sub

nie listing pendukung laen'a
Private Sub form_activate()
Call Timer1_Timer
Call nomor
Data12.Recordset.Index = "kodeksr"
Data12.Recordset.Seek "=", kode
If Not Data12.Recordset.NoMatch Then
txtkdksr.Text = Data12.Recordset!namaksr
txtdiag.Text = ""
txtket.Text = ""
End If
End Sub
Private Sub Timer1_Timer()
txttgl.Text = Date
txtjam.Text = Time
End Sub

Private Sub txtjml_Change()
If Val(Data2.Recordset!jumlahstok) = 0 Then
MsgBox "Maaf Stok Kosong", vbInformation, "Informasi"
Exit Sub
If Val(txtjml.Text) > Val(Data2.Recordset!jumlahstok) Then
MsgBox "Maaf Stok Barang Tidak Mencukupi", vbInformation, "Informasi"
txtjml.Text = ""
Exit Sub
End If
End If
End Sub

Private Sub txtjml_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0
End Sub

Hampir sebagian besar pengguna komputer tentu tidak akan suka dengan yang namanya virus komputer. Virus komputer dalam artian adalah program yang beragam jenisnya yang bersifat mengganggu, merusak, menjengkelkan dan membahayakan, mulai dari malware, spyware, adware, worm dan trojan.
Yang membuat kita tak habis pikir adalah dengan alasan apa ada orang di dunia ini yang 'iseng' membuat virus komputer sehingga membuat kesal para pengguna komputer.
Ada banyak alasan yang membuat seseorang menciptakan virus komputer, mulai dari motif pribadi, motif materi, sampai motif yang berbau mata-mata. Mari kita lihat 12 motif atau alasan dibalik kenapa seseorang membuat virus komputer.

1. Karena marah
Jika ada seseorang marah dia tentu bisa berbuat apa saja dan begitu pula jika yang sedang marah itu seorang programmer komputer yang bisa membuat virus komputer. Bayangkan jika programmer yang marah itu adalah pegawai di satu perusahaan yang marah karena ia dianggap tidak becus membuat suatu program untuk perusahaan dan akhirnya menyalurkan kemarahannya itu dengan membuat virus komputer yang menyerang seluruh komputer yang ada di perusahaan tersebut.

2. Melakukannya demi 'kesenangan'
Aneh memang jika ada orang yang membuat virus komputer demi kesenangan atau kepuasan pribadi. Orang seperti ini akan merasa senang atau puas ketika ia melihat hasil karyanya diliput luas oleh media cetak dan elektronik dan disebut sebagai seorang 'elit' yang berhasil merusak banyak komputer.

3. Spionase
Kegiatan spionase adalah tindakan mengumpulkan informasi untuk tujuan selain mencuri identitas atau demi materi. Biasanya dilakukan oleh mereka yang berkecimpung di dunia intelijen dan dilakukan guna mendapatkan informasi dari orang yang sebelumnya sudah mereka targetkan. Banyak orang yang khawatir dengan pembuat hardware asal Cina, mereka khawatir ada backdoor dalam hardware tersebut yang sengaja ditanamkan oleh pemerintah Cina atau pemerintah India yang khawatir dengan BlackBerry dan meminta pihak RIM menyediakan universal decryption keys untuk semua perangkat BB yang dijual di negara tersebut.

4. Gang online
Sekumpulan penjahat cyber yang membentuk gang. Ternyata gang online itu benar-benar nyata dan ada di dunia maya. Demi prestise gang-nya, biasanya mereka berkompetisi dengan gang online lainnya memperebutkan predikat gang online terbaik.

5. Naluri hacker
Seseorang dengan pola pikir hacker akan memiliki ketertarikan yang begitu tinggi tentang suatu hal dan tidak mudah puas kecuali ia mempraktekkannya sendiri. Sebagai contoh ia ingin mengetahui tentang kelemahan sebuah sistem operasi hp dengan membuat program kecil dan karena dia ingin tahu seberapa jauh pengaruhnya maka ia ujicobakan program kecil tersebut ke orang-orang di sekitarnya.

6. Uang
Selain kepuasan pribadi, motif lainnya yang dianggap paling dominan adalah karena uang. Banyak para penjahat cyber yang bisa disewa dengan sejumlah uang untuk melakukan spam, DDOS, botnet dan lain-lain.

7. Politik
Serangan virus, worm atau DDOS dapat dilakukan oleh suatu kelompok dengan alasan politik. Umumnya mereka mencoba mencari perhatian dari publik akan keberadaan mereka dan menyuarakan aspirasi mereka walaupun itu dengan cara-cara negatif.

8. Kisah percintaan dan drama
Cinta bisa memberikan kekuatan, kalimat itu memang cocok bagi para pecinta. Tapi bagaimana jika gagal cinta alias cinta ditolak, apakah bisa memberikan kekuatan juga?
Kalau yang gagal cinta itu seorang programmer komputer atau mahir di bidang dan terlalu gelap mata maka bisa jadi ia akan menyalurkan emosinya untuk membuat virus komputer dengan menyisipkan puisi atau pesan bagi sang kekasih yang tidak bisa jadi pendampingnya. Ada yang merasa seperti itu?

9. Sabotase
Mungkin dengan dalih balas dendam atau kompetisi, seseorang atau perusahaan akan mengerahkan segenap kemampuan untuk melumpuhkan sistem informasi orang lain, baik itu dengan menyebarkan virus atau cara-cara lainnya sehingga dapat menghancurkan kredibilitas orang atau perusahaan saingannya tersebut. Dan praktek ini adalah praktek kotor yang tergolong kriminal.

10. Tantangan intelektual
Ego untuk menjadi nomer satu dalam suatu hal bisa melatarbelakangi seseorang membuat virus komputer. Ambil contoh saja jika ada sebuah perusahaan antivirus yang meluncurkan produk antivirus yang mengaku bisa membasmi segala macam virus komputer dan lalu orang itu tergerak ingin membuktikan bahwa dirinya adalah satu-satunya orang di dunia yang bisa membuat virus yang tidak bisa dideteksi oleh si antivirus.

11. Pemerasan
Ada pihak-pihak yang menggunakan keahliannya membuat virus komputer untuk memeras orang lain. Sebut saja virus Vundo/Antivirus2009/Antivirus360 yang memberikan pesan “You’re infected! Give us sixty bucks and we’ll fix it!”

12. Sebagai 'resume'
Ingin mendapat pekerjaan di perusahaan antivirus? Coba saja buat sebuah virus komputer yang sulit untuk dibersihkan, lalu buat juga cara untuk membersihkannya, kemudian kirimkan ke perusahaan antivirus. Hal seperti itu sama persis ketika anda membuat resume tapi kali ini adalah anda ingin diakui dan dipakai oleh perusahaan antivirus dengan menjual 'hasil karya' anda yang berupa virus komputer kepada mereka.

Dengan semakin eratnya hubungan antar komputer, maka permasalahan baru pun muncul. Penyebaran makhluk yang bernama virus komputer pun menjadi lebih mudah. Saat ini, sebuah virus sudah dapat menyebarkan dirinya ke seluruh jaringan komputer yang ada di muka bumi hanya dalam hitungan beberapa detik. Untuk mengantisipasi serangan virus, berikut saya tuliskan langkah-langkah antisipasi yang bisa anda lakukan untuk mencegah komputer anda terinfeksi makhluk manis yang bernama virus.
1. Gunakanlah program antivirus yang bagus. Sekarang ini terdapat puluhan program antivirus yang dapat di gunakan. Ada yang dibagikan secara gratis, ada pula yang berbayar. Setiap program antivirus mempunyai kelebihan dan kekurangan masing masing. Untuk mengetahui antivirus mana yang bagus, anda bisa membaca review atau tulisan tentang antivirus tersebut di internet atau majalah komputer. Baca pula pengalaman orang orang yang telah menggunakan antivirus tersebut.
2. Ingatlah selalu untuk menjalankan program antivirus tersebut setiap anda menggunakan komputer. Pastikan antivirus yang anda gunakan memberikan perlindungan secara terus menerus termasuk perlindungan terhadap email masuk dan keluar. Hentikan kebiasaan menjalankan antivirus bila diperlukan saja karena anda tidak akan selalu tahu kapan suatu virus akan menyerang.
3. Pastikan program antivirus yang anda gunakan selalu dalam keadaan ter-update. Update database virus biasanya diberikan secara cuma cuma oleh pembuat program antivirus. Bila anda tidak ingin lupa melakukan update antivirus, jalankan saja fitur update terjadual yang tersedia pada program antivirus. Setiap hari tercipta ratusan virus baru, sehingga melakukan update secara rutin sudah menjadi suatu keharusan.
4. Pastikan sistem operasi yang anda gunakan selalu dalam keadaan ter-update. Semakin hari, semakin sering kita mendengar adanya lubang keamanan dari suatu sistem operasi. Lubang keamanan ini sering dimanfaatkan oleh virus untuk masuk dan merusak sistem komputer anda. Hal itulah yang menyebabkan mengapa sistem operasi harus selalu dalam keadaan ter-update. Disamping mengamankan dari serangan virus, melakukan update sistem operasi juga akan membuat komputer anda berjalan selalu dalam keadaan stabil. Update harus juga dilakukan untuk program lain yang terpasang di komputer anda karena mereka juga bisa menjadi celah bagi masuknya virus.
5. Lakukanlah backup data secara rutin. Hal ini untuk mencegah anda kehilangan data penting apabila komputer anda terinfeksi virus.
6. Jika anda sering menggunakan disket, USB Flash Disk, Harddisk external, pada komputer yang dipakai oleh banyak orang, ingatlah selalu untuk melakukan scanning antivirus pada media penyimpanan tersebut sebelum anda menjalankannya pada komputer anda. Selalulah beranggapan bahwa komputer yang digunakan banyak orang adalah komputer yang terinfeksi virus sehingga anda bisa lebih waspada. Selain itu, anda juga bisa menonaktifkan fungsi autorun untuk media media penyimpanan tersebut pada komputer anda. Hal ini memudahkan anda melakukan scanning manual sebelum komputer menjalankan program yang ada pada media penyimpanan tersebut.
7. Waspadalah terhadap lampiran/attachments email. Sampai saat ini, lampiran email merupakan sarana yang paling disukai oleh pembuat virus untuk menyebarkan virus buatannya. Disamping mudah menipu penerima email, penyebaran via lampiran email juga berlangsung sangat cepat. Jangan pernah membuka suatu lampiran email sebelum melakukan scanning dengan program antivirus walau email tersebut datang dari sahabat karib anda. Beberapa virus komputer akan menyebarkan dirinya melalui alamat email yang ada pada daftar kontak korbannya. Hal ini tentu tanpa sepengetahuan pemilik komputer.
8. Gunakan email berbasis teks dalam ber-email. Menggunakan email berformat html sangat disukai oleh banyak orang karena email jenis ini tampak lebih indah dan mudah dikustomisasi tampilannya. Sayangnya, email jenis ini juga disukai oleh virus untuk menyebarkan diri. Virus dapat menempel pada kode kode html yang ada pada body email, jadi anda bisa terinfeksi hanya dengan membuka email tersebut. Sementara itu, pada email yang berbasis teks, virus hanya dapat menempel pada lampiran saja.
9. Berhati hatilah dalam mengunduh program gratisan yang banyak dijajakan di dunia maya. Selalulah mengunduh dari situs yang terpercaya berdasarkan review banyak orang. Lakukan scanning installer program tersebut sebelum dipasang di komputer.
10. Hati hati terhadap taut atau link yang disebar via program messenger. Jangan pernah menerima undangan untuk berkunjung ke suatu situs dari orang yang tidak begitu anda kenal. Bisa jadi orang tersebut akan mengarahkan anda ke suatu situs yang banyak mengandung virus. Hati hati pula dalam melakukan surfing ke alamat alamat web yang tidak jelas isinya. Virus juga dapat menyisip pada kode kode html suatu situs sehingga anda bisa terkena virus bila berkunjung suatu web yang bervirus.

duhhh
kita pucink bgt nie klo di komputer kita da Virus
gimana ya cara ngilanginnya...
setela Qu bertapa akhirnya dapat juga loch cara jitu untuk menghilangkan virus...
yukkk
kita simak sama-sama...

Ada beberapa cara menghilangkan virus dari komputer anda bila sudah terlanjur terinfeksi virus ini. Teknik-teknik berikut dibahas pada sistem operasi Windows XP karena OS inilah yang paling umum terinfeksi dan paling banyak digunakan. Berikut adalah teknik teknik tersebut:
Menghapus dengan antivirus di komputer lain
Dengan melepaskan hardisk komputer yang telah terinfeksi virus kemudian dipasangkan ke komputer lain yang memilki antivirus yang terbaru atau setidaknya mampu mengenali virus di sistem yang telah terinfeksi. Lakukan full scanning pada hardisk sistem yang terinfeksi dan hapus semua virus yang ditemukan. Setelah selesai hardisk tersebut sudah dapat dipasang kembali dikomputer dan jalankan sistem seperti biasa. Lakukan pemeriksaan kembali apakah komputer masih menunjukkan gejala yang sama saat terkena virus. Cara ini ampuh membersihkan virus sepanjang antivirus di komputer lain tersebut dapat mengenali dan menghapus virus di hardisk yang terinfeksi. Namun virus masih meninggalkan jejak berupa autorun atau startup yang tidak berfungsi. Jejak ini terkadang memunculkan pesan error yang tidak berbahaya namun mungkin sedikit mengganggu.
Menghapus dengan sistem operasi lain
Pada laptop atau komputer yang tidak dapat dilepas harddisknya maka cara lain adalah menjalankan sistem operasi lain yang tidak terinfeksi virus dan melakukan full scan terhadap seluruh harddisk. Biasanya ada beberpa pengguna yang menggunakan dual OS seperti Linux dan Windows atau Windows XP dan Windows Vista dsb. Selain itu bisa juga menggunakan LiveCD atau OS Portable seperti Knoopix dan Windows PE ( Windows yang telah diminimazed dan dapat dibooting dari media penyimpanan portable seperti flash disk atau CD.) lalu lakukan full scanning dengan antivirus terbaru. Efektifnya sama dengan menghapus virus dengan antivirus di komputer lain contoh diatas. Virus terkadang masih meninggalkan jejak tidak berbahaya.
Menghapus secara manual
Bila anda kesulitan melakukan hal diatas masih ada cara lain yaitu dengan cara manual. Langkah-langkah tersebut adalah:
Matikan process yang dijalankan oleh virus. Virus yang aktif pasti memiliki process yang berjalan pada sistem. Process ini biasanya memantau aktifitas sistem dan melakukan aksinya bila ada kejadian tertentu yang dikenali virus tersebut. Contohnya pada saat kita memasang flash disk, process virus akan mengenali aksi tersebut dan menginfeksi flash disk dengan virus yang sama. Proses ini harusnya bisa dilihat dari task manager yang bisa diaktifkan dengan tombol Ctrl + Alt + Del namun terkadang virus akan memblokir aksi ini dengan melakukan log off, menutup window Task Manager, atau restart sistem. Cara lain adalah menggunakan tool lain untuk melihat dan mematikan proses virus. Saya biasa menggunakan Process Explorer dari http://www.sysinternals.com/ . Dengan tool ini anda bisa mematikan process yang dianggap virus. Pada saat mematikan proses milik virus perlu diperhatikan terkadang proses milik virus terdiri atas lebih dari 1 proses yang saling memantau. Bila 1 proses dimatikan maka proses tsb akan dihidupkan lagi dengan proses lainnya. Karena itu mematikan process virus harus dengan cepat sebelum proses yang dimatikan dihidupkan lagi oleh proses lainnya. Kenali terlebih dahulu proses yang dianggap virus lalu matikan semuanya dengan cepat. Biasanya virus menyamar menyerupai proses windows tapi tentu ada bedanya seperti IExplorer.exe yang meniru Explorer.exe. Berikut adalah proses windows yang bisa dijadikan referensi proses yang dikategorikan aman:
C:\WINDOWS\system32\smss.exe
C:\WINDOWS\system32\csrss.exe
C:\WINDOWS\system32\winlogon.exe
C:\WINDOWS\system32\services.exe
C:\WINDOWS\system32\svchost.exe
C:\WINDOWS\system32\lsass.exe
C:\WINDOWS\Explorer.exe
Selain process explorer anda bisa menggunakan tools lainnya yang mungkin lebih mudah dan bisa menghapus process sekaligus. Contoh lain adalah HijackFree. Anda bisa mencari di google tools sejenis.
Setelah proses mematikan virus berhasil lakukan pengembalian nilai default parameter sistem yang digunakan virus untuk mengaktifkan dirinya dan memblokir usaha menghapus dirinya. Parameter tersebut berada pada registry windows yang bisa di reset dengan nilai defaultnya. Simpan file berikut dengan nama apa saja dengan extention file .reg. Kemudian eksekusi file tersebut dengan mengklik 2 kali. Bila ada konfirmasi anda bisa menjawab Yes/Ok. Berikut file registry tersebut:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"Hidden"=dword:00000000
"SuperHidden"=dword:00000000
"ShowSuperHidden"=dword:00000000
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SafeBoot]
"AlternateShell"="Cmd.exe"
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\SafeBoot]
"AlternateShell"="Cmd.exe"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot]
"AlternateShell"="Cmd.exe"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"Shell"="Explorer.exe"
"Userinit"="C:\WINDOWS\system32\userinit.exe,"
[HKEY_CLASSES_ROOT\regfile\shell\open\command]
@="regedit.exe \"%1\""
[HKEY_CLASSES_ROOT\scrfile\shell\open\command]
@="\"%1\" %*"
[HKEY_CLASSES_ROOT\piffile\shell\open\command]
@="\"%1\" %*"
[HKEY_CLASSES_ROOT\comfile\shell\open\command]
@="\"%1\" %*"
[HKEY_CLASSES_ROOT\exefile\shell\open\command]
@="\"%1\" %*"

File registry diatas akan membuka blokir regedit, mencegah virus mencangkokkan dirinya pada sistem, dan reset parameter lain untuk mencegah virus jalan lagi.
Setelah proses virus dimatikan dan parameter sistem di reset. Cegah virus aktif kembali dengan menghapus entry virus pada autorun dan startup Windows. Bisa menggunakan tool bawaan windows MSConfig atau mengedit langsung pada registry dengan Regedit. Untuk lebih mudahnya gunakan tools pihak ketiga seperti autoruns dari http://www.sysinternals.com untuk menghapus entry autorun dan startup milik virus tsb. Jangan lupa periksa folder StartUp pada menu Start Menu -> Programs -> Startup dan pastikan tidak ada entry virus tsb.
Download antivirus terbaru dan lakukan full scanning pada sistem agar antivirus memeriksa keseluruhan sistem dan menghapus semua virus yang ditemukan. Saya menyarankan avira yang bisa didownload dari http://www.free-av.com karena sifatnya free dan scanner virus yang sama tangguhnya dengan antivirus komersil seperti Symantec atau Kaspersky.
Sebelum restart pastikan anda tidak melewatkan virus baik dari proces atau autorun dan startup sistem. Karena bila tidak maka pada saat restart maka sistem akan kembali seperti pada saat terinfeksi virus dan sia-sia semua langkah yang anda lakukan sebelumnya.
Setelah restart periksa kembali komputer anda dan perhatikan apakah gejala yang muncul pada saat komputer terinfeksi masih ada atau tidak. Bila ada maka anda terlewat beberpa autorun virus atau reset parameter sistem diatas tidak berhasil. Lakukan langkah diatas dan periksa lebih cermat tiap langkah anda sebelum melakukan restart sistem.
Itulah langkah-langkah penghapusan virus pada sistem Windows XP. Untuk mencegah virus datang kembali sebaiknya anda rajin update antivirus atau memasang aplikasi pencegah seperti WinPooch atau Comodo Firewall yang akan memperingatkan pengguna bila ada program lain yang akan memodifikasi sistem. Jadi walaupun virus tersebut tidak dikenali akan tetapi sebelum masuk maka pengguna akan diperingatkan oleh aplikasi pencegah. Bila anda mengenali program yang hendak mengakses sistem anda maka anda bisa mengijinkan akses tersebut namun bila tidak sebaiknya tolak dan blokir akses tersebut karena ada kemungkinan program tersebut adalah virus.
Berhati-hati pada saat membuka flash disk. Jangan membuka flash disk dengan klik 2 kali. Buka dengan klik kanan lalu pilih menu Open agar fitur autoplay pada flash disk tidak menjalankan virus secara ototmatis. Jangan lupa perhatikan file yang anda buka. Walaupun iconnya sama perhatikan bahwa file yang anda buka buka tipe application atau program. Pastikan file word adalah betul-betul word dan folder betul-betul folder bisa dengan melihat detail atau properties dari file tsb. Semoga artikel ini membantu dan mencegah anda terinfeksi virus komputer.

ihhhh serem bgt loch...
bukan cuma penyakit or setan za yang bikin nakutin pi Virus Komputer juga loch...
mu tw g.....
yuk,,,, kita simak rame"....

Serangan virus jenis VBScript masih sangat tinggi, ini terbukti dari banyaknya laporan yang mengeluhkan perihal virus jenis script ini. Satu virus yang melesat tinggi ke urutan pertama adalah Discusx.vbs. Bila Anda masih ingat dengan virus ini, di Virus Top-10 edisi Maret 2008 yang lalu, virus Discusx.vbs berada di urutan 5, namun kali ini dia melesat naik ke urutan pertama.
Berikut daftar selengkapnya:
1. Discusx.
Virus VBScript yang satu ini, memiliki ukuran sekitar 4.800 bytes. Dia akan mencoba menginfeksi di beberapa drive di komputer Anda, termasuk drive flash disk, yang jika terinfeksi akan membuat file autorun.inf dan System32.sys.vbs pada root drive tersebut. Selain itu, ia pun akan mengubah caption dari Internet Explorer menjadi “.::Discus-X SAY MET LEBARAN! [HAPPY LEBARAN ?!]::.”.
2. Reva.vbs
Lagi, virus jenis VBScript yang lumayan banyak dikeluhkan oleh beberapa pembaca. Ia akan mencoba menyebarkan dirinya ke setiap drive di komputer Anda termasuk drive flash disk. Pada drive terinfeksi akan terdapat file reva.vbs, autorun.inf, dan shaheedan.jpg. Selain itu, ia pun akan mengubah halaman default dari Internet Explorer agar mengarah ke situs http://www.arrahmah.com.
3. XFly
PC Media Antivirus mengenali dua varian dari virus ini, yakni XFly.A dan XFly.B. Sama seperti kebanyakan virus lokal lainnya, ia dibuat menggunakan Visual Basic. Memiliki ukuran tubuh sebesar 143.360 bytes tanpa di-compress. Dan ia dapat menyamar sebagai folder, file MP3 WinAmp atau yang lainnya dengan cara mengubah secara langsung resource icon yang ada pada tubuhnya. Ini akan lebih mempersulit user awam dalam mengenalinya. Pada komputer terinfeksi, saat menjalankan Internet Explorer, caption-nya akan berubah menjadi “..:: x-fly ::..”, dan saat memulai Windows pun akan muncul pesan dari si pembuat virus pada default browser. Atau setiap waktu menunjukan pukul 12:30, 16:00, atau 20:00, virus ini pun akan menampilkan layar hitam yang juga berisi pesan dari si pembuat virus.
4. Explorea
Virus yang di-compile menggunakan Visual Basic ini hadir dengan ukuran sekitar 167.936 bytes, tanpa di-compress. Menggunakan icon mirip folder standar Windows untuk mengelabui korbannya. Virus ini akan menyerang Registry Windows Anda dengan mengubah default open dari beberapa extension seperti .LNK, .PIF, .BAT, dan .COM. Pada komputer terinfeksi, disaat-saat tertentu terkadang muncul pesan error, contohnya pada saat membuka System Properties.
5. Gen.FFE
Gen.FFE atau pembuatnya menamakan Fast Firus Engine merupakan salah satu program Virus Generator buatan lokal. Dengan hanya menggunakan program ini, tidak dibutuhkan waktu lama untuk dapat menciptakan virus/varian baru. Virus hasil keluaran program ini menggunakan icon mirip gambar folder standar bawaan Windows. Ia pun akan memblokir akses ke Task Manager, Command Prompt, serta menghilangkan beberapa menu di Start Menu. Ia juga akan membaca caption dari program yang aktif, apabila terdapat string yang berhubungan dengan antivirus maka program tersebut akan segera ditutup olehnya.
6. Hampa
Virus yang juga dibuat menggunakan Visual Basic dan ber-icon-kan folder ini memiliki ukuran tubuh sekitar 110.592 bytes, tanpa di-compress. Banyak sekali perubahan yang ia buat pada Windows, seperti Registry, File System, dan lain sebagainya, yang bahkan dapat menyebabkan Windows tidak dapat digunakan sebagaimana mestinya. Pada komputer yang terinfeksi oleh virus ini, saat memulai Windows akan muncul pesan dari si pembuat virus.
7. Raider.vbs
Virus jenis VBScript ini berukuran sekitar 10.000 bytes, jika file virus dibuka dengan Notepad misalnya, maka tidak banyak string yang bisa dibaca karena dalam kondisi ter-enkripsi. Pada Registry, ia pun memberikan pengenal dengan membuat key baru di HKLM\Software dengan nama sama seperti nama pada computer name, dengan isinya berupa string value seperti nama virus tersebut, Raider, serta tanggal komputer tersebut kali pertama terinfeksi.
8. ForrisWaitme
Virus yang dibuat dengan Visual Basic ini menggunakan icon mirip folder standar Windows untuk melakukan penyamarannya. Beberapa ulahnya adalah menukar fungsi tombol mouse kiri dengan kanan, menghilangkan menu Folder Options, membuat file pesan “baca saya.txt” pada drive terinfeksi, dan masih ada yang lainnya.
9. Pray
Virus lokal ini dibuat menggunakan Visual Basic. Kami mendapati 2 varian dari virus ini, untuk varian Pray.A tidak memiliki icon, sementara untuk varian Pray.B menggunakan icon mirip Windows Explorer. Jika komputer terinfeksi oleh virus ini, saat penunjuk waktu di komputer tersebut menunjukan pukul 05:15, 13:00, 16:00, 18:30, dan atau 19:45, virus ini akan menampilkan pesan yang mengingatkan user untuk melakukan shalat.
10. eNDah.vbs
Virus VBScript ini memiliki ukuran 3788 bytes. Saat menginfeksi, ia akan menciptakan file baru autorun.inf dan eNDah.dll.vbs pada setiap root drive yang terpasang di komputer korban, termasuk Flash Disk. Komputer yang terinfeksi oleh virus ini, caption dari Internet Explorer akan berubah menjadi “eNDah P2 Humas cRenTttT Bizzz hehehe……. ^_^”.