为什么我的delphi没有提示！救急！在线等！

Question

应用delphi 里的方法或者函数时正常应该有提示的，但是我的错误提示框老是显示以下，不知道什么原因？救急！
[Pascal Error] main.pas(1): Unable to invoke Code Completion due to errors in source code

Answer 1

代码如下：unit main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;type
  TfrmMain = class(TForm)
    lblUserName: TLabel;
    lblPassword: TLabel;
    edtUserName: TEdit;
    edtPassword: TEdit;
    btnYes: TButton;
    btnNo: TButton;
    ADOConn: TADOConnection;
    ADOqry: TADOQuery;
    function GetPassword : String;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  frmMain: TfrmMain;implementation{$R *.dfm}function GetPassword : String;
var
  pwd : String;
  sql : String;
begin
  //通过用户名查找用户密码
  sql := 'select password from tb_staff where userName =: ' + Trim(edtUserName.Text) ';
  ADOQry.SQL = sql;
  psd := adoqry.fields[0].value.AsString;
  return psd;
end;
end.

Answer 2

psd := adoqry.fields[0].value;或者
psd := adoqry.fields[0].AsString;

Answer 3

ADOQry.close;
ADOQry.SQL.clear;
sql :=  'select password from tb_staff where userName = '+//去掉冒号
''''+Trim(edtUserName.Text)+'''';
ADOQry.SQL.text :=sql;
ADOQry.open;
psd := adoqry.fields[0].AsString;//到底是pwd还是psd
return psd;
///////////////////////////////////////////
楼主，你的代码写的太烂了！随便找本书看看，书上象这样的代码多的是

Answer 4

第一: function GetPassword : String;
最好聲明在如下位置:
private 
 function GetPassword : String;
第二:
{$R *.dfm}function GetPassword : String; //注意本行
var
  pwd : String;
  sql : String;
改成如下:
{$R *.dfm}function TfrmMain.GetPassword : String; //注意本行
var
  pwd : String;
  sql : String;

Answer 5

看来你是从java转过的吧
function TfrmMain.GetPassword: String;//////////////add "TfrmMain."
var
  pwd : String;
  sql : String;
begin
  //通过用户名查找用户密码
  adoqry.Close;
  sql := 'select password from tb_staff where userName =''' + Trim(edtUserName.Text) + '''';////////////Delete ":" ,ADD 逗号
  ADOQry.SQL.text = sql;///Add ".text"
  adoqry.Open;  ////////Add
  psd := adoqry.fields[0].AsString;////
  result := psd;////////////
  adoqry.Close;
end;
end.