📄 frmmedicine.vb
字号:
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(292, 16)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(56, 16)
Me.Label6.TabIndex = 4
Me.Label6.Text = "规格"
'
'txbName
'
Me.txbName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "药品资料.名称"))
Me.txbName.Location = New System.Drawing.Point(108, 32)
Me.txbName.Name = "txbName"
Me.txbName.Size = New System.Drawing.Size(176, 21)
Me.txbName.TabIndex = 3
Me.txbName.Text = ""
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(108, 16)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(56, 16)
Me.Label5.TabIndex = 2
Me.Label5.Text = "名称"
'
'txbCode
'
Me.txbCode.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "药品资料.编号"))
Me.txbCode.Location = New System.Drawing.Point(16, 32)
Me.txbCode.Name = "txbCode"
Me.txbCode.Size = New System.Drawing.Size(80, 21)
Me.txbCode.TabIndex = 1
Me.txbCode.Text = ""
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(16, 16)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(56, 16)
Me.Label4.TabIndex = 0
Me.Label4.Text = "编号"
'
'SqlDataAdapter1
'
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "药品资料", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("编号", "编号"), New System.Data.Common.DataColumnMapping("名称", "名称"), New System.Data.Common.DataColumnMapping("规格", "规格"), New System.Data.Common.DataColumnMapping("整量单位", "整量单位"), New System.Data.Common.DataColumnMapping("散量单位", "散量单位"), New System.Data.Common.DataColumnMapping("入库单价", "入库单价"), New System.Data.Common.DataColumnMapping("出库单价", "出库单价"), New System.Data.Common.DataColumnMapping("批发价", "批发价"), New System.Data.Common.DataColumnMapping("整散比", "整散比"), New System.Data.Common.DataColumnMapping("分类", "分类"), New System.Data.Common.DataColumnMapping("费用归类", "费用归类"), New System.Data.Common.DataColumnMapping("拼音码", "拼音码"), New System.Data.Common.DataColumnMapping("效期", "效期"), New System.Data.Common.DataColumnMapping("上限", "上限"), New System.Data.Common.DataColumnMapping("下限", "下限")})})
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
'
'SqlDeleteCommand1
'
Me.SqlDeleteCommand1.CommandText = "DELETE FROM 药品资料 WHERE (编号 = @Original_编号) AND (上限 = @Original_上限 OR @Original_上限" & _
" IS NULL AND 上限 IS NULL) AND (下限 = @Original_下限 OR @Original_下限 IS NULL AND 下限 I" & _
"S NULL) AND (入库单价 = @Original_入库单价 OR @Original_入库单价 IS NULL AND 入库单价 IS NULL) A" & _
"ND (出库单价 = @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 (整散比 = @Orig" & _
"inal_整散比 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 AN" & _
"D 费用归类 IS NULL)"
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_编号", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_上限", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "上限", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_下限", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "下限", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_入库单价", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "入库单价", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_出库单价", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "出库单价", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_分类", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "分类", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_名称", System.Data.SqlDbType.VarChar, 150, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "名称", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_批发价", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "批发价", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_拼音码", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "拼音码", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_效期", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "效期", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_散量单位", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "散量单位", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_整散比", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "整散比", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_整量单位", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "整量单位", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_规格", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "规格", System.Data.DataRowVersion.Original, Nothing))
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_费用归类", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "费用归类", System.Data.DataRowVersion.Original, Nothing))
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=CS;persis" & _
"t security info=False;initial catalog=hisbook"
'
'SqlInsertCommand1
'
Me.SqlInsertCommand1.CommandText = "INSERT INTO 药品资料(编号, 名称, 规格, 整量单位, 散量单位, 入库单价, 出库单价, 批发价, 整散比, 分类, 费用归类, 拼音码, 效期," & _
" 上限, 下限) VALUES (@编号, @名称, @规格, @整量单位, @散量单位, @入库单价, @出库单价, @批发价, @整散比, @分类, @费用" & _
"归类, @拼音码, @效期, @上限, @下限); SELECT 编号, 名称, 规格, 整量单位, 散量单位, 入库单价, 出库单价, 批发价, 整散比, 分" & _
"类, 费用归类, 拼音码, 效期, 上限, 下限 FROM 药品资料 WHERE (编号 = @编号)"
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
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, 150, "名称"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@规格", System.Data.SqlDbType.VarChar, 100, "规格"))
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, 50, "散量单位"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入库单价", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, 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(12, Byte), CType(2, 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(12, Byte), CType(2, 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(12, Byte), CType(2, Byte), "整散比", System.Data.DataRowVersion.Current, Nothing))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@分类", System.Data.SqlDbType.VarChar, 100, "分类"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@费用归类", System.Data.SqlDbType.VarChar, 100, "费用归类"))
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.Int, 4, "效期"))
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@上限", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, 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(12, Byte), CType(2, Byte), "下限", System.Data.DataRowVersion.Current, Nothing))
'
'SqlSelectCommand1
'
Me.SqlSelectCommand1.CommandText = "SELECT 编号, 名称, 规格, 整量单位, 散量单位, 入库单价, 出库单价, 批发价, 整散比, 分类, 费用归类, 拼音码, 效期, 上限, 下限 FR" & _
"OM 药品资料"
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
'
'SqlUpdateCommand1
'
Me.SqlUpdateCommand1.CommandText = "UPDATE 药品资料 SET 编号 = @编号, 名称 = @名称, 规格 = @规格, 整量单位 = @整量单位, 散量单位 = @散量单位, 入库单价 = " & _
"@入库单价, 出库单价 = @出库单价, 批发价 = @批发价, 整散比 = @整散比, 分类 = @分类, 费用归类 = @费用归类, 拼音码 = @拼音码," & _
" 效期 = @效期, 上限 = @上限, 下限 = @下限 WHERE (编号 = @Original_编号) AND (上限 = @Original_上限 O" & _
"R @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 NU" & _
"LL) AND (分类 = @Original_分类 OR @Original_分类 IS NULL AND 分类 IS NULL) AND (名称 = @Or" & _
"iginal_名称 OR @Original_名称 IS NULL AND 名称 IS NULL) AND (批发价 = @Original_批发价 OR @O" & _
"riginal_批发价 IS NULL AND 批发价 IS NULL) AND (拼音码 = @Original_拼音码 OR @Original_拼音码 I" & _
"S NULL AND 拼音码 IS NULL) AND (效期 = @Original_效期 OR @Original_效期 IS NULL AND 效期 IS" & _
" NULL) AND (散量单位 = @Original_散量单位 OR @Original_散量单位 IS NULL AND 散量单位 IS NULL) AN" & _
"D (整散比 = @Original_整散比 OR @Original_整散比 IS NULL AND 整散比 IS NULL) AND (整量单位 = @Or" & _
"iginal_整量单位 OR @Original_整量单位 IS NULL AND 整量单位 IS NULL) AND (规格 = @Original_规格 O" & _
"R @Original_规格 IS NULL AND 规格 IS NULL) AND (费用归类 = @Original_费用归类 OR @Original_费" & _
"用归类 IS NULL AND 费用归类 IS NULL); SELECT 编号, 名称, 规格, 整量单位, 散量单位, 入库单价, 出库单价, 批发价, 整" & _
"散比, 分类, 费用归类, 拼音码, 效期, 上限, 下限 FROM 药品资料 WHERE (编号 = @编号)"
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
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, 150, "名称"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@规格", System.Data.SqlDbType.VarChar, 100, "规格"))
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, 50, "散量单位"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@入库单价", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, 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(12, Byte), CType(2, 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(12, Byte), CType(2, 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(12, Byte), CType(2, Byte), "整散比", System.Data.DataRowVersion.Current, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@分类", System.Data.SqlDbType.VarChar, 100, "分类"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@费用归类", System.Data.SqlDbType.VarChar, 100, "费用归类"))
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.Int, 4, "效期"))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@上限", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, 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(12, Byte), CType(2, Byte), "下限", System.Data.DataRowVersion.Current, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_编号", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "编号", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_上限", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "上限", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_下限", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "下限", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_入库单价", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "入库单价", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_出库单价", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "出库单价", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_分类", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "分类", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_名称", System.Data.SqlDbType.VarChar, 150, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "名称", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_批发价", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "批发价", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_拼音码", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "拼音码", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_效期", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "效期", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_散量单位", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "散量单位", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_整散比", System.Data.SqlDbType.Decimal, 9, System.Data.ParameterDirection.Input, False, CType(12, Byte), CType(2, Byte), "整散比", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_整量单位", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "整量单位", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_规格", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "规格", System.Data.DataRowVersion.Original, Nothing))
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_费用归类", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "费用归类", System.Data.DataRowVersion.Original, Nothing))
'
'frmMedicine
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(608, 333)
Me.Controls.Add(Me.GroupBox1)
Me.Name = "frmMedicine"
Me.Controls.SetChildIndex(Me.GroupBox1, 0)
Me.GroupBox1.ResumeLayout(False)
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub#End Region Public Overrides Sub Prepare()
Me.Text = "药品信息维护"
Me.Label1.Text = " 拼音码"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -