| |
|
|
| | я, собственно недавно подсел на это дело
может год с небольшим
на программирование имеется ввиду (хотя может это громко сказано, - занялся программированием  )
что заметил - мне не хватает времени на реализацию всего задуманного
мысли разбегаются постоянно от всяческих задумок, и будь хоть 30 часов в сутках, мне кажется и их бы было мало
вот кажется сделал какой-то кусок, а ч-з некоторое время смотришь - ан нет, можно еще лучше и красивше сделать...
или, что то сделал, появились новые вводные и сидишь правишь весь код под новые входные условия, о5 же время на все это нужно...
я уж не говорю про интерфейс, когда это поле на 3 мм нужно сделать длиннее, другое на 2 мм короче и т.п.
вообще, есть ли какие-то критерии, или нормативы на разработку программ?
а процесс увлекательный, чесслово 
приятно смотреть на результаты своего, тсзть, "творчества" 
а какая зарядка для ума, несмотря на возраст 
ну эт я так..лирическое отступление просто  | |
| |
| |
| |
|
|
| | Да, занятие увлекательное. Особенно когда из-за ошибки рушится проект целиком. Я уже вторую клавиатуру меняю - то свет моргнет (все забываю бесперебойник купить), то модуль класса зависнет- вот на клаве и выпускаю пар (остальное дороже-жалко).
А пределу совершенства нет - ведь недаром есть поговорка: "Лучшее - враг хорошего". Главное вовремя остановиться.
А критерии и нормативы - в топку. Процесс должен быть творческий, иначе на выходе будет что-нибудь "серенькое".
Ускорить процесс рутиной работы помогают собственные библиотечные базы. Например накидал на форму мастером кучу элементов управления, запустил функцию из библиотеки и она настроила свойства формы и элементов управления под твой "стиль"- уже проще. Тоже с отчетами.
Или можно вообще свои мастера делать. Кстати не менее интересно, чем делать сами приложения.
Очень важна структура таблиц и связи. Не забывать про нормализацию.
Важно правильно именовать объекты приложения, элементы управления, переменные, функции и т.д., чтобы меньше было проблем в дальнейшем.
Так-же надо стараться писать универсальные функции, которые можно дергать из проекта в проект.
Во сколько наговорил, а сколько осталось несказанно....
Удачи Вам и всем нам!
| |
| |
| |
| |
|
|
| |
Ускорить процесс рутиной работы помогают собственные библиотечные базы. Например накидал на форму мастером кучу элементов управления, запустил функцию из библиотеки и она настроила свойства формы и элементов управления под твой "стиль"- уже проще. Тоже с отчетами.
|
очень любопытно. вот бы какой нть примерчик или ссылочку про это | |
| |
| |
| |
|
|
| | Вот например функция из модуля библиотечной базы, которой я устанавливаю свойства форм, открытых в режиме конструктора.
Public Function funSetPropertyForm() 'открытых в режиме конструктора
' On Error Resume Next
Dim frm As Form
Dim ctrl As Control
Dim formName As String
For Each frm In Application.Forms
If frm.CurrentView = 0 Then
formName = frm.Name
frm.AllowDatasheetView = False
frm.AllowPivotChartView = False
frm.AllowPivotTableView = False
frm.NavigationButtons = False
frm.RecordSelectors = False
frm.DividingLines = False
frm.AutoCenter = True
frm.BorderStyle = 1
frm.AllowDesignChanges = False
frm.MinMaxButtons = 0
frm.ScrollBars = 0
frm.Section("ОбластьДанных").BackColor = 13690598
For Each ctrl In frm.Controls
If TypeOf ctrl Is CommandButton Then
' ctrl.FontName = "Tahoma"
ctrl.Width = 1020
ctrl.Height = 340
ctrl.FontSize = 8
ctrl.ForeColor = 16711680
ElseIf TypeOf ctrl Is Label Then
ctrl.FontName = "Tahoma"
ctrl.Height = 284
ctrl.FontSize = 10
ctrl.ForeColor = 16711680 '(синий)
ElseIf TypeOf ctrl Is TextBox Then
ctrl.FontName = "Tahoma"
ctrl.Height = 284
ctrl.FontSize = 10
ElseIf TypeOf ctrl Is ComboBox Then
ctrl.FontName = "Tahoma"
ctrl.FontSize = 10
ctrl.Height = 284
ElseIf TypeOf ctrl Is ListBox Then
ctrl.FontName = "Tahoma"
ctrl.FontSize = 10
ctrl.BackColor = 16252927
End If
Next ctrl
DoCmd.Save acForm, formName
MsgBox "Свойства формы '" & formName & "' установлены"
' DoCmd.Close acForm, formName, acSaveYes
End If
Next frm
End Function
|
| |
| |
| |
| |
|
|
| | А вот функция добавления кнопки "Закрыть" в форму. Ей надо передать ссылку на форму:
Public Function funInsertBtnClose(frm As Form) As Boolean
On Error GoTo Err_function
Dim lngReturn As Long
Dim ctrl As CommandButton
Dim strText As String
Dim ctl As Control
funInsertBtnClose = False
'Закрыть
For Each ctl In frm.Controls
If ctl.Name = "btnClose" Then
MsgBox "btnClose в форме '" & frm.Name & "' уже имеется", , "Мастер кнопки 'закрыть'"
Exit Function
End If
Next ctl
Set ctrl = CreateControl(frm.Name, acCommandButton, acDetail)
With ctrl
.Name = "btnClose"
.Caption = "Закрыть"
.Height = 340
.Width = 1020
.Left = frm.Width - 1120
.Top = 100
.FontName = "Tahoma"
.FontSize = 8
.ForeColor = 16711680
' .Cancel = True
.ControlTipText = "Закрыть форму"
End With
With frm.Module
lngReturn = .CreateEventProc("Click", ctrl.Name)
.InsertLines lngReturn + 1, "On Error GoTo Err_btnClose_Click"
.InsertLines lngReturn + 2, vbTab & "DoCmd.Close acForm, Me.Name"
.InsertLines lngReturn + 3, "Exit_btnClose_Click:"
.InsertLines lngReturn + 4, vbTab & "Exit Sub"
.InsertLines lngReturn + 5, "Err_btnClose_Click:"
.InsertLines lngReturn + 6, vbTab & "MsgBox Err.Description, vbExclamation, Me.Caption"
.InsertLines lngReturn + 7, vbTab & "Resume Exit_btnClose_Click"
End With
funInsertBtnClose = True
Exit_function:
Exit Function
Err_function:
MsgBox Err.Description
Resume Exit_function
End Function
|
| |
| |
| |
| |
|
|
| | Спасибо за примеры  попробую разобраться на досуге
Идея интересная | |
| |
| |
| |
|
|
| | Да, Lukas - спасибо за примеры.
Особенно понравилось вот это:
With frm.Module
lngReturn = .CreateEventProc("Click", ctrl.Name)
.InsertLines lngReturn + 1, "On Error GoTo Err_btnClose_Click"
.InsertLines lngReturn + 2, vbTab & "DoCmd.Close acForm, Me.Name"
.InsertLines lngReturn + 3, "Exit_btnClose_Click:"
.InsertLines lngReturn + 4, vbTab & "Exit Sub"
.InsertLines lngReturn + 5, "Err_btnClose_Click:"
.InsertLines lngReturn + 6, vbTab & "MsgBox Err.Description, vbExclamation, Me.Caption"
.InsertLines lngReturn + 7, vbTab & "Resume Exit_btnClose_Click"
End With | |
| |
| |
| |
|
|
| | с вашего позволения, утащил к себе в коллекцию))) | |
| |
| |
| |
|
|
| | Для отчетов надо? Или сами по аналогии напишите? | |
| |
| |
| |
|
|
| | >А критерии и нормативы - в топку. Процесс должен быть
>творческий, иначе на выходе будет что-нибудь "серенькое".
а как сие начальству объяснить?
оно ж иногда и спрашивает - как дела?
я им отвечаю- я ДУМАЮ! | |
| |
| |
| |
|
|
| | Мне проще, у меня это хобби, позволяющее менять железо.
| |
| |
| |
| |
|
|
| | ниче се...такие познания и только хобби?  | |
| |
| |
|
|
| |
|
|
| | нет предела совершенству
иногда открываешь свою базу трехлетней давности и думаешь и какой же #$@%^ ее делал , и понимаешь что ты знаком с автором
мысль не стоит на месте
Работать надо чтобы жить, а не жить чтобы работать! | |
| |
| |
| |
|
|
| | а я открываю свои прошлые проекты и дума - ну ни$#!@ себе! этож надо было до такого додуматься тогда, в те времена и реализовать и не начем-то, а в аксессе! | |
| |
| |
| |
|
|
| | //а я открываю свои прошлые проекты и дума - ну ни$#!@ себе! этож надо было до такого
//додуматься тогда, в те времена и реализовать и не начем-то, а в аксессе!
Тебе Силыч - хорошо!!!!
А у меня как у ГлазасогоМыша.
На следующий день открываю и мать.....
чесная : что за дребедень я тут понаписал - в три раза меньше кода надо и ваще не тот подход.
Весело , блин | |
| |
| |
| |
|
|
| | так делай чтоб и тебе хорошо было
сам себе  | |
| |
| |
| |
|
|
| | Как рёбра ГлазастыйМышь ??
или ник меняется на #$@%^......(извини - шутка) | |
| |
| |
| |
|
|
| | да уже почти не беспокоят, надо снова на ролики | |
| |
| |
|
|
| |
|
|
| | я конечно понимаю что ОНО не тонет
плаваю я по четвергам после работы. Баня, а там бассейн 25 метровка, вот и чередую
правда пропустил уже месяц, две недели было не до этого. А последние 2 недели блин на работе до 9 сидел. Как на зло в 17:35 радовали авралом, ну и до победного ...  | |
| |
| |
|
|
| |
|
|
| | Вспомнился анекдот:
Только бледнолицый может наступить на одни грабли два раза.
Желаем чтобы с Вами этого не произошло. | |
| |
| |
| |
|
|
| | //что заметил - мне не хватает времени на реализацию всего задуманного
//мысли разбегаются постоянно от всяческих задумок, и будь хоть 30 часов
в сутках, мне
//кажется и их бы было мало
АННАЛЛОЛОГИЧНО!  | |
| |
| |
| |
|
|
| | Я тож не портив 30 часов в сутках. Это ж на 6 часов больше спать можно | |
| |
| |
| |
|
|
| | Папа, по телевизору сказали что водка подорожает. Ты теперь будешь меньше пить?
Нет детки, вы теперь будете меньше кушать!
Подозреваю что и 30 часов в сутки не спасут.
 | |
| |
| |
|
|
| |
 72 Кб. |
|
| | Я вот недавно озадачился построением динамического отчета для перекрестных запросов (по мотивам Маэстро Гетца), смотрю а им ведь можно выводить и небольшие запросы на выборку.
Заменяет кучу отчетов, главное подсунуть в OpenArgs строку SQL. Кому интересна идея можно глянуть ZIP.(MDE2003), если прицепится.
В отчете три поля: №, Дата, страница из. Остальное PRINT-ом. | |
| |
| |
|
|
| |
|
|
| | Где-то я подобное видел........
Но на английском языке.
Видел, но не ползовался .... | |
| |
| |
| |
|
|
| | Обалденно!!!!
Скока потрачено времени - видимо.
Но результат - обалденный. | |
| |
| |
| |
|
|
| | Обалденно!!!!
Скока потрачено времени - видимо.
Но результат - обалденный.
Здесь на страничке форума наверху кнопка - прислать статью.
Может воспользуетесь ею Lukas!!!!! | |
| |
| |
| |
|
|
| | Кнопочки заимствованы из интерфейса MS Money 5.0.(97 г.)
До сих пор пользую, шикарная вещица как по виду, так и по содержанию.
Первое коммерческое изделие подгонял по виду под нее как умел. (Про код лучше промолчу.) | |
| |
| |
| |
|
|
| | интересна идея но не могу глянуть  ZIP.(MDE2003),
а в а-2000 конвертировать можете??? | |
| |
| |
| |
|
|
| | Нет смысла. Строка SQL передается через OpenArgs, которую A2000 в отчетах не поддерживает.
Извините. | |
| |
| |
| |
|
|
| | из всего вышесказанного я пока добрался (дошел) только до:
//Важно правильно именовать объекты приложения, элементы управления, переменные,
//функции и т.д., чтобы меньше было проблем в дальнейшем.
//Так-же надо стараться писать универсальные функции, которые
//можно дергать из проекта в проект.
|
| |
| |
| |
| |
83 Кб. |
|
| | Переделал немного, отчет берет строку SQL из формы. Но функционал создания выборки пришлось подрезать.
A2000 | |
| |
| |
| |
|
|
| | Ничего не скажешь...
КРАСИВО | |
| |
| |
| |
|
|
| | ну, с твоим опытом в программировании, FORMAT, можно и поспать
а вот нам, салагам... | |
| |
| |
| |
|
|
| | Да он и рад бы поспать, но дочурка наверное не больно-то дает.
 | |
| |
| |
| |
|
|
| | она еще маленькая
вооот ч-з годик!!!!)))))))))))) | |
| |
| |
| |
|
|
| | Запустил
Public Function funSetPropertyForm() 'открытых в режиме конструктора
И Вуа-ля форма преобразилась за пол секунды.
А сколь-ко бы её пришлося мурыжить, перетрахивая свойства формы, что бы она приняла такой вот вид............................................. | |
| |
| |
| |
|
|
| | Запустил
Public Function funSetPropertyForm()
И Вуа-ля форма преобразилась за пол секунды
Только не понял что это за св-ва
frm.AllowDatasheetView = False
frm.AllowPivotChartView = False
frm.AllowPivotTableView = False
|
| |
| |
| |
| |
|
|
| | Наверно потому они и отключены, что ими не полбзуются
Как Вы считаете? | |
| |
| |
| |
|
|
| | В А2000 этих опций еще не было. Они относятся к режимам представления формы:
DatasheetView-режим таблицы (в 2000 вроде должен быть)
PivotTableView-режим сводной таблицы
PivotChartView-режим сводной диаграммы.
Я ими никогда не пользуюсь, поэтому и запретил.
Кстати неплохо бы функцию переписать, использую With. Будет работать быстрее. | |
| |
| |
| |
2 Кб. |
|
| | Где-то так: | |
| |
| |
|
|
| |
|
|
| | Скорее так:
Используя глубокие познания материала сделал единственно возможный вывод! | |
| |
| |
| |
|
|
| | кстати, я иногда тспользую модуль, который меняет шрифт во всех формах на нужный
(взял тут http://hiprog.com/index.php?option=com_content&task=view&id=442 )
Option Compare Database
Sub ChangeShrift()
Dim frm As Form, ctl As Control
Dim formName As String, n As Long
On Error Resume Next
'Перебираем все формы
For n = 0 To CurrentDb.Containers("Forms").Documents.Count - 1
formName = CurrentDb.Containers("Forms").Documents(n).Name
SysCmd acSysCmdSetStatus, formName
'Открываем форму в режиме конструктора
DoCmd.OpenForm formName, acDesign, , , , acHidden
Set frm = Forms(formName)
'Перебор всех управляющих элементов формы
For Each ctl In frm.Controls
If ctl.FontName = "СТАРЫЙ ШРИФТ" Then ctl.FontName = "НОВЫЙ ШРИФТ"
Next 'следующий элемент
'Закрываем и записываем форму
DoCmd.Close acForm, formName, acSaveYes
Next 'следующая форма
SysCmd acSysCmdClearStatus
MsgBox "Обработано форм: " & n, vbInformation
End Sub
|
полезная штука
запускаешь и во всех формах получаешь нужный тебе шрифт | |
| |
| |
| |
|
|
| | Все-таки не грех бы проверять хотя бы на кнопку. Я не люблю на кнопках "Tahoma".
Но как говорится дело вкуса.
Использование расписанных по контролам свойств позволяет оперативно изменять значения этих свойств прямо в библиотечной базе. При этом изменения в библиотечной базе при закрытии не сохраняются. | |
| |
| |
| |
|
|
| | Спасибо за разъяснения
только вот подумал что так будет удобнее
'перед входом в 1-ый цикл
DoCmd.RunCommand acCmdSelectAll
...
If TypeOf ctrl Is Label Then
ctrl.FontName = "Times New Roman"
ctrl.FontSize = 10
DoCmd.RunCommand acCmdSizeToFit
...
|
1. не надо подбирать высоту при изменении шрифта
2. для каждой надписи получаем нужную длинну | |
| |
| |
| |
|
|
| | 1. Не пробовал так.
2. Применяю всегда 10 FontSize и высоту 0,5 см. поэтому вопрос как-то не вставал.
3. Не использую ширину Label по ширине текста, обычно раздвигаю до связанного контрола, этакой табличкой. Вдруг понадобится сменить Caption?
4. Использование DoCmd в библиотечной базе как то смущает, хотя точно не знаю.
5. А проверялась эта версия на работу из библиотечной базы?
Я кстати ранее более правильную версию функции приклеивал, посмотрите. | |
| |
| |
| |
|
|
| | А проверялась эта версия на работу из библиотечной базы?
Как понять из библиотечной базы?
Просто в каждой базе есть модуль например Tools в котором собраны подобные процедуры.
Оттуда они и запускаются
Пока проблем с этой подправленной ф-ей не наблюдалось | |
| |
| |
| |
|
|
| | Иметь такие модули, которые используются только при проектировании, в рабочей базе неправильно. Поэтому их хранят в отдельном файле базы данных, который при проектировании подключают как ссылку в редакторе VBA (Tools-Referrens...).
В результате имеем доступ ко всем модулям библиотечной базы, и не загружаем проектируемое приложение лишним кодом, в том числе откомпилированным. По окончании работ отключаем библиотечную базу данных за ненадобностью.
Таким образом работают штатные мастера Access.
Если создать новый файл БД, и глянуть в редактор VBA, то там еще нет ссылок на библиотеки мастеров.
Теперь создадим форму мастером и посмотрим в редактор кода в окно Project Explorer (Сверху слева). Там появилась ссылка на библиотеку, которая правда закрыта для просмотра.
Она там будет видна до закрытия нашей базы. При следующем запуске ее уже не будет, до вызова мастера. Это потому, что мастера используют динамичное подключение ссылок.
А наша библиотека будет видна до тех пор, пока мы ее не отключим (кстати можно и программно) и не перезапустим наше приложение. | |
| |
| |
| |
|
|
| | Да интересно, тогда поправьте если неправильно понял.
Надо так:
1. Создаем отделную (библиотечную) базу в которой будут только служебные ф-ии и процедуры
2. Подключаем эту базу к рабочему проекту в Tools-Referrens...
3. В процессе разработки используем служебные ф-ии и процедуры из подключенной базы
4. После окончания разработки отключаем библиотечную базу
А что это реально дает, тобиш где изюм? | |
| |
| |
| |
|
|
| | ну Lukas же пишет
модули, которые используются только при проектировании
|
вот нужен тебе модуль, который меняет шрифты на формах, он у тебя подключен
а сдал заказчику работу, модуль заказчику же не нужен, вот и отключает его разработчик
п.с. Lukas возьму идею на вооружение
правда у меня не так много этих самых служебных модулей, но идея понятна и заслуживает внимания | |
| |
| |
| |
|
|
| | Понял все правильно.
Допустим нам для создания и настройки базы нужно иметь 50 служебных библиотечных модулей. Как будет чувствовать себя наша база, если мы будем постоянно экспортировать в нее около 50 лишних модулей, потом удалять, потом опять экспортировать. Компилятор сойдет с ума. База распухнет и начнет глючить. А нам это надо? | |
| |
| |
| |
|
|
| | спасибо | |
| |
| |
| |
|
|
| | Раз уж зашел разговор о функциях и процедурах.
Процедуры использую только в модулях классов, где они являются методами класса.
В глобальных модулях использую только функции, даже там, где вроде-бы должна быть процедура.
Казалось бы:
Задача функции - возвращать значение.
Задача процедуры - совершать какие-то действия.
Но, вызывая процедуру, мы можем не понять удалось ей сделать что ее просили или нет. И можем совершить ошибки в дальнейших действиях.
А если использовать вместо процедуры функцию As Boolean, мы можем присваивать ей значение True в случае успешного завершения, и False в случае ошибки. То есть имеем возможность изменить наши дальнейшие действия в случае получения ошибки. | |
| |
| |
| |
|
|
| | Пролистал сейчас умную книжку про библиотечные БД. Везде упоминаются только функции. О процедурах ни слова. | |
| |
| |
| |
|
|
| | спасибо | |
| |
| |
| |
|
|
| | ничто не мешает получать результат выполнения процедуры, хотя бы через ByRef аргумент. | |
| |
| |
| |
|
|
| | Плохому танцору всегда что-то мешает.
Был у меня такой злой случай:
В цикле вызываю функцию, передаю ей в качестве аргумента счетчик цикла.
В функции выполняю какие-то вычисления.
Далее мне надо в расчете иметь удвоенное значение переданного аргумента.
Я так-это бодренько перемножаю переданный аргумент на 2 и считаю дальше.
При проверке ничего понять не могу: цикл работает как-то скачками.
Когда дошло полез в умную книгу читать про ByVal и ByRef.
С тех пор использую передачу аргументов по ссылке для возвращения из функции нескольких значений аргументов. | |
| |
| |
| |
|
|
| | Вы ссылаетесь на "умную книгу" - это каждый раз - одна и та же книга или это общее название литературы по предмету разговора? | |
| |
| |
| |
|
|
| | Книжек конечно несколько, но любимая эта:
Пол Литвин, Кен Гетц, Майк Гунделой
Для профессионалов
ACCESS 2002
Разработка настольных приложений
Издательства BHV (Киев) и ПИТЕР(Санкт-Петербург), 2002 год.
Остальные все от BHV (Киев) - очень недурно ребята издают. | |
| |
| |
|
|
| |
|
|
| | ну фсё час, час твой настал...
вот придет osmor... | |
| |
| |
|
|
(остальное дороже-жалко). 
