Archive for category Delphi

DBgrid Can’t be Scroll

ada kasus nih, ternyata dbgrid yang saya buat untuk menampilkan data, scroll mouse g berfungsi, ada triknya nih sapa tau ada yang mengalami masalah yang sama

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.

No Comments

Delphi Connect to MS Access with Blank Password & Exclusive Protect

Posted by Lukman in Delphi on May 15th, 2009

Kita bisa menggunakan ADO Connection untuk mengakses database Access, saya bisa menggunakan Ado Query dan Datasource di data access untuk mengolah data, berikut contoh Kode Connectionnya

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;

No Comments

Input , Search Data With ADO & MS Access

Posted by Lukman in Delphi on July 15th, 2008

Blogku, sebenarnya g tega meninggalkan blog lama2, dah hampir 2 bulan ga sentuh stillcetek (
Ada yang menanyakan tentang ADO dan MS Access, kebetulan tugas akhir dulu saya menggunakan delphi, dengan ADO Connection, dan MS Access sebagai databasenya, program sederhana ya tapi alhamdulillah bener2 buat sendiri jadi puas sedapatnya.

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

2 Comments

Filter Data Database Paradok di Delphi 7

Posted by Lukman in Delphi on December 19th, 2007

Artikel kali ini membahas tentang bagaimana memfilter data dalam membuat laporan dari hasil pengolahan data yang kita buat. Mb Sri yang nanya nih. .

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.