unit aa;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB,ADODB;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
LogTimes: Integer;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
logtimes:=0;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
var
ADOQuery1:TADOQuery;
begin
ADOQuery1:= TADOQuery.Create(self);
ADOQuery1.ConnectionString :='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
'al Catalog=XD;Data Source=bb';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from usepass where 帐号="'+edit1.Text+'" and 密码="'+edit2.Text+'" ');
ADOQuery1.Open;
if ADOQuery1.Eof then
begin
messagebox(handle,'您没有填写用户和密码!','出错提示',mb_iconinformation+mb_ok);
edit1.SetFocus;
end
else
begin
messagebox(handle,'欢迎进入!','登陆成功',mb_iconinformation+mb_ok);
end
end;end.
出错提示:列名无效!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB,ADODB;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
LogTimes: Integer;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
logtimes:=0;
end;procedure TForm1.BitBtn1Click(Sender: TObject);
var
ADOQuery1:TADOQuery;
begin
ADOQuery1:= TADOQuery.Create(self);
ADOQuery1.ConnectionString :='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
'al Catalog=XD;Data Source=bb';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from usepass where 帐号="'+edit1.Text+'" and 密码="'+edit2.Text+'" ');
ADOQuery1.Open;
if ADOQuery1.Eof then
begin
messagebox(handle,'您没有填写用户和密码!','出错提示',mb_iconinformation+mb_ok);
edit1.SetFocus;
end
else
begin
messagebox(handle,'欢迎进入!','登陆成功',mb_iconinformation+mb_ok);
end
end;end.
出错提示:列名无效!
解决方案 »
- sql server的备份还原
- 我在做一个ACTIVEX控件,请问能不能向程序在运行时写入本身一些东西一样,向我的控件写入东西
- 客户端程序用到服务器的Sql Server,请问客户端也需要安装Sql Server软件吗?
- 请问如何实现文件夹监视功能??请教高手
- delphi的BUG还是我的BUG?
- 呜呜......急呀,请帮忙
- 怎样判断表是否存在??最好用sql!
- 关于ADO的简单问题
- 讨论:多边形彩色按钮组件从哪继承?
- 请问在delphi程序中能不能对另一个EXE的中的一个窗口中的一个Edit输入一个值??
- 各位大侠帮忙看看这个loader源码,强制修改内存的(进程补丁),很短
- 有关写系统登录界面问题
ADOQuery1.SQL.Add('select * from usepass where 帐号='''+edit1.Text+''' and 密码='''+edit2.Text+'''');
" ''
ADOQuery1.SQL.Add('select * from usepass where 帐号="'+edit1.Text+'" and 密码="'+edit2.Text+'" ');怎么会出现双引号呢??
调试中,最好showmessage一下,showmessage("'+edit1.Text+'")看看出来什么.