首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

感觉应该是小疑点,但是解决不了,谁帮帮忙

2012-03-19 
感觉应该是小问题,但是解决不了,哪位高手帮帮忙Delphi中写一模糊查询程序,在Form窗体中添加一个Button,双

感觉应该是小问题,但是解决不了,哪位高手帮帮忙
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 '    
 
 
怎么解决啊

[解决办法]
AAA1 in 'D:\洪宇工作记录\AAA1.pas ' ; //没有AAA1.pas

热点排行