‘untuk module—————————————————————
Public db As New ADODB.Connection
public rsg as new adodb.recordset
public sql as string
—————————————————————————-
sub main
opendb
menuutama.show
end sub
———————————
sub opendb
if db.state=adstateopen then db.close
db.cursolation=aduseclient
db.open””
end sub
————————
sub tombol(f as form,t0 as boolean,t1 as boolean,t2 asboolen,t3 as boolean,t4 as boolean,t5 as boolean)
f.CmdBaru.enabled=t0
f.CmdSimpan.enabled=t1
f.CmdUpdate.enabled=t2
f.CmdHapus.enabled=t3
f.CmdBatal.enabled=t4
f.CmdKeluar.enabled=t5end sub
untuk form Jabatan
————————————————-
Private Sub Form_Load()
opendb
hapus
tombol Me, True, False, False, False, False, True
End Sub
Sub hapus()
kode.Text = “”
jabatan.Text = “”
tunjangan.Text = “”
End Sub
——————————–
Private Sub kode_KeyPress(KeyAscii As Integer)
if Keyascii=13 then
sql=”select *from jabatan where kode='” & kode.text & “‘”
if rs.state=adstateopen then rs.close
rs.open sql,db,adopendynamic,adlockoptimistic
if rs.recordcout<> 0 then
tampil
tombol me,false,false,true,true,true,true
else
x=kode.text
hapus
kode.text=x
tombol me,false,true,false,false,true,true
msgbox “Data tidak ditemukan..!!”
end if
end if
End Sub
sub tampil
kode.text=rs!kode
jabatan.text=rs!jabatan
tunjangan.text=rs!
tunjangan
end sub
—————————————–
Private Sub CmdSimpan_Click()
sql=”insert into jabatan values(‘” & kode.text & _
“‘,'” & jabatan.text & _
“‘,'” & tunjangan.text & “‘)”
dbproses
End Sub
—————————————
sub dbproses
db.executi sql,AdCmdtable
adodc1.refresh
datagrid1.refresh
msgbox “Data berhasil diproses..!!”
hapus
end sub
ket:
untuk keterangan lebih lanjut
Efori Buulolo 