procedure TForm2.Button1Click(Sender: TObject);
var
count:string;
password1:string;
//rs:datasets;//如何定义一个结果集合的类型?
begin
if(form2.edit1.Text<>'')and (form2.Edit2.Text<>'')then
begin
form2.ADOQuery1.SQL.Add('select from table1 where username=? and password=?');
form2.ADOQuery1.Parameters[0].Value:=form2.edit1.Text;
form2.ADOQuery1.Parameters[1].Value:=form2.Edit2.Text;
form2.ADOQuery1.open();//如何得到结果集
if form2.ADOQuery1.open() then//如何判断结果为空?
begin
form2.Hide;
form1.Show;
end;
end;
else
showmessage('df');
var
count:string;
password1:string;
//rs:datasets;//如何定义一个结果集合的类型?
begin
if(form2.edit1.Text<>'')and (form2.Edit2.Text<>'')then
begin
form2.ADOQuery1.SQL.Add('select from table1 where username=? and password=?');
form2.ADOQuery1.Parameters[0].Value:=form2.edit1.Text;
form2.ADOQuery1.Parameters[1].Value:=form2.Edit2.Text;
form2.ADOQuery1.open();//如何得到结果集
if form2.ADOQuery1.open() then//如何判断结果为空?
begin
form2.Hide;
form1.Show;
end;
end;
else
showmessage('df');
解决方案 »
- 关于变体记录类型
- fastreport 条件变更字体颜色
- 自定义控件的属性页中链接其它控件的方法
- combobox向listbox添加内容时,如何让已经添过的内容别在重复添加?
- 求教XPMenu问题,以前没人提过的!!!
- 想请教如何获得一个JPG图象的大小,从而能动态设置TIMAGE的大小呀???急!
- ★★★★★想问一个关于数据库和Delphi的问题★★★★★
- 下面的查询语句怎么会死循环呢?帮忙看看。另外指导一下这样子的语句是不是效率不高,如何改善,高分。
- 一个软件封面的制作,停留3秒后显示第二个窗口,谁有这样代码,能供我参考?
- 有几个语句不明白请指点
- 如何将普通整形数变成带#$前缀的十六进制数,高手救急啊.
- ADOStoredProc 执行存储过程以后怎么样取得结果?
showmessage('结果为空');
AdoQ2.Dataset := AdoQ1.Dataset; //Dataset is a _Recordset type.空判断if (AdoQ2.Bof and AdoQ2.Eof) then //Empty, have no record.
if ADOQuery1.recordcount>0 then
not null
2
if not (ADOQuery1.eof and ADOQuery1.bof) then
not null
3
if not ADOQuery1.isempty then
not null
结果集:访问userName字段
ADOQuery1.fieldbyName("UserName").value
ADOQuery1.fields[1].value//1表示第二个字段
ADOQuery1.fieldsvalue[1]
.............................
begin
ShowMessage("结果集为空!!!");
end;
begin
shomessage('');
exit;
end;