1 Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSave.Click 2 If MsgBox("Do you really want to save the table record(s)?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "CDSystem") = MsgBoxResult.No Then 3 Exit Sub 4 End If 5 Dim trans As SqlTransaction = SqlConnect.BeginTransaction 6 Try 7 Dim sqlcmd As New SqlClient.SqlCommand 8 Dim sqlcmd_delete As New SqlClient.SqlCommand 9 '----------------------先刪除--------------------- 10 With sqlcmd_delete 11 .Connection = SqlConnect 12 .Transaction = trans 13 .CommandType = CommandType.Text 14 .CommandText = "delete from cd_featureopns where featcode='" & Me.txtFeatureCode.Text.ToString.Replace("'", "''") & "'" 15 .Parameters.Clear() 16 .ExecuteNonQuery() 17 .Dispose() 18 End With 19 '------------------------------------------------- 20 If datatable.Rows.Count >= 0 Then 21 '----------------------再重新插入----------------- 22 For Each R As DataRow In datatable.Rows 23 With sqlcmd 24 .Connection = SqlConnect 25 .Transaction = trans 26 .CommandType = CommandType.StoredProcedure 27 .CommandText = "Pro_CD_FeatureOpns_Save" 28 With .Parameters 29 .Clear() 30 .Add("@opnno", SqlDbType.Int).Value = R.Item("opnno") 31 .Add("@featcode", SqlDbType.VarChar, 12).Value = Me.txtFeatureCode.Text 32 .Add("@dopncode", SqlDbType.VarChar, 12).Value = R.Item("dopncode") 33 .Add("@machcode", SqlDbType.VarChar, 10).Value = R.Item("machcode") 34 .Add("@stitinch", SqlDbType.Decimal, 18, 2).Value = R.Item("stitinch") 35 .Add("@stitgaug", SqlDbType.Decimal, 18, 2).Value = R.Item("stitgaug") 36 .Add("@needle", SqlDbType.Decimal, 18, 2).Value = R.Item("needle") 37 .Add("@toploop", SqlDbType.Decimal, 18, 2).Value = R.Item("toploop") 38 .Add("@undloop", SqlDbType.Decimal, 18, 2).Value = R.Item("undloop") 39 .Add("@bobbin", SqlDbType.Decimal, 18, 2).Value = R.Item("bobbin") 40 .Add("@user", SqlDbType.VarChar, 10).Value = g.gUserId 41 .Add("@Tpye", SqlDbType.Int).Value = -1 42 .Add("@error", SqlDbType.VarChar, 50).Value = "save fail,Contact the Administrator" 43 End With 44 .Parameters("@Tpye").Direction = ParameterDirection.Output 45 .Parameters("@error").Direction = ParameterDirection.Output 46 .ExecuteScalar() 47 If .Parameters.Item("@Tpye").Value.ToString <> "0" Then 48 trans.Rollback() 49 MsgBox(.Parameters.Item("@error").Value.ToString) 50 Exit Sub 51 End If 52 .Dispose() 53 End With 54 Next 55 '------------------------------------------------- 56 End If 57 58 trans.Commit() 59 getLastUpdate() 60 MsgBox("Save Completed", MsgBoxStyle.Information, CD_SYSTEM_NAME) 61 Catch ex As Exception 62 trans.Rollback() 63 MsgBox(ex.Message.Trim, MsgBoxStyle.Information, CD_SYSTEM_NAME) 64 Exit Sub 65 End Try 66 End Sub 67 68 Private Sub getLastUpdate() 69 Try 70 Dim str As String = "select t1.ledtuser,t1.ledtdate from cd_featureopns t1 where t1.featcode='" + txtFeatureCode.Text.ToString().Replace("'", "''") + "'" 71 Dim tb As DataTable = gData.GetDataTable(str, SqlConnect) 72 txtUser.Text = tb.Rows(0).Item("ledtuser") 73 txtDate.Text = Format(tb.Rows(0).Item("ledtdate"), "yyyy-MM-dd HH:mm:ss") 74 Catch ex As Exception 75 End Try 76 End Sub
1 set ANSI_NULLS ON 2 set QUOTED_IDENTIFIER ON 3 go 4 5 6 7 8 9 10 11 12 13 ALTER Proc [bogart].[Pro_CD_FeatureOpns_Save] 14 15 @opnno int, 16 @featcode varchar(12), 17 @dopncode varchar(12), 18 @machcode varchar(10), 19 @stitinch decimal(18,2), 20 @stitgaug decimal(18,2), 21 @needle decimal(18,2), 22 @toploop decimal(18,2), 23 @undloop decimal(18,2), 24 @bobbin decimal(18,2), 25 @user varchar(10), 26 @Tpye int output, 27 @error varchar(50) output 28 as 29 30 31 begin 32 --table CD_Component 33 34 35 begin 36 Insert into cd_featureopns(opnno,featcode,dopncode,machcode,stitinch,stitgaug,needle,toploop,undloop,bobbin,ledtuser,ledtdate) 37 Values(@opnno,@featcode,@dopncode,@machcode,@stitinch,@stitgaug,@needle,@toploop,@undloop,@bobbin,@user,getdate()) 38 If @@Error<>0 39 Begin 40 set @Tpye=-1 41 set @error='Insert CD_FeatureOpns Fail !' 42 Return 43 End 44 end 45 46 47 set @Tpye=0 48 set @error='susseful' 49 50 end