[JIexa]

Вообщем решил сделать базу данных "Школа", но почему-то ничего не получилось! Когда нажимаешь поиск "Зарос" - поиск по фамилии, и вводишь, существующую фамилию выскакивает ошибка IMG - в низу!

DataSource1.DataSet:=Query1 // Когда выдается ошибка, показывает на эту строку!

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Button2: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    Procedure FormActivate(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var fam: string[30];
begin
fam:=InputBox ('Ïîèñê ó÷åíèêà',
               'Óêàæèòå ôàìèëèþ è ùåëêíèòå "ÎÊ".', '');
if fam <> ''
then
begin
with form1.Query1 do begin
close;
SQL.Clear;

SQL.Add('SELECT Fam, Name, Otch, Class, Data, Adr');
SQL.Add('FROM ":Øêîëà:liceym.db"');
SQL.Add('WHERE');
SQL.Add('(Fam ="'+ Fam + '")');
SQL.Add('ORDER BY Fam, Name, Otch, Class, Data, Adr');
open;
end;
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1 // Когда выдается ошибка, показывает на эту строку!
 else begin
  ShowMessage ('Ïî âàøåìó çàïðîñó íè÷åãî íå íàéäåíî');
 Datasource1.DataSet:=Table1;
 end;
 end;
 end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 DataSource1.DataSet:=Table1;
end;
Procedure TForm1.FormActivate(Sender:TObject);
begin
 DataSource1.DataSet:=Table1;
 Table1.Active:=True;
 end;
end.