Онлайн кредиты займы Казахстан онлайн кредиты усть-каманеногорск кредиты онлайн алматы взять онлайн займ в Казахстане гта5 играть на компьютере Pole Dance алматы играть онлайн форсаж 8 pokemon go играть вот ссылка гороскоп совместимости любовный гороскоп на 2017 рак девушка сексуальный гороскоп он телец она рыбы гороскопы близнецов любовный одиночные любовный любовный гороскоп гороскоп совместимости совместимость знаков в любви любовный гороскоп для рыб на сегодня и на завтра любовный гороскоп знака водолей гороскоп совместимости парень козерог девушка весы гороскоп совместимость гороскоп на месяц любовный рак основываясь на этих данных гороскоп женщина рыба мужчина весы совместимость гороскоп совместимости смотрите подробнее гороскоп на эту неделю стрелец любовный гороскоп дева любовный на сегодня и завтра гороскоп любви весы на завтра вот ссылка сексуальный гороскоп девы и овна гороскоп на совместимость телец и рыбы рак на сегодня гороскоп любовь гороскоп весы гороскоп совместимости для рыб на 2017 гороскоп семейный и любовный на сегодня гороскоп рак любовный совместимость по гороскопу женщина телец мужчина рак совместимость гороскоп секс гороскоп совместимости гороскоп телец мужчина женщина скорпион совместимость гороскоп любовный гороскоп любовный узнать больше перейти гороскоп совместимости любовный гороскоп двух львов гороскоп на неделю телец любовный гороскоп стрелец женщина и весы мужчина совместимость в браке гороскоп совместимости весы жен овен муж гороскоп совместимости сексуальный гороскоп совместимости гороскоп сегодня совместимость гороскопу источник статьи гороскоп козы ссылка на страницу гороскоп весы и лев любовный гороскоп совместимость совместимость по гороскопу рыба и дева гороскоп для женщины рак на сегодня любовь читать больше гороскоп пифагора совместимости знаков зодиака совместимость овен и лев по гороскопу подробнее на этой странице гороскоп гороскоп сексуальный любовный гороскоп ссылка совместимость свиньи и петуха по восточному гороскопу гороскоп совместимости гороскоп совместимости гороскоп на совместимость женщина телец любовный гороскоп гороскоп дева совместимость гороскопов лев скорпион гороскоп гороскоп гороскоп совместимости рыба тигр любовный гороскоп женщина козерог 2017 любовный гороскоп козерог на сегодня женщина любовный гороскоп для девы на сегодня и завтра гороскоп стрелец гороскоп на тельца на совместимость гороскоп на сегодня дева на оракул любовный гороскоп совместимости по знакам зодиака овен и водолей
Rambler's Top100
Российский фонд помощи
Навигация
Главная
MS ACCESS
VB
ASP
PHP
Наши друзья
Поиск
Форум
Лента новостей
Новый сайт

Online
Сейчас на сайте находятся:
1 гость
Рассылки Subscribe.Ru
Работа с MS Access
Подписаться письмом
Реклама на сайте
 
Главная arrow MS ACCESS arrow Пример визуализации временных интервалов на шкале времени с изменяемым шагом шкалы.
Пример визуализации временных интервалов на шкале времени с изменяемым шагом шкалы. Печать E-mail
Автор Lukas   
18.12.2009 г.
Оглавление
Пример визуализации временных интервалов на шкале времени с изменяемым шагом шкалы.
Страница 2

Показывает возможный вариант визуализации временных интервалов с использованием ленточной формы и текстовых полей с условным форматированием.
Можно текстовые поля с условным форматированием заменить выключателями, флажками или переключателями. Работать будет быстрее, но визуализация хуже, особенно если активирована опция "Элементы управления из тем Windows в формах" в параметрах приложения.

В реальных приложениях необходимо добавить сервисный функционал, например варианты сортировок, фильтрацию по атрибутам и т.д.

 

  

 

Download now

 

 


Просмотров: 12458

  Коментарии (12)
 1 Написал(а) Витек, в 17:07 28.05.2010
классная вещь. А можно ли сделать, чтобы показ длительности задач осуществлялся с помощью той же тени, которая показывает прошедший промежуток времени. Эта тень показывает промежуток очень точно. 
В то же время длительность задач зависит от 48 квадратиков и точность показа падает значительно. 
Например, если задача заканчивается 1 мая, то при детализации до месяца все равно заполнится квадратик, соответствующий маю. 
Или при детализации до 10 минут, если задача заканчивается в 13:07, то заполнится лишь квадратик, соответствующий периоду 12:50-13:00. То есть вообще некорректно получается. 
В итоге сильно теряется смысл визуализации, так как она совершенно не отражает реальной картины. Время начала и окончания задач либо показываются неверно либо сливаются в зависимости от того, какая детализация выбрана. 
Если это можно исправить, было бы хорошо. Если нет, то не вижу смысла в использовании этого классного НА ПЕРВЫЙ ВЗГЛЯД примера. 
Спасибо за внимание.
 2 Написал(а) Lukas, в 20:05 28.05.2010
Этот пример изначально строился по принципу: если событие произошло/произойдет (например день рождения), то он ДОЛЖЕН отобразиться, независимо от интервала, который отображает квадратик, потому как событие было/будет. (От того что мы выбрали интервал - квартал, событие-то никто не отменит. : ) 
Баги с отображением времени вполне возможны, так как сильно не тестировал. Да и запросы можно облегчить. : ) 
Пропорциональное отображение длительности событий значительно проще отобразить в html. 
Можно и на форме Access, но несколько иначе. 
...не вижу смысла в использовании... 
Так никто ведь и не заставляет. : ) 
Сделаете лучше, присылайте пример администратору, вместе порадуемся. 
Задача осчастливить все Access-ное сообщество и не ставилась. Это всего лишь ответ на вопрос в форуме.
 3 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 09:15 08.11.2011
Lukas спасибо Вам за такой шикарный пример! Подскажите, пожалуйста, можно ли квадратики отображающее интервал(затемнённые) сделать доступными, хочу сделать, чтоб по нажатию на этот квадратик происходило определённое событие. 
Me.Controls("f" & i).Enabled = true – в цикле не помогает.
 4 Написал(а) sanek, в 13:32 10.11.2011
Решил проблему тем, что сделал на верх дополнительные textbox а них уже сделал доступными. Теперь вопрос как сделать чтоб промежуток времени отображался правильно????
 5 Написал(а) Lukas, в 17:08 13.11.2011
sanek, 
там надо править процедуры формирования инструкции SQL запросов-источников. 
Со временем там легкий бардачекс, да и с датами запросы можно облегчить. 
Сам я пользую другое решение, потому этот вариант до праведного конца не довел. Сори.
 6 Написал(а) Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script , в 08:10 16.11.2011
=) разобрался с датами, всё прекрасно работает. Lukas можно поинтересоваться какой вариант Вы используете?
 7 Написал(а) Lukas, в 18:01 17.11.2011
Я формирую html и показываю в браузере. 
Там значительно проще показывать пропорциональные временные отрезки.
 8 Написал(а) Sanek, в 06:29 28.11.2011
У меня есть задания которые имеют одинаковый номер но разный период времени вот хочу сделать чтоб они группировались в одну строчку, подскажите пожалуйста как это правильно сделать 
Переделываю запрос таким образом, но выдаёт ошибку: 
Private Function GetSQL(ByVal dStart As Date, Interval As Double) As String 
Dim strSQL As String 
Dim i As Integer 
Dim sStart As String 
Dim sEnd As String 
strSQL = "SELECT ItemName" 
strSQL = strSQL & vbCrLf & "FROM tblItem " 
strSQL = strSQL & vbCrLf & "Group BY ItemName" 
For i = 1 To 48 
sStart = Format$(dStart + (i - 1) * Interval, SQLDATETIME) 
sEnd = Format$(dStart + i * Interval - 1 / 24 / 360, SQLDATETIME) 
strSQL = strSQL & ", " & vbCrLf & "Having(DatStart + TimeStart BETWEEN " & sStart & " AND " & sEnd & " OR DatEnd + TimeEnd BETWEEN " & sStart & " AND " & sEnd & " OR " & sStart & " BETWEEN DatStart + TimeStart AND DatEnd + TimeEnd OR " & sEnd & " BETWEEN DatStart + TimeStart AND DatEnd + TimeEnd) As f" & i 
Next i 
sStart = Format$(dStart, SQLDATETIME) 
sEnd = Format$(dStart + 48 * Interval - 1 / 24 / 360, SQLDATETIME) 
strSQL = strSQL & vbCrLf & " FROM tblItem " 
strSQL = strSQL & vbCrLf & "Group BY ItemName" & vbCrLf & " Having DatStart + TimeStart BETWEEN " & sStart & " AND " & sEnd & " OR DatEnd + TimeEnd BETWEEN " & sStart & " AND " & sEnd & " OR " & sStart & " BETWEEN DatStart + TimeStart AND DatEnd + TimeEnd OR " & sEnd & " BETWEEN DatStart + TimeStart AND DatEnd + TimeEnd" 
strSQL = strSQL & vbCrLf & " ORDER BY ItemName" 
GetSQL = strSQL 
End Function
 9 Написал(а) Sanek, в 14:52 05.01.2012
Разобрался как группировать, может кому надо: 
Private Function GetSQL(ByVal dStart As Date, Interval As Double) As String 
Dim strSQL As String 
Dim i As Integer 
Dim sStart As String 
Dim sEnd As String 
strSQL = "SELECT tblItem.ItemName" 
For i = 1 To 48 
sStart = Format$(dStart + (i - 1) * Interval, SQLDATETIME) 
sEnd = Format$(dStart + i * Interval - 1 / 24 / 360, SQLDATETIME) 
strSQL = strSQL & ", " & vbCrLf & "Sum(DatStart + TimeStart>= " & sStart & " AND DatStart + TimeStart=" & sStart & " AND DatEnd + TimeEnd= DatStart + TimeStart AND " & sStart & " = DatStart + TimeStart AND " & sEnd & "=Now()" 
strSQL = strSQL & vbCrLf & " group BY tblItem.ItemName" 
GetSQL = strSQL 
Debug.Print strSQL 
End Function
 10 Написал(а) Sanek, в 08:20 17.01.2012
Подскажите пожалуйста как поменять цвет ячеек, которые являются индикаторами присутствия задания


 
Реклама на сайте
HiProg.com - Технологии программирования
Rambler's Top100 TopList