Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / уникальность записей в таблице / 9 сообщений из 9, страница 1 из 1
06.09.2011, 15:38
    #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:48
    #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:56
    #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, 16:16
    #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:31
    #37427488
IgorNG
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
уникальность записей в таблице
Сергей1982,
А сам-то ты как думаешь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.09.2011, 21:50
    #37428005
reware
reware
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
уникальность записей в таблице
Сергей1982а как дальше? Результ же нужно куда-то вывести?
Может INTO CURSOR SYS(2015) NOFILTER ?
Да просто INTO CURSOR MyCursor. Он всё равно убьётся после USE IN MyCursor.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2011, 10:22
    #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:34
    #37428428
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
уникальность записей в таблице
Код: plaintext
1.
2.
3.
WITH THISFORM  
  streets2=rtrim(.txtname.value  )
   ENDWITH
А так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.09.2011, 10:51
    #37428471
Сергей1982
Сергей1982
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
уникальность записей в таблице
Спасибо, получилось...:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / уникальность записей в таблице / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 413ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1584167]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 284ms
total:  413ms
x
x
Закрыть


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