Помогите с задачей (файлы) на Delphi

[Oksana11]

Здравствуйте! вот собственно и сама задача:
организовать файл записей, содержащий сведения о студентах(фамилия, оценка, экзамен). Обеспечить возможность добавления информации в файл, просмотра всех фамилий из файла и выдачи фамилий тех студентов, у которых тройки по программированию.

[Stilet]

Идеи есть?

[Oksana11]

Вот, то,что я сделала:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Query1: TQuery;
    Button1: TButton;
    Button2: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Add('Exam="programmirovanie"');
Query1.SQL.Add('Ball="3"');
Query1.Open;
DataSource1.DataSet:=Query1;
end;
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1
else begin
ShowMessage('В БД нет записей удовлетворяющих запросу.');
DataSource1.DataSet:=Table1;
end;
end;
end.

То ли я по самоучителю неправильно поняла, то ли самоучитель нехороший!но это не работает!

[AlDelta]

Сообщение от Oksana11

Здравствуйте! вот собственно и сама задача:
организовать файл записей, содержащий сведения о студентах(фамилия, оценка, экзамен). Обеспечить возможность добавления информации в файл, просмотра всех фамилий из файла и выдачи фамилий тех студентов, у которых тройки по программированию.

1
Запись — это составной тип данных, состоящий из фиксированного числа элементов одного или нескольких типов. Описание типа записи начинается словом record и заканчивается словом end. Между ними заключен список элементов, называемых полями, с указанием идентификаторов полей и типа каждого поля:

type
  TStudent = record
    Surname : string[20]; // фамилия
    Estimation: Integer;  // оценка
    Examination: string[20];    // экзамен
  end;

2
Для использования записи нужно обьявить переменную созданного типа

var
  StudentIvanov: TStudent;

3
Обращение к полям записи:

StudentIvanov.Surname:='Pupkin';
StudentIvanov.Estimation:='3';
StudentIvanov.Examination:='Администрирование';

Для работы с однотипными записями можно обьявить массив записей и работать с ним как с обычным массивом:

var
StGroup:array[1..30] of TStudent

3
Для сохранения в файл и чтения из файла записи обьявляют файловою переменную:

var
        F: file of TStudent; // F - файловая переменная
        i:integer;
Begin
AssignFile(F,'ПутьКФайлу');
Rewrite(F);//Создать новый или перезаписать старый

for i:=1 to 30 do
write(F,StGroup[i]);

CloseFile(F);//Закрыть файл

End;

Дальше справка Делфи или Pascal ...

[Oksana11]

Ну, а здесь, что не так? Просто ради интереса, почему не работает?! AlDelta, спасибо буду пробовать...

[puporev]

Оксана, вы хоть понимаете, что вы списали? Это программа для работы с базами данных, и чтобы она заработала надо создать базы данных и еще кое-что. Как говорится не приведи вам Господь.

[Oksana11]

Вообще-то, у меня база данных создана! на форме все это есть! Связи между компонентами правильные! Это я проверяла несколько раз! Если не нажимать кнопку запрос, то все работает! И вообще по-другому не получается!! Помогите, пожалуйста!

[Oksana11]

Кто-нибудь может посоветовать толковый справочник по SQL?...

[AlDelta]

http://programmersforum.ru/showpost....54&postcount=2

Решить задание можно и без SQL

[Oksana11]

Решить задание можно и без SQL

Да? А как?