Program Kamar dengan Borland Delphi 7

Aug 10, 2009 22 Comments by Nu

program kamarProgram 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, download program sederhana delphi 7, contoh listing program delphi 7, contoh program delphi 7 hotel, kode programan untuk membalikkan kalimat pada delphi, download program penyewaan dengan delphi 7.

Delphi
Nu

Tentang Penulis

Mantan Tentor SD dan SMP, mantan Guru SMA, mantan Dosen PT, mantan IT Helper, mantan Programmer, mantan IT Analyst.... Sekarang... Berusaha jadi pengangguran, masih muda, masih belajar.... Jangan panggil saya pak!... Butuh diskusi cepat? colek di twitter @nusinau

22 Responses to “Program Kamar dengan Borland Delphi 7”

  1. shine says:

    mkasih mas.. aplikasi anda sangat membantu tugas saya…

  2. wahyu says:

    kreatif bangt yo..
    Sip2 Rek….

  3. harliyus says:

    mas ..gmana klau saya isi angka 3 di suatu edit teks..
    maka akan muncul 3 label yaitu label1,label2,label3..
    itu buatnya gmana

    • Nu says:

      Buat sebuah tedit dan tbutton (Edit1 dan Button1)

      1
      2
      3
      4
      5
      6
      7
      8
      9
      10
      
      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;

      Semoga membantu…

  4. sofi says:

    mantaaappp…
    makasii yaa… :))

  5. fitha says:

    Mas, klo untuk membalikkan kalimat misalnya saya makan menjadi nakam ayas, source code delphix gmn ych mas, mhon bantuanx.

    • Nu says:

      siapkan sebuah tedit dan tbutton (Edit1 dan Button1)

      1
      2
      3
      4
      5
      6
      7
      8
      9
      10
      
      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;

      Selamat menikmati… :)

  6. oupie says:

    makasih infonya ….. lagi cari cari nih pak…!!!

  7. Fajar says:

    Thanks ingonya mas kebetulan saya sedang belajar delphi :-)

  8. marsha says:

    mksh ide nya…mungkin bsa tag coba’…ciiiiiiiiiiipppppppppp

  9. remon says:

    Mas Kalau misalkan tidak boleh melakukan transaksi lebih dari 1 x, source code nya gmna?

    • Nu says:

      Kalau program contoh yg ini tidak sampai disitu. Transaksi lebih dari 1 x bisa dibikin pembatasnya via code.

  10. anas says:

    Mas,scriptnya buat menu and sub menu pa?

  11. rere says:

    mas,,bsa mnta bimbingannya ga ne…bwt aplikasi data pasien rwat inap gtu…bwt tgs akhr ne..mksh sbelumnya,
    oia pkenya access mas bwt dta basenya…

  12. Joe says:

    Akhirnya Ketemu Juga di sini,,,
    Thank’z mas bro, Programnya Sangat membantu sekali…!!!

  13. ihsan says:

    mas boleh minta listnya engg..

Leave a Reply