Button1Click的代码如下:
 with ADODataSet1 do begin
      if not Active then Open;
      Append;
      ......
      FieldByName('SDDZ').AsString := Edit3.Text;
      FieldByName('SDDH').AsString := Edit4.Text;
       ........
      Post;
    end;
其中,ADODataSet1 所连接的sql数据库表是不允许空的,可是我在每个Edit都没有输入东东,一按Button1,也post成功了,打开数据库一看,还真新增了一行,除了ID自增以外,其他字段都是空的. 我猜想是有空格,而不是真正的NULL,那么应该怎么改代码呢?谢谢 (我的目的:字段为空,就不允许Post)

解决方案 »

  1.   

    if trim(edit3.text)='' then raise Exception.Create('信息不完整')
      

  2.   

    你是不是不允许为Null啊,其AsString := Edit3.Text;应该是把空格加进去了
      

  3.   

    if trim(edit3.text)='' then raise Exception.Create('信息不完整')
    -------
    很弱的问:这句应该加在哪儿?
    to:weizi2000(秋风啊):我想知道应该怎么写代码?
      

  4.   

    if trim(Edit3.Text)='' then begin
      MessageDlg('try again!',mtWarning,[mbOk], 0);
      Edit3.SetFocus;
      exit;
    end;建议在执行sql数据库表操作之前,先对录入值进行判断...