为什么一个字段的类型为numeric时,它的“标识种子”还不能编辑(为灰的)

zhujiangxiong 2003-12-12 10:58:02
如题目,是SQLSERVER的。
还有问一下,把表里的一个字段原来的类型是VarChar改成现在的类型是Float后(改之前表里的数据已经全部删关了),数据就写不进去了,提示不匹配的类型,后来我把表重新建立过(先删除)也是不行,我在DELPHI里把ADOConnection、ADODataSet等也重新删除再建立过,还是不行!现在问题更严重了,重新建立的表不能够定义它的“标识种子”。我的代码如下:
procedure Tdengjichengbenfm.BitBtn1Click(Sender: TObject);
begin
if ComboBox3.Text = '' then
begin
ShowMessage('你没有选择客户名称!请选择客户名称。')
end
else if ComboBox2.Text = '' then
begin
ShowMessage('你没有选择合同编号!请选择合同编号。')
end
else if ComboBox1.Text = '' then
begin
ShowMessage('你没有选择费用性质!请选择费用性质。')
end
else if Edit1.Text = '' then
begin
ShowMessage('金额不能为空!')
end
else
begin
ADODst.Open;
ADODst.Append;
ADODst.FieldByName('kh_khmc').AsString := ComboBox3.Text;
ADODst.FieldByName('ht_id').AsString := ComboBox2.Text;
ADODst.FieldByName('htcbmx_zcrq').AsString := DateTimeToStr(DateTimePicker1.DateTime);
ADODst.FieldByName('htcbmx_cbmc').AsString := ComboBox1.Text;
ADODst.FieldByName('htcbmx_je').Value:=StrToFloat(Edit1.Text);
//这样也不行: ADODst.FieldByName('htcbmx_je').AsString := Edit1.Text;
ADODst.FieldByName('htcbmx_jsr').AsString := Edit3.Text;
ADODst.FieldByName('htcbmx_bz').AsString := Edit2.Text;
ADODst.Post;
ShowMessage('记录添加成功!');
close;
end;
end;
...全文
21 6 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lixiufu 2003-12-12
把所有的临时文件和Obj文件删掉重新编译一下,如果还不行,就一句一句屏蔽缩小范围,然后锁定是在那一句报的错,就可以专心的思考是什么原因了?说不定不是你所想的问题呢?事情往往要先找着问题的所在才能分析,如果你那么找比较盲目的,试一试,感觉一下?!
  • 打赏
  • 举报
回复
wangyisong 2003-12-12
把所有的临时文件和Obj文件删掉重新编译一下,如果还不行,就一句一句屏蔽缩小范围,然后锁定是在那一句报的错,就可以专心的思考是什么原因了?说不定不是你所想的问题呢?事情往往要先找着问题的所在才能分析,如果你那么找比较盲目的,试一试,感觉一下?!
  • 打赏
  • 举报
回复
dulei115 2003-12-12
第二个问题答案:使用decimal类型,定义“标识种子”。
  • 打赏
  • 举报
回复
dulei115 2003-12-12
楼主,错误是不是因为 htcbmx_je 字段,其他地方没发现问题!
  • 打赏
  • 举报
回复
zhujiangxiong 2003-12-12
楼上的方法也不行??
  • 打赏
  • 举报
回复
dulei115 2003-12-12
if trim(Edit1.Text) = '' then
begin
ShowMessage('金额不能为空!')
end
///////////////////
ADODst.FieldByName('htcbmx_je').Value:=StrToFloat(trim(Edit1.Text));


试一下!
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

5066

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2003-12-12 10:58
社区公告
暂无公告