解决方案 »
- spcomm 接收问题 加急!!
- Treeview的展开事件是什么,怎么在Treeview的末端增加员工名
- Borland最新版开发工具Delphi 2005抢先预览
- 简单的memo问题
- 如何把delphi程序打包
- txt文件转换成paradox数据库,汉字出现乱码的问题
- 谁能说一下,Tsession与Tdatabase的区别,分别有什么作用!我一直弄不清楚
- 怎样通过程序删除Ftp上自给上传的文件阿?各位大哥,很着急啊
- 我装了delphi7之后发现没有quickreport控件,该在哪儿找?在线等待
- 请问oracle中这个sql语句怎么写才正确? select top 1 id from table1;
- 急急急!!delphi7 FastReport v2.4打印问题
- TADOQuery处理时出错会导致数据库进程增加?
少了个:
adoDataset1.Connection:=adoconnection1;
adodataset1.CommandType:=cmdtext;
Adodataset1.CommandText:='select * from log where 用户名=:user and 密码=password';
adodataset1.close;
Adodataset1.Parameters.Clear;
Adodataset1.Parameters.AddParameter;
adodataset1.Parameters[0].name:='user';
adodataset1.Parameters[0].DataType:=ftstring;
Adodataset1.Parameters[0].Direction:=pdinput;
adodataset1.Parameters[0].Value:=edit1.text;
Adodataset1.Parameters.AddParameter;
adodataset1.Parameters[1].name:='password';
adodataset1.Parameters[1].DataType:=ftstring;
Adodataset1.Parameters[1].Direction:=pdinput;
adodataset1.Parameters[1].Value:=edit2.text;
adodataset1.active:=true;
if adodataset1.Recordset.RecordCount=1 then
-> // 转成下面的看看AdoDataSet1:=TAdoDataset.Create(self);
adoDataset1.Connection:=adoconnection1;
adodataset1.CommandType:=cmdtext;
Adodataset1.CommandText:='select * from log where 用户名= '''+edit1.text+
''' and 密码 = '''+edit2.text+'''';
adodataset1.active:=true;
if adodataset1.Recordset.RecordCount=1 then
'', MB_OK + MB_ICONSTOP);
close;
end;
”close这边出问题了,你能不能帮我看一下,嘿嘿~谢谢!
if count=0 then
begin
MessageBox(0, '您进行系统身份确认程序错误已经超过3次,本系统将停止执行!', '提示', 64);
Application.Terminate;
end;