M
mikel
Unregistered / Unconfirmed
GUEST, unregistred user!
当我运行我的登录程序窗口,输入数据库中的用户名密码,提示这个错误提示:
Access violation at address 00470722 in module 'EMain.ExE'.Read of address FFFFFFFF.
试问各位,这是怎么回事儿,
登录窗口的源程序如下:
implementation
uses datamodule;
{$R *.DFM}
procedure TfmLogin.btnOkClick(Sender: TObject);
var
UserName,PassWord:String;//input message
OpName,OpPassWord,OpLevel:String;//the message in database
begin
UserName:=edtUserName.Text;
PassWord:=edtPassWord.Text;
With DataModule1 do
begin
OpName:=tbOP.Fields[0].AsString;
OpPassWord:=tbOP.Fields[1].AsString;
OpLevel:=tbOP.Fields[2].AsString;
end;
//evalue
// timeout:=timeout+1;
//if timeout<=3 then
begin
if (UserName=OpName) and (PassWord=OpPassWord) then
begin
showmessage('a');
end;
end;
end;
Access violation at address 00470722 in module 'EMain.ExE'.Read of address FFFFFFFF.
试问各位,这是怎么回事儿,
登录窗口的源程序如下:
implementation
uses datamodule;
{$R *.DFM}
procedure TfmLogin.btnOkClick(Sender: TObject);
var
UserName,PassWord:String;//input message
OpName,OpPassWord,OpLevel:String;//the message in database
begin
UserName:=edtUserName.Text;
PassWord:=edtPassWord.Text;
With DataModule1 do
begin
OpName:=tbOP.Fields[0].AsString;
OpPassWord:=tbOP.Fields[1].AsString;
OpLevel:=tbOP.Fields[2].AsString;
end;
//evalue
// timeout:=timeout+1;
//if timeout<=3 then
begin
if (UserName=OpName) and (PassWord=OpPassWord) then
begin
showmessage('a');
end;
end;
end;