Grid и данные

@Radioaktiv · Регистрация: 09.10.2015

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

добрый день, в грид вывожу данные из таблицы exp(ide и fio) как при клике по строке грид вывести значение ide и при нажатии на кнопку открыть форму записать этот ide в text1 новой формы?

@Doctor_y · 31.10.2016, 06:47

Также как и добавление записи, только без APPEND BLANK.
Просто переписываем выражения в поля на которых находится указатель записи:
SELECT таблица
REPLACE поле WITH значение, ;
поле WITH значение
и т.д.
Только я не пойму зачем это тебе. Если контролу присвоено ControlSource=таблица.поле, запись в таблицу произойдет автоматически. Попробуй убрать в своей форме с Grid THISFORM.Hide() и увидишь, что значения в Grid будут изменяться при вводе других значений на форме с TextBox.

@Radioaktiv · 31.10.2016, 08:27 **[ТС]**

в том то и дело что не изменяет

@Radioaktiv · 31.10.2016, 08:40 **[ТС]**

вот на первой форме работает, а на остальных ни первый вариант ни второй

@Doctor_y · 31.10.2016, 09:02

На первой форме мы очистили INIT от образования курсора. Аналогично может быть и на других формах.

@Radioaktiv · 31.10.2016, 09:08 **[ТС]**

на первой форме я не выдавал через инит ничего, а на других мне надо инит чтобы производить выборку по записям

@Radioaktiv · 31.10.2016, 09:23 **[ТС]**

даже код не работает для изменения вот сообщение

@Doctor_y · 31.10.2016, 09:33

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

даже код не работает для изменения вот сообщение

Нераспознанная фраза/команда. Это синтаксическая ошибка команды.

@Radioaktiv · 31.10.2016, 09:35 **[ТС]**

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT podexpert 
REPLACE zakl=VAL(THISFORM.Text1.Value),;
fio WITH THISFORM.Text3.Value,;
pol WITH THISFORM.Text4.Value,;
birtdhay WITH THISFORM.Text5.Value,;
vozr WITH THISFORM.Text6.Value,;
registration WITH THISFORM.Text7.Value,;
datevskr WITH THISFORM.Text8.Value,;
mestosm WITH THISFORM.Text9.Value,;
lpu WITH THISFORM.Text10.Value,;
smnaproizv WITH THISFORM.Text11.Value,;
date_registr WITH THISFORM.Text2.Value 
id_exp WITH test_cursor.ide

ругается на

PureBasic
1
REPLACE zakl=VAL(THISFORM.Text1.Value),;

@Doctor_y · 31.10.2016, 09:47

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

а на других мне надо инит чтобы производить выборку по записям

Ну например:
Зачем создавать курсор из одной таблицы
SELECT neppsm,osnpsm,kodosnpsm,vidnassm,smposlo t,prichsm,rodsm FROM expertiza WHERE expertiza.idpodx=test_cursor.idp
Можно открыть таблицу и поставить фильтр:
SELECT expertiza
SET FILTER TO expertiza.idpodx=test_cursor.idp
GO TOP (перемещение указателя активирует фильтр)
Тебе легче редактирование написать будет.
И еще, если ты думаешь, что изменив запись в курсоре, изменится запись и в таблице, то ошибаешься. Таблица и курсор - разные объекты. Изменяя запись в курсоре тебе придется находить эту запись в таблице и в ручную (программно, путем набора команд для поиска и изменения) изменять ее.

Добавлено через 7 минут

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

ругается на

Естественно, вместо равно WITH

@Radioaktiv · 31.10.2016, 09:50 **[ТС]**

заменил в инит формы experiza на

PureBasic
1
2
3
SELECT expertiza
SET FILTER TO expertiza.idpodx=test_cursor.idp
GO TOP

все ровно не редактирует

@Doctor_y · 31.10.2016, 10:20

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

все ровно не редактирует

Ну теперь ищи в ControlSource TextBox или Grid.RecordSource. Должно совпадать.

@Radioaktiv · 31.10.2016, 10:30 **[ТС]**

в text в ControlSource у меня e_cursor.neppsm я так понял подставить просто expertiza.neppsm ?

@Doctor_y · 31.10.2016, 10:49

Да таблица.поле

@Radioaktiv · 31.10.2016, 11:00 **[ТС]**

да не помогло ка-то, вот гляньте пожалуйста сами

@Doctor_y · 31.10.2016, 11:40

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

вот гляньте пожалуйста сами

Я работаю, дружище. Время будет, гляну. Только, чтобы не искать, напиши названия форм какие посмотреть.

@Radioaktiv · 31.10.2016, 12:57 **[ТС]**

expertiza
-editexpertiza
-addexpertiza

а еще сделал удаление но из базы не удаляет строку, но зато все записи помечает на удаление , а надо 1

PureBasic
1
2
3
4
  DELETE FROM exp WHERE ide=exp.ide
  SET DELETED ON 
  PACK
  thisform.grid1.refresh()

+ сделал export в отчет

вот такой

PureBasic
1
2
3
4
5
6
SELECT  datevskr, predosv, datevidprosv,;
  datevodokonosvd, primch;
 FROM svidetelstvo,podexpert;
    WHERE svidetelstvo.idpod=t_ursor.idpod INTO CURSOR qqqq
select qqqq
REPORT FORM Report\svd TO PROMPT PREVIEW

но он выводит в отчет первую всегда запись в таблице, а не ту , на которой курсор

Добавлено через 1 час 11 минут
если что я здесь, сижу разбираюсь, но пока безуспешно

@Doctor_y · 31.10.2016, 13:50

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

addexpertiza

- ControlSource - пустые.

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

-editexpertiza

- ControlSource = e_cursor.neppsm (Мы договорились, что будет таблица, а не курсор)

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

expertiza

- В INIT формируется курсор и связывается с Grid.

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

удаление но из базы

Удалить текущую запись (на которой стоит указатель, ну или отмечена строка Grid):
DELETE && Помечает на удаление
После закрытия формы с гридом (иначе в гриде все перестанет отображаться):
SELECT таблица
PACK && Физическое удаление (файл должен быть открыт EXCLUSIVE)

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

REPORT FORM Report\svd TO PROMPT PREVIEW

REPORT FORM Report\svd RECORD RECNO() TO PROMPT PREVIEW - текущая запись.

@Radioaktiv · 31.10.2016, 14:33 **[ТС]**

editexpertiz установил в controlsource expertiza.neppsm теперь в поля редактирования овсем ничего не выводится

Добавлено через 7 минут
отчет все ровно открывает по старому это форма svid->печать

Добавлено через 7 минут
Так?

SQL
1
2
3
4
DELETE &&
SELECT* FROM EXP WHERE ide=EXP.ide
PACK &&
  thisform.grid1.refresh()

@Doctor_y · 31.10.2016, 15:00

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

editexpertiz установил в controlsource expertiza.neppsm

Правильно, потому что в грид - курсор. Ты смотришь курсор, а на редактирование выводишь таблицу.

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

отчет все ровно открывает по старому

Ну правильно, ты выбираешь запись в курсор qqq, а данные выводишь в отчете из Prodexpert и Svidetelstvo.

Добавлено через 1 минуту

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

DELETE && SELECT* FROM EXP WHERE ide=EXP.ide PACK && thisform.grid1.refresh()

&& - это признак примечания в строке, они не нужны.

Добавлено через 1 минуту

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

SELECT* FROM EXP WHERE ide=EXP.ide

Естественно тоже не нужно. Просто DELETE - пометится на удаление текущая запись.

@Radioaktiv · 31.10.2016, 15:07 **[ТС]**

Ну правильно, ты выбираешь запись в курсор qqq, а данные выводишь в отчете из Prodexpert и Svidetelstvo.

в отчете сделал qqq.fio и все ровно

Добавлено через 1 минуту
как сделать запись exclusive&
Естественно тоже не нужно. Просто DELETE - пометится на удаление текущая запись.

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

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

@Radioaktiv 2 / 2 / 4 Регистрация: 09.10.2015 Сообщений: 395

	Grid и данные 29.10.2016, 16:08. Показов 6958. Ответов 64 Метки нет (Все метки) добрый день, в грид вывожу данные из таблицы exp(ide и fio) как при клике по строке грид вывести значение ide и при нажатии на кнопку открыть форму записать этот ide в text1 новой формы? 0

@Doctor_y 32 / 31 / 12 Регистрация: 11.06.2016 Сообщений: 240 Записей в блоге: 11
	31.10.2016, 06:47
	Сообщение было отмечено Radioaktiv как решение Решение Также как и добавление записи, только без APPEND BLANK. Просто переписываем выражения в поля на которых находится указатель записи: SELECT таблица REPLACE поле WITH значение, ; поле WITH значение и т.д. Только я не пойму зачем это тебе. Если контролу присвоено ControlSource=таблица.поле, запись в таблицу произойдет автоматически. Попробуй убрать в своей форме с Grid THISFORM.Hide() и увидишь, что значения в Grid будут изменяться при вводе других значений на форме с TextBox. 1

@Radioaktiv 2 / 2 / 4 Регистрация: 09.10.2015 Сообщений: 395
	31.10.2016, 08:27 [ТС]
	в том то и дело что не изменяет 0

@Doctor_y 32 / 31 / 12 Регистрация: 11.06.2016 Сообщений: 240 Записей в блоге: 11
	31.10.2016, 09:02
	На первой форме мы очистили INIT от образования курсора. Аналогично может быть и на других формах. 1

@Radioaktiv 2 / 2 / 4 Регистрация: 09.10.2015 Сообщений: 395
	31.10.2016, 09:08 [ТС]
	на первой форме я не выдавал через инит ничего, а на других мне надо инит чтобы производить выборку по записям 0

@Radioaktiv 2 / 2 / 4 Регистрация: 09.10.2015 Сообщений: 395
	31.10.2016, 09:23 [ТС]
	даже код не работает для изменения вот сообщение Миниатюры 0

@Radioaktiv 2 / 2 / 4 Регистрация: 09.10.2015 Сообщений: 395
	31.10.2016, 10:30 [ТС]
	в text в ControlSource у меня e_cursor.neppsm я так понял подставить просто expertiza.neppsm ? 0

@Doctor_y 32 / 31 / 12 Регистрация: 11.06.2016 Сообщений: 240 Записей в блоге: 11
	31.10.2016, 10:49
	Да таблица.поле 0

@Radioaktiv 2 / 2 / 4 Регистрация: 09.10.2015 Сообщений: 395
	31.10.2016, 15:07 [ТС]
	Ну правильно, ты выбираешь запись в курсор qqq, а данные выводишь в отчете из Prodexpert и Svidetelstvo. в отчете сделал qqq.fio и все ровно Добавлено через 1 минуту как сделать запись exclusive& Естественно тоже не нужно. Просто DELETE - пометится на удаление текущая запись. Добавлено через 2 минуты а можешь подправить и мне прислать, я гляну,а остально сам уже доделаю, а то совсем не дорубаюсь 0

Grid и данные

Решение