收录日期:2019/02/16 20:13:24 时间:2016/05/27 14:23:31 标签:VCL组件开发及应用
做设计做到一半,运行弹出一错误窗口,显示如下:
Project Project1.exe raised exception class ECLassNotFound with message'Class TButton not fount ',Process stopped.Use Step or Run to continue.

哪位大哥帮我看看是什么问题啊。。要怎么解决啊~~~拜托了!!!
TButton not fount你的按钮出问题了?
把按钮删掉重新加……
Type
 ...
  Button1: TButton;        //是不是将这句屏掉了?


仔细检查一下代码!

也就是把所有要按的键都删了从新添加吗~?我试了还是不可以啊
5555555555
有Button1: TButton;   这句呢
unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables,
  Buttons, ADODB;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Bevel1: TBevel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    Bevel2: TBevel;
    Edit1: TEdit;
    Label2: TLabel;
    Button1: TButton;
    DBNavigator1: TDBNavigator;
    Memo1: TMemo;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.RadioButton1Click(Sender: TObject);
begin
memo1.Text:='学生学号=';
end;

procedure TForm3.RadioButton2Click(Sender: TObject);
begin
memo1.Text:='姓名=';
end;

procedure TForm3.RadioButton3Click(Sender: TObject);
begin
memo1.Text:='所在院系=';
end;

procedure TForm3.RadioButton4Click(Sender: TObject);
begin
memo1.Text:='所学专业=';
end;

procedure TForm3.RadioButton5Click(Sender: TObject);
begin
memo1.Text:='宿舍=';
end;

procedure TForm3.RadioButton6Click(Sender: TObject);
begin
memo1.Text:='籍贯=';
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
adotable1.refresh;
with adotable1 do
try
  disablecontrols;
  filtered:=false;
  memo1.Text:=memo1.Text+''''+edit1.Text+'''';
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
if adotable1.recordcount=0 then begin
messagebeep(1);
showmessage('没有符合条件的学生,请确认条件或放弃查询!');
if messageDlg('是否继续查询?,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 adotable1.close;
 adotable1.open;
end;
end else begin
 if messageDlg('是否继续查询?,只有结束查询才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 adotable1.close;
 adotable1.open;
end;
 end;
end;



end;

end.


报错为:
[Error] Unit3.pas(80): Undeclared identifier: 'adotable1'
[Error] Unit3.pas(83): Undeclared identifier: 'disablecontrols'
[Error] Unit3.pas(84): Undeclared identifier: 'filtered'
[Error] Unit3.pas(86): Undeclared identifier: 'filter'
[Error] Unit3.pas(89): Undeclared identifier: 'enablecontrols'
[Error] Unit3.pas(90): 'THEN' expected but identifier 'recordcount' found
[Error] Unit3.pas(95): Missing operator or semicolon
[Error] Unit3.pas(96): Missing operator or semicolon
[Error] Unit3.pas(101): Missing operator or semicolon
[Error] Unit3.pas(102): Missing operator or semicolon
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit3.pas'

这些错要怎么改啊!~!!!
加个adotable到界面上
加个adotable到界面上
重建一个。
try
  disablecontrols;
  filtered:=false;
  memo1.Text:=memo1.Text+''''+edit1.Text+'''';
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
end; ←要加!

(貼了二個?)
up

高分求救! 请问Effective Java Programming Language Guide这本书哪里有下载? sql server 异常死机现象 (讨论)除了pb我们下一步应该学什么?(仅限讨论,禁止说脏话,否则打PP) 请问为什么我安装完sql server后,不能建立表,系统表内容也看不到? The job failed.why? 跨网段互访 谁能讲一讲在下列环境下要成功下载一个ActiveX控件,需要哪些权限? 大家好,请问一下,我如何得到一个路径相对于当前路径的相对路径?即当前路径是C:\\hot;另一个路径是F:\\cool,能否得到F:\\cool相对于c:\\hot 谁有大于SYBASE11。0版本的注册码,我就给他20分 yanchang(笨笨)、无为、天生不笨:快快帮我! 还是Tree控件点选HTREEITEM的问题,为什么我还是得不到正确的句柄? 我也需要一个数据库方面的源代码,高分相送! asp的问题,请帮我解决一下,多谢! 為什么會出現Database Connect Faulure. why?为什么会是这样的? 怎样实现解出Access2000库的密码?(附原文)怎样实现产生一个同日期的空库呢? 请问在VB中如何更改文件的创建时间、修改时间等属性? 简单安装分发问题,请高手帮助!!一定给分!!!!! 如何将MPEG文件转换成MPEG4文件,我知道AVIFile Functions,能做这些,但不知道怎么用 如何用VC++6。0编程接收从COM口传过来的数据? 急!!请教各位大虾一个问题!!在线等待!!! 全局脚本是何文件? 请问如何在javaSrcipt里面读写Session的值?? 奇怪的问题\"0\"为什么不等于\"0\" 请各位水友介绍一下MD和MP3的区别 web浏览怎么设置? 如何在vb中调用authoware做的东东,急急!! 通过电话线传输数据 最终的网络宽带是什么技术