一个添加用户信息的
var a,b,c,d,e : string;
begin
oraquery1.Close;
oraquery1.SQL.Clear;
oraquery1.sql.add('select * from CS_2 where sno=:a')
oraquery1.Params.ParamByName('a').value:=trim(ZH_Edit.text);
if oraquery1.Fields //后面该怎么写? 实现如下功能:检查新添加的是否在数据库表中已存在。
begin
application.MessageBox('此用户已存在,请重新输入','警告!',mb_ok);
end
else
oraquery1.Close;
oraquery1.SQL.Clear;
oraquery1.sql.add('insert into CS_2(sno,smm,sname,sage,sex) values(:a,:b,:c,:d,:e)');
oraquery1.Params.ParamByName('a').value:=trim(ZH_Edit.text);
oraquery1.Params.ParamByName('b').value:=trim(MM_Edit.text);
oraquery1.Params.ParamByName('c').value:=trim(XM_Edit.text);
oraquery1.Params.ParamByName('d').value:=trim(NL_Edit.text);
oraquery1.Params.ParamByName('e').value:=trim(XB_Edit.text);
oraquery1.execsql;
end;
var a,b,c,d,e : string;
begin
oraquery1.Close;
oraquery1.SQL.Clear;
oraquery1.sql.add('select * from CS_2 where sno=:a')
oraquery1.Params.ParamByName('a').value:=trim(ZH_Edit.text);
if oraquery1.Fields //后面该怎么写? 实现如下功能:检查新添加的是否在数据库表中已存在。
begin
application.MessageBox('此用户已存在,请重新输入','警告!',mb_ok);
end
else
oraquery1.Close;
oraquery1.SQL.Clear;
oraquery1.sql.add('insert into CS_2(sno,smm,sname,sage,sex) values(:a,:b,:c,:d,:e)');
oraquery1.Params.ParamByName('a').value:=trim(ZH_Edit.text);
oraquery1.Params.ParamByName('b').value:=trim(MM_Edit.text);
oraquery1.Params.ParamByName('c').value:=trim(XM_Edit.text);
oraquery1.Params.ParamByName('d').value:=trim(NL_Edit.text);
oraquery1.Params.ParamByName('e').value:=trim(XB_Edit.text);
oraquery1.execsql;
end;
解决方案 »
- 很急很急的bde连接sql 2000的问题
- 请教高手,注册表里二进制值的编辑框是用什么控件做的?有第三方控件吗?如何编辑呢?
- 再加50分,200分求一正解,windows区的高手进来接分!
- 如何用dsquery控件调用存过?
- 关于FastReport主件的问题
- Unit StdActns was compiled with a different version of Dialogs.TCommonDialog
- Rave中怎样实现自定义打印预览?????
- 开发办法,请出点建议!
- 请问怎样得到当日的星期数?
- !!!小问题难倒.......Access数据库密码问题????
- delphi 开发服务端 有什么开源的模型吗?
- 求java开源 hr!!!!!
begin
....
end;判断你查询出来的是否有符合条件的数据,有的话那就是重复了,没有那么就可以添加了
var
a,b,c,d,e : string;
begin
oraquery1.Close;
oraquery1.SQL.Clear;
oraquery1.sql.add('select * from CS_2 where sno=:a')
oraquery1.Params.ParamByName('a').value:=trim(ZH_Edit.text);
if oraquery1.Fields //后面该怎么写? 实现如下功能:检查新添加的是否在数据库表中已存在。
begin
application.MessageBox('此用户已存在,请重新输入','警告!',mb_ok);
end
else
begin
oraquery1.Close;
oraquery1.SQL.Clear;
oraquery1.sql.add('insert into CS_2(sno,smm,sname,sage,sex) values(:a,:b,:c,:d,:e)');
oraquery1.Params.ParamByName('a').value:=trim(ZH_Edit.text);
oraquery1.Params.ParamByName('b').value:=trim(MM_Edit.text);
oraquery1.Params.ParamByName('c').value:=trim(XM_Edit.text);
oraquery1.Params.ParamByName('d').value:=trim(NL_Edit.text);
oraquery1.Params.ParamByName('e').value:=trim(XB_Edit.text);
oraquery1.execsql;
end;
end;
if oraquery1.Recordcount>0 then
application.MessageBox('此用户已存在,请重新输入','警告!',mb_ok);
else
begin
...
end;