كود :
Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
If ID.Text = vbNullString Or Name.Text = vbNullString Or CMBNationality.Text = vbNullString Or Addres.Text = vbNullString Or CMBGender.Text = vbNullString Or Email.Text = vbNullString Or PhoneNumber.Text = vbNullString Or Degree.Text = vbNullString Or Major.Text = vbNullString Or LPLevel.Text = vbNullString Or CMBDepartment.Text = vbNullString Or CMBPosition.Text = vbNullString Or CMBPositionApplyFor.Text = vbNullString Or YearsOfExperience.Text = vbNullString Or EnglishLevel.Text = vbNullString Or CMBAreYouonDuty.Text = vbNullString Or DateofJoining.Value = Today Or YourLastSalary.Text = vbNullString Or ExpectationSalary.Text = vbNullString Or CVLink.Text = vbNullString Or source.Text = vbNullString Or Provideby.Text = vbNullString Or DateOfLoad.Value = Today Or AddBy.Text = vbNullString Then
DevExpress.XtraEditors.XtraMessageBox.Show(" Please complete all data ", "alert", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
If DevExpress.XtraEditors.XtraMessageBox.Show("Do you want to add new data?", "alert", MessageBoxButtons.YesNo) = DialogResult.No Then
Exit Sub
Else
Dim Cmd As New SqlCommand
With Cmd
.Connection = con
.CommandType = CommandType.Text
.CommandText = "Insert Into tbl_infostaff ( ID,Name,Nationality,Addres,Gender,Email,PhoneNumber,Degree,Major,LPLevel,Department,Position,PositionApplyFor,YearsOfExperience,EnglishLevel,AreYouonDuty,DateofJoining,YourLastSalary,ExpectationSalary,CVLink,source,Provideby,DateOfLoad,Addby,Completionstatus)values(@ID,@Name,@Nationality,@Addres,@Gender,@Email,@PhoneNumber,@Degree,@Major,@LPLevel,@Department,@Position,@PositionApplyFor,@YearsOfExperience,@EnglishLevel,@AreYouonDuty,@DateofJoining,@YourLastSalary,@ExpectationSalary,@CVLink,@source,@Provideby,@DateOfLoad,@Addby,@Completionstatus)"
.Parameters.Clear()
.Parameters.AddWithValue("@ID", SqlDbType.Int).Value = ID.Text
.Parameters.AddWithValue("@Name", SqlDbType.VarChar).Value = Name.Text
.Parameters.AddWithValue("@Nationality", SqlDbType.VarChar).Value = CMBNationality.Text
.Parameters.AddWithValue("@Addres", SqlDbType.VarChar).Value = Addres.Text
.Parameters.AddWithValue("@Gender", SqlDbType.VarChar).Value = CMBGender.Text
.Parameters.AddWithValue("@Email", SqlDbType.VarChar).Value = Email.Text
.Parameters.AddWithValue("@PhoneNumber", SqlDbType.VarChar).Value = PhoneNumber.Text
.Parameters.AddWithValue("@Degree", SqlDbType.VarChar).Value = Degree.Text
.Parameters.AddWithValue("@Major", SqlDbType.VarChar).Value = Major.Text
.Parameters.AddWithValue("@LPLevel", SqlDbType.VarChar).Value = LPLevel.Text
.Parameters.AddWithValue("@Department", SqlDbType.VarChar).Value = CMBDepartment.Text
.Parameters.AddWithValue("@Position", SqlDbType.VarChar).Value = CMBPosition.Text
.Parameters.AddWithValue("@PositionApplyFor", SqlDbType.VarChar).Value = CMBPositionApplyFor.Text
.Parameters.AddWithValue("@YearsOfExperience", SqlDbType.VarChar).Value = YearsOfExperience.Text
.Parameters.AddWithValue("@EnglishLevel", SqlDbType.VarChar).Value = EnglishLevel.Text
.Parameters.AddWithValue("@AreYouonDuty", SqlDbType.VarChar).Value = CMBAreYouonDuty.Text
.Parameters.AddWithValue("@DateofJoining", SqlDbType.Date).Value = DateofJoining.Text
.Parameters.AddWithValue("@YourLastSalary", SqlDbType.Decimal).Value = YourLastSalary.Text
.Parameters.AddWithValue("@ExpectationSalary", SqlDbType.Decimal).Value = ExpectationSalary.Text
.Parameters.AddWithValue("@CVLink", SqlDbType.VarChar).Value = CVLink.Text
.Parameters.AddWithValue("@source", SqlDbType.VarChar).Value = source.Text
.Parameters.AddWithValue("@Provideby", SqlDbType.VarChar).Value = Provideby.Text
.Parameters.AddWithValue("@DateOfLoad", SqlDbType.Date).Value = DateOfLoad.Text
.Parameters.AddWithValue("@Addby", SqlDbType.VarChar).Value = AddBy.Text
.Parameters.AddWithValue("@Completionstatus", SqlDbType.VarChar).Value = Completionstatus.Text
End With
If con.State = 1 Then con.Close()
con.Open()
Cmd.ExecuteNonQuery()
con.Close()
DevExpress.XtraEditors.XtraMessageBox.Show("Added successfully", "alert", MessageBoxButtons.OK, MessageBoxIcon.Information)
Cmd = Nothing
ClearControls()
Max_tbl_infostaff()
LoadAll("tbl_infostaff", GridView1)
LoadAll("tbl_infostaff", Form1.GridView1)
End If
End Sub
