ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / уникальность записей в таблице
9 сообщений из 9, страница 1 из 1
уникальность записей в таблице
    #37427321
Сергей1982
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей1982
Гость
Есть таблица streets с колонками obozn(ул,пер.,проспект и т.д.), name (Орловского, Симонова и т.д) , namestreets в котором должно быть obozn + name. Как это сделать?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
WITH THISFORM  
  streets2=.txtname.value  
   ENDWITH   
    
  SELECT Streets.idstreets, Streets.namestreets, Streets.obozn, Streets.name;  
   FROM gaz!streets;  
   WHERE  Streets.name == streets2;
а как дальше? Результ же нужно куда-то вывести?
Может INTO CURSOR SYS(2015) NOFILTER ?
...
Рейтинг: 0 / 0
06.09.2011, 15:38
| Ответить | Цитировать | Написать  
уникальность записей в таблице
    #37427362
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Сергей1982Есть таблица streets с колонками obozn(ул,пер.,проспект и т.д.), name (Орловского, Симонова и т.д) , namestreets в котором должно быть obozn + name. Как это сделать?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
WITH THISFORM  
  streets2=.txtname.value  
   ENDWITH   
    
  SELECT Streets.idstreets, Streets.namestreets, Streets.obozn, Streets.name;  
   FROM gaz!streets;  
   WHERE  Streets.name == streets2;
а как дальше? Результ же нужно куда-то вывести?
Может INTO CURSOR SYS(2015) <Имя курсора> NOFILTER ?
...
Рейтинг: 0 / 0
06.09.2011, 15:48
| Ответить | Цитировать | Написать  
уникальность записей в таблице
    #37427385
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Сергей1982Есть таблица streets с колонками obozn(ул,пер.,проспект и т.д.), name (Орловского, Симонова и т.д) , namestreets в котором должно быть obozn + name. Как это сделать?
Код: plaintext
1.
2.
3.
4.
5.
6.
WITH THISFORM  
  streets2=.txtname.value  
   ENDWITH   
    
  SELECT Streets.idstreets, Streets.namestreets, Streets.obozn, Streets.name;  
   FROM gaz!streets;  
   WHERE  Streets.name == streets2;
а как дальше? Результ же нужно куда-то вывести?
Может INTO CURSOR SYS(2015) NOFILTER ?

SELECT Streets
LOCATE FOR name == streets2
IF FOUND()
MESSAGEBOX("Улица с таким названием уже есть в справочнике")
ELSE
.... Заносишь в таблицу
ENDIF
...
Рейтинг: 0 / 0
06.09.2011, 15:56
| Ответить | Цитировать | Написать  
уникальность записей в таблице
    #37427451
Сергей1982
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей1982
Гость
IgorNG,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
WITH THISFORM  
  streets2=.txtname.value  
   ENDWITH 
   
SELECT Streets
LOCATE FOR name == streets2
IF FOUND()
MESSAGEBOX("Улица с таким названием уже есть в справочнике")
ENDIF

Процедура doEdit
Код: plaintext
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.
local llOk

do case
	case empty(this.txtnamestreets.value)
		wait window "Введите наименование улицы" timeout  2 
		this.txtnamestreets.setfocus()

	case empty(this.comboObozn.value)
	wait window "Выберите обозначение улицы" timeout  2 
		this.comboObozn.setfocus()

	case empty(this.txtname.value)
		wait window "Введите улицу" timeout  2 
		this.txtName.setfocus()
	otherwise
		if thisform.lNew
			insert into streets ;
				(namestreets, obozn, name) ;
				values ;
				(this.txtnamestreets.value,  this.comboObozn.value, this.txtname.value)
		else
			replace next  1  in streets ;
				namestreets with this.txtnamestreets.value, ;
				obozn with this.comboObozn.value, ;
				name with this.txtname.value
		endif
		
		llOk = .t.
endcase

return llOk
Так где мне нужно прописать проверку ?
...
Рейтинг: 0 / 0
06.09.2011, 16:16
| Ответить | Цитировать | Написать  
уникальность записей в таблице
    #37427488
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Сергей1982,
А сам-то ты как думаешь?
...
Рейтинг: 0 / 0
06.09.2011, 16:31
| Ответить | Цитировать | Написать  
уникальность записей в таблице
    #37428005
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
Сергей1982а как дальше? Результ же нужно куда-то вывести?
Может INTO CURSOR SYS(2015) NOFILTER ?
Да просто INTO CURSOR MyCursor. Он всё равно убьётся после USE IN MyCursor.
...
Рейтинг: 0 / 0
06.09.2011, 21:50
| Ответить | Цитировать | Написать  
уникальность записей в таблице
    #37428400
Сергей1982
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей1982
Гость
Сделал кнопку на форме для проверки уникальности записей по полю name/
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
WITH THISFORM  
  streets2=.txtname.value  
   ENDWITH 
   
SELECT Streets
LOCATE FOR name = streets2
IF FOUND()
MESSAGEBOX("Улица с таким названием уже есть в справочнике")
ELSE
MESSAGEBOX("Улиц с одинаковыми названиями нет в справочнике")
ENDIF

Улицы с одинаковым name есть, а выдает сообщение "Улиц с одинаковыми названиями нет в справочнике".
...
Рейтинг: 0 / 0
07.09.2011, 10:22
| Ответить | Цитировать | Написать  
уникальность записей в таблице
    #37428428
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
Код: plaintext
1.
2.
3.
WITH THISFORM  
  streets2=rtrim(.txtname.value  )
   ENDWITH
А так?
...
Рейтинг: 0 / 0
07.09.2011, 10:34
| Ответить | Цитировать | Написать  
уникальность записей в таблице
    #37428471
Сергей1982
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей1982
Гость
Спасибо, получилось...:)
...
Рейтинг: 0 / 0
07.09.2011, 10:51
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / уникальность записей в таблице
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=37427362&tid=1584167]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 294ms
total:  420ms
созд. / загр.: 420ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]