Untuk kebutuhan diatas kita bisa menulis kodenya seperti berikut :

Adotable1.Filtered:=False;
Adotable1.Filter:='Judul_Buku like '+QuotedStr('%'+Edit1.Text+'%') ;
Adotable1.Filtered:=False;

Dengan kode diatas maka anda akan mendapatkan buku-buku yang ada kata ‘delphi’ nya. Semoga membantu.

unit dataFranc;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SXSkinControl, SXSkinImage, SXSkinLibrary, SXSkinForm,
SXSkinLabel, SXSkinGroupBox, StdCtrls, Grids, DBGrids,. . . . .

typeNewControl = class(TControl);
TForm1 = class(TForm)
. . . . . .

privateprocedure
 DBGridScroll(var Message: TMessage);
{ Private declarations }
public
{ Public declarations }
end;

procedure TForm1.DBGridScroll(var Message: TMessage);
var count : short;
begin
if (Message.Msg = WM_MOUSEWHEEL) then
begin
  count:=HIWORD(Message.WParam);
  count:=count div 120;
  DBGrid1.DataSource.DataSet.MoveBy(-count)
end
else
  NewControl(DBGrid1).WndProc(Message);
end;

Procedure TForm1.FormCreate(Sender: TObject);
begin
 DBGrid1.WindowProc := DBGridScroll;
end;end.

Connection String untuk blank password :

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ GetCurrentDir +'mydatabase.mdb;Persist Security Info=False';

Connection Strin untuk database yang di password :

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ GetCurrentDir +'mydatabase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=mypassword';

Set datasource ADOquery1 dengan ADOconnection1, dan set dataset Datasource1 dengan ADOquery1

ADOQuery1.ConnectionString:=ADOConnection1.ConnectionString;

With ADOQuery1 Do
Begin
  Close;
  SQL.Clear;
  SQL.Add('select * from table1');
  Open;
End;

DataSource1.DataSet := ADOQuery1;

Ini Contoh program Add :

procedure TFrBarang.BTAddClick(Sender: TObject);
begin
if Application.MessageBox('Benar mau disimpan ?','Konfirmasi',4+32)=idyes then
begin
with ADOobat do
begin
append;
FieldByName('kdobat').AsString:=ed1.Text;
FieldByName('nmobat').AsString:=ed2.Text;
FieldByName('satuan').AsString:=ed3.Text;
FieldByName('harga').AsFloat:=StrToInt(ed4.Text);
FieldByName('stok').AsInteger:=StrToInt(ed5.Text);
FieldByName('kdjenis').AsString:=DbJenis.KeyValue;
post;
end;
end;
end;

Saya menggunakan method Append; dan Post; untuk save data, ADOobat adalah Ado table yang saya rename, kalo untuk Edit data tinggal ganti Append dengan Edit;

Untuk pencarian saya gunakan query, contohnya sebagai berikut; contoh mencari Obat sesuai kodenya:

With ADOobat Do
begin
Close;
Sql.Clear;
sql.Add('Select * From tb_obat Where kode_obat=:kd');
Prepared;
Parameters.Items[0].Value:=comboObat.KeyValue;
Open;
if Not Eof then
ed2.Text:=FieldByname('nama_obat').AsString;
end;

Close : tutup koneksi
sql.clear : bersihkan query yang mungkin sudah ada sebelumnya
sql.Add : buat query pencariannya
Prepared : query dipersiapkan
Parameters : Poin yang dicari; items[0] adalah mengambil nilai parameter pertama yang ada comboObat(Dbcombobox) atau jika ada disebuah textbox maka text.text;
Jika ketemu maka contoh nama obat akan di tampilkan di ed2;

Contoh dengan dua parameter pencarian; Mencari data di table tbbeli dengan nofaktur tertentu dan kode barang tertentu:

With DM.Abeli Do
begin
Close;
Sql.Clear;
sql.Add('Select * From tbbeli where nofaktur=:nf and kdobat=:ko');
Prepared;
Parameters.Items[0].Value:=Ed1.Text;
Parameters.Items[1].Value:=Edit1.Text;
Open;
If not eof then
begin
Date1.Date:=FieldByName('tglbeli').AsDateTime;
DbPasok.KeyValue:=FieldByName('kdpemasok').AsString;
Ed2.Text:=FieldByName('nmpemasok').AsString;
Ed3.Text:=FieldByName('nmobat').AsString;
end
else
begin
MessageDlg('Kode barang '+Edit1.Text+ ' dengan no faktur '+ed1.Text+' tidak ada!',mtInformation,[MbOK],0);
end;

Semoga membantu

Misalkan kita hanya akan mencetak data penjualan pada tanggal sekian saja, atau akan mencetak data barang yang stoknya menipis, atau mencetak data mahasiswa yang nilainya A saja, atau anda ingin memfilter data karyawan yang menerima gaji tanggal sekian dan dengan NIK tertentu, serta masih banyak lagi lainnya. Yang pasti Filter data sangat penting sekali dalam proses pembuatan laporan.

Saya Menggunakan Object Table di BDE dan Data Source di Data Access untuk koneksi dan pengolahan datanya.

1. Tampilkan data Karyawan dengan NIK “040001″

Code :

Table1.Filtered:=False;
Table1.Filter='NIK='+QuotedStr('040001');
Table1.Filtered:=True;

2. Tampilkan data yang karyawan yang gajinya lebih besar dari 2 juta.

code:

Table1.Filtered:=False;
Table1.Filter:='Total_Gaji>2000000';
Table1.Filtered:=True;

3. Tampilkan data penjualan tanggal 17/05/2007 dan dengan Nomor Jual 1002

code:

Table1.Filtered:=False;
Table1.Filter:='Tgl_Jual='+QuotedStr('17/05/2007') +'And No_Jual='+QuotedStr('1002');
Table1.Filtered:=True;

Anda bisa menggunakan statement And atau Or jika terdapat dua atau lebih kondisi. .

Menanggapi respon dari mas rohman, yang ingin membuat menu utama pada aplikasinya. Monggo ikuti langkah-langkah berikut untuk membuat menu seperti contoh diatas.

1. Buat Project sebuah baru anda, dari menu File -> New -> Application,maka akan otomatis ada form1
2. Buat beberapa form baru di dalam project anda tersebut. Dari menu File -> New -> Form, pada contoh ini saya membuat 3 form yaitu Form1 (sebagai menu utama), Form2 dan Form3 sebagai Form prompt ketika di klik salah satu menu.
3. Jangan lupa menyimpan project dan form-form anda, dari menu File -> Save All.
4. Mulai membuat menupada Form1 letakkan object MainMenu yang ada ditab Standar. Klik kanan pada MainMenu1 -> Menu Designer. maka akan ada tampilan edit menu.

   Klik pada area biru gambar diatas, kemudian pada properties Caption ketikkan “Document“, kemudian enter. Satu menu utama sudah terbuat.Untuk membuat menu dari Document, klik pada menu document, akan ada satu area menu yang masih kosong, klik kemudian pada caption ketikkan Baru dan enter, dan seterusnya untuk menu-menu lain.

   Untuk membuat garis pembatas antar menu, cukup ketikkan - (tanda min), pada caption.

   Untuk membuat sub menu dari menu Baru, klik kanan pada Menu Baru -> Create Sub Menu, klik pada satu area kosong dari sub menu baru, kemudian ketik Dokument Kosong. Demikianjuga untuk membuat menu-menu.

   Close windows editor menu untuk selesai dan kembali ke design Form1. Jika berhasil maka pada form1 sudah ada menu-menu yang kita buat.

5. Membuat Form show/dan showmodal.untuk contoh ini, Form2 akan ditampilkan jika dipilih menu Document -> Buka.
   pilih menu Document dan klik Buka, maka akan masuk ke lebar source code, Kodenya adalah

   Form2.Show;

   atau bisa juga

   Form2.ShowModal.

   Apa perbedaan antara kedua kodenya?

   Jika menggunakan fungsi show, maka form1 dan form2 bisa bertukar tempat, artinya form1 bisa diatas Form2 dan Form2 bisa diatas form1. Tapi ShowModal akan membuat Form1 sebagai menu utama selalu berada dibelakang, dan Form2 akan selalu berada diatas (Always on Top).

6. Simpan kembali project anda.
7. Run / F9 untuk eksekusi.ketika run akan ada pesan berikut

   

   Pilih Yes, bahwa benar Form1 mereferensikan form dua di unitnya.

Berikut adalah contoh penggunaan multi skin diaplikasi seperti halnya Winamp skins, jadi anda bisa menganti tampilan program anda langsung, tinggal pilih skin kemudian OK, berubah deh tampilannya. Ketika anda menutup program anda dan membukanya kembali nanti, maka skin yang akan ditampilkan adalah skin settingan anda terakhir kali.

Pastikan Skin library sudah diinstall di Delphi anda, jika belum ikuti langkah-langkah disini

Agar langkah-langkah kita seiring, silahkan atur folder dan file-file anda seperti berikut:

Ket:

1. Folder skinTest : adalah folder utama letak program kita dibuat
2. Folder skin : adalah letak folder skin-skin yang anda punya.
   Skin-skin tersebut bisa anda download di http://www.saarixx.info/sxskincomponents/en/downloads.php
   atau dari skin-skin yang anda buat sendiri.
3. cetekSkin.conf : adalah file config untuk menyimpan settingan skin. file ini berguna untuk menyimpan setting yang anda pilih, File ini tidak perlu dibuat karena akan dicreate dengan kode program.
4. file dpr,exe,pas,dfm dkk, sopasti file-file program kita.

Selanjutnya buat design sesuai selera anda.

Saat mendesign tampilan, lebih baik pasang terlebih dahulu object SXSkinLibrary1, SXSkinForm1, dan kemudian baru object-object lainnya. Ini bermanfaat supaya object-object lain akan secara otomatis mengatur sendiri properties-propertiesnya.

Untuk SXSkinLibrary1, SXSkinForm1 tidak perlu diatur propertiesnya, karena kita akan mengaturnya langsung dari script.

Yuk bahas scriptnya:

unit test;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes,Graphics, Controls, Forms,
  Dialogs, SXSkinLibrary, SXSkinForm, SXSkinControl,SXSkinRadioButton,
  SXSkinCheckBox, SXSkinButton, SXSkinEdit,SXSkinPanel, SXSkinImage,
  SXSkinLabel, Grids, DBGrids, SXSkinSpinEdit,StdCtrls, Menus,
  ComCtrls, DirOutln, Outline;Type

{membuat variable object TcetekSkin dengan type record,
dan menambahkan nameOfSkin type string size 20 sebagai satu field}

Type
  TcetekSkin = record
  nameOfSkin : string[20];
  end;

TForm1 = class(TForm)
  SXSkinRadioButton1: TSXSkinRadioButton;
  SXSkinLibrary1: TSXSkinLibrary;
  SXSkinForm1: TSXSkinForm;
  SXSkinImage1: TSXSkinImage;
  SXSkinEdit2: TSXSkinEdit;
  SXSkinEdit1: TSXSkinEdit;
  SXSkinSpinEdit1: TSXSkinSpinEdit;
  SXSkinButton6: TSXSkinButton;
  SXSkinLabel1: TSXSkinLabel;
  SXSkinButton7: TSXSkinButton;
  ComboBox1: TComboBox;
  procedure FormCreate(Sender: TObject);
  procedure SXSkinImage1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  procedure SXSkinImage1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
  procedure SXSkinImage1MouseUp(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
  procedure Button2Click(Sender: TObject);
  procedure SXSkinButton7Click(Sender: TObject);
  private
  { Private declarations }
public
  { Public declarations }
  DraggingForm:Boolean;
  StartDragPT:TPoint;
end;

var
  Form1 : TForm1;
  myConf : File of TcetekSkin;
  cetekSkin : TcetekSkin;

implementation

uses DateUtils;

{$R *.dfm}

Ketika form dijalankan maka yang akan dikerjakan adalah: mencari file ‘cetekskin.conf’, jika tidak ada maka skin akan dibuat default yaitu memanggil skin kayu, jika ada maka kode akan membaca isi file tersebut, jika file tidak ada isinya maka akan default ke skin kayu, jika ada, maka isi tersebut adalah nama skin yang akan dipanggil.

procedure TForm1.FormCreate(Sender: TObject);
var
dir,myfileconf : String;

begin
myfileconf:= 'cetekskin.conf';

if FileExists(myfileconf) then //check file ada/tidak
begin

     AssignFile(myConf, myfileconf);
     FileMode := fmOpenRead;
     Reset(myConf);
     Read(myConf, cetekSkin); //baca file
     if cetekSkin.nameOfSkin<>''then
            dir := GetCurrentDir +'/skin/'+cetekSkin.nameOfSkin //folder skin
     else
           dir := GetCurrentDir +'/skin/kayu'; //folder skin default
     CloseFile(myConf);
end
else
      dir := GetCurrentDir +'/skin/kayu'; //folder skin default

//actifkan skin terpilih
With SXSkinLibrary1 DO
Begin

     SkinDir:= dir;
     SkinFile:='skin.ini';
     SkinFile2:='skin.ini';
     Active:=True;

end;
end;

tiga procedure dibawah adalah setting agar form dapat didrag/digeser

procedure TForm1.SXSkinImage1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

if Button=mbLeft then
begin

     DraggingForm:=True;
     StartDragPT:=Mouse.CursorPos;
     Dec(StartDragPT.X,Left);
     Dec(StartDragPT.Y,Top);

end;
end;

procedure TForm1.SXSkinImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var PT:TPoint;

begin
if DraggingForm then
begin
     PT:=Mouse.CursorPos;
     SetWindowPos(Handle,0,PT.X-StartDragPT.X,PT.Y-StartDragPT.Y,0,0,SWP_NOSIZE or SWP_NOZORDER);

end;

end;

procedure TForm1.SXSkinImage1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
     DraggingForm:=False;
end;

//procedure untuk merubah setting skin

procedure TForm1.SXSkinButton7Click(Sender:TObject);
vardir : string;
begin

AssignFile(myConf, 'cetekskin.conf'); //setting file config
ReWrite(myConf); //kosongkan isi file
cetekSkin.nameOfSkin := ComboBox1.Text;
Write(myConf, cetekSkin); //tulis file dengan text combo terpilih
CloseFile(myConf);

//aktivkan skin

dir := GetCurrentDir + '/skin/'+ LowerCase(ComboBox1.Text);

With SXSkinLibrary1 DO
Begin

     SkinDir:= dir;
     SkinFile:='skin.ini';
     SkinFile2:='skin.ini';
     Active:=True;

end;
end;
end.

Monggo dicoba. Contoh sederhana.

Jika anda mau menjalankan dikomputer lain, sedangkan dikomputer baru tersebut ga ada SXSkinnya atau Delphi, maka file yang perlu di sertakan tentu saja .EXE dan folder skin

Jika anda mau membuat skin sendiri, anda bisa membuatnya dengan adobe photoshop atau program grafis lainnya yang bisa menghasilkan file *.png. anda tidak perlu mengotak-atik file skin.ini, anda cukup mereplace file *.png yang ada di folder skin dengan image baru anda, tentunya dengan memperhatikan size dari image-image yang sudah ada difolder skin tersebut.

Semoga ada manfaatnya. download skintest.zip 238kb

Kode untuk mengeksekusi aplikasi atau file adalah shellExecute(), sebelumnya anda harus menambahkan sebuah library ShellApi di bagian uses. Yuk lihat beberapa contoh dibawah.

unit Unit1;
  interface uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls, ShellApi;

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
  var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bukaAppWord(Sender: TObject);
begin
ShellExecute(Handle,'open','C:Program FilesMicrosoft OfficeOFFICE11WINWORD.EXE',nil,nil,SW_SHOWNORMAL)
end;

procedure TForm1.bukaFileDocPakeWord (Sender: TObject);
begin
ShellExecute(Handle,'open', 'C:Program FilesMicrosoft OfficeOFFICE11WINWORD.EXE','C:MyDocument.doc', nil, SW_SHOWNORMAL) ;
end;

procedure TForm1.bukaFileSesusaiTypenya(Sender: TObject);
begin
ShellExecute(Handle,'open','C:file.chm', nil,nil, SW_SHOWMAXIMIZED) ;
end;

procedure TForm1.bukaWebStillcetekCom(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.stillcetek.com',nil,nil, SW_ SHOWMAXIMIZED) ;
end;

end.

Langkah-langkah berikut adalah yang saya coba di Borland Delphi 7, Pastikan anda sudah download komponennya. SXSkinComponents dan Graphics32_1_8_1_SX2, anda bisa mendownloadnya di http://www.saarixx.info/sxskincomponents/en/index.htm. gratis.

1. Install Component

• Copy kedua folder itu ke C:\Program Files\Borland\Delphi7\Lib, default instalasi delphi begitu.
• Masuk ke folder Packages yang ada di SXSkinComponents ada beberapa file dengan extensi .dpk, double klik salah satu file tersebut. Saya menggunakan SXSkin_BDSxxxx_D.dpk.
• Klik Compile kemudian Klik Install. Abaikan saja jika ada warning, jika Error coba file .dpk yang lain sesuaikan dengan versi delphi anda.
• Buka folder Packages yang ada di Graphics32_1_8_1_SX2. saya menggunakan GR32_BDSxxxx.dpk, lakukan seperti saat menginstall SXSkin_BDSxxxx_D.dpk.
• Kopi semua file yang ada di SXSkinComponents ke C:\Program Files\Borland\Delphi7\Lib. Kecuali folder packages
• Kopi semua file yang ada di Graphics32_1_8_1_SX2 ke C:\Program Files\Borland\Delphi7\Lib. Kecuali folder packages .

Jika berhasil maka dipastikan akan ada tab komponen baru.

Sampai disini selesai install component baru.

2. Test Component

Buat project baru, sebaiknya anda atur folder penempatan skin dan project. Saya mengatur folder project saya seperti berikut. Jadi jika ingin menambahkan skin baru tinggal kopi paste aja deh ke SKIN (Folder).

2.1. Mengatur tata letak project

• File-file project dpr, pas, res, dfm dll
• Skin (folder)
  • Kayu ( contoh nama skin yang saya pakai buat contoh ini ).
    • Folder-folder skin object
    • File skin.ini
  • skin others

2.2. Mulai design

• Letakkan object SXSkinLibrary1 dan SXSkinForm1 pada form
• Atur protiesnya SXSkinLibrary1 sbb :
  • skinfile = cari file skin.ini (D:\Oprek\test1\skin\kayu\skin.ini)
  • skindir = D:\Oprek\test1\skin (otomatis setelah browse skinfile)
  • active = true;
• Letakkan object-object aplikasi yang anda butuhkan button, text, label combobox dan lain-lain.
• Untuk membuat background form letakkan juga object SXSkinImage1, dan atur propetiesnya sebagai berikut:
  • SkinLibrary = SXSkinLibrary1
  • Skin file, skin dir. Atur sebagai mana object SXSkinLibrary1.
  • SkinStyle = Background
  • Align = alClient (agar lebar SXSkinImage1 akan mengikuti lebar Form)

2.3 Mulai Program

unit Frm_1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, SXSkinForm, SXSkinLibrary, SXSkinControl, SXSkinButton,SXSkinImage, SXSkinSpinEdit, SXSkinEdit, SXSkinCheckBox;typeTForm1 = class(TForm)SXSkinLibrary1: TSXSkinLibrary;

SXSkinForm1: TSXSkinForm;

SXSkinImage1: TSXSkinImage;

SXSkinButton1: TSXSkinButton;

SXSkinEdit1: TSXSkinEdit;

SXSkinEdit2: TSXSkinEdit;

SXSkinButton2: TSXSkinButton;

procedure SXSkinImage1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure SXSkinImage1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure SXSkinImage1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

{Tambahkan variable berikut}

DraggingForm:Boolean;
StartDragPT:TPoint;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

SXSkinLibrary1.StoredSkin:=GetStoredSkinByIndex(0);

SXSkinLibrary1.Active:=True;

end;

procedure TForm1.SXSkinImage1MouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

if Button=mbLeft then

begin

DraggingForm:=True;

StartDragPT:=Mouse.CursorPos;

Dec(StartDragPT.X,Left);

Dec(StartDragPT.Y,Top);

end;

end;

procedure TForm1.SXSkinImage1MouseMove(Sender: TObject; Shift: TShiftState;

X, Y: Integer);

var PT:TPoint;

begin

if DraggingForm then

begin

PT:=Mouse.CursorPos;

SetWindowPos(Handle,0,PT.X-StartDragPT.X,PT.Y-StartDragPT.Y,0,0,SWP_NOSIZE or SWP_NOZORDER);

end;

end;

procedure TForm1.SXSkinImage1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button=mbLeft then

DraggingForm:=False;

end;

end.

2.4. Run

Sebenarnya saya biasa menggunakan Mysql, dan MSSQL. di mysql kita bisa menggunakan sintax

“SELECT * FROM table WHERE MONTH(tanggal_transaksi)=8 AND YEAR(tanggal_transaksi)=2007“.

Ternyata untuk paradok aga sedikit berbeda.

Berikut contoh di paradok untuk keperluan yang sama dengan query mysql diatas.

“SELECT * FROM table
WHERE
EXTRACT(MONTH FROM tanggal_transaksi)=8
AND
EXTRACT(YEAR FROM tanggal_transaksi)=2007″;