//增 procedure TForm1.btnAddClick(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(‘select * from AZZ where 排名=(‘‘‘ + Edit1.Text + ‘‘‘)‘); ADOQuery1.Open; //if ADOQuery1.IsEmpty then ?????????????????????????? if ADOQuery1.RecordCount = 0 then //如果记录为空....做判断 begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(‘insert into AZZ(排名,名称,网址,国家) values (‘‘‘ + Edit1.Text + ‘‘‘,‘‘‘ + Edit2.Text + ‘‘‘,‘‘‘ + Edit3.Text + ‘‘‘,‘‘‘ + Edit4.Text + ‘‘‘)‘); if (trim(Edit1.text)=‘‘) or (trim(Edit2.text)=‘‘) or (trim(Edit3.text)=‘‘) or (trim(Edit4.text)=‘‘) then begin showMessage(‘有数据输入为空,请重新输入!‘); exit //强制跳出if语句 end else begin showMessage(‘数据添加成功!‘); end; ADOQuery1.ExecSQL; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(‘select * from AZZ‘); ADOQuery1.Open; end else begin showmessage(‘您输入的排名已经存在,请重新输入!‘); end; end;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 [email protected] 举报,一经查实,本站将立刻删除。