Pengenalan Borland Delphi 7

February 7, 2013 by ahmadkhlk4

PENGENALAN BORLAND DELPHI

A. Mengaktifkan Delphi

Start => All Programs => Pilih Borland Delphi 7 => Pilih Delphi 7

Akan tampil Jendela Utama Delphi seperti dibawah ini :

B. Komponen Pallete

C. Merancang Form

LATIHAN 1

1. Desain Form seperti di bawah ini

2. Ubah Propertiesnya pada Object Inspector

Object	Name	Caption
Label1	Label1	PROGRAM PERKENALAN
Label2	Label2	Nama :
Label3	Label3	Alamat :
Edit1	Enama	Text : (Hapus aja)
Edit2	Ealamat	Text : (Hapus aja)
Button1	Bkenal	&Kenal
Button2	Bclose	&Close

procedure TForm1.BcloseClick(Sender: TObject);

begin

end;

end.

Isikan Listing berikut ini

procedure TForm1.BkenalClick(Sender: TObject);

begin

enama.Text:=’Stephanie’;

ealamat.Text:=’Bekasi’;

end;

LATIHAN 2

Object	Name	Caption
Label1	Label1	Program Pengenalan Dasar Operator dalam Delphi
Label2	Label2	Nilai 1
Label3	Label3	Nilai 2
Label4	Label4	HasiL
Edit1	Enil1
Edit2	Enil2
Edit3	Enil3
Button1	bkali	x
Button2	bbagi	/
Button3	btambah	+
Button4	bkurang	–
Button5	bdiv	div
Button6	bmod	mod
Button7	bbersih	&Bersih
Button8	bkeluar	&Keluar

Penggunaan operator aritmatika pada Delphi

Listing Program :

1. procedure TForm2.bbersihClick(Sender: TObject);

begin

enil1.Text:=”;

enil2.Text:=”;

enil3.Text:=”;

end;

2. procedure TForm2.bkaliClick(Sender: TObject);

var

a,b,c:real;

begin

a:=strtofloat(enil1.Text);

b:=strtofloat(enil2.Text);

c:=a*b;

enil3.Text:=floattostr(c);

end;

3. procedure TForm2.bbagiClick(Sender: TObject);

var

a,b,c:real;

begin

a:=strtofloat(enil1.Text);

b:=strtofloat(enil2.Text);

c:=a/b;

enil3.Text:=floattostr(c);

end;

4. procedure TForm2.btambahClick(Sender: TObject);

var

a,b,c:integer;

begin

a:=strtoint(enil1.Text);

b:=strtoint(enil2.Text);

c:= a+b;

enil3.Text:=inttostr(c);

end;

5. procedure TForm2.bkurangClick(Sender: TObject);

begin

enil3.Text:=floattostr(strtofloat(enil1.Text)-strtofloat(enil2.Text));

end;

6. procedure TForm2.bdivClick(Sender: TObject);

var

a,b,c:integer;

begin

a:=strtoint(enil1.Text);

b:=strtoint(enil2.Text);

c:= a div b;

enil3.Text:=inttostr(c);

end;

7. procedure TForm2.bmodClick(Sender: TObject);

var

a,b,c:integer;

begin

a:=strtoint(enil1.Text);

b:=strtoint(enil2.Text);

c:= a mod b;

enil3.Text:=inttostr(c);

end;

end.

8. procedure TForm2.bkeluarClick(Sender: TObject);

begin

if(application.MessageBox(‘Yakin Anda akan keluar dari program?’,’Informasi’,

MB_YESNO)=IDYES)then

end;

end.

Kondisi Penyeleksian Case–Delphi 7

February 7, 2013 by ahmadkhlk4

KONDISI PENYELEKSIAN CASE

Case of adalah merupakan metode lain dari sebuah percabagan, berfungsi sama seperti fungsi if yaitu untuk melakukan seleksi atas beberapa pilihan dengan kondisi sebagai syarat yang harus terpenuhi.

Bentuk Umum fungsi Case Of

Case variable Of

<pilihan ke 1>; hasil1;

<pilihan ke 2>; hasil2;

<pilihan ke 3>;hasil n;

End;

Case variable Of

<pilihan ke 1>; hasil1;

<pilihan ke 2>; hasil2;

else

<pilihan ke 3>;hasil n;

End;

Design Form

procedure TForm4.ListBox1Click(Sender: TObject);

begin

case ListBox1.ItemIndex of

begin

Emakan.Text:=’NASI GORENG’;

Eminum.Text:=’ES TEH MANIS’;

Eharga.text:=’20000′;

Ckirim.Enabled:=true;

Ctempat.Enabled:=true;

end;

begin

Emakan.Text:=’MIE AYAM’;

Eminum.Text:=’ES JERUK’;

Eharga.text:=’25000′;

Ckirim.Enabled:=true;

Ctempat.Enabled:=true;

end;

begin

Emakan.Text:=’AYAM BAKAR’;

Eminum.Text:=’JUS MANGGA’;

Eharga.text:=’30000′;

Ckirim.Enabled:=true;

Ctempat.Enabled:=true;

end;

procedure TForm4.BhitungClick(Sender: TObject);

begin

Etobay.Text:=floattostr((strtofloat(Ejumbel.Text)*strtofloat(Eharga.Text)+strtofloat(Ekirim.Text)));

Eubay.Enabled:=true;

Eubay.SetFocus;

end;

LISTING

private

{ Private declarations }

public

procedure bersih;

procedure nonaktif;

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.bersih;

begin

Ekirim.Text:=’ ‘;

Emakan.Text:=’ ‘;

Eminum.Text:=’ ‘;

Eharga.Text:=’ ‘;

Ejumbel.Text:=’ ‘;

Etobay.Text:=’ ‘;

Eubay.Text:=’ ‘;

Eukem.Text:=’ ‘;

Bhitung.Enabled:=true;

Ckirim.Checked:=false;

Ctempat.Checked:=false;

end;

procedure TForm4.nonaktif;

begin

Ekirim.Enabled:=false;

Emakan.Enabled:=false;

Eminum.Enabled:=false;

Eharga.Enabled:=false;

Ejumbel.Enabled:=false;

Etobay.Enabled:=false;

Eubay.Enabled:=false;

Eukem.Enabled:=false;

Bhitung.Enabled:=false;

end;

procedure TForm4.FormActivate(Sender: TObject);

begin

nonaktif;

bersih;

ListBox1.Enabled:=false;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

Lbltgl.caption:=formatdatetime(‘dddd, d mmmm yyyy’,date);

Lbljam.Caption:=datetostr(time);

ListBox1.Items.Add(‘PAKET 1’);

ListBox1.Items.Add(‘PAKET 2’);

ListBox1.Items.Add(‘PAKET 3’);

end;

procedure TForm4.BaddClick(Sender: TObject);

begin

bersih;

ListBox1.Enabled:=true;

end;

procedure TForm4.EubayKeyPress(Sender: TObject; var Key: Char);

begin

if (key=#13) then

begin

if strtofloat(eubay.Text)<strtofloat(etobay.text) then

begin

eukem.Text:=floattostr(strtofloat(eubay.Text)-strtofloat(etobay.Text));

Application.MessageBox(‘Uang anda Kurang’,’pesan’,MB_OK+MB_ICONINFORMATION);

End

else

begin

eukem.Text:=floattostr(strtofloat(eubay.Text)-strtofloat(etobay.Text));

Application.MessageBox(‘terima kasih’,’pesan’,MB_OK+MB_ICONINFORMATION);

end;

procedure TForm4.CkirimClick(Sender: TObject);

begin

if Ckirim.Checked=true then

begin

Ctempat.Checked:=false;

Ekirim.Text:=’5000′;

end

else

begin

Ekirim.Text:=’0′;

end;

Ejumbel.Enabled:=true;

Ejumbel.SetFocus;

end;

procedure TForm4.CtempatClick(Sender: TObject);

begin

if Ctempat.Checked=true then

begin

Ckirim.Checked:=false;

Ekirim.Text:=’1000′;

end

else

begin

Ekirim.Text:=’0′;

end;

Ejumbel.Enabled:=true;

Ejumbel.SetFocus;

end;

end.

CARA MEMBUAT LOGIN DENGAN MENGGUNAKAN DATA MASTER

January 17, 2013 by ahmadkhlk4

Ada beberapa cara untuk membuat LOGIN.Ada yang menggunakan

DATA MASTER dan ada yang tidak menggunakan

Berikut ini saya akan menjelaskan kedua cara tersebut,Anda tinggal

memilih Cara mana yang menurut anda mudah.

Windows Live Blog

Textbox yang atas saya beri nama txtusername

Textbox yang bawahnya saya beri nama txtpassword

Sedangkan tombol yang Login diberi nama cmdlogin

Pada Form tsb pada Properties, Captionnya = Login, StartUpPosition =

CenterScreen, MinButton = False, MaxButton = False

Langkah selanjutnya buat koneksi dengan ODBC, langkahnya :

Masuk ke Control Panel > Administrative Tools > ODBC > pada tab User

DNS > Add > Cari Driver do Microsoft Access (*.mdb) Kemudian Finish

Pada Data Source Name diisi koneksi (nama lain bebas), Discription diisi

boleh tidak juga boleh. Kemudian klik tombol Database dan kemudian

cari file database yang sudah dibuat dengan access, jika sudah ketemu

klik Ok > Ok. Sehingga hasilnya sebagai berikut:

Nah sampai tahap ini database sudah siap untuk dibuat koneksinya

dengan VB, sekarang tinggal dilanjutkan ke VB lagi. Pada toolbox

diklik kanan, pilih Componen, kemudian cari dan centang Microsoft

Ado Data Control 6.0 (OLEDB) > Ok

Masukkan/drag Componen ADODC ke dalam Form_Login, kemudian pada Propertis

Visiblenya diset False. Kemudian klik kanan Adodc1 tersebut pilih Adodc Properties,

kemudian > pada Use Connection String pilih > Build > pada Tab Provider

pilih Microsoft OLEDB Provider for ODBC Driver > Next > Pada Use

data source name > cari Koneksi >kemudian untuk menyakinkan koneksinya

sukses atau tidak Coba Test Connection, jika sukses bisa dilanjutkan

> Kemudian masuk ke Tab Record Source, buka pada Command Text (SQL)

masukkan perintah SQL sbb

Select * from TBKaryawan

Kemudian OK

Langkah selanjutnya lagi masuk ke Form_Menu atur

propertiesnya StartUpPosition = CenterScreen

Lalu buat menunya menggunakan Menu Editor,

dan susunlah menjadi seperti berikut :

<!–[if gte mso 9]> Normal 0 false false false MicrosoftInternetExplorer4 <![endif]–><!–[if gte mso 9]> <![endif]–>

Sedangkan settingannya sebagai berikut :

Caption	name
Master	mnMaster
Karyawan	mnKaryawan
Pengkodean Barang	mnBarang
Keluar	mnKeluar
Transaksi	mnTransaksi
Pembelian	mnPembelian
Penjualan	mnPenjualan
Laporan	mnLaporan
Data Karyawan	mnLapKaryawan
Utility	mnUtility
Pengguna Software	mnPengguna
BackUp Data	mnBackup

Setelah menu terbentuk, tinggal pasang coding untuk keluar, caranya pada

Form_Menu, buka Master klik Keluar, kemudian tambahkan coding

End

sehingga tampak sbb :

Private Sub mnKeluar_Click()

End

End Sub

Kemudian buka kembali Form_Login dan pada Tombol Login

klik 2x dan isikan codingnya menjadi sbb :

Private Sub cmdlogin_Click()

Vusername = txtusername.Text

Vpassword = txtpassword.Text

Adodc1.RecordSource = “select * from TBKaryawan

where nik = ‘” + Vusername + “‘ and password = ‘” + Vpassword + “‘”

Adodc1.Refresh

If (Adodc1.Recordset.RecordCount >= 1) Then

tbagian = Adodc1.Recordset!bagian

If (tbagian <> “Admin”) Then

Form_Menu.mnPengguna.Enabled = False

End If

Form_Menu.Show

Form_Login.Hide

Else

MsgBox “Username atau password salah”

End If

End Sub

Nah sampai disini selesai sudah tinggal di run

Hasilnya seperti berikut, jika yang login bagiannya Casir ya tidak

bisa membua pengguna software, tapi kalau yang Login Admin ya

bisa membuka Pengguna Software :

Jika mengunakan DATA BASE anda harus menglinkkan DATA BASE

atau mengkonecsikan.mungkin agak terlalu ribet.tapi cara tersebut sangat aman digunakan

SELAMAT MENCOBA…

Berikut ini cara membuat LOGIN tampa menggunakan DATA BASE,

Sangat mudah digunakan tampa harus mengkoneksikan DATA BASE.

CARA MEMBUAT LOGIN TAMPA MENGGUNAKAN DATA BASE

Private sub txtuser_keyascii (interger as char)

Keyascii=ash(Ucase(char(keyascii)))

If keyascii=13 Then

Txtpass.setfocus

End sub

Private sub txtpas keyascii (interger as char)

Keyascii=ash(Ucase(char(keyascii)))

If keyascii=13 Then

cmblogin.setfocus

End sub

Private sub cmblogin_click()

Static as integer

If txtuse.text=”Kholik” And txtpas.text=”12100651” Then

Msgbox”Selamat Anda Berhasil Login”I N F O”

End if

Gosub noacc

If txtuse.text = ”” And txtpas.text = ”” Then

Msgbox”Anda tidak bias mengakses Aplikasi ini”,vbinformation,”I N F O”

Txtuser.text = “”

Txtpass.text = “”

Unload me

End if

End sub

Noacc:

I = I + 3

If I = 3 Then

Msgbox”Anda tidak dapa mengakses aplikasi ini”,vbcritical,”E R R O R”

Unload me

End if

End sub

Noacc:

Digunakan untuk perulangan sehingga jika dalam 3x anda salah input

maka akses akan tertutup secara otomatis…

Klo ada yang salah sms w ja coalna w kga ngeliat vbna dikantor kga ada..

W nulis seinget w ja..

Oke

Selamat mencoba..

Cara Update tabel database Mysql di Vb 6.0

January 17, 2013 by ahmadkhlk4

untuk meng-update tabel data atau merubah data tabel

menggunakan listing coding “update namatabel set ‘ “ & Text1 & “ ‘, “

dan berikut contoh listing codingnya :

Private sub cubah_click()

Dim ubah as string

if tkode = “ “ Then

Msgbox “Data masih kosong “,Vbinformation,”INFO”

else

if isi = false then

ubah = “update tabeldetail set ‘ “ & tkode & “ ‘,’ “ & tnama & “ ‘,’ “ & tpengambilan & “’ ‘,’ “ & tbagian & “ ‘,’ “ & tstok & “ ‘ where KD_Sparepart = “ tkode “

set rstabeldetail = adodb.Execute(ubah , , adcmdText)

semula

bersih

end if

end sub

dan penjelasan codingnya :

Cara menyimpan data ke tabel Database MYsql pada VB 6.0

April 4, 2012 by ahmadkhlk4

untuk menyimpan data ke tabel database hanya diperlukan koneksi yang dibuat di Module

Lalu di panggil di Form load “Koneksi”

Coding Simpan :

Private sub csimpan_click()

Dim simpan as String

IF tkode=”” Then

Msgbox”Data masih kosong “,Vbinformation,”Isi data”

else

simpan = “insert into tabel ()value(‘ ” & tkode & “ ‘,’ “ & tnama & “ ‘,’ “ & tpemesan & “ ‘,’ “ & tjumlah & “’,’ “ & ttanggal & “ ‘)”

set tabel = dbado.Execute(simpan , , adcmdtext)

bersih

semula

end if

end sub

Logika Coding :

IF tkode = “” Then

jika nilai text tersebut “ 0 “ maka muncul pesan “ Data masih kosong”

else “jika tidak maka data akan tersimpan”

tabel “nama tabel pada database yang kita buat di MYsql”

Semoga membantu..

Hello world!

January 20, 2012 by ahmadkhlk4

Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.

Here are some suggestions for your first post.

You can find new ideas for what to blog about by reading the Daily Post.
Add PressThis to your browser. It creates a new blog post for you about any interesting page you read on the web.
Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.

Program Visual Basic

Category Archives: Uncategorized

Pengenalan Borland Delphi 7

Kondisi Penyeleksian Case–Delphi 7

CARA MEMBUAT LOGIN DENGAN MENGGUNAKAN DATA MASTER

Cara Update tabel database Mysql di Vb 6.0

Cara menyimpan data ke tabel Database MYsql pada VB 6.0

Hello world!