?? frmbillmanage.vb
字號:
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=cs;persis" & _
"t security info=False;initial catalog=mrpbook"
'
'SqlInsertCommand1
'
Me.SqlInsertCommand1.CommandText = "INSERT INTO 物料主文件(物料編號, 條碼, 物料名稱, 拼音編碼, 計量單位, 規格型號, 計劃類別, 狀態類別, 歸屬類別, 價值類別, 物料特性a" & _
", 物料特性b, 物料特性c, 物料特性d, 長, 寬, 高, 凈重, 品牌, 顏色, 等級, 進貨提前期, 準備周期, 生產周期, 最小包裝量, 最低銷售量," & _
" 批量, 最高庫存, 最低庫存, 庫存期限, 錄入者, 錄入日期, 低層碼, 指定供貨商, 定貨策略, 生產車間) VALUES (@物料編號, @條碼, @物" & _
"料名稱, @拼音編碼, @計量單位, @規格型號, @計劃類別, @狀態類別, @歸屬類別, @價值類別, @物料特性a, @物料特性b, @物料特性c, @物" & _
"料特性d, @長, @寬, @高, @凈重, @品牌, @顏色, @等級, @進貨提前期, @準備周期, @生產周期, @最小包裝量, @最低銷售量, @批量," & _
" @最高庫存, @最低庫存, @庫存期限, @錄入者, @錄入日期, @低層碼, @指定供貨商, @定貨策略, @生產車間); SELECT 物料編號, 條碼," & _
" 物料名稱, 拼音編碼, 計量單位, 規格型號, 計劃類別, 狀態類別, 歸屬類別, 價值類別, 物料特性a, 物料特性b, 物料特性c, 物料特性d, 長, " & _
"寬, 高, 凈重, 品牌, 顏色, 等級, 進貨提前期, 準備周期, 生產周期, 最小包裝量, 最低銷售量, 批量, 最高庫存, 最低庫存, 庫存期限, 錄入者" & _
", 錄入日期, 低層碼, 指定供貨商, 定貨策略, 生產車間 FROM 物料主文件 WHERE (物料編號 = @物料編號)"
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料編號", System.Data.SqlDbType.VarChar, 14, "物料編號"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@條碼", System.Data.SqlDbType.VarChar, 14, "條碼"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料名稱", System.Data.SqlDbType.VarChar, 50, "物料名稱"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音編碼", System.Data.SqlDbType.VarChar, 10, "拼音編碼"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@計量單位", System.Data.SqlDbType.VarChar, 10, "計量單位"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@規格型號", System.Data.SqlDbType.VarChar, 20, "規格型號"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@計劃類別", System.Data.SqlDbType.VarChar, 5, "計劃類別"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@狀態類別", System.Data.SqlDbType.VarChar, 5, "狀態類別"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@歸屬類別", System.Data.SqlDbType.VarChar, 5, "歸屬類別"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@價值類別", System.Data.SqlDbType.VarChar, 1, "價值類別"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性a", System.Data.SqlDbType.VarChar, 40, "物料特性a"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性b", System.Data.SqlDbType.VarChar, 40, "物料特性b"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性c", System.Data.SqlDbType.VarChar, 40, "物料特性c"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性d", System.Data.SqlDbType.VarChar, 40, "物料特性d"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@長", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "長", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@寬", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "寬", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@高", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "高", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@凈重", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "凈重", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@品牌", System.Data.SqlDbType.VarChar, 10, "品牌"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@顏色", System.Data.SqlDbType.VarChar, 10, "顏色"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@等級", System.Data.SqlDbType.VarChar, 10, "等級"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@進貨提前期", System.Data.SqlDbType.Int, 4, "進貨提前期"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@準備周期", System.Data.SqlDbType.Int, 4, "準備周期"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@生產周期", System.Data.SqlDbType.Int, 4, "生產周期"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最小包裝量", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "最小包裝量", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最低銷售量", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "最低銷售量", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@批量", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(4, Byte), "批量", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最高庫存", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "最高庫存", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@最低庫存", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "最低庫存", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@庫存期限", System.Data.SqlDbType.Int, 4, "庫存期限"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@錄入者", System.Data.SqlDbType.VarChar, 8, "錄入者"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@錄入日期", System.Data.SqlDbType.Int, 4, "錄入日期"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@低層碼", System.Data.SqlDbType.Int, 4, "低層碼"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@指定供貨商", System.Data.SqlDbType.VarChar, 10, "指定供貨商"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@定貨策略", System.Data.SqlDbType.VarChar, 10, "定貨策略"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@生產車間", System.Data.SqlDbType.VarChar, 10, "生產車間"))
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "SELECT 物料編號, 條碼, 物料名稱, 拼音編碼, 計量單位, 規格型號, 計劃類別, 狀態類別, 歸屬類別, 價值類別, 物料特性a, 物料特性b, 物料" & _
"特性c, 物料特性d, 長, 寬, 高, 凈重, 品牌, 顏色, 等級, 進貨提前期, 準備周期, 生產周期, 最小包裝量, 最低銷售量, 批量, 最高庫存, " & _
"最低庫存, 庫存期限, 錄入者, 錄入日期, 低層碼, 指定供貨商, 定貨策略, 生產車間 FROM 物料主文件"
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
'
'SqlUpdateCommand1
'
Me.SqlUpdateCommand1.CommandText = "UPDATE 物料主文件 SET 物料編號 = @物料編號, 條碼 = @條碼, 物料名稱 = @物料名稱, 拼音編碼 = @拼音編碼, 計量單位 = @計量單位" & _
", 規格型號 = @規格型號, 計劃類別 = @計劃類別, 狀態類別 = @狀態類別, 歸屬類別 = @歸屬類別, 價值類別 = @價值類別, 物料特性a = " & _
"@物料特性a, 物料特性b = @物料特性b, 物料特性c = @物料特性c, 物料特性d = @物料特性d, 長 = @長, 寬 = @寬, 高 = @高, " & _
"凈重 = @凈重, 品牌 = @品牌, 顏色 = @顏色, 等級 = @等級, 進貨提前期 = @進貨提前期, 準備周期 = @準備周期, 生產周期 = @生產" & _
"周期, 最小包裝量 = @最小包裝量, 最低銷售量 = @最低銷售量, 批量 = @批量, 最高庫存 = @最高庫存, 最低庫存 = @最低庫存, 庫存期限 =" & _
" @庫存期限, 錄入者 = @錄入者, 錄入日期 = @錄入日期, 低層碼 = @低層碼, 指定供貨商 = @指定供貨商, 定貨策略 = @定貨策略, 生產車間" & _
" = @生產車間 WHERE (物料編號 = @Original_物料編號) AND (價值類別 = @Original_價值類別 OR @Original_價" & _
"值類別 IS NULL AND 價值類別 IS NULL) AND (低層碼 = @Original_低層碼 OR @Original_低層碼 IS NULL " & _
"AND 低層碼 IS NULL) AND (凈重 = @Original_凈重 OR @Original_凈重 IS NULL AND 凈重 IS NULL) " & _
"AND (準備周期 = @Original_準備周期 OR @Original_準備周期 IS NULL AND 準備周期 IS NULL) AND (品牌 =" & _
" @Original_品牌 OR @Original_品牌 IS NULL AND 品牌 IS NULL) AND (定貨策略 = @Original_定貨策略" & _
" OR @Original_定貨策略 IS NULL AND 定貨策略 IS NULL) AND (寬 = @Original_寬 OR @Original_寬" & _
" IS NULL AND 寬 IS NULL) AND (庫存期限 = @Original_庫存期限 OR @Original_庫存期限 IS NULL AND" & _
" 庫存期限 IS NULL) AND (歸屬類別 = @Original_歸屬類別 OR @Original_歸屬類別 IS NULL AND 歸屬類別 IS " & _
"NULL) AND (錄入日期 = @Original_錄入日期 OR @Original_錄入日期 IS NULL AND 錄入日期 IS NULL) AND" & _
" (錄入者 = @Original_錄入者 OR @Original_錄入者 IS NULL AND 錄入者 IS NULL) AND (批量 = @Origi" & _
"nal_批量 OR @Original_批量 IS NULL AND 批量 IS NULL) AND (拼音編碼 = @Original_拼音編碼 OR @Or" & _
"iginal_拼音編碼 IS NULL AND 拼音編碼 IS NULL) AND (指定供貨商 = @Original_指定供貨商 OR @Original_" & _
"指定供貨商 IS NULL AND 指定供貨商 IS NULL) AND (最低庫存 = @Original_最低庫存 OR @Original_最低庫存 IS" & _
" NULL AND 最低庫存 IS NULL) AND (最低銷售量 = @Original_最低銷售量 OR @Original_最低銷售量 IS NULL " & _
"AND 最低銷售量 IS NULL) AND (最小包裝量 = @Original_最小包裝量 OR @Original_最小包裝量 IS NULL AND 最" & _
"小包裝量 IS NULL) AND (最高庫存 = @Original_最高庫存 OR @Original_最高庫存 IS NULL AND 最高庫存 IS N" & _
"ULL) AND (條碼 = @Original_條碼 OR @Original_條碼 IS NULL AND 條碼 IS NULL) AND (物料名稱 = " & _
"@Original_物料名稱) AND (物料特性a = @Original_物料特性a OR @Original_物料特性a IS NULL AND 物料特性" & _
"a IS NULL) AND (物料特性b = @Original_物料特性b OR @Original_物料特性b IS NULL AND 物料特性b IS " & _
"NULL) AND (物料特性c = @Original_物料特性c OR @Original_物料特性c IS NULL AND 物料特性c IS NULL)" & _
" AND (物料特性d = @Original_物料特性d OR @Original_物料特性d IS NULL AND 物料特性d IS NULL) AND " & _
"(狀態類別 = @Original_狀態類別 OR @Original_狀態類別 IS NULL AND 狀態類別 IS NULL) AND (生產周期 = @" & _
"Original_生產周期 OR @Original_生產周期 IS NULL AND 生產周期 IS NULL) AND (生產車間 = @Original_" & _
"生產車間 OR @Original_生產車間 IS NULL AND 生產車間 IS NULL) AND (等級 = @Original_等級 OR @Orig" & _
"inal_等級 IS NULL AND 等級 IS NULL) AND (規格型號 = @Original_規格型號 OR @Original_規格型號 IS " & _
"NULL AND 規格型號 IS NULL) AND (計劃類別 = @Original_計劃類別 OR @Original_計劃類別 IS NULL AND " & _
"計劃類別 IS NULL) AND (計量單位 = @Original_計量單位) AND (進貨提前期 = @Original_進貨提前期 OR @Origi" & _
"nal_進貨提前期 IS NULL AND 進貨提前期 IS NULL) AND (長 = @Original_長 OR @Original_長 IS NULL" & _
" AND 長 IS NULL) AND (顏色 = @Original_顏色 OR @Original_顏色 IS NULL AND 顏色 IS NULL) A" & _
"ND (高 = @Original_高 OR @Original_高 IS NULL AND 高 IS NULL); SELECT 物料編號, 條碼, 物料名稱" & _
", 拼音編碼, 計量單位, 規格型號, 計劃類別, 狀態類別, 歸屬類別, 價值類別, 物料特性a, 物料特性b, 物料特性c, 物料特性d, 長, 寬, 高," & _
" 凈重, 品牌, 顏色, 等級, 進貨提前期, 準備周期, 生產周期, 最小包裝量, 最低銷售量, 批量, 最高庫存, 最低庫存, 庫存期限, 錄入者, 錄入日" & _
"期, 低層碼, 指定供貨商, 定貨策略, 生產車間 FROM 物料主文件 WHERE (物料編號 = @物料編號)"
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料編號", System.Data.SqlDbType.VarChar, 14, "物料編號"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@條碼", System.Data.SqlDbType.VarChar, 14, "條碼"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料名稱", System.Data.SqlDbType.VarChar, 50, "物料名稱"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@拼音編碼", System.Data.SqlDbType.VarChar, 10, "拼音編碼"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@計量單位", System.Data.SqlDbType.VarChar, 10, "計量單位"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@規格型號", System.Data.SqlDbType.VarChar, 20, "規格型號"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@計劃類別", System.Data.SqlDbType.VarChar, 5, "計劃類別"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@狀態類別", System.Data.SqlDbType.VarChar, 5, "狀態類別"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@歸屬類別", System.Data.SqlDbType.VarChar, 5, "歸屬類別"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@價值類別", System.Data.SqlDbType.VarChar, 1, "價值類別"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性a", System.Data.SqlDbType.VarChar, 40, "物料特性a"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性b", System.Data.SqlDbType.VarChar, 40, "物料特性b"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性c", System.Data.SqlDbType.VarChar, 40, "物料特性c"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@物料特性d", System.Data.SqlDbType.VarChar, 40, "物料特性d"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@長", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "長", System.Data.DataRowVersion.Current, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@寬", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "寬", System.Data.DataRowVersion.Current, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@高", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(18, Byte), CType(3, Byte), "高", System.Data.DataRowVersion.Current, Nothing))
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -