hai sobat hibhib yang budiman, dbgrid bawaan standar delphi sering menyuguhkan warna secara default yang tidak bisa di ubah pada menu properties, warna tersebut biasanya adalah putih pada fontnya dan hitam pada backgroundnya saaat diselec record. hal ini sudah lumrah, tapi akan menjadi malasalah mana kala warna bacgroud dasarnya di ganti dan di utak atik, atau pingin lebih dengan warna sesuai custom atau yang kita inginkan,milsal Highlighting Mouse Pointer. berikut adalah cara hack atau mengubah tampilan dasar dari dbgrid atatu crdbgrid pada komponen mydac untuk delphi.
kami anggap anda sudah menguasai struktur dari unit.pas delphi
pada bagian code dibawah type tambahkan baris perintah berikut
THackingGrid = class(TDBGrid);
Arahkan kursor pada bagian deklarasi private dan public.
Tepat dibawah deklarasi private, sebelum public tambahkan deklarasi variabel, procedure dan property baru seperti ini:
Arahkan kursor ke bagian implementation (dibawah kata kunci implementation), buat procedure SetMouseOver yang sudah dideklarasikan sebelumnya, menjadi seperti ini:
procedure TForm1.SetMouseOver(const Value: Integer);
begin
if fMouseOver <> Value then
begin
fMouseOver:= Value;
DBGrid1.Repaint;
end;
end;
Klik ganda menu OnMouseMove sehingga code editor akan mengantar kita bada kerangka kode event tersebut. Tepat diatas kata kunci begin, deklarasikan variabel baru:
var
point: TGridCoord;
begin
point:= DbGrid1.MouseCoord(x, y);
MouseOver:= point.Y;
end;
yang terakhir harus dilakukan adalah membuat koding yang terkait pada event untuk membuat highlighting baris data pada saat mouse melewati baris data DBGrid1. Untuk menyelesaikan tujuan itu, kembali ke Object Inspector, arahkan pada events OnDrawColumnCell lalu klik ganda hingga kerangka events terbuka pada code editor. Ketikkan kode seperti ini, tepat dibawah kata kunci begin:
procedure TForm1.DBGrid1DrawColumnCell
(Sender: TObject; const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
begin
if (THackDBGrid(DBGrid1).DataLink.ActiveRecord + 1 =
THackDBGrid(DBGrid1).Row)
or (gdFocused in State) or (gdSelected in State) then
begin
DBGrid1.Canvas.Brush.Color := clSkyBlue;
DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
DBGrid1.Canvas.Font.Color := clRed;
end;
end;
kawan hibhib yang budiman. berawal dari permintaan user untuk membuat program Point Of Sale (POS) atau program toko minimarket yang harus suport sengan printer dot matrix usb 58mm dan cash drawer yang terhubung ke printer dengan konektor RJ11, dan alhamdulillah dapat berhasil dengan baik. walaupun harus melewati perjalanan yang tidak mudah, berkali kali brosing dan uji coba, gagal. sebagian besar saat brosing yang saya temukan adalah peinter yang menggunakan COM sebagai koneksinya. sementara kebutuhanya adalah menggunakwn USB.
bahasa yang saya gunakan adalah menggunakan bahasa delphi. pada mulanya membaca sebuah aricle yang bahasa juga sulit dimengerti karena bahasa inggris, heee. ini hasil brosing yang saya dapatkan
var
f:textfile;
Begin
assignfile(f);
try
rewete(f,’nama comport’);
//membuka laci uang dengan pos escape
writeln(f,chr(27),chr(220),…)
closefile(f);
except
showmessage(‘gagal membuka laci uang’);
end;
end;
saya coba berulang kali ternyata tetap gagal, sampai mengganti nama port dengan ‘USB002′ Sesuai dengan yang saya baca.
namun tetap gagal.
setelah melirik pada sebuah web, saya menemukan ada yang menggunakan uses printers pada delphi. itulah pertama kali titik terang yang saya dapatkan. kemudian saya coba sedikit ubah coding yang tadi menjadi..
var
f:textfile;
Begin
assignprn(f);
try
rewete(f,’nama comport’);
//membuka laci uang dengan pos escape
writeln(f,’tek yang akan di cetak’);
closefile(f);
except
showmessage(‘gagal membuka laci uang’);
end;
dan alhamdulillah coding ini word 100%.
struk pada mini printer keluar dan mencetak sesuai dengan yang saya tulis pada writeln.dan yang paling saya suka adalah, laci uang juga terbuka….
taraaa..
baik listing code selengkapnya sebagai berikut…
naik agan sekalian, sekian dulu. semoga bermanfaat.
happy berselancar di dunia maya…
bagi yang menemukwn artikel ini, silahkan komentar…
heee
Program ini saya beri nama "Nz USB Save1.0" karena masih dalam tahap pengembangan.
halo kawan sekalian, kalau dilihat dari judulnya memang aneh ya? hee
biasanya orang kan mencari komputer ya harus ada USBnya kok malah dimatikan..
cuma ini kasusnya beda gays..
kebetulan saya mengelola Laboratorium Sekolah.
untuk antisipasi penyalah gunaan ketika ujian berbasis komputer. maka USB untuk Flasdisk perlu dilok.
setelah brosing sana sini didapatkan kesimpulah bahwa fungsi USB bisa dinonaktifkan lewa Registry. caranya sebagai berikut :
1. Klik Start -->RUN --> ketik regedit --> klik OK 2. Di jendela Registry Editor masuk ke :HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR
3. Dobel klik dwordStart(di sebelah kanan) ganti Value Data yang semula 3 menjadi 4 --> klik OK. --> tutup jendela registry editor Sekarang fungsi USB disk sudah disable (untuk beberapa kasus, komputer harus restart ).
Untuk mengembalikan fungsi USB disk menjadi normal kembali ulangi langkah seperti di atas, pada langkah ketiga kembalikan ValueData dari 4 menjadi 3.
nah bagi sebagian orang, masuk registri merupakan hal yang membingungkan. nah DARI SITU AHIRNYA SAYA ISENG BUAT PROGRAM DENGAN DELPHI
1. pertama buat sebuah form baru
2. isi form tersebut dengan 2 button dan ganti captionya sesuai pada gambar
3. Pada uses di form utama silahkan tuliskan registry
4.pada chekbok (Aktifkan USB flashdis ) silahkan tuliskan sintax berikut
dalam beberapa kasus contohnya dalam proses pembutan program penyewaan, tentunya akan menjumpai selisih antar tanggal.
contoh kasus adalah ketika seseorang meminjam barang, baik itu rental mobil, atau buku, pada saat mengembalikan di tanggal itu, maka program harus bisa mendeteksi apakan waktu pengembaliana telat, atau tidak,. kemudian berapa dendanya begitu kan gan? hehee
oke gan untuk mencari selisih waktu pada delphi kita bisa menggunakan fungsi yang telah disediakan yaitu
DaysBetween
bentuk umumnya adalah
DaysBetween(Waktu1,Waktu2)
fungsi tersebut akan menghasilkan nilai balik berupa integer
contoh penerapanya adalah sebagai berikut
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=DaysBetween(DateTimePicker1.Date,DateTimePicker2.Date);
Edit1.Text:=FloatToStr(a);
end;
contoh rancangan interfavenya sebagai berikut
contoh program selengkapnya bisa di download dengan klik link dibawah ini
Apakah Anda pernah mengalami kegagalan pada saat membuka aplikasi Borland Delphi dengan pesan " Borland license information was found, but it is not valid for Delphi " ?
Berikut cara mengatasi " Borland license information was found, but it is not valid for Delphi " pada Borland Delphi :
Cara Pertama : 1. Masuk pada direktory C:/ProgramFiles/Borland/Delphi7/bin 2. Bersihkan registrasi dengan menjalankan file D7RegClean.exe 3. Kemudian regristasi ulang dengan cara menjalankan D7Reg.exe 4. Jika muncul registrasi sukses berati delphi siap untuk di jalankan kembali
Cara yang kedua
(Masuk ke dalam folder .borland yang terletak pada direktori user's pada Documents And Settings)
(Jalankan D7Reg.exe yang terletak pada direktori C:/ProgramFiles/Borland/Delphi7/bin)
(Ikuti step demi step dalam proses registrasi)
(Selesai, sekarang delphi Anda sudah dapat dijalankan dengan normal)
Bahasa pemrograman Delphi dapat digunakan untuk berbagai keperluan baik untuk perhitungan matematis, aplikasi perkantoran, aplikasi multimedia, pembuatan aplikasi pengolah data, aplikasi kontrol industri, dan aplikasi untuk akademik yang hampir kesemuanya menggunakanDatabase. Pada materi ini akan dijelaskan bagaimana cara mengakses database MySQL Menggunakan bahasa pemrgramman Delphi 07 dengan koneksi mengunaikan komponentambahaneksternal yaiutu MyDAC for Delphi.
Data Access Components for MySQL (MyDAC) adalahKomponen library yang menyediakanakses langsung ke database server MySQL dari Delphi, Delphi for .NET, C++Builder, Free Pascal, danm Kylix. mydac dapat berhubungan secara langsung ke mysql server atau library mysql. library mydac didisain untuk membantu pembuat program dan mengembangkan program aplikasi database lebih cepat dan efisien. mydac menyelesaikan penggantian untuk standar mysql connectivity seperti ADO dan mempersembahkan alternatif efisien kepada borland sebagai mesin pencetak program basis data untuk akses ke mysql.
mydac mengizinkan pegguna berhubungan ke mysql melalui dua cara :
1.Client mode
2.Direct mode
B.Mengenal Component Pallete yang berhubungan dengan pengelolaandatabase pada Delphi 7
Delphi telah menyediakan komponen database yang akan memudahkan dalam merancang dan membangun aplikasi database. Komponen-komponen database dikelompokkan dalam beberapa Component Pallete yaituComponent Pallete Data Acces, Component Pallete Data Controldan Component PalleteADO.
Penggunaan komponentambahan seperti MyDAC pada Delphi akan membentuk sebuah Component Pallete baru dengan nama MySQLAccess
Data Control lebih menekankan pada pengaturan data yang terpasang pada aplikasi sepeti DBLabel, DBNavigator, DBGrid, DBImage, DBMemo, DBEdit, DBCombobox dan lain sebagainya.
C.Teori Dasar Pengelolaan Database Mysql Menggunakan MyDAC pada Delphi
1.Database: Data atau informasi yang akan digunakan oleh aplikasi
2.MyConnection: Komponen pada delphi yang digunakan untuk berkomunikaasi dengan database MyQuery: komponen untuk memanipulasi data yang bersumber dari komponen MyConnection menggunakan bahasa DML
4.MyData Source: Kompoen yang mengambil data dari hasil olahan MyQuery untuk ditampilkan DBGrid.: komponen untuk menampilkan data yang bersumber dari MyDatasource dalam bentuk grid atau tabel
D.Membuat Program database Pendaftaran Siswa Baru Dengan Delphi
' where no_daftar='+QuotedStr(datasetDaftar['no_daftar']));
MyCommand1.Execute;
//tampilkan pesan jika berhasil
ShowMessage('Update berhasil');
//refresh tabel
datasetDaftar.Close;
datasetDaftar.Open;
//memanggil fungsi pada btBatal
btBatal.Click;
end;
7.Menyimpan Program
Untuk menyimpan hasil rancangan program bisa menggunakan menu
File > Save All setelah itu akan muncul jendela dialog penyimpanan seperti gambar disamping.
Ada dua file utama yang akan disimpan yaitu :
file unit yang berekstensi *pas dan
file project yang berekstensi *dpr.
Pada file name beri nama sesuai kebutuhan dan
Pada save in tentukan lokasi penyimpananya.
8.Mengkompile Program
Kompilasi adalah suatu proses untuk mengubah kode program menjadi file executable yang mandiri (stand alone).
Proses kompilasi pada delphi 7 bisa dengan menekan tombol F9 pada keyboard , atau bisa dengan klik ikon Run pada toolbar delphi 07 Download File PDF disini jika gagal, gunakan klik disini
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
update tanggal 9 Maret 2018
