收录日期:2019/05/22 09:20:37 时间: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

求问 存储过程传参问题 delphi做界面 MFC怎样调用DLL呢? 如何获取外部程序窗体的句柄?前提外部程序启动的窗体在任务栏不显示! 我要写毕业论文但是一年多写程序了现在我有伪代码求高手帮我写成实际代码C++的 数据绑定问题,大侠请指点 请问qreport如何预览超过一页纸的图片 在线等待高人解答!!!! DataGridView 行焦点不改变的情况下提交数据 关于ecside导出xls文件 c#中的除零异常 c语言太烂,求一函数写法 在finally块中进行数据库事务提交合适不? 一个人的舅舅比自己还小,晕哦,呵呵. 求javascript验证开始时间小于结束时间的代码? c#收发大数据量采取什么函数 关于Qt窗口的超级简单问题 crontab 跪求--关于会话bean 毕业设计选中模型机的设计与实现 《送分》MFC下 VTS_BSTR VTS_I4等这些类型在哪个头文件定义啊? MFC 界面 button控件闪烁 ListView的问题,请教 关于jquery和asp.net方法的封装 寻找jquery,js高手 帮忙解决问题 一个简单的多线程问题~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 在线等:如何利用循环方法打印出所输入字符串的反序字母组合的方法? WPF Grid怎么设置单元格的属性? 2010要过去了祝福大家 新人求助~~关于行列转换问题