var
DL_ADOQ: TADOQuery;//**********************************************
procedure TForm1.Enter_BtnClick(Sender: TObject);
var
DL_ADOQ: TADOQuery;
var
Password:string;
begin
if XM_CB.Text='' then
begin
MessageBox(handle,'用户名不能为空,请选择或输入用户名!','错误',MB_OK or MB_ICONERROR);
exit;
end;
DL_ADOQ.Close;
DL_ADOQ.SQL.Clear;
DL_ADOQ.SQL.Add('Select Password,QXID From YH Where UserName=(:Name)');
DL_ADOQ.Parameters.ParamByName('Name').Value:=XM_CB.Text;
DL_ADOQ.Open;
if DL_ADOQ.FieldByName('Password').IsNull then Password:=''
else Password:=DL_ADOQ.FieldValues['Password'];
if Password=MM_E.Text then
begin
YH:=XM_CB.Text;
QX:=DL_ADOQ.FieldValues['QXID'];
self.Hide;
DL_ADOQ.Close;
FreeAndNil(DL_ADOQ);
with TMain_F.Create(nil) do
try
ShowModal;
finally
Free;
Application.Terminate;
end;
end
else begin
MessageBox(0,'密码错误请重新输入!','密码错误',MB_OK or MB_ICONERROR);
MM_E.Text:='';
end;
end;两个错误,[错误] denglu.pas(39): Undeclared identifier: 'TADOQuery'
[错误] denglu.pas(48): Missing operator or semicolon
等待高手,现行谢过。
DL_ADOQ: TADOQuery;//**********************************************
procedure TForm1.Enter_BtnClick(Sender: TObject);
var
DL_ADOQ: TADOQuery;
var
Password:string;
begin
if XM_CB.Text='' then
begin
MessageBox(handle,'用户名不能为空,请选择或输入用户名!','错误',MB_OK or MB_ICONERROR);
exit;
end;
DL_ADOQ.Close;
DL_ADOQ.SQL.Clear;
DL_ADOQ.SQL.Add('Select Password,QXID From YH Where UserName=(:Name)');
DL_ADOQ.Parameters.ParamByName('Name').Value:=XM_CB.Text;
DL_ADOQ.Open;
if DL_ADOQ.FieldByName('Password').IsNull then Password:=''
else Password:=DL_ADOQ.FieldValues['Password'];
if Password=MM_E.Text then
begin
YH:=XM_CB.Text;
QX:=DL_ADOQ.FieldValues['QXID'];
self.Hide;
DL_ADOQ.Close;
FreeAndNil(DL_ADOQ);
with TMain_F.Create(nil) do
try
ShowModal;
finally
Free;
Application.Terminate;
end;
end
else begin
MessageBox(0,'密码错误请重新输入!','密码错误',MB_OK or MB_ICONERROR);
MM_E.Text:='';
end;
end;两个错误,[错误] denglu.pas(39): Undeclared identifier: 'TADOQuery'
[错误] denglu.pas(48): Missing operator or semicolon
等待高手,现行谢过。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货