LAPORAN
PENCARIAN FILE PDF
Sebagai Syarat Kelulusan Ujian Akhir Semester 2
Mata Kuliah Pemrograman Visual 2
DISUSUN OLEH :
10111029 NUZULUL ARMADA ROMLI
101110358 M. KHOZINUL MAHFUDZ
101110307 MEGAWATI DJUNAIDI
10190062 HADI NUR CAHYO
101110335 M. FADLI
TEKNIK INFORMATIKA
STIKI MALANG
MALANG 2011
LEMBAR PERSETUJUAN
LAPORAN PEMROGRAMAN VISUAL 2
PENCARIAN FILE PDF
DISUSUN OLEH :
10111029 NUZULUL ARMADA ROMLI
101110358 M. KHOZINUL MAHFUDZ
101110307 MEGAWATI DJUNAIDI
10190062 HADI NUR CAHYO
101110335 M. FADLI
Telah disetujui untuk dilaksanakan oleh :
Malang, ..............................
Yulia Diastuti, S.Kom
Dosen Pemrograman Visual 2
KATA PENGANTAR
Kami ucapkan Alhamdulillah kepada Allah SWT, yang telah memberi kemampuan pada kami sehingga tugas membuat program sebagai syarat kelulusan Ujian Akhir Semester 2 Mata Kuliah Pemrograman Visual 2 telah selesai dibuat dan juga teman-teman sekelompok yang kompak dalam membantu menyelesaikan tugas ini.
Semoga program pencarian file PDF ini dapat memberi kemudahan pengguna Komputer dalam mencari file PDF,sehingga mempersingkat waktu dan tentunya lebih efisien dalam pencarian file PDF.Sehubungan dengan Program yang kami buat ini,tentunya masih ada yang perlu dibenahi sehingga akan menjadi program yang lebih sempurna dan baik. Oleh karena itu kritik dan saran kami harapkan agar menjadikan program ini ke depannya menjadi lebih baik.
Selanjutnya kami sadar dalam penulisan Laporan tentang program pencarian file PDF ini masih banyak kekuranagan dalam penulisannya,untuk itu kami mohon maaf sebesar-besarnya,Terima Kasih.
Malang, 17 Juli 2011
Penulis
BAB I
PENDAHULUAN
1.1 JUDUL
“PENCARIAN FILE PDF”
1.2 LATAR BELAKANG
Perkembangan program pada masa sekarang ini sangat pesat dalam kehidupan manusia. Program ini sangat membantu untuk proses pencarian disetiap komputer, baik Laptop maupun Desktop. Program ini cocok sebagai alat bantu yang digunakan untuk beberapa pencariaan file PDF yang berjumlah banyak. Peran yang dimiliki program ini khususnya untuk membantu pencarian dan pengaturan secara teknis dalam pengolahan data dan dokumentasi. Program ini juga bisa mencari file pdf terfavorit dengan cepat. Hal ini sangat menguntungkan khususnya bagi orang yang mempunyai file pdf dalam jumlah banyak.
1.3 RUMUSAN MASALAH
Pembuatan Program PDF Library ini ada beberapa permasalahan yang bisa teridentifikasi yaitu:
1. Bagaimana caranya program ini agar dapat digunakan dan membantu pengguna dalam menyelesaikan masalah ?
2. Fungsi dan Manfaat apa saja dari program ini ?
3. Siapa saja yang mungkin menggunakan program ini ?
1.4 TUJUAN PROGRAM
1. Mempermudah pengguna dalam pencarian file PDF
2. Membuat pengguna agar bisa mengkelompokkan file PDF berdasarkan jenis
3. Memberi Rating untuk file PDF yang paling favorit
1.5 KELUARAN YANG DI HARAPKAN
1. Program selesai sesuai dengan tujuan dari pembuatan program.
2. Menjadi salah satu program unggulan untuk memberi solusi pengguna komputer dalam mencari file berformat Pdf.
BAB II
RANCANGAN PROGRAM
2.1 FLOW CHART PROGRAM
Gbr 2.1 Flowchart Program
2.2 RANCANGAN FORM
2.2.1 FORM MENU UTAMA(PDF LIBRARY)
Form Menu Utama(pdf library) ini berfungsi menampilkan pilihan-pilihan menu yang tersedia pada program.
Didalam Form Menu Utama terdapat menu:
• PENCARIAN
• TAMBAH FILE
• LOKASI
• PASSWORD
• LOGIN PASSWORD
2.2.2 FORM PENCARIAN
Form ini berfungsi untuk mencari file
2.2.3 FORM TAMBAH FILE
Form ini berfungsi menentukan lokasi file PDF yang akan di cari
2.2.4 FORM LOKASI
Form ini menampilkan lokasi file PDF
BAB III
LAYOUT PROGRAM
3.1 FORM MENU UTAMA
Gbr 3.1 menu Utama
3.2 FORM MENU TAMBAH FILE
Gbr 3.2 Menu Tambah File
3.3 FORM MENU LOKASI
Gbr 3.3 Menu Lokasi
3.4 FORM MENU PENCARIAN
Gbr 3.4 Menu Pencarian
3.5 FORM MENU PASSWORD
Gbr 3.5 Menu Password
3.6 FORM MENU LOGIN PASSWORD
Grb 3.6 Menu Login Password
BAB IV
LISTING PROGRAM
4.1 FORM MENU UTAMA
var
Form2: TForm2;
genre,path,pass:String;
implementation
uses unit3,umain,unit4,unit5;
{$R *.dfm}
procedure TForm2.ITambahClick(Sender: TObject);
begin
genre:=InputBox('Tambah Genre','Masukkan','');
if genre'' then
begin
ListBox1.Items.Add(genre);
ADOTable1.Append;
ADOTable1.FieldByName('genre').AsString:=genre;
ADOTable1.Post;
end;
end;
procedure TForm2.IHapusClick(Sender: TObject);
begin
ADOTable1.Locate('genre',ListBox1.Items.Strings[ListBox1.ItemIndex],[loCaseInsensitive]);
ADOTable1.Delete;
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
procedure TForm2.BTambahFileClick(Sender: TObject);
begin
frmain.Show;
frmain.Edit1.Text:='';
end;
procedure TForm2.FormCreate(Sender: TObject);
var
i:integer;
lokasi:String;
begin
lokasi:=ExtractFilePath(Application.ExeName);
ADOConnection1.Connected:=false;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+lokasi+'pdf.mdb;Persist Security Info=False';
ADOConnection1.Connected:=true;
ADOTable1.Active:=true;
ADOTable2.Active:=true;
ADOTable3.Active:=true;
ADOTable1.First;
for i:=1 to ADOTable1.RecordCount do
begin
ListBox1.Items.Add(ADOTable1.Fields[0].AsString);
ADOTable1.Next;
end;
end;
procedure TForm2.BCariClick(Sender: TObject);
begin
form3.Show;
form3.Edit2.Text:='';
form3.ADOQuery1.Close;
form3.ADOQuery1.SQL.Clear;
form3.ADOQuery1.SQL.Text:='select * from file where nama like "%'+
edit1.Text+'%"';
form3.ADOQuery1.Open;
end;
procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
path:=ADOTable2.Fields[2].AsString+ADOTable2.Fields[1].AsString;
if ADOTable3.Locate('no',ADOTable2.Fields[0].AsString,[loCaseInsensitive])=true then
begin
form5.Show;
end
else
begin
ShellExecute(handle,'open',pchar(path),nil,nil,SW_SHOW);
ADOTable2.Edit;
ADOTable2.FieldByName('view').AsInteger:=ADOTable2.FieldByName('view').AsInteger+1;
ADOTable2.Post;
end;
end;
procedure TForm2.BTambahGenreClick(Sender: TObject);
begin
ADOTable2.Edit;
ADOTable2.FieldByName('genre').AsString:=ListBox1.Items.Strings[ListBox1.ItemIndex];
ADOTable2.Post;
end;
procedure TForm2.BHapusGenreClick(Sender: TObject);
begin
ADOTable2.Edit;
ADOTable2.FieldByName('genre').AsString:='';
ADOTable2.Post;
end;
procedure TForm2.BPassClick(Sender: TObject);
begin
form4.Show;
end;
procedure TForm2.ambah1Click(Sender: TObject);
begin
genre:=InputBox('Tambah Genre','Masukkan','');
if genre'' then
begin
ListBox1.Items.Add(genre);
ADOTable1.Append;
ADOTable1.FieldByName('genre').AsString:=genre;
ADOTable1.Post;
end;
end;
procedure TForm2.Hapus1Click(Sender: TObject);
begin
ADOTable1.Locate('genre',ListBox1.Items.Strings[ListBox1.ItemIndex],[loCaseInsensitive]);
ADOTable1.Delete;
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
procedure TForm2.ambahGenre1Click(Sender: TObject);
begin
ADOTable2.Edit;
ADOTable2.FieldByName('genre').AsString:=ListBox1.Items.Strings[ListBox1.ItemIndex];
ADOTable2.Post;
end;
procedure TForm2.HapusGenre1Click(Sender: TObject);
begin
ADOTable2.Edit;
ADOTable2.FieldByName('genre').AsString:='';
ADOTable2.Post;
end;
procedure TForm2.Password1Click(Sender: TObject);
begin
form4.Show;
end;
end.
4.2 FORM PENCARIAN
var
Form3: TForm3;
pilihan,path:string;
implementation
uses unit2, Unit1,unit5;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from file where nama like "%'+edit1.Text+
'%" and lokasi like "'+edit2.Text+'%" '+
'and genre="'+ComboBox1.Text+'" order by '+pilihan;
ADOQuery1.Open;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
form1.Show;
end;
procedure TForm3.FormActivate(Sender: TObject);
var i:integer;
begin
ComboBox1.Clear;
form2.ADOTable1.First;
for i:=1 to form2.ADOTable1.RecordCount do
begin
ComboBox1.Items.Add(form2.ADOTable1.Fields[0].AsString);
form2.ADOTable1.Next;
end;
end;
procedure TForm3.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then pilihan:='nama';
end;
procedure TForm3.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=true then pilihan:='lokasi';
end;
procedure TForm3.RadioButton3Click(Sender: TObject);
begin
if RadioButton3.Checked=true then pilihan:='genre';
end;
procedure TForm3.RadioButton4Click(Sender: TObject);
begin
if RadioButton4.Checked=true then pilihan:='view';
end;
procedure TForm3.DBGrid1DblClick(Sender: TObject);
begin
path:=ADOQuery1.Fields[2].AsString+ADOQuery1.Fields[1].AsString;
if form2.ADOTable3.Locate('no',ADOQuery1.Fields[0].AsString,[loCaseInsensitive])=true then
begin
form5.Show;
end
else
begin
ShellExecute(handle,'open',pchar(path),nil,nil,SW_SHOW);
end;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select nama from file';
ADOQuery1.ExecSQL;
end;
end.
4.3 FORM PENAMBAHAN FILE
var
frMain: TfrMain;
i,j:integer;
implementation
{$R *.DFM}
uses unit1,unit2, DB;
procedure TfrMain.FileSearch(const PathName, FileName : string; const InDir : boolean);
var Rec : TSearchRec;
Path : string;
begin
Path := IncludeTrailingBackslash(PathName);
if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
try
repeat
form2.ADOTable2.Append;
form2.ADOTable2.FieldByName('no').AsInteger:=form2.ADOTable2.RecordCount+1;
form2.ADOTable2.FieldByName('nama').AsString:=Rec.Name;
form2.ADOTable2.FieldByName('lokasi').AsString:=Path;
form2.ADOTable2.FieldByName('genre').AsString:='';
form2.ADOTable2.FieldByName('view').AsInteger:=0;
form2.ADOTable2.Post;
i:=i+1;
until FindNext(Rec) 0;
finally
FindClose(Rec);
end;
If not InDir then Exit;
if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
try
repeat
if ((Rec.Attr and faDirectory) 0) and (Rec.Name'.') and (Rec.Name'..') then
FileSearch(Path + Rec.Name, '*.pdf', True);
until FindNext(Rec) 0;
finally
FindClose(Rec);
end;
end; //procedure FileSearch
procedure TfrMain.Button1Click(Sender: TObject);
begin
FileSearch(Edit1.Text,'*.pdf' ,CheckBox1.State in [cbChecked]);
ShowMessage('Ditemukan '+inttostr(i)+' file');
frMain.Close;
end;
procedure TfrMain.Button2Click(Sender: TObject);
begin
form1.Show;
end;
procedure TfrMain.FormActivate(Sender: TObject);
begin
i:=0;
end;
end.
4.4 FORM MENU LOKASI
procedure TForm1.Button1Click(Sender: TObject);
begin
frmain.Edit1.Text:=ShellTreeView1.Path;
form3.Edit2.Text:=ShellTreeView1.Path;
form1.Close;
end;
end.
4.5 FORM MENU PASSWORD
var
Form5: TForm5;
path:String;
implementation
uses unit2,unit3;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
pass:=edit1.Text;
path:=form2.ADOTable2.Fields[2].AsString+form2.ADOTable2.Fields[1].AsString;
if pass=form2.ADOTable3.Fields[1].AsString then
begin
ShellExecute(handle,'open',pchar(path),nil,nil,SW_SHOW);
form2.ADOTable2.Edit;
form2.ADOTable2.FieldByName('view').AsInteger:=form2.ADOTable2.FieldByName('view').AsInteger+1;
form2.ADOTable2.Post;
end;
form5.Close;
end;
procedure TForm5.FormActivate(Sender: TObject);
begin
edit1.Clear;
end;
end.
4.6 FORM MENU LOGIN PASSWORD
var
Form4: TForm4;
no:string;
implementation
uses unit2;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
if edit1.Text=edit2.Text then
begin
form2.ADOTable3.Append;
form2.ADOTable3.FieldByName('no').AsString:=no;
form2.ADOTable3.FieldByName('password').AsString:=Edit1.Text;
form2.ADOTable3.Post;
ShowMessage('password masuk');
end;
end;
procedure TForm4.FormActivate(Sender: TObject);
begin
Label2.Caption:=form2.ADOTable2.Fields[1].AsString;
no:=form2.ADOTable2.Fields[0].AsString;
end;
end.
BAB V
PENUTUP
5.1 Kesimpulan
Program aplikasi Pencarian file PDF ini akan menjadikan waktu dalam pencarian file berformat PDF lebih cepat, sehingga pengguna tidak perlu repot membuka folder satu persatu dalam hal mencari file PDF yang ada di dalam komputer.
5.2 Saran
Karena tampilan program yang begitu standart, semoga di lain waktu bisa membuat program yang tampilannya lebih menarik dan lebih komersil, untuk itu kami mengharap saran dan kritik dari berbagai pihak demi kesempurnaan program ini.
PENCARIAN FILE PDF
Sebagai Syarat Kelulusan Ujian Akhir Semester 2
Mata Kuliah Pemrograman Visual 2
DISUSUN OLEH :
10111029 NUZULUL ARMADA ROMLI
101110358 M. KHOZINUL MAHFUDZ
101110307 MEGAWATI DJUNAIDI
10190062 HADI NUR CAHYO
101110335 M. FADLI
TEKNIK INFORMATIKA
STIKI MALANG
MALANG 2011
LEMBAR PERSETUJUAN
LAPORAN PEMROGRAMAN VISUAL 2
PENCARIAN FILE PDF
DISUSUN OLEH :
10111029 NUZULUL ARMADA ROMLI
101110358 M. KHOZINUL MAHFUDZ
101110307 MEGAWATI DJUNAIDI
10190062 HADI NUR CAHYO
101110335 M. FADLI
Telah disetujui untuk dilaksanakan oleh :
Malang, ..............................
Yulia Diastuti, S.Kom
Dosen Pemrograman Visual 2
KATA PENGANTAR
Kami ucapkan Alhamdulillah kepada Allah SWT, yang telah memberi kemampuan pada kami sehingga tugas membuat program sebagai syarat kelulusan Ujian Akhir Semester 2 Mata Kuliah Pemrograman Visual 2 telah selesai dibuat dan juga teman-teman sekelompok yang kompak dalam membantu menyelesaikan tugas ini.
Semoga program pencarian file PDF ini dapat memberi kemudahan pengguna Komputer dalam mencari file PDF,sehingga mempersingkat waktu dan tentunya lebih efisien dalam pencarian file PDF.Sehubungan dengan Program yang kami buat ini,tentunya masih ada yang perlu dibenahi sehingga akan menjadi program yang lebih sempurna dan baik. Oleh karena itu kritik dan saran kami harapkan agar menjadikan program ini ke depannya menjadi lebih baik.
Selanjutnya kami sadar dalam penulisan Laporan tentang program pencarian file PDF ini masih banyak kekuranagan dalam penulisannya,untuk itu kami mohon maaf sebesar-besarnya,Terima Kasih.
Malang, 17 Juli 2011
Penulis
BAB I
PENDAHULUAN
1.1 JUDUL
“PENCARIAN FILE PDF”
1.2 LATAR BELAKANG
Perkembangan program pada masa sekarang ini sangat pesat dalam kehidupan manusia. Program ini sangat membantu untuk proses pencarian disetiap komputer, baik Laptop maupun Desktop. Program ini cocok sebagai alat bantu yang digunakan untuk beberapa pencariaan file PDF yang berjumlah banyak. Peran yang dimiliki program ini khususnya untuk membantu pencarian dan pengaturan secara teknis dalam pengolahan data dan dokumentasi. Program ini juga bisa mencari file pdf terfavorit dengan cepat. Hal ini sangat menguntungkan khususnya bagi orang yang mempunyai file pdf dalam jumlah banyak.
1.3 RUMUSAN MASALAH
Pembuatan Program PDF Library ini ada beberapa permasalahan yang bisa teridentifikasi yaitu:
1. Bagaimana caranya program ini agar dapat digunakan dan membantu pengguna dalam menyelesaikan masalah ?
2. Fungsi dan Manfaat apa saja dari program ini ?
3. Siapa saja yang mungkin menggunakan program ini ?
1.4 TUJUAN PROGRAM
1. Mempermudah pengguna dalam pencarian file PDF
2. Membuat pengguna agar bisa mengkelompokkan file PDF berdasarkan jenis
3. Memberi Rating untuk file PDF yang paling favorit
1.5 KELUARAN YANG DI HARAPKAN
1. Program selesai sesuai dengan tujuan dari pembuatan program.
2. Menjadi salah satu program unggulan untuk memberi solusi pengguna komputer dalam mencari file berformat Pdf.
BAB II
RANCANGAN PROGRAM
2.1 FLOW CHART PROGRAM
Gbr 2.1 Flowchart Program
2.2 RANCANGAN FORM
2.2.1 FORM MENU UTAMA(PDF LIBRARY)
Form Menu Utama(pdf library) ini berfungsi menampilkan pilihan-pilihan menu yang tersedia pada program.
Didalam Form Menu Utama terdapat menu:
• PENCARIAN
• TAMBAH FILE
• LOKASI
• PASSWORD
• LOGIN PASSWORD
2.2.2 FORM PENCARIAN
Form ini berfungsi untuk mencari file
2.2.3 FORM TAMBAH FILE
Form ini berfungsi menentukan lokasi file PDF yang akan di cari
2.2.4 FORM LOKASI
Form ini menampilkan lokasi file PDF
BAB III
LAYOUT PROGRAM
3.1 FORM MENU UTAMA
Gbr 3.1 menu Utama
3.2 FORM MENU TAMBAH FILE
Gbr 3.2 Menu Tambah File
3.3 FORM MENU LOKASI
Gbr 3.3 Menu Lokasi
3.4 FORM MENU PENCARIAN
Gbr 3.4 Menu Pencarian
3.5 FORM MENU PASSWORD
Gbr 3.5 Menu Password
3.6 FORM MENU LOGIN PASSWORD
Grb 3.6 Menu Login Password
BAB IV
LISTING PROGRAM
4.1 FORM MENU UTAMA
var
Form2: TForm2;
genre,path,pass:String;
implementation
uses unit3,umain,unit4,unit5;
{$R *.dfm}
procedure TForm2.ITambahClick(Sender: TObject);
begin
genre:=InputBox('Tambah Genre','Masukkan','');
if genre'' then
begin
ListBox1.Items.Add(genre);
ADOTable1.Append;
ADOTable1.FieldByName('genre').AsString:=genre;
ADOTable1.Post;
end;
end;
procedure TForm2.IHapusClick(Sender: TObject);
begin
ADOTable1.Locate('genre',ListBox1.Items.Strings[ListBox1.ItemIndex],[loCaseInsensitive]);
ADOTable1.Delete;
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
procedure TForm2.BTambahFileClick(Sender: TObject);
begin
frmain.Show;
frmain.Edit1.Text:='';
end;
procedure TForm2.FormCreate(Sender: TObject);
var
i:integer;
lokasi:String;
begin
lokasi:=ExtractFilePath(Application.ExeName);
ADOConnection1.Connected:=false;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+lokasi+'pdf.mdb;Persist Security Info=False';
ADOConnection1.Connected:=true;
ADOTable1.Active:=true;
ADOTable2.Active:=true;
ADOTable3.Active:=true;
ADOTable1.First;
for i:=1 to ADOTable1.RecordCount do
begin
ListBox1.Items.Add(ADOTable1.Fields[0].AsString);
ADOTable1.Next;
end;
end;
procedure TForm2.BCariClick(Sender: TObject);
begin
form3.Show;
form3.Edit2.Text:='';
form3.ADOQuery1.Close;
form3.ADOQuery1.SQL.Clear;
form3.ADOQuery1.SQL.Text:='select * from file where nama like "%'+
edit1.Text+'%"';
form3.ADOQuery1.Open;
end;
procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
path:=ADOTable2.Fields[2].AsString+ADOTable2.Fields[1].AsString;
if ADOTable3.Locate('no',ADOTable2.Fields[0].AsString,[loCaseInsensitive])=true then
begin
form5.Show;
end
else
begin
ShellExecute(handle,'open',pchar(path),nil,nil,SW_SHOW);
ADOTable2.Edit;
ADOTable2.FieldByName('view').AsInteger:=ADOTable2.FieldByName('view').AsInteger+1;
ADOTable2.Post;
end;
end;
procedure TForm2.BTambahGenreClick(Sender: TObject);
begin
ADOTable2.Edit;
ADOTable2.FieldByName('genre').AsString:=ListBox1.Items.Strings[ListBox1.ItemIndex];
ADOTable2.Post;
end;
procedure TForm2.BHapusGenreClick(Sender: TObject);
begin
ADOTable2.Edit;
ADOTable2.FieldByName('genre').AsString:='';
ADOTable2.Post;
end;
procedure TForm2.BPassClick(Sender: TObject);
begin
form4.Show;
end;
procedure TForm2.ambah1Click(Sender: TObject);
begin
genre:=InputBox('Tambah Genre','Masukkan','');
if genre'' then
begin
ListBox1.Items.Add(genre);
ADOTable1.Append;
ADOTable1.FieldByName('genre').AsString:=genre;
ADOTable1.Post;
end;
end;
procedure TForm2.Hapus1Click(Sender: TObject);
begin
ADOTable1.Locate('genre',ListBox1.Items.Strings[ListBox1.ItemIndex],[loCaseInsensitive]);
ADOTable1.Delete;
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
procedure TForm2.ambahGenre1Click(Sender: TObject);
begin
ADOTable2.Edit;
ADOTable2.FieldByName('genre').AsString:=ListBox1.Items.Strings[ListBox1.ItemIndex];
ADOTable2.Post;
end;
procedure TForm2.HapusGenre1Click(Sender: TObject);
begin
ADOTable2.Edit;
ADOTable2.FieldByName('genre').AsString:='';
ADOTable2.Post;
end;
procedure TForm2.Password1Click(Sender: TObject);
begin
form4.Show;
end;
end.
4.2 FORM PENCARIAN
var
Form3: TForm3;
pilihan,path:string;
implementation
uses unit2, Unit1,unit5;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from file where nama like "%'+edit1.Text+
'%" and lokasi like "'+edit2.Text+'%" '+
'and genre="'+ComboBox1.Text+'" order by '+pilihan;
ADOQuery1.Open;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
form1.Show;
end;
procedure TForm3.FormActivate(Sender: TObject);
var i:integer;
begin
ComboBox1.Clear;
form2.ADOTable1.First;
for i:=1 to form2.ADOTable1.RecordCount do
begin
ComboBox1.Items.Add(form2.ADOTable1.Fields[0].AsString);
form2.ADOTable1.Next;
end;
end;
procedure TForm3.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then pilihan:='nama';
end;
procedure TForm3.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked=true then pilihan:='lokasi';
end;
procedure TForm3.RadioButton3Click(Sender: TObject);
begin
if RadioButton3.Checked=true then pilihan:='genre';
end;
procedure TForm3.RadioButton4Click(Sender: TObject);
begin
if RadioButton4.Checked=true then pilihan:='view';
end;
procedure TForm3.DBGrid1DblClick(Sender: TObject);
begin
path:=ADOQuery1.Fields[2].AsString+ADOQuery1.Fields[1].AsString;
if form2.ADOTable3.Locate('no',ADOQuery1.Fields[0].AsString,[loCaseInsensitive])=true then
begin
form5.Show;
end
else
begin
ShellExecute(handle,'open',pchar(path),nil,nil,SW_SHOW);
end;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select nama from file';
ADOQuery1.ExecSQL;
end;
end.
4.3 FORM PENAMBAHAN FILE
var
frMain: TfrMain;
i,j:integer;
implementation
{$R *.DFM}
uses unit1,unit2, DB;
procedure TfrMain.FileSearch(const PathName, FileName : string; const InDir : boolean);
var Rec : TSearchRec;
Path : string;
begin
Path := IncludeTrailingBackslash(PathName);
if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
try
repeat
form2.ADOTable2.Append;
form2.ADOTable2.FieldByName('no').AsInteger:=form2.ADOTable2.RecordCount+1;
form2.ADOTable2.FieldByName('nama').AsString:=Rec.Name;
form2.ADOTable2.FieldByName('lokasi').AsString:=Path;
form2.ADOTable2.FieldByName('genre').AsString:='';
form2.ADOTable2.FieldByName('view').AsInteger:=0;
form2.ADOTable2.Post;
i:=i+1;
until FindNext(Rec) 0;
finally
FindClose(Rec);
end;
If not InDir then Exit;
if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
try
repeat
if ((Rec.Attr and faDirectory) 0) and (Rec.Name'.') and (Rec.Name'..') then
FileSearch(Path + Rec.Name, '*.pdf', True);
until FindNext(Rec) 0;
finally
FindClose(Rec);
end;
end; //procedure FileSearch
procedure TfrMain.Button1Click(Sender: TObject);
begin
FileSearch(Edit1.Text,'*.pdf' ,CheckBox1.State in [cbChecked]);
ShowMessage('Ditemukan '+inttostr(i)+' file');
frMain.Close;
end;
procedure TfrMain.Button2Click(Sender: TObject);
begin
form1.Show;
end;
procedure TfrMain.FormActivate(Sender: TObject);
begin
i:=0;
end;
end.
4.4 FORM MENU LOKASI
procedure TForm1.Button1Click(Sender: TObject);
begin
frmain.Edit1.Text:=ShellTreeView1.Path;
form3.Edit2.Text:=ShellTreeView1.Path;
form1.Close;
end;
end.
4.5 FORM MENU PASSWORD
var
Form5: TForm5;
path:String;
implementation
uses unit2,unit3;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
pass:=edit1.Text;
path:=form2.ADOTable2.Fields[2].AsString+form2.ADOTable2.Fields[1].AsString;
if pass=form2.ADOTable3.Fields[1].AsString then
begin
ShellExecute(handle,'open',pchar(path),nil,nil,SW_SHOW);
form2.ADOTable2.Edit;
form2.ADOTable2.FieldByName('view').AsInteger:=form2.ADOTable2.FieldByName('view').AsInteger+1;
form2.ADOTable2.Post;
end;
form5.Close;
end;
procedure TForm5.FormActivate(Sender: TObject);
begin
edit1.Clear;
end;
end.
4.6 FORM MENU LOGIN PASSWORD
var
Form4: TForm4;
no:string;
implementation
uses unit2;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
if edit1.Text=edit2.Text then
begin
form2.ADOTable3.Append;
form2.ADOTable3.FieldByName('no').AsString:=no;
form2.ADOTable3.FieldByName('password').AsString:=Edit1.Text;
form2.ADOTable3.Post;
ShowMessage('password masuk');
end;
end;
procedure TForm4.FormActivate(Sender: TObject);
begin
Label2.Caption:=form2.ADOTable2.Fields[1].AsString;
no:=form2.ADOTable2.Fields[0].AsString;
end;
end.
BAB V
PENUTUP
5.1 Kesimpulan
Program aplikasi Pencarian file PDF ini akan menjadikan waktu dalam pencarian file berformat PDF lebih cepat, sehingga pengguna tidak perlu repot membuka folder satu persatu dalam hal mencari file PDF yang ada di dalam komputer.
5.2 Saran
Karena tampilan program yang begitu standart, semoga di lain waktu bisa membuat program yang tampilannya lebih menarik dan lebih komersil, untuk itu kami mengharap saran dan kritik dari berbagai pihak demi kesempurnaan program ini.
Tidak ada komentar:
Posting Komentar