Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2006-02-07

Re[3]: Вставка нумерации листов в Word-документе

Здравствуйте, Вадим,

>Но все уже выяснилось. Спасибо!

А подробности можно? Хотелось-бы иметь в багажнике!!

   2006-02-07 20:20:22 (#512079)

Re: Не могу программно создать таблицу DBF

>> Помимо уже отвеченного. Мож тебе надо не DBase-формат, а FoxPro?
> Да нет, нужен именно DBase III (впрочем, IV тоже подходит - проверено).

Дело хозяйское, но за FoxPro я не зря упомянул. Формат таблиц у него
такой же, но нет расширенного заголовка, который как раз и содержит db866ru
итп. Я и подумал, что простейший способ от него избавиться - это задать
драйвер как FOXPRO.

--
С уважением, boroda

Номер выпуска : 5171
Возраст листа : 870 (дней)
Количество подписчиков : 547
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/512071
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   Шматко А.А. 2006-02-07 20:07:44 (#512071)

Вывод окна приложения на передний план.

Здравствуйте!
Проблема собственнов следующем:
Прога1 и Прога2 связаны внешним СОМ-сервером. В какой-то момент
работы в проге1 нужно безболезненно перейти в прогу2.
Используется следующий механизм: вызывается метод СОМ-сервере,
Старт_прога2. Который проверяет наличие такой проги среди загруженных
и если есть, то окно проги выводит на передний план
(SetForegroundWindow).
Один раз срабатывает, а потом уже не хотит. Может быть дело в том,
что СОМ-сервер используется обоими прогами и при выводе второй на
передний план система не может его вывести, т.к. используется что-то
общее?
Посоветуйте как сделать.

   2006-02-07 15:32:56 (#511967)

Re[2]: Вставка нумерации листов в Word-документе

Здравствуйте, Шистеров.

ШП> Здравствуйте, Вадим,
ВШ>> Если подскажете, как решить это, буду благодарен.

ШП> Я не занимался этой проблемой, но из работы в ворде помню, что
ШП> нумерация страниц - это вставка в колонтитул чего-то, что выводит
ШП> номер страницы. Т.е. может сначала создать колонтитулы?

В том-то и была проблема, чтобы правильно "подлезть" к колонтитулам.
Там со всеми этими коллекциями и их цепочками можно сломать ноги с
руками и зубами в придачу. Но все уже выяснилось. Спасибо!

   Вадим Шешунов 2006-02-07 09:31:58 (#511921)

Re: FoxPro: запись информации в удалённую таблицу

> Опять возникла проблема по FoxPro.
> Всё дело в том, что необходимо записать данные в таблицу на удалённом
компьютере.
>
Проблема отпала. оказывается, что запись в таблицу происходила из-за того,
что в таблице на удалённом компьютере присутствовали поля not null, а в
представлении я их не включил (не нужны они мне).
Всё работает. тема закрыта.

С уважением, Бурляев Вячеслав

Номер выпуска : 5168
Возраст листа : 870 (дней)
Количество подписчиков : 547
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/511907
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   2006-02-07 08:49:05 (#511907)

Re[2]: Как грамотно составить БД

Здравствуйте, Николай,

НУ> Собственно, по-моему, Вы описали аналогичную схему. Только у меня в
НУ> фирме содержались коды (я их назвал указателями) товаров, а у Вас
НУ> наоборот.
Ну-у, аналогия тут условная. Судя по всему таблицы практически не
связаны. Если в таблице Фирма, в одном поле будут перечисляться все
коды товаров - то не есть гуд. Сложно работать, да и непредсказуемый
объем данных.

>> Это структура БД. А вот формировать списки будешь в интерфейсе
>> пользователя.
>> Например: нужно добавить к фирме товар.
>> - Работаем с таблицей 3
>> - КОД фирмы выбираем из списка по таблице 2.
>> - КОД товара выбираем из списка по таблице 1.
НУ> Не понял. Нельзя ли пояснить на примере SELECT? К примеру, я хочу
НУ> найти все товары одной фирмы.
Select * from Tab_Tovar where Код_Фирма=.... - выдаст таблицу кодов
товаров данной фирмы.

НУ> Если у меня таблица товара фирмы содержит код фирмы, это значит, что у
НУ> меня будет несколько одноимённых товаров в одной таблице?
НЕТ! Есть таблица НАИМЕНОВАНИЙ ТОВАРОВ и таблица ТОВАРОВ ФИРМ
Структура связей.
1 N N 1
Наименования --> Товары <-- Фирмы
Связь между таблицей "Наименования товара" и таблицей "Фирмы"
многие-ко-многим. Таблица "товары" является связующей + несет
дополнительную информацию, например цена. Один и тот-же товар у разных
поставщиков может иметь разную цену.

Схема условная, ниразу в торговле не работал!:))

НУ> Или же каждой фирме выделять отдельную таблицу? Но тогда зачем
НУ> указывать в этой таблице код фирмы?
Сам ответил на вопрос. Таблица "Фирмы" для всех фирм.

В моем случае повторение сводится к минимуму.
Таблица ФИРМА:
КОД |Наименование
1 |ТОО Пупкин и Ко
2 |ЧП Иванов

Таблица НАИМЕНОВАНИЙ ТОВАРОВ
КОД | Наименование
1 |ручка дверная-2 руб.
2 |окно-3 руб.
3 |дверь-4 руб.
4 |линолеум-5 руб.
5 |шкаф-6 руб.

Таблица ТОВАРЫ - вот тут и дублируется код фирмы и код товара.
КодФирмы | КодТовара | Цена - может быть разной!!
1 1 2
1 2 3
1 4 5
1 5 6
2 3 2.1
2 4 4.9
2 5 6

Зато запросы на выборки предельно просты. :)

   2006-02-07 07:52:32 (#511888)

FoxPro: запись информации в удалённую таблицу

Добрый день!
Опять возникла проблема по FoxPro.
Всё дело в том, что необходимо записать данные в таблицу на удалённом компьютере.

STORE SQLCONNECT('Sapr_SbSv') TO lnConnHandle * Производим соединение с удалённом
базой данных
....
* Производим определение параметров р1...р11
....
* Формируем строку запроса для записи информации в таблицу, которая находится
в базе данных на удалённом компьютере
lcSQLStroka=[insert into sb_norm (p015, p530, p030, naim_op, p540, p229, h310,
p300, p230, p032) ]+;
[values (?p1,?p2,?p3,?p4,?p5,?p6,?p7,?p8,?p9,?p10,?p11)]
DO exec_conn WITH lnConnHandle,lcSQLStroka IN write_in_sapr * Выполняем процедуру
вставки

PROCEDURE exec_conn
PARAMETERS lnHandle,lcSQLStroka
SQLPREPARE(lnHandle,lcSQLStroka,'rezult_imba')
loAnswer=SQLEXEC(lnHandle)
IF loAnswer=-1
MESSAGEBOX('Внимание! Выполнение "сквозного" запроса было выполнено некорректно!'+CHR(13)+CHR(13)+;
'Обратитесь к разработчикам!',16,'Ошибка!')
SQLDISCONNECT(lnHandle)
RETURN TO MASTER
ENDIF
ENDPROC

Проблема в том, что функция SQLEXEC в случае вставки информации возвращает всегда
-1. Причём когда использую SELECT, то запрос выполняется корректно.
Вот и не могу понять, где какие свойства надо установить (может быть у соединения
"Sapr_SbSv" или в ODBC, которое прописано в данном соединении), чтобы запрос
на вставку тоже выполнялся.

Пробовал делать по-другому: через REMOTE VIEW, но тоже никак не получается обновлять
удалённую таблицу, хотя в само представление информация записывается.
SQL-текст удалённого представления привожу ниже:
SELECT Sb_norm.p015, Sb_norm.p530, Sb_norm.p030, Sb_norm.naim_op,;
Sb_norm.p540, Sb_norm.p229, Sb_norm.h310, Sb_norm.p300, Sb_norm.p230,;
Sb_norm.p032, Sb_norm.dat_zap;
FROM ;
sb_norm Sb_norm

DBSetProp(ThisView,"View","SendUpdates",.T.)
DBSetProp(ThisView,"View","BatchUpdateCount",1)
DBSetProp(ThisView,"View","CompareMemo",.T.)
DBSetProp(ThisView,"View","FetchAsNeeded",.F.)
DBSetProp(ThisView,"View","FetchMemo",.T.)
DBSetProp(ThisView,"View","FetchSize",100)
DBSetProp(ThisView,"View","MaxRecords",-1)
DBSetProp(ThisView,"View","Prepared",.F.)
DBSetProp(ThisView,"View","ShareConnection",.T.)
DBSetProp(ThisView,"View","AllowSimultaneousFetch",.F.)
DBSetProp(ThisView,"View","UpdateType",2)
DBSetProp(ThisView,"View","UseMemoSize",255)
DBSetProp(ThisView,"View","Tables","sb_norm")
DBSetProp(ThisView,"View","WhereType",3)

DBSetProp(ThisView+".p015","Field","DataType","C(18)")
DBSetProp(ThisView+".p015","Field","UpdateName","sb_norm.p015")
DBSetProp(ThisView+".p015","Field","KeyField",.F.)
DBSetProp(ThisView+".p015","Field","Updatable",.T.)

DBSetProp(ThisView+".p530","Field","DataType","N(3)")
DBSetProp(ThisView+".p530","Field","UpdateName","sb_norm.p530")
DBSetProp(ThisView+".p530","Field","KeyField",.F.)
DBSetProp(ThisView+".p530","Field","Updatable",.T.)

DBSetProp(ThisView+".p030","Field","DataType","N(3)")
DBSetProp(ThisView+".p030","Field","UpdateName","sb_norm.p030")
DBSetProp(ThisView+".p030","Field","KeyField",.F.)
DBSetProp(ThisView+".p030","Field","Updatable",.T.)

DBSetProp(ThisView+".naim_op","Field","DataType","C(60)")
DBSetProp(ThisView+".naim_op","Field","UpdateName","sb_norm.naim_op")
DBSetProp(ThisView+".naim_op","Field","KeyField",.F.)
DBSetProp(ThisView+".naim_op","Field","Updatable",.T.)

DBSetProp(ThisView+".p540","Field","DataType","C(3)")
DBSetProp(ThisView+".p540","Field","UpdateName","sb_norm.p540")
DBSetProp(ThisView+".p540","Field","KeyField",.F.)
DBSetProp(ThisView+".p540","Field","Updatable",.T.)

DBSetProp(ThisView+".p229","Field","DataType","N(1)")
DBSetProp(ThisView+".p229","Field","UpdateName","sb_norm.p229")
DBSetProp(ThisView+".p229","Field","KeyField",.F.)
DBSetProp(ThisView+".p229","Field","Updatable",.T.)

DBSetProp(ThisView+".h310","Field","DataType","N(12,3)")
DBSetProp(ThisView+".h310","Field","UpdateName","sb_norm.h310")
DBSetProp(ThisView+".h310","Field","KeyField",.F.)
DBSetProp(ThisView+".h310","Field","Updatable",.T.)

DBSetProp(ThisView+".p300","Field","DataType","C(2)")
DBSetProp(ThisView+".p300","Field","UpdateName","sb_norm.p300")
DBSetProp(ThisView+".p300","Field","KeyField",.F.)
DBSetProp(ThisView+".p300","Field","Updatable",.T.)

DBSetProp(ThisView+".p230","Field","DataType","C(2)")
DBSetProp(ThisView+".p230","Field","UpdateName","sb_norm.p230")
DBSetProp(ThisView+".p230","Field","KeyField",.F.)
DBSetProp(ThisView+".p230","Field","Updatable",.T.)

DBSetProp(ThisView+".p032","Field","DataType","N(3)")
DBSetProp(ThisView+".p032","Field","UpdateName","sb_norm.p032")
DBSetProp(ThisView+".p032","Field","KeyField",.F.)
DBSetProp(ThisView+".p032","Field","Updatable",.T.)

DBSetProp(ThisView+".dat_zap","Field","DataType","T")
DBSetProp(ThisView+".dat_zap","Field","UpdateName","sb_norm.dat_zap")
DBSetProp(ThisView+".dat_zap","Field","KeyField",.F.)
DBSetProp(ThisView+".dat_zap","Field","Updatable",.T.)

ПОдскажите, какие свойства надо подправить.
С уважением, Бурляев Вячеслав

Номер выпуска : 5166
Возраст листа : 870 (дней)
Количество подписчиков : 547
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/511886
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   2006-02-07 07:50:52 (#511886)

Re: Вставка нумерации листов в Word-документе

Здравствуйте, Вадим,
ВШ> Если подскажете, как решить это, буду благодарен.

Я не занимался этой проблемой, но из работы в ворде помню, что
нумерация страниц - это вставка в колонтитул чего-то, что выводит
номер страницы. Т.е. может сначала создать колонтитулы?

   2006-02-07 07:47:56 (#511882)