Mematikan Alt+F4

Jika kita membuat applikasi Delphi, kadang kala applikasi kita bisa di bunuh dengan hanya menekan tombol Alt+F4. Biar aman, dan sesuai prosedur applikasi, alangkah baiknya applikasi kita di create prosedur untuk mematikan hal tersebut. Ini sintaknya :

public
procedure AppMessage(var Msg: TMSG; var HAndled: Boolean);
end;
{...}

implementation
{...}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
  Handled := False;
  case Msg.Message of
  WM_SYSKEYDOWN:
  if Msg.wParam = VK_F4 then
  Handled := True; // don't allow ALT-F4
 end;
end; 

Looping dengan For

program loop2;
var
 i,j : integer;
 begin
  for i:=15 downto 1 do
   begin
    for j:=1 to i do
     write('*');
     writeln('');
   end;
end.

Menghitung (Luas, Keliling & Panjang Diagonal) Lingkaran dengan Pascal

Ketikan Scrip di Bawah ini

Cara Mengecek Kelulusan (Program Pascal)

Cara untuk mengecek kelulusan dengan program Pascal caranya adalah.. Masukan scrip program dibawah ini

Cara menggunakan Rumus (MIN, MAX & AVERAGE) di Microsoft Excel

Cara menggunakan Fungsi SUM, MAX, MIN dan Average di Microsoft Excel

1. Persiapkan data yang akan digunakan, Contoh :

2. Masukan Rumus pada sel

Lakukan yang sama untuk Nilai Terbesar dengan rumus =Max(B2:B20), dan Nilai Rata-rata yaitu =Average(B2:B20)

 3. Hasilnya

4. Selamat Mencoba

Cara menyimpan gambar JPEG di database MySQL Dengan Program Delphi

Membuat sebuah aplikasi, alangkah indahnya apabila program yang dibuat indah dan menarik. Untuk mencapai tujuan tersebut kadang terhalang dengan cara bagaimana untuk membuatnya.

Postingan ini akan membahas bagaimana cara menyimpan data gambar yang berformat JPEG.
Perlengkapan yang digunakan penulis :

1. Delphi 7
2. Database MySQL, silahkan donlot gratis tanyakan ke bah gugel
3. Koneksi menggunakan ZEOS silahkan donlot dimari

Langkah 1

Masuk ke MySQL buat database beserta tablenya

 Create database jpeg; 
  Use jpeg; 
  Create table contoh( Nomor int auto_increment, Nama varchar(10), Photo longBlob, primary        key(nomor));

Langkah 2

Jalankan delphi 7 buat desain seperti berikut ini


















Langkah 3

Masukan scripnya

procedure TForm1.FormCreate(Sender: TObject);
 begin
  ZConnection1.Connect;
  ZTable1.Open;
end;

procedure TForm1.Image1DblClick(Sender: TObject);
var
op  : TOpenPictureDialog;
str : TStream;
begin
op := TOpenPictureDialog.Create(self);
op.Filter:=’JPEG File  |*.jpg ;*.jpeg’;
try
 if op.Execute then
  begin
   image1.Picture.LoadFromFile(op.FileName);
   str :=TFileStream.Create(op.FileName, fmOpenRead);
   try
     if image1.Picture <> nil then
      begin
       ZTable1.Edit;
       ZTable1photo.LoadFromStream(str);
       ZTable1.Post;
      end;
    finally
     str.Free;
    end;
   end;


  finally
    op.Free;
 end;
end;

procedure TForm1.DBNavigator1Click(Sender: TObject;  Button: TNavigateBtn);
var
  GbJPEG : TJPEGImage;
begin
case button of
  nbFirst..nbLast :
 begin
  GbJPEG := TJPEGImage.Create;
  try
   with GbJPEG do
    begin
     Assign(ZTable1.Fields[2]) ;
     image1.Picture.Assign(gbJPEG);
    end;
   finally
    GbJPEG.free;
   end;
  end;
 end;
end;



Selamat berkreasi


Listing lengkap silahkan donlot disini

sudah di donlot rename jadi file zip kemudian extract

Kata Cewek Tentang Cowok

Kalo Cowok Ganteng pendiam
Cewek-Cewek Bilang: Wow, cool banget..
Kalo Cowok Jelek pendiam
Cewek-Cewek Bilang: Ih kuper..

Kalo Cowok Ganteng begaya gaul
Cewek-Cewek Bilang: Funky bo..
Kalo Cowok Jelek begaya gaul
Cewek-Cewek Bilang: Ih norak..




Kalo Cowok Ganteng jomblo
Cewek-Cewek Bilang: Pasti dia perfeksionis
Kalo Cowok Jelek jomblo
Cewek-Cewek Bilang: Sudah jelas..kagak laku!

Kalo Cowok Ganteng jadi gay
Cewek-Cewek Bilang: Karena cowo2 juga suka
Kalo Cowok Jelek jadi gay
Cewek-Cewek Bilang: Karna cewe2 uda ga berminat

Kalo Cowok Ganteng ganti2 cewe
Cewek-Cewek Bilang: Wajar, khan dikerubutin cewe2 cantik
Kalo Cowok Jelek ganti2 cewe
Cewek-Cewek Bilang: Pasti sering diputusin cewenya

Kalo Cowok Ganteng dpt cewe cantik
Cewek-Cewek Bilang: Klop..serasi banget
Kalo Cowok Jelek dpt cewe cantik
Cewek-Cewek Bilang: Pasti main dukun..atau cewenya matre

Kalo Cowok Ganteng ditolak cewe
Cewek-Cewek Bilang: Jangan sedih, khan masi ada aku...
Kalo Cowok Jelek ditolak cewe
Cewek-Cewek Bilang: (Diam,tapi telunjuknya meliuk2 dari atas kebwh)

Kalo Cowok Ganteng diputusin cewe
Cewek-Cewek Bilang: Rugi tuh cewe..tapi rejeki buat cewe yg lain
Kali Cowok Jelek diputusin cewe
Cewek-Cewek Bilang: Akhirnya terbuka juga mata hati cewe itu...

Kalo Cowok Ganteng suka merawat wajah
Cewek-Cewek Bilang: Itu memelihara asset namanya..
Kalo Cowok Jelek suka merawat wajah
Cewek-Cewek Bilang: Buang-buang waktu aja...

Kalo Cowok Ganteng ngaku Indo campuran
Cewek-Cewek Bilang: Emang mirip-mirip bule sih..
Kalo Cowok Jelek ngaku Indo campuran
Cewek-Cewek Bilang: Campuran bemo sama becak, kali..

Kalo Cowok Ganteng penyayang binatang
Cewek-Cewek Bilang: Perasaannya halus...penuh cinta kasih
Kalo Cowok Jelek penyayang binatang
Cewek-Cewek Bilang: Sesama keluarga emang hrs saling menyayangi...

Kalo Cowok Ganteng jadi atasan
Cewek-Cewek Bilang: Cocok..tampangnya aja intelek
Kalo Cowok Jelek jadi atasan
Cewek-Cewek Bilang: Ga pantes, muka jongos...

Kalo Cowok Ganteng jago main gitar
Cewek-Cewek Bilang: Most talented boy..
Kalo Cowok Jelek jago main gitar
Cewek-Cewek Bilang: Pasti tukang ngamen..

Kalo Cowok Ganteng bawa BMW
Cewek-Cewek Bilang: Matching...keren luar dalem
Kalo Cowok Jelek bawa BMW
Cewek-Cewek Bilang: Punya majikan ya...

Kalo Cowok Ganteng ngaku pernah ML
Cewek-Cewek Bilang: Iyalah,cewenya pasti `ngasih`...
Kalo Cowok Jelek ngaku pernah ML
Cewek-Cewek Bilang: Sama WTS mana?

Kalo Cowok Ganteng jadi biker
Cewek-Cewek Bilang: Kaya Valentino Rossi ya..
Kalo Cowok Jelek jadi biker
Cewek-Cewek Bilang: Pasti sekalian ngojek..

Kalo Cowok Ganteng kulitnya gelap
Cewek-Cewek Bilang: Si hitam Manis..
Kalo Cowok Jelek kulitnya gelap
Cewek-Cewek Bilang: Si Dakochan....

Kalo Cowok Ganteng gondrong
Cewek-Cewek Bilang: Macho..Rocker Style!
Kalo Cowok Jelek gondrong
Cewek-Cewek Bilang: Buat nutupin muka..

Kalo Cowok Ganteng suaranya bagus
Cewek-Cewek Bilang: Jadi penyanyi aja...
Kalo Cowok Jelek suaranya bagus
Cewek-Cewek Bilang: Kenapa ga jadi kenek aja..??

Kalo Cowok Gante! ng bodynya berotot
Cewek-Cewek Bilang: Wiii gila, sixpack!...seksi bo!
Kalo Cowok Jelek bodynya berotot
Cewek-Cewek Bilang: Biar orang ga mratiin tampangnya,tuh..

Kalo Cowok Ganteng males difoto
Cewek-Cewek Bilang: Pasti takut fotonya kesebar-sebar
Kalo Cowok Jelek males difoto
Cewek-Cewek Bilang: Nggak tega liat hasil cetakannya ya?..

Kalo Cowok Ganteng keringetan
Cewek-Cewek Bilang: Pasti abis olahraga..sporty boo!
Kalo Cowok Jelek keringetan
Cewek-Cewek Bilang: Abis ngangkut beras di mana?

Kalo Cowok Ganteng naik MOGE
Cewek-Cewe! k Bilang: Ow..Lorenzo Lamas, bikin lemas..
Kalo Cowok Jelek naik MOGE
Cewek-Cewek Bilang: Awas, mandragade lewat..

Kalo Cowok Ganteng jadi selebritis
Cewek-Cewek Bilang: Kalo ngga model ya bintang film..
Kalo Cowok Jelek jadi selebritis
Cewek-Cewek Bilang: Pasti pelawak atau penyanyi dangdut...

Kalo Cowok Ganteng menyendiri
Cewek-Cewek Bilang: Gak mau jadi pusat perhatian
Kalo Cowok Jelek menyendiri
Cewek-Cewek Bilang: Minder kali...

Kalo Cowok Ganteng humoris
Cewek-Cewek Bilang: Orangnya asyik ya...
Kalo Cowok Jelek humoris
Cewek-Cewek Bilang: Cari perhatian tuh..

Kalo Cowok Ganteng belagu
Cewek-Cewek Bilang: Maklum beken...
Kalo Cowok Jelek belagu
Cewek-Cewek Bilang: Muke lu jauh...!!

Kalo Cowok Ganteng romantis
Cewek-Cewek Bilang: Ooh..so sweet..
Kalo Cowok Jelek romantis
Cewek-Cewek Bilang: Urgh..you make me sick!

Kalo Cowok Ganteng pake kacamata item
Cewek-Cewek Bilang: Kereen...jadi inget film Matrix
Kalo Cowok Jelek pake kacamata item
Cewek-Cewek Bilang: Cocok..tinggal kasi tongkat aja..

Kalo Cowo! k Ganteng minta kissing
Cewek-Cewek Bilang: Boleeh..tapi yg soft ya...
Kalo Cowok Jelek minta kissing
Cewek-Cewek Bilang: Ih jijayy..sama pispot aja sana!

Kalo Cowok Ganteng berbuat jahat
Cewek-Cewek Bilang: Nobody`s perfect
Kalo Cowok Jelek berbuat jahat
Cewek-Cewek Bilang: Pantes..tampangnya aja kriminil..!!

Kalo Cowok Ganteng nuangin air kegls cewe
Cewek-Cewek Bilang: Ini baru cowo gentleman..
Kalo Cowok Jelek nuangin air kegls cewe..
Cewek-Cewek Bilang: Naluri pembantu, emang gitu..

Kalo Cowok Ganteng nolongin cewe yg diganggu preman
Cewek-Cewek Bilang: Wuih jantan..kaya difilm-film action
Kalo Cowok Jelek nolongin cewe yg diganggu preman
Cewek-Cewek Bilang: Premannya pasti temen dia...

Kalo Cowok Ganteng bersedih hati
Cewek-Cewek Bilang: Let me be your shoulder to cry on
Kalo Cowok Jelek bersedih hati
Cewek-Cewek Bilang: Cengeng amat!! Lelaki bukan sih..?!