LAMPlRAN I
A.
Fonn I (Mat. Kuliah) Pri vate Sub Check}_ Clid:O Check4.Enabled = TR End Sub Private Sub Check6 _Click() Unload Me End Sub Private Sub Combo3_Cbange() REC2.Seek "=", Comb03. Te~1 If Not REC2. NoMatch Then Text4.Tex1 = REC2'NAMADOSEN EndU' End Sub Pri vate Sub Combo3 _ Click() REC2. Seek "=", Comb03 Text If Not REC2.NoMatch Then Te~14.T""1 = REC2'NAMADOSEN EndU' End Sub
T~;..1 (. Te:-"1 = REC I !kodank Textl.Text = RECI~NAMAMK Combol.Text = RECI 'JTh1SMK Combo2.TI!:\."1 = REC 1!SKS Combo3.Te)l..1 = RECI~NlK REC2Seek "=". Combo3.Tn1 U' Not REC2.N(,Match Then Text4Te~1 = REC2'NAM>\OOSEN Eod If Else RECI.MoveFirst Te~1I.Te.'1 = RECI'kodemk Te~12.Te~1 = RECI'NAMA"IK Combo I. T"-" = REC I 'JENlSMK Combo2. T"-" = REC I !SKS Combo3. T«::\."1 = REC 1!NIK REC2.See.k "=", Combo3.Tex1 If Not REC2.NoMatch Then Te~14Tex1 = REC2'NAM>\OOSEN EodU' End If
End Sub Private Sub Command I_Click() Command6.Enabled = True Command7.Enabled = True CommandS.Enabled = False Command9.Enabled = False Text l.Eoabled = False Text2.Enabled = False Combo I.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Tex14.Enabled = False RECI.MoveFirst Te"1l.Tex1 = RECI'kod.:mk Te"12.T,,,,1 = RECI!NAMAMK Combol.Text = REC I !JENISMK Combo2.Tex1 = RECI'SKS Combo3.Tex1 = RECI'l'<1K REC2.Seek "=", Comb03Te"1 If Not REC2.NoMatch Then Text4.Tex1 = REC2'NAMADOSEN End If
End Sub Private Sub Command to_Click() Unload Me End Sub Private Sub COMMAND2 _ Click() CommandS. Enabled = False Command6.Enabled = True Command7.Enabled = True Command9.Enabled = False Te~1l.Enabled = False Tex12.Enabled = False Combol.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Te>.14.Enabled = False
REC 1. MovePre'\;ous If Not RECI.BOF Then
Private Sub Command3_Clicl.:() CommandS. Enabled = False Command6.Enabied = True Comrnand7.Enabied = True Comrnaod9. Enabled = False Textl.Enabled = False Te>.12.Enabled = False Combol.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Te>.14.Enabled = False REC I.Mo\·eNext
If Not RECI.EOF Then Text1.Tex1 = REC1!kodemk Tex12.Text = RECI 'NAMAMK Combo ITex1 = REC I !JENlSMK Combo2.Ta1=RECI!SKS Combo3.Tex1 = REC I !NlK REC2.See.k "=", Combo3.Text U' Not REC2.NoMatch Then Te>.14.Tex1 = REC2'NAM>\OOSEN EndU' Else REC I.MoveLas! Te>.1I.Te>.1 = RECl!kodecok Text2. Text = RECl!NAMAMK Combol.T""1 = RECI 'JENlSMK Combo2.Te>.1 = REC I 'SKS Combo3.Tex1= RECI'NlK REC2.Seek "=", Combo3Text If Not REC2.NoMatch Then T ext4. T ex1 = REC2 !NAM>\OOSEN End If End If End Sub Private Sub Command4_Click() CommandS.Enabled = False Command6. Enabled = True Comrnaod7.Enabled = True Command9. Enabled = Fa1se
To~t I. Enabled : False T e~tl.Enabled : FaJse Combol.Enabled: False Combol.Enabled: FaJse Combo3.Enabkd -; Fal=-e To~t4.Enabled: FaJ""
REC I.Movd.ast Text I. Text: REC I 'kod.:mk Text2.Te~~: RECI 'NAM"-\!K Combo I.Te~~ : REC I <JTh1SMK Combo2.Te~~: REC1'SKS Combo3.Te~~: RECI!NIK RECl.Seek ":", Combo3.T= If Not REC2.NoMatch Then Text4.Tex1: REC2!NAMUXlSEN End If End Sub Private Sub Command5 Cbd()
Te~tl.Enabled: True -
Tex12.Enabled: Tru.: Combo LEnabled : True Combo2.Enabled = True Combo3Enabled: Tru.: Te~t4.Enabled = True Command6.Enabled = FaJ.., Command7.Enabled: False CommandS.Enabled: True Command9.Enabled: True Textl.Text = "" Te~t2.Tex"'t
RECI'NA\t~: Text2.T""1 REC I !JENlSMK : Combo I. Te~t RECI'SKS = Val(Combo2.Tex1) RECl~NIK
=
Combo3.Tt:~1.
REC l. Update TeXll.Enabled: FaJse TeXI2.Enabled: Fal"" Combol.Enabled: False ComboZ.Enabled: False Combo3.Enabled: False TeX!-l.Enabled: False RECI.MoveFirst T oX! L Text: REC I' kod.:ml.: TeXI2Text: REC I 'NA"'IA.\lK Combol.Text: RECI'JEN!SMK Combo2.T",,~: REC1'SKS Combo3.T""1: REC I 'NIK REC2.Seek ":", Comb03.Tex1 If No< REC2.NoMatch ThaI TCXl4.TeX!: REC2'NAMADOSEN End If Command7.Caption: "UPDATE" Command I. Enabled = Tru.: Command2. Enabled = Tru.: Command3.Enabled = Tru.: C0mmand4.Enabled: TOk! CommandS. Enabled : TOk! Command6.Enabled: Tru.: End If
= ••
Combol.Tex1: "" Combo2.Text = •• Combo3.Tex1. = .... Tex14.Tex"1. = .... Te~1l.SetFocl1S
End Sub Private Sub Command6_Cb.:i() U' REC 1.RecordCount <> 0 Jb.:n REC LDelete Else MsgBox ·DATA SUDAH TIDAK ADA n~", vbCritica1 + vbOKOoly. "DATA KOSONG'· End If
End Sub Private Sub Command7 Cbd() If Command7.Caption =-·lJrDATE' Thon Commandl.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.Enabled = False Command7.Caption = "SEUSAl" Tex12.Enabled =True CumboLEnabled = True Combo2.Enabled: True Combo3.Enablo:! = True Else RECI.Edit
End Sub
Priv• .., Sub CommandS_Clid() If (T""'I.Tex~ = "") Or (TeXI2.Tex~: "") Or (Combol.T",,~: .") Or (COOlbo2.Te~1 = "") Or (Canbo3.Text: "") Or(Tcxt4.Tex~ = "") ThaI MseBox "MASIH ADA FIELD YANG KOsONG !", vbCritieaJ + vbOKOnIy, "PERINGATAN!" Tcxtl.Te.x~: "" TeXI2.Te.x~: "" Combol.Tex1: "" Combo2.Tex~: •• Combo3.Text : ." Tcxt4.T""1 =". TcxtLSetFocus Else REC l.AddNew REC I !kodomk = Tex1LT",,~ REC1'NAMAMK: Tex12.Tex~ REC I !JENlSMK = ComboLTcxt RECI~SKS = Val(Comb02.Tex1) REC1'NIK =Combo3.Tex1 RECLUpdate TeXlLEnabied = FaJ"" Tex12Enabled = False Combol.Enabled: False Comb02.Enabled = False Combo3.Enabled = False TeXl-lEnabled = False RECI.MoveFirst TeXl LTe~~ : REC I' kodcmk TeXI2.Text = RECI'NAMAMK Combol.Tex1 = REC1'JENlSMK Comb02.To~1: RECI'SKS
Combo3.Tt:~1::: RECI ~}'1K REC2~Sa:k '~', Combo3~T<xt
[I No<
REC2~NoMatch
T,,-"~T<" ~
Th
Pri\'at< Sub T<~1U-,,>,Focus() If Tt:.xtl.Text <> .... Tht."11 If Len(Te~'I.T<~') <> 9 Then MsgBox "FORM-\T KODE SALAH I!'", \'bCrilicaI + vbOKOnIv, "KODE SALAH"
End Ii EndU' End Sub
Te:\.11Tt::\.1::: ....
Pri,...., Sub Command9_Click()
T e~1l.SootFocus EndU'
Tt!~lLTt:~l:=
... To.l1.Tt:X1 = ....
ComboI.T"", ~"' Combol~ T"", ; "
Combo3.Te:\.1 = T"",~~Te~, ~
RECl.Sa:k "~", T""I.T~1 IfNol RECl.NoMaJch Th
....
'"
Text I. Sctfocus End Sub Pri,1l/e Sub FOIID_Load() Soot DB ~ OpoonDatabase(App~Path & 'lDB.mdb') Soot REC I ~ DB~OpenR.=rdset("MAKUL", dbOpenTable) Soot REC2 ~ DB.OpenR.>;ordsetCDOSEN", dbOpenTabk) REC I.Ind<.x ~ "KODEMK" REC2Ind<.x ~ "NIK" Combol Addltan ("MKU") Combo I Addlt= ("MKDK") CombolAddlt= ("MJCK") CombolAddltan ("M1U'lLlHAN") CombolAddltan ("I") CombolAddltan ("2") CombolAddlt= ("3") CombolAddltem ("4") CombolAddlt= ("5") CombolAddltem ("6") REC2Mo\1:First While Not REC2~EOF Combo3Addltem (REC2'NIK) REC2.MoveNcxt Wend If RECI. RecordCotmt <> 0 Then RECLMo\1:First Te"LT~, ~ RECl!Kodemk T~12.To.' ~ RECl!NAMAMK Combol.T"",; RECI!JENlSMK Combol.Tn'; RECI 'SKS Comb03.To.' ~ RECI!NIK REC2SeeK '~", Combo3To.' If Not REC2.NoMatch Then T""'4.Text ~ REC2!NAMADOSEN End If Else
MsgBox "DATA SUDAH TIDAK ADA 1'1", \'bCritica1 + \'bOKOnly, "DATA KOSONG~"
End U'
EndU' End Sub Private Sub Tex<3_w,
Fonn 2 (DoseD) Private Sub Cornmandl_Click() C0mmand6.Enabled; True C0mmand7.Enabled; True CommandS.Enabled; False Command9.Enabled; False Tcxtl.Enabled = Faa, Text2.Enabled = Faa, Text3.Enabled; Faa, Text4.Enabled = Faa, TextS.Enabled = Faa, REC2.MoveFirst TextI.T"",; REC2INIK Te:
End Sub Private Sub CornmandlO_ClickO Unload Me End Sub
End U' Private Sub COMM<\;'lD2_Click() CommandS. Enabled ~ False Commaod6.Enabled ~ True Command7.Enabled ~ True Command9.Enabled ~ False
End Sub Te.'<1I.Enabled ~ Faa,
Text2.Enabled
= FaISt:
Tc,l1.Tcxt = REC2'NA'VIADOSEN
= REC2~ALA.MAT
Tc,13.Enab1ed = FalS
Te:-..13.Text
Tc,,4.Enab1ed = False To"SEnab1ed = False
Texl. tText = REC2~TELPON TC,1STcxt = REC2'JABATAN End Sub
REC2.MovePrt!\-ious If Not RECZ.BOF Then Tc"LTcx1 = REC2'NIK Te,12.Te'1 = RECZ'NAMADOSEN Te,13.Te,1 = REC2!ALAMAT Tex14.Tex"t = REC21TELP'Ch'l
Te,15.Tc,1 = RECZ'JABATA."I Else RECZ.MovcFirst Te"I.Te,1 = RECZ'NIK Text2.Te'1 = RECZ'NAMADOSEN Tex13.Te,1 = RECZ'ALAMAT Tex14.Te,1 = RECZ'TELPON Te,1S.Te,1 = RECZ'JABATAN End If End Sub Private Sub Command3 _Click() CommandS. Enabled = False Command6.Enablod = Tm< Command7.Enablod = True Command9.Enablod = False Te,1LEnabled = False Tex12.Enabled = False Te.xt3.Enabled = False Tex14.Enabled = False TextS.Enabled = False REC2.MoveNext U· Not RECZ.EOF Then TextLText = RECZ'NIK Text2.Text = RECZ'NAMADOSEN Te,13.Te,' = REC2'AlAMAT Text4.Te" = RECZ'TELPO..'1 TextS.Text = RECZ!JABATAN Else RECZ.MoveLast Te,1LTe,1 = RECZ'NIK Tex12.Te" = REC2'NAMAOOSEN Tex13.Te:-.1 = RECZ'AlAMAT Tex14.Te,' = RECZ!TELPON Te,15.Te,' = RECZ!JABATAN End If End Sub Private Sub Command4_Click() CommandS. Enabled = False Command6.Enabled = True Command7.Enabled = True Command9.Enabled = False Tex1LEnabied = False Te"2.Enabled =False Te,13.Enabled = False Te"4.Enabled = False Te"S.Enabled =False REC2. MoveLast Tc"ITc" = REC2'NIK
Privat.: Sub CommandS_Click() Tcxt L Enablod = Truc Tc,l1 Enablod = Tm< Tc'13.Enablod = True Te,14.Enablod = True TcxtSEnablod = True Command6.Enabled = False Command7.Enabled = False CommandS. Enabled = Tm< Command9.Enabled = Tm< Te:-"1l.Tex1 = .. .. Tex12.Text = .. .. Tex1.3.Texl = .. .. T""14.Te" = "" Text5.Text = ".. Textl.SetFocus End Sub Private Sub Command6_Click() If RECZ.RecordCowtt <> 0 Then REC2.Delete Else MsgBox "DATA SUDAH TIDAK ADA P'". ,bCritical + vbOKOnly. "DATA KOSONG'" End If End Sub Private Sub Command7_Click() If Command7.Caption = "UPDATE" Then Command7.Caption = "SELESAI" CommandLEnabied = False CommandZ.Enabled = False Command3.Enabled = False Command4.Enabled = False CommandS. Enabled = False Command6.Enabled = False Tex12.Enabled = True Text3.Enabled = Tm< Text4.Enabled = True Texu.Enabled = True Else REC2Edit RECZ!NAMADOSEN = TeX"tZ.Tex1 RECZ!ALAMAT = Tex13.T"-"1 RECZ'TELPON = Text4.Text RECZ!JABATAN = TextS.Text RECZ. Update Te"LEnabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False T"'1S.Enabled = Fal,., REC2. MoveFirst Te"LTc'1 = REC2'NIK Text2.Text = REC2!NAMADOSEN Text3.Text = REC2'ALAMAT Tc,,4.Text = REC2!TELPON Tc,15.Te,1 = REC2!JABATAN Command7.Caption = "UPDATE"
EI",
Commandl.Enabkd = Tru< Command2. Enabled = True Command3.Enabl.:d = True Command4.Enabl.:d = True CommandS.EnabI.:d = True Command6.Enabl.:d = True
MsgBox "DATA SUDAH TIDAK ADA ~~~",
vbCritical
~
ybOKOnly.
"DATA
KOSONG'" EndU'
EndU' End Sub End Sub Pri,,,,,, Sub CommandS Click( J U'(T""'I.T",,' = ""J Or (re,12.Text = ""J Or (Te,13.Text = ""J Or (Text4.Te" = ""J Or (Te,15.Te" = ""J Then MsgBox "MASlH ADA FIELD YANG KOSONG I", "bCritical + vbOKOnIy, "PERlNGATAN'" T"",I.Te,' ="" Te.'\.11.Te.\.1 = .. T",,13.To.,' ="" T<XI4.Te't ="" Te:\.l5.Te~1.
Private Sub TextU.""tFocus(J U'Tex1l.Text <> ""Then U'Len(TextI.Te,tJ<> II Then MsgBox "FORM·H KODE SALAH 1"", ,iJCritieal + vbOKOnIv, "KODE SALAH" Tc:.'\ll.TC':\l= ....
Text I.SetFocus End If REC2.Seek "=", Textl.TO>.t If Not REC2.NoMatch Then CommandS.Enabkd = False T,,12.Te,t = REC2INAMADOSEN T ext3 .Text = REC2!ALAMA T Text4.1ext = REC2'TELPON T e,15 .Text = REC2!JABATAN EndU'
= ....
Textl.SetFocus Else: REC2.Addl',C\v REC2'NIK = Te.x,I.T"", REC2'NAMADOSEN = Te,12.Te" REC2'ALAMAT= T",,13.1e,t REC2'TELPON = Tex14.1ext REC2'JABATAN = TextS.Text REC2Update Text I.EnabI.:d = False: Text1.Enabl.:d = False Te,13.Enabl.:d = False: Text4.Enabl.:d = False To.,15,Enabl.:d = False REC2MoveFirst Textl.Te,t = REC2!NIK Te>.12.T"t = REC2'NAMADOSEN To.'<13,T"t = REC2!AlA.\lAT T"t4.Te.xt = REC2!1UPON TextS.T""t = REC2!JABATAN End If End Sub Private Sub Command9_Click(J To.xtLText ="" TeX12.Te.xt ="" Text3.T..,t ="" T<XI4.1ext = "" T",,15.T..,t = "" Text LSetFocus End Sub Private Sub Fonn_Load() Set DB = OpenDa!abase(App.Path & "IDRmdb"J Set REC2 = DB.OpenRecordset("DOSEN", dbOp.:nTableJ REC2Jnde.x = "NIK" U'REC2.RecordCount <> 0 Then REC2.MoveFirst T.,tLT= = REC2'NIK Te,12,Text = REC2'NAMADOSEN T.,t3.Text = REC2'AlA.\IAT T"t4.1O>.t = REC2!1ELPON Text5.1ext = REC2IJARHAN
EndU' End Sub
C.
Form 3 (Mob.. ;,wa) Private Sub ColllIll3Ddl_Click() Command6.Enabl.:d = True Command7.Enabled = True Command8.Enabl.:d = False Command9.Enabled= False T<XII.Enabled = False TeX12.Enabled = False Text3.Enabled = False Text4.Enabled = False Combo I Enabled = False Combo2Enabied = False TextS.Enabled = False DTPickerLEnabled = False Text6.Enabled = False Combo3.Enabled = False Comb04Enabled = False Text7.Enabled = False REC3.MoveFirst Textl.T""t = REC3'NRP TeX12.1ext = REC3'NAMi,\ Text3.1ext = REC3'ALAMATSBY Text4.Text = REC3'1ELP Combol.Text = REO!AGAMA Combo2.1ext = REOIWNEGARA Text5.T.." = REC3'1lAHIR DTPickerl.Value = REC3'TGLLAl-llR Text6.Text = REC3'PROPl.AHIR Combo3.1ext = REO'JENlSKEL Comb04.Te,t = REO'Status Text7.Text = REC3'NIRM End Sub Private Sub ColllIll3Dd \0_ClickO Unload Me End Sub
Private Sub COMMAND2_Click() CommandS. Enabled = Fal", Command6.Enablod = Tru.: Command7.Enablod = Tru.: Command9.Enablod = False Tex11.Enabiod = False Tc,l1.Enablod = False Tc,1J.Enablod = Fal,., Tc,14.Enablod = Fal,., Combol.Enablod = False Combo2.Enabled = False Tcxt5.Enablod = Fal,., DTPickerl.Enab/od = False Tcxt6.Enablod = Fal,., Combo3.Enabloo = False Comb04.Enabloo = False Tc,17.Enabloo = False REO. Movef'reo.ious If Not REC3.BOF Th
.iA Combo2.Tex1 = REC3'WNEGARA Text5.Tex1 = REC3!lLAHIR DTPicker!. Val.., = REC3'TGLLAHIR Tex16.Text = REC3'PROPlAffiR Combo3.Tex1 = REC3!JENISKEL Comb04.Tex1 = REC3!Status Text7.Text = REC3!NIRM Else REC3.MoveFirst Textl.Text = REC3'NRP Text2.Tex1 = REC3'NAMA Text3.Tex1 = REC3!ALAMATSBY Text4.Text = REO!lELP Combol.Tex1 = REC3!AGAMA Combo2.Text = REO'WNEGARA Text5.Tex1 = REO!lLAHIR DTPicker!. Value = REC3!TGLLAHIR TeX16.Tex1 = REO'PROPlAffiR Combo3.Tex1 = REC3!JENISKEL Comb04.Text = REC3!Status Tex17.Tex1 = REC3'NIRM End If End Sub Private Sub Conunand3 _Click() CommandS. Enablod = False Command6.Enablod = True Command7 .Enablod = True Command9. Enablod = False Tex1l.Enabiod =False Texl1.Enabled = False Tex13.Enabled = False Text4.Enabled = False Combo I .Enabloo = False Combo2.Enabloo = False TcX15.Enablod =False DTPicker I.Enabloo = False Tex16.Enabled = False Combo3.Enabloo = False Comb04.Enabloo = False
REC3_MO\·t!Ne~t
If Not REC3.EOF Th
REC3~NRP
TcxtZ.TcX1 = REC3'NAMA Tcxt3.TcX1 = REC3'ALAMATSBY TCX14.TcX1 = REC3'TELP Combol.Tcx1 = REC3'AGAMA Combo2.TcX1 = REC3'WNEGARA TeXl5.Te~1
= REC3!1LA1UR
DTPickerl. Value = REC3'TGLLAHIR Tcxt6.Tcxt = REC3'PROPLAHIR Combo3. Tex1 = REC3'JENISKEL Comb04.TcX1 = REC3'StatllS Text7.Tex1 = REC3!NIRM Else REO .Mo\'eLast Tcx1l.Tex1 = REC3!NRP TextZ.TeX1 = REC3!NAMA TcxD.Tcx1 = REC3'ALAMATSBY Text4.Tex1 = REC3!TELP Combol.Text = REC3'AGAMA Combo2.Tex1 = REC3'WNEGARA TextS.Text = REC3!lLAHIR DTPickerl. Value = REC3'TGLLAHIR Tex16.Tex1 = REC3'PROPLAHIR Combo3.Tex1 = REC3'JENISKEL Comb04.Te:\1.= REC3!Status Text7.Tex1 = REC3!NIRM End If End Sub Pri''8te Sub Command4_Click() CommandS.Enabled = False Command6.Enabled = True Command7 .Enabled = True Command9.Enabled = False TextLEnabled = False Text2.Enabled = False TeX13.Enablod = False Text4.Enabloo = False Combol.Enabled = False Combo2.Enabled = False TextS.Enabled = False DTPickerl.Enabled = False Text6.Enabled = False Combo3.Enablod = False Comb04.Enabled = False Te>.17.Enabled = false REC). MovcLast Textl.Tex1 = REC3'NRP TextZ.Tex1 = REC3!NAMA Tex13.Text = REC3!ALAMATSBY Tex14.Tcx1 = REC3!lELP Combol.Tc'1 = REC3'AGAMA Comb02.Tcxt = REC3'WNEGARA Tex15.Text = REC3!TIAHIR DTPickerl.Valuc = REC3!TGLLAHIR Tcxt6.Tex1 = REC3'PROPLAHIR Combo3.Te>.1 =REC3'JENISKEL Comb04.Tc'1 = REC3!StatllS Tex17.Text = REC3'NIRM
End Sub Prival< Sub CommandS Click() TOX1I.Enabl
=
Texl1.Te)..1: =
.. ..
Te:\.t2.Tex"t = .. ..
Tex13.Te:\.1 = .. .. Tex14.Tex"t = .. .. Combol.Tex1 ="" Combo2.Text =""
REC3~N."\MA;:;: T012.Tc-X1 REC3'AIAMATSBY = T",,13.Toxt RECYTELP = Tex1. .t Text REC3'AGAMA = Combol.Toxt REC3'\VNEGARA = Combo2.Tox1 REC3!1lAHIR = TcD.Text REC3'TGllAHIR = Dll'ickcrl. Value REC3'PROPLAHIR = T.,.x16.Toxt REC3'JENISKEL = Combo3.Tox1 REC3'S!atus = Combo-l.Tox1 REC3'NIRM = Tn17.T=
REC3. Update T
Tex't5.Texl = .... DTPickerl.Value = Oal< Tex16.Tex1 ="" Combo3.Tex1 ="" Comb04.Tex1 ="" Text7.Te'1 = .... T ex11.SetFocus End Sub Pri ,.,.te Sub Command6_Click() IfREC3.RecordCount <> 0 Then REC3.Delete Else MsgBox "DATA SUDAH TIDAK ADA !!lit, vbCritical + \"bOKOnly. "DATA KOSONG!" End If End Sub
Private Sub Command7 Click{) If Command7.Caption =-"UPDATE" Then Command7.Caption = "SELESAl" Command I. Enabled = False Commandl.Enabled = False Command3.Enabl.:d = False Command4.Enabled = False CommandS. Enabled = False Command6.Enabled = FaI.., Tex12.Enabled = True Tex13.Enabled = True Text4.Enabled = True Combol.Enabled = True Combol.Enabl.:d = True Tex15.Enabled = True DTPickerl.Enabled = True Tex16.Enabled True Combo3.Enabled = True Comb04 .Enabl.:d = True Text7.Enabled = True
=
Else REC3.Edit
REC3.MoveFirst Tex1l.Tex1 = REC3'NRP Text2.Tex1 = REC3~AMA Text3.Tex1 = REC3~ TSBY Text4.T.,.x1 = REC3'TELP Combol.Text = REC3~GAMA Combo2.Tex1 = REC3'WNEGARA Text5.Tex1 = REC3'11AHlR Dll'ickerl. Value = REC3!TGLLAHIR Tex16.Tex1 = REC3PROPLAHIR Combo3.Text = REG'JENlSKEL Comb04.Text = REG'Status Text7.Tex1 = REC3!NlRM Command7.Caption = "UPDATE" CommandI.Enabl.:d = True Command2.Enabl.:d = True Cotnmaod3.Enabled = True Coourumd4.Enabled = True Comnumd5.Enabled = True Command6.Enabled = True End If End Sub Private Sub C0nunand8_Click() If(Tex1l.Text = "") Or (Text2.Tex1 = "") Or (Tex13.Tcx1 = ":) Or (Tex14.Tex1 = "") Or (ComboLText = "") Or (Combo2.Tex1 = "") Or (Text5.Text = "")Or (DTPickerl.Value = "") Or (Tex16.Text = "")Or (Combo3.Tex1 = "") Or (Comb04.Te:xt = "") Or (Text7.Text = "") Then
MsgBox "MASlH ADA FIELD YANG KOSONG I", vbCritical + vbOKOnly, "PERINGATAN'" Textl.Text =""
Tex12.Text = .. .. To..1.3.Tex1. = . . Text4.Text = "" Combol.Text ="" Comb02.Tex1 = ••
TexLS.Text =
....
D11'ICkcrl. Value = Dare Te~'6.Te~' =""
Combo3.Tt!'\1 = .. .. Combo-LTt!:\.1
U-REC3.RecordCoWlt <> 0Ihen REC3.Movt:First Text I.Text = REC3!NRP
= .. .
Te"7.Fnabled = True Tc!:\.11.SetFocus EI"" REC3.AddNew
TC'X11.Tt!xt
REC3'ALAMATSBY To.14.Te" = REC3'TELP Combol.Text = REC3'AGA.."1A Combo2.Text =REC3'WNEGARA T""5.Te~1 = REC3'TLAHIR D11'ickerl.Valuc =REC3'TGLLAHIR Text6.Te,t = REC3'PROPLAHIR Combo3.Te~1 = REC3'JENISKEL Comb04.Text = REC3~Status Text7.Te~1 = REC3'NlRM
REC3~NRP = T""'I.Te~'
REC3'NAMA = Te~t/.Te>! REC3~TELP = Te"4.Te" REC3'AGAMA = ComboI.T~' REC3~WNEGARA = Comba2.T,,-" REC3!1Lo\HIR = Te~"t5.T"", REC3'TGllAHIR = DThdcrl. Value REC3'PROPLAHlR = T=6.Te~' REC3!JENISKEL = Comb03.Te~, REC3'Status = Comb04. Te>! REC3'NIRM = Te~'7.Te.X1 REC3!AlA!\1ATSBY = T",,"13.Text REC3.Update Te~, I.Enabled = False Text/.Enabled = False Te,,3.Enabled = False Te,'4.Enabled = False Combol.Enabled = False Comb02.Enabled = False Te~15.Enabled = False D11'ickcrl.EnabIed = False TeX16.Enabled =False Combo3.Enabled = False Comb04.Enabled = Fals< Te~'7.Enabled = False REC3.MoveFirst Te~11.Te" = REC3!NRP Te~t/.Te~1 = REC3'NAMA Te,,3.Text = REC3~A.LMlATSBY Te"4.Te~1 = REC3!TELP Combol.Text = REC3'AGAMA Comb02.Tex, =REC3!WNEGARA Text5.Te~, = REC3!TLAHIR DTPiderl.Value = REC3~TGll.AHlR Text6.Te.xt = REC3!PROP!.AHIR Combo3.Tex1 = REC3'JENlSKEL Comb04.Te~, = REC3'Starus Te~17.Te,,' = REC3'NlRM End If End Sub Private Sub Form_Load() Set DB = OpenDatabas«App.Path & "IDB.mdb") Set REC3 = DB.Op
= REC3~NAlv1A
Text3.Te~' =
Else
MS2Box "DATA SUDAH TIDAK ADA !!!-: vbCritical + vbOKOnly. "DATA KOSONG'" EndU' End Sub Pri,..te Sub Te~'IJ.ostFocus() If Text I. Text <> "" Then IfLer(Te~'I.Te~') <> 10 Then MsgBox "FORMAT KODE SALAH "'", ,-bCritical + vbOKOnly, "KODE SALAH" Te~'I.Te" = "" T~, I.SetFocus
End If REC3.Seek "=", To.'I.T""1 If Not REC3.NoMatch Then CommandS. Enabled = False Text/.Text = REC3'NAMA T<>."13.Te,1 = REC3!ALAMATSBY Tex14.Text = REC3'TELP Combol.Text = REC3!AGAMA Comb02.Text = REC3!WNEGARA T cxt5.Text = REC3'TLAHIR DTPickerl.Value = REC3!TGLLAHIR T016.Text = REC3!PROPLAHIR Combo3.Text = REC3'JENISKEl Comb04.Text = REC3'Status T017.To.. = REC3'NlRM End If End If End Sub
D.
Fonn 4 (perubahllll jadwal) Private Sub Command I Click() Commaod2.Enabled = False CommaodJ.Enabled = True Cornmand4.Enabled = True DTPickerl.Enabled = True Commandl.Enabled = False T01I.Enabled = True End Sub Private Sub COMMAND2 ClickO IfCommand2.Caption = "UPDATE" Then Command2.Caption = "SElESAl" DTPickcrl.Enabled = False Tex11.Enabied = True
Else REC5.Edit REC5~kegiatan = Te~1l.Text
REC5. Update DTPick",!. Value = Date DTPick", I.Enabkd = False Te~1I.Te~1
= ""
Te",1l.Enabloo = False Comrnandl.Enabloo True Command2.Enabloo = False Conunand3.Enabloo = False Command4.Enabloo = False Command2.Caption = "UPDATE" End U' End Sub
=
Private Sub COOlbol_ClickO S 0 Then MsgBox "Mo\HASISWA INI SUDAH MENGAMBIL MATA KULWI TERSEBUT ,,", vbCritical + vbOKOnly, "ERROR,," Combol.Tex1 = "" Te",1l.Enabloo = False Conunand2.Enabloo = True Conunand3.Enabloo = True Commaodl.Enabloo = False
Private Sub Comrnand3_Click() RECS.AddNew RECS!tgl = DTPickerl. Value RECS'kegiatan = Tex11.Te",1 RECS.Update Conunaod3.Enabloo = False Command I. Enabloo = True Commaod4.Enabloo = False Coromand2. Enabloo = False DIPickerl.Enabloo = False Te.'\1I.Tex1 = "" T"",1I.Enabloo False DIPiekerl. Value = Date End Sub
Else REC I.Seek "=", Combo I. Tex1 If Not REC I. NoMatch Then LabelS.Captioo = REC I 'NAMAMK Label9.Caption = RECI!SKS Labell2.Caption = REC!!1ENlSMK
Pri>'llte Sub Coounand4_Click() Conunaodl.Enabloo = True Command2.Enabloo = False Conunaod3.Enabloo = False Coromand4.Enabloo = False Textl.Enabled = False DIPicker!.Enabled = False T"x11.Tex1 ="" DIPicker!.Value = Date End Sub
Pri>'llte Sub Commaodl_Click() T ex11 Enabled = True
=
Private Sub CommandS_Chck() Unload Me End Sub Private Sub DTPickerl_Chaoge() RECS.Seek "=", DTPieker!. Value If Not RECS .NoMatch Then Tex11.Text = REC5'kegiatan Commaodl.Enabloo = False Commaod2.Enabled = True Commaod3.Enabled = False Commaod4.Enabled = True Textl.Enabled = Fal"" DTPickerl.Enabled = False End If End Sub
Text2.Te:-.t = Te:\.L3.T~1
... = ....
Te",12.Enabloo = True Tex13.Enabloo = True EndU' End If End Sub
Combol.Eoabloo = True
Tex1LTexl =
....
Te",12.Tex1 = "" Te:\13.Te:-.l = ... Label6.Captioo = "" Label7.Captioo = "" LabeIS.Caption = "" Label9.Captioo = "" Labell2. Caption = "" Combol.Tex'! = ,," Tex11.S
Command I. Enabled = False End Sub Private Sub COMMAND2_ClickO
If (Textl.Text = "") Or (Combol.Text = "") Then MsgBox "MASIH ADA FIELD YANG KOSONG
,", vbCritical +
"PERINGATAN~"
Private Sub Fonn_Load() Set DB = OpenDalabas,:(App.Path & "IDB.mdb") Set REC5 = DB.OpenRecordset("kegiatan", dbOpeoTable) RECS.Jodex = "tgl" End Sub E.
Form 5 (Nilsi)
Tex'!I.Tex'! = ,," Label6.Caption = "" Label7.Captioo = "" LabelS.Caption ="" Label9.Captioo = •• Labe112.Caption = "" Combo!.Tex1 = "" Tex11.S
vbOKOnly,
REC4.AddN~w
REC4:NRP = Te.~1I.Text REC4:kodank = Combol.T= REC4!uts = Te:,.12.Te:-"1
REC4'uas = T~xG.T~xt REC4'grad~ = LalxUO.CapIion REC4. Updat< T~x12.Text
=-=--
Text3.Text Labe120.Caplion = -Combol.Tex1 = -T ~xtl.Enabled = False T ~x12.Enabled = False TexG.Enabled = Fals.: CotlUrullld6.Enabied = Fal", 'LabeI6.Enabled = False 'LabeI7.Enabled = False 'labelS. Enabled = False 'LabeI9.Enabled = False 'LabelI2 .Enabled = Fals.: Command I. Enabled = False Command2.Enabied = True Command3.Enabled = False Command3.Enabied = True End If End Sub Private Sub Connnand3 Clid() Textl.Text = -Text2.Text = -Text3.Text ='Label6.Caption = -Label7.Caption = •• LabelS.Caption = .Label9.Caption =-. Labe119.Caption =" Labe120.Caption = •• Labe12l. Caption =.Combol.Text = -. Commandl.EnabIed = True Text l.Enabled = False Text3.Enabled = False Text2.Enabled = False Combo I.Enabled = False End Sub Private Sub Command4_Clid() Unload Me End Sub
Label 19. Capuon = -LabeU I.Caption = -LabeUO.Captioo = -Tex11.Enabkd = False Tex12.Enabled = False Text3.Enabled = False Cornbol.Enabled = False End Sub Private Sub Command6 Click() Tex12Enabled = False Text3.Enabled = False + tamp Val(Labe119.Caption) (Labe121.Caption) lftarnp >= 80 Then Labe120.Caption = 'AIf tamp >= 75 And tamp < 80 Then Labe120.Caption =-8+If tamp >= 66 And tamp < 75 Then Labe120. Caption = - BIf tamp >= 61 And tamp < 66 Then Labe120.Caption = -C+' If tamp >= 55 And tamp < 61 Then Labe120.Caption = 'C' If tamp >= 45 And tamp < 55 Then Labe120.Captioo = '0' If tamp >= 0 And tamp < 45 Then Labe120.Captioo = -E' LabeI23.Caption = Val(LabeII 9.Caption) + Val(Labe12l.Caption) CommandS.Enabled = True Command6.Enabled = False End Sub Private Sub Fonn_Load() Set DB = OpenDatabase(App.Path & -IDB.mdb") Set RECI = DB.OpenRocordset("MAKUL", dbOpenTable) Set REC3 = DB.OpenRecordset(·MHS", dbOpenTable) Set REC4 = DB. OpenRecordset("NlLAJ', dbOpenTable) REC3.Index = "NRP" REC l.Index = "KODEMK" REC4.Index = "NRP" REC l.MoveFirst While Not RECl.EOF Combol.Addltem (RECI !kodemk) REC l.MoveNext Wend
End Sub Commandl.Enabled = True Command2.Enabled = False Comnumd3.Enabled = False Cornmand4.Enabied = False CommandS. Enabled = False Comnumd6.Enabled = False Textl.Text Tex12.Text =-" Text3.Text = ". Cornbol.Text Label6.Caption = "" Label7.Caption = -Label9.Caption LabelS. Caption = "" Labell2.Caption ="
=--
=--
=-.
Private Sub Textl}AlStFocus() If Textl.Text <>"" Then U·Len(TextI.Text) <> 10 Then MsgBox "FORMAT KODE SALAH '!!", vbCritical + \1>OKOnIy, 'KODE SALAH' Tcxtl.Text ="" T exl l.SetFocus End If REC3.Seek -=", Textl.Text If Not REC3.NoMatch Then Label6.Caplion = REC3'NAMA Label7.Caption = REC3!NIRM Else
MsgBox "KODE MAHASISWA ERROR
If u\'d :::: 2 Thc!Il
(Anda salah mengisi kooc: atau kexlt: rersebut
tidal.: tcrdaftar. Silahkan lihat di data ..bCritical + "bOKOnly, "ERROR '"
Mahasiswa!)",
MDlForm I.StarusBar I.Pands.ltem( I ).Te>.1 -Usc:r: .. & Tc:xtLText
=
MDlFonn I.StarusBar I.Pands.ltem(1). Tex1 "FAKULTAS JURUSAN TEKNIK lNDUSlRl 1997"
Combol.Text ="" Te,1l.Enabled = False Combol.Enabled = False Command2.Enabled = False Command3.Enabled = false Commandl.Enabled = True
MDlForm I.StarusBar I. Panels.lt.:m(3). Tex1 = "Login Pada Hari : " & Dat. & " PukuI & Timc!
MDlForml.ENTRY.Enabled False MDlForml.AlI.Enabled = False MDlForm I.Add. Enabled = False MDlFonn I.I.APMAS. Enabled
End If End U' End Sub
False MDlFonn I.Show End If If Level = I Then
Private Sub Text1_Change() Label19.Caption = Val(Text1.Text) • 40 I 100
MDlFonn I.StarusBarI.Panels.ltem( I ).Tex1 "User: "& T.xtI.T.x1
End Sub
=
Private Sub Tex13_Change() Label2l.Caption = VaI(Tex13.Tex1) • 60 I 100 Command6.Enabled = True End Sub
MDlFonn I.StarusBar I. Panels.ltem(2 ).Tex1 "FAKULTAS JURUSAN TEKNIK lNDUSlRl 1997" MDlFonnI.StarusBar I.Panels.ltem(3).Text
= "Login Pada Hari : " & Date & "PuI.."U! :" F.
& Time
Form 7 (Login) Dim counter As Integer
MDlForm I.lmk.Enabled = False MDlFonnl.Show End If If Level = 3 Then
Private Sub Command I_Click() IfTextl.Text "hacK" And T.x11.Te.,t = "589589" Then
=
MDlForm I.StatusBar I.Panels.ltem( I ). Text
MDlForm I.StarusBar I.Panels.ltem( I). To.,t
= "User: "&. T.,tI.Te'1
= "User: "&. Textl.Text
MDlFonn I.StatusBar I. Panels.ltem(2).Text "FAKULTAS JURUSAN TEKNIK lNDUSlRl 1997"
MDlForm I.StarusBar I.Panels.ltem(2). Tex1 "FAKULTAS JURUSAN TEKNIK lNDUSlRl 1997"
MDlFonn I.StatusBar I. Panels.ltem(3). T 0.,1
MDlForml.StarusBarI.Panels.ltem(3).Text
= "Login Pada Hari : " & Date &. " Pulrul
= "Loo.,in Pada Hari : " &. Date &. " PuI.."U!
&.Time Fonn7.Hide MDlFormI. ImK.Visible = False MDlFonnl.AlI. Visible = True MDlFonnl.Show Te'1l.Text ="" T ex11.Text = "" E.xit Sub End If For x = I To Len(TextI.Text) tamp tamp Chr(Asc(Mid(Text I. Text. X. I)) + 56) Next For x = I To l.en(Te.xt2.Text) tamp2 tamp2 Chr(Asc(Mid(Text2.Tcxt. x. I)) + 56)
&.Tune
NeJ\1: recpassword.Seek "=", tamp If Not recpasswordNoMatch Then tampung = recpassword!pass
Level = recpasswordlLevel If tampung = tamp2 Then
MDlFonn l.Imk.Enabled = True MDlForm 1.I.APMAS. Visible False MDlForml.AddEnabled = False MDlForm I.PENG. Enabled = False MDlForml.MASTEREnabled False
+
+
MDlForml.Show End If Else Textl.TC\1 ="" Te:\.12.TOl.':; ""
If counta < 3 Then MsgBox "PASSWORD SALAH" & COlDltcr & • KAU", vbOKOnIy + vbE.xclamatiOll,. *Peringatan" Else
MsgBox
INTRUDER "Pcringatan"
1~~~·.
"ANDA
ADAlAH
Next For y = I To Len(Text2.1<:xt) tampwtgl tampung2 Chr(Asc(Mid:Text2.Text, y, I)) + 56)
vbOKOnly + YbCritical,
End If Tex~l.&tFocus
NC:Xl
counter := countc:r + 1
fecptlSS\o\"ordAddNew
If countcr > :; Then UnJoad Me
recpassword~UserNamc recpassword~pass
End If Else Textl.Text = "" Tex12.Tex~ = ""
tampung
Te.x~I.Tex~
Form 8 (Tombah uoer) Private Sub Form_Load() &t DB = Op
DB.OpenRecordset("password", dbOp.:nTable) recpassword.lndex = "usemame" Combo I.AddItcro "I" Combo I.AddItem "2" Combo I AddItem "3"
End Sub Private Sub Command I Clic1() Dimx.yAsIn~ Dim tampung, lampung2 As SIring IfTex~l.Text ="" Or Tex12.Tex~ ="" Then MsgBox "MASlH ADA FIELD YANG KOSONG !'", ,-bOKOnIy + vbCritical, "PERINGATAN'!" . T ex~ l.&tFocus Else For x = I To U:n(TextI.T=) tampung tampung + Chr(Asc(Mid(Tex~I.Text. X. I)) + 56)
+
x, I» + 56)
Next recp!lSS\\-ooiSeek "=", tampung If Not recposswordNoMatch Then MsgBox "USER TERSEBUT SUDAH ADA !!", vbOKOnIy + vbCritical, "PERlNGATAN"
Private Sub Form_LoadO counter = 1 Set DB = Op
G.
tampwtg
Chr(Asc(Mi~e.'~l.Tex~,
Pri'lIte Sub COMMAND2 ClicK() Unload Me End Sub
End Sub
:= tampung tarnpung2
recp!lSS\\ord. Update Tex~I.Text ="" Tex12.Text = "" Combol.Text ="" Tex~I .&tFocus End U' End Sub Private Sub COMMAND2_ClicK() Unload Me End Sub Private Sub Tex~I_LostFocus() U' Tex~ 1. Tex, <> "" Then For x = I To U:n(Tex~I.Text)
MsgBox "PASSWORD SAlAH " & counter & " KAU", vbOKOnIy + vbE,clamation, "Peringatan" Else MsgBox "ANDA ADALAH USER GELAP !!n", "bOKOnI .... + "bCritical, "PENYUSUP !1" • End If T ex~ l.&tFocus COWlter = counter + 1 U' counter > 3 Then Unload Me End If Textl.Text ="" Tex12.Text ="" End Sub
DB.OpenRecordset("passward",
:=
recpasswol'ttLevel:= Combol.Text
If counter < 3 Then
dbOp.:nTable) recpassward.lndex = "uscmame"
+
=""
Text I.SetFocus End If End If End Sub
R
Form 9 (Gooti _ord) Private Sub Form_Load() &t DB = Op
ToxtI.To~' ="" Tc:xl1.Tex1: =""
C~ =lRc;.'OfIl. SelectionFormula ";nilaiJ.:O
& ". CT} stalRq."Xt I.Action = I
TextJ.Te\.1 = .... To~L3.Enabkd =
Fal",
End [f EndU' Else r"';passwordSo:k "=", tamp [f Not recpassword. NoMa!cb ThOll For x = I To L.:n(To~L3Toxt)
tamp3
End Sub
Private Sub Form_Load() Set DB = Op
+
tamp3 + 56)
Cbr(Asc(Mid(T~L3.Tex" x, I»
NlO!'xt recpassword.Edit rc!L-password~pass = tamp3 r"'--password. Update Commandl.Capiion = "UBAH"
TextI.Te~' = "" Tox-U.T~1
= ""
Text3.Text = "" Text3.Enabloo = Fals< EndU' End[f End Sub
K
Private Sub ADD_ClickO FonnS5bow EodSub
Private Sub COMMAND2 _ CbckO Unload Me End Sub L
MDI Form I (Si ...... perkuliahan)
Privato Sub All_ClickO
C~-staIR"JlOfl4.Action
Form 10 (Nilai bent....rbn NRP)
=I
Private Sub Conunandl_Clid() If T~, I. Tex"! <> "" Then
Eod Sub
If L.:n(T0>.11. T~1) <> 10 Th<:n MsgIlox "NRP YANG ANDA MASUKKAN SALAH '! (Silahkan Mengisi
Pri,.,.te Sub DOSEN _Click() F0nn25bow Eod Sub
Ulang !')", vbExclamation + vbOKOniy,
"PERINGATAN!" TextI.T",,"! ="" Text I.SetFocus
Unload Me Eod Sub
Else CrystalReportl.S<[eetionFannul. "{nilai.nrp} = ~ & Trim(TextI.Tex"!) & CrystalReport l.Action = 1 End If
~"
Else MsgIlox "NRP BELUM DIENTRYKAN !!", vbCriticai + vbOKOniy, "PERINGATAN '!" TextlTex1 ="" Textl.SetFocus EndU' End Sub
Private Sub JADWAL ClickO f onn4.Sbow Eod Sub Private Sub LAPOOSEN Click()
C~-stalReport3.Aetion = 1 Eod Sub
Pri'1lIe Sub LAPJADWAL_ClickO C~-stalReport5.Action = I Eod Sub Private Sub LAPMAKUL_Click() I End Sub C~'StaIReport2.Action =
Commandl.Enabloo = True End Sub
Pri"ate Sub LAPMHS _ ClickO I
C~-s1alReportI.Action =
. J.
Form II (Nilai benta•• rbn mata
~"Ii.h)
Private Sub Combol Click() Command I. Enabloo :; True End Sub Private Sub COIIUDaIld[_Click()
End Sub
Private Sub LAPNILAlMK_ClickO Fonnl15how End Sub Pri,"te Sub LAPNlLAINRP _Click() Form IO.Show
End Sub Pri,-,u" Sub Imk_Click() CryslalRep0rt.2.Action = I End Sub Pri,-,u" Sub LOGOFF_Click() UnJoadMe Form7.Show End Sub Pri'llr.: Sub MAKUL_Oick() Forml.Show End Sub
Private Sub MHS Clid() Form3.Show End Sub Pri,-,u" Sub NlLAI Clid() F0rm6.5how End Sub Pri'"3r.: Sub PENG_ Clid() formS.Show End Sub Private Sub RUBAH_Click() Form9.5how End Sub
L
Module 1 (Module.bas) Global DB As Database Global REC I As Recordsd Global REC2 As Recordsd Global REC3 As Recordsd Global REC4 As Recordsd Global REC5 As Recordsd Global recpassword As R=rdsel
LAMPIRAN II
LAPORAN DATA MAHASISWA TANGGAL: NRP
NAMA
~BY
TELF
AGAMA
ALAMAT
5303098009 DEWI WAHYUNI
0
BUDHA
SULUNG3/23
5303097014 AGUNG DWI MARTHA
381024 KRISTEN LEBAK INOAH ASRIll I 4
5303097002 JlJSTINE HARTONO
0
5303097003 KRISNO SUTOWIJOYO
534526 KRISTEN TEMBOK GEOE II 6A
5303097004 ARDYAN SILVANO PUTRA
592575 ISLAM
5303097005 SOH SIAN GW AN
376069 BUDHA
5303097006 JOHANA SIL VIANTI
N.I.R.M
h'!!1 Lahir
98.7.003.31211.01720
6112/197S
97.7.003.31211.38767
19/3/1980
97.7.003.31211.38755
241711978
97.7.003.31211.38756
1/l1/197~
KEOUNG T ARUKAN BARU 2B I
97.7.003.31211.38757
~110/1978
KAPASAN KIDUL 7
97.7.003.31211.38758
~/11/1977
591092 KRISTEN KAPASARI PEDUKUHAN 6 I 8
97.7.003.31211.38759
7/811978
5303097008 HENDRA
592489 KATOLlI< GALAXY B UMI PERMAI N4 I 3 I
97.7.003.31211.38761
31111197t
5303097009 IRWAN
389177 KRISTEN LEBAK INDAH ASRI r I 26
97.7.003.31211.38762 [711211979
5303097010 RUDY THENDRY
0
KRISTEN PETEMON IVA/6
97.7.003.31211.38763
9/8/1976
5303097011 SUHARTONO HARJONO
0
KRISTEN KERTAJAYA INDAHGI/7
97.7.003.31211.38764
~6/3/1979
5303097012 BHE ING
843405 KRISTEN MARGOREJO INOAH C9021 57
97.7.003.31211.38765
11511979
5303097013 DAVID
594315 EUDHA
97.7.003.31211.38766
811
5303097015 LEONARDUS
382085 KRISTEN LEBAK ARUM 4 183
97.7.003.31211.38768
~8/5/I978
5303097016 FERRY CHRISDIANTO
389304 KATOLII< LEBAK ARUM 2 I 3
97.7.003.31211.38769
91121197~
TOTAL MAHASISWA:
15 Orang
KATOLlI< KAMPUNG MALANG KULON 11
INDRAK1LA 7A
11197~
LAPORAN DATA DOSEN TANGGAL: 01/Jllnullry12002
N.l.K
Nama .Dosen
Alamllt
Telel!on
Jabatlln
51l.76.0056
II'. MELANI SATYOADI
RAY A DARMO PERMAI I I 56
7341106
TENAGA KEPENDIDIKAN TIDAK TI\'rAP
521.89.0154
II'. RASIONAL SITEI'U, M.Eng
NANAS III I 3GO, PONDOK
8670409
l'El\lBANTU DEKAN IIII<"AKULTAS TEKNIK
SJI.9H,OJ23
l'AtJl.INA IKIt. NIWI JH:NAWA'I'I,
1'1.0S0 IlAIW
J!!1546('
'J'ENAGA KJWICNJ>JI)IKAN 'I'I>:'I'AI'
511.88.0136
D .... PKl'lm R. ANGKA, M.Komp
KlJI'lSARJ INDAH SELATAN IV I ..
8418846
TENAGA KEPENJ>II>IKAN TII>AK TETAI'
531.99.0367
IIARRY TJAIIJONO, s:r
SIMO POMAHAN 471'
7494176
KETIJA JUIWSAN TEKNIK INJ>USTIU
321.96.0240
WAN JULI, S.E.Ak
NOAOEL TAMA LIT ARA III 17
5022876
'f/!NAGA KEPENDIJ)IKAN TII>AK TETAI'
531.9H.OJ43
II'.LALIRENTlUS HADI SANTOSO,
SIDOSERMO II !lIok III
8418972
Km'ALA LAB. I'ROSES PROJ>UKSI
121.66.0006
D .... ANTONIUS GURITO
MOJOKLANGGRU WETAN 11/22
5942591
TENAGA KEPENUll>IKAN 1'II>AK TETAP
531.98.0325
IGNATIUS JAKA I\WLYANA, s:r.p DELTA SAIU INDAII F 1413
8541046
KI!J'ALA LAD. SISTI!M I'UODUKSI
521.87.0127
II'. SURATNO LOUIlliNTIUS, M.S
8721959
TENAGA KICI'ENJ)JJ)JKAN Tll>AK TI!TAP
S~
PERUMAHAN YKP PANDUGO -_.. - .
LAPORAN MATA KULIAH TANGGAL:
OllJanuary/2002
SKS
N11m II Dosen
Kode Mata Kuliah
Nama Mata Kuliah
Jenis
530301209
Prnktikum Pelllrugraman Komputer
MKDK
1 Ir, MELANI SATYOADl
530303219
Dasar Intlustri Eleklronika
MKDK
2 Ir, RASIONAL SITEPU, M,Eng
~3031~309
Mnlllljl'lI1cn Rncrlll
MKK
3 It" ItASIONAL SITltPlJ, M,ltnjt
530301208
Pelllrogrnman Kompuler
MKDK
2 Drs, PETER R. ANGKA, M.Kump
530316306
Perellcnllnan Taln Lclnk Pnbrik
MKK
3 HARRY TJAHJONO, S,T
530314373
Akunlansi Manajerlnl
MKPILfHAl
2 WAN JULI, S,E,Ak
530303218
Elemen Me!ln
MKDK
2 Ir,LAURENl'IUS HADI SANTOSO, M,
530307362
Permodelan Sistem
MKK
3 HARRY TJAHJONO, S,T
531l301l01
Bahasa Inggris
MKU
2 Drs, ANTONIUS GURITO
530301233
Kimia I
MKDK
2 Ir, SURATNO LOURENTlUS, M,S
530306346
Praktikum SislcUI Protluksi
MKK
1 IGNATIUSJAKA MULYANA, S,T,P
- -----
LAPORAN JADWAL KEGIATAl' TANGGAL: ()lIJunuury/20()2 TANGGAL
KEGIATAN
191Decembcr/2001
makan-makan
25/Deccmbcr12001
natalan bersama IIi ruang 0-104 jam 06.00
20/Deccmbcr1200 1
mnkan-llibatnikan
07/J anullry/2002
VAS masuk jam 09.00 WID
tJ/Novcmber/200 1
Kuliah SistcDI Prolluksi - lIignnti hari jumat tgl16 Nov, jum 10.30
12/N ovcmbcr/200 1
Batas al
20/Novcmber/200 1
Kuliah PPC Jlalla hari schlsa tgl 20 Nov - lIitiullakun
1O/Dccem ber/200 1
Tugas Analisa Keuangan lIikumllUlkan IIi TV palla tgl14 Des - puling lambat jam 12.00
LAPORAN NILAI SEMUA MAHASISW A TEKNIK TANGGAL: NRP
NAMA MAHASISW A
12lJalluary/2002
NAMA MATA KULIAH
UTS
UAS NILAI AKHIR
GRADE
RUDY THEN DRY
!lJOJ0970()2
.IlISTINI·: IIAIt1'ONO Baha •• Inggrl. Pernrogra.man Komputcr Praktllium PcmrogrHnuan KOIUI,uter
Prakllkum SI,lem Prudukd Elemen Medn Klml.1 Da.ar Induslrl EI .. I
5303097003
66 55 60 75 70 85 66 85 72 78 69
69.60 57.80 58.00 73.00 70.00 83.00 67.60 83.00 71.20 73.20 79.40
70 60 65 80 75 66 70 75 77 60
70 70 70 75 70 59 85 70 68 78
70.00 66.00 68.00 77.00 72.00 61.80 79.00 72.00 71.60 70.80
B B
60 50 60 70 60 60 65
64 46 60 55 56 65 66
62.40 47.60 60.00 61.()0 57.60 63.00 65.60
C+
C C 0 B
A B
A B B
B+
KRISNO SUTOWIJOYO Bahasa Inggrl' Pemrogratnun Kontputcr PrHktllc.um Pcmrtll(l"Unln" KOI1l))utcr
Klmlsl Elemen Me,j" 0 .... 1' Induslrl Elclnllul Pl1Iktikum Slsle,n Pl'odulul Permodelan Sis len, M.. n"jemen Ener~1 Perenc.n •• n 1'.1. Lct.k Pabrlk
5303097004
B
75 62 55 70 70 80 70 80 70 66 95
B
0+ 0 C+ B+ B B
B
ARDYAN SIL VANO PUTRA n.hlUUl
[n"rll
Pemrogratnan Komputcr
Praktlkum Pemrograman Koml'uler Khtll .. 1 D.. ar Indu.trl [leI
D
C c+ C C+
C+
LAPORAN NILAI BERDASARKAN NRP TANGGAL: NIH'
5303097014
NAMA
AGUNG DWI MARTHA
N.I.R.M:
97.7.003.31211.38767
,ode Mata Kuliah
Njlma Mata Kuliah
SKS
12/January/2002
Jenis Mala Kuliah
UTS
UAS
Ni10i Akhir
Grade
530301209
PrllktlkuIn Pemrogramlln Komputer
1
MKDK
80
77
78.20
B+
530303219
Dasar Indu.trl Elcktronilot
2
MKDK
90
89
89.40
A
530315309
Mamljemen Encrgi
3
MKK
90
90
90.00
A
530301101
Baha,a Inggris
2
MKU
70
75
73.00
B
530301208
PcmrogrllnJun Komputcr
2
MKDK
60
60
60.00
C
530301233
Klml. I
2
MKDK
45
60
54.00
D
530303218
ElclUcn MClin
2
MKDK
78
80
79.20
B+
530306346
P"aktlkullt SI.tcm Produksl
1
MKK
70
70
70.00
8
530307362
PcrmoiJcliUl Slstcm
3
MKK
80
75
77.00
D+
530314373
AI,unll,n" Manajerlal
2
MK.I'ILIHAN
80
80
80.00
A
5JOJI6JOfl
1'.'t'f. Iu'lut".'11 Tilt" I.,'fllit l·uhl'll,
:I
MI(K
6~
7~
7 LOO
U
530302212
Pro,e. Protluksl I
3
MKDK
70
68
68.80
D
_.- ---
-----
1
-_._-
.....
.
~
LAPORAN NILAI BERDASARKAN KODE MAT A TANGGAL: 12/January/2002
Kode Mllln Kulin It
530307362
Nama Main Kuliah :
I'ermodelall Sis tern
.11'111. Milin I\ullnh
MKI( 3
SKS NRP 5303098009
~
90
!!A§
80
NILAI AKHIR 84.00
GRADE A
5303097UU
80
75
77.00
B+
5303097002
80
85
83.00
A
5303097003
75
70
72.00
B
5303097005
80
96
89.60
A
530309700~
60
65
63.00
c+
5303097006
70
66
67.60
B
5303097008
65
70
68.00
B
5303097009
65
66
65.60
c+
5303097011
70
65
67.00
B
5303097012
65
66
65.60
c+
53030971115
50
65
59.00
C
5303097016
75
80
78.00
D+
LAMPIRAN III
PETUNJUK PEMAKAI (USER GUIDE)
A. MASUK KE DALAM PROGR-\M Langkah-Iangkah yang harus dilakukan untuk masuk ke dalam program ini adalah sebagai berikut : 1. Masukkan nama anda ke dalam kolom nama user. 2. Masukkan password anda ke dalam kolom password. 3. Jika benar, tekan tombol OK. 4. Jika ingin membatalkan, tekan tombol keluar.
B. PENGISIAN DATA Data-data yang ada di dalam program ini adalah data mata kuliah, data mahasiswa, data dosen, data informasi perkuliahan, dan data nilai mahasiswa. Adapun langkah-Iangkah yang hams dilakukan untuk melakukan pengisian data adalah sebagai berikut: 1. Untuk masuk ke dalam tampilan pengisian data, tekan tombol isi. 2. Untuk mengisi data barn, tekan tombol isi bam. 3. Untuk menyimpan data, tekan tombol simpan. 4. Untuk membatalkan pengisian, tekan tombol batal. 5. Untuk merubah data, tekan tombol edit.
6. Untuk menghapus data, tekan tombol hapus. 7. Untuk melihat data awal, tekan tombol« 8. Untuk melihat data akhir, tekan tombol » 9. Untuk melihat data sebelumnya, tekan tombol < 10. Untuk melihat data sesudahnya, tekan tombol > 11. Untuk keluar dari pengisian data, tekan tombol keluar.
C. MELIHAT LAPORAN Laporan-lapornn yang ada di dalam program ini adalah laporan data mata ku1iah, laporan data mahasiswa, laporan data dosen,
laporan
inforhiasi
perkuliahan,
laporan nilai
seluruh
mahasiswa, lapohin nilai betdasarkan NRP, dan laporan nilai berdasarkan mata kuliall.. Adaplln langkah-langkah yang harus dilakukan untuk melihat ictporan adalah sebagai berikut: 1. Untuk masuk ke da1am tampilan laporan, tekan tombol laporan. 2. Untuk melihat Iaporan nilai berdasarkan NRP, masukkan NRP anda kemudian tekan tombol OK. 3. Untuk melihat laporan nilai berdasarkan mata kuliah, masukkan kode mata kuliah kemudian tekan tomboI OK.
D. MENAMBAH USER
Langkah-langkah yang harns dilakukan untuk menambah user adalah sebagai berikut: 1. Untuk masuk ke dalam tampilan penambahan user, tekan
tombol fasilitas. 2. Masukkan nama user barn ke dalam kolom nama user. 3. Masukkan password barn ke dalam kolom password. 4. Masukkan tingkatan pada kolom tingkat Tingkat 1
: Administrator.
Tingkat 2
: Mahasiswa.
Tingkat 3
: Dosen.
5. Untuk menyimpan user bam, tekan tombol simpan. 6. Untuk keluar dari penambahan user, tekan tombol keluar.
E. MERUBAHPASSWORD Langkah-langkah yang hams dilakukan untuk merubah password adalah sebagai berikut: 1. Untuk masuk ke dalam tampilan perubahan password, tekan tombol fasilitas. 2. Masukkan nama user anda ke dalam kolom nama user.
3. Masukkan password lama anda ke dalam kolom password lama, kemudian tekan tombol ubah. 4. Masukkan password baru anda ke dalam kolom password baru, kemudian tekan tomboI simpan. 5. Untuk keluar dari perubahan password, tekan tombol keluar_
F. KELUAR DAR! PROGRAM Langkah langkah -yang- -harus~akukan -untuk keluar dariprogram ini adalah sebagai berik.-ut : L Tekan tombol fasilitas_ 2_ Tekan tombol Log Off..
P B R P tJ 'I l'
...1It A
r,
N
tlDl"enltal Kato l ik Widva Ma'lclala &UR"BAY~
