Rabu, 06 Juli 2011
Pelanggan
Sub hapus()
kd_pelanggan.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub
Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO pelanggan(kd_pelanggan, nama, alamat, telp)" & _
" values('" & kd_pelanggan.Text & _
"','" & nama.Text & _
"','" & alamat.Text & _
"','" & telp.Text & "')"
Case 1
SQL = "UPDATE pelanggan SET Nama ='" & nama.Text & "'," & _
" alamat = '" & alamat.Text & "'," & _
" telp = '" & telp.Text & "'," & _
" where kd_pelanggan ='" & kd_pelanggan.Text & "'"
Case 2
SQL = "DELETE FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data pelanggan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_pelanggan.SetFocus
End Sub
Sub Tampilpelanggan()
On Error Resume Next
kd_pelanggan.Text = RS!kd_pelanggan
nama.Text = RS!nama
alamat.Text = RS!alamat
telp.Text = RS!telp
End Sub
Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_pelanggan.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
X = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "pelanggan")
If X = vbYes Then prosesDB 2
Call hapus
kd_pelanggan.SetFocus
Case 3
Call hapus
kd_pelanggan.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call OPENDB
Call hapus
End Sub
Private Sub kd_pelanggan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_pelanggan.Text = "" Then
MsgBox "Masukkan kd_pelanggan produk !", vbInformation, "pelanggan"
kd_pelanggan.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpelanggan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_pelanggan.Enabled = False
Else
X = kd_pelanggan.Text
Call hapus
kd_pelanggan.Text = X
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub
kd_pelanggan.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub
Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO pelanggan(kd_pelanggan, nama, alamat, telp)" & _
" values('" & kd_pelanggan.Text & _
"','" & nama.Text & _
"','" & alamat.Text & _
"','" & telp.Text & "')"
Case 1
SQL = "UPDATE pelanggan SET Nama ='" & nama.Text & "'," & _
" alamat = '" & alamat.Text & "'," & _
" telp = '" & telp.Text & "'," & _
" where kd_pelanggan ='" & kd_pelanggan.Text & "'"
Case 2
SQL = "DELETE FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data pelanggan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_pelanggan.SetFocus
End Sub
Sub Tampilpelanggan()
On Error Resume Next
kd_pelanggan.Text = RS!kd_pelanggan
nama.Text = RS!nama
alamat.Text = RS!alamat
telp.Text = RS!telp
End Sub
Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_pelanggan.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
X = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "pelanggan")
If X = vbYes Then prosesDB 2
Call hapus
kd_pelanggan.SetFocus
Case 3
Call hapus
kd_pelanggan.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call OPENDB
Call hapus
End Sub
Private Sub kd_pelanggan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_pelanggan.Text = "" Then
MsgBox "Masukkan kd_pelanggan produk !", vbInformation, "pelanggan"
kd_pelanggan.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpelanggan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_pelanggan.Enabled = False
Else
X = kd_pelanggan.Text
Call hapus
kd_pelanggan.Text = X
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub
Produk
Sub hapus()
kd_produk.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub
Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO produk(kd_produk, nama, satuan, jumlah)" & _
" values('" & kd_produk.Text & _
"','" & nama.Text & _
"','" & satuan.Text & _
"','" & jumlah.Text & "')"
Case 1
SQL = "UPDATE produk SET Nama ='" & nama.Text & "'," & _
" Satuan = '" & satuan.Text & "'," & _
" Jumlah = '" & jumlah.Text & "'," & _
" Where kd_produk ='" & kd_produk.Text & "'"
Case 2
SQL = "DELETE FROM produk WHERE kd_produk='" & kd_produk.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data produk"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_produk.SetFocus
End Sub
Sub Tampilproduk()
On Error Resume Next
kd_produk.Text = RS!kd_produk
nama.Text = RS!nama
satuan.Text = RS!satuan
jumlah.Text = RS!jumlah
End Sub
Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_produk.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
X = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "produk")
If X = vbYes Then prosesDB 2
Call hapus
kd_produk.SetFocus
Case 3
Call hapus
kd_produk.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call OPENDB
Call hapus
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub kd_produk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_produk.Text = "" Then
MsgBox "Masukkan Kd_produk produk !", vbInformation, "produk"
kd_produk.SetFocus
Exit Sub
End If
SQL = "SELECT * From produk WHERE kd_produk='" & kd_produk.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilproduk
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_produk.Enabled = False
Else
X = kd_produk.Text
Call hapus
kd_produk.Text = X
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub
kd_produk.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub
Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO produk(kd_produk, nama, satuan, jumlah)" & _
" values('" & kd_produk.Text & _
"','" & nama.Text & _
"','" & satuan.Text & _
"','" & jumlah.Text & "')"
Case 1
SQL = "UPDATE produk SET Nama ='" & nama.Text & "'," & _
" Satuan = '" & satuan.Text & "'," & _
" Jumlah = '" & jumlah.Text & "'," & _
" Where kd_produk ='" & kd_produk.Text & "'"
Case 2
SQL = "DELETE FROM produk WHERE kd_produk='" & kd_produk.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data produk"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_produk.SetFocus
End Sub
Sub Tampilproduk()
On Error Resume Next
kd_produk.Text = RS!kd_produk
nama.Text = RS!nama
satuan.Text = RS!satuan
jumlah.Text = RS!jumlah
End Sub
Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_produk.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
X = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "produk")
If X = vbYes Then prosesDB 2
Call hapus
kd_produk.SetFocus
Case 3
Call hapus
kd_produk.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call OPENDB
Call hapus
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub kd_produk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_produk.Text = "" Then
MsgBox "Masukkan Kd_produk produk !", vbInformation, "produk"
kd_produk.SetFocus
Exit Sub
End If
SQL = "SELECT * From produk WHERE kd_produk='" & kd_produk.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilproduk
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_produk.Enabled = False
Else
X = kd_produk.Text
Call hapus
kd_produk.Text = X
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub
penjualanan
Sub hapus()
no_bukti.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub
Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO penjualan(no_bukti, tgl, kd_pelanggan,kd_produk,jumlah)" & _
" values('" & no_bukti.Text & _
"','" & tgl.Text & _
"','" & kd_pelanggan.Text & _
"','" & kd_produk.Text & _
"','" & jumlah.Text & "')"
Case 1
SQL = "UPDATE produk SET tgl ='" & tgl.Text & "'," & _
" kd_pelanggan = '" & kd_pelanggan.Text & "'," & _
" kd_produk = '" & kd_produk.Text & "'," & _
" jumlah = '" & jumlah.Text & "'," & _
" where no_bukti ='" & no_bukti.Text & "'"
Case 2
SQL = "DELETE FROM penjualan WHERE no_bukti='" & no_bukti.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data penjualan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
no_bukti.SetFocus
End Sub
Sub Tampilpenjualan()
On Error Resume Next
no_bukti.Text = RS!no_bukti
tgl.Text = RS!tgl
kd_pelanggan.Text = RS!kd_pelanggan
kd_produk.Text = RS!kd_produk
jumlah.Text = RS!jumlah
End Sub
Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
no_bukti.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
X = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "penjualan")
If X = vbYes Then prosesDB 2
Call hapus
no_bukti.SetFocus
Case 3
Call hapus
no_bukti.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call OPENDB
Call hapus
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub no_bukti_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If no_bukti.Text = "" Then
MsgBox "Masukkan no_bukti penjualan !", vbInformation, "penjualan"
no_bukti.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM produk WHERE no_bukti='" & no_bukti.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpenjualan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
no_bukti.Enabled = False
Else
X = no_bukti.Text
Call hapus
no_bukti.Text = X
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
tgl.SetFocus
End If
End Sub
no_bukti.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub
Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO penjualan(no_bukti, tgl, kd_pelanggan,kd_produk,jumlah)" & _
" values('" & no_bukti.Text & _
"','" & tgl.Text & _
"','" & kd_pelanggan.Text & _
"','" & kd_produk.Text & _
"','" & jumlah.Text & "')"
Case 1
SQL = "UPDATE produk SET tgl ='" & tgl.Text & "'," & _
" kd_pelanggan = '" & kd_pelanggan.Text & "'," & _
" kd_produk = '" & kd_produk.Text & "'," & _
" jumlah = '" & jumlah.Text & "'," & _
" where no_bukti ='" & no_bukti.Text & "'"
Case 2
SQL = "DELETE FROM penjualan WHERE no_bukti='" & no_bukti.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data penjualan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
no_bukti.SetFocus
End Sub
Sub Tampilpenjualan()
On Error Resume Next
no_bukti.Text = RS!no_bukti
tgl.Text = RS!tgl
kd_pelanggan.Text = RS!kd_pelanggan
kd_produk.Text = RS!kd_produk
jumlah.Text = RS!jumlah
End Sub
Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
no_bukti.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
X = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "penjualan")
If X = vbYes Then prosesDB 2
Call hapus
no_bukti.SetFocus
Case 3
Call hapus
no_bukti.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call OPENDB
Call hapus
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub no_bukti_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If no_bukti.Text = "" Then
MsgBox "Masukkan no_bukti penjualan !", vbInformation, "penjualan"
no_bukti.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM produk WHERE no_bukti='" & no_bukti.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpenjualan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
no_bukti.Enabled = False
Else
X = no_bukti.Text
Call hapus
no_bukti.Text = X
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
tgl.SetFocus
End If
End Sub
Jawaban no 3
Sub hapus()
kd_pelanggan.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub
Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO pelanggan(kd_pelanggan, nama, alamat, telp)" & _
" values('" & kd_pelanggan.Text & _
"','" & nama.Text & _
"','" & alamat.Text & _
"','" & telp.Text & "')"
Case 1
SQL = "UPDATE pelanggan SET Nama ='" & nama.Text & "'," & _
" alamat = '" & alamat.Text & "'," & _
" telp = '" & telp.Text & "'," & _
" where kd_pelanggan ='" & kd_pelanggan.Text & "'"
Case 2
SQL = "DELETE FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data pelanggan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_pelanggan.SetFocus
End Sub
Sub Tampilpelanggan()
On Error Resume Next
kd_pelanggan.Text = RS!kd_pelanggan
nama.Text = RS!nama
alamat.Text = RS!alamat
telp.Text = RS!telp
End Sub
Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_pelanggan.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "pelanggan")
If x = vbYes Then prosesDB 2
Call hapus
kd_pelanggan.SetFocus
Case 3
Call hapus
kd_pelanggan.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call OPENDB
Call hapus
End Sub
Private Sub kd_pelanggan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_pelanggan.Text = "" Then
MsgBox "Masukkan kd_pelanggan produk !", vbInformation, "pelanggan"
kd_pelanggan.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpelanggan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_pelanggan.Enabled = False
Else
x = kd_pelanggan.Text
Call hapus
kd_pelanggan.Text = x
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub
kd_pelanggan.Enabled = True
ClearFORM Me
Call RubahCMD(Me, True, False, False, False)
cmdproses(1).Caption = "&baru"
End Sub
Sub prosesDB(Log As Byte)
Select Case Log
Case 0
SQL = "INSERT INTO pelanggan(kd_pelanggan, nama, alamat, telp)" & _
" values('" & kd_pelanggan.Text & _
"','" & nama.Text & _
"','" & alamat.Text & _
"','" & telp.Text & "')"
Case 1
SQL = "UPDATE pelanggan SET Nama ='" & nama.Text & "'," & _
" alamat = '" & alamat.Text & "'," & _
" telp = '" & telp.Text & "'," & _
" where kd_pelanggan ='" & kd_pelanggan.Text & "'"
Case 2
SQL = "DELETE FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
End Select
MsgBox "Pemorosesan RECORD Database telah berhasil...!", vbInformation, "Data pelanggan"
Db.Execute SQL, adCmdTable
Call hapus
Adodc1.Refresh
kd_pelanggan.SetFocus
End Sub
Sub Tampilpelanggan()
On Error Resume Next
kd_pelanggan.Text = RS!kd_pelanggan
nama.Text = RS!nama
alamat.Text = RS!alamat
telp.Text = RS!telp
End Sub
Private Sub Cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kd_pelanggan.SetFocus
Case 1
If cmdproses(1).Caption = "&baru" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
x = MsgBox("Yakin RECORD produk Akan Dihapus...!", vbQuestion + vbYesNo, "pelanggan")
If x = vbYes Then prosesDB 2
Call hapus
kd_pelanggan.SetFocus
Case 3
Call hapus
kd_pelanggan.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call OPENDB
Call hapus
End Sub
Private Sub kd_pelanggan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kd_pelanggan.Text = "" Then
MsgBox "Masukkan kd_pelanggan produk !", vbInformation, "pelanggan"
kd_pelanggan.SetFocus
Exit Sub
End If
SQL = "SELECT * FROM pelanggan WHERE kd_pelanggan='" & kd_pelanggan.Text & "'"
If RS.State = adStateOpen Then RS.Close
RS.Open SQL, Db, adOpenDynamic, adLockOptimistic
If RS.RecordCount <> 0 Then
Tampilpelanggan
Call RubahCMD(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kd_pelanggan.Enabled = False
Else
x = kd_pelanggan.Text
Call hapus
kd_pelanggan.Text = x
Call RubahCMD(Me, False, True, False, True)
cmdproses(1).Caption = "&baru"
End If
nama.SetFocus
End If
End Sub
Selasa, 05 Juli 2011
Pentingnya Berorganisasi Dalam Kehidupan Kampus
Sebagai makhluk sosial, setiap manusia senantiasa berinteraksi dengan manusia lainnya, bahkan cenderung hidup berkelompok atau berorganisasi untuk mencapai tujuan bersama yang tidak mungkin dicapai bila ia sendiri. Interaksi dan kerja sama ini akan terus berkembang dengan teratur sehingga membentuk wadah yang disebut dengan organisasi. Interaksi atau hubungan antar individu-individu dan kelompok/tim dalam setiap organisasi akan memunculkan harapan-harapan. Harapan ini kemudian akan menimbulkan peranan-peranan tertentu yang harus diemban oleh masing-masing individu untuk mewujudkan visi, misi, dan tujuan organisasi/kelompok. Sebuah organisasi memang dibentuk sebagai wadah yang didalamnya berkumpul sejumlah orang yang menjalankan serangkaian aktivitas tertentu secara teratur guna tercapainya tujuan yang telah disepakati bersama. Terlebih dalam kehidupan masyarakat modern, manusia merasa bahwa selain mengatur dirinya sendiri, ia juga perlu mengatur lingkungannya, memelihara ketertiban, mengelola dan mengontrolnya lewat serangkaian aktifitas yang kita kenal dengan manajemen dan organisasi.
Bagi beberapa kalangan mahasiswa, kegiatan organisasi merupakan kegiatan yang membosankan, terlalu ribet, banyak waktu terbuang, dan alasan-alasan lainnya. Mereka kebanyakan tidak suka dengan aturan-aturan yang akan mengikat mereka ketika mereka bergabung dalam organisasi tersebut. Padahal, disamping hal itu semua banyak manfaat yang dapat kita ambil dari kegiatan berorganisasi. Diantaranya yang bisa kita dapatkan dari berorganisasi dalam kampus adalah ;
1. Mahasisiwa dapat bersosialisasi dangan baik
2. Mahasiswa dapat belajar bekerjasama
3. Mahasiswa bisa sling menghormati dan saling menghargai antar mahasisawa
4. Mahasiswa dqpqt mempersiapkan diri untuk masa depan
Bagi kalangan mahasiswa seperti kita, organisasi merupakan wadah kita untuk mengembangkan skill di dalam dunia kerja kelak. Tentunya kita semua tidak pernah tahu kedepannya kita akan bekerja dalam bidang apa dan pada bagian apa. Tetapi paling tidak kita telah siap dengan itu semua. Apa saja yang harus kita lakukan didalam bekerja dalam tim, bagaimana cara kita menangani dan mengendalikan suatu permasalahan secara bersama-sama. Hal itu semua akan sangat berguna bagi kita dalam menghadapi dunia pekerjaan.
Seperti contoh, ketika kita turun didalam dunia kerja, tiba-tiba kita mendapatkan amanat dari pemimpin untuk menjadi seorang ketua team dalam suatu kelompok kerja. Nah, disinilah pengalaman berorganisasi kita akan sangat dibutuhkan. Sebagai seorang Leader, kita harus dapat memimpin rekan-rekan kerja kita yang lain untuk selalu kompak. Kitapun akan dituntut untuk berani mengambil suatu keputusan dengan cepat dan tepat tetapi tetap menitikberatkan kepada apa yang dituju.
Dengan terjun dalam kegiatan organisasipun kita juga akan dapat belajar bagaimana cara berkomunikasi dengan orang lain yang baru saja kita kenal. Metode-metode komunikasi pun akan kita dapatkan dalam berorganisasi.
Bagi beberapa kalangan mahasiswa, kegiatan organisasi merupakan kegiatan yang membosankan, terlalu ribet, banyak waktu terbuang, dan alasan-alasan lainnya. Mereka kebanyakan tidak suka dengan aturan-aturan yang akan mengikat mereka ketika mereka bergabung dalam organisasi tersebut. Padahal, disamping hal itu semua banyak manfaat yang dapat kita ambil dari kegiatan berorganisasi. Diantaranya yang bisa kita dapatkan dari berorganisasi dalam kampus adalah ;
1. Mahasisiwa dapat bersosialisasi dangan baik
2. Mahasiswa dapat belajar bekerjasama
3. Mahasiswa bisa sling menghormati dan saling menghargai antar mahasisawa
4. Mahasiswa dqpqt mempersiapkan diri untuk masa depan
Bagi kalangan mahasiswa seperti kita, organisasi merupakan wadah kita untuk mengembangkan skill di dalam dunia kerja kelak. Tentunya kita semua tidak pernah tahu kedepannya kita akan bekerja dalam bidang apa dan pada bagian apa. Tetapi paling tidak kita telah siap dengan itu semua. Apa saja yang harus kita lakukan didalam bekerja dalam tim, bagaimana cara kita menangani dan mengendalikan suatu permasalahan secara bersama-sama. Hal itu semua akan sangat berguna bagi kita dalam menghadapi dunia pekerjaan.
Seperti contoh, ketika kita turun didalam dunia kerja, tiba-tiba kita mendapatkan amanat dari pemimpin untuk menjadi seorang ketua team dalam suatu kelompok kerja. Nah, disinilah pengalaman berorganisasi kita akan sangat dibutuhkan. Sebagai seorang Leader, kita harus dapat memimpin rekan-rekan kerja kita yang lain untuk selalu kompak. Kitapun akan dituntut untuk berani mengambil suatu keputusan dengan cepat dan tepat tetapi tetap menitikberatkan kepada apa yang dituju.
Dengan terjun dalam kegiatan organisasipun kita juga akan dapat belajar bagaimana cara berkomunikasi dengan orang lain yang baru saja kita kenal. Metode-metode komunikasi pun akan kita dapatkan dalam berorganisasi.
MENJADI MAHASISWA KREATIF
Mahasiswa selalu identik dengan kaum intelektual, idealis, dan obsesi. Sebagai elemen elite masyarakat, mahasiswa diharapkan tidak hanya sekedar pintar, namun juga peka terhadap apa yang terjadi di sekitarnya. Selain itu, karakteristik mahasiswa yang berjiwa dinamis, keratif, serta inovatif juga menjadi gambaran mahasiswa idaman.
Namun sayang, tak banyak kita temui mahasiswa yang intelek sekaligus kreatif. Banyak mahasiswa yang hanya pintar dalam bidang akademis, tetapi tidak mampu menciptakan sesuatu yang baru sebagai aplikasi dari apa yang sudah diperolehnya selama menuntut ilmu di perguruan tinggi. Maka tidak mengherankan kalau perguruan tinggi (PT) yang setiap tahunnya melahirkan sarjana-sarjana ber-IPK di atas 3,0, namun tak dapat berkompetisi di lapangan. Ini dapat dilihat dengan semakin bertambahnya jumlah pengangguran dari kalangan sarjana. Mereka tidak mampu bersaing dengan baik untuk mendapatkan tempat pekerjaan. Tetapi, jika mahasiswa memiliki kreatifitas, merupakan sebuah nilai tambah untuk mendapatkan pekerjaan yang mereka inginkan.
Mahasiswa yang kreatif adalah mahasiswa yang senantiasa memiliki daya cipta terhadap sesuatu. Ia selalu memiliki gagasan atau ide-ide baru yang menarik. Di tangannya, sebuah kertas polos yang amat sederhana pun dapat di sulap menjadi sesuatu yang menarik dan mempunyai nilai jual. Oleh karena itulah banyak perusahaan-perusahaan yang lebih senang mempekerjakan mahasiswa atau sarjana yang kreatif.
Kreatif sendiri dapat dimiliki oleh setiap orang, bisa melalui bakat atau bawaan dari lahir. Artinya, orang tersebut memang sudah mempunyai bakat kreatif dalam mengerjakan segala sesuatu. Ada pula yang memiliki kreatif dari karena selalu mengasah dan melatih diri untuk kreatif.
Bagi orang-orang yang memang sudah sejak lahir memiliki bakat sebagai orang yang kreatif tentu idak mendapatkan masalah yang berarti. Namun, bagi orang yang tidak mempunyai bakat kreatif tersebut, maka ia harus rajin melatih dan mengasah ke-kreatifannya.
Banyak cara yang dapat dilakukan untuk menjadi mahasiswa yang kreatif, salah satunya adalah selalu memiliki gagasan atau ide-ide baru setiap hari. Seorang mahasiswa harus selalu berfikir untuk mendapatkan sesuatu yang baru (inovatif), apapun itu. Untuk membiasakan diri mencari gagasan atau ide-ide baru, dapat dilakukan dengan pada saat akhir jam kerja dengan merenung kira-kira 10 menit. Pikirkan apa saja yang telah dilakukan pada hari itu. Lalu pikirkan cara yang lebih baik untuk pekerjaan esok hari. Ciptakan gagasan yang berbeda karena sesuatu yang berbeda akan lebih tampak menarik. Kumpulkan semua gagasan dan ide-ide tersebut. Dengan begitu, mahasiswa akan terbiasa memikirkan dan mencari ide-de atau gagasan yang baru.
Selain itu, mahasiswa juga harus jeli menangkap peluang yang ada di sekitarnya agar dapat mengembangkan keterampilannya (life skill) yang dimilikinya. Peluang-peluang itu dapat berupa dunia bisnis, seperti usaha bersama, menjadi tenaga kerja part-time, meluangkan waktu khusus di perpustakaan, membuat artikel/opini untuk dikirim ke media cetak, atau yang lainnya. Dengan menekuni dunia kerja sambil kuliah, mahasiswa mendapat keuntungan ganda, yaitu financial sekaligus mengasah keterampilannya (life skill).
Bagi seorang mahasiswa, mengenal dunia bisnis akan semakin mengasah mental bisnisnya serta semakin jeli melihat peluang-peluang yang ada di sekitarnya. Mahasiswa yang kreatif, akan lebih memilih berfikir dengan memaksimalkan fungsi otak, guna meraih apa yang diinginkannya. Mengenal dunia kerja lebih dini juga membuat mahasiswa mampu berkompetisi saat berada pada kenyataan di lapangan. Pengalaman dan keterampilan yang dimiliki akan mempermudah mereka menghadapi tantangan-tantangan yang menghadang. Kreatifitas yang akan lahir dari keterampilan itu juga akan semakin lengkap, dengan demikian masalah pengangguran yang selalu dialami oleh para sarjana-sarjana muda, karena sedikitnya lahan pekerjaan, akan teratasi dengan baik.
Kejelian terhadap peluang yang ada juga berguna ketika mahasiswa tidak mendapatkan kesempatan untuk bekerja di perusahaan. Artinya, mereka sudah mampu melirik peluang bisnis apa yang ada untuk menciptakan lapangan baru.
Namun ada satu faktor penting lagi yang harus dimiliki oleh mahasiswa yang kreatif, yaitu MOTIVASI. Walaupun banyak ide-ide atau gagasan yang dimiliki serta peluang usaha yang ada, semua itu masih tetap terkendala apabila tidak ada motivasi dari diri sendiri.
Namun sayang, tak banyak kita temui mahasiswa yang intelek sekaligus kreatif. Banyak mahasiswa yang hanya pintar dalam bidang akademis, tetapi tidak mampu menciptakan sesuatu yang baru sebagai aplikasi dari apa yang sudah diperolehnya selama menuntut ilmu di perguruan tinggi. Maka tidak mengherankan kalau perguruan tinggi (PT) yang setiap tahunnya melahirkan sarjana-sarjana ber-IPK di atas 3,0, namun tak dapat berkompetisi di lapangan. Ini dapat dilihat dengan semakin bertambahnya jumlah pengangguran dari kalangan sarjana. Mereka tidak mampu bersaing dengan baik untuk mendapatkan tempat pekerjaan. Tetapi, jika mahasiswa memiliki kreatifitas, merupakan sebuah nilai tambah untuk mendapatkan pekerjaan yang mereka inginkan.
Mahasiswa yang kreatif adalah mahasiswa yang senantiasa memiliki daya cipta terhadap sesuatu. Ia selalu memiliki gagasan atau ide-ide baru yang menarik. Di tangannya, sebuah kertas polos yang amat sederhana pun dapat di sulap menjadi sesuatu yang menarik dan mempunyai nilai jual. Oleh karena itulah banyak perusahaan-perusahaan yang lebih senang mempekerjakan mahasiswa atau sarjana yang kreatif.
Kreatif sendiri dapat dimiliki oleh setiap orang, bisa melalui bakat atau bawaan dari lahir. Artinya, orang tersebut memang sudah mempunyai bakat kreatif dalam mengerjakan segala sesuatu. Ada pula yang memiliki kreatif dari karena selalu mengasah dan melatih diri untuk kreatif.
Bagi orang-orang yang memang sudah sejak lahir memiliki bakat sebagai orang yang kreatif tentu idak mendapatkan masalah yang berarti. Namun, bagi orang yang tidak mempunyai bakat kreatif tersebut, maka ia harus rajin melatih dan mengasah ke-kreatifannya.
Banyak cara yang dapat dilakukan untuk menjadi mahasiswa yang kreatif, salah satunya adalah selalu memiliki gagasan atau ide-ide baru setiap hari. Seorang mahasiswa harus selalu berfikir untuk mendapatkan sesuatu yang baru (inovatif), apapun itu. Untuk membiasakan diri mencari gagasan atau ide-ide baru, dapat dilakukan dengan pada saat akhir jam kerja dengan merenung kira-kira 10 menit. Pikirkan apa saja yang telah dilakukan pada hari itu. Lalu pikirkan cara yang lebih baik untuk pekerjaan esok hari. Ciptakan gagasan yang berbeda karena sesuatu yang berbeda akan lebih tampak menarik. Kumpulkan semua gagasan dan ide-ide tersebut. Dengan begitu, mahasiswa akan terbiasa memikirkan dan mencari ide-de atau gagasan yang baru.
Selain itu, mahasiswa juga harus jeli menangkap peluang yang ada di sekitarnya agar dapat mengembangkan keterampilannya (life skill) yang dimilikinya. Peluang-peluang itu dapat berupa dunia bisnis, seperti usaha bersama, menjadi tenaga kerja part-time, meluangkan waktu khusus di perpustakaan, membuat artikel/opini untuk dikirim ke media cetak, atau yang lainnya. Dengan menekuni dunia kerja sambil kuliah, mahasiswa mendapat keuntungan ganda, yaitu financial sekaligus mengasah keterampilannya (life skill).
Bagi seorang mahasiswa, mengenal dunia bisnis akan semakin mengasah mental bisnisnya serta semakin jeli melihat peluang-peluang yang ada di sekitarnya. Mahasiswa yang kreatif, akan lebih memilih berfikir dengan memaksimalkan fungsi otak, guna meraih apa yang diinginkannya. Mengenal dunia kerja lebih dini juga membuat mahasiswa mampu berkompetisi saat berada pada kenyataan di lapangan. Pengalaman dan keterampilan yang dimiliki akan mempermudah mereka menghadapi tantangan-tantangan yang menghadang. Kreatifitas yang akan lahir dari keterampilan itu juga akan semakin lengkap, dengan demikian masalah pengangguran yang selalu dialami oleh para sarjana-sarjana muda, karena sedikitnya lahan pekerjaan, akan teratasi dengan baik.
Kejelian terhadap peluang yang ada juga berguna ketika mahasiswa tidak mendapatkan kesempatan untuk bekerja di perusahaan. Artinya, mereka sudah mampu melirik peluang bisnis apa yang ada untuk menciptakan lapangan baru.
Namun ada satu faktor penting lagi yang harus dimiliki oleh mahasiswa yang kreatif, yaitu MOTIVASI. Walaupun banyak ide-ide atau gagasan yang dimiliki serta peluang usaha yang ada, semua itu masih tetap terkendala apabila tidak ada motivasi dari diri sendiri.
Langganan:
Postingan (Atom)