Cara Membuat Database Menggunakan Oracle Sql Developer

1. Buka commandprompt atau cmd

2. Buat username dan password untuk mengakses database yang akan dibuat nanti. berikut cara membuat username dan password nya

• ketik di cmd "sqlplus / as sysdba"

setelah itu tekan enter lalu hasilnya akan muncul seperti ini

• lalu ketik "create user penjualan indentified by 12345678;"

Noted : ada hal yang harus di perhatikan yaitu 

1. user penjualan. artinya kita membuat username bernama penjualan
2. identified by 12345678. artinya password untuk username yang dibuat adalah 12345678

jadi pada perintah ini kita membuat user dengan username bernama penjualan dengan password nya adalah 12345678

• lalu ketik "grant all privileges to penjualan;"

Noted : perhatikan kembali pada perintah ini

perintah ini artinya memberi akses penuh kepada user penjualan yang sudah dibuat untuk membuat database di oracle sql developer nanti nya. (Mohon di koreksi jika salah)

Sejauh ini kita sudah berhasil membuat Username dan Password yang akan kita gunakan untuk membuat database di oracle sql developer.

2. Langkah berikutnya yaitu buka sql developer nya

setelah kamu buka ikut langkah berikut :

• Klik tanda + berwarna hijau di pojok kiri atas

• Setelah diklik akan muncul tampilan seperti dibawah ini

• Isi name dengan nama database yang akan kamu buat. untuk username dan password sesuaikan dengan yang tadi sudah kita buat di cmd. untuk hostname, port dan sid kita biarkan default saja

Noted : setelah itu klik tombol test. jika berhasil dan tidak ada masalah akan muncul status susccess di pojok kiri bawah.

Setelah kitu Klik tombol save dan connect

Setelah itu kita bisa membuat database sesuai kebutuhan yang kita inginkan

Sekian infromasi yang bisa saya berikan. terimakasih banyak ..

Tutorial Membuat Project Menjadi Setup atau File.exe di VB.net

1. Langkah pertama buka VB.net nya, saya menggunakan versi 2010. Lalu pilih New Project à other project type à setup and deployment à Visual Studio Installer Untuk Penyimpanan nya bebas dimana saja.

2. Setelah itu akan muncul seperti tampilan di bawah ini . kemudian pada Application Folder klik kanan lalu pilih Add --> File 

3. Setelah itu pilih file yang dibutuhkan. File terletak di folder debug di project yang telah kamu buat.

4. Setelah itu akan muncul seperti gambar di bawah ini 

5. Setelah itu klik pada User's Desktop lalu klik kanan pada sebelah kanan project yang kosong, lalu pilih create new shortcut. Lalu Pilih Application Folder dan pilih file yang berformat .exe

6. Pada User's Program Menu lakukan cara yang sama seperti No.5

7. Pada Jendela properties ganti Author dan Manufacture sesuai dengan nama yang kalian inginkan

8. Jika sudah maka Klik build lalu pilih build setup2 tunggu prosesnya sampai selesai. jika sudah sukses maka file setup sudah bisa di install di laptop atau PC kita ataupun orang lain.

Sekian penjelasan Tutorial Membuat Project Menjadi Setup atau File.exe di VB.net. Mohon maaf bila ada kekurangan. Terimakasih

Tutorial Install VB 6.0 (Visual Basic 6.0)

Menurut Andi (2002) microsoft Visual Basic 6.0 adalah bahasa pemrograman yang digunakan untuk membuat aplikasi Windows yang berbasis grafis (GUI-Grapical User Interface). Microsoft Visual Basic merupakan event-driven programming (pemrograman terkendali kejadian) artinya program menunggu sampai adanya respon dari pemakai berupa event atau kejadian tertentu (tombol diklik, menu dipilih, dan lain-lain).



berikut langkah-langkah instalasi visual basic 6.0



1. pertama extrack file dengan cara klik kanan lalu pilih "extrack here"

2. Setelah di extrack buka folder vb 6.0 lalu double klik setup

3. setelah itu pilih run the program without getting help

4. maka akan muncul tampilan seperti gambar dibawah lalu pilih next dan i accept the aggrement lalu klik next lagi 

5. setelah itu meminta memasukan serial numbernya. untuk serial number ada di folder instalasi vb 6.0 yang sudah di extrack atau silahkan ikuti gambar di bawah. untuk nama silahkan isi bebas saja

6. setelah itu pilih install visual basic 6.0 enterprise edition dan klik next

7. pilih dimana akan menyimpan instalasi vb 6.0 atur secara default saja atau jika ingin dipindahkan tinggal klik browser. jika sudah klik next.

8. selanjutnya akan muncul tampilan seperti dibawah ini klik continue dan setelah itu akan muncul tampilan kembali klik OK

9. tunggu proses installasi nya sampai muncul pilihan typical atau costum. pilih yang typical saja agar settingan nya default. setelah pilih typical lalu akan muncul tampilan selanjutnya dan pilih yes.

10. setelah itu kita tunggu proses instalasi selanjutnya sampai selesai jika sudah sampai 100% maka vb 6.0 sudah bisa digunakan

NOTE : buat teman-teman yang belum mempunyai mentahan vb 6.0 untuk di install silahkan download disini. terimakasih.

Konfigurasi JDK yang tidak bisa dicompile di cmd

Sebelum compile tentunya harus sudah terinstall JDK nya di laptop/pc kalian masing2. JDK yang saya gunakan adalah versi 1.7.0 Sebelum nya tidak bisa di compile karna proses installasi belum sempurna. agar bisa di compile lakukan cara berikut :

1. Klik kanan pada my computer lalu pilih properties

2. Lalu pilih Advance System Setting

3. Setelah itu pilih Environment Variable

4. Lalu pilih bagian Path dan Klik Edit

5. Setelah itu copy paste kan alamat penyimpanan JDK yang sudah di install ke variable value

setelah di copy paste tambahkan tanta ";" titik koma setelah "\bin"
jika sudah biasanya JDK akan sudah bisa di compile menggunakan CMD

Sekian yang bisa saya sharing untuk kurang nya saya mohon maaf

Memunculkan Data Environtment yang hilang pada VB 6.0

Aga aneh nih ya, di vb 6.0 masalah buat data report itu harus pake data environtment nya dulu. Kadang di beberapa pc/laptop itu suka ga ada data environtment nya jadi gimana kalo mau buat reportnya kalo ga ada data environtmentnya? kata nya sih sebabnya gara2 installnya ga sempurna jadi ga ada data environtment nya. tapi ada ko cara buat nampilin nya. nih kaya gini caranya.




Sebelum dipraktekin langkah-langkah nya, pastiin dulu bahwa di pc/laptop sudah terdapat file MSDE.DLL dan MSDERUN.DLL. Caranya, buka direktori ini:

C:\Program Files (x86)\Common Files\DESIGNER

ATAU

C:\Program Files\Common Files\DESIGNER

Di dalam folder DESIGNER harus udah ada MSDE.DLL dan MSDERUN.DLL.




Kalo udah ada, lanjutin ke langkah-langkah ini:




1. Buka Command Prompt : ketik di kolom search ‘command prompt’, klik kanan pada Command Prompt, klik ‘Run as administrator’.









2. Ketik: regsvr32 “C:\Program Files(x86)\ Common Files\DESIGNER\msde.dll”, Enter.

Bila msde.dll ada di direktori 'Program Files' aja (tanpa (x86)), maka ketik: regsvr32 “C:\Program Files\ Common Files\DESIGNER\msde.dll”, Enter.









3. Buka Ms. VB 6 di pc/laptop . Klik menu Project, Components, pilih tab Designer, centang Data Environment, OK.














4. Data Environment udh muncul sebagai submenu Project, tapi masih belum berfungsi. Selanjutnya, klik menu Project, References, Browse, cari file MSDE.DLL dan MSDERUN.DLL di direktori DESIGNER yang udah dijelasin sebelumnya, klik MSDE.DLL, Open.











Ulangi langkah di atas untuk file MSDERUN.DLL.









5. ini hasilnya, harusnya sih berhasil hehe. selamat ngulik guys ...

Program zodiak menggunakan pascal

Haloo guys..
kali ini gue mau share tentang program zodiak yang di buat pake program pascal nih..
btw program pascal itu ada 2 aplikasi nya
yang pertama yang versi windows alias turbo pascal
sedangkan yang kedua itu versi dos nya..

sekilas ga ada perbedaan sih sama aja cuman beda di tampilan nya doang.
kalo gue sih pake yang dos nya..
buat pemakaian sih sesuai selera kalian aja lebih seneng pake versi dos atau turbo pascal

nah langsung aja deh ini syntak nya program zodiak menggunakan pascal


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


program zodiakdanramalan;
uses crt;

var
   no, tgl, bln, thn : integer;
   ramalan, nama     : string;

begin
   clrscr;
   writeln('        Welcome to My Blog');
   writeln('        Zodiak dan Ramalan');
   writeln('-------------------------------------------');
   writeln('');
   writeln('   Nama    : Fariz Achmad Fauzi');
   writeln('   NIM     : 153213046');
   writeln('   Jurusan : Managenen Informatika');
   writeln('   Semester: 1(Ganjil)');
   writeln('-------------------------------------------');
   writeln('');


      write('Nama                  : '); readln(nama);
      write('Bulan Lahir (angka)   : '); readln(bln);
   begin
      if(bln=1) then
       begin
          writeln('January');
          write('Tanggal Lahir  : '); readln(tgl);
          if (tgl<=20) then
           writeln(   'Zodiak anda Capricorn');
          if(tgl>=21)then
           writeln('Zodiak anda Aquarius');
           writeln('');
           write('Ingin tahu ramalan Capricorn/Aquarius? ketik(c= capricorn, a= aquarius) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
         begin
           if(ramalan='c') then
            begin
            writeln(' Karakter Capricorn : ');write
            writeln('1. Gengsi tinggi');
            writeln('2. Rajin');
            writeln('3. Pendiam');
            writeln('4. Materialis');
            writeln('5. Teguh Pendirian');
            end;
           if(ramalan='a')then
            begin
            writeln(' Karakter Aquarius : ');
            writeln('1. Jenius');
            writeln('2. Objektif');
            writeln('3. Tenang');
            writeln('4. Cepat Mengerti');
            end;
        end;
       end;
   begin
      if(bln=2) then
       begin
          writeln('Febduari');
          write('Masukan Tanggal Lahir anda : '); readln(tgl);
          if (tgl<=20) then
          writeln('Zodiak anda Aquarius');
          if(tgl>=21) then
          writeln('Zodiak anda Pisces');
          writeln('');
           write('Ingin tahu ramalan Aquarius/Pisces? ketik(a= aquarius, p= pisces) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
         begin
           if(ramalan='a') then
            begin
            writeln(' Karakter Aquarius : ');
            writeln('1. Jenius');
            writeln('2. Objektif');
            writeln('3. Tenang');
            writeln('4. Cepat Mengerti');
            end;
           if(ramalan='p')then
            begin
            writeln(' Karakter Pisces : ');
            writeln('1. Praktis');
            writeln('2. Sosial tinggi');
            writeln('3. Pemimpi');
            writeln('4. Penasaran');
            end;
        end;
       end;
   begin
      if(bln=3) then
       begin
          writeln('Maret');
          write('Masukan Tanggal Lahir anda : '); readln(tgl);
          if(tgl<=20) then
          writeln('Zodiak anda Pisces');
          if(tgl>=21) then
          writeln('Zodiak anda Aries');
          writeln('');
           write('Ingin tahu ramalan Pisces/Aries? ketik(p= pisces ar= aries) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='p') then
            begin
            writelnwriteln(' Karakter Pisces : ');
            writeln('1. Praktis');
            writeln('2. Sosial tinggi');
            writeln('3. Pemimpi');
            writeln('4. Penasaran');
            end;
           if(ramalan='ar')then
            begin
            writeln(' Karakter Aries : ');
            writeln('1. Lincah');
            writeln('2. Emosi Labil');
            writeln('3. Energik');
            writeln('4. Agresif');
            end;
        end;
       end;
   begin
      if(bln=4) then
      begin
         writeln('April');
         write('Masukan Tanggal Lahir anda : '); readln(tgl);
         if(tgl<=20) then
         writeln('Zodiak anda aries');
         if(tgl>=21) then
         writeln('Zodiak Anda Taurus');
         writeln('');
           write('Ingin tahu ramalan Aries/Taurus? ketik(ar= aries t= taurus) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='ar') then
            begin
            writeln(' Karakter Aries : ');
            writeln('1. Lincah');
            writeln('2. Emosi Labil');
            writeln('3. Energik');
            writeln('4. Agresif');
            end;
           if(ramalan='t')then
            begin
            writeln(' Karakter Taurus : ');
            writeln('1.Matearlis');
            writeln('2. Keras Kepala');
            writeln('3. Setia');
            writeln('4. Ramah');
            writeln('5. Sabar');
            end;
         end;
      end;
   begin
      if(bln=5) then
       begin
          writeln('Mei');
          write('Masukan Tanggal Lahir anda : '); readln(tgl);
          if(tgl<=20) then
          writeln('Zodiak anda Taurus');
          if(tgl>=21) then
          writeln('Zodiak anda Gemini');
          writeln('');
           write('Ingin tahu ramalan Taurus/Gemini? ketik(t= taurus g= gemini) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='t') then
            begin
            writeln(' Karakter Taurus : ');
            writeln('1.Matearlis');
            writeln('2. Keras Kepala');
            writeln('3. Setia');
            writeln('4. Ramah');
            writeln('5. Sabar');
            end;
           if(ramalan='g')then
            begin
            writeln(' Karakter Gemini : ');
            writeln('1. Pandai');
            writeln('2. Lincah');
            writeln('3. Labil');
            writeln('4. Gugup');
            writeln('5. Jiwa Sosial');
            end;
         end;
       end;
   begin
      if(bln=6) then
       begin
          writeln('Juni');
          write('Masukan Tanggal Lahir anda : ');readln(tgl);
          if(tgl<=20) then
          writeln('Zodiak anda Gemini');
          if(tgl>=21) then
          writeln('Zodiak anda Cancer');
          writeln('');
           write('Ingin tahu ramalan Gemini/Cancer? ketik(g= gemini, can= cancer) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='g') then
            begin
            writeln(' Karakter Gemini : ');
            writeln('1. Pandai');
            writeln('2. Lincah');
            writeln('3. Labil');
            writeln('4. Gugup');
            writeln('5. Jiwa Sosial');
            end;
           if(ramalan='can')then
            begin
            writeln(' Karakter Cancer : ');
            writeln('1. Setia');
            writeln('2. Perhatian');
            writeln('3. Labil');
            writeln('4. Sentimen');
            writeln('5. Ingatan Kuat');
            end;
         end;
       end;
   begin
      if(bln=7) then
       begin
          Writeln('Juli');
          write('Masukan Tanggal Lahir anda : ');readln(tgl);
          if(tgl<=20) then
          writeln('Zodiak anda Cancer');
          if (tgl>=21)then
          writeln('Zodiak anda Leo');
          write('Ingin tahu ramalan Cancer/Leo? ketik(can= cancer, l= leo) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='can') then
            begin
            writeln(' Karakter Cancer : ');
            writeln('1. Setia');
            writeln('2. Perhatian');
            writeln('3. Labil');
            writeln('4. Sentimen');
            writeln('5. Ingatan Kuat');
            end;
           if(ramalan='l')then
            begin
            writeln(' Karakter Leo : ');
            writeln('1. Setia ');
            writeln('2. Sulit memaafkan');
            writeln('3. Labil');
            writeln('4. Sentimen');
            writeln('5. Ingatan Kuat');
            end;
         end;
       end;
   begin
      if(bln=8) then
       begin
          writeln('Agustus');
          write('Masukan Tanggal Lahir anda : ');readln(tgl);
          if(tgl<=20) then
          writeln('Zodiak anda Leo');
          if(tgl>=21)then
          writeln('Zodiak anda Virgo');
           write('Ingin tahu ramalan Leo/Virgo ketik(l= leo, v= virgo) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='l') then
            begin
            writeln(' Karakter Leo : ');
            writeln('1. Setia ');
            writeln('2. Sulit memaafkan');
            writeln('3. Labil');
            writeln('4. Sentimen');
            writeln('5. Ingatan Kuat');
            end;
           if(ramalan='v')then
            begin
            writeln(' Karakter Virgo : ');
            writeln('1. Analis ');
            writeln('2. Praktis');
            writeln('3. Rajin');
            writeln('4. Logis');
            writeln('5. Sederhana');
            end;
         end;
       end;
   begin
      if(bln=9) then
       begin
          writeln('September');
          write('Masukan Tanggal Lahir anda : ');readln(tgl);
          if(tgl<=20) then
          writeln('Zodiak anda Virgo');
          if(tgl>=21)then
          writeln('Zodiak anda Libra');
          write('Ingin tahu ramalan Virgo/Libra ketik(v= virgo lib= libra) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='v') then
            begin
            writeln(' Karakter Virgo : ');
            writeln('1. Analis ');
            writeln('2. Praktis');
            writeln('3. Rajin');
            writeln('4. Logis');
            writeln('5. Sederhana');
            end;
           if(ramalan='lib')then
            begin
            writeln(' Karakter Libra : ');
            writeln('1. Naluriah ');
            writeln('2. Labil');
            writeln('3. Adil');
            writeln('4. Muka dua');
            writeln('5. Mempesona');
            end;
         end;
       end;
   begin
      if(bln=10) then
       begin
          writeln('Oktober');
          write('Masukan Tanggal Lahir anda : ');readln(tgl);
          if(tgl<=20) then
          writeln('Zodiak anda Libra');
          if(tgl>=21)then
          writeln('Zodiak anda Scorpio');
          write('Ingin tahu ramalan Libra/Scorpio? ketik(lib= libra, s= scorpio) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='lib') then
            begin
            writeln(' Karakter Libra : ');
            writeln('1. Naluriah ');
            writeln('2. Labil');
            writeln('3. Adil');
            writeln('4. Muka dua');
            writeln('5. Mempesona');
            end;
           if(ramalan='s')then
            begin
            writeln(' Karakter Scorpio : ');
            writeln('1. Gigih ');
            writeln('2. Cerdik');
            writeln('3. Pendendam');
            writeln('4. Tekun');
            writeln('5. Pendiam');
            end;
         end;
       end;
   begin
      if(bln=11) then
       begin
          writeln('November');
          write('Masukan Tanggal Lahir anda : ');readln(tgl);
          if(tgl<=20) then
          writeln('Zodiak anda Scorpio');
          if(tgl>=21)then
          writeln('Zodiak anda Sagitarius');
          write('Ingin tahu ramalan Scorpio/Sagitarius? ketik(s= scorpio, sag= sagitarius) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='s') then
            begin
            writeln(' Karakter Scorpio : ');
            writeln('1. Gigih ');
            writeln('2. Cerdik');
            writeln('3. Pendendam');
            writeln('4. Tekun');
            writeln('5. Pendiam');
            end;
           if(ramalan='sag')then
            begin
            writeln(' Karakter Sagitarius : ');
            writeln('1. Diplomasi');
            writeln('2. Pandangan Luas');
            writeln('3. Pandai');
            writeln('4. Jiwa Petualang');
            writeln('5. Menyukai Kebebasan');
            end;
         end;
       end;
   begin
      if(bln=12) then
       begin
          writeln('Desember');
          write('Masukan Tanggal Lahir anda : ');readln(tgl);
          if(tgl<=20) then
          writeln('Zodiak anda Sagitarius');
          if(tgl>=21)then
          writeln('Zodiak anda Capricorn');
          write('Ingin tahu ramalan Sagitarius/Capricorn? ketik(sag= sagitarius, c= capricorn) : ');readln(ramalan);
           writeln('-----------------------------------------');
           writeln('');
          begin
           if(ramalan='sag') then
            begin
            writeln(' Karakter Sagitarius : ');
            writeln('1. Diplomasi');
            writeln('2. Pandangan Luas');
            writeln('3. Pandai');
            writeln('4. Jiwa Petualang');
            writeln('5. Menyukai Kebebasan');
            end;
           if(ramalan='c')then
            begin
            writeln(' Karakter Capricorn : ');
            writeln('1. Gengsi tinggi');
            writeln('2. Rajin');
            writeln('3. Pendiam');
            writeln('4. Materialis');
            writeln('5. Teguh Pendirian');
            end;
         end;
       end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
   end;
       writeln('');
       writeln('Zodiak dan Ramalan ini hanya sekedar hiburan dan ilmu semata');
       writeln('jadi jangan di percayai, Percaya hanya kepada Allah Swt.');
       readkey;
end.

Vb6 Connection to Access

Private Sub cmdbersih_Click()
    txtnik.Text = ""
    txtnama.Text = ""
    txtdivisi.Text = ""
    txtjabatan.Text = ""
    txtkerja.Text = ""
    txtlibur.Text = ""
    txtgaji.Text = ""
    txtkdlembur.Text = ""
    txtjslembur.Text = ""
    txtbayar.Text = ""
    txttotallembur.Text = ""
    txttotalgaji.Text = ""
   
    txtnik.SetFocus

End Sub

Private Sub cmdcari_Click()
      Dim Sumber As String
      Dim Rs As New Recordset
      Dim Cm As New Command
      Dim Kunci As String
     
      Kunci = "%" + txtcari + "%"
     
      Sumber = " Select * From Karyawan " & _
            " where Nik Like :X or Nama_Karyawan Like :Y "
           
      Cm.ActiveConnection = MYconn
      Cm.CommandText = Sumber
     
      Cm.Parameters(0).Value = Kunci
      Cm.Parameters(1).Value = Kunci
     
      Set Rs = Cm.Execute
      Set MSHFlexGrid1.DataSource = Rs
     
      If Not Rs.EOF Then
         Rs.MoveFirst
      End If
     
      Dim Z As Integer
     
      Z = 1
      While Not Rs.EOF
        MSHFlexGrid1.TextMatrix(Z, 1) = Rs!Nik
        MSHFlexGrid1.TextMatrix(Z, 2) = Rs!Nama_Karyawan
        MSHFlexGrid1.TextMatrix(Z, 3) = Rs!Divisi
        MSHFlexGrid1.TextMatrix(Z, 4) = Rs!Jabatan
        MSHFlexGrid1.TextMatrix(Z, 5) = Rs!Hari_Kerja
        MSHFlexGrid1.TextMatrix(Z, 6) = Rs!Hari_Libur
        MSHFlexGrid1.TextMatrix(Z, 7) = Rs!Gaji
       
        Rs.MoveNext
       
        Z = Z + 1
        MSHFlexGrid1.AddItem ("")
    Wend

End Sub

Private Sub cmdexit_Click()
    End
End Sub

Private Sub cmdgaji_Click()
    txttotalgaji.Text = Val(txttotallembur.Text) + Val(txtgaji.Text)
End Sub

Private Sub cmdhapus_Click()
    Dim Cm As New Command
    Dim Sumber As String
    Dim Kunci As String
   
    'Kunci = txtnik.text
    Kunci = InputBox(" Masukan Nik yang akan dihapus ")
   
    If Kunci = "" Then
        MsgBox "Nik belum dimasukan, Masukan Nik : "
        Exit Sub
    End If
   
    On Error GoTo salah
   
    Sumber = " Delete From Karyawan Where Nik =:NoNik "
   
    Cm.ActiveConnection = MYconn
    Cm.CommandText = Sumber
   
    Cm.Parameters(0).Value = Kunci
   
    Cm.Execute
   
benar:
    MsgBox "Data sudah dihapus"
    Exit Sub
   
salah:
    MsgBox Err.Description
End Sub

Private Sub cmdrubah_Click()
    Dim Cm As New Command
    Dim Sumber As String
   
    On Error GoTo salah
   
    Sumber = " Update Karyawan Set Nama_Karyawan =:Nama_Karyawan, Divisi =:Divisi, " & _
             " Jabatan =:Jabatan, Hari_Kerja =:Hari_Kerja, Hari_Libur =:Hari_Libur, Gaji =:Gaji " & _
             " Where NIK =:NIK "
           
    Cm.ActiveConnection = MYconn
    Cm.CommandText = Sumber
   
    Cm.Parameters(0).Value = txtnama
    Cm.Parameters(1).Value = txtdivisi
    Cm.Parameters(2).Value = txtjabatan
    Cm.Parameters(3).Value = txtkerja
    Cm.Parameters(4).Value = txtlibur
    Cm.Parameters(5).Value = txtgaji
    Cm.Parameters(6).Value = txtnik
   
    Cm.Execute
   
betul:
    MsgBox "Data telah dirubah"
    Exit Sub
   
salah:
    MsgBox "Masih ada yang salah"
End Sub

Private Sub cmdsimpan_Click()
    Dim Sumber As String
    Dim Cm As New Command
   
    On Error GoTo salah
   
    If txtnik.Text = "" Then
        MsgBox "Masukan Nik dahulu"
    End If
   
    Sumber = " Insert into Karyawan Values ( :Nik, :Nama_Karyawan, :Divisi, :Jabatan, :Hari_Kerja, :Hari_Libur, :Gaji ) "
   
    Cm.ActiveConnection = MYconn
    Cm.CommandText = Sumber
   
    Cm.Parameters(0).Value = txtnik
    Cm.Parameters(1).Value = txtnama
    Cm.Parameters(2).Value = txtdivisi
    Cm.Parameters(3).Value = txtjabatan
    Cm.Parameters(4).Value = txtkerja
    Cm.Parameters(5).Value = txtlibur
    Cm.Parameters(6).Value = txtgaji
   
    Cm.Execute
   
betul:
    MsgBox "Data sudah di simpan"
    Exit Sub
   
salah:
    MsgBox Err.Description
   
    End Sub

Private Sub cmdtampil_Click()
    Dim Rs As New Recordset
    Dim Cm As New Command
    Dim Sumber As String
    Dim Kunci As String
   
    'Masukan kunci dalam Input Box
    Kunci = txtnik.Text
   
    If Kunci = "" Then
       Exit Sub
    End If
   
    'Isi sumber dari Tabel PMBPPM dgn Kunci No Formulir
    Sumber = " Select * From Karyawan Where NIK =:Kunci  "
   
    'Aktifkan Connection String
    Cm.ActiveConnection = MYconn
    Cm.CommandText = Sumber
   
    'Isi No Formulir dengan Kunci
    Cm.Parameters(0).Value = Kunci
   
    'Rs Dilaksanakan
    Set Rs = Cm.Execute
   
    If Rs.EOF Then
       txtnik.SetFocus
       Exit Sub
    Else
        txtnik.Text = Rs!Nik
        txtnama.Text = Rs!Nama_Karyawan
        txtdivisi.Text = Rs!Divisi
        txtjabatan.Text = Rs!Jabatan
        txtkerja.Text = Rs!Hari_Kerja
        txtlibur.Text = Rs!Hari_Libur
        txtgaji.Text = Rs!Gaji
              MsgBox " Tampil Data Ok "
    End If

End Sub

Private Sub Form_Load()
    MYconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Program\Ms Access\Data Karyawan.mdb;Persist Security Info=False"
End Sub

Private Sub Option1_Click()
    If Option1 = True Then
        txttotallembur.Text = 1 * txtbayar.Text
    End If
   
End Sub

Private Sub Option2_Click()
    If Option2 = True Then
        txttotallembur.Text = 2 * txtbayar.Text
    End If
End Sub

Private Sub Option3_Click()
    If Option3 = True Then
        txttotallembur.Text = 3 * txtbayar.Text
    End If
End Sub


Private Sub txtkdlembur_Change()
    If txtkdlembur.Text = "ML" Then
       txtjslembur.Text = "Malam Lembur"
       txtbayar.Text = 70000
       Else
         If txtkdlembur.Text = "PL" Then
            txtjslembur.Text = "Pagi Lembur"
            txtbayar.Text = 60000
         Else
           If txtkdlembur.Text = "LS" Then
              txtjslembur.Text = "Long Shift"
              txtbayar.Text = 100000
           End If
        End If
    End If
   
End Sub