delphi+sql
表中有两个字段 id(char) time(datetime)
窗体中有两个edit 一个button
我的代码如下
Adoquery1.insert;
Adoquery1.Fields[0].asstring:=Edit2.text;
adoquery1.Fields[1].Asdatetime:=strtodatetime(Edit1.Text);
adoquery1.post;
运行后也通过,可为什么当edit内容为空时就出错?怎么改才行?
表中有两个字段 id(char) time(datetime)
窗体中有两个edit 一个button
我的代码如下
Adoquery1.insert;
Adoquery1.Fields[0].asstring:=Edit2.text;
adoquery1.Fields[1].Asdatetime:=strtodatetime(Edit1.Text);
adoquery1.post;
运行后也通过,可为什么当edit内容为空时就出错?怎么改才行?
if trim(edit2.text)='' then
edit2.text:=' ';
if trim(edit2.text)='' then
Adoquery1.Fields[0].asstring:='-'
else
Adoquery1.Fields[0].asstring:=Edit2.text;
........
你可以加一行代码,当输入者没输入数字时,谈出一个提示框,重新输入!
if edit1.text:=''or edit2:=''then showmessage();
if edit2.text = '' then
edit2.text:='%';注意,查询时用like匹配。