Oleh: syaddad | Rabu, 24 September 2008

Membuat Aplikasi IntraWeb Dgn Dua Form

Project selanjutnya yang akan kita bangun adalah aplikasi web sederhana yang memiliki 2 (dua) form; form pertama adalah form untuk meletakkan komponen Edit dan Button dan form kedua merupakan form untuk menampung data yang berasal dari form pertama. Saat komponen Button pada form pertama kita klik, akan membuka form kedua dan menampilkan semua data yang kita masukkan pada form pertama.

Berikut langkah-langkah yang harus dilakukan :

  • Buatlah folder terlebih dahulu melalui Windows Explorer sebagai tempat untuk menyimpan file-file aplikasi IntraWeb Anda. Misalnya “C:\Intrawebku\Contoh22” (tanpa tanda petik).
  • Buat project IntraWeb baru kemudian beri nama project Contoh22.
  • Pilih menu File – Save untuk menyimpan file unit. Beri nama file unit tsb UMain. (Letakkan file unit ini satu folder dengan file project).
  • Letakkan komponen IWLabel, IWEdit, IWButton dan IWLink pada form designer IWForm1. Kemudian atur posisinya.
  • Klik komponen IWLabel1 dalam form designer. Ubah properties Caption-nya menjadi Masukkan sembarang kalimat : .
  • Klik komponen IWEdit1 dalam form designer, hilangkan kata IWEdit1 pada properties Text. Ubah juga nilai properties MaxLength dengan 15 untuk membatasi banyaknya karakter yang dimasukkan kedalam komponen IWEdit1.
  • Klik komponen IWButton1 dalam form designer, ubah properties Caption-nya menjadi OK.
  • Klik komponen IWLink1 dalam form designer, ubah properties Caption-nya menjadi Keluar. Pada properties Cursor, pilih crPointer.

Sampai disini kita baru membuat 1 buah form. Nah, sekarang  kita menambahkan 1 buah form lagi sehingga dalam project kita terdapat 2 buah form (Secara default memiliki nama IWForm1 dan IWForm2).

Berikut langkah-langkah untuk menambah form :

  • Pilih menu File – New – Other... atau dengan menekan kombinasi tombol Alt+F+N+O pada keyboard.
  • Dalam kotak dialog New Items, pilih tab IntraWeb.
  • Dalam tab IntraWeb, pilih icon New Form dan klik tombol OK.
  • Pilih Application Form dan klik tombol OK.
  • Pilih menu File – Save As kemudian simpan file unit Anda dengan nama UInfo. (Letakkan file unit ini satu folder dengan file project).
  • Letakkan komponen IWMemo dan IWLink pada form designer IWForm2, kemudian atur posisinya.
  • Klik komponen IWLink1 dalam form designer IWForm2, ubah properties Caption-nya menjadi Kembali ke menu. Pada properties Cursor, pilih crPointer.

Sampai pada langkah ini kita sudah menambahkan 1 buah formbaru kedalam project IntraWeb. Untuk menambah form lagi, lakukan saja seperti cara diatas.

Selanjutnya kita kembali ke form pertama (IWForm1)

  • Tekan kombinasi tombol Shift+F12, pilih IWForm1 dalam kotak dialog View Form dan klik tombol OK.
  • Double click komponen IWButton1 yang ada pada form designer IWForm1 dan ketikkan source code berikut ini :

procedure TIWForm1.IWButton1Click(Sender: TObject);

var s : string; begin

   s:= trim(IWEdit1.Text);

   if s = ” then WebApplication.ShowMessage(‘Kalimat belum dimasukkan’)

   else begin

        with TIWForm2.Create(WebApplication) do begin

                 IWMemo1.Lines.Add(s); Show; end; end; end;

  • Klik ganda komponen IWLink1 yang ada pada form designer IWForm1 dan ketikkan source code berikut ini :

procedure TIWForm1.IWLink1Click(Sender: TObject);

begin WebApplication.Terminate(‘Terimah kasih atas kunjungan Anda.’); end;

  • Cari kata Implementation dalam Code Editor. Tambahkan kata uses Uinfo; dibawah kata Implementation tersebut.

Kemudian kita kembali lagi ke form kedua (IWForm2)

  • Tekan kombinasi tombol Shift+F12, pilih IWForm2 dalam kotak dialog View Form dan klik tombol OK.
  • Klik ganda komponen IWLink1 yang ada pada form designer IWForm2 dan ketikkan source code berikut ini :

procedure TIWForm2.IWLink1Click(Sender: TObject);

begin TIWForm1.create(WebApplication).Show; end;

  • Cari kata Implementation dalam Code Editor. Tambahkan kata uses Umain; dibawah kata Implementation tersebut.
  • Pilih menu Run – Run untuk meng-compile dan menjalankan aplikasi IntraWeb yang baru saja kita buat. Jika tidak terdapat error dalam source code, Delphi akan merespon dengan menampilkan kotak dialog Web Server IntraWeb untuk aplikasi Standalone.
  • Pada web Server IntraWeb, pilih menu File – Execute untuk menampilkan hasil pekerjaan kita ke dalam web browser.
Iklan

Responses

  1. bisa tidak aplikasi intarweb di upload di web hosting…??

    • aplikasi intraweb bisa di upload di webhosting tp hosting luar negeri. Hosting dalm negeri blm ada yg mendukung


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: