收录日期:2018/12/13 08:10:31 时间: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

资深专家进,javascript中ie生成空格问题? 安装oracle时的如何区别数据库标识 请问,我想用idftp下载整个目录,应该如何做呀- - 卡巴禁tq 泛型列表内容发生变化时,列表的什么属性跟着变化?? pb11+webform 开发出来的页面上单行输入框的回车键 如何转到下一焦点 Myeclipse6.5安装aptana插件问题 char * 赋值问题 oracle游标问题 如何把表中年龄为X的男生名字显示在textbox中? >>>>求教向iframe中动态添加JS脚本<<<< netbox 无法打开 aspx 文件 netbox 无法打开 aspx 文件 请问我要实现从另一个页面传值过来根据这个值从数据库取得数据显示当前页,可以在当前页点击上一条记录和下一条记录应该如何实现. 我为何弃读硕士研究生而选做ERP实施顾问? 打听一下:Windows Server 2008 R2用的是什么内核? 求教jsp显示中文名图片的问题!!! 剛剛做了個傻事 cobol初学者问题 请教关于delphi7读取内存中字符串的问题。 c连接mysql数据库成功,但是循环显示记录的时候确出现:[4276]中发生未处理的win32异常 在vc++6.0里编辑时为什么string类的对象在键入.后不提示string类的成员,装了visual assistant,其它类对象都有提示 急,请问css边距的问题? 散分 求购基于WEB的硕士论文,要现成的,也要代码,最好人在北京 如何获取ftp服务器的剩余空间 求教高手帮我看看 直接告诉我杂改 我没学过VB 谢谢了 我用VB做的一个系统怎么让他的普通用户没有权限登陆这个 下面是代码 改那个才可以让他只能管理员才能有下面的权限 一个SEO优化问题 哪位仁兄帮个忙,进我的博客,把里面最新的那篇文章\"naming convention\" copy出来,放在这个帖子后面,因为我的网络不能进博客 有未定义错误。。