Записи

[andriy1048]

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

Всё сделал сам, только пункт Ж) не получается... Помогите пожалуйста (нужно в форме)

[Utkin]

Всё сделал сам, только пункт Ж) не получается... Помогите пожалуйста (нужно в форме)

Показывайте наработки.

[andriy1048]

unit Unit1;

type  sesiya = record
  group: string[20];
  subject: string[20];
  teacher: string[30];
  data: TDateTime;
  end;
var
  Form1: TForm1;
    f: file of sesiya;
    FOpened: boolean = false;
    FileName: string = '';

implementation

{$R *.dfm}

uses Unit2, Unit3, Unit6, Unit4;

procedure TForm1.FileFClick(Sender: TObject);
begin
  if FOpened // файл відкритий
  then
  begin
  CloseF.Enabled:=true; // підпункт меню Закрити
  ViewF.Enabled:=true; // підпункт меню Перегляд
  AddF.Enabled:=true; // підпункт меню Додати
  end
Else // файл не відкритий
  begin
  CloseF.Enabled:=false; // підпункт меню Закрити
  viewF.Enabled:=false; // підпункт меню Перегляд
  AddF.Enabled:= false; // підпункт меню Додати
  end;
end;

procedure TForm1.OpenFClick(Sender: TObject);
begin
  if fopened
   then
   CloseFile(f);
  if OpenDialog1.Execute
    then
    begin
    FileName:=OpenDialog1.FileName;
    AssignFile(f, filename);
    reset(f);
    fopened:=true;
    end;
end;

procedure TForm1.ViewFClick(Sender: TObject);
begin
 if FileSize(f) <> 0
  then
  ViewForm3.ShowModal // виклик допоміжної форми на якій
  //відображатимуться результати перегляду файлу
  else
  ShowMessage('File is empty!');
end;

procedure TForm1.AddFClick(Sender: TObject);
begin
  AddForm2.ShowModal;
end;


procedure TForm1.CloseFClick(Sender: TObject);
begin
  if fopened
  then
    begin
    closefile(f);
    fopened:=false;
    end;
end;

procedure TForm1.CreateFClick(Sender: TObject);
begin
  if Fopened
  then
  CloseFile(f);
  if SaveDialog1.Execute
  then
    begin
    FileName:=SaveDialog1.FileName;
    AssignFile(f, filename);
    rewrite(f);
    fopened:=true;
    end;
end;

end.





unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TAddForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddForm2: TAddForm2;

implementation

{$R *.dfm}

uses Unit1;



procedure TAddForm2.Button1Click(Sender: TObject);
var rec:sesiya;
begin
try
rec.group:=Edit1.Text;
rec.subject:=Edit2.Text;
rec.teacher:=Edit3.Text;
rec.data:=StrToDate(Edit4.Text);
except Showmessage('Помилка даних');
end;
write(f,rec);
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
end;

procedure TAddForm2.Button2Click(Sender: TObject);
begin
close;
end;

end.





unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;

type
  TViewForm3 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ViewForm3: TViewForm3;

implementation

{$R *.dfm}

uses Unit1, Unit2;


procedure TViewForm3.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Група';
StringGrid1.Cells[1,0]:='Дисципліна';
StringGrid1.Cells[2,0]:='Викладач';
StringGrid1.Cells[3,0]:='Дата';
end;


procedure TViewForm3.Button1Click(Sender: TObject);
begin
close;
end;

procedure TViewForm3.FormActivate(Sender: TObject);
var i:integer;
    rec:sesiya;
begin
ViewForm3.StringGrid1.RowCount :=  Filesize(f)+1;
for i:=1 to Filesize(f) do
begin
seek(f,i-1);
read(f,rec);
ViewForm3.StringGrid1.Cells[0,i]:=rec.group;
ViewForm3.StringGrid1.Cells[1,i]:=rec.subject;
ViewForm3.StringGrid1.Cells[2,i]:=rec.teacher;
ViewForm3.StringGrid1.Cells[3,i]:=DateToStr(rec.data);
end;
end;


end.

[JUDAS]

andriy1048, кидай всю программу архивом.
попытаюсь разораться

[andriy1048]

Это должно быть в Unit4

[Utkin]

Проблема в том, что предыдущие пункты работали с одной записью, а расписание требуется составить с несколькими записями. Используйте массив записей для решения задачи ж).

[JUDAS]

Автор, стиль и функционал менять можно?
п.с. судя по проекту ты пишешь как минимум в CodeGear (D2009) а начинка паскаля начала 80-х

[andriy1048]

Можно) Я не розбираюсь в этом, препод не может нам нормально обьяснить Delphi

[JUDAS]

Автор, значит смотри
1. я работаю в Delphi 7 поэтому код обратка может не "стать"
2. чтобы получить пункт ж) ниже написано что и где менять
-------------------------------
начнём с работы с самим приложением
1. unit2 обработчик Button1Click
перед записью очередного блока функцией write(f,rec);
поставь вот это seek(f, filesize(f));
получается, закрываю файл, открываю по новому и он начинает затирать его начало. Новая запись всегда ставиться в конец файла

procedure TAddForm2.Button1Click(Sender: TObject);
var rec:sesiya;
begin
  try
    rec.group:=Edit1.Text;
    rec.subject:=Edit2.Text;
    rec.teacher:=Edit3.Text;
    rec.data:=Trunc(Edit4.DateTime);
  except
    Showmessage('Ïîìèëêà äàíèõ');
  end;
  seek(f, filesize(f));
  write(f,rec);
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.DateTime := now;
end;

2. юнит Unit3
убей и никогда не используй метод formactivate
Если тебе нужно использовать ShowModal а ты именно его используешь, так пропиши его в форме вот так:

type
  TViewForm3 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    function ShowModal:integer;reintroduce;
  end;

implementation

function TViewForm3.ShowModal: integer;
var i,ref  : integer;
    rec : array of sesiya;
    SL  : TStringList;
begin
  ViewForm3.StringGrid1.RowCount := Filesize(f)+1;
  SL := TStringList.Create;

  for i:=1 to Filesize(f) do
  begin
    seek(f,i-1);
    SetLength(rec, length(rec)+1);
    ref := High(rec);
    read(f,rec[ref]);
    SL.AddObject(rec[ref].subject, TObject(ref+1));
  end;
  SL.Sort;
  for i:=0 to SL.Count-1 do
  begin
    ref := integer(SL.Objects[i])-1;
    ViewForm3.StringGrid1.Cells[0,i+1]:=rec[ref].group;
    ViewForm3.StringGrid1.Cells[1,i+1]:=rec[ref].subject;
    ViewForm3.StringGrid1.Cells[2,i+1]:=rec[ref].teacher;
    ViewForm3.StringGrid1.Cells[3,i+1]:=DateToStr(rec[ref].data);
  end;
  SL.Free;
  Finalize(rec);
  result := inherited ShowModal;
end;

и наконец твой пункт Ж, .... вон в методе ShowModal

3. и крайнее
Пункт меню "показать" нужно активировать хоть где то. Например после открытия файла

procedure TForm1.OpenFClick(Sender: TObject);
begin
  if fopened then
   CloseFile(f);

  if OpenDialog1.Execute then
  begin
    FileName:=OpenDialog1.FileName;
    AssignFile(f, filename);
    reset(f);
    fopened:=true;
  end;

  ViewF.Enabled := true;
end;

результат на картинке

[JUDAS]

короче, лови проект . Перенесёшь код в свой чистовик (см. пост выше)
В архиве папка database там файл с начинкой которая выше на картинке