Hallo teman-teman kali ini saya ingin berbagi ilmu mengenai pembuatan program sederhana yang kebetulan program ini juga menjadi salah satu tugas mata kulia saya jadi dri pada saya simpan-simpan trus di laptop mending saya posting aja sapa tw ada yang butuh mungkin buat tugas atau cuma sekedar coba-coba...hehehe:)
Ya udah tanpa berlama-lam lagi saya langsung kasih liat aja y contoh desainnya kalau masalah desain saya gk usah jelasin soalnya teman-teman yang biasa bergelut dengan program pasti udah tau:):):), bukan cuma desain program aja loh saya juga mengikut sertakan source code dari program tersebut jadi yang pengen nyoba atau belajar-belajar yahh monggo deh...!!!hehehe
Form Menu Utama
Form Entry Data Karyawan
Form Laporan Data Karyawan
Laporan Data Karyawan
Form Entry Data Jabatan
Entry Data Jabatan
Laporan Jabatan Karyawan Baru
Dan Dibawah ini adalah sorce code untuk contoh program diatas :
Public
Class Form1
Dim karyawan As DataRow
Browse
Private
Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Try
OpenFileDialog1.Filter
= "Image Files (*.jpg,*.JPEG, *.bmp, *.gif, *.png)|*.jpg;*.JPEG; *.bmp;
*.gif; *.png"
OpenFileDialog1.ShowDialog()
Label14.Text =
OpenFileDialog1.FileName
'GroupBox1.s =
GroupBox1.Text.Length
If Label14.Text <>
"" Then
PictureBox1.Image =
Image.FromFile(Label14.Text)
End If
Catch ex As
Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Keluar
Private
Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
Me.Close()
End Sub
Simpan
Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
Dim simpan As DataRow
simpan =
DKaryawanDataSet.Karyawan.NewRow
simpan(0) = TextBox1.Text
simpan(1) = TextBox2.Text
simpan(2) = TextBox3.Text
simpan(3) = TextBox4.Text
simpan(4) = DateTimePicker1.Text
If RadioButton1.Checked = True Then
simpan(5) = "Pria"
Else
simpan(5) = "Wanita"
End If
simpan(6) = ComboBox1.Text
simpan(7) = ComboBox2.Text
simpan(8) = ComboBox3.Text
simpan(9) = DateTimePicker2.Text
simpan(10) = TextBox5.Text
simpan(11) = TextBox7.Text
simpan(12) = Label14.Text
DKaryawanDataSet.Karyawan.Rows.Add(simpan)
KaryawanTableAdapter.Update(DKaryawanDataSet)
MsgBox("Data Berhasil
Tersimpan", vbInformation, "Sukses")
kosong()
End Sub
Sub kosong()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
DateTimePicker1.Text = ""
RadioButton1.Checked = False
RadioButton2.Checked = False
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
DateTimePicker2.Text = ""
TextBox5.Text = ""
TextBox7.Text = ""
PictureBox1.Image = Nothing
TextBox1.Focus()
End Sub
Private
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
'TODO:
This line of code loads data into the 'DKaryawanDataSet.Karyawan' table. You
can move, or remove it, as needed.
Me.KaryawanTableAdapter.Fill(Me.DKaryawanDataSet.Karyawan)
'TODO:
This line of code loads data into the 'DKaryawanDataSet.Karyawan' table. You
can move, or remove it, as needed.
Me.KaryawanTableAdapter.Fill(Me.DKaryawanDataSet.Karyawan)
End Sub
Kosongkan
Private
Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
kosong()
End Sub
Delete
Private
Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
Dim hapus As String
If TextBox1.Text = "" Then
MsgBox("Anda Yakin Ingin
Menghapus Data Tersebut..?", vbCritical, "Perhatian")
Else
hapus =
MessageBox.Show("Apakah anda yakin akan menghapus data tersebut",
"Peringatan", MessageBoxButtons.YesNo)
If hapus = vbYes Then
karyawan.Delete()
KaryawanTableAdapter.Update(DKaryawanDataSet)
kosong()
End If
End If
End Sub
Search
Private
Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button6.Click
With DKaryawanDataSet.Karyawan
karyawan =
.Rows.Find(TextBox1.Text)
If karyawan Is Nothing Then
MsgBox("Data Yang Anda
Cari Tidak Ditemukan", vbCritical, "PERHATIAN")
TextBox2.Focus()
Else
Call tampilkan()
End If
End With
End Sub
Sub tampilkan()
With karyawan
TextBox2.Text = .Item(1)
TextBox3.Text = .Item(2)
TextBox4.Text = .Item(3)
TextBox5.Text = .Item(10)
DateTimePicker1.Text = .Item(4)
If karyawan(5) = "Pria"
Then
RadioButton1.Checked = True
Else
RadioButton2.Checked = True
End If
DateTimePicker2.Text = .Item(9)
TextBox7.Text = .Item(11)
ComboBox1.Text = .Item(6)
ComboBox2.Text = .Item(7)
ComboBox3.Text = .Item(8)
PictureBox1.Image =
Image.FromFile(.Item(12))
Label14.Text = .Item(12)
End With
End Sub
Edit
Private
Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button7.Click
karyawan.EndEdit()
karyawan(0) = TextBox1.Text
karyawan(1) = TextBox2.Text
karyawan(2) = TextBox3.Text
karyawan(3) = TextBox4.Text
karyawan(4) = DateTimePicker1.Text
If RadioButton1.Checked = True Then
karyawan(5) = "Pria"
Else
karyawan(5) = "Wanita"
End If
karyawan(6) = ComboBox1.Text
karyawan(7) = ComboBox2.Text
karyawan(8) = ComboBox3.Text
karyawan(9) = DateTimePicker2.Text
karyawan(10) = TextBox5.Text
karyawan(11) = TextBox7.Text
karyawan(12) = Label14.Text
KaryawanTableAdapter.Update(DKaryawanDataSet)
MsgBox("Data Kryawan Berhasil
DiUbah!!!", vbInformation, "UPDATE DATA")
Call kosong()
TextBox1.Focus()
End Sub
End
Class
Cetak
Private
Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
Dim report As New FrmReportJabatan
If ComboBox1.Text = "Nik"
Then
report.CrystalReportViewer1.SelectionFormula = "{Jabatan.Nik}"
& "=" & "'" & TextBox1.Text & "'"
ElseIf ComboBox1.Text =
"Nama" Then
report.CrystalReportViewer1.SelectionFormula = "{Jabatan.Nama}"
& "=" & "'" & TextBox1.Text & "'"
ElseIf ComboBox1.Text =
"Jabatan" Then
report.CrystalReportViewer1.SelectionFormula =
"{Jabatan.Jabatan}" & "=" & "'" &
TextBox1.Text & "'"
ElseIf ComboBox1.Text =
"Gaji_Pokok" Then
report.CrystalReportViewer1.SelectionFormula =
"{Jabatan.Gaji_Pokok}" & "=" & TextBox1.Text
End If
report.Show()
End Sub
Normal
Private
Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
OleDbDataAdapter1.SelectCommand.CommandText = "select * from
Jabatan"
DataSet21.Clear()
OleDbDataAdapter1.Fill(DataSet21)
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox1.Clear()
End Sub
Filter
Private
Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
If ComboBox1.Text = "Gaji_Pokok"
Then
OleDbDataAdapter1.SelectCommand.CommandText=_
"Select * from Jabatan where
" + ComboBox1.Text + ComboBox2.Text + TextBox1.Text
Else
OleDbDataAdapter1.SelectCommand.CommandText=_
"Select * from Jabatan where
" + ComboBox1.Text + ComboBox2.Text + "'" + TextBox1.Text +
"'"
End If
DataSet21.Clear()
OleDbDataAdapter1.Fill(DataSet21)
End Sub
Perhatian : Selamat Mencoba y apabila ada kekurangan dari program diatas kita bisa saling sering untuk sekedar saling bertukar ilmu
SALAM BLOGER INDONESIA..!!!!:);D
