P13_Menu Unggah File pada delphi 7

 1.      Input Dengan Barcode Scanner di Delphi

Barcode Scanner sendiri sangatlah penting dan itu sampai sekarang masih dipakai di perusahaan – perusahaan besar untuk melakukan input data, contohnya dilakukan untuk input data stock barang, Input data pengiriman barang, input data pembelian dan masih banyak lagi

Cara Input Data dengan Barcode:

                       i.            Buka Form baru

                     ii.            Klik pada Toolbar Component Pallete dan pilih Edit lalu letakkan pada Form

                   iii.            Pilih Edit1 pada Form yang akan diisi dengan scaner, Klik pada Object Inspector Pilih Propertis - events - double klik pada OnKeyPress jika sudah maka akan menampilkan kode seperti dibawah ini

Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char)

Var textpesan : string

Begin   

textpesan :='Yang anda barcode adalah '+Edit1.Text;

//pesan yang ditampilkan saat dimulai barcode   

Application.MessageBox(PChar(textpesan),'Informasi Barcode',MB_OK or MB_ICONINFORMATION);   

Edit1.SelectAll;

//jika diklik ok pada pesan makan edit1 akan diblok secara otomatis 

end;end.

2.      Program cetak barcode dengan Delphi

Pada Delphi 7 kita dapat mencetak barcode dengan bantuan Rave Report, berikut ini langkah penggunaan Rave Report

                       i.            Desain program untuk mencetak akun pendaftaran terdapat pada gambar 13.1

Gambar 13.1 Form Cetak Akun Pendaftaran

                     ii.            Tool yang kita gunakan adalah ADOConection, ADOQuery, DataSource, RVDataSet, dan RV Project.

                   iii.            Desain Barcode yang akan kita cetak dengan klik 2x pada RvRave, kemudian setting New Data Object, Direct Data View kemudian buat desain cetak yang di inginkan. Untuk barcode ubah data view (Data View) dan data field (ID & NAMA LENGKAP)

                   iv.            Simpan File Rave untuk pengaturan RvProject

Pengaturan Pada RVDataSet ditampilkan pada gambar 13.2

Gambar 13.2 Tampilan RVDataSet

 

DataSet

ADOQuery1

 

RV Project pada gambar 13.3

Gambar 13.3 Tampilan RV Project

Tabel 13.1 Komponen RvProject1

Nama	RvProject1
ProjectFile	Cari file Rave yang disimpan

 Untuk tombol cetak tambahkan skrip dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);

var query : string;

begin

AdoQuery1.SQL.Clear;

query := 'SELECT * FROM DataPendaftar WHERE ID = :katakunci';

ADOQuery1.SQL.Add(query);

ADOQuery1.Parameters.ParamByName('katakunci').Value :=StrtoInt(Edit1.Text);

  ADOQuery1.Open;

If ADOQuery1.RecordCount = 0 then

begin

MessageDlg('Data tidak ditemukan',mtinformation,[mbOK],0);

end

else

begin

rvproject1.Execute;

end;

end;

3.      Import Data dari file Excel ke database

Sebuah aplikasi memungkinkan adanya import suatu data dari sebuah template excel atau lainnya. Berikut ini contoh penggunaan Delphi untuk unggah data:

a.       Desain program system penilaian sekolah (Gambar 13.4)

Gambar 13.4 Tampilan program system penilaian sekolah

 

b.      Komponen yang digunakan pada program tersebut sebagai berikut:

1)      ListView pada win32 pilih listview (ubah property ViewStyle menjadi vsReport)

2)      AdoConection, AdoQuery dengan pengaturan

SQL AdoQuery : select * from Data

3)      OpenDialog pada dialogs dan DataSource

4)      DbGrid

5)      Tambahkan Skrip pada masing-masing tambol berikut ini:

a)      Browse

procedure TForm1.Button1Click(Sender: TObject);

var i:Integer;

begin

If OpenDialog1.Execute then

begin

 Edit1.Text:=OpenDialog1.FileName;

 bacaexcel(1);

 for i:=0 to ListView1.Columns.Count-1 do

 begin

 ListView1.Columns[i].Width:=-2;

 end;

end;

end;

 

b)      Hapus Preview

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

ListView1.Clear;

AdoQuery1.Open;

end;

c)      Simpan Data

procedure TForm1.Button3Click(Sender: TObject);

var i, x:integer;

    lvitem:TlistItem;

begin

      if ListView1.Items.Count=0 then

      begin

      Showmessage('Data Masih Kosong ...');

      exit;

      end;

      if ListView1.Columns.Count<>AdoQuery1.FieldCount then

      begin

      ShowMessage('Jumlah Kolom Tidak Sama ...');

      exit;

      end;

      try

      for i:=1 to ListView1.Items.Count do

      begin

      listview1.ItemIndex:=i-1;

      Lvitem:=Listview1.Selected;

      AdoQuery1.Append;

      if Adoquery1.Fields[0].DataType=ftDateTime then AdoQuery1.Fields[0].Value:=Strtodate(lvitem.Caption)

      else if AdoQuery1.Fields[0].DataType=ftInteger then adoquery1.FieldList[0].Value:=StrToint(lvitem.Caption)

      else Adoquery1.Fields[0].Value:=lvitem.Caption;

      for x:= 1 to Adoquery1.FieldCount-1 do

      begin

      if AdoQuery1.Fields[x].DataType=ftDateTime then adoquery1.Fields[x].Value:=StrtoDate(lvitem.SubItems[x-1])

      else if adoquery1.Fields[x].DataType=ftInteger then AdoQuery1.Fields[x].Value:=StrtoInt(lvitem.SubItems[x-1])

      else AdoQuery1.Fields[x].Value:=lvitem.SubItems[x-1];

      end;

      Adoquery1.Post;

      Adoquery1.Close;

      Adoquery1.Open;

      end;

      listview1.Clear;

      showMessage('Data Sudah Disimpan');

      except

      Showmessage('Data gagal disimpan');

      end;

  end;

d)     Keluar

procedure TForm1.Button5Click(Sender: TObject);

begin

Application.Terminate;

end;

4.    Rangkuman

Dalam pembuatan aplikasi tentunya harus terus dikembangkan menyesuaikan dengan perkembangan teknologi, misalnya untuk input data sekarang tidak hanya dengan menggunakan mouse atau keyboard tetapi juga dengan hardware yang lain misalnya scanner barcode sehingga dalam sebuah aplikasi sebaiknya dilengkapi juga untuk input dari berbagi hardware.

5.     Tugas

Andi adalah wakil kepala sekolah pada bagian kurikulum, dia ingin merubah sistem penilaian yang sedang berjalan disekolah andi. andi ingin mengembangkan aplikasi penilaian dengan menambah fasilitas import dari data excel. Silahkan bantu andi membuat aplikasi untuk import data berikut ini.