L
LAMPIRAN LISTING PROGRAM
L1
1. Form Pembuka Listing Program Form Pembuka adalah sebagai berikut : Label : Name Caption
: :
Label7 Assalamu’alaikum Warohmatullahi Wabarokatu
Label : Name Caption
: :
Label0 SELAMAT DATANG DI TERJEMAHAN
Label : Name Caption
: :
Label1 AL - QURAN
Label : Name Caption
: :
Label2 Copy Right by : KUSMA MIRETNA STMIK Jakarta 2006
Command Button : Name Caption On Click
: : :
masuk1 Masuk [Event Procedure]
Command Button : Name Caption On Click
: : :
keluar1 Keluar [Event Procedure]
[Event Procedure] Option Compare Database Private Sub keluar1_Click() On Error GoTo Err_keluar1_Click DoCmd.Quit
L2
Exit_keluar1_Click: Exit Sub Err_keluar1_Click: MsgBox Err.Description Resume Exit_keluar1_Click End Sub Private Sub masuk1_Click() On Error GoTo Err_masuk1_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Utama" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_masuk1_Click: Exit Sub Err_masuk1_Click: MsgBox Err.Description Resume Exit_masuk1_Click End Sub
2. Form Utama Listing Program Terjemahan Al Quran dengan Menggunakan bahasa Indonesia Label : Name Caption
: Label9 : Explore Al-Quran
Option Group : Name
: Frame8
List Box : Name
: eA
L3
Row Source Type Row Source
: Table/Query : SELECT [Tabel_Terjemahan].[Terjemahan] & " " & [Keterangan] AS Expr1, Mid([Terjemahan] & " " & [Keterangan],257,255) AS Expr2, Mid([Terjemahan] & " " & [Keterangan],512,255) AS Expr3, Mid([Terjemahan] & " " & [Keterangan],767,255) AS Expr4, Mid([Terjemahan] & " " & [Keterangan],1012,255) AS Expr5, [Tabel_Nama_Surat].[Nama_Surat], [Tabel_Terjemahan].[Keterangan] FROM Tabel_Nama_Surat INNER JOIN Tabel_Terjemahan ON [Tabel_Nama_Surat].[No_Urut_Surat]=[Tabel_Terje mahan].[No_Urut_Surat] ORDER BY [Tabel_Nama_Surat].[No_Urut_Surat], [Tabel_Terjemahan].[Ayat];
Text Box : Name Control Source
: Text70 : ="30 Juz 114 Surat " & [eA].ListCount & " Ayat"
Page : Name Caption
: Page1 : Terjemahan
Label : Name Caption
: Label76 : TERJEMAHAN AL-QURAN BAHASA INDONESIA
Label : Name Caption
: Label117 : Dibuat dgn Screen 800 by 600 Pixels
Label : Name Caption
: Label116 : Sumber Terjemahan Ini : * IMAM ABDUL MUDJIB PASURUAN_BRAUNSCHWEIG
* http://quran.al-islam.com * http://www.ekabakti.com * http://www.islamic-council.org Image : Name
: OLEUnbound113
L4
Picture
: C:\My Documents\Al Quran\quran4-1.gif
Unbound Object Frame : Name Size Mode Ole Class Display Type Picture Type
: : : : :
Text Box : Name Control Source
OLEUnbound115 Stretch Picture (Device Independent Bitmap) Content Embedded
Decimal Place
: tampil_perayat : =[eA].column(0) & [eA].column(1) & [eA].column(2) & [eA].column(3) & [eA].column(4) : Auto
Option Group : Name
: Frame14
Command Button : Name Caption On Click
: keluar2 : Keluar : [Event Procedure]
[Event Procedure] Option Compare Database Private Sub Command29_Click() [Cari Surat subform].Requery End Sub Private Sub eA_Click() Page1.SetFocus End Sub Private Sub Form_Open(Cancel As Integer) Me.KeyPreview = True DoCmd.Maximize End Sub Private Sub cari2_Click() temukan.Requery
L5
End Sub Private Sub tampil3_Click() [Cari kata subform].Requery End Sub Private Sub keluar2_Click() Dim m On Error GoTo Err_keluar2_Click m = MsgBox("Apakah anda yakin keluar dari program ...?", vbOKCancel, "Konfirmasi") If m = vbOK Then DoCmd.Close Exit_keluar2_Click: Exit Sub Err_keluar2_Click: Resume Exit_keluar2_Click Else Exit Sub End If End Sub Listing program Cari Nama Surat Cepat Page : Name Caption
: Page2 : Cari Nama Surat Cepat
Label : Name Caption
: Label23 : Nama Surat
Combo Box : Name Row Source Type Row Source
Label : Name
: ns : Table/Query : SELECT [Tabel_Nama_Surat].[No_Urut_Surat], [Tabel_Nama_Surat].[Nama_Surat] FROM Tabel_Nama_Surat; : Label28
L6
Caption
: Ayat
Text Box : Name Decimal Place
: ay : Auto
Command Button : Name Caption On Click
: Command29 : Proses : [Event Procedure]
Unbound Object Frame : Name Size Mode OLE Class Display Type
: : : :
Option Group : Name
: Frame30
Label : Name Caption
: Label31 : Keterangan
Label : Name Caption
: Label33 : Status Pencarian
Text Box : Name Control Source
: Stpc : =IIf([tpns]<>"","Ditemukan","Tidak Ditemukan")
Label : Name Caption
: Label35 : Nama Surat
Text Box : Name Control Source
Label :
OLEUnbound111 Stretch Picture (Device Independent Bitmap) Content
: Tpns : =IIf(IsError([Cari Surat subform].Form![Nama_Surat])," ",[Cari Surat subform].Form![Nama_Surat])
L7
Name Caption Text Box : Name Control Source
: Label38 : Jumlah Ayat : Text37 : =IIf(IsError([Cari Surat subform].Form![Jml_Ayat]),"",IIf([ay]<>"","1",[Cari Surat subform].Form![Jml_Ayat]))
Subform/Subreport : Name Source Object
: Cari Surat subform : Cari Surat subform
Option Group : Name
: Frame43
Rectangle : Name
: Box39
Rectangle : Name
: Box45
Listing program Cari Kata di dalam Al Quran Page : Name Caption
: Page3 : Cari Kata di dalam Al-Quran
Label : Name Caption
: Label53 : Mencari Kata
Text Box : Name Decimal Place
: Kata : Auto
Command Button : Name Caption
: cari2 : Pencarian Kata
L8
Command Button : Name Caption
: tampil3 : Tampilkan
Option Group : Name
: Frame56
Label : Name Caption
: Label57 : Ditemukan pada surat dan ayat berikut
List Box : Name Row Source Type Row Source
: temukan : Table/Query : SELECT [Tabel_Terjemahan].[Keterangan] FROM Tabel_Nama_Surat INNER JOIN Tabel_Terjemahan ON [Tabel_Nama_Surat].[No_Urut_Surat]=[Tabel_Terje mahan].[No_Urut_Surat] WHERE ((([Tabel_Terjemahan].[Terjemahan] & " " & [Keterangan]) Like "*"+[Forms]![Utama]![kata]+"*")) OR (((Mid([Terjemahan] & " " & [Keterangan],257,255)) Like "*"+[Forms]![Utama]![kata]+"*")) OR (((Mid([Terjemahan] & " " & [Keterangan],512,255)) Like "*"+[Forms]![Utama]![kata]+"*")) OR (((Mid([Terjemahan] & " " & [Keterangan],767,255)) Like "*"+[Forms]![Utama]![kata]+"*")) OR (((Mid([Terjemahan] & " " & [Keterangan],1012,255)) Like "*"+[Forms]![Utama]![kata]+"*")) ORDER BY [Tabel_Nama_Surat].[No_Urut_Surat], [Tabel_Terjemahan].[Ayat];
Text Box : Name Caption
: Text89 : =[temukan].ListCount
Label : Name Caption
: Label90 : Ayat
Unbound Object Frame :
L9
Name Size Mode OLE Class Display Type
: : : :
OLEUnbound110 Stretch Picture (Device Independent Bitmap) Content
Subform/Subreport : Name Source Object
: Cari Kata subform : Cari Surat subform
Rectangle : Name
: Box46
L10
LAMPIRAN OUTPUT PROGRAM
L11
Form Pembuka
Form Utama Output Terjemahan Al Quran
L12
Output Cari Nama Surat Cepat
Output Cari Kata di dalam Al-Quran
