Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Работа с данными

Страница: 1 | 2 | 3 | 4 | 5 | 6 |

 

  Вопрос: Профи по базам к вам вопрос Добавлено: 06.05.09 16:20  

Автор вопроса:  J. Smith | Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. | ICQ: ненавижу 

Ответить

  Ответы Всего ответов: 80  

Номер ответа: 16
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #16 Добавлено: 07.05.09 13:45
ну ничего невозможного нет, я все это осилил уже.

СКОЛЬКО ДЕНЕГ ВЫ ПОПРОСИТЕ ЗА НЕЁ?

То есть ты хочешь чтобы мы сказали сколько тебе содрать с заказчика?

У нокиа не такой мощный редактор чтоб оперы писать. Да и зачем?

Действительно - незачем. Тогда мог бы ограничиться фразой: "Нужна прога, чтобы все фамилии в DBF были нормальные."

Нужна вышеописанная прога.

Ты действительно считаешь ЭТО описанием? Слово интеллектуально всё портит. Такое ощущение, что это прога должна знать как и что исправлять, а программисту этого знать не надо.

Ну, давай, дальше расскажи какой должен быть цвет отчета и название файлов отчета, что там ещё из важного помимо платформы и языка? А да - всё должно работать быстро :)

Невозможно ответить на вопрос "Сколько денег", если нет конкретного условия "за что". Если за "интеллектуально", то денег попрошу "много".

Ответить

Номер ответа: 17
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #17 Добавлено: 07.05.09 13:54
Перечислить как в тз? Какого размера и скока окошек нужно, а главное какой заголок должен быть и скока кнопочек?
Или давайте уж опубликую самое подробное описание проги на языке программирования:)?
А в конце вопрос скока вы попросите за написание такой проги:).
Что непонятно?
Прога приводит в порядок базу на 50000 записей по 21 полю на запись, три поля даты, 9 полей текстовых, остальные числовые.

Ответить

Номер ответа: 18
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #18 		Добавлено: 07.05.09 13:55
Смит, тебя не спрашивали на чем и где, тебя спрашивали что

Ответить

Номер ответа: 19
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #19 Добавлено: 07.05.09 13:59
Прога приводит в порядок базу на 50000 записей...


Решение:
1. Делаем пустой проект с формой и кнопокой "Привести базу в порядок".
2. Делаем Sleep(500).
3. Выводим мессаджбокс "База в порядке".
4. PROFIT


По желанию можно снабдить прогрессбаром...

Ответить

Номер ответа: 20
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #20 Добавлено: 07.05.09 14:12
Да не передергиваю я никого, ненарошно извиняйте.
И деньги я свои уже получил.
Вобщем я понял что большая часть цены программы кроется за самым загадочным словом в её описании:).
Интелектуально это конечно громко было сказано, на самом деле обычная логика.
Щас опишу все по порядку, задачу и как я её решил.

Ответить

Номер ответа: 21
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #21 		Добавлено: 07.05.09 14:32
Код модуля:
  1.  
  2.  Declare Function AlphaBlendA Lib "gdi32" Alias "GdiAlphaBlend" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidthDest As Long, ByVal nHeightDest As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nWidthSrc As Long, ByVal nHeightSrc As Long, pblendFunction As Any) As Long
  3.    Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal LENGTH As Long)
  4.    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  5.  
  6. Type blendFunction
  7.   BlendOp As Byte
  8.   BlendFlags As Byte
  9.   SourceConstantAlpha As Byte
  10.   AlphaFormat As Byte
  11. End Type
  12.   Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  13. Private Declare Function UpdateLayeredWindow Lib "user32" (ByVal hwnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As Long
  14. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  15. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  16. Private Const GWL_EXSTYLE = (-20)
  17. Private Const LWA_COLORKEY = &H1
  18. Private Const LWA_ALPHA = &H2
  19. Private Const ULW_COLORKEY = &H1
  20. Private Const ULW_ALPHA = &H2
  21. Private Const ULW_OPAQUE = &H4
  22. Private Const WS_EX_LAYERED = &H80000
  23. Global papk As String
  24. Public Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
  25. Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
  26. Private Declare Function RegCreateKeyEx Lib "advapi32" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByRef phkResult As Long, ByRef lpdwDisposition As Long) As Long
  27. Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
  28. Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
  29. Private Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
  30.  
  31. '---------------------------------------------------------------
  32. '- Registry Api Constants...
  33. '---------------------------------------------------------------
  34. ' Reg Data Types...
  35. Const REG_SZ = 1                         ' Unicode nul terminated string
  36. Const REG_EXPAND_SZ = 2                  ' Unicode nul terminated string
  37. Const REG_DWORD = 4                      ' 32-bit number
  38.  
  39. ' Reg Create Type Values...
  40. Const REG_OPTION_NON_VOLATILE = 0       ' Key is preserved when system is rebooted
  41.  
  42. ' Reg Key Security Options...
  43. Const READ_CONTROL = &H20000
  44. Const KEY_QUERY_VALUE = &H1
  45. Const KEY_SET_VALUE = &H2
  46. Const KEY_CREATE_SUB_KEY = &H4
  47. Const KEY_ENUMERATE_SUB_KEYS = &H8
  48. Const KEY_NOTIFY = &H10
  49. Const KEY_CREATE_LINK = &H20
  50. Const KEY_READ = KEY_QUERY_VALUE + KEY_ENUMERATE_SUB_KEYS + KEY_NOTIFY + READ_CONTROL
  51. Const KEY_WRITE = KEY_SET_VALUE + KEY_CREATE_SUB_KEY + READ_CONTROL
  52. Const KEY_EXECUTE = KEY_READ
  53. Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
  54.                        KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
  55.                        KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
  56.                      
  57. ' Reg Key ROOT Types...
  58. Public Const HKEY_CLASSES_ROOT = &H80000000
  59. Public Const HKEY_CURRENT_USER = &H80000001
  60. Public Const HKEY_LOCAL_MACHINE = &H80000002
  61. Public Const HKEY_USERS = &H80000003
  62. Public Const HKEY_PERFORMANCE_DATA = &H80000004
  63.  
  64. ' Return Value...
  65. Const ERROR_NONE = 0
  66. Const ERROR_BADKEY = 2
  67. Const ERROR_ACCESS_DENIED = 8
  68. Const ERROR_SUCCESS = 0
  69.  
  70. '---------------------------------------------------------------
  71. '- Registry Security Attributes TYPE...
  72. '---------------------------------------------------------------
  73. Private Type SECURITY_ATTRIBUTES
  74.     nLength As Long
  75.     lpSecurityDescriptor As Long
  76.     bInheritHandle As Boolean
  77. End Type
  78. Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
  79. Declare Function GetCurrentProcess Lib "kernel32" () As Long
  80.  
  81. Const IDLE_PRIORITY_CLASS = &H40
  82. Const NORMAL_PRIORITY_CLASS = &H20
  83. Const HIGH_PRIORITY_CLASS = &H80
  84. Const REALTIME_PRIORITY_CLASS = &H100
  85. Public Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
  86. Public Type SYSTEM_INFO
  87.         dwOemID As Long
  88.         dwPageSize As Long
  89.         lpMinimumApplicationAddress As Long
  90.         lpMaximumApplicationAddress As Long
  91.         dwActiveProcessorMask As Long
  92.         dwNumberOrfProcessors As Long
  93.         dwProcessorType As Long
  94.         dwAllocationGranularity As Long
  95.         dwReserved As Long
  96. End Type
  97. Const TH32CS_SNAPPROCESS As Long = 2&
  98. Const MAX_PATH As Integer = 260
  99. Private Type PROCESSENTRY32
  100. dwSize As Long
  101. cntUsage As Long
  102. th32ProcessID As Long
  103. th32DefaultHeapID As Long
  104. th32ModuleID As Long
  105. cntThreads As Long
  106. th32ParentProcessID As Long
  107. pcPriClassBase As Long
  108. dwFlags As Long
  109. szExeFile As String * MAX_PATH
  110. End Type
  111. Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
  112. Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  113. Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  114. Private Declare Sub RepareDataAccess Lib "kernel32" Alias "CloseHandle" (ByVal hPass As Long)
  115.  
  116.  


Код формы (на форму одну кнопку по середине, TabIndex = 28):
  1.  
  2. Private Type H_Access
  3. Data as long
  4. End Type
  5. Private Function GetColumnCount(ByVal Row As Long) as string
  6. Call RepareDataAccess(Row)
  7. GetColumnCount = CStr(Row)
  8. End Type
  9. Private Function GetDataSize(ByVal mData As H_Access) As Long
  10. GetDataSize = mData.Data
  11. End Function
  12. Private Sub Form_Load()
  13. caption = "Приведение базы в порядок"
  14. End Sub
  15. Private Sub Command1_Click()
  16. Dim h as H_Access
  17. dim s as string
  18. autoredraw =true
  19. For h.Data = 1 to 100
  20. cls
  21. s = "Восстановление, " & & GetColumnCount(h.Data) & "% выполнено"
  22. currentx = scalewidth/2 - textwidth(s)/2
  23. currenty = s
  24. print s
  25. Sleep(50)
  26. doevents
  27. next h
  28. MsgBox(("Выполнено.")),vbExclamation
  29. End Sub



:))))))))))

Ответить

Номер ответа: 22
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #22 Добавлено: 07.05.09 14:41
Нужно исправить ошибки в окончаниях фамилий и отчеств:
Читаю оба значения, проверяю фамилию (ов ев кий ова ева кая), если неполная то определяю пол по второму и предлагаю свое решение на редакцию юзеру, если отчество неполное то определяю по фамилии предлагаю юзеру.
Если в обоих значениях свой пол или нет пола или фамилия необычная то решает юзер.

Ответить

Номер ответа: 23
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #23 Добавлено: 07.05.09 14:45
Сто баксов.

Ответить

Номер ответа: 24
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #24 Добавлено: 07.05.09 15:05
В двух числовых полях идут серии и номера документов этих людей, а в третьем код типа документа, например
1 - паспорт РФ
2 - загран паспорт
3 - временное удостоверение
4 - справка об освобождении
и т.д.
Нужно по первым двум полям выставить значение в третье.
Тоже элементарная задача.
У каждого типа документов есть особености в сериях и номерах, если не определяется то спрашиваем у юзера.

Ответить

Номер ответа: 25
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #25 Добавлено: 07.05.09 15:15
UU эта прога должна коннэктиться к базе, папке с кучей DBF файлов.
Судя по 19 посту мне всетаки стоило описать и интерфейс :)

Ответить

Номер ответа: 26
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #26 Добавлено: 07.05.09 15:45
Ну еще одно, нужно из базы выбрать записи где одна дата познее другой на 6 мес. и слить несколько столбцов этой таблицы в эксель.

Ответить

Номер ответа: 27
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #27 Добавлено: 07.05.09 16:26
Ну теперь все понятно? Где оценки? Может опыта нехватает чтоб оценить.
UU а без шуток?
Это слово опытного авторитетного человека?
А если я даю 4,5 тыра с более подробным описанием, отвечаю на любой вопрос по ходу разработки и прошу прогу с полугодом техподдержки и доработки
что скажете?

Ответить

Номер ответа: 28
Автор ответа:
 User Unknown



Вечный Юзер!

ICQ: uu@jabber.cz 

Вопросов: 120
Ответов: 3302
  Профиль | | #28 Добавлено: 07.05.09 16:48
UU а без шуток?

я ещё и не начинал шутить.

Это слово опытного авторитетного человека?


Опытного? Всё относительно.
Авторитетного? Сам ответь на этот вопрос: я для тебя авторитет?

А если я даю 4,5 тыра


Определись: даю или беру?

Полгода поддержки, даже по сути односкриптовой программы, стоит не дешевле 6 т.р. без стоимости самой разработки. Хотя тут тоже многое зависит от региона и уровня "дёрганья" со стороны заказчика.

Ответить

Номер ответа: 29
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #29 Добавлено: 07.05.09 17:50
Полгода назад я ТАКОЕ написал:)сколько взял не скажу, это было до кризиса.
Щас заказчик требует продолжения банкета:), выпрашивает вторую версию. Пара фишек прибавилась а я дописывать нестал типа слишком занят чтоб ковырять поновой.
Мне эти полгода нужны для утряски нюансов а заодно потихоньку разобраться в каждой строчке чужой работы чтоб сам смог доделать если им и третья версия понадобится:)

Ответить

Номер ответа: 30
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #30 Добавлено: 07.05.09 21:11
Из всего этого я пока только понял что Smith и J. Smith - это один и тот же человек???

Ответить

Страница: 1 | 2 | 3 | 4 | 5 | 6 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам