Program Kamar dengan Borland Delphi 7

Aug 10, 2009 10 Comments by Nu

Program ini saya buat saat pertama kalinya saat belajar delphi 7, dengan database paradox. Program kamar ini bertujuan mendata data pengguna kamar kost, losmen, motel atau hotel (terlalu berkhayal, hehehehe). Program ini saya buat sekitar tahun 2003 pada bulan (lupa). Program ini saya biarkan apa adanya (tanpa ada perubahan), dengan maksud agar kita mawas diri (terutama saya) bahwa kita pernah bodoh tidak memahami suatu hal. Berikut adalah source code dari program yang saya buat :

Download Source Code Program Kamar

Semoga bermanfaat. :)

Kata Kunci

belajar delphi 7, contoh program delphi 7, listing program delphi 7, membuat program dengan delphi 7, contoh program delphi 7 sederhana, contoh listing program delphi 7, belajar program paradox.

Delphi

procedure TForm1.Button1Click(Sender: TObject); var lbl : tlabel; a : integer; begin for a:= 1 to strtoint(edit1.Text) do begin lbl := tlabel.Create(self); lbl.Parent := self; lbl.Left := 10; lbl.Top := a * 30; lbl.Name := 'label' + inttostr(a); lbl.Caption := 'Label' + inttostr(a); end; end;

procedure TForm1.Button1Click(Sender: TObject); var a : integer; balik : string; begin balik := ''; for a := length(edit1.Text) downto 1 do begin balik := balik + edit1.Text[a]; end; edit1.Text := balik; end;

shine says:

22 October 2009 at 23:52

mkasih mas.. aplikasi anda sangat membantu tugas saya…