Program Perhotelan Sederhana Dengan Delphi

Hay sob,, siapa tau ada yang butuh contoh program delphi. kali ini saya coba posting di blog saya sebuah listing program perhotelan sederhana. oke langsung aja ya..Nah kira-kira seperti inilah tampilannya nanti saat di jalankan....., tapi untuk gambar di samping adalah tampilan menu utama program ini pada saat belum di jalankan. saya yakin kalian pasti bisa buat lebih bagus lagi daripada program ini. Dan untuk listingnya sendiri kalian bisa Copas ya.. dibawah ini.

LISTING

unit DELPHI;

interface

uses

 

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, ExtCtrls, StdCtrls, jpeg;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    GroupBox1: TGroupBox;

    Edit1: TEdit;

    Edit2: TEdit;

    Label2: TLabel;

    Label3: TLabel;

    ComboBox1: TComboBox;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Timer1: TTimer;

    DateTimePicker1: TDateTimePicker;

    DateTimePicker2: TDateTimePicker;

    GroupBox2: TGroupBox;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    GroupBox3: TGroupBox;

    Label7: TLabel;

    ComboBox2: TComboBox;

    GroupBox4: TGroupBox;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    GroupBox5: TGroupBox;

    Label12: TLabel;

    Label13: TLabel;

    Label11: TLabel;

    GroupBox6: TGroupBox;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    StatusBar1: TStatusBar;

    Label14: TLabel;

    Button8: TButton;

    ComboBox3: TComboBox;

    Label15: TLabel;

    GroupBox7: TGroupBox;

    Image1: TImage;

    Label16: TLabel;

    Edit6: TEdit;

    Label17: TLabel;

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Math, StrUtils;

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

begin

if MessageBox(Handle,'anda yakin akan keluar?','konfirmasi',

  MB_ICONINFORMATION + MB_YESNO)=mryes then

  begin

   close;

  end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

ComboBox1.Text:='';

ComboBox2.Text:='';

Edit5.Text:='0';

Edit3.Text:='0';

Edit4.Text:='0';

Edit6.Text:='0';

Label13.Caption:='0';

Edit1.SetFocus;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

  begin

  if ComboBox2.Text='V-VIP' then

  Edit3.Text:='1500000'

  else

  if ComboBox2.Text='VIP' then

  Edit3.Text:='1000000'

  else

  Edit3.Text:='500000';

  end;

procedure TForm1.Button1Click(Sender: TObject);

var

  tgl1,tgl2:TDateTime;

  bypermlm,lama,total,diskon,TOTALCEK:integer;

begin

  tgl1 := DateTimePicker1.Date; //MASUK

  tgl2 := DateTimePicker2.Date; //KELUAR

  Edit5.Text := FormatFloat('#,0',(now - tgl1));

  bypermlm:=StrToInt(Edit3.Text);

  lama:=StrToInt(Edit5.Text);

  total:=bypermlm*lama;

  Edit6.Text:=IntToStr(total);

  If lama>=5 THEN

  BEGIN

  diskon:=total*20 div 100;

  Edit4.Text:=IntToStr(diskon);

  end;

  BEGIN

  TOTALCEK:=total-diskon;

  Label13.Caption:=IntToStr(TOTALCEK);

  END;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form1.Color:=clRed;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

form1.Color:=clGray;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

form1.Color:=clWhite;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

form1.Color:=clFuchsia;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

form1.Color:=clDkGray;

end;

END.

Dan untuk tampilannya nanti ketika program ini sudah dijalankan seperti gambar dibawah ini

oke sob selamat mencoba ... eits minta maaf saya belum post untuk file *.exe-nya