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.

Public class loginform1
if usernametextbox.text = "Spiderman"And password textbox.text = " merah " Then MDI Parent1
show()...fungsinya menjalankan form
Me.visible = false
else
MsgBox("Login gagal silahkan ulangi lagi")
end if
end sub
private sub cancel.click...
Me.close () menutup form
end sub

Insert
Call Koneksi ()
Tampil.Connection=Database
Tampil.CommandType=CommandType.text
Tampil.Commandtext="Insert into jurusan_ (kdjur,nmjur)values('"&textbox1.text&"'"&textbox2.text&"')"
Tampil.Executenonquery ()
Call kosong ()...

Form database adalah interface yang digunakan untuk menampilkan dan menyunting data, jadi form dapat difungsikan sebagai penghubung antara operator computer dengan sumber data.
Dalam kotak New Project kita dapat memilih beberapa tipe project yang diinginkan, misalnya :
1. Standar EXE : membuat file eksekusi standar
2. ActiveX EXE : membuat file eksekusi ActiveX
3. ActiveX DLL : membuat file DLL ActiveX
4. ActiveX Control : membuat control ActiveX
5. VB Application Wizard : menghasilkan kerangka aplikasi baru yang dapat anda gunakan untuk membuat aplikasi yang lebih kompleks.

Pilih standar.EXE dan tekan tombol OK, VB akan menampilkan sebuah project baru dengan satu form kosong dengan nama default (nama standart) Form1.
Membuat form menu
Jika kita menggunakan form MDI, maka atur form – form lain dengan property MDIChild = True
Untuk menambahkan form MDI, klik kanan pada jendela Project Explorer, kemudian pilih add MDI Form, kemudian atur property form MDI.

Form Login
Komponen yang ditambahkan dalam form login
Label, textbox, dan button

Membuat form laporan
Reporting, crystal report,pilih add, kemudian standart, pilih ok
oleDB, SQL server, kemudian isi servernya.

Koneksi Database

Cara koneksi database visual basic 2010 dengan ms SQL Server 2008
Pertama kita buat modul koneksi, lalu buat tombol untuk test koneksi

Imports System.Data
Imports System.Data.Sql


Module konek
    Public Database As New OleDb.OleDbConnection
    Public Tampil As New OleDb.OleDbCommand
    Public Tampil2 As New OleDb.OleDbCommand

    Public Tampilkan As OleDb.OleDbDataReader
    Public Hasiljur, jur As String




    Public Sub Koneksi()
        Try
            Database.Close()
            Database.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=ptabc; Data Source=MUJAN-COMP\SQLEXPRESS;"
            Database.Open()
            'Integrated Security=True
            MsgBox("konek sukses")
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub


    Public Sub jurusan()
        Call Koneksi()
        Tampil2.Connection = Database
        Tampil2.CommandType = CommandType.Text
        Tampil2.CommandText = "select * from table_1 where kdjur='" + Trim(jur) & "'"
        Tampilkan = Tampil2.ExecuteReader
        If Tampilkan.HasRows = True Then
            While Tampilkan.Read
                If IsDBNull(Tampilkan("kdjur")) Then
                    Hasiljur = "_"
                Else
                    Hasiljur = Tampilkan("namajur")


                End If
            End While
        End If


    End Sub
End Module


'kode program di form



Public Class Form1


 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call Koneksi()
        jur = TextBox2.Text
        jurusan()
        TextBox1.Text = Hasiljur
    End Sub
End Class