Joni Suprihanto

Form Login

Form login dihubungkan dengan table user, dimana hanya user tertentu yang dapat menggunakan program ini.

Pada kode form login, ketik listing :

Private Sub CmdCancel_Click()

End

End Sub

PrivateSub CmdOK_Click()

User = T_User.text

ChkUser

End sub

Private Sub Form_Activate()

T_User.setFocus

Frm_MenuMDI.Enable=false

End sub

Private Sub Form_Load()

Public Sub ChkUser()

With Rs_User

.Find “User_Id=’” & T_User.Text&”’”,,adsearch forward,1

If.EOF Then


Form Menu

Private Sub Timer1_Timer()

Dim AHari, Hari

Lbl_Jam Caption = Format(Time, “hh:mm:ss”)

AHari = weekday(Date, vbSunday)

Select Case AHari

Case 1

Hari = “Minggu”

Case 2

Hari = “Senin’

Case 3

Hari = “Selasa”

Case 4

Hari = “ Rabu”

Case 5

Hari = ‘Kamis”

Case 6

Hari = “Jum’at”

Case 7

Hari = “Sabtu’

End Select

Lbl_User.Caption = User

Lbl_Tgl.Caption = Hari &”,”& format(Date,”dd mm yy”)

Lbl_Status.Caption = Status

End Sub


Membuka Program Crystal Report

Start, Programs, Seagate Crystal Report, 32-bit Crystal Report Designer


Membuat Crystal Report :

Prosedur untuk membuat sebuah report adalah :

1.Dari kotak dialog Welcome to pilih New Report, atau pilih File, New

2.Pada kotak dialog Report Gallery, klik Standard.

3.Maka muncul kotak dialog Standart Report Expert, klik data file dan selanjutnya akan tampil kotak dialog Choose Database File

4.Cari lokasi file database yang akan digunakan,kemudian tekan tombol add

5.Selanjutnya akan muncul kotak dialog Select Tablesm, pilih nama table yang diinginkan, tekan OK, Done

6.Kemudian pada kotak daftar, muncul table yang pilih tadi, kemudian pilih next

7.Langkah berikutnya pilih field-field yang akan dimasukan sebagai data sumber report. Tekan add all untuk semua field, atau add untuk field yang dipilh saja dan tekan next.

8. Setelah itu muncul tampilan yang digunakan untuk menentukan field kunci pengurutan, pilih fieldnya dan tekan tombol add.

9.Klik tombol next, bila melanjutkan proses, jika akan mengakhiri tekan design report.