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

Public Class Form1
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Call bersih()
        Call Isi_combo()
    End Sub
    Sub bersih()
        TextBox1.Text = " "
        TextBox2.Text = " "
        TextBox3.Text = " "
        TextBox4.Text = " "
        ComboBox1.Text = "06 Teknik Informatika"
    End Sub
    Sub Isi_combo()
        ComboBox1.Items.Add("06 Teknik Informatika")
        ComboBox1.Items.Add("07 Sistem Informasi")
        ComboBox1.Items.Add("05 Manajement Informatika")
        ComboBox1.Items.Add("67 Teknik Komputer")
        ComboBox1.Items.Add("26 Komputer Akuntansi")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "keluar" Then
            Me.Close()
        Else
            Call normal()
            Call bersih()
        End If
    End Sub
    Sub normal()
        Button1.Text = "Tambah"
        Button1.Enabled = True
        Button2.Text = "Ubah"
        Button2.Enabled = True
        Button3.Text = "Hapus"
        Button3.Enabled = True
        Button4.Text = "Keluar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Tambah" Then
            Button1.Text = "Simpan"
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Text = "Batal"
            TextBox1.Focus()
        Else

        End If

    End Sub
End Class

Public Class Form1

    Dim listitem As ListViewItem

    Dim listtxt(5) As String

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form1_d(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call bersih()

    End Sub

    Sub bersih()

        TextBox1.Text = " "

        TextBox2.Text = " "

        TextBox3.Text = " "

        TextBox4.Text = " "

        TextBox5.Text = " "

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call setlistview()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        listtxt(0) = Trim(TextBox1.Text)

        listtxt(1) = Trim(TextBox2.Text)

        listtxt(2) = Trim(TextBox3.Text)

        listtxt(3) = Trim(TextBox4.Text)

        listtxt(4) = Trim(TextBox5.Text)

        listitem = New ListViewItem(listtxt)

        ListView1.Items.Add(listitem)

    End Sub

    Sub setlistview()

        ListView1.View = View.Details

        ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Telepon", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("E-mail", 100, HorizontalAlignment.Center)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

End Class

Source kode sederana untuk menampilkan data

Public Class Fpesanan
Dim listtxt(9) As String
Dim listitem As ListViewItem
Private Sub Fpesanan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call kodemakanan()
Call setlisttview()


End Sub

Private Sub Fpesanan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label10.Text = Format(Now(), "dddd, d MMM yyyy")

End Sub
Sub setlisttview()
ListView1.View = View.Details
ListView1.Columns.Add("No Nota", 60, HorizontalAlignment.Center)
ListView1.Columns.Add("Kode Makanan", 90, HorizontalAlignment.Left)
ListView1.Columns.Add("Kode Pelanggan", 90, HorizontalAlignment.Left)
ListView1.Columns.Add("Kode Petugas", 90, HorizontalAlignment.Left)
ListView1.Columns.Add("Satuan", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("Tgl Nota", 60, HorizontalAlignment.Left)
ListView1.Columns.Add("Qty", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("Harga", 50, HorizontalAlignment.Left)
ListView1.Columns.Add("Jumlah", 50, HorizontalAlignment.Left)

End Sub
Sub simpan()
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(ComboBox1.Text)
listtxt(2) = Trim(ComboBox2.Text)
listtxt(3) = Trim(ComboBox3.Text)
listtxt(4) = Trim(ComboBox4.Text)
listtxt(5) = Trim(TextBox2.Text)
listtxt(6) = Trim(TextBox3.Text)
listtxt(7) = Trim(TextBox4.Text)
listtxt(8) = Trim(TextBox5.Text)
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)

End Sub

Sub bersih()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
ComboBox1.Text = "Select"
ComboBox2.Text = "Select"
ComboBox3.Text = "Select"
ComboBox4.Text = "Select"
TextBox1.Focus()
End Sub
Sub kodemakanan()
'Mengisi Kode Makanan'
ComboBox1.Items.Add("K001")
ComboBox1.Items.Add("K002")
ComboBox1.Items.Add("S001")
ComboBox1.Items.Add("S001")
ComboBox1.Items.Add("G001")
ComboBox1.Items.Add("R001")
'Mengisi Code Pelanggan'
ComboBox2.Items.Add("P001")
ComboBox2.Items.Add("P002")
ComboBox2.Items.Add("P003")
ComboBox2.Items.Add("P004")
ComboBox2.Items.Add("P005")
ComboBox2.Items.Add("P006")
'Mengisi Code Petugas'
ComboBox3.Items.Add("T001")
ComboBox3.Items.Add("T002")
ComboBox3.Items.Add("T003")
ComboBox3.Items.Add("T004")
ComboBox3.Items.Add("T005")
ComboBox3.Items.Add("T006")
'Mengisi Code Petugas'
ComboBox4.Items.Add("KG")
ComboBox4.Items.Add("PCS")
ComboBox4.Items.Add("Dus")


End Sub


Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Fmenu.Show()
Me.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call simpan()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Call bersih()

End Sub
End Class

Pengantar Jaringan Komputer

Kemajuan teknologi komputer sebagai pengolah data berkembang semakin cepat. Sejak terjadi penggabungan teknologi komputer dengan teknologi komunikasi, maka pengolahan data yang semula saling terpisah (stand alone) antar unit komputer sekarang dapat saling dihubungkan melalui suatu sistem jaringan komputer (komputer network). Bila komputer yang saling berhubungan berada dalam satu lokasi yang sama maka disebut Local Area Network (LAN). Namun jika banyak terdapat LAN yang terpisah dibeberapa tempat yang secara geografis cukup jauh dan saling berhubungan disebut juga jaringan namun cakupannya lebih luas, atau disebut dengan Wide Area Network (WAN).

Konsep Dasar Jaringan

Jaringan komputer adalah sekelompok komputer yang saling dihubungkan dengan menggunakan suatu protokol komunikasi sehingga antara satu komputer dengan komputer yang lain dapat berbagi data atau berbagi sumber daya (sharing resources).

Sistem pemasangan jaringan dapat dibedakan menjadi dua macam, yaitu :

1. Jaringan Terpusat
   Adalah jaringan yang terdiri dari beberapa node (workstation) yang terhubung dengan sebuah komputer pusat atau disebut Server. Pada jaringan ini sistem kerja workstation tergantung dari komputer pusat. Dan komputer pusat tugasnya melayani permintaan akses dari workstation.
2. Jaringan Peer-to-Peer
   Adalah jaringan yang terdiri dari beberapa komputer yang saling berhubungan antara satu dengan lainnya tanpa komputer pusat (server base). Pada masing-masing komputer workstation terdapat media penyimpanan (hard disk) yang berfugsi sebagai server individu.

Pemanfaatan Jaringan Komputer

Pembentukan sebuah jaringan komputer sangan erat dengan manfaat yang dapat diperoleh dengan adanya jaringan tersebut.

1. Bagi pakai (sharing) peralatan (resources)
   Dengan adanya jaringan komputer, maka pemakain beberapa peralatan komputer seperti printer, hard disk, disket, scanner, CD-ROM dan lainnya dapat dilakukan bersama-sama saling bergantian tanpa harus memindahkan posisi peralatan yang terpasang tersebut.
2. Bagi pakai software
   Hampir dalam setiap organisasi, kemampuan dalam melakukan bagi pakai berkas atau file data diperlukan setiap hari. Beberapa tipe software PC, khususnya program manajemen basis data atau database, didesain disamping agar bisa dipakai oleh satu pemakai, juga dimungkinkan untuk dipakai bersama-sama dengan pemakai lain dalam waktu yang bersamaan. Atau dengan kata lain, untuk mengakses dan meng-update file-file tadi. Paket yang lain, seperti program pengolah data (word processor) dan spreadsheet, kebanyakan didesaian hanya untuk satu pemakai yang dapat meng-update file.
3. Komunikasi
   Kominikasi antar pemakai dalam suatu jaringan dapat dilakukan dengan menggunakan e-mail atau tele conference. Sehingga kebutuhan akan komunikasi antar pemakai dapat dipenuhi tanpa harus pindah dari tempat kerjanya. Selain itu pemakai e-mail dapat menekan pemakaian pulsa telepon.
4. Pemrosesan terpusat (terdistribusi)
   Didalam suatu jaringan komputer, data dapat diolah secara terpusat atau secara terdistribusi. Pemrosesan secara terpusat dilakukan apabila sebuah data yang dibuat oleh tiap pemakai jaringan dikehendaki untuk disatukan dalam komputer pusat. Sebaliknya, pemrosesan terdistribusi dilakukan apabila suatu pekerjaan pengolahan data dari komputer pusat dapat dikerjakan oleh tiap pemakai berdasarkan spesialisasi bidang kerjanya.
5. Keamanan data
   Keamanan data dapat diatur oleh supervisor (administrator) dengan pemberian hak akses, pembatasan waktu akses dan pemberian password untuk melindungi pemakaian komputer pusat.
6. Akses internet bersama-sama
   Jika ada salah satu komputer berhubungan ke internet dan komputer tersebut memberikan izin untuk akses ke internet, maka para pengguna jaringan dapat melakukan aktivitas di internet hanya dengan menggunakan satu buah akun di ISP, satu buah modem. Hal ini sangat menghemat dana yang cukup besar.

Komponen Perangkat Keras

Tidak peduli apakah anda sudah memiliki sebuah network atau berniat menginstalasi network baru, anda perlu mengetahui komponen-komponen perangkat keras yang digunakan.

Server


Komputer yang menjalankan sistem operasi jaringan yang berfungsi sebagai server. Server menyediakan file, printer dan pelayanan lain untuk client. Ada dua buah jenis server, yaitu :

• Server dedicated, server yang tidak memiliki fungsi lain. Ia tidak bisa digunakan sebagai workstation. Untuk melihat jenis dari server tersebut dapat diketahui melalui sistem operasi jaringan yang dijalankannya, misalnya Novell Netware.
• Server Non-Dedicated, server yang juga bisa berfungsi sebagai workstation. Contohnya : Microsoft Windows NT Server, Mocrosoft Windows NT Workstation, Microsoft Windows 95/98, Unix, Linux, Mac OS/2.

Dari fungsinya, server dapat digunakan :

• Menyimpan file-file yang digunakan bersama-sama pada hard disk-nya
• Mengatur komunikasi (seperti pesan e-mail) antar workstation
• Mengkoordinasikan pencetakan kepada printer yang dipakai bersama-sama
• Server juga dapat menyimpan CD-ROM yang dapat dipakai oleh para pemakai network
• Bisa menyimpan tape drive atau drive lain yang digunakan untuk menyimpan hard disk server atau hard disk pada workstation
• Dengan perangkat lunak dan keras tambahan, server bisa mengarahkan e-mail dari dan ke internet. Server juga bisa mengirimkan fax ke luar jaringan ke mesin-mesin fax yang ada di luar. Kenyataannya server hampir dapat melakukan semua pekerjaan yang mencakup pengiriman data.

Workstation

Komputer yang terhubung ke server dan dapat mengakses data dari server. Workstation menjalankan beragam sistem operasi dan merupakan bagian dari network yang ada. Pada kenyataannya workstation digunakan oleh pemakai secara langsung.

  Network Interface Card (NIC)

NIC atau adapter network adalah sebuah komputer hardware yang mutlak dibutuhkan jika kita menginginkan merakit jaringan komputer menggunakan media penghubung kabel. NIC berfungsi menghubungkan server ke sistem pengkabelan network. Berdasarkan tipe slot pada motherboard dibedakan menjadi dua jenis:

• Tipe slot ISA (slot warna hitam/coklat, lebih panjang)
• Tipe slot PCI (slot warna putih, lebih pendek)

 

Swicth/Hub

 Sistem pengkabelan yang paling populer untuk Network Ethernet menggunakan kabel Unshielded Twisted Pair (UTP) atau kabel terpilin yang terbuka dengan konektor yang mirip dengan konektor telepon. Ini disebut dengan 10BaseT. Untuk setiap adapter network pada setiap server atau workstation, salah satu dari kabel-kabel ini berhubungan ke Hub/Switch atau pusat pengkabelan.

Bridge, Router Dan Gateway

Bridge berfungsi menghubungkan dua network dengan mentransfer data diantara network tersebut. Sebagai contoh, bridge bisa menghubungkan segmen kabel dari arsitektur Token Ring dengan arsitektur Ethernet, atau menghubungkan dua segmen Ethernet menjadi satu. Bridge mampu mengurangi lalu lintas dengan hanya mengirimkan data yang benar-benar diniatkan untuk komputer tujuan. Bridge pintar (intelligent bridge) bisa berbuat lebih baik lagi dengan menyaring atau hanya mengirimkan paket-paket tertentu ke tujuan.

 

ListBox dan ListView

ListBox

codingnya
Sub pros3() 
ListBox1.Items.Add(TextBox3.Text + " " + TextBox4.Text + " " + TextBox5.Text + " " + TextBox6.Text + " " + TextBox7.Text) 
End Sub 

Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox4.Focus() 
End If 
End Sub 

Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox5.Focus() 
End If 
End Sub 

Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox6.Focus() 
End If 
End Sub 

Private Sub TextBox6_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress 
If e.KeyChar = Chr(13) Then 
TextBox7.Focus() 
End If 
End Sub 

Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress 
If e.KeyChar = Chr(13) Then 
Call pros3() 
Call bersihpros() 
TextBox3.Focus() 
End If 
End Sub 

Sub bersihpros() 
TextBox3.Text = "" 
TextBox4.Text = "" 
TextBox5.Text = "" 
TextBox6.Text = "" 
TextBox7.Text = "" 
End Sub 

End Class

 

 

Listview

coding
Public Class Form1
membuat variabel array
Dim listtxt(3) As String
Dim listitem As ListViewItem

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
memasukan nilai ke variabel array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)

untuk memasukan ke listview dari variabel array
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
End Sub
Setting kolom listview
Sub setlistview()

ListView1.View = View.Details

untuk menentukan kolom
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Alamat", 400, HorizontalAlignment.Left)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call setlistview()
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
mengambil nilai dari listview
TextBox4.Text = e.Item.Text
End Sub

End Class