NuSinau

Program Kamar dengan Borland Delphi 7

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. :)

Nu

, , , , , , , ,

22 responses to “Program Kamar dengan Borland Delphi 7”

    • Buat sebuah tedit dan tbutton (Edit1 dan Button1)

      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…

    • siapkan sebuah tedit dan tbutton (Edit1 dan Button1)

      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… :)

  11. 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…

Leave a Reply