|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
База данных "школа"
Вообщем решил сделать базу данных "Школа", но почему-то ничего не получилось! Когда нажимаешь поиск "Зарос" - поиск по фамилии, и вводишь, существующую фамилию выскакивает ошибка IMG - в низу!
Цитата:
Код:
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. |
#2
|
|||
|
|||
Мешанина какаято используешь и TTable и TQuery. Пользуйся чем то одним, желательно TQuery. В запроспе используй Like, напиши справочники, например классы, фамилия имя отчество. Доберусь до своих исходников, пришлю пример.
|
#3
|
||||
|
||||
Я работал с этим примером (но не сохранил его к сожалению).
Он рабочий! Пересмотри всё внимательно. P.S. SELECT ..... пиши всё в одну строчку (так удобней). Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|