friendship

friendship

Wednesday, March 21, 2012

Tugas TAKE HOME PAK WUWUH VB

Untuk Menu:

Private Sub mneditd_Click()
frmedit.Show
End Sub

Private Sub mninput_Click()
frminput.Show
End Sub

Untuk Input:

Private Sub cmdbatal_Click()
kosong
Text1.SetFocus
End Sub

Private Sub cmdsimpan_Click()
If Text1.Text = "" Then
    x = MsgBox("data belum terisi semua", vbOKOnly)
    Else
On Error Resume Next
Data1.Recordset.AddNew
Data1.Recordset!nip = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!alamat = Text3.Text
Data1.Recordset!lahir = Text4.Text
Data1.Recordset!pendidikan = Text5.Text
Data1.Recordset!mapel = Text6.Text
Data1.Recordset!gaji = Text7.Text
Data1.Recordset!potongan = Text8.Text
Data1.Recordset!gaber = Text9.Text

    Data1.Recordset.Update
    kosong
End If


End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Text1.SetFocus
kosong
End Sub

Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""

End Sub

Private Sub Text1_Change()
Text1.SetFocus
Dim skode As String
Dim strkode, strtipem As String
skode = Text1.Text
strkode = "dataguru" = "&skode"
Data1.Recordset.Index = "nip"
Data1.Recordset.Seek "=", Text1.Text
If Not Data1.Recordset.NoMatch Then
pesan = MsgBox("KODE SUDAH TERSEDIA, SILAHKEUN ISIKAN YANG LAIN..!!", vbOKOnly, "WARNING!!!")
Text2.Text = Data1.Recordset!nama
Text3.Text = Data1.Recordset!alamat
Text4.Text = Data1.Recordset!lahir
Text5.Text = Data1.Recordset!pendidikan
Text6.Text = Data1.Recordset!mapel
Text7.Text = Data1.Recordset!gaji
Text8.Text = Data1.Recordset!potongan
Text9.Text = Data1.Recordset!gaber
cmdbatal.SetFocus
Exit Sub
End If

End Sub

Private Sub Text9_LostFocus()
Text9.Text = Val(Text7.Text) - Val(Text8.Text)
End Sub

Untuk Edit:

Private Sub cmdbatal_Click()
kosong
Text1.SetFocus
End Sub

Private Sub cmdsimpan_Click()
If Text1.Text = "" Then
    x = MsgBox("data belum terisi semua", vbOKOnly)
    Else
On Error Resume Next
Data1.Recordset.AddNew
Data1.Recordset!nip = Text1.Text
Data1.Recordset!nama = Text2.Text
Data1.Recordset!alamat = Text3.Text
Data1.Recordset!lahir = Text4.Text
Data1.Recordset!pendidikan = Text5.Text
Data1.Recordset!mapel = Text6.Text
Data1.Recordset!gaji = Text7.Text
Data1.Recordset!gaber = Text8.Text
Data1.Recordset!jam = Text9.Text
Data1.Recordset.Update
End If


End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Text1.SetFocus
kosong
End Sub

Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""

End Sub

Private Sub Text1_Change()
Text1.SetFocus
Dim skode As String
Dim strkode, strtipem As String
skode = Text1.Text
strkode = "dataguru" = "&skode"
Data1.Recordset.Index = "nip"
Data1.Recordset.Seek "=", Text1.Text
If Not Data1.Recordset.NoMatch Then
pesan = MsgBox("KODE SUDAH TERSEDIA, SILAHKEUN ISIKAN YANG LAIN..!!", vbOKOnly, "WARNING!!!")
Text2.Text = Data1.Recordset!nama
Text3.Text = Data1.Recordset!alamat
Text4.Text = Data1.Recordset!lahir
Text5.Text = Data1.Recordset!pendidikan
Text6.Text = Data1.Recordset!mapel
Text7.Text = Data1.Recordset!gaji
Text8.Text = Data1.Recordset!gaber
Text9.Text = Data1.Recordset!jam
Data1.Refresh
cmdbatal.SetFocus
Exit Sub
End If

End Sub



Selamat Mencoba...

Friday, March 16, 2012

CRUDE( Create Read Update Delete Edit) Visual Basic(VB)


1. DATA CONTROL
Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data



#Simpan Data :

Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Refresh


#Pencarian Data :

Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
     Text1.Text = Data1.Recordset!namakolom1
     Text2.Text = Data1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if


#Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Refresh


#Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Delete
Data1.Refresh



2. ADODC



#Simpan Data :
Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh



#Pencarian Data :


Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
     Text1.Text = Adodc1.Recordset!namakolom1
     Text2.Text = Adodc1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if


#Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.

Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Refresh


#Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset.Delete
Adodc1.Refresh



3. ADODB
Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini


#Simpan Data :
ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" +  Text2.Text + "')"


#Pencarian Data
Set Rs = New Adodb.Recordset
Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado
If Not rs.EOF Then
     Text1.Text = rs("namakolom1")
     Text2.Text = rs("namakolom2")
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if 


#Edit Data

ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _
                    "',[namakolom2]='" + Text2.Text + _
                    "' WHERE [nama kolom1]='" + TextCari.Text + "'"

Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc


#Hapus Data
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"

Monday, March 5, 2012

create data base xampp dengan commandcom/cmd!

masuk direcktory xampp:

hingga menjadi c:\xampp -=> c:\xampp\cd mysql\ entar.. kosongin password enter lagi

kemudian create database


create database "yang dimaui"

contoh

create database mahasiwa;

kemudian membuat tabel: 

caranya: 

create table tMahasiswa(
                nim varchar(20)primary key not null,
                nama varchar(200),
                mpassword varchar(10),
                sks numeric,
                IPK varchar (10),
                semster varchar (100),
                fakultas varchar(200),
                )

create table tMatakuliah(
                kode_matakuliah varchar(20)primary key not null,
                nama_takuliah varchar(300),
                SKSA numeric,
                SKSB numeric,
                )

create table tKelas(
                kode_kelas varchar(20),
                kode_matakuliah varchar(20)primary key not null,
                NIP varchar(20),
                tempat varchar(100),
                kapasitas numeric,
                hari varchar(50),
                jam char(20),
                )




create table tDosen(
                NIP varchar(20)primary key not null,
                nama varchar(200),
                )

create table tKst(
                ID numeric primary key not null,
                NIM varchar(20),
                kode_matakuliah varchar(20),
                kode_kelas varchar(20),
                status varchar(20),
                )

create table tDosen(
                NIP varchar(20)primary key not null,
                nama varchar(200),
                )

create table tKst(
                ID numeric primary key not null,
                NIM varchar(20),
                kode_matakuliah varchar(20),
                kode_kelas varchar(20),
                status varchar(20),
                )

Kemudian mengisi tabel-nya.. caranya:
Untuk Mengisi Tabel Matakuliah:

insert into tMatakuliah values('IT611','Pemrograman Aplikasi Mobile 1',3,4)
insert into tMatakuliah values('IT306','Rekayasa Perangkat Lunak',3,4)
insert into tMatakuliah values('IT518','Oracle Administration',3,4)
insert into tMatakuliah values('IT605','XML',3,4)
select * from tMatakuliah

Untuk Mengisi Tabel Dosen:

insert into tDosen values(67521,'Hendro Steven T, S.Kom.')
insert into tDosen values(67555,'Hendry, M.Kom.')
insert into tDosen values(67512,'Irwan Sembiring, S.T, M.Kom.')
insert into tDosen values(67507,'Wiwin Sulistyo, ST., M.Kom.')  
select * from tDosen

Untuk mengisi tabel Kelas:

insert into tKelas values('IT306','IT306C',67002,'F109',40,'Rabu','7-9')
insert into tKelas values('IT604','IT604A',67555,'Lab E201A',39,'Kamis','14-17')
insert into tKelas values('IT605','IT605C',67999,'F203',40,'Jumat','7-9')
insert into tKelas values('IT611','IT611A',67532,'Lab E250',35,'Selasa','13-16')
select * from tKelas

Untuk Mengisi Tabel Mahasiswa:

insert into tMahasiswa values(672008601,'James Bond',672008601,19,'3.8','SEMESTER 2 TA 2011 - 2012','Teknologi Informasi - Teknik Informatika')
insert into tMahasiswa values(672009097,'Paris Hilton',672009097,8,'3.9','SEMESTER 2 TA 2011 - 2012','Teknologi Informasi - Teknik Informatika')
insert into tMahasiswa values(672009101,'Lucy Liu',672009101,19,'3.8','SEMESTER 2 TA 2011 - 2012','Teknologi Informasi - Teknik Informatika')
select * from tMahasiswa

Untuk Mengisi Tabel Kst:

insert into tKst values(20585,672009097,'IT507','IT507B','B')
insert into tKst values(20588,672009097,'IT518','IT518A','B')
insert into tKst values(20601,672009097,'IT101','IT101A','B')
insert into tKst values(20602,672009097,'IT604','IT604A','B')
select * from tKst


untuk "select * form *" untuk menampilkan data:











Thursday, March 1, 2012

masuk inovasi ndak ya?


Kemampuan berinisiatif.
Kemampuan berinisiatif adalah mengerjakan sesuatu yang baik tanpa menunggu perintah orang lain yang dilakukan secara ber­ulang-ulang sehingga dalam jangka panjang menumbuhkan ke­biasaan berinisiatif yang akan menghasilkan kreativitas dan inova­si.
Kemampuan membentuk modal (capital)
Kemapuan membentuk modal sangat menentukan kelancaran dalam memulai usaha. Semangat dan tekat untuk berusaha dan pemahaman tentang pengelolaan keungan (financial mana­gement) menjadi dasar dalam kemampuan membentuk modal.

      Kemampuan mengatur waktu (time management skill).
Kemampuan mental yang dilandasi agama
Ada kalanya kesuksesan seorang wirausaha membutuhkan waktu yang cukup lama. Perjalankan kesuksesan wirausaha adakala­nya mengalami siklus naik-turun.
Kemampuan mengambil hikmah dari pengalaman
Kehidupan bisnis dapat dibaratkan kehidupan manusia, kadang kondisinya sehat, kadang kondisinya kurang sehat, bahkan mati. Kehidupan wirausaha dalam menjalankan usaha pada umumnya mengalami pasang surut. Kegagalan, kemerosotan dalam bisnis adalah hal wajar.