幫忙啊!急!
多謝了!
在ACCESS裡面為甚麼下面的程序算出GetResidualW的值為7.629395E-06,為甚麼不是為零
Dim sngPileThick As Single
Dim sngUnitW As Single
Dim intQ As Integer
sngUnitW = 21.6
sngWeight = 2332.8
intQ = 108
GetResidualW = sngWeight - intQ * sngUnitW
在ACCESS裡面為甚麼下面的程序算出GetResidualW的值為7.629395E-06,為甚麼不是為零
Dim sngPileThick As Single
Dim sngUnitW As Single
Dim intQ As Integer
sngUnitW = 21.6
sngWeight = 2332.8
intQ = 108
GetResidualW = sngWeight - intQ * sngUnitW
Private Sub Command2_Click() '2.添加 "01" "小命" "123123" 到相应字段中的数据库文件中
Dim mCon As New ADODB.Connection
mCon.CursorLocation = adUseClient
mCon.Open mCnnString
mCon.Execute "Insert Into UserPassWord Values('" & "01'," & " '" & "小庆'," & " '126123" & "')"
mCon.Close
Set mCon = Nothing
End Sub
Private Sub Command3_Click() '3.删除指定ID(Text1.Text)整行的数据行
Dim mCon As New ADODB.Connection
mCon.CursorLocation = adUseClient
mCon.Open mCnnString
mCon.Execute "Delete From UserPassWord Where ID = '" & Trim(Text1.Text) & "'"
mCon.Close
Set mCon = Nothing
End Sub
Private Sub Command4_Click() '4.根据用ID(Text2.Text)查询数据库
If mRst.State = adStateOpen Then mRst.Close
mRst.CursorLocation = adUseClient
mRst.Open "Select * From UserPassWord Where ID = '" & Trim(Text2.Text) & "'", mCnnString, adOpenStatic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = mRst
End Sub
Private Sub Command5_Click() '4.根据用户名(Text3.Text)查询数据库
If mRst.State = adStateOpen Then mRst.Close
mRst.CursorLocation = adUseClient
mRst.Open "Select * From UserPassWord Where 用户名 = '" & Trim(Text3.Text) & "'", mCnnString, adOpenStatic, adLockOptimistic, adCmdText
Set DataGrid1.DataSource = mRst
End Sub
Private Sub Command6_Click() '5.清空数据表,保留字段
Dim mCon As New ADODB.Connection
mCon.CursorLocation = adUseClient
mCon.Open mCnnString
mCon.Execute "Delete From UserPassWord Where True"
mCon.Close
Set mCon = Nothing
End Sub
Private Sub Form_Load()
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
End Sub
Private Sub Form_Unload(Cancel As Integer)
mRst.Close
Set mRst = Nothing
End Sub