Open Close CD Rom dengan Delphi 7...

Delphi merupakan bahasa pemrograman yang berbasis objek (OOP) dan mudah untuk dipelajari. Dalam posting kali ini aqu mencoba untuk membuat aplikasi dari Delphi (aqu pake Delphi 7) untuk membuka CD atau DVD Rom.

Memang sangat sederhana tapi mudah mudahan bermanfaat untuk yang baru berlajar seperti aqu



Langkah pertama adalah buka Delphi denga cara Start/All Programs/Borland Delphi 7/Delphi 7.
Setelah Delphi terbuka masukkan component Delphi yaitu Bitbutton dan beberapa component yang bisa mempercantik form. Tapi dalam aplikasi ini aqu menggunakan beberapa component yaitu 2 bitbutton, action list, Xp manifest.



Setelah dimasukkan component tersebut langkah selanjutnya adalah :

1.Ketik “Uses MmSystem;” (tampa tanda petik) tepat di bawah tulisan “implementation”



2.Ubah nama bitbutton 1 menjadi btnopenclose
3.Ubah nama bitbutton 2 menjadi btnexit
4.Ubah nama component menjadi : ActionList
5.Double click component action list hingga muncul form action list



6.Klik “new action list” 3x
7.Action list pertama ganti namanya menjadi : ActionOpen
8.Action list kedua ganti namanya menjadi : ActionClose
9.Action list ketiga ganti namanya menjadi : ActionExit
10.Double click pada ActionOpen dan masukkan kode berikut :

mcisendstring('set cdaudio door open wait',nil,0,Application.Handle);
btnopenclose.Caption:='Close F3';

11.Double click pada ActionClose dan ketikkan kode berikut:

mcisendstring('set cdaudio door closed wait',nil,0,Application.Handle);
btnopenclose.Caption:='Open F2';

12.Double click pada ActionExit dan ketikkan kode berikut:

Application.Terminate;

13.Double click btnopenclose dan ketikkan kode berikut :

if btnopenclose.Caption='Open F2' then
begin
ActionOpenExecute(Self);
end else
begin
ActionCloseExecute(Self);
end;

14.Double click btnexit dan ketikkan kode berikut :

ActionExitExecute(Self);

15.Setelah semua langkah di krjakan maka periksa apakah ada yang salah dengan cara menekan tombol “Ctrl + F9”. Jika tidak ada kesalahan maka tekan “F9” untuk menjalankan aplikasi ini.
Semoga bermanfaat…

Contoh sederhana membuat log in di delphi...

Ada contoh aplikasi dan source code untuk membuat 'Form Log In' di 'Delphi'. Tapi masih menggunakan Database Access. Ga usah bingung kalo kamu mau buat 'Form Log In' pake Database yang lain,...
Karena pada dasarnya sama saja. Yang membuat beda hanya cara koneksi dari Delphi ke Database nya.

Berikut ini ada source code yang di letakkan pada Button dengan Event On Click :

//--------------------
procedure TFLogin.Button2Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from tbl_user where user_name='+QuotedStr(Edit1.Text)+'and user_pass='+QuotedStr(Edit2.Text)+'');
ADOQuery1.Active:=true;

if ADOQuery1.RecordCount <> 0 then
begin
if ADOQuery1['status']='Administrator' then
begin
Form1.Label1.Caption:='Selamat...'+#13+'Anda Log In Sebagai Administrator....';
form1.ShowModal;
end else
begin
Form1.Label1.Caption:='Selamat...'+#13+'Anda Log In Sebagai User biasa....';
form1.ShowModal;
end;
end else
begin
Application.MessageBox('Hahahahaha....'+#13+'User Tidak Terdaftar....','Error Log In',MB_OK);
exit;
end;
end;

//--------------------

Download Contoh Log In...

Source Kode Report Delphi 7 dengan Crystal Report...

Berikut ini ada sintak untuk membuat laporan atau report menggunakan crystal report. Yang di letakkan pada sebuah Button atau tombol pada Event On Click..

Langsung aja....

1. Sintac report untuk membuat report berdasarkan periode tanggal tertentu....

procedure Tfrm_cetak_pinjaman.Button1Click(Sender: TObject);
begin
With CrystalReport1 do
begin
ReportFileName := 'lap_pinjaman.rpt';
SelectionFormula:='{tbl_pinjaman.tanggal_pinjam} >= Date (' + RightStr(DateToStr(DateTimePicker1.Date),4) + ',' + MidStr(DateToStr(DateTimePicker1.Date),4,2)+ ',' + LeftStr(DateToStr(DateTimePicker1.Date),2) + ')' +
' and {tbl_pinjaman.tanggal_pinjam} <= Date (' + RightStr(DateToStr(DateTimePicker2.Date),4) + ',' + MidStr(DateToStr(DateTimePicker2.Date),4,2)+ ',' + LeftStr(DateToStr(DateTimePicker2.Date),2) + ')';
Destination:= crptToWindow;
WindowState:=crptMaximized;
RetrieveDataFiles;
Action:=1;
end;
end;

//=================================================================================

2. Sintac report untuk membuat report seluruh data atau tanpa kkriteria tertentu...

procedure Tfrm_cetak_pinjaman.Button1Click(Sender: TObject);
begin
With CrystalReport1 do
begin
ReportFileName := 'lap_pinjaman.rpt';
SelectionFormula:='';
Destination:= crptToWindow;
WindowState:=crptMaximized;
RetrieveDataFiles;
Action:=1;
end;
end;

Cara mempercepat Install Windows...

Ada trik nich.. buat yang belum tau or Newbee kayak aqu...
Berikut ini ada trik agar proses install Windows lebih cepat… :

Berikut ini ada trik agar proses install Windows lebih cepat… :
1. Pastikan punya CD / DVD Windows yang original…
2. Masuk ke dalam BIOS dan rubah First boot device menjadi CD / DVD..
3. Masukkan CD DVD Windows yang anda punya..
4. Format terlebih dahulu HDD nya..
5. Setelah di format maka akan nengkopi file windows ke HDD dan setelah selesai maka system akan restart secara otomatis…
6. Setelah itu maka windows akan di Set Up…
7. Naaa….hhh disini triknya…
8. Waktu yang normal dibutuh kan waktu sekitar +- 20 menit untuk selesai Set Up ini… tapi dengan trik ini bias lebih cepet…
9. Caranya pada saat Set Up, tekan tombol Shift + F10 untuk menampilkan Command promt (cmd).
10. Ketik : ‘taskmgr’ tanpa tanda petik, lalu tekan Enter. Ini untuk menampilkan task manager.
11. Pilih Tab Process… dan cari proses SetUp.exe.
12. Klik kanan pada SetUp.exe tersebut, pilih Set Priority lalu pilih High atau aboveNormal.
13. Tutup lagi Taskmanager dan Command promnya..
14. Dan proses SetUp akan lebih cepat selesai…

Moga bermanfaat…