Private Sub Form_Load()
'器材类别信息加入到equAdd组合框中
Dim rs As New ADODB.Recordset
Dim sqlType As String
sqlType = "select typename from equtype order by typename"
Set rs = TransactSQL(sqlType)
While Not rs.EOF
equType.AddItem rs(0)
rs.MoveNext
Wend
rs.Close
'操作选择
If ModifyEqFlag2 = True Then
'Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from equs where equNO ='" & ModifyEqFlag1 & "'"
Set rs = TransactSQL(sql)
equNo.Text = rs.Fields(0)
equNo.Locked = True ' 使不可改动
equMod.Text = rs.Fields(1)
equLen.Text = rs.Fields(2)
equName.Text = rs.Fields(3)
equEngName.Text = rs.Fields(4)
equPinyin.Text = rs.Fields(5)
equNece.Text = rs.Fields(6)
equBrand.Text = rs.Fields(7)
equType.Text = rs.Fields(8)
equBuyDTP.Value = rs.Fields(9)
equSim.Text = rs.Fields(10)
equOri.Text = rs.Fields(11)
equPrice.Text = rs.Fields(12)
equEnrolDTP.Value = rs.Fields(13)
equOther.Text = rs.Fields(14)
ModifyEqFlag2 = ModifyEqFlag2 Xor True
addEqOK.Enabled = False
Else
modifyEqOK.Enabled = False
End If
End Sub
Private Sub modifyEqOK_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "update equs set equNo= '" & equNo.Text & "',equmod='" & equMod.Text & "'"
sql = sql & ",equlen='" & equLen.Text & "',equname='" & equName.Text & "'"
sql = sql & ",equengname='" & equEngName.Text & "',equpinyin='" & equPinyin.Text & "'"
sql = sql & ",equnece='" & equNece.Text & "',equbrand='" & equBrand.Text & "'"
sql = sql & ",equtype='" & equType.Text & "',equbuydate='" & Format(equBuyDTP.Value, "yyyy-mm-dd") & "'"
sql = sql & ",equsim='" & equSim.Text & "',equori='" & equOri.Text & "'"
sql = sql & ",equprice='" & equPrice.Text & "',equenroldate='" & Format(equEnrolDTP.Value, "yyyy-mm-dd") & "'"
sql = sql & ",equother='" & equOther.Text & "' where equno='" & equNo.Text & "'"
If Trim(equNo.Text) = "" Or Trim(equMod.Text) = "" Or Trim(equLen.Text) = "" Or _
Trim(equName.Text) = "" Or Trim(equEngName.Text) = "" Or Trim(equPinyin.Text) = "" Or _
Trim(equNece.Text) = "" Or Trim(equBrand.Text) = "" Or Trim(equType.Text) = "" Or _
Trim(equBuyDTP.Value) = "" Or Trim(equSim.Text) = "" Or Trim(equOri.Text) = "" Or _
Trim(equPrice.Text) = "" Or Trim(equEnrolDTP.Value) = "" Or Trim(equOther) = "" Then
MsgBox "器材信息录入不能为空!", vbOKOnly
Else
TransactSQL (sql)
MsgBox "器材信息修改成功!", vbOKOnly
Unload Me
End If
End Sub