请问各位高手,下面这段代码中“哪些”“username”是数据库中的字段名?
//检查某用户名称是否已经存在
function TfrmRightSetting.CheckExistUserName(UserName:string):boolean;
var
Query:TADOQuery;
Begin
Try
Query:=TADOQuery.Create(nil);
Query.Connection:=dmPer.acPer;
Query.SQL.Add(‘select UserName from Operator where UserName=:UserName’);
Query.Parameters.ParamByName(‘UserName’).Value:=UserName;
Query.Open;
Result:=Query.RecordCount>0;
Query.Close;
Query.Free;
Except
Result:=False;
End;
End;
//检查某用户名称是否已经存在
function TfrmRightSetting.CheckExistUserName(UserName:string):boolean;
var
Query:TADOQuery;
Begin
Try
Query:=TADOQuery.Create(nil);
Query.Connection:=dmPer.acPer;
Query.SQL.Add(‘select UserName from Operator where UserName=:UserName’);
Query.Parameters.ParamByName(‘UserName’).Value:=UserName;
Query.Open;
Result:=Query.RecordCount>0;
Query.Close;
Query.Free;
Except
Result:=False;
End;
End;
解决方案 »
- 100分求教:进销存中如何处理退货?
- 头疼的问题,在线等答案!
- 决策分析模块的问题,大家来看看
- ^-^女友今天過生日^-^差點忘記了~~~^-^~~開始散分^-^生日快樂^-^ 200分(4)
- Delphi中一个窗体跟另一个窗体怎样的方式通信才最好呢?请大家谈谈!螃蟹敬上
- QReport窗体的关闭问题
- 如何将一个数组类型的参数,如:rightlist:array of tstringlist;传到应用服务器上?
- 一个月没来,以前的朋友还在吗?
- 如何给MySQL表的字段加非空字符的约束?
- 关于SMTP和POP3
- 如何在delphi调用excel
- 请问:以角度为参数的sin或cos函数是什么?或者角度转弧度的函数也行啊
改
Query.ParamByName('UserName').AsString:=UserName;
最主要的你只是要检查一下RecordCount>0即存在。Query.SQL.Add('select UserName from Operator where UserName=''+Edit1.Text+''');
Query.SQL.Add(‘select UserName(字段名) from Operator where UserName(字段名)=:UserName’);
Query.Parameters.ParamByName(‘UserName’(字段名)).Value:=UserName;
Query.Parameters.ParamByName(‘UserName{参数}’).Value:=UserName;
Query.Parameters.ParamByName(‘User_Var’).Value := '张三';还有,你可以把变量名换一下试试,就知道了。
Query.Parameters.ParamByName(‘UserName’(字段名)).Value:=UserName;
~~~~~~~~<----(字段名)----->~~~~~~~~ ^^^^^^^^(参数名)
Query.Parameters.ParamByName(‘UserName’).Value:=UserName;
(参数名,与上面参数名对应)--->~~~~~~~~~~ ^^^^^^^^(delphi变量)
我的数据库中字段名叫“用户名”,Form上的Edit的name属性是“username”,应该怎样改上面的那段代码?
begin
if CheckExistUserName(username.text) then
showmessage('用戶名存在')
else
showmessage('用戶名不存在') ;
end ;function TfrmRightSetting.CheckExistUserName(UserName:string):boolean;
var
Query:TADOQuery;
Begin
Try
Query:=TADOQuery.Create(nil);
Query.Connection:=dmPer.acPer;
Query.SQL.Add(‘select 用户名 from Operator where 用户名=:UserName’);
Query.Parameters.ParamByName(‘UserName’).Value:=UserName;
Query.Open;
Result:=Query.RecordCount>0;
Query.Close;
Query.Free;
Except
Result:=False;
End;
End;