ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / SQL запрос...
4 сообщений из 29, страница 2 из 2
  2  все
SQL запрос...
    #36585826
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Это пример первой странички...

Код: 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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
<HTML>
<!--Кривошеев С.А.-->
<HEAD>
<TITLE>Список абонентов</TITLE>
<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="TEXT/HTML; CHARSET=WINDOWS-1251">
<link rel="stylesheet" type="text/css" href="#($$MyCSS^version)#">

<script language="javascript">

// Обновить информацию
function LoadInfo() {
	var obj=document.fAbonAll
	obj.submit()
}

// Переход на другую страницу
function Go(File) {
	var obj=document.fAbonAll
	obj.action=File
	obj.submit()
}

// Добавить тип версии
function AddAbon(Id) {
	var ok
	ok=confirm("Добавить абонента")
	if (ok) {
		ok=#server(..cAddAbon(Id))#
		if (ok=="") {
			alert("Ошибка при добавлении")
			return false
		}
		Go("abon.csp?abon="+ok)
	}
}
</script>

</HEAD>

<csp:method name="cAddAbon" arguments="Id:%String" returntype="%String">  
	// Добавить абонента
	n ot,oa,id
	s ot=##class(ver.Type).%OpenId(Id)
	s oa=##class(ver.Abon).%New()
	d oa.%Save()
	s id=oa.%Id()
	d ot.Abon.Insert(oa)
	d ot.%Save()
	d ot.%Close()
	d oa.%Close()
	q id
</csp:method>

<BODY>

<form name='fAbonAll' method='post' action='abonall.csp'>
<!--Основные переменные-->
<input type='hidden' name='type' value='#(%request.Data("type",1))#'>
<input type='hidden' name='dprt' value='#(%request.Data("dprt",1))#'>

<!--Основная структурная таблица-->
<table width='100%' border='0'>
<tr>
<td valign='top' width='90%'>
<h1>Абоненты которые используют этот тип версии</h1>
<!--Таблица типов версий-->
<table class='data'>
<thead class='data'>
<tr class='data'>
<th class='data'>Код
<th class='data'>Название
<tbody class='data'>
	
<script language="cache" runat="server">
	s val=%request.Data("type", 1 )
	s sql="Select * From ver.Abon Where Type=? Order by Code"
	s ors=##class(%ResultSet).%New("%DynamicQuery:SQL")
	s ok=ors.Prepare(sql)
	s ok=ors.Execute(val)
	while ors.Next() {
		s val=ors.Get("ID")
		&html<<tr class='data' onclick='Go("abon.csp?abon=#(val)#")' onmouseout='this.className="data"' onmouseover='this.className="data_sel"'>>
		s val=ors.Get("Code")
		s:val="" val="<br>"
		&html<<td class='data'>#(val)#>
		s val=$$NameAbon^version(val,%request.Data("dprt", 1 ), 0 )
		s:val="" val="<br>"
		&html<<td class='data'>#(val)#>
	}
	d ors.Close()
</script>
	
</table>
<td valign='top'>
<!--Таблица кнопок-->
<table border='0'>
<tr>
<td><input type='button' value='На начало' onclick='Go("info.csp")'>
<tr>
<td><input type='button' value='Выход' onclick='Go("type.csp?type="+#(%request.Data("type",1))#)'>
<tr>
<td><input type='button' value='Добавить' onclick='AddAbon(#(%request.Data("type",1))#)'>
</table>
</table>
</form>
</BODY>
</HTML>
...
Рейтинг: 0 / 0
19.04.2010, 15:44
| Ответить | Цитировать | Написать  
SQL запрос...
    #36585828
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Это пример второй...

Код: 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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
<HTML>
<!--Кривошеев С.А.-->
<HEAD>
<TITLE>Абонент</TITLE>
<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="TEXT/HTML; CHARSET=WINDOWS-1251">
<link rel="stylesheet" type="text/css" href="#($$MyCSS^version)#">

<script language="javascript">

// Обновить информацию
function LoadInfo() {
	var obj=document.fAbon
	obj.submit()
}

// Переход на другую страницу
function Go(File) {
	var obj=document.fAbon
	obj.action=File
	obj.submit()
}

// Запись данных
function Save(Id) {
	fAbon_save()
	alert("Данные записаны!")
}

// Удалить тип версии
function DelAbon(Id) {
	var ok
	ok=confirm("Удалить абонента")
	if (ok) {
		ok=#server(..cDelAbon(Id))#
		ok=document.fAbon.type.value
		Go("abonall.csp?type="+ok)
	}
}
</script>

</HEAD>

<csp:method name="cDelAbon" arguments="Id:%String" returntype="%String">  
	// Удалить тип версии
	n o
	s o=##class(ver.Abon).%OpenId(Id)
	d ##class(ver.Abon).%Delete(o.%Oid())
	d o.%Close()
	q  1 
</csp:method>

<BODY onload='document.fAbon.tCode.focus()'>

<csp:object name='oAbon' classname='ver.Abon' objid='#(%request.Data("abon",1))#'>

<form name='fAbon' cspbind='oAbon' method='post' action='abon.csp' onsubmit='return Save(#(%request.Data("type",1))#)'>
<!--Основные переменные-->
<input type='hidden' name='abon' value='#(%request.Data("abon",1))#'>
<input type='hidden' name='type' value='#(%request.Data("type",1))#'>
<input type='hidden' name='dprt' value='#(%request.Data("dprt",1))#'>

<!--Основная структурная таблица-->
<table width='100%' border='0'>
<tr>
<td valign='top' width='90%'>
<h1>Абонент #($$NameAbon^version(oAbon.Code,%request.Data("dprt", 1 )))#</h1>
<!--Таблица данных-->
<table border='0'>
<tr>
<td>Код 
<td><input type='text' name='tCode' cspbind='Code' title='Код из дешифратора D_ABON'>
</table>
<td valign='top'>
<!--Таблица кнопок-->
<table border='0'>
<tr>
<td><input type='button' value='На начало' onclick='Go("info.csp")'>
<tr>
<td><input type='button' value='Выход' onclick='Go("abonall.csp?type="+#(%request.Data("type",1))#)'>
<tr>
<td><input type='submit' value='Записать'>
<tr>
<td><input type='button' value='Удалить' onclick='DelAbon(#(%request.Data("abon",1))#)'>
</table>
</table>
</form>
</BODY>
</HTML>
...
Рейтинг: 0 / 0
19.04.2010, 15:44
| Ответить | Цитировать | Написать  
SQL запрос...
    #36585848
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Если и это не поможет... Тогда нужно "плясать" от самого класса. Т.е. показать сам класс и потом делать страницу 1 и 2...
...
Рейтинг: 0 / 0
19.04.2010, 15:49
| Ответить | Цитировать | Написать  
SQL запрос...
    #36591178
akihito
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
akihito
Гость
Илья11C выводом вроде разобрался

у меня такая же проблема. напиши как разобрался.
...
Рейтинг: 0 / 0
21.04.2010, 21:20
| Ответить | Цитировать | Написать  
4 сообщений из 29, страница 2 из 2
  2  все
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / SQL запрос...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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