JSC NEW

Membangun Database dengan Access 2007

MEMBUAT DATABASE PENJUALAN PADA KOPERASI

Bagaimana cara untuk memulai membuat database pada Ms.Access 2007 :

1.      Klik Start pilih Program lalu pilih Microsoft Access

2.      Setelah terbuka klik Blank Database, Pilih lokasi database di D:\ masukkan file name misalkan Aplikasi Penjualan barang di Koperasi kemudian klik “Create”. Maka kita sudah masuk ke Database yang akan dirancang.

 1.      Langkah selanjutnya kita harus membuat table, table-table yang kita buat yaitu :

a) Tabel_Barang

b) Tabel_Karyawan

c) Tabel_D_Penj

d) Tabel_H-Penj

 Oke langsung aja yah....

 a)      Tabel_Barang

Untuk membuat tabel barang caranya, klik Create pilih Table lalu save dengan nama Tabel_Barang lihat gambar dibawah :

Setelah itu kita mulai design table beserta menentukan field-fieldnya, caranya klik kanan pada Tabel_Barang kemudian pilih DesignView , dan tentukan Primary Key nya pada kode_barang seperti gambar dibawah ini :

Setelah dibuat Design nya, lalu klik kanan pada Tabel_Barang kemudian pilih open, lalu masukkan 10 database seperti gambar dibawah ini :

Setelah selesai selanjutnya kita buat Tabel_Karyawan :

b)      Tabel_Karyawan :

Buat tabelnya sama seperti diatas hanya lalu Desain Viewnya kita buat lagi, lihat gambar dibawah ini  :

Setelah dibuat klik kanan pada Tabel_Karyawan kemudian pilih open, lalu masukkan 10 database seperti gambar dibawah ini :

Setelah dibuat kita lanjut membuat tabel detail penjualan :

 

c)      Tabel_D_Penj

Buat tabel baru, kemudian DesignViewnya, buat seperti gambar dibawah ini :

Setelah dibuat klik kanan pada Tabel_D_Penj kemudian pilih Open, lalu masukkan 10 database seperti gambar dibawah ini :

Setelah dibuat, terus yang terakhir kita membuat tabel header penjualan :

 

d)      Tabel_H_Penj

Nah, kalian sudah ngerti kan tinggal saya kasih DesignViewnya nih, lihat gambar :

         Setelah itu masukkan 10 record databasenya, seperti gambar :

Nah, tabel sudah kita buat semua lalu langkah selanjutnya kita harus menghubungkan (Relationship) tabel-tabel tersebut :

Caranya adalah :

Buat relasi antara tabel-tabel tersebut dengan mengklik “Database Tool” dan “Relationship” kemudian akan muncul Show Tabel, setelah itu pilih semua tabel lalu klik Add, maka akan muncul tabel-tabel tersebut pada Relationship, seperti gambar dibawah ini :

Untuk membuat relasi drag Primary Key ke Kunci tamu pada tabel lain. Sesaat setelah melakukan drug dari Primary Key ke Kunci tamu di tabel lain, akan muncul jendela konfirmasi, klik Create. Lihat gambar dibawah ini :

 Relasikan tabel-tabel tersebut sehingga seperti gambar dibawah ini :

Maka tabel-tabel tersebut akan saling berhubungan ketika kita input transaksi.

Dibawah ini adalah tampilan tabel-tabel yang telah kita relasikan.

A)    Tabel Barang

 B)    Tabel Karyawan

 

C)    Tabel Header Penjualan

 

Selanjutnya untuk membuat operasi penghitungan transaksi pada tabel detail penjualan, kita harus membuat Query, caranya adalah :

1.      Klik Create, lalu pilih Query Design setelah itu pilih tabel detail penjualan lalu Klik Add klik Close

2.      Pada jendela Query buat Query seperti gambar dibawah ini :

 

3.      Pada kolom terakhir pada field ketikan “ Total_Harga = [Harga] * [Jumlah] “, maka setelah dijalankan hasilnya seperti gambar berikut :

 4.      Simpan Query dengan nama : query_d_penj

Aplikasi Chatting Berbasis GUI

import java.net.*;
import java.io.*;
import javax.swing.*;
import java.awt.*;
import java.awt.event.*;

class ChatServer extends JFrame{

JLabel lblPesan =  new JLabel  ("Kirim Pesan :");
TextArea taPesan=new TextArea(4,50);
JLabel lblBalasan = new JLabel ("Dari Teman  :");
TextArea taTeman=new TextArea(4,50);
JButton btnSend=new JButton("Send");
JButton btnClose=new JButton("Close Connection");
ServerSocket sktServer;
Socket conClient;

ObjectInputStream fromClient;
ObjectOutputStream toClient;
String s=null;
Container c;
 

public void sendData(){
           try{
                       toClient=new ObjectOutputStream(conClient.getOutputStream());
                       toClient.writeObject(taPesan.getText());
                       System.out.println(taPesan.getText());
                       taPesan.setText("");
               taPesan.requestFocus();
             
           }
           catch (EOFException ex){
                       ;
           }
           catch(NullPointerException npe){
                     JOptionPane.showMessageDialog(null, "Koneksi Belum Tersambung ! ",
                                 "Pesan", JOptionPane.ERROR_MESSAGE);
           }
           catch(SocketException se){
                     JOptionPane.showMessageDialog(null, "Koneksi Putus !",
                                 "Pesan", JOptionPane.ERROR_MESSAGE);
           }
           catch(IOException io){
                       System.out.println("IO Exception");
                       io.printStackTrace();
           }
}//end void sendData()


public void closeConnection(){
           try{
                     //toClient.writeObject("bye");
                     conClient.close();
                     conClient=null;
                     System.exit(0);
           }//end try
           catch (EOFException ex){
                       ;
           }
           catch(IOException io){
                       System.out.println("IO Exception");
                       io.printStackTrace();
           }
}//end closeConnection();

public ChatServer()throws IOException{
                     c = getContentPane();
                     c.setLayout (new FlowLayout());
                     c.add (lblPesan);
                     c.add (taPesan);
                     c.add (lblBalasan);
                     c.add (taTeman);
                     c.add (btnSend);
                     c.add (btnClose);
                       

           btnSend.addActionListener (new ActionListener(){
                       public void actionPerformed(ActionEvent evt){
                                   sendData();
                       }//end void actionPerformed
           });

           btnClose.addActionListener (new ActionListener(){
                       public void actionPerformed(ActionEvent evt){
                                   closeConnection();
                       }//end void actionPerformed
           });

}//end public ChatServer()

         public void terimaKoneksi() throws IOException{
             //sktServer=new ServerSocket(2000,1000);
                     sktServer=new ServerSocket(2000);
                     conClient=sktServer.accept();
                     //tunggu sampai client masuk melalui port 2000

                     //System.out.println("Tersambung dengan client " +
                                 //conClient.getInetAddress());

                     JOptionPane.showMessageDialog(null, "Tersambung dengan Client " +
                                 conClient.getInetAddress().toString(), "Pesan",
                                 JOptionPane.INFORMATION_MESSAGE);
                     sktServer.close();

                     try{
                                               
                                 fromClient=new ObjectInputStream(conClient.getInputStream());
                                 do{
                                             try{
                                                         s=(String) fromClient.readObject();
                                                         //System.out.println(s);
                                                         taTeman.setText(s);
                                             }//end try
                                             catch(ClassNotFoundException ex){
                                                         System.out.println("Error");
                                             }//end catch
                                 }//end do
                                 while (!s.equals("bye"));
                     }//end try
                     catch (EOFException ex){
                                 ;
                     }
                     catch (IOException io) {
                                 System.out.println("IO Exception");
                                 io.printStackTrace();
                     }
                     finally {
                                 System.out.println("Closed");
                                 conClient.close();
                     }//end finally
         }//end void terimaKoneksi()

         public static void main(String[] args) throws IOException
         {
                     ChatServer svr = new ChatServer();
                     svr.setTitle("Chatting - Server");
                     svr.setLocation (300,300);
                     svr.setSize(500,250);
                     svr.setVisible(true);          
                     svr.addWindowListener(new WindowAdapter(){
                                 public void windowClosing(WindowEvent ev){                              
                                             System.exit(0);
                                 }//end void
                     });
                     //supaya GUI muncul dulu & bisa terima koneksi, maka
                     //method terimaKoneksi() diletakkan di sini
                     svr.terimaKoneksi();

         }//end main
}//end class

--------------------------------------------------------------------------------

import java.net.*;

import java.io.*;

import javax.swing.*;

import java.awt.*;

import java.awt.event.*;

class ChatClient extends JFrame{

JLabel lblPesan =  new JLabel  ("Kirim Pesan :");

TextArea taPesan=new TextArea(4,50);

JLabel lblBalasan = new JLabel ("Dari Teman  :");

TextArea taBalasan=new TextArea(4,50);

JButton btnSend=new JButton("Send");

JButton btnOpen=new JButton("Open Connection");

JButton btnClose=new JButton("Close Connection");

Socket con=null;

ObjectOutputStream toServer;

ObjectInputStream fromServer;

String balasan=null;

String inputIPServer;

public void openConnection(){

           try{

                     //input dialog u/ memasukkan IP Address Chat Server

                     inputIPServer=JOptionPane.showInputDialog("Inputkan IP Server");

                     //koneksi ke port 2000 pada IP Address Server

                     con=new Socket(InetAddress.getByName(inputIPServer),2000);

                     toServer=new ObjectOutputStream(con.getOutputStream());

           }//end try

           catch (EOFException ex){

                       ;

           }

           catch(IOException io){

                       System.out.println("IO Exception");

                       io.printStackTrace();

           }

}//end openConnection();

public void sendData(){

           try{

                       toServer.writeObject(taPesan.getText());

                       taPesan.setText("");

               taPesan.requestFocus();

           }

           catch (EOFException ex){

                       ;

           }

           catch(IOException io){

                       System.out.println("IO Exception");

                       io.printStackTrace();

           }

}//end void sendData()

public void getData(){

           try{

                       fromServer=new ObjectInputStream(con.getInputStream());

                       balasan=(String) fromServer.readObject();

                       //System.out.println(balasan);

                       taBalasan.setText(balasan);

           }

           catch (ClassNotFoundException ex){

                       System.out.println("Error");

           }

           catch (EOFException ex){

                       ;

           }

           catch(IOException io){

                       System.out.println("IO Exception");

                       io.printStackTrace();

           }

}//end void getData()

public void closeConnection(){

           try{

                     toServer.writeObject("bye");

                     con.close();

                     con=null;

           }//end try

           catch (EOFException ex){

                       ;

           }

           catch(IOException io){

                       System.out.println("IO Exception");

                       io.printStackTrace();

           }

}//end closeConnection();

public ChatClient(){

           Container c = getContentPane();

           c.setLayout (new FlowLayout());

           c.add (lblPesan);

           c.add (taPesan);

           c.add (lblBalasan);

           c.add (taBalasan);

           c.add (btnOpen);

           c.add (btnSend);

           c.add (btnClose);

           btnOpen.addActionListener (new ActionListener(){

                       public void actionPerformed(ActionEvent evt){

                                   openConnection();

                       }//end void actionPerformed

           });

           btnSend.addActionListener (new ActionListener(){

                       public void actionPerformed(ActionEvent evt){

                                   sendData();

                                   getData();

                       }//end void actionPerformed

           });

           btnClose.addActionListener (new ActionListener(){

                       public void actionPerformed(ActionEvent evt){

                                   closeConnection();

                       }//end void actionPerformed

           });

   

           //pack();

}//end public ChatClient()

         public static void main(String[] args)

         {

                     ChatClient klien = new ChatClient();

                     klien.setTitle("Chatting - Client");

                     klien.setLocation (300,300);

                     klien.setSize(500,250);

                     klien.setVisible(true);         

                     klien.addWindowListener(new WindowAdapter(){

                                 public void windowClosing(WindowEvent ev){                                

                                             System.exit(0);

                                 }//end void

                     });

         }//main

}//class

Tugas pert 6

--------------------------------------------------------------------

alter trigger update_quo on detil_peminjaman
after insert
as
begin
declare @nim char (11)
declare @kode_buku numeric (18,0)
declare @no_pinjam char (11)
set @no_pinjam = (select no_peminjaman from inserted)
set @nim = (select mahasiswa from peminjaman where no_peminjaman = @no_pinjam)
set @kode_buku = (select id_buku from inserted)
exec update_quota @nim
exec update_buku @kode_buku

end

--------------------------------------------------------------------

alter procedure update_quota (@nim char(11))
as
begin
declare @jum int
--set @jum = (select quota_perpus from mahasiswa where nim = @nim)
update mahasiswa set quota_perpus = quota_perpus-1 where nim = @nim
end

--------------------------------------------------------------------

alter procedure update_buku (@id_buku numeric (18,0))
as
begin
update buku set jumlah = jumlah -1 where id = @id_buku
end

--------------------------------------------------------------------

insert into peminjaman values ('124', getdate(), '05410104001')

insert into detil_peminjaman values ('124', '1', '0')

--------------------------------------------------------------------

alter trigger cek_quotaMhs on detil_peminjaman
instead of insert
as
begin
declare @nim char (11)
declare @no_pinjam char (11)
declare @jumlah_quota int
declare @kode_buku numeric (18,0)
declare @denda numeric (18,0)
set @no_pinjam = (select no_peminjaman from inserted)
set @nim = (select mahasiswa from peminjaman where no_peminjaman = @no_pinjam)
set @jumlah_quota = dbo.jumlah_quotaMhs (@nim)
set @kode_buku = (select id_buku from inserted)
set @denda = (select denda from inserted)
if @jumlah_quota = 0
begin
exec hapus_peminjaman @no_pinjam
end
else if  @jumlah_quota >0
insert into detil_peminjaman values (@no_pinjam, @kode_buku, @denda )

end

--------------------------------------------------------------------
alter function jumlah_quotaMhs (@nim char (11))
returns int
as
begin
declare @jumlah int
set @jumlah = (select quota_perpus from mahasiswa where nim = @nim)
return @jumlah
end

--------------------------------------------------------------------

alter procedure hapus_peminjaman (@no_pinjam char(10))
as
begin
delete from peminjaman where no_peminjaman = @no_pinjam
end

--------------------------------------------------------------------

insert into peminjaman values ('298', getdate(), '05410104001')

insert into detil_peminjaman values ('298', '2', 0)

Jawaban Latihan (5)

-- No. 1
--procedure sp_GetMKPerDosen untuk menghitung seluruh data MK
create proc sp_GetMKPerDosen @nid as char(6)
as
begin
--menampilkan data MK berdasarkan dosen yang diinputkan
select distinct d.nama, mk.kode_mk, mk.nama, mk.sks, mk.semester
from mk, nilai n, dosen d
where mk.kode_mk = n.kode_mk and
n.nid = d.nid and
d.nid = @nid --'010103'

--deklarasi variabel untuk menampung jumlah MK berdasarkan dosen yang diinputkan
declare @jumlah as numeric;

--set nilai jumlah
set @jumlah = (select count(distinct mk.kode_mk)
from mk, nilai n, dosen d
where mk.kode_mk = n.kode_mk and
n.nid = d.nid and
d.nid = @nid) --'010103'
print 'Jumlah MK yang diambil dosen adalah ' + convert(char,@jumlah)
end

--eksekusi procedure sp_GetMKPerDosen
--cara 1
sp_GetMKPerDosen '010306'
--cara 2
exec sp_GetMKPerDosen '010103'

--hapus procedure sp_GetMKPerDosen
drop proc sp_GetMKPerDosen

--No. 2
--procedure sp_insertDosen untuk memasukan data dosen
create proc sp_insertDosen @nid as char(6), @nama as varchar(100)
as
begin
insert into dosen
values (@nid, @nama)
end

--lihat data dosen
select * from dosen

--eksekusi procedure sp_insertDosen
sp_insertDosen '123456','Edo Yonatan K.';

--lihat data dosen
select * from dosen

--hapus procedure sp_insertDosen
drop proc sp_insertDosen

--No. 3
--procedure sp_DnsertDosen untuk menghapus data dosen
create proc sp_DeleteDosen @nid as char(6)
as
begin
delete from dosen where nid = @nid
end

--lihat data dosen
select * from dosen

--eksekusi procedure sp_DeleteDosen
sp_DeleteDosen '123456';

--lihat data dosen
select * from dosen

--hapus procedure sp_DeleteDosen
drop proc sp_DeleteDosen

Jawaban Tugas Prak (5)

-- No. 1
--function fCekMhs untuk mengecek nama
alter function fCekMhs (@nama as varchar(100))
returns numeric
as
begin
--set nilai @jumlah
return (select count(*)
from mahasiswa
where nama = @nama)
end

--hapus function fCekMhs
drop function fCekMhs

create proc sp_GetNilaiMhs @nama as varchar(100)
as
begin
--deklarasi variabel untuk menampung jumlah mahasiswa yang terdaftar
declare @jumlah as numeric

--set nilai pada variabel jumlah dengan memanggil function fCekMhs
set @jumlah = dbo.fCekMhs(@nama)

--cek jika jumlah = 0 => data tidak ada, maka akan mengembalikan nilai -1
if @jumlah = 0
begin
return -1
end
else
begin
select m.nama, n.tugas, n.uts, n.uas
from mahasiswa m, nilai n
where m.nim = n.nim and
nama = @nama;
end
end

--hapus procedure sp_GetNilaiMhs
drop proc sp_GetNilaiMhs

--deklarasi variabel untuk menampung hasil return dan non return
declare @jumlahData INT;

--eksekusi procedure sp_GetNilaiMhs
exec @jumlahData = sp_GetNilaiMhs 'Cinta';
print @jumlahData;



--No. 2
begin transaction

--function fBuatNIM untuk format NIM
create function fBuatNIM (@nim as varchar(11))
returns varchar(11)
as
begin
return right(year(getdate()),2)+'41010'+right('0000'+@nim,4);
end

--hapus function fBuatNIM
drop function fBuatNIM

--procedure sp_InsertMhs untuk menghitung seluruh data MK
create proc sp_InsertMhs @nim_urut as varchar(11),@nama as varchar(100),@alamat as varchar(100),
@kota as varchar(50),@jns_kelamin as char(1),@sts_nikah as char(1)
as
begin
--deklarasi variabel untuk menampilkan jumlah mahasiswa
declare @jumlah as numeric;


--set nilai jumlah mahasiswa sebelum ditambahkan
set @jumlah = (select count(*) from mahasiswa);

--cetak jumlah mahasiswa sebelum ditambahkan
print 'jumlah data mahasiswa (sebelum)' + convert(char,@jumlah);

--query memasukkan data mahasiswa
insert into mahasiswa
values (dbo.fBuatNIM(@nim_urut), @nama, @alamat, @kota, @jns_kelamin, @sts_nikah)

--set nilai jumlah mahasiswa sesudah ditambahkan
set @jumlah = (select count(*) from mahasiswa);

--cetak jumlah mahasiswa sesudah ditambahkan
print 'jumlah data mahasiswa (sesudah)' + convert(char,@jumlah);
end

--eksekusi procedure sp_InsertMhs
sp_InsertMhs '58','Edo Yonatan K.','Gunung Sari Indah L. 39','Surabaya','P','B'

--hapus procedure sp_InsertMhs
drop proc sp_InsertMhs

--hasilnya ditampilkan dalam bentuk tabel
select * from mahasiswa

rollback transaction

About JSC Bojonegoro

Jefide Software Crew sebagai salah satu entitas bisnis di bidang Teknologi Informasi dan komunikasi memberikan  suatu   solusi   yang     lebih dari yang lain    untuk kepuasan klien. Jefide Software Crew, berkedudukan di Bojonegoro. Dengan moto “Innovative IT & Business Solution”kepuasan klien menjadi misi kami. Kami menawarkan solusi teknologi information & communication  (infocom) yang inovatif dan komprehensif untuk memberikan hasil kerja yang berkualitas handal (reliable), aman  (secure), dan sesuai kebutuhan (customized), tapi dengan harga yang sangat kompetitif. Kemampuan, penguasaan teknologi, dan pengalaman (portfolios) berkembang sangat signifikan. 

VISI

Visi kami adalah menjadi perusahaan terkenal yang mengedepankan kekuatan solusi  dan kompetensi di bidang teknologi informasi dan komunikasi untuk memberikan kepuasan stakeholders.

MISI

• Memberikan pelayanan terbaik demi tercapainya kepuasan pelanggan dengan jaminan kualitas pekerjaan, kecepatan, ketepatan, dan harga yang kompetitif.
• Meningkatkan kemampuan dan mengoptimalkan  pengelolaan sumber daya manusia yang unggul dan dapat dipercaya.
• Mengoptimalkan penggunaan teknologi yang handal (reliable), aman (secure), dan murah (low cost) menguntungkan.
• Membangun pusat riset dan pengelolaan portfolios perusahaan (library)
• Membangun kemitraan strategis dan bersinergi dengan klien maupun partner dengan prinsip saling menguntungkan.

KOMPETENSI

Sudah menjadi tekad kami untuk selalu memberikan layanan terbaik, melalui pengembangan keahlian dan profesionalisme SDM, serta melakukan inovasi teknologi serta solusi untuk mendukung tercapainya visi untuk menjadi yang terdepan di bidang jasa teknologi informasi.

about

Bisnis Software House

Bisnis software house adalah sekelompok orang atau individu atau perusahaan kecil yang melakukan bisnis dalam bidang pembuatan perangkat lunak (software) yang hasil produksinya bisa untuk client tertentu (seperti aplikasi intranet untuk sebuah company) , atau bersifat umum (seperti aplikasi untuk toko, apotik, rental mobil, dll) yang bisa digunakan oleh banyak client. Untuk Perkiraan kebutuhan dana awal dalam memulai usaha bisnis software house ini sekitar 25juta yang terdiri dari : komputer (Rp 16 juta), komunikasi (Rp 1 juta), internet (Rp 1 juta), promosi & marketing (Rp 2 juta), biaya lain (Rp 5 juta). Total sekitar Rp 25 juta.Ada beberapa yang perlu diperhatikan dalam usaha bisnis software house ini:

• Marketing(pemasaran) merupaka kekuatan utama untuk mendapatkan banyak client.

• Kepuasan pelanggan (client) berkaitan dengan produk dan layanan yang diberikan oleh software house. Termasuk pula di sini keaktifan pihak customer support dalam mem-follow up si client pasca penyerahan produk.

• Developer team (tim pengembang) yang handal: yakni para programmer yang ada di balik suatu produk/aplikasi. Dari tangan mereka lah, sebuah produk handal dihasilkan.

Tips untuk usaha software house.Untuk mendapatkan orderan/project bisa dilakukan dengan promosi lewat iklan di media cetak atau internet, hunting project di internet, metode jemput bola (langsung membuat proposal dan penawaran kepada calon client yang berpotensi membutuhkan produk/jasa IT).Apabila kita mempunyai skill namun modal yang kita punya sangatlah minim kita bisa melakukan "kumpul bareng sesama SDM IT” yaitu membuat usaha gotong royong, masing-masing membawa "sumbangan modal" seperti komputer dan lain-lain, sedangkan output dari hasil project bisa diatur seproporsional mungkin yang menyenangkan semua pihak.

home

Tugas Latihan Prak PBD per 4

--function fMhs untuk mengambil data mahasiswa berdasarkan kota
create function fMhs (@kota as varchar(50))
returns table
as
return (select nim,nama,alamat,kota,jns_kelamin,sts_nikah
from mahasiswa
where kota=@kota);

--menghapus function fMhs
drop function fMhs

--function fCetak untuk mencetak nama mahasiswa dan nim mahasiswa
create function fCetak (@nim as char(11), @nama as varchar(100))
returns varchar(100)
as
begin
return ' ' +@nama + '(' + @nim + ')'
end;

--menghapus function fCetak
drop function fCetak

--function fHitungMhs untuk menghitung jumlah mahasiswa
create function fHitungMhs (@kota as varchar(50))
returns numeric
as
begin
return (select count(*)
from mahasiswa
where kota = @kota);
end;

--menghapus function fCetak
drop function fHitungMhs


-- Jawaban Latihan Pertemuan 4 PBD

--deklarasi cursor cKota (jangan lupa deallocatenya juga)
declare cKota cursor for
select distinct kota from mahasiswa;

--deklarasi variabel kota untuk menampung data kota
declare @kota as varchar(50);

--open cursor cKota
open cKota;

--transfer data kota ke dalam variabel kota
fetch next from cKota into @kota;

--looping data kota
while @@fetch_status = 0
begin
--cetak data kota
print 'Kota : '+@kota;

--## ADA cursor cMhs, sehingga terdapat cursor di dalam cursor ##
--deklarasi cursor cKota (jangan lupa deallocatenya juga)
declare cMhs cursor for
select nim, nama from dbo.fMhs (@kota);

--deklarasi variabel kota untuk menampung data kota
declare @nim as char(11),
@nama as varchar(100);

--open cursor cMhs
open cMhs;

--transfer data nim, nama ke dalam variabel nim, nama
fetch next from cMhs into @nim, @nama;

--looping data nim dan nama
while @@fetch_status = 0
begin
--cetak data nim dan nama
print dbo.fCetak(@nim,@nama);

--transfer data nim dan nama selanjutnya ke dalam variabel nim, nama
fetch next from cMhs into @nim, @nama;
end;

--deklarasi variabel untuk jumlah mahasiswa berdsarkan kota
declare @jum_mhs as numeric;

--set nilai @jumlah
set @jum_mhs = dbo.fHitungMhs(@kota);

print ' >> jumlah MHS : '+ convert(char,@jum_mhs) + 'orang';

--close cursor cMhs
close cMhs

--buat deallocate untuk menghapus cursor cKota
deallocate cMhs;

--###############################################################

--transfer data kota selanjutnya ke dalam variabel kota
fetch next from cKota into @kota;

end;

--close cursor cKota
close cKota;

--buat deallocate untuk menghapus cursor cKota
deallocate cKota;

Tugas Pert 4

--buat deallocate untuk menghapus cursor cMhs
deallocate cMhs

--function fNA untuk menghitung nilai akhir
create function fNA (@tugas as numeric(18,0),@uts as numeric(18,0),@uas as numeric(18,0))
returns numeric(18,0)
as
begin
    return (0.3*@uts+0.3*@uas+0.4*@tugas);
end;

--menghapus function fMhs  
drop function fNA

--function fHitungBobot untuk menghitung bobot
alter function fHitungBobot (@bobot as numeric (18,2), @sks as numeric(18,0))
returns varchar(100)
as
begin
    return (@bobot*@sks);
end;

--menghapus function fCetak
drop function fCetak

--function fHitungIPmk masih belum jelas sehingga tidak bisa dibuat

--function fHitungIPK untuk menghitung IPK
create function fHitungIPK (@jumlah_bobot as numeric (18,2),@jumlah_sks as numeric (18,2))
returns numeric
as
begin
        return (@jumlah_bobot / @jumlah_sks);
end;

--menghapus function fCetak
drop function fHitungIPK
--deklarasi cursor cMhs (jangan lupa deallocatenya juga)
declare cMhs cursor for
select nim, nama from mahasiswa

    --deklarasi variabel untuk menampung data mahasiswa
    declare @nim as char (11),
            @nama as varchar (100);

    --deklarasi variabel untuk menyimpan data nilai akhir dan sks
    declare @tugas as numeric(18,0),
            @uts as numeric(18,0),
            @uas as numeric(18,0),
            @na as numeric (18,2),
            @sks as numeric(18,0);
   
    --deklarasi variabel tambahan untuk membantu proses penghitungan IPK
    declare @bobot as numeric (18,2),
            @jumlah_bobot as numeric (18,2),
            @jumlah_sks as numeric (18,2),
            @ipk as numeric (18,2)

    --set nilai awal pada variabel tambahan
    --set @jumlah = 0
    set @jumlah_bobot = 0
    set @jumlah_sks = 0

    --open cursor cMhs
    open cMhs

        --transfer data mahasiswa ke dalam variabel nim dan nama
        fetch next from cMhs into @nim, @nama
       
        --cetak garis awal pembuka
        print '------------------'

        --looping data mahasiswa
        while @@fetch_status = 0
            begin
               
                --deklarasi cursor cNilai (jangan lupa deallocatenya juga)      
                declare cNilai cursor for
                    select n.tugas, n.uts, n.uas, mk.sks
                    from mahasiswa as m, nilai as n, mk
                    where m.nim = n.nim and
                        n.kode_mk = mk.kode_mk and
                        n.nim = @nim
               
                --open cursor cMhs
                open cNilai

                    --transfer data nilai ke dalam variabel nilai akhir dan sks
                    fetch next from cNilai into @tugas, @uts, @uas, @sks

                    --looping data nilai akhir dan sks
                    while @@fetch_status = 0
                    begin
                        --hitung nilai akhir
                        set @na = dbo.fNA(@tugas, @uts, @uas);
   
                        -- cek nilai akhir untuk mendapatkan nilai bobot
                        if @na>=80 and @na<=100 --if @na between 80 and 100 juga bsa...
                            begin
                                set @bobot = 4;
                            end
                        else if @na>=75 and @na<=79
                            begin
                                set @bobot = 3.5;
                            end
                        else if @na>=65 and @na<=74
                            begin
                                set @bobot = 3;
                            end
                        else if @na>=60 and @na<=64
                            begin
                                set @bobot = 2.5;
                            end
                        else if @na>=55 and @na<=59
                            begin
                                set @bobot = 2;
                            end
                        else if @na>=44 and @na<=59
                            begin
                                set @bobot = 1;
                            end
                        else if @na>=0 and @na<=43
                            begin
                                set @bobot = 1;
                            end

                    --proses penghitungan IPK
                    set @jumlah_bobot = @jumlah_bobot + dbo.fHitungBobot(@bobot, @sks);
                    set @jumlah_sks = @jumlah_sks + @sks;
                    set @ipk = dbo.fHitungIPK(@jumlah_bobot,@jumlah_sks);

                    --transfer data nilai selanjutnya ke dalam variabel nilai akhir dan sks
                    fetch next from cNilai into @tugas, @uts, @uas, @sks

                    end
   
                --close cursor cNilai
                close cNilai

                --buat deallocate untuk menghapus cursor cNilai
                deallocate cNilai

                    --cetak data mahasiswa
                    print 'Nim  '+@nim;
                    print 'Nama '+@nama;
                    print 'IPK  '+convert (char,@ipk)
                    print '------------------'
                    set @ipk = 0
                    set @jumlah_bobot = 0
                    set @jumlah_sks = 0

                --transfer data mahasiswa ke dalam variabel nim dan nama
                fetch next from cMhs into @nim, @nama
            end

    --close cursor cMhs
    close cMhs

WIrausaha Muda Mandiri

Mahasiswa sukses adalah mahasiswa yang selalu mempunyai dan menemukan ide/gagasan untuk pengembangan karirnya. Terlebih-lebih jika mahasiswa tersebut mempersiapkan diri untuk menjadi seorangentrepreneur sukses, maka kreatifitas dan inovasi adalah kata kuncinya. Beberapa ide wirausaha dibawah ini yang mungkin sederhana namun ”membumi” dapat dijadikan sebagai pedoman dalam memulai menjadi seorangEntrepreneur Sukses.

Ide ke-1 : Jual keunikan

Jika anda tergolong mahasiswa kreatif dan inovatif, pasti banyak ide atau hal baru yang dapat Anda jadikan peluang usaha. Tidak sedikit usaha baru dimulai dari penemuan jenis produk, teknologi, sistem, dan program baru. Jika berhasil menciptakan sebuah keunikan, segera anda ambil hak paten dan menjualnya. Penemuan baru biasanya sangat berpeluang untuk menembus pasar, apalagi khas, unik, dan dibutuhkan orang banyak.

Contoh nyata, teman-teman saya membuat kaos-kaos unik dengan kata-kata yang penuh motivasi. Kaos tersebut memang biasa saja kalau dilihat sepintas, tapi karena ada keunikannya dengan kata-kata yang penuh inovasinya, bisa menambah nilai jual. Tentunya keuntungan bisa jauh lebih besar dengan keunikan yang mereka jual.

Ide Ke- 2 :  Duplikasi Usaha Lain

Bagi Anda yang merasa kurang kreatif dan inovatif, jangan putus asa. Percayalah, ide usaha tersebar dimana-mana, bahkan di depan mata. Anda harus selalu perlu membaca peluang, mengukur potensi, dan berani mengambil resiko. Misalnya, di sekitar Anda ada rumah makan bakmi yang cukup laris. Apa salahnya Anda bersaing secara sehat di tenpat yang sama dengan produk yang sama. Anda cukup menduplkikasi usaha tersebut, tapi harus memberikan nilai tambah kepada konsumen, seperti pelayanan, harga, kecepatan, keramahan. Contoh pelayanan yang lebih memuaskan kepada konsumen adalah memberikan air teh gratis kepada konsumen atau memberikan porsi daging yang lebih banyak di banding pesaing anda.

Ide Ke-3 : Usaha Fasilitas tambahan

Selain menduplikasi, Anda juga bisa membuka usaha dengan memberikan usaha fasilitas tambahan, tapi ini harus dengan sedikit sentuhan kreatifitas. Misalnya, tetangga membuka warnet, maka anda masih bisa menyainginya dengan tambahan fasilitas atau memperluas penawaran yang ada. Anda bisa mendirikan warnet di lokasi sama.

Hampir setiap waktu ada saja jenis usaha yang trend, seperti sekarang ini zamannya penyewaan komputer untuk bermain game(game zone). Dengan sedikit fasilitas tambahan, anda pun bisa memiliki usaha dan siap untuk berhasil. Misalnya, Anda bisa menyewa tempat di sekitar tempat penyewaan game zone tersebut dengan menjual minuman yang lagi trend sekarang ini, Bubble Tea. Itu sangat cocok dengan pangsa pasar Bubble Teadan game zone untuk pangsa pasar  anak sekolah.

Ide Ke-4 : Jual Keterampilan

Anda sendiri pun dapat menjual keterampilan yang dimiliki. Jika bisa menggunting rambut, Anda bisa membuka salon. Dengan sedikit sentuhan yang berbeda dengan salon-salon lainnya, pasti salon Anda akan ramai di kunjungi konsumen. Bagi Anda yang mahir mengetik 10 jari, tidak ada salahnya membuka usaha jasa pengetikan, seperti skripsi, naskah, makalah, dan lain-lain yang kemudian bisa Anda kembangkan dengan menerima jasa penerjemahan (translate).

Ada banyak usaha yang bisa anda  buka berdasarkan keterampilan anda, yakinlah anda punya potensi, punya keterampilan dan punya harapan besar untuk sukses menjadi seorang entrepreneur, meskipun sebagaientrepreneur pemula..mulailah belajar menghasilkan income melalui keterampilan sendiri semisal memberikan privat bahasa  inggris, komputer, matematika, musik, menyanyi atau jasa pengetikan seperti yang disampaikan diatas.

 Ide Ke-5 : Menjadi Agen

Anda bisa membuka kantor keagenan, baik suatu produk maupun jasa. Banyak sekali produk dan jasa yang sangat memerlukan agen. Selain menjadi agen suatu produk, Anda juga bisa menjadi agen yang menyediakan jasa, seperti agen isi ulang air, isi ulang pulsa,  penyalur pembantu rumah tangga, agen modeling/foto model, agen iklan, dan lain-lain.

Ide Ke-6 : Jual Barang Bekas (second)

Masih sedikit orang yang peka dengan usaha ini. Barang second, terutama dengan nilai historis yang sangat tinggi, biasanya punya harga yang sangat tinggi pula. Namun, menjual barang bekas (second) ini harus di lakukan dengan teratur dan terencana. Anda bisa membeli suatu barang disuatu tempat dengan harga murah dan menjualnya ditempat lain dengan harga yang lebih tinggi. Anda juga bisa menjual barang bekas khusus komputer dengan cara membeli komputer rusak dengan harga murah. Kemudian dengan menggunakan orang yang mengerti perbaikan komputer, Anda bisa menjual komputer yang sudah di perbaiki itu dengan harga yang lebih tinggi. Demikian pula dengan barang bekas, seperti kamera, motor, dan lain-lain.

Ide Ke-7 : Buka Kantor

Bagi anda yang memiliki keterampilan/keahlian segera buka kantor sendiri. Jangan takut masalah modal dan SDM. Anda bisa mengajak kolega atau teman seprofesi untuk patungan modal dan membuka kantor tersebut. Juallah skill dan pengalaman anda. Jika reputasi bagus dan relasi banyak (network), jangan kuatir kekurangan klien. Anda bisa memulai mendirikan kantor dari rumah atau lebih dikenal dengan sebutan home office. Cukup dengan menyediakan satu komputer, satu telepon, faxs, meja, dan kursi tamu.

Ide Ke-8 : Beli Usaha Pola Waralaba

Bagi anda yang memiliki modal besar, tapi tidak mau repot untuk memikirikan sesuatu usaha yang baru, alternatif waralaba (franchise) dapat dipilih. Waralaba adala jenis usaha yang relatif terstandartisasi dengan baik. Memang butuh kejelian yang tinggi untuk menilai waralaba mana yang bagus dan cocok untuk Anda. Saran saya, carilah usaha waralaba yang memiliki track record yang baik dan sudah teruji di lapangan. Kini semakin banyak bermunculan waralaba, dari yang membutuhkan modal besar hingga yang membutuhkan modal kecil.

Ide Ke-9 :Usaha Bersama

Kadang usaha akan lebih bagus jika didirikan dan di kelola bersama-sama. Misalnya Anda pintar pemrograman komputer, tapi anda memiliki sedikit teman, sementara teman anda memiliki banyak teman dan punya relasi yang luas dan membutuhkan jasa pemrograman, anda bisa saja membuka usaha jasa pemrograman (software house). Anda yang mengerjakan pekerjaannya, sedangkan teman anda yang mencari order. Dari kelebihan masing-masing inilah bisa memperkuat suatu usaha baru sekaligus membesarkannya.

Ide Ke-10 : Jalankan Direct Selling/Multi Level Marketing

Usaha ini menurut saya cukup prospektif. Modalnya murah meriah. Selain itu didukung pula oleh produk yang bagus, sistem pemasaran, pelatihan, dan jenjang karir. Memang kita tidak menutup mata banyak sekali orang yang alergi atau anti terhadap Multi Level Marketing (MLM). Biasanya trauma oleh kegagalan, seperti uangnya habis di MLM. Itu biasanya di sebabkan bisnis MLM dengan skema piramid atau money game yang berkedok MLM. Waspadalah dan hindari bisnis dengan skema piramid atau money game yang mengaku-aku MLM. Menurut saya, MLM (sering juga di sebut dengan people franchise) yang murni sangat menarik. Bahkan sebagai perusahaan MLM memberikan kesempatan kepada kita untuk mendirikan perusahaan sendiri (authorized distributor atau stockist). Kita tidak perlu terlalu alergi dengan informasi mengenai MLM, kadang-kadang informasi yang di berikan oleh MLM sangatlah menarik. Bukankah untuk menjadi seorang wirausaha yang sukses harus selalu belajar, belajar dan belajar serta memiliki banyak teman.

Itulah sedikit ide-ide usaha yang dapat digunakkan untuk membuka usaha. Namun, tidak menutup kemugkinan ada ide-ide lain yang dimiliki teman-teman semua. Yang perlu disadari, sebuah ide hanyalah merupakan suatu ide, Ide akan berhasil jika Anda berani merealisasikannya, buanglah ketakutan dan kata gagal dari dalam diri anda. Anda harus selalu ingat, jika anda mengalami kegagalan, katakan dengan keras, ”Saya hanya sedang melakukan pembelajaran yang sangat luar biasa berharganya bagi diri saya sendiri”, Jangan putus asa. Segeralah bangkit dan belajar dari kegagalan.

Dalam bukunya, Robert T. Kiyosaki menjawab pertanyaan berikut, ”Kenapa Anda tetap menganjurkan orang untuk menjadi usahawan, padahal catatan statistik yang berhasil hanya sekitar 10% ?” Lalu ia menjawab, ”Saya percaya dengan statistik di bawah 10%, maka untuk sukses usaha, Anda harus siap untuk setidaknya berpeluang 9 kali gagal sebelum mungkin mendapatkan 1 keberhasilan”. Itu bukan ’gagal’, melainkan ’belum berhasil’ dan menurut Abraham Lincoln ”Itu Cuma terpeleset dan aku bukan jatuh”.

news