我要在成绩表中插入成绩(ID,SCORE,STUDENT),在插入之前进行判断,就是选定一条记录后再判断其他的列是否与输入的相同(在插入时可能会重复插入,这样只有对选定的记录的属性全部判断),下面的程序只能进行一个列的判断,怎样进行全部判断啊?还请指教
if not adotable1.Locate('STUDENT',Edit1.Text,[]) then
begin
adotable1.AppendRecord([Edit1.Text,DBText1.Field,user_login.Edit1.Text]);
end
else
showmessage('已存在,请重新输入');
if not adotable1.Locate('STUDENT',Edit1.Text,[]) then
begin
adotable1.AppendRecord([Edit1.Text,DBText1.Field,user_login.Edit1.Text]);
end
else
showmessage('已存在,请重新输入');
解决方案 »
- 内存问题,照片数据插不进数据库?
- 请问删除ADOTable全部记录为何出错?
- IdHTTP Get网页出错 http 1.1 500 Internal Server Error.求解?
- 关于三层结构的两个问题(悬赏100分)
- 如何把一个excel或word等文件保存到oracle7.3中,并可以把它读出并用excel或word程序打开.(用DELPHI开发)
- delphi字符串存储到sql server数据库中时,怎样去掉字符串结束符0?
- 请 myling(阿德) 朋友来接分。
- To: WWWWA(aaaa)再请教你一个问题??
- adoquery 自己跳过sql语句执行,请问各位大侠怎么办才好?
- delphi系统程序问题请高手参与
- 邮件的编码转换
- flash播放器中如何实现有文件播放列表,供用户选择播放;
adotable1.AppendRecord([Edit1.Text,DBText1.Field,user_login.Edit1.Text]);
else
if (adotable1.FieldByName('SCORE').AsInteger = StrToInt(DBText1.Field)) and
(adotable1.FieldByName('ID').AsString = user_login.Edit1.Text) then
showmessage('已存在,请重新输入')
else
adotable1.AppendRecord([Edit1.Text,DBText1.Field,user_login.Edit1.Text]);