Cara Menampilkan show message harus di isi dengan delphi 2010

Cara Menampilkan show message harus di isi  dengan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Dalam pembuatan program kita kali ini sangat sederhana dan mudah untuk di fahami selain itu jga untuk mempercantik tampilan yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini adapun Cara Menampilkan show message harus di isi  dengan delphi 2010 antara lain yang pertama buka delphi 2010 kemudianbuat form baru  dan masukan komponen kedalam form komponenya adalah antara lain:

Nama komponen	Caption	Nama
Tlabel1	Nama Peminjam	Label1
Tlabel2	Instansi	Label2
Tlabel3	Tanggal Peminjaman	Label3
Tlabel4	Tanggal Kembali	Label4
Tlabel5	Jenis Barang	Label5
Tlabel6	Jumlah Barang	Label6
Tlabel7	Keadaan Barang	Label7
Tedit1	-	Edit1
Tcombobox1	-	Combobox1
Tcombobox2	-	Combobox2
Tcombobox3	-	Combobox3
Tcombobox4	-	Combobox4
TDatetimepicker1	menyesuaikan	Datetimepicker1
Tdatetimepicker2	menyesuaikan	datetimepicker2

Dan pengkodeanya adalah sebagai berikut masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, ComCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Edit1: TEdit;

    ComboBox1: TComboBox;

    DateTimePicker1: TDateTimePicker;

    DateTimePicker2: TDateTimePicker;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    ComboBox4: TComboBox;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

    Nama              :string;

    Instansi          :string;

    TanggalPeminjaman :string;

    TanggalKembali    :string;

    Jenisbarang       :string;

    Jumlahbarang      :string;

    keadaanbarang     :string;

begin

    if edit1.Text='' then

    begin

      showmessage('tolong nama di isi');

      exit;

    end;

    if combobox1.Text='' then

    begin

      showmessage('tolong instasi di isi');

      exit;

    end;

    if combobox2.Text='' then

    begin

      showmessage('tolong Jenis Barang di isi');

      exit;

    end;

    if combobox3.Text='' then

    begin

      showmessage('tolong Jumlah barang di isi');

      exit;

    end;

    if combobox4.Text='' then

    begin

      showmessage('tolong keadaan Barang di isi');

      exit;

    end;

    Nama             :=(edit1.Text);

    Instansi         :=(combobox1.Text);

    TanggalPeminjaman:=datetostr(DateTimePicker1.date);

    TanggalKembali   :=datetostr(DateTimePicker2.Date);

    Jenisbarang      :=(combobox2.Text);

    Jumlahbarang     :=(combobox3.Text);

    keadaanbarang    :=(combobox4.Text);

    showmessage(nama+''+instansi+''+tanggalpeminjaman+''+tanggalkembali+''+jenisbarang+''+jumlahbarang+''+keadaanbarang);

end;

end.

Selesai dech program kita kali ini

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717