Belajar Visual Foxpro Bag. 2

Mempertajam pencarian kata dalam kalimat atau Database

Masih ingatkah dengan perintah :

• Locate for
• Seek
• Find

ketiga perintah diatas adalah perintah pencarian dengan rumus sebagai berikut :

LOCATE [FOR lExpression1]   [Scope]   [WHILE lExpression2]   [NOOPTIMIZE]

SEEK eExpression   [ORDER nIndexNumber | IDXIndexFileName
    | [TAG] TagName [OF CDXFileName]    [ASCENDING | DESCENDING]]
   [IN nWorkArea | cTableAlias]

Hmmmm.... rupanya untuk Find telah tergantikan dengan Seek

Cobalah sekarang buatlah sebuah database dengan nama master_brg.dbf dengan format sebagai berikut :

 


  

Nama Field

  

Jenis

  

Panjang

 

  

Kode_brg

  

Character

  

15

 

  

Nama_brg

  

Character

  

35

 

  

Stock

  

Numeric

  

8

 

Isi databasenya seperti berikut :

 


  

Kode_brg

  

Nama_brg

  

Stock

 

  

111111111

  

Baterai ABC Alkaline AAA

  

15

 

  

222222222

  

Nutrive Benecol 75ml.

  

35

 

  

333333333

  

Susu Ultra UHT 110ml.

  

8

 

  

444444444

  

ABC Saos Pedas Botol 200ml.

  

75

 

  

555555555

  

Susu Indomilk strwbry 100ml.

  

25

 

  

666666666

  

Indomilk susu kaleng cokelat

  

150

 

  

777777777

  

ABC kecap manis botol

  

55

 

  

888888888

  

Rokok Sampoerna A Mild

  

10

 

  

999999999

  

Frisian Flag Milk kotak 95ml.

  

24

 

Sekarang buatlah form dengan nama Cari_data.scx dengan bentuk dan format sbb. :

Property Form1 
Caption 
Membuat Form Pencarian Kata

Procedure Init 
SELECT 1
USE master_brg
SET FILTER TO

Procedure Destroy
SELECT 1
USE
SET FILTER TO

Property Label1 
Caption
Kode Barang

Property Command1
Caption
Tampilkan semua

Procedure Click
SET FILTER TO 
GO TOP
thisform.grid1.Refresh 


Property Text1
Procedure InteractiveChange
SELECT 1
SET FILTER TO ALLTRIM(UPPER(thisform.text1.Value))$ALLTRIM(UPPER(nama_brg))
GO TOP
thisform.grid1.Refresh()

Sekarang jalankan formnya, dan isikan kalimat ABC jika dalam pengisian koding Anda benar maka akan tampak seperti berikut