14.11.2007, 16:40
|
Прохожий
|
|
Регистрация: 02.09.2007
Сообщения: 38
Репутация: 10
|
|
База данных "школа"
Вообщем решил сделать базу данных "Школа", но почему-то ничего не получилось! Когда нажимаешь поиск "Зарос" - поиск по фамилии, и вводишь, существующую фамилию выскакивает ошибка 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.
Последний раз редактировалось JIexa, 14.11.2007 в 19:53.
|