Assalamualaikum wr.wb.

Maaf saya baru posting lagi, ini cuman sekedar share tampilan tentang Aplikasi Toko Amanda Collection yang saya buat dengan menggunakan Borland Delphi 7 dan Database Ms. Access 2003 (*.mdb).

1. Form Login

2. Form Menu Utama

3. Form Pemasok

4. Form Pakaian

5. Form Pembelian

6. Form Penjualan

7. Laporan - laporan menggunakan rave report.

Saya membuat aplikasi ini dari gabungan tutorial yang saya buat di postingan sebelumnya.
dan dibantu forum2 Delphi serta website tutorial Delphi.
#Terimakasih atas perhatiannya. ^_^

3

Abdiansyah

14.49

Assalamualaikum wr.wb..
Udah lama, saya enggak ngetik diblog lagi..alhamdulillah Ujian KP sudah selesai..
Terimakasih atas do'anya meski belum di do'ain.. :)
Sekarang saya akan membahas, bagaimana membuat file installer atau setup..dengan project delphi kita yang sebagai program aplikasinya..
saya membuat aplikasi yang menggunakan database ms.access 2003 (*.mdb), jadi kita harus mengikut sertakan file databasenya juga..
Langkah - langkahnya..
1. Pastikan project delphi anda sudah di compress *.rar . . untuk jaga2..jika ada kesalahan..
2. Jika menggunakan adoconnection, adotable atau adoquery dalam koneksi ke database ms.access 2003 (*.mdb), maka silahkan diatur lagi dalam koneksinya kunjungi link ini..
tujuannya agar, setiap "ConnectionString" tidak terpaut pada suatu direktori yang ada di laptop atau PC kita, atau yang biasa disebut dinamis..
3. Jika menggunakan file Rave Report untuk memunculkan laporan, jangan dihapus file tersebut..
di panduan ini, hanya aplikasi yg kita buat berbentuk (*.exe), database (*.mdb) dan laporan (*.rav)..
untuk form saya tidak ikut sertakan..karena bikin penuh folder.. :)
4. Buka atau jalankan aplikasi inno setup..belum punya ? download di google..banyak..
versi berapapun bisa..
5. Maka akan muncul tampilan seperti ini..
    a. Pilih "Create a new script file using the Script Wizard", klik "OK"..

    b. Maka muncul tampilan selanjutnya, pilih saja "Next".

   c. Muncul tampilan selanjutnya, disini kita berikan informasi tentang aplikasi yang kita buat, dari nama, versi, publisher dan website tentang aplikasi kita. kemudian pilih saja "Next".

     d. Secara default Application Folder mengarahkan ke Direktory C: di folder "Program Files", aplikasi name sesuaikan dari nama yang pertama. pilih saja "Next".

    e. Maka muncul tampilan selanjutnya, disini kita mencentang "Create an Uninstall icon in the Start Menu Folder" sesuai tanda anak panah, pilih saja "Next".

    f. Ditampilan ini yang sangat berperan penting, Pilih "Browse" dan arahkan ke aplikasi *.exe yang kita buat..setelah itu "Add Folder" untuk menambahkan isi didalam folder agar menjadi ikut serta installer..karena folder yang tadi berisikan (*.exe, *.mdb dan *.rav) kita ditaruh sefolder..
Maka muncul tampilan selanjutnya, pilih saja "Next".

    g. Untuk Application Documentation, kita isikan file berformat *.txt, disini saya membuatnya menggunakan notepad bawaan windows..
License File = berupa kata-kata yang membuat suatu persetujuan saat melakukan installasi..
Information FIle = berupa kata-kata yang memberikan infomasi tentang aplikasi yang kita buat..
Information After Installation = kata-kata yang digunakan sebagai penutup, setelah penginstallan berhasil..selanjutnya, pilih saja "Next".

    h. Memilih bahasa untuk penginsatallan, pilih saja "Next".

    i. Penjelasan Compiler Settings,
Custom compiler output folder = file aplikasi kita yang berhasil menjadi file setup akan muncul dimana, arahkan sesuai selera..
Compiler output base file name = nama file setup..
Custom Setup icon files = jika menggunakan icon, arahkan ke file *.ico yang digunakan..
Setup password = jika ingin menginstall harus menggunakan kata sandi..jika tidak perlu, kosongkan saja..
selanjutnya, pilih saja "Next".

    j. Maka muncul tampilan selanjutnya, pilih saja "Next".

    k. Maka muncul tampilan selanjutnya, pilih saja "Finish" untuk menyelesaikannya.

     l. Maka muncul tampilan selanjutnya yang berisikan source code dalam installation, pilih saja "Yes".

 
    m. Maka muncul tampilan selanjutnya, pilih saja "Yes" lagi.

    n. Maka otomatis muncul tampilan selanjutnya yang menjalankan perintah inno atau kode tersebut agar membuat file setup yang kita inginkan, Akan muncul "Finish bla...bla..Elapsed"...

6. INGAT !!!
    File Setup anda ada di compiler output yang tadi diarahkan..kalau saya didesktop biar langsung
    keliatan..


Terimakasih atas kunjungannya, jika masih belum memahami penjelasan tulisan ini, silahkan kunjungi video yang saya buat untuk membuat file installer..disini..
Wassalamualaikum wr.wb..

34

Abdiansyah

08.29

Assalamualaikum wr.wb..
disini akan ada penjelasan tentang..penggunaan login di Delphi 7.
ingat..gunakan Adotable untuk koneksi ke database Access (mdb)..
komponen :
edit1 : eusername
edit2 : epassword
button1 : blogin
button2 : bkeluar

..
langsung ke kode.. 
:)
Oke, terimakasih atas sarannya..
Pertama kita double klik button Login..yg terpenting "name" pada setiap button..
contoh :blogin -> untuk button login.
Maka ketika di double klik, otomatis muncul kode, seperti ini :
->procedure TFakses.bloginClick(Sender : TObject);
->begin
->end;
..
Selanjutnya kita ketikan kode dibawah ini diantara begin dan end;
...
procedure TFakses.bloginClick(Sender : TObject);
begin
 if (eusername.Text='') and (epassword.Text='') then
begin
Application.MessageBox('USERNAME DAN PASSWORD MASIH KOSONG','INFORMASI',mb_iconstop);
end

else
if eusername.Text='' then
begin
Application.MessageBox('USERNAME MASIH BELUM DI ISI','INFORMASI',mb_iconstop);
end

else
if epassword.Text='' then
begin
Application.MessageBox('PASSWORD MASIH BELUM DI ISI','INFORMASI',mb_iconstop);
end

else
if adologin.Locate('username',eusername.Text,[]) then
begin
if adologin.Locate('password',epassword.Text,[]) then
begin
Application.MessageBox('Anda berhasil login','INFORMASI',mb_iconinformation);
flogin.Hide;
fmenu_utama.show;
end

else
Application.MessageBox('PASSWORD SALAH BROOO !!!','PERINGATAN',mb_iconwarning);
end

else
Application.MessageBox('USERNAME SALAH BROOO !!!','PERINGATAN',mb_iconwarning);
end;
..
Selanjutnya untuk button "keluar", ada beberapa metode.
jika yg praktis dengan cara seperti ini :
procedure TFakses.bkeluarClick(Sender : TObject);
begin
Application.Terminate;
end;
..
Terimakasih..
keterangan :
1. saya beri jarak antar kode yg memberi maksud tertentu
2. setiap (if) di beri pesan (message) agar mudah dipahami alur sistem login ini..
3. silahkan dicoba, jika ada kesalahan,,silahkan beri kritik dan saran..

Wassalamualaikum wr.wb..

2

Abdiansyah

08.59

Assalamualaikum wr.wb..

saya akan menjelaskan sedikit suatu penanganan yang biasanya terjadi dalam dunia Newbie (seperti saya)

:)
baik, mari meminyak..
eh..nyimak..

Sebelumnya sudah dipastikan kita bisa koneksi Adotable ke Database, dan ditampilkan ke DbGrid..
...
Kewajiban suatu Primary Key di sebuah table, adalah tidak memiliki data yg sama (kembar/siyam/jiplak/copy)..
Langkah-langkahnya..
1. Klik Edit yg sebagai inputan data primary, contoh : enomer_masuk dalam bentuk (edit).
2. Masuk ke "object inspector" ke Tab "Events"..
3. Cari pilihan "Onexit"..klik 2 kali, dan terakhir..masukan skrip ini...
..
if adotampil.Locate('KODE_BARANG',enomer_masuk.Text,[]) then
begin
Application.MessageBox('NOMER MASUK SUDAH DIGUNAKAN','INFORMASI',mb_iconstop);
enomer_masuk.Clear;
enomer_masuk.SetFocus;
end
..
Keterangan, sebagai berikut..
>> untuk adotampil.locate..kita arahkan ke data Primary Key ditabel database..saya menggunakan NOMER MASUK dan diinput dari enomer_masuk.text..
>> Pesan aplikasi, menggunakan ikon STOP.
>> setelah pesan keluar, ekode_barang dibersihkan (clear), karena data sudah ada/ mengarah kedata yg sama.
>> ekode_barang menjadi fokus kembali (setfocus).
Terimakasih..

3

Abdiansyah

04.06

Assalamualaikum . . .
Disini saya akan membahas tentang tampilan awal yang biasanya pertama muncul, LOGIN . . .
Apa sih fungsinya Login ?
Login itu seperti suatu pembatas dan keamanan bagi suatu pengelolaan yang ada di Menu Utama . . .

. . .
Tanpa banyak keterangan, mari kita simak :
1). ini adalah tampilan sebelum aplikasi dijalankan atau di RUN . .

Ada beberapa komponen yang perlu diperhatikan..dan sebelumnya kita sudah membuat Database MS.ACCESS, disini saya menggunakan DATABASE ACCESS 2003.
dan kita buat struktur dan data seperti dibawah ini,

Keterangan
Nama Tabel : Kasir
Data :
ID_AKSES (Text) (30)
STATUS (Text) (15)
PASSWORD (Text) (30)
...
1. KOMPONEN yang dibutuhkan untuk pembuatan Form Login,
a. Connection :
    - Adoconnection1 : diberi nama (Adoserver1)
      Pengaturan propertiesnya..ada disini
    - Adoquery1 : diberi nama (Adoquery_login)
b. Action
    - Button1 : diberi nama (Bmasuk)
    - Button2 : diberi nama (Bbatal)
c. Input
    - Edit1 : diberi nama (Eid_akses)
    - Edit2 : diberi nama (Epassword)

untuk tampilan, buat semenarik mungkin, dan user friendly (mudah dimengerti pengguna).


2. Langkah Pembuatan
a. Karena disini kita arahkan adoquery_login ke adoserver1, pada connection, dan konsepnya kita buat perintah query untuk SELECT * ke Tabel Kasir di FORM ACTIVE.
seperti ini ;

procedure TFakses.FormActivate(Sender: TObject); 
begin
 Adoquery_login.Connection:=Adoserver1;
 Adoquery_login.Close;
 Adoquery_login.SQL.Clear;
 Adoquery_login.SQL.Text:='Select * from Kasir';
 Adoquery_login.Open;
 eid_akses.SetFocus;
end;
 
ket : listing kode diatas merupakan perintah mengarahkan kesemua field di tabel 'Kasir', dan eid_akses, menjadi fokus..

dan kita masukan langkah untuk pembuatan perintah Login ketika masuk dan gagal, dan apabila teks belum diisi (kosong).
pertama kita klik 2 X bmasuk..
dan buat listing kode seperti dibawah ini;

procedure TFakses.bmasukClick(Sender: TObject);
begin
  if (eid_akses.Text='') and (epassword.Text='') then
  begin
  Application.MessageBox('ID AKSES DAN PASSWORD MASIH KOSONG','INFORMASI',mb_iconinformation);
  end
  else
  if eid_akses.Text='' then
  begin
  Application.MessageBox('ID AKSES MASIH KOSONG','INFORMASI',mb_iconinformation);
  end
  else
  if epassword.Text='' then
  begin
  Application.MessageBox('PASSWORD ANDA MASIH KOSONG','INFORMASI',mb_iconinformation);
  end
  else
  begin
      if adoquery_login.Locate('ID_AKSES',eid_akses.Text,[]) then
  begin
      if adoquery_login.FieldByName('PASSWORD').AsString=epassword.Text then
  begin
      if Adoquery_login.FieldValues['STATUS']='ADMIN' then

  begin
      Application.MessageBox('ANDA BERHASIL LOG IN','SELAMAT DATANG ADMIN',mb_iconinformation);
      Fadmin.showmodal;   // keterangan : akan muncul form admin
      end
      else
      if Adoquery_login.FieldValues['STATUS']='KASIR' then
      begin
      Application.MessageBox('ANDA BERHASIL LOGIN','SELAMAT DATANG KASIR',mb_iconinformation);
      Fmenu.showmodal;  // keterangan : akan muncul form kasir
      end
      end
      else

      Application.MessageBox('PASSWORD MASIH SALAH','PERINGATAN',mb_iconwarning);
      end
      else
      Application.MessageBox('ID AKSES MASIH SALAH','PERINGATAN',mb_iconwarning);
  end

end;

setiap keterangan atau peringatan, memiliki fungsinya sendiri-sendiri, maka jika ingin dikembangkan lagi..y monggo..

kemudian kita buat perintah 'BATAL' untuk membatalkan tampilan Login..
pertama kita harus klik 2 X bbatal. . .

dan ini listing kodenya ;

procedure TFakses.bbatalClick(Sender: TObject);
begin
  if Application.MessageBox('APAKAH ANDA YAKIN AKAN KELUAR','KONFIRMASI',mb_yesno or mb_iconquestion)=idyes then
  begin
  Application.MessageBox('APLIKASI AKAN DIHENTIKAN','INFORMASI',mb_iconinformation);
  Application.Terminate;
  end
  else
  Application.MessageBox('APLIKASI MASIH BERJALAN','INFORMASI',mb_iconinformation);
  Application.Run;
end; 

..nah..kan disebelah pojok paling atas disebelah kanan ada tanda silang..
disini saya mengatur event pada form..
di 'OnClose'..
jadi saat icon diatas kanan diklik..maka akan mengeksekusi bbatal...
 
procedure TFakses.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  bbatal.Click;
end;

end.

dibawah ini adalah beberapa gambar..dari project Login yang saya buat..

dan diatas adalah..contoh tampilan yang akan tampil, sesuai aksesnya..sebagai ADMIN atau KASIR..
Terimakasih..
// jika ada kesalahan silahkan beri saran atau kritik

10

Abdiansyah

20.17

Assalamualaikum wr.wb...
Saya masih bingung bagaimana caranya mengatur koneksi ke .mdb dengan otomatis..ketika berpindah memori atau PC,
semoga ini dapat membantu...
ADO Connection, itu sebuah koneksi menuju database yang sudah tersedia di DELPHI 7.

Nah, sekarang bagaimana cara koneksinya ?

Langkah-langkah :

- kita tambahkan komponen adoconnection, dan pilih "PROPERTIES" pada kotak sebelah kiri paling bawah.

- klik "ConnectionString" dan akan muncul tampilan seperti dibawah ini..

- pilih Build..dan untuk koneksi ke database ms.access 2003 (*.md) kita gunakan "Microsoft Jet 4.0 OLE DB Provider"...

 Gambar "Build"

 Microsoft Jet 4.0 OLE DB Provider

 Nah..disini coba dihapus path atau folder yang mengarah ke Database..
dan kita langsung mengarah ke databasenya saja.

 

JREEEENNNNNNNNGGGGG !!!!
Tetep sukses kan ?
Lihat gambar dibawah ini.

Selanjutnya kita active kan..dengan mengubah properties pada adoconnection (active : true)...

icon ADO connection

NB : file database (*.mdb) sebaiknya satu folder dengan project DELPHI..

insyaallah berkah..

wkwkwk...

#ERU

2

Abdiansyah

07.46

Assalamualaikum wr.wb . . .
Sebenarnya, tulisan berjalan itu seperti apa sih ?
y sudah, silahkan di praktekan sendiri . . . jadi biar puas, sama hasilnya.
kan kalo di html sih, cuman pake <marquee>TULISAN BERJALAN</marquee> . . .
Nah kalo di Borland Delphi 7, kita membutuhkan beberapa komponen untuk membuat Tulisan berjalan . .
1. Komponen yang dibutuhkan
    - Label  : Sebagai text untuk di gerakan . . .
    - Panel  : untuk pantes-pantes aja sih..tapi tujuannya biar rapih kayanya. . .
    - Timer : Nah yg ini sangat dibutuhkan, karena itu sebagai waktu atau interval text yang dijadikan berjalan ( komponen ini ada di Tab Menu "System" ).

2. ini adalah desain saya, jika punya desain sendiri, y silahkan dikembangkan..
    

Seperti gambar diatas, desainnya..kenapa saya taruh dibawah ?
Y biar keliatan kaya IKLAN, kalo Project di RUN . . .
...
Pengaturan pada komponen,
a. Label : beri nama (Liklan)
b. Panel : Align (Bottom)
c. Timer1 : interval (5), dan beri nama (Tiklan)

// saya menggunakan interval menjadi 5 di Timer bertujuan untuk mempercepat, gerakan text saat berjalan..tapi anda bisa mencoba nilai berapapun ko'...

Tampilan Komponen, bisa dilihat dibawah ini ;

1). Tiklan (Timer)

2). Liklan (Label)

3). Panel1

Dan ini listing kodingnya :

procedure TFmenu.TiklanTimer(Sender: TObject);
var bataskiri, bataskanan :integer;
begin
    bataskiri:=Panel1.Left - Liklan.Width;
    bataskanan:=Panel1.Left + Panel1.Width;
    if Liklan.Left=bataskiri then
    begin
    Liklan.Left:=bataskanan;
 end
 else
 begin
    Liklan.Left:=Liklan.Left-1;
 end
 end;


..........................................................................................................................................
Terimakasih atas partisipasinya, jika postingan saya ada kesalahan, saya minta maaf, dan silahkan beri saran ataupun kritik . . .
#ERU

1

Abdiansyah

08.17

Assalamualaikum...
disini saya akan sharing tentang cara membuat sistem penghitungan sederhana, kalkulator menggunakan Borland Delphi 7 . .
seperti ini contoh gambarnya :

siapkan beberapa komponen dan diberi "name" seperti dibawah ini atau anda bisa mengembangkannya sendiri :
Edit1 = enilai1
Edit2 = enilai2
Edit3 = etambah
Edit4 = ekali
Edit5 = ebagi
Edit6 = ekurang
Button1 = Btambah
Button2 = Bkali
Button3 = Bbagi
Button4 = Bkurang
Button5 = Bclose
Button6 = Bulang
// untuk label disesuaikan dengan keinginan masing2..
..
>>>Penambahan dengan mengarahkan pada Btambah (Button) yang melakukan eksekusi<<<

procedure TForm1.BtambahClick(Sender: TObject);
var
nilai1, nilai2 ,tambah:real;
begin
nilai1:=strtofloat(enilai1.Text);
nilai2:=strtofloat(enilai2.Text);
tambah:=nilai1+nilai2;
etambah.text:=floattostr(tambah);
end;

// pada var, diperkenalkan bahwa nilai1, nilai2 dan tambah adalah bilangan real.
setelah identifikasi type bilangan, maka akan melakukan penghitungan sesuai rumus penambahan (+), kita arahkan pada nilai1 dan nilai2.
nilai1:=strtofloat(enilai1.Text);
bermaksud, untuk mengkonversikan string yang dinput menjadi float, untuk melakukan penjumlahan..
begitupun sama dengan nilai2:=strtofloat(enilai2.Text);
setelah penjabaran antara nilai1 dan nilai2, akan dilakukan penjumlahan seperti (tambah:=nilai1+nilai2;).
dan akan muncul hasil pada etambah.Text.
yang menggunakan cara "etambah.Text:=floattostr(tambah);".
dan untuk pembagian, perkalian dan pengurangan, sama seperti konsep diatas, hanya mengubah rumusnya.
.....
>>>Pengalian dengan mengarahkan pada Bkali (Button) yang melakukan eksekusi<<<

procedure TForm1.BkaliClick(Sender: TObject);
var
nilai1, nilai2 ,kali:real;
begin
nilai1:=strtofloat(enilai1.text);
nilai2:=strtofloat(enilai2.Text);
kali:=nilai1*nilai2;
ekali.text:=floattostr(kali); 
end;

....
>>>Pembagian dengan mengarahkan pada Bbagi (Button) yang melakukan eksekusi<<<

procedure TForm1.BbagiClick(Sender: TObject);
var
nilai1, nilai2 ,bagi:real;
begin
nilai1:=strtofloat(enilai1.text);
nilai2:=strtofloat(enilai2.Text);
bagi:=nilai1/nilai2;
ebagi.text:=floattostr(bagi);
end;

 >>>Pengurangan dengan mengarahkan pada Bkurang (Button) yang melakukan eksekusi<<<

procedure TForm1.BkurangClick(Sender: TObject);
var
nilai1, nilai2 ,kurang:real; begin
nilai1:=strtofloat(enilai1.text);
nilai2:=strtofloat(enilai2.Text);
kurang:=nilai1-nilai2;
ekurang.text:=floattostr(kurang);
end;

......................................................................................................................................................

Jika semua sudah selesai, kita buat procedure Close; dan procedure Ulang;

procedure TForm1.BcloseClick(Sender: TObject);
begin
close;
end;

// dalam penutupan aplikasi
......................................................................................................................................................

// untuk procedure ulang, seperti refresh atau membersihkan data yang diinput...
procedure TForm1.bulangClick(Sender: TObject);
begin
ednilai1.text:='';
ednilai2.Text:='';
edtambah.text:='';
edkali.Text:='';
edbagi.text:='';
edkurang.text:='';
end;

// sekian dari saya, jika ada kesalahan harap beri saran, ^_^

0

Abdiansyah

06.50

Assalamualaikum..
disini saya akan menjelaskan bagaimana cara membuat sistem gaji karyawan, yang sederhana dengan menggunakan Borland Delphi 7..
seperti ini tampilannya :

...saya hanya pemula yang ingin belajar menjadi newbie.. 3:)
..

enama : untuk name di kolom nama pegawai(edit).

cjabatan : untuk name jabatan (combobox).

egajipokok : untuk name gaji pokok (edit).

rhonorer : untuk name status honorer (radiobutton).

rtetap : untuk name status tetap (radiobutton).  

btotalgaji : untuk name pada button yang menghasilkan gaji bersih dari sistem penggajian pegawai (Button).

egajibersih: untuk name pada gaji bersih yang sudah dan menjadi (menampilkan) hasil dari eksekusi button gaji total (edit).

bisidatalagi: untuk name pada button yang membersihkan/ refresh pendataan gaji bersih dari sistem penggajian pegawai (Button).

Konsep :

1. untuk konsep combobox pada jabatan, kita klik cjabatan yg berasal dari combobox1 di ubah pada name menjadi cjabatan.

pilih kotak "object inspector" disebelah kiri paling bawah, dan cari "items", isi sesuai jabatan yang diperlukan..contoh, Direktur (enter) Manajer (enter) dan karyawan..dan OK..

dalam pengisian itu harus disesuaikan dengan kode di Delphi 7..

urutan itu berpengaruh pada penggunaan pilihan jabatan kodenya, dengan cara perumpaan if then and begin, dst..

seperti ini listing kodenya..

procedure TForm1.cjabatanClick(Sender: TObject);
begin
if cjabatan.Text = 'Direktur' then
egajipokok.Text := ' 5000000'
else
if cjabatan.Text = 'Manager' then
egajipokok.Text := '2000000'
else
egajipokok.Text := '1000000'
end;

..

keterangan, 

pada cjabatanClick = bermaksud, ketika pilihan jabatan sudah dipilih.

pada perumpamaan if cjabatan.Text ='Direktur' then = jika dipilih text tertentu, maka akan (then), mengarahkan egajipokok.text :='5000000' ...

ingat, untuk disini ada 3 jabatan yg dibuat..dan hanya 2 yang dibuat (if), karena yang terakhir otomatis pilihan terakhir juga.

..

2. Konsep status pegawai

    dalam pemilihan radio button status pegawai, disini ada 2 pilihan, yaitu honorer dan tetap.

// untuk rhonorer saat diklik.

maka ada beberapa cara penghitungan tentang tunjangan yang diambil dari persen gaji pokok yg didapat.

..

seperti ini listing kodenya :

procedure TForm1.rhonorerClick(Sender: TObject); 

var gajipokok, hasil, tunjangan :real;
begin
if rhonorer.Checked = true then
gajipokok:= strtofloat(egajipokok.Text);
tunjangan :=gajipokok*0.1;
etunjangan.Text := floattostr(tunjangan)
end;

// untuk rtetap saat diklik.

maka ada beberapa cara penghitungan tentang tunjangan yang diambil dari persen gaji pokok yg didapat.

..

seperti ini listing kodenya :

procedure TForm1.rtetapClick(Sender: TObject); 

var gajipokok, hasil, tunjangan :real;
begin
if rhonorer.Checked = true then
gajipokok:= strtofloat(egajipokok.Text);
tunjangan :=gajipokok*0.3;
etunjangan.Text := floattostr(tunjangan)
end;

3. untuk button eksekusi penghitungan gaji karyawan

setelah semua data sudah benar, maka diperlukan eksekusi button untuk menjalankan penghitungan,

procedure TForm1.btotalgajiClick(Sender: TObject);
var gajipokok, tunjangan, gajibersih:real;
begin
gajipokok := strtofloat(egajipokok.Text);
tunjangan := strtofloat(etunjangan.Text);
gajibersih := gajipokok+tunjangan;
egajibersih.Text := floattostr(gajibersih);

end; 

// pada egajibersih.Text:=floattostr(gajibersih);

menampilkan data informasi hasil penggajian karyawan, dengan menjumlahkan gaji pokok dan tunjangan.

4. Isi data lagi (button yang merefresh atau membersihkan pendataan yang sudah berhasil), dengan menyesuaikan format komponent yang digunakan, contoh : Edit (Text), Combobox (Text), dan Radiobutton (Checked), seperti listing dibawah ini :

procedure TForm1.bisidatalagiClick(Sender: TObject);
begin
cjabatan.Text := 'Jabatan';
enamapegawai.Text := ' ';
egajibersih.Text := '0';
etunjangan.Text := '0';
egajipokok.Text := '0';
rtetap.Checked := false;
rhonorer.Checked := false;
end;

...

Terimakasih untuk partisipasinya, jika ada kesalahan dalam listing kode diatas, harap beri saran...

semua konsep digabungkan akan menjadi sebuah karya..

untuk aplikasinya..silahkan download disini ..

1

Abdiansyah

07.09

Ketika menjalankan sebuah hasil compiler di Delphi yg biasa dikenal (.exe) , kita melupakan hal kecil, bagaimana aplikasi berjalan 2 kali..itu bukan error, tapi hanya tidak diberi batas..bisa saja kita menjalankan aplikasi sampai 3, 4, atau 5 kali..ketika di klik aplikasi .exe itu..

disini saya akan membahas..bagaimana cara membatasinya..

Pertama, kita buka "unit views" yang ada dimenu bar sebelah kiri atas..atau klik "F8"..

selanjutnya kita dapat melihat list source dari project kita..ingat, project..bukan Unit..

dan langkah terakhir..perhatikan source dibawah ini..

.....................................................................................................................................
    Program toko_baju;
    uses
          windows,
          forms,
    unit1 in 'unit1.pas' {Form1};
    {$R*.res}


    begin
          createmutex(nil,false,'APLIKASI TOKO BAJU');
          if Get lats error =Error_Already_Exists then
              begin
          Application.Messagebox ('APLIKASI SUDAH BERJALAN','PERINGATAN',mb_iconwarning);
          halt;  // penghentian aplikasi
          end;
     Application.Initialize;
     Application.CreateForm(TForm1,Form1);
     Application.Run;
     End;

ket : jika ada kesalahan, komentar anda dibutuhkan..
Terimakasih

0

Abdiansyah

17.46

Assalamualaikum semuanya dari dunia nyata ataupun dunia ghaib...Tetep tonton mister tukul jalan2..
...ha
,,,,Disini saya hanya menulis sekala kadarnya dan timbangannya....
 
...Oke....Sekarang saya menjelaskan secara singkat, KONEKSI adalah menghubungkan atau hubungan dll, kemudian DINAMIK...Bisa dipindah-pindah..enggak STATIK (DIEM) Cowo ngedeketin anaknya pak haji..

Bissmillah...
Langkah 1...Siapkan Adotable yang berada di TAB ADO pada Component...
Langkah 2...Enggak usah di otak atik dulu..
Langkah 3...Kita klik Form yang ada Adotablenya..Pilih Kotak Object Inspector yang ada di Kotak sebelah                    Kiri paling bawah.
Langkah 4..Pilih Events dan Klik kolom OnCreate..
                  Oncreate = saat form dibentuk.
Langkah 5..Lihat dibawah ini..
 
                  Procedure TForm1.OnCreate(Sender:TObject);
                  begin
                  Adotable1.Close;
                  Adotable1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0; Data Source='+ExtractFilePath(Application.Exename)+'\DATABASE.mdb';
                  Adotable1.TableName:='USER';
                  Adotable1.Open;

------Keterangan------
...Jika ada source yang salah, mari kita memperbaiki sama... Arigatou . . .Tengkyu . .Makasih

0

Abdiansyah

13.20

Assalamualaikum . .

Disini saya hanya memberi gambaran sebuah komponen yang bisa memberikan tampilan seperti di microsoft office..

Semoga nanti dikemudian hari, saya akan posting cara menggunakannya..

Terimakasih..

Dan untuk Component'nya dapat di unduh di sini . . .
Untuk pemasangan, jangan buka Aplikasi Delphi 7 dulu..karena component ini berbentuk .Exe ...
...
NB : be careful..

1

Abdiansyah

14.13