DELPHI7 :: Cara Membuat Form Aplikasi Pencarian Sederhana Dengan TextEdit Delphi 7

Cara Membuat Form Aplikasi Pencarian Sederhana - Dalam setiap aplikasi baik itu local maupun client server 

pasti dilengkapi sebuah form untuk melakukan pencarian. Karena dengan adanya form tersebut maka seorang user 

dalam melakukan 

pencarian data menjadi sangat mudah, cepat dan efisien. Melakukan pencarian pada bahasa pemrograman delphi 7

 biasanya 

menggunakan komponen yang disebut dengan TextEdit. 

Dalam setiap pencarian pun bervariasi dapat dilakukan berdasarkan id, nama, nama perusahaan, alamat dan 

lain sebagainya. Tergantung kepada permintaan user sendiri pada saat pembuatan program aplikasi tersebut.

Sebelumnya saya pernah share Tutorial SQL : Mencari Data di "Dua Field" Dalam Satu Tabel dan Mencari Data 

Yang Berbeda Di 2 Tabel SQL dengan Delphi . Dengan menggunakan Query MySQl / Bahasa SQL tersebut maka 

diperlukan 

sebuah form untuk melakukan pencarian tersebut.

Cara Membuat form aplikasi pencarian Sederhana

1. Buka Delphi 7 dan buat sebuah Project baru

2. Klik dan letakkan pada Form1 (TextEdit dan Button)

3. Tambahkan komponen ZeosLib letakkan pada Form1 (ZConnection untuk Koneksi ke MySql) dan ZQuery1 

(untuk melakukan query pencarian)

4. Kemudian tambahkan DataSource dan letakkan pada Form1 yang 

gunanya untuk menghubungkan DBGrid dengan ZQuery1 caranya seperti gambar dibawah ini

5. Klik DBGrid dan letakkan pada Form1 yang gunanya untuk menampilkan hasil dari pencarian data 

nantinya dan hubungkan Datasource dengan DBGrid

6. Jika semua langkah 1 s/d 5 sudah dilakukan maka tampilan Form1 akan terlihat seperti ini

7. Kembali lagi ke Form1, dobel klik pada Button dan isikan source code seperti dibawah ini

with ZQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('SELECT * FROM nama_tabel WHERE nama_field ='+QuotedStr(Edit1.Text));

Open;

Sehinggan hasilnya setelah ditambahkan kode diatas tampak seperti dibawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin

with ZQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('SELECT * FROM nama_tabel WHERE nama_field ='+QuotedStr(Edit1.Text));

Open;

end;

Keterangan Warna

Warna Merah = ganti dengan tabel di database anda

Warna Biru = ganti dengan nama Field atau kolom pada tabel yang akan digunakan sebagai pencarian.

8. Simpan Project anda dan RUN

Demikian Cara Membuat Form Aplikasi Pencarian Sederhana dengan TextEdit Delphi 7 diatas sangat mudah 

untuk dibuat. Semoga apa yang saya tuliskan kali ini memberikan wawasan serta ilmu tentang bahasa pemrograman

 delphi khususnya dalam hal pencarian data pada tabel database.

DELPHI7 :: Cara Menggunakan Barcode Reader / Scanner di Delphi

Barcode Reader atau Scanner merupakan sebuah alat yang digunakan untuk melakukan Scanner terhadap sebuah kode batang untuk dapat ditampilkan nilai atau data yang sebenarnya (dapat kita jumpai di kasir-kasir toko makanan, buku, dan lain-lain). Dan alat tersebut dapat dikoneksikan ke berbagai macam jenis software aplikasi seperti MS. Office, Excel, Delphi, VB, PHP dan lain sebagainya.

Cara Penggunaan Barcode Reader

Dalam penggunaan alat Barcode pun sangatlah mudah dan begitu pun dengan cara instalasinya. Di sebagian besar alatBarcode Reader yang dijual dipasaran tidak perlu dilakukan install softwarenya karena sangat kompatibel terhadap Os Windows khususnya. Disitu anda tinggal mengkoneksikannya dengan USB komputer anda dan pasti langsung terdeteksi dalam komputer anda (pengalaman penulis).

Manfaat Memakai Barcode Reader

Manfaatnya dan keuntunganya pun sangat besar jika menggunakan Barcode Reader atau Scanner

1. Proses input data semakin cepat dan tepat,
2. Mengurangi kerugian dalam arti kata dapat menghindari kesalahan dalam hal pencatatan data,
3. Dapat meningkatkan kinerja manajemen dan
4. Secara cepat memberikan informasi.

Untuk memindai kode barcode diperlukan pula sebuah Kode Batang yang seperti dibawah ini

Untuk melakukan proses memasukkan data tersebut dapat dilakukan dengan berbagai cara seperti melakukkan input langsung dengan menggunakan Excel, dengan membuat sebuah Aplikasi Input Dengan Barcode Scanner dengan menggunakan aplikasi delphi atau program yang lainnya. Semua itu dapat dimungkinkan asalkan alat Barcode Readeranda sudah terkoneksi dengan baik pada komputer.

DELPHI7 :: CARA MEMBUAT APLIKASI TRANSAKSI TOKO SEDERHANA DENGAN DELPHI 7 DAN DATABASE MYSQL

•  Buat sebuah database di mysql, disini saya menggunakan aplikasi bantuan sqlyog untuk mempermudah pembuatan database dan table yang di butuh kan; (seperti gambar di bwah ini)

•  Buat 3 buah tabel seperti dibawah ini :

•  Untik menyambungkan nya dengan aplikasi delphi saya menggunakan MYSQL CONNECTOR ODBC, setelah instal conector odbc kalian bisa masuk ke Control Panel > adminitrative tools > Data Sources (ODBC) sehingga muncul menu berikut : 

•  Pilih MYSQL ODBC DRIVER dan atur isinya :

Kemudian OK 2 kali,

Setelah itu tutup control panel dan administrative toolsnya,

5.       Sekrang kita masuk ke program delphi nya, disini saya menggunakan DELPHI 7,

a.       Buka aplikasi dephi nya kemudian pilih file>new>Data modul dan tambah komponen seperti      

        berikut;

 

b.       Desain from 1 untuk Login :

                      c.       Desain form 2 seperti gambar dibawah :

                 d.     Desain form 3 seperti ini :

                      e.     Desain form 4 seperti ini :

                       f.     Desain form 5 seperti ini :

                       f.     Desain form 6 seperti ini :

             Berikut adalah aplikasi dan sourcode nya, bisa diunduk disini Aplikasi Toko

 

            t\Semoga Bermanfaat. Terimakasih

DELPHI7 :: Cara Membuat Jam Digital Dengan Delphi 7

 

Program Sederhana Jam Digital Dengan Delphi

Cara membuat jam digital dengan delphi 7

1. Buka program Delphi 7 dan buatlah sebuah project baru setelah itu simpan.
2. Pada Toolbar System pilih komponen Timer dan letakkan pada Form1,
3. Selanjutnya pada Toolbar Standart pilih Label dan letakkan pada Form1,
4. Kemudian double klik pada Komponen Timer yang ada pada Form1, isi dengan listing program dibawah ini
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.caption:=TimetoStr(Now);
end;
5. Simpan dan jalankan dengan menekan F9. Maka akan tampak seperti gambar diatas.

(!) Jika anda ingin mempercantik program jam digital sederhana ini, dapat melalui panel Object Inspector dengan merubah jenis huruf maupun warna. seperti gambar dibawah ini,