Запись в таблицу

@Wtfgod · Регистрация: 30.05.2010

Студворк — интернет-сервис помощи студентам

Доброго времени суток!
вобщем такая задача:
Написать программу-систему учета оценок студента. Таблица, в ней 2 графы: предмет и оценка. Возможность добавлять предмет. В комбо-боксе должны выбрать, экзамен по предмету или зачет. Если зачет, то в графе «оценка» пишется зачет. Если экзамен, то оценка (цифрами).

Сделал 2 формы. На одной таблица,где будут отображаться записи о студентах (ListView). На второй форме вводятся данные о студентах.
Внимание,вопрос! Как сделать так,чтобы введеная инфа на 2-ой форме отобразилась на первой в ListView?

Код могу предоставить
1-ая форма:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls;
 
type
  TForm1 = class(TForm)
    ListView1: TListView;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure N6Click(Sender: TObject);
 
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses
  unit2;
{$R *.dfm}
 
procedure TForm1.N6Click(Sender: TObject);
begin
  form2.Visible := true;
end;
 
end.

2-ая форма

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm2 = class(TForm)
    surname: TLabeledEdit;
    name: TLabeledEdit;
    subject: TLabeledEdit;
    ComboBox1: TComboBox;
    okButton: TButton;
    Button2: TButton;
    mark: TLabeledEdit;
    procedure Button2Click(Sender: TObject);
    procedure markChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
 
implementation
 
uses Unit1;
 var
 surname:tlabelededit;
 name:tlabelededit;
 group:tlabelededit;
 Combobox1:Tcombobox;
{$R *.dfm}
 
procedure TForm2.Button2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm2.markChange(Sender: TObject);
begin
if combobox1.Text='Зачет' then
mark.Text:='Зачтено';
 
end;
 
end.

@Motzart · 31.05.2010, 00:01

1. добавить в uses form2 и наоборот
2. судя по ветке(базы данных), вам просто нужно после ввода данных произвести повторный запрос к базе и обновить Листвюу енще раз

@Wtfgod · 31.05.2010, 09:19 **[ТС]**

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

1. добавить в uses form2 и наоборот
2. судя по ветке(базы данных), вам просто нужно после ввода данных произвести повторный запрос к базе и обновить Листвюу енще раз

1. Писал. Вылезает ошибка о неизвестном идентификаторе Form 1(2)
2. Можно поподробнее?=)

@harmless · 31.05.2010, 09:29

Для формы 1:

Delphi
1
2
3
4
...
uses
  Unit2;
...

Для формы 2:

Delphi
1
2
3
4
...
uses
  Unit1;
...

@Motzart · 31.05.2010, 09:48

Подробнее.
Последовательность действий:
1. Запись данных через форму 2. Данные записываются в некую базу (таблицы-поля)
2. При активации формы 1, необходимо произвести обновление данных в ЛистВюу. Делать тем же запросом, который заполняет изначальный список в ЛистВюу.
Вообще-то, было бы правильнее, если бы вы проект предоставили, ну и рассказали, что за СУБД, и т.д.

@Wtfgod · 31.05.2010, 15:50 **[ТС]**

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

Подробнее.
Последовательность действий:
1. Запись данных через форму 2. Данные записываются в некую базу (таблицы-поля)
2. При активации формы 1, необходимо произвести обновление данных в ЛистВюу. Делать тем же запросом, который заполняет изначальный список в ЛистВюу.
Вообще-то, было бы правильнее, если бы вы проект предоставили, ну и рассказали, что за СУБД, и т.д.

Мне бы сам код нужен)

Программу предоставил)

@Wtfgod · 31.05.2010, 22:28 **[ТС]**

изменил прогу
теперь там только одна форма.
и всместо ЛистВью там СтрингГрид.
но данные все равно не отображаются..

обработчик кнопки Добавить:

Delphi
1
Edit1.Text:=Stringgrid1.Cells[1,1

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Motzart 105 / 104 / 9 Регистрация: 10.01.2010 Сообщений: 392
	31.05.2010, 00:01
	1. добавить в uses form2 и наоборот 2. судя по ветке(базы данных), вам просто нужно после ввода данных произвести повторный запрос к базе и обновить Листвюу енще раз 0

@Motzart 105 / 104 / 9 Регистрация: 10.01.2010 Сообщений: 392
	31.05.2010, 09:48
	Подробнее. Последовательность действий: 1. Запись данных через форму 2. Данные записываются в некую базу (таблицы-поля) 2. При активации формы 1, необходимо произвести обновление данных в ЛистВюу. Делать тем же запросом, который заполняет изначальный список в ЛистВюу. Вообще-то, было бы правильнее, если бы вы проект предоставили, ну и рассказали, что за СУБД, и т.д. 1