Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нужны программы. любые)) 
:(
    Опции темы
vatras
Дата 11.6.2010, 16:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2010

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

С таблицами, связями, вставкой форм, кодами для кнопок я вроде бы разобрался но хочется
увидеть что собой представляет законченная работа.
PM MAIL   Вверх
Данкинг
Дата 12.6.2010, 01:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130
Ну, вряд ли кто станет законченные проекты выкладывать. Какой-нибудь кусок кода выложить могу, конечно. smile 

Это сообщение отредактировал(а) Данкинг - 12.6.2010, 01:59


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
vatras
Дата 12.6.2010, 10:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2010

Репутация: нет
Всего: нет
Цитата(Данкинг @ 12.6.2010,  01:59)
Ну, вряд ли кто станет законченные проекты выкладывать. Какой-нибудь кусок кода выложить могу, конечно. smile

почему? я же не прошу программы уровня гос корпораций, которые 
я потом буду продавать на право на лево. что-нибудь вузовского
уровня вполне хватит. 
и не обязательно сюда выкладывать, можно [email protected] 


 smile 

зы
я еще не слишком в фокс про разбираюсь, но что там могут быть за "куски кода" ?
я пока что обходился небольшими кодами для модификации форм, работы кнопок и тд. !

Это сообщение отредактировал(а) vatras - 12.6.2010, 10:04
PM MAIL   Вверх
Данкинг
Дата 14.6.2010, 01:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130
Цитата(vatras @  12.6.2010,  11:01 Найти цитируемый пост)
но что там могут быть за "куски кода" ?

Вот кусок кода:  smile 
Код

SET SAFETY OFF
SET TALK off

DIMENSION z(100)

IF thisform.list2.ListCount=0 
 MESSAGEBOX('Не выбрано ни одной базы!',16,'Косяк')
 return
ENDIF

FOR i=1 TO 100
z(i)=''
ENDFOR

cou=0

FOR i=1 TO thisform.list2.ListCount
 cou=cou+1
 z(cou)=thisform.list2.ListItem (i)
endfor

USE &z(1) IN 1
SELECT 1
d=UPPER(DBF())
IF 'Z_'$d
 zakaz=STRTRAN(d,'Z_','@')
 zakaz=GETWORDNUM(zakaz,2,'@')
 zakaz=GETWORDNUM(zakaz,1,'\')
 zakaz=ALLTRIM(zakaz)
ELSE
 zakaz='99999'
ENDIF

b_cfg='_cfg'+zakaz
b_new='base'+zakaz

CREATE TABLE &b_cfg (base c(254), fiell m)

CLOSE ALL

pp='@'
ppp=''
pppp=''

USE &b_cfg IN 99 ALIAS cfg

_screen.Caption='Определение полей...'

FOR i=1 TO cou
 pp=''
 USE &z(i) IN 1
 SELECT 1
  FOR j=1 TO FCOUNT()
   d='@'+ALLTRIM(UPPER(FIELD(j)))+'@'
   pp=pp+STRTRAN(d,'@')+'@'
   IF !d$'@'+ppp
    ppp=ppp+STRTRAN(d,'@')+'@'
   endif
  ENDFOR
  SELECT cfg
  APPEND BLANK
  REPLACE base WITH z(i), fiell WITH pp
ENDFOR

_screen.Caption='Вычисление длин полей...'

FOR j=1 TO GETWORDCOUNT(ppp,'@')
 _screen.Caption='Вычисление длин полей...'+ALLTRIM(STR(j))
 fff=GETWORDNUM(ppp,j,'@')
 maxx=0
 FOR i=1 TO cou
  USE &z(i) IN 1
  SELECT 1
  IF tYPE(fff)<>'U'
   IF TYPE(fff)='C' 
     CALCULATE MAX(LEN(ALLTRIM(&fff))) TO x  
      IF x>maxx
       maxx=x
      ENDIF
   ELSE
    maxx=20
   endif
  endif
  endfor
 IF maxx=0
  maxx=1
 endif
 pppp=pppp+ ALLTRIM(STR(maxx))+'@'
ENDFOR

_screen.Caption='Сливание баз...'


CREATE TABLE &b_new (bazel c(200))
CLOSE ALL
USE &b_new IN 2
SELECT 2

FOR j=1 TO GETWORDCOUNT(ppp,'@')
 d1=GETWORDNUM(ppp,j,'@')
 d2=GETWORDNUM(pppp,j,'@')
 d='ALTER TABLE DBF() ADD COLUMN '+d1+' c('+d2+')'
 &d
endfor

SELECT 2
FOR i=1 TO cou
 APPEND FROM &z(i)
 REPLACE bazel WITH z(i) FOR EMPTY(bazel)
endfor

MESSAGEBOX('Создан файл '+b_new+' !!!',64,'Готово!')







--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
vatras
Дата 16.6.2010, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 11.6.2010

Репутация: нет
Всего: нет
Цитата(Данкинг @ 14.6.2010,  01:29)
Цитата(vatras @  12.6.2010,  11:01 Найти цитируемый пост)
но что там могут быть за "куски кода" ?

Вот кусок кода:  smile 
Код

SET SAFETY OFF
SET TALK off

DIMENSION z(100)

IF thisform.list2.ListCount=0 
 MESSAGEBOX('Не выбрано ни одной базы!',16,'Косяк')
 return
ENDIF

FOR i=1 TO 100
z(i)=''
ENDFOR

cou=0

FOR i=1 TO thisform.list2.ListCount
 cou=cou+1
 z(cou)=thisform.list2.ListItem (i)
endfor

USE &z(1) IN 1
SELECT 1
d=UPPER(DBF())
IF 'Z_'$d
 zakaz=STRTRAN(d,'Z_','@')
 zakaz=GETWORDNUM(zakaz,2,'@')
 zakaz=GETWORDNUM(zakaz,1,'\')
 zakaz=ALLTRIM(zakaz)
ELSE
 zakaz='99999'
ENDIF

b_cfg='_cfg'+zakaz
b_new='base'+zakaz

CREATE TABLE &b_cfg (base c(254), fiell m)

CLOSE ALL

pp='@'
ppp=''
pppp=''

USE &b_cfg IN 99 ALIAS cfg

_screen.Caption='Определение полей...'

FOR i=1 TO cou
 pp=''
 USE &z(i) IN 1
 SELECT 1
  FOR j=1 TO FCOUNT()
   d='@'+ALLTRIM(UPPER(FIELD(j)))+'@'
   pp=pp+STRTRAN(d,'@')+'@'
   IF !d$'@'+ppp
    ppp=ppp+STRTRAN(d,'@')+'@'
   endif
  ENDFOR
  SELECT cfg
  APPEND BLANK
  REPLACE base WITH z(i), fiell WITH pp
ENDFOR

_screen.Caption='Вычисление длин полей...'

FOR j=1 TO GETWORDCOUNT(ppp,'@')
 _screen.Caption='Вычисление длин полей...'+ALLTRIM(STR(j))
 fff=GETWORDNUM(ppp,j,'@')
 maxx=0
 FOR i=1 TO cou
  USE &z(i) IN 1
  SELECT 1
  IF tYPE(fff)<>'U'
   IF TYPE(fff)='C' 
     CALCULATE MAX(LEN(ALLTRIM(&fff))) TO x  
      IF x>maxx
       maxx=x
      ENDIF
   ELSE
    maxx=20
   endif
  endif
  endfor
 IF maxx=0
  maxx=1
 endif
 pppp=pppp+ ALLTRIM(STR(maxx))+'@'
ENDFOR

_screen.Caption='Сливание баз...'


CREATE TABLE &b_new (bazel c(200))
CLOSE ALL
USE &b_new IN 2
SELECT 2

FOR j=1 TO GETWORDCOUNT(ppp,'@')
 d1=GETWORDNUM(ppp,j,'@')
 d2=GETWORDNUM(pppp,j,'@')
 d='ALTER TABLE DBF() ADD COLUMN '+d1+' c('+d2+')'
 &d
endfor

SELECT 2
FOR i=1 TO cou
 APPEND FROM &z(i)
 REPLACE bazel WITH z(i) FOR EMPTY(bazel)
endfor

MESSAGEBOX('Создан файл '+b_new+' !!!',64,'Готово!')

и зачем я только со всем этим связался ! ладно, спасибо!
но если вдруг кто найдет для меня программку по скромнее буду только рад!
PM MAIL   Вверх
Akina
Дата 16.6.2010, 13:28 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 1
Всего: 454
В MSDN есть примеры. Короткие. По одному-двум объектам/операторам. Комментированные. Кто мешает?
http://msdn.microsoft.com/en-us/library/ssy6ad2c.aspx
http://www.microsoft.com/downloads/details...;displaylang=en


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Данкинг
Дата 17.6.2010, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130
Цитата(vatras @  16.6.2010,  13:13 Найти цитируемый пост)
но если вдруг кто найдет для меня программку по скромнее буду только рад!

Куда скромнее-то? smile Уж вроде в этом коде ничего сложного нет.

Добавлено через 42 секунды
Цитата(Akina @  16.6.2010,  14:28 Найти цитируемый пост)
В MSDN есть примеры. Короткие. По одному-двум объектам/операторам. Комментированные. 

Кстати, примеры (и достаточно хорошие) есть в и справке Фокса.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Foxpro/Clipper/Dbase"
MoLeX

Запрещается!

1. Публиковать ссылки для чисто рекламных целей.

2. Оффтопить, флеймить, говорить не культурно.

Пожалуйста, адекватно задавайте свой вопрос. Тема должна создаваться с названием характеризующем Вашу проблему.

Задавайте вопросы правильно - как спросите, так вам и ответят.

Разрешено!

Давать ссылки на статьи, обзоры, если это не нарушает первый пункт правил.

Задавая вопрос, давайте нужную информацию касающуюся Вашей проблемы. Этим вы ускорите полезные ответы.

P.S. Размещение рекламы будет строго наказываться!


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MoLeX
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Foxpro/Clipper/Dbase | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1039 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.