我很郁闷,Unit13在编译时没错,我想写Form13.OnShow事件,当我在事件里写到Form13.一点时就出错.不知是什么原因.我不写Form13.直接写ADOQuery1.也出错,写self.也出错.错误代码如下:[Pascal Error] Unit13.pas(1): Unable to invoke Code Completion due to errors in source code
附上Unit13的程序:
unit Unit13;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB;type
TForm13 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
ADOConnection1: TADOConnection;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
DataSource1: TDataSource;
DataSource2: TDataSource;
procedure Button1Click(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;var
Form13: TForm13;implementation{$R *.dfm}procedure TForm13.Button1Click(Sender: TObject);
begin
if (edit1.Text ='') then
showmessage('请输入车位编号!')
else
begin
form13.ADOQuery2.Close ;
form13.ADOQuery2.SQL.Clear ;
form13.ADOQuery2.SQL.Add('select * from 停车场数据表 where 车位编号='+quotedstr(edit1.Text));
form13.ADOQuery2.Open ;
end
end;end.谁能解决一下.谢谢!~
附上Unit13的程序:
unit Unit13;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB;type
TForm13 = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
ADOConnection1: TADOConnection;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
DataSource1: TDataSource;
DataSource2: TDataSource;
procedure Button1Click(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;var
Form13: TForm13;implementation{$R *.dfm}procedure TForm13.Button1Click(Sender: TObject);
begin
if (edit1.Text ='') then
showmessage('请输入车位编号!')
else
begin
form13.ADOQuery2.Close ;
form13.ADOQuery2.SQL.Clear ;
form13.ADOQuery2.SQL.Add('select * from 停车场数据表 where 车位编号='+quotedstr(edit1.Text));
form13.ADOQuery2.Open ;
end
end;end.谁能解决一下.谢谢!~
加 断点 1步1步执行.