Harapan..
begitu banyak yang mengagumimu..
begitu banyak yang membicarakan tetang ketaatanmu..
begitu banyak yang membicarakan kelebihanmu..
begitu banyak yang membicarakan kebaikanmu..
Apakah engkau pantas untukku..
Orang yang belum sebaikmu..
Orang yang berlumur dosa ini..
Orang yang baru mau bangkit dari keterpurukan ini..
Ya Allah.. sungguh aku berniat untuk hidup bersamanya..
Melewati hidup ini bersamanya..
Apakah aku pantas buatnya..
HR Information System
Alhamdulillah kelar juga akhirnya satu Aplikasi.
walaupun sederhana tapi cukup untuk merecord data2 di HR (human Resource Department).
ini contoh tampilan Aplikasi dan Reportnya..
Contoh Report Ke Bos..
HR INFORMATION SYSTEM (HR IS)
is application program that is integrated with the database server. aims to facilitate the processing of data related to employees such as uniforms, Promotion, Manpower Transfer, Locker and Manpower Contract.
Below details of HR Information System :
| No. |
SUBJECT |
BEFORE |
AFTER |
| 1 | Uniform Maintenance | - For Uniform data processing HR Entering data to Microsoft excel format. | - By using the HR Information System,
enter the data is immediately saved to the database in our server (Centralized). - Report can be obtained quickly, With several features to search such as search by Issue Date,Employee Number, Department and etc.
|
| 2 | Manpower Transfer Record | - To get Manpower Transfer Information to other section, HR ask to Payroll section. | - HR Information System,Enable
HR get information without ask to payroll. HR enable get Manpower Transfer information based on transfer date, employee number and department with quickly.
|
| 3 | Promotion | - To get Promotion Manpower Information to other section, HR ask to Payroll section. | - HR Information System
enable HR to Record and Update information about employee promotion record.
|
| 4 | Locker Maintenance | - Section GA entering data locker into Microsoft excel format. | HR Information System provide some feature to maintain Locker data such as record status of locker, condition of locker and blank locker. |
| 5 | Manpower Contract | - HR Create manpower contract manually. | - HR Information System displays
the report by simply entering an employee join date, and the system will be export the data from the payroll database.
|
Semoga Bermanfaat…:)
Mancing Mania Mantapp…
Udah sebulan lebih g mancing dikarenakan teman anak2 PT.TEAC pada sibuk menjelang closing di tempat kerja masing..
insyallah minggu depan mancing lagi..
beberapa waktu yang lalu hasil mancing (lumayan wlpun dapatnya kecil2…)
ikan siap untuk dimasak..oleh( koki Dwi)..
cuma dapat ikan Todak saja..
cukup untuk bekal beberapa hari (anak Kost)
pulang dari Mancing Malam..
tidak ketinggalan Class Mild nya hehe..
Setup Network
sudah lama banget ga coret2 di blog ini..
tiba2 keingat pada waktu kuliah dulu sambil buka usaha sama aga, bayu, junis, paris, fajar..
salah satu yang keingat yaitu pada saat saya, bayu dan pak Gasim (dosen MDP) setup jaringan komputer di salah satu sekolah unggulan di MUBA (kl g salah..saya lupa tepatnya hehe..)
karena keingat itulah, hal yang sama ku n pak aidil kerjakan di Batam yaitu layout ulang jaringan komputer di PT.JMS batam.
ini gambar2nya..
Pesimis
- Kemana harus ku cari dan kutemukan “Dia”…
Disaat ku serius dan disaat itulah ku sulit untuk mendapatkanya..Mungkin Allah tahu bahwa “dia” bukan untuku
sehingga ku tidak ada semangat dan keberanian untuk mendekatinya..Atau mungkin Aku masih belum sungguh2 dalam hal itu..
kurasa tidak, Sudah cukup bagi ku..
Ampuni Aku..
Apa yang telah kamu lakukan?? tahukah engkau betapa bodohnya dirimu..
Aku sangat menyesali itu dan berjanji tidak akan terulang untuk kedua kalinya dalam hidup ku..
ya Allah hanya Ampunilah hamba mu yang penuh dosa ini..
Terimalah tobatnya..
Tidak bisa dipungkiri bahwa perasaan bersalah itu selalu menghantui fikiranku..
harus bagaimana lagi yang aku lakukan…
Semoga Allah SWT.. selalu membukakan pintu tobat bagi hambanya…Aminn..
Simple Save Update Delete (stored Procedure) (vb.net and SQL server 2005 Express)
1. Create Class for make Connection
Imports System
Imports System.Data
Imports System.Data.SqlClient
Namespace AccessData
Public Class DatabaseConnection
Dim Conn As New SqlConnection(“Data Source=.\SQLEXPRESS;Initial Catalog=Sales;Integrated Security=True”)
Public Function Open() As SqlConnection
If Conn.State <> ConnectionState.Open Then
Conn.Open()
End If
Return Conn
End Function
Public Function Close() As SqlConnection
Conn.Close()
Return Conn
End Function
End Class
End Namespace
2. Create Class Entity (TCustomer)
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class TCustomer
Private m_kodeCusomter As String
Private m_nameCustomer As String
Private m_Adress As String
Private m_contact As String
Public Property kodeCustomer() As String
Get
Return m_kodeCusomter
End Get
Set(ByVal value As String)
If value = “” Then
Throw New Exception(“Please insert customer code”)
End If
m_kodeCusomter = value
End Set
End Property
Public Property nameCustomer() As String
Get
Return m_nameCustomer
End Get
Set(ByVal value As String)
If value = “” Then
Throw New Exception(“please insert name customer”)
End If
m_nameCustomer = value
End Set
End Property
Public Property address() As String
Get
Return m_Adress
End Get
Set(ByVal value As String)
If value = “” Then
Throw New Exception(“please insert address”)
End If
m_Adress = value
End Set
End Property
Public Property contact() As String
Get
Return m_contact
End Get
Set(ByVal value As String)
If value = “” Then
Throw New Exception(“Please insert contact”)
End If
m_contact = value
End Set
End Property
End Class
3. Create Class Customer ( Save, update,Delete)
Imports System
Imports System.Data
Imports System.Data.SqlClient
Namespace AccessData
Public Class Customer
Private myConnection As New AccessData.DatabaseConnection
Public Function InsertCustomer(ByVal TCustomer As TCustomer) As SqlDataReader
Try
‘ Dim StrSql As String = “insert into T_Customer(kode_customer,name_customer,address,contact)values(@kode_customer,@name_customer,@address,@contact)”
Dim myCommand As New SqlCommand(“CustomerInsertCommand”, myConnection.Open)
myCommand.CommandType = CommandType.StoredProcedure
Dim parameterkode As SqlParameter = New SqlParameter(“@kode_customer”, SqlDbType.VarChar, 10)
parameterkode.Value = TCustomer.kodeCustomer
Dim parameterName As SqlParameter = New SqlParameter(“@name_customer”, SqlDbType.VarChar, 50)
parameterName.Value = TCustomer.nameCustomer
Dim parameterAddress As SqlParameter = New SqlParameter(“@address”, SqlDbType.VarChar, 50)
parameterAddress.Value = TCustomer.address
Dim parameterContact As SqlParameter = New SqlParameter(“@contact”, SqlDbType.VarChar, 10)
parameterContact.Value = TCustomer.contact
With myCommand.Parameters
.Add(parameterkode)
.Add(parameterName)
.Add(parameterAddress)
.Add(parameterContact)
End With
Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Return result
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Function
Public Function UpdateCustomer(ByVal TCustomer As TCustomer) As SqlDataReader
Try
‘Dim strSql As String = “update T_Customer set name_customer=@name_customer, address=@address, contact=@contact where kode_customer=@kode_customer”
Dim myCommand As New SqlCommand(“CustomerUpdateCommand”, myConnection.Open)
myCommand.CommandType = CommandType.StoredProcedure
Dim ParameterName As SqlParameter = New SqlParameter(“@name_customer”, SqlDbType.VarChar, 50)
ParameterName.Value = TCustomer.nameCustomer
Dim ParameterAddress As SqlParameter = New SqlParameter(“@address”, SqlDbType.VarChar, 50)
ParameterAddress.Value = TCustomer.address
Dim ParameterContact As SqlParameter = New SqlParameter(“@contact”, SqlDbType.VarChar, 10)
ParameterContact.Value = TCustomer.contact
Dim Parameterkode As SqlParameter = New SqlParameter(“@kode_customer”, SqlDbType.VarChar, 10)
Parameterkode.Value = TCustomer.kodeCustomer
With myCommand.Parameters
.Add(ParameterName)
.Add(ParameterAddress)
.Add(ParameterContact)
.Add(Parameterkode)
End With
Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Return result
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Function
Public Function DeleteCustomer(ByVal Tcustomer As TCustomer) As SqlDataReader
Try
‘Dim StrSql = “delete FROM T_Customer where kode_customer=@kode_customer”
Dim myCommand As New SqlCommand(“CustomerDeleteCommand”, myConnection.Open)
myCommand.CommandType = CommandType.StoredProcedure
Dim ParameterKode As SqlParameter = New SqlParameter(“@kode_customer”, SqlDbType.VarChar, 10)
ParameterKode.Value = Tcustomer.kodeCustomer
myCommand.Parameters.Add(ParameterKode)
Dim result As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Return result
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Function
Public Function FindKodeCustomer(ByVal kode_customer As String, ByVal processname As String) As List(Of TCustomer)
Dim Tcustomer As New List(Of TCustomer)
Try
Dim strSql As String = “select * FROM T_Customer where kode_Customer=@kode_customer”
Dim myCommand As New SqlCommand(strSql, myConnection.Open)
myCommand.CommandType = CommandType.Text
myCommand.Parameters.Add(“@kode_customer”, SqlDbType.VarChar).Value = kode_customer
Dim rdr As SqlDataReader = myCommand.ExecuteReader
If rdr.Read = False Then
If processname = “Find” Then
Throw New Exception(“Please input correct Code”)
End If
Else
If processname = “Save” Then
Throw New Exception(“Code alredy exist”)
End If
Dim TCustomers As New TCustomer
TCustomers.kodeCustomer = rdr(“kode_customer”).ToString
TCustomers.nameCustomer = rdr(“name_Customer”).ToString
TCustomers.address = rdr(“address”).ToString
TCustomers.contact = rdr(“contact”).ToString
Tcustomer.Add(TCustomers)
End If
rdr.Close()
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
Return Tcustomer
End Function
End Class
End Namespace
4.Create Class DataControl For Get Dataset
Imports System
Imports System.Data
Imports System.Data.SqlClient
Namespace AccessData
Public Class DataControl
Private myconnection As New AccessData.DatabaseConnection
Public Function GetDataSet(ByVal SQL As String) As DataSet
Dim adapter As New SqlDataAdapter(SQL, myconnection.Open)
Dim myData As New DataSet
adapter.Fill(myData, “Data”)
Return myData
End Function
End Class
End Namespace
5. And Create Form F_Customer
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class F_Customer
Dim myConnection As New AccessData.DatabaseConnection
Dim scanBindSource As New BindingSource
Public Sub InsertCustomer()
Try
Dim TCustomer As New TCustomer
Dim AccessData As New AccessData.Customer
Dim listCustomer As List(Of TCustomer) = AccessData.FindKodeCustomer(txtKode.Text.Trim, “Save”)
Dim mYes_No As String = MsgBox(“Do you want save the data ?”, vbYesNo, “Buku”)
If mYes_No = vbYes Then
TCustomer.kodeCustomer = txtKode.Text
TCustomer.nameCustomer = txtName.Text
TCustomer.address = txtalamat.Text
TCustomer.contact = txtkontak.Text
AccessData.InsertCustomer(TCustomer)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
LoadEmpData()
End Sub
Private Sub LoadEmpData()
Try
Dim DataControl As New AccessData.DataControl
Dim myData As DataSet = DataControl.GetDataSet(“Select * FROM T_Customer”)
scanBindSource.DataSource = myData.Tables(“data”)
BindingNavigator1.BindingSource = scanBindSource
DataGridView1.DataSource = scanBindSource
‘FormatGridWithBothTableAndColumnStyles()
‘txtTotal.Text = dgScan.RowCount() – 1
Catch ex As Exception
MsgBox(ex.Message)
End Try
‘Me.dgScan.FirstDisplayedScrollingRowIndex = Me.dgScan.RowCount – 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
InsertCustomer()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Dim Customer As New TCustomer
Dim Tcustomer As New AccessData.Customer
Dim m_yesNo As String = MsgBox(“Are you sure to delete”, MsgBoxStyle.YesNo, “test”)
If m_yesNo = vbYes Then
Customer.kodeCustomer = txtKode.Text
Tcustomer.DeleteCustomer(Customer)
End If
LoadEmpData()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim Customer As New TCustomer
Dim Tcustomer As New AccessData.Customer
Dim mYes_No As String = MsgBox(“Do you want update the data ?”, vbYesNo, “Buku”)
If mYes_No = vbYes Then
Customer.kodeCustomer = txtKode.Text
Customer.nameCustomer = txtName.Text
Customer.address = txtalamat.Text
Customer.contact = txtkontak.Text
Tcustomer.UpdateCustomer(Customer)
End If
LoadEmpData()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub F_Customer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadEmpData()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try
Dim AccessCustomer As New AccessData.Customer
Dim list As List(Of TCustomer) = AccessCustomer.FindKodeCustomer(txtKode.Text.Trim, “Find”)
txtKode.Text = list.First.kodeCustomer
txtName.Text = list.First.nameCustomer
txtalamat.Text = list.First.address
txtkontak.Text = list.First.contact
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
For Download Please Select the Link
Database.7z
Customer.7z
