Z
zytzjx
Unregistered / Unconfirmed
GUEST, unregistred user!
strSQL := 'Update Sell set 客户编号 = :ClientNo, 客户名称 = :ClientName,'
+' 折扣 = :Less, 日期 = :NowDate, status = ''P'' where status=''N''';
try//status是文本型
Query := TADOQuery.Create(nil);
Query.Connection := DataM.ADOCon;
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(strSQL);
Query.Parameters.ParamByName('ClientNo').Value := Edit2.Text;//文本
Query.Parameters.ParamByName('ClientName').Value := Edit3.Text;//文本
Query.Parameters.ParamByName('Less').Value := Less.Text;//Double
Query.Parameters.ParamByName('NowDate').Value := Date;//日期型的
Query.ExecSQL;
Query.Close;
Query.Free;
finally
end;
这个出现"非法的精确度数值。"
+' 折扣 = :Less, 日期 = :NowDate, status = ''P'' where status=''N''';
try//status是文本型
Query := TADOQuery.Create(nil);
Query.Connection := DataM.ADOCon;
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(strSQL);
Query.Parameters.ParamByName('ClientNo').Value := Edit2.Text;//文本
Query.Parameters.ParamByName('ClientName').Value := Edit3.Text;//文本
Query.Parameters.ParamByName('Less').Value := Less.Text;//Double
Query.Parameters.ParamByName('NowDate').Value := Date;//日期型的
Query.ExecSQL;
Query.Close;
Query.Free;
finally
end;
这个出现"非法的精确度数值。"