Delphi中写一模糊查询程序,在Form窗体中添加一个Button,双击该按钮对其编程存储为“AAA1”经过调式,一直也没通过。保存的时候又让存储,存储为AAA
两程序如下:
unit AAA1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Edit1: TEdit;
ADODataSet1: TADODataSet;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.ClearFields;
ADOQuery1.SQL.Add('select * from gzjl where JE like ''%'+edit1.Text+'%''');
ADOQuery1.Open;
edit1.Text:='';
edit1.SetFocus;
end.
-------------------------------------------------------------------------
program AAA;
uses
Forms;
AAA1 in 'D:\洪宇工作记录\AAA.pas' ;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
--------------------------------------------------------------------------
--------------------------------------------------------------------------
提示如下错误:
[Error] AAA.dpr(5): Declaration expected but identifier 'AAA1' found
[Error] AAA.dpr(11): Undeclared identifier: 'TForm1'
怎么解决啊
两程序如下:
unit AAA1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Edit1: TEdit;
ADODataSet1: TADODataSet;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.close;
ADOQuery1.ClearFields;
ADOQuery1.SQL.Add('select * from gzjl where JE like ''%'+edit1.Text+'%''');
ADOQuery1.Open;
edit1.Text:='';
edit1.SetFocus;
end.
-------------------------------------------------------------------------
program AAA;
uses
Forms;
AAA1 in 'D:\洪宇工作记录\AAA.pas' ;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
--------------------------------------------------------------------------
--------------------------------------------------------------------------
提示如下错误:
[Error] AAA.dpr(5): Declaration expected but identifier 'AAA1' found
[Error] AAA.dpr(11): Undeclared identifier: 'TForm1'
怎么解决啊
解决方案 »
- 关于动态链接库的调用
- Delphi通过ADO方式怎样连接有打开权限(已知密码)的Excel表?关键是ADOConnection..ConnectionString:=?
- 急用 用BusinessSkin做MDI窗体最大化问题
- 如何使点击一个BUTTON相当于点击一个DBTOOLBUTTON?
- 在delphi中怎样删除DBImage对应的某记录的照片字段(二进制数据)的内容?
- 求Web Services一份!!
- ORACLE中的序列如何调用?
- 关于鼠标和窗体的位置
- 我想在程序中记录一些备注信息,并把其记录到文本文件中,如何做?谢谢
- Delphi除法运算这怎么不对呀?
- webbrowser 查看---源文件功能
- 哪里有DELPHI的帮助文档啊,谢谢
Forms;
AAA1 in 'D:\洪宇工作记录\; {$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.改成这样吗。不管怎么改。都提示
[Error] AAA.dpr(5): Declaration expected but identifier 'Form1' found
[Error] AAA.dpr(11): Undeclared identifier: 'TForm1'
Forms;
AAA1 in 'D:\洪宇工作记录\AAA1.pas' {$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
AAA1 in 'D:\洪宇工作记录\AAA1.pas'
AAA1 in 'D:\洪宇工作记录\AAA1.pas' {form1};
AAA1 in 'D:\洪宇工作记录\AAA.pas' {form1};不管怎样改这句都不对。Application.CreateForm(TForm1, Form1);这句也不对。
提示错误:[Error] AAA.dpr(11): Undeclared identifier: 'TForm1'
是的话
program AAA;uses
Forms;
AAA1 in 'AAA1.pas'; {$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
就是提示
AAA1 in 'AAA1.pas';
第一个那个名找不到。
[Error] AAA.dpr(5): Declaration expected but identifier 'AAA' found
不管是换成AAA 还是AAA1都是找不到。另外想问一下。AAA和AAA1的作用是什么啊。不是很明白。想改也无从下手呢。
AAA1倒是正常知道是写代码程序的。但是后来保存的时候怎么会又让存储一个文件。存储为AAA自动生成里面的代码。可是代码确有错误。