Delphi 7 (Tabel User)

Coding/Listing :



  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
    procedure tampil;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
eid.Enabled := true;
enama.Enabled := true;
epass.Enabled := true;
ealamat.Enabled := true;
etelepon.Enabled := true;
rbadmin.Checked := true;
rbkasir.Checked := true;
end;

procedure TForm1.nonaktif;
begin
eid.Enabled := false;
enama.Enabled := false;
epass.Enabled := false;
ealamat.Enabled := false;
etelepon.Enabled := false;
rbadmin.Checked := false;
rbkasir.Checked := false;
end;

procedure TForm1.bersih;
begin
rbadmin.Checked := false;
rbkasir.Checked := false;
eid.Text := '';
enama.Text := '';
epass.Text := '';
ealamat.Text := '';
etelepon.Text := '';
end;

procedure TForm1.tampil;
begin
if Tabel1['Level'] = rbadmin.Caption then
rbadmin.Checked := true
else
rbkasir.Checked := true;
eid.Text := Tabel1['Id_user'];
enama.Text := Tabel1['Nm_user'];
epass.Text := Tabel1['Password'];
ealamat.Text := Tabel1['Alamat'];
etelepon.Text := Tabel1['Telp'];
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
bersih;
nonaktif;
badd.Enabled := true;
bsave.Enabled := false;
bedit.Enabled := false;
bcancel.Enabled := false;
bdelete.Enabled := false;
bexit.Enabled := true;
badd.SetFocus;
end;

procedure TForm1.beditClick(Sender: TObject);
begin
aktif;
tampil;
eid.Enabled := false;
enama.SetFocus;
bsave.Caption := '&Update';
badd.Enabled := true;
bedit.Enabled := false;
bsave.Enabled := true;
bcancel.Enabled := true;
bexit.Enabled := true;
bdelete.Enabled := true;
end;

procedure TForm1.bsaveClick(Sender: TObject);
begin
if bsave.Caption = '&Save' then
begin
Tabel1.Append;
Tabel1['Id_user'] := eid.Text;
Tabel1['Nm_user'] := enama.Text;
Tabel1['Password'] := epass.Text;
Tabel1['Alamat'] := ealamat.Text;
Tabel1['Telp'] := etelepon.Text;
if rbadmin.Checked = true then
Tabel1['Level'] := rbadmin.Caption
else
Tabel1['Level'] := rbkasir.Caption;
showmessage('Data Telah Tersimpan');
Tabel1.Post;
Tabel1.Next;
nonaktif;
end
else
begin
Tabel1.Edit;
Tabel1['Id_user'] := eid.Text;
Tabel1['Nm_user'] := enama.Text;
Tabel1['Password'] := epass.Text;
Tabel1['Alamat'] := ealamat.Text;
Tabel1['Telp'] := etelepon.Text;
if rbadmin.Checked = true then
Tabel1['Level'] := rbadmin.Caption
else
Tabel1['Level'] := rbkasir.Caption;
Tabel1.Post;
nonaktif;
showmessage('Data Telah Diperbaharui');
bsave.Enabled := true;
bsave.Caption := '&Save';
bsave.Enabled := false;
badd.Enabled := true;
bdelete.Enabled := true;
bcancel.Enabled := true;
bexit.Enabled := true;
bedit.Enabled := true;
end;
end;

procedure TForm1.bcancelClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Membatalkan Penginputan..?!','Quesiton',4+32)=6)then
nonaktif;
bersih;
Tabel1.First;
badd.Enabled := true;
bsave.Enabled := false;
bedit.Enabled := false;
bdelete.Enabled := false;
bcancel.Enabled := false;
bexit.Enabled := true;
bsave.Caption := '&Save';
end;

procedure TForm1.bdeleteClick(Sender: TObject);
var del:string;
begin
Tabel1.IndexName :='';
del:= (Inputbox('Pencarian','Masukan ID Yang Mau Dihapus',''));
if Tabel1.FindKey([del]) then
begin
bersih;
nonaktif;
Tabel1.Delete;
end
else
showmessage('Data Tidak DiTemukan');
badd.Enabled := true;
bsave.Enabled := false;
bedit.Enabled := true;
bdelete.Enabled := true;
bcancel.Enabled := true;
bdelete.Enabled := true;
bsave.Caption := '&Save';
end;

procedure TForm1.baddClick(Sender: TObject);
begin
aktif;
bersih;
eid.SetFocus;
badd.Enabled := false;
bdelete.Enabled := true;
bsave.Enabled := true;
bedit.Enabled := true;
bcancel.Enabled := true;
bexit.Enabled := true;
bsave.Caption := '&Save';
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar Dari Program Ini..?!','Quesiton',4+32)=6)then
Tabel1.Close;
close;
end;

end.

Read More

Visual Basic ( Transaksi Voucer Pulsa )

Komponen Yang Dipakai :

1. Microsoft ADO Data Control 6.0 (OLEDB)
2. Microsoft DataGrid Control 6.0 (OLEDB)


LIsting Module :



Public conn As New ADODB.Connection
Public rstransaksi As New ADODB.Recordset


Public Sub koneksi()
Set rstransaksi = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Voucer.mdb"
End Sub


Listing/Coding Form :



Sub aktif()
txtnotrans.Enabled = True
txttanggal.Enabled = True
cmbkdkasir.Enabled = True
txtnmkasir.Enabled = True
cmbkdvoucer.Enabled = True
txtnmvoucer.Enabled = True
txtharga.Enabled = True
cmbkdcustomer.Enabled = True
txtnmcustomer.Enabled = True
txtjumbel.Enabled = True
txttotal.Enabled = True
txtbayar.Enabled = True
txtkembali.Enabled = True
End Sub


Sub nonaktif()
txtnotrans.Enabled = False
txttanggal.Enabled = False
cmbkdkasir.Enabled = False
txtnmkasir.Enabled = False
cmbkdvoucer.Enabled = False
txtnmvoucer.Enabled = False
txtharga.Enabled = False
cmbkdcustomer.Enabled = False
txtnmcustomer.Enabled = False
txtjumbel.Enabled = False
txttotal.Enabled = False
txtbayar.Enabled = False
txtkembali.Enabled = False
End Sub


Sub bersih()
txtnotrans.Text = ""
cmbkdkasir.Text = "--Silakan Pilih--"
txtnmkasir.Text = ""
cmbkdvoucer.Text = "--Silakan Pilih--"
txtnmvoucer.Text = ""
txtharga.Text = ""
cmbkdcustomer.Text = "--Silakan Pilih--"
txtnmcustomer.Text = ""
txtjumbel.Text = ""
txttotal.Text = ""
txtbayar.Text = ""
txtkembali.Text = ""
End Sub


Sub auto()
Dim no As String
Dim noint As Long
no = Format(Date, "yyyy")
With rstransaksi
If .RecordCount = 0 Then
no = no & "001"
Else
.MoveLast
If Format(Date, "yyyy") <> Val(Mid(!notrans, 1, 4)) Then
no = Format(Date, "yyyy") & "001"
Else
noint = Trim(Val(Right(!notrans, 2) + 1))
no = Format(Date, "yyyy") & Right("00" & noint, 3)
End If
End If
End With
txtnotrans.Text = no
End Sub


Private Sub Form_Load()
Call koneksi
conn.CursorLocation = adUseClient
rstransaksi.Open "Select * from Transaksi", conn
Set gridtransaksi.DataSource = rstransaksi.DataSource
End Sub




Private Sub Form_Activate()
nonaktif
bersih
cmdnew.Enabled = True
cmdsave.Enabled = False
cmdcancel.Enabled = False
cmdexit.Enabled = True
cmdnew.SetFocus
rsvoucer.Open "select * from Voucer", conn
rscustomer.Open "select * from Customer", conn
rskasir.Open "select * from Kasir", conn
While Not rsvoucer.EOF
cmbkdvoucer.AddItem rsvoucer!kdvoucer
rsvoucer.MoveNext
Wend
While Not rscustomer.EOF
cmbkdcustomer.AddItem rscustomer!kdcustomer
rscustomer.MoveNext
Wend
While Not rskasir.EOF
cmbkdkasir.AddItem rskasir!kdkasir
rskasir.MoveNext
Wend
End Sub


Private Sub Timer1_Timer()
txttanggal.Text = Format(Date, "dd-mm-yyyy")
txttanggal.Enabled = False
End Sub


Private Sub cmdnew_Click()
aktif
bersih
auto
txtnotrans.Enabled = False
cmbkdkasir.SetFocus
cmdnew.Enabled = False
cmdsave.Enabled = True
cmdcancel.Enabled = True
cmdexit.Enabled = True
cmdsave.Caption = "&Save"
End Sub


Private Sub cmbkdkasir_Click()
Dim cari As String
cari = "select * from Kasir where kdkasir = '" & cmbkdkasir.Text & "'"
Set rskasir = conn.Execute(cari, , adCmdText)
With rskasir
If Not .EOF Then
txtnmkasir.Text = rskasir!nmkasir
txtnmkasir.Enabled = False
End If
cmbkdvoucer.SetFocus
End With
End Sub


Private Sub cmbkdvoucer_Click()
Dim cari As String
cari = "select * from Voucer where kdvoucer = '" & cmbkdvoucer.Text & "'"
Set rsvoucer = conn.Execute(cari, , adCmdText)
With rsvoucer
If Not .EOF Then
txtnmvoucer.Text = rsvoucer!nama_voucer
txtharga.Text = rsvoucer!harga
End If
cmbkdcustomer.SetFocus
End With
End Sub


Private Sub cmbkdcustomer_Click()
Dim cari As String
cari = "select * from Customer where kdcustomer = '" & cmbkdcustomer.Text & "'"
Set rscustomer = conn.Execute(cari, , adCmdText)
With rscustomer
If Not .EOF Then
txtnmcustomer.Text = rscustomer!nmcustomer
End If
End With
txtjumbel.SetFocus
End Sub


Private Sub cmdsave_Click()
Dim save As String
save = "insert into Transaksi values('" & txtnotrans.Text & "','" & txttanggal.Text & "','" & cmbkdkasir.Text & "','" & cmbkdcustomer.Text & "','" & txtnmcustomer.Text & "','" & cmbkdvoucer.Text & "','" & txtnmvoucer.Text & "','" & txtharga.Text & "','" & txtjumbel.Text & "','" & txttotal.Text & "')"
conn.Execute save
MsgBox "Data Telah Tersimpan!"
Form_Load
nonaktif
cmdnew.Enabled = True
cmdsave.Enabled = False
cmdcancel.Enabled = True
cmdexit.Enabled = True
End Sub


Private Sub cmdcancel_Click()
p = MsgBox("Yakin Ingin Membatalkan Penginputan..?!", vbQuestion + vbYesNo, "Question")
If p = vbYes Then
nonaktif
bersih
End If
cmdnew.Enabled = True
cmdsave.Enabled = False
cmdcancel.Enabled = False
cmdexit.Enabled = True
End Sub


Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal.Text = Val(txtharga.Text) * Val(txtjumbel.Text)
txtbayar.SetFocus
End If
End Sub


Private Sub txtbayar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtkembali.Text = Val(txtbayar.Text) - Val(txttotal.Text)
MsgBox "Terima Kasih!"
nonaktif
cmdsave.SetFocus
End If
End Sub


Private Sub cmdexit_Click()
p = MsgBox("Yakin Ingin Kembali Menuju Menu Utama..?!", vbQuestion + vbYesNo, "Quesiton")
If p = vbYes Then
End
End If
End Sub

Read More

Delphi 7 (Form Penyimpanan Barang)

Coding/Listing :




  public
  procedure tampil;
  procedure bersih;
  procedure nonaktif;
  procedure aktif;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
ekdbarang.Enabled := true;
enmbarang.Enabled := true;
ebeli.Enabled := true;
ejual.Enabled := true;
estok.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
ekdbarang.Enabled := false;
enmbarang.Enabled := false;
ebeli.Enabled := false;
ejual.Enabled := false;
estok.Enabled := false;
end;

procedure TForm1.bersih;
begin
ekdbarang.Text := '';
enmbarang.Text := '';
ebeli.Text := '0';
ejual.Text := '0';
estok.Text := '0';
end;

procedure TForm1.tampil;
begin
ekdbarang.Text := Tabel1['Kdbarang']; enmbarang.Text := Tabel1['Nmbarang']; ebeli.Text := floattostr(Tabel1['Hrgbeli']); ejual.Text := floattostr(Tabel1['Hrgjual']); estok.Text := floattostr(Tabel1['Stok']);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
tampil;
nonaktif;
bsimpan.Enabled := false;
end;

procedure TForm1.btambahClick(Sender: TObject);
begin
aktif;
bersih;
bsimpan.Enabled := true;
ekdbarang.SetFocus;
end;

procedure TForm1.ekdbarangKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
if Tabel1.FindKey([ekdbarang.Text]) then
begin
showmessage('Data Sudah Ada');
tampil;
nonaktif;
exit;
end
else
begin
if(application.MessageBox('Data Tidak Ada, Anda Ingin Menambah Data..?!','Pesan', 4+32)=6)then
begin
aktif;
ekdbarang.Enabled := false;
enmbarang.SetFocus;
end
end
end;

procedure TForm1.bsimpanClick(Sender: TObject);
begin
Tabel1.Append;
Tabel1['Kdbarang']:= ekdbarang.Text;
Tabel1['Nmbarang']:= enmbarang.Text;
Tabel1['Hrgbeli']:= strtofloat(ebeli.Text);
Tabel1['Hrgjual']:= strtofloat(ejual.Text);
Tabel1['Stok']:= strtofloat(estok.Text);
nonaktif;
end;

procedure TForm1.bbatalClick(Sender: TObject);
begin
bersih;
nonaktif;
Tabel1.First;
tampil;
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
tampil;
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar..?!','Pesan',4+32)=6)then
Tabel1.Close;
Close;
end;


procedure TForm1.bawalClick(Sender: TObject);
begin
Tabel1.First;
showmessage('Sudah Diawal Record!');
tampil;
end;

procedure TForm1.bakhirClick(Sender: TObject);
begin
Tabel1.Last;
showmessage('Sudah Diakhir Record!');
tampil;
end;

procedure TForm1.bsebelumClick(Sender: TObject);
begin
Tabel1.Prior;
tampil;
if Tabel1.Bof then
showmessage('Sudah Diawal Record!');
end;

procedure TForm1.bsesudahClick(Sender: TObject);
begin
Tabel1.Next;
tampil;
if Tabel1.Eof then
showmessage('Sudah Diakhir Record!');
end;


end.

Read More

Delphi 7 ( Pra UTS )

Coding/Listing :



  public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
etanggal.Enabled := true;
ejam.Enabled := true;
eno.Enabled := true;
esks.Enabled := true;
ejumlah.Enabled := true;
etobi.Enabled := true;
enama.Enabled := true;
cbgelombang.Enabled := true;
eharga.Enabled := true;
rbpagi.Enabled := true;
rbmalam.Enabled := true;
etambahan.Enabled := true;
etobay.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
etanggal.Enabled := false;
ejam.Enabled := false;
eno.Enabled := false;
esks.Enabled := false;
ejumlah.Enabled := false;
etobi.Enabled := false;
enama.Enabled := false;
cbgelombang.Enabled := false;
eharga.Enabled := false;
rbpagi.Enabled := false;
rbmalam.Enabled := false;
etambahan.Enabled := false;
etobay.Enabled := false;
end;

procedure TForm1.bersih;
begin
eno.Text := '';
esks.Text := '0';
ejumlah.Text := '0';
etobi.Text := '0';
enama.Text := '';
cbgelombang.Text := '--Silakan Pilih--';
eharga.Text := '0';
rbpagi.Checked := false;
rbmalam.Checked := false;
etambahan.Text := '0';
etobay.Text := '0';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
cbgelombang.Items.Add('Gelombang 1');
cbgelombang.Items.Add('Gelombang 2');
cbgelombang.Items.Add('Gelombang 3');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
etanggal.Text := datetostr(now);
ejam.Text := timetostr(now);
end;

procedure TForm1.bbersihClick(Sender: TObject);
begin
aktif;
bersih;
eno.SetFocus;
etanggal.Enabled := false;
ejam.Enabled := false;
end;

procedure TForm1.bkeluarClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Ingin Keluar.?!','Pesan', 4+32)=6) then
close;
end;

procedure TForm1.ejumlahKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
etobi.Text := floattostr(strtofloat(ejumlah.Text) * strtofloat(esks.Text));
end;


procedure TForm1.cbgelombangClick(Sender: TObject);
begin
if cbgelombang.Text = 'Gelombang 1' then
begin
eharga.Text := '1000000';
end
else if cbgelombang.Text = 'Gelombang 2' then
begin
eharga.Text := '2000000';
end
else
begin
eharga.Text := '2500000';
end;
end;

procedure TForm1.rbpagiClick(Sender: TObject);
begin
etambahan.Text := '0';
end;

procedure TForm1.rbmalamClick(Sender: TObject);
begin
etambahan.Text :='200000';
end;

procedure TForm1.bhitungClick(Sender: TObject);
begin
etobay.Text := floattostr(strtofloat(etobi.Text) + strtofloat(eharga.Text) + strtofloat(etambahan.Text));
nonaktif;
end;

end.

Read More

Visual Basic ( Pra UTS )

Komponen Yang Dipakai :

1. Microsoft ADO Data Control 6.0 (OLEDB)
2. Microsoft DataGrid Control 6.0 (OLEDB)

Listing Modul :

Public conn As New ADODB.Connection
Public rsbuku As New ADODB.Recordset

Public Sub koneksi()
Set conn = New ADODB.Connection
Set rsbuku = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Adam\Desktop\Visual Basic\Latihan 8\Toko_Buku.mdb;Persist Security Info=False"
End Sub

Coding/ Listing :

Dim isi As Boolean

Sub auto()

Dim no As String

Dim noint As Integer

With rsbuku

If .RecordCount = 0 Then

no = "2012" + "001"

Else

.MoveLast

noint = Val(Right(!kdbuku, 3)) + 1

no = "2012" + Right("000" & noint, 3)

End If

txtkode.Text = no

End With

End Sub

Sub aktif()

txtkode.Enabled = True

txtjudul.Enabled = True

txtpengarang.Enabled = True

txtpenerbit.Enabled = True

txtharga.Enabled = True

End Sub

Sub nonaktif()

txtkode.Enabled = False

txtjudul.Enabled = False

txtpengarang.Enabled = False

txtpenerbit.Enabled = False

txtharga.Enabled = False

End Sub

Sub bersih()

txtkode.Text = ""

txtjudul.Text = ""

txtpengarang.Text = ""

txtpenerbit.Text = ""

txtharga.Text = ""

End Sub

Sub tampil()

With rsbuku

If Not .EOF Then

txtkode.Text = !kdbuku

txtjudul.Text = !judul_buku

txtpengarang.Text = !pengarang

txtpenerbit.Text = !penerbit

txtharga.Text = !harga

End If

End With

End Sub

Private Sub Form_Load()

Call koneksi

conn.CursorLocation = adUseClient

rsbuku.Open "Select * from Buku", conn

Set gridbuku.DataSource = rsbuku.DataSource

End Sub

Private Sub Form_Activate()

nonaktif

bersih

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = False

cmddelete.Enabled = False

cmdcancel.Enabled = False

cmdexit.Enabled = True

cmdinput.SetFocus

End Sub

Private Sub cmdinput_Click()

aktif

bersih

auto

txtkode.Enabled = False

txtjudul.SetFocus

cmdinput.Enabled = False

cmdsave.Enabled = True

cmdedit.Enabled = True

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

End Sub

Private Sub cmdsave_Click()

If cmdsave.Caption = "&Save" Then

Dim sqlsave As String

sqlsave = "insert into Buku values ('" & txtkode.Text & "','" & txtjudul.Text & "','" & txtpengarang.Text & "','" & txtpenerbit.Text & "','" & txtharga.Text & "')"

conn.Execute sqlsave

MsgBox "Data Telah Tersimpan"

Form_Load

Else

Dim sqledit As String

sqledit = "update Buku set judul_buku = '" & txtjudul.Text & "', pengarang = '" & txtpengarang.Text & "',penerbit = '" & txtpenerbit.Text & "', harga ='" & txtharga.Text & "' where kdbuku = '" & txtkode.Text & "'"

conn.Execute sqledit

MsgBox "Data Telah Diperbaharui"

Form_Load

End If

nonaktif

cmdsave.Enabled = True

cmdsave.Caption = "&save"

cmdsave.Enabled = False

cmdinput.Enabled = True

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

End Sub

Private Sub cmdedit_Click()

If Not isi = True Then

MsgBox "Silakan Melakukan Pengeditan..!!"

tampil

aktif

txtkode.Enabled = False

txtjudul.SetFocus

cmdsave.Caption = "&Update"

cmdsave.Enabled = True

cmdinput.Enabled = True

cmdedit.Enabled = False

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

Else

MsgBox "Maaf Data Tidak Ada Anda Harus Mengisi Dahulu..!!"

nonaktif

cmdinput.SetFocus

cmdinput.Enabled = True

cmdsave.Enabled = True

cmdinput.Enabled = True

cmdedit.Enabled = False

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

End If

End Sub

Private Sub cmddelete_Click()

If Not isi = True Then

Call koneksi

rsbuku.Open "delete from Buku where kdbuku = '" & txtkode.Text & "'", conn

MsgBox "Data Telah Terhapus"

Form_Load

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmddelete.Enabled = True

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

Else

MsgBox "Maaf Data Tidak Ada Anda Harus Mengisi Dahulu..!!"

nonaktif

cmdinput.SetFocus

cmdinput.Enabled = True

cmdsave.Enabled = True

cmdinput.Enabled = True

cmdedit.Enabled = False

cmddelete.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

End If

End Sub

Private Sub cmdcancel_Click()

p = MsgBox("Yakin Ingin Membatalkan Penginputan..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

nonaktif

bersih

End If

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = False

cmddelete.Enabled = False

cmdcancel.Enabled = False

cmdexit.Enabled = True

cmdsave.Caption = "&Save"

End Sub

Private Sub cmdtop_Click()

With rsbuku

rsbuku.MoveFirst

MsgBox "Sudah Diawal Record!", vbCritical, "Pesan"

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmddelete.Enabled = True

cmdsave.Caption = "&Save"

End With

End Sub

Private Sub cmdbott_Click()

With rsbuku

rsbuku.MoveLast

MsgBox "Sudah Diakhir Record!", vbCritical, "Pesan"

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmddelete.Enabled = True

cmdsave.Caption = "&Save"

End With

End Sub

Private Sub cmdback_Click()

With rsbuku

rsbuku.MovePrevious

If rsbuku.BOF Then

MsgBox "Sudah Diawal Record!", vbCritical, "Pesan"

rsbuku.MoveFirst

End If

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmddelete.Enabled = True

cmdsave.Caption = "&Save"

End With

End Sub

Private Sub cmdnext_Click()

With rsbuku

rsbuku.MoveNext

If rsbuku.EOF Then

MsgBox "Sudah Diakhir Record!", vbCritical, "Pesan"

rsbuku.MoveLast

End If

tampil

nonaktif

cmdinput.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = True

cmdcancel.Enabled = True

cmdexit.Enabled = True

cmddelete.Enabled = True

cmdsave.Caption = "&Save"

End With

End Sub

Private Sub cmdexit_Click()

p = MsgBox("Yakin Ingin Keluar Dari Program Ini..?!", vbQuestion + vbYesNo, "Question")

If p = vbYes Then

End

End If

End Sub

Read More

Delphi 7 ( Bioskop RST )

Coding/Listing :



public
    { Public declarations }
    procedure aktif;
    procedure nonaktif;
    procedure bersih;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.aktif;
begin
etanggal.Enabled := true;
ejam.Enabled := true;
cbid.Enabled := true;
enama.Enabled := true;
cbkode.Enabled := true;
ejudul.Enabled := true;
ejenis.Enabled := true;
rbvip.Enabled := true;
rbreguler.Enabled := true;
rbekonomi.Enabled := true;
eharga.Enabled := true;
ejumlah.Enabled := true;
ebayar.Enabled := true;
end;

procedure TForm1.nonaktif;
begin
etanggal.Enabled := false;
ejam.Enabled := false;
cbid.Enabled := false;
enama.Enabled := false;
cbkode.Enabled := false;
ejudul.Enabled := false;
ejenis.Enabled := false;
rbvip.Enabled := false;
rbreguler.Enabled := false;
rbekonomi.Enabled := false;
eharga.Enabled := false;
ejumlah.Enabled := false;
ebayar.Enabled := false;
end;

procedure TForm1.bersih;
begin
cbid.Text := '--Silakan Pilih--';
enama.Text := '';
cbkode.Text := '--Silakan Pilih--';
ejudul.Text := '';
ejenis.Text := '';
rbvip.Checked := False;
rbreguler.Checked := false;
rbekonomi.Checked := false;
eharga.Text := '0';
ejumlah.Text := '0';
ebayar.Text := '0';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ejam.Text := formatdatetime('H:M:S', now);
etanggal.Text := formatdatetime('dddd, dd-mm-yyyy', now);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
cbid.Items.Add('ID001');
cbid.Items.Add('ID002');
cbkode.Items.Add('KF001');
cbkode.Items.Add('KF002');
cbkode.Items.Add('KF003');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
nonaktif;
bersih;
end;

procedure TForm1.cbidClick(Sender: TObject);
begin
if cbid.Text = 'ID001' then
begin
enama.Text := 'Dessy Octaviantry'
end
else
enama.Text := 'Aji';
end;

procedure TForm1.blagiClick(Sender: TObject);
begin
aktif;
bersih;
etanggal.Enabled := false;
ejam.Enabled := false;
end;

procedure TForm1.cbkodeClick(Sender: TObject);
begin
if cbkode.Text = 'KF001' then
begin
ejudul.Text := 'Rambo Marah2';
ejenis.Text := 'Action';
end
else if cbkode.Text = 'KF002' then
begin
ejudul.Text := 'Rambo Ngesot';
ejenis.Text := 'Horor';
end
else
begin
ejudul.Text := 'Rambo Sedih';
ejenis.Text := 'Drama';
end;
end;

procedure TForm1.rbvipClick(Sender: TObject);
begin
eharga.Text := '30000';
ejumlah.SetFocus;
end;

procedure TForm1.rbregulerClick(Sender: TObject);
begin
eharga.Text :='20000';
ejumlah.SetFocus;
end;

procedure TForm1.rbekonomiClick(Sender: TObject);
begin
eharga.Text := '10000';
ejumlah.SetFocus;
end;

procedure TForm1.ejumlahKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
ebayar.Text := inttostr(strtoint(eharga.Text) * strtoint(ejumlah.Text));
nonaktif;
end
end;

procedure TForm1.bexitClick(Sender: TObject);
begin
if(application.MessageBox('Mau Keluar?','Info',4+32+256)=6)then
close;
end;

end.

Read More