Вверх ↑
Этот топик читают: Гость
Ответов: 5
Рейтинг: 3
#1: 2011-05-20 16:14:24 ЛС | профиль | цитата
Доброго дня!
В своё время сделал базу данных для ведения дел в мировых судах.
Позволяют вести реестр дел, выводит статистику за период, вести архив.
Возможна привязка к одному компьютеру.
При использовании внешних компонент, возможна печать в Word
Использует SQLite, одна таблица, 143 колонки, во всю используются sql запросы.

На данный момент представляет академический интерес, т.к. мировые суды перешли на свою единую информационную систему.
Схему не стал вставлять, занимает 300кб))

Файл не дало вставить, поэтому ссылка на внешний ресурс.
http://dl.dropbox.com/u/2532917/usk.rar

HiAsm рулит, спасибо за внимание
карма: 1

3
Голосовали:Ivann, 1nd1g0, flud
Ответов: 16884
Рейтинг: 1239
#2: 2011-05-20 16:35:48 ЛС | профиль | цитата
imaster, мотивы ?
code_24051.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_24051.txt [1.3KB] [262]
Ответов: 8928
Рейтинг: 823
#3: 2011-05-20 16:37:47 ЛС | профиль | цитата
imaster, очень хорошо, тем более не помню, чтобы тема обсуждалась здесь. Рулит не только HiAsm, но и Вы
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#4: 2011-05-20 17:10:47 ЛС | профиль | цитата
nesco, а ты не знал - оказывается MT_String можно тоже использовать вместо Memory.
Леонид писал(а):
очень хорошо
В базе 147 колонок. Значит всю статистику можно организовать на 300-500 компонентах, а не на 1400
цитата из схемы писал(а):
Не несёт полезной нагрузки,
добавлен чтобы пользователи прониклись
объёмом труда потраченный на этот отчёт

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8928
Рейтинг: 823
#5: 2011-05-20 17:54:26 ЛС | профиль | цитата
Tad, ладно критиковать-то, я на днях нашёл одну из первых своих схем (перед выбросом проверял содержимое старых дисков) -- ух, как бы её сейчас распичужил, и порадовался что коллега Tad её не видит
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#6: 2011-05-20 18:50:14 ЛС | профиль | цитата
imaster, вот тебе твоя связка Edit+DatePicker
В кнопках DateReal ( которую читаешь с БД для примера 1-е мая или пусто)
Add(MainForm,2953706,161,21)
{
Width=232
Height=105
}
Add(ChildPanel,12373887,273,77)
{
}
BEGIN_SDK
Add(EditMulti,13653175,21,21)
{
WorkCount=1
DataCount=1
VarCount=1
Width=272
Height=95
VOffset=35
HOffset=49
link(Var1,11880756:Result,[(76,106)(237,106)])
link(doWork1,8599981:doEvent1,[])
}
Add(Panel,6476107,126,28)
{
Left=75
Top=5
Width=127
Height=51
}
Add(DatePicker,13558736,70,56)
{
Left=15
Top=15
Width=80
Height=21
Point(Data)
link(onChange,6267690:doWork1,[(116,62)])
link(Data,13653175:Data1,[])
}
Add(Edit,15405172,175,63)
{
Left=15
Top=15
Width=65
Text=""
link(onChange,11880756:doConvert,[])
}
Add(DateConvertor,5999322,126,63)
{
Mode=9
Format="dd.MM.yyyy"
link(onResult,15405172:doText,[])
}
Add(Hub,8599981,42,56)
{
link(onEvent1,13558736:doSetDate,[])
link(onEvent2,6267690:doWork2,[])
}
Add(HubEx,6267690,112,63)
{
link(onEvent,5999322:doConvert,[])
}
Add(DateConvertor,11880756,231,63)
{
Mode=8
Format="dd.MM.yyyy"
Point(Result)
}
END_SDK
Add(Button,7988007,159,77)
{
Left=5
Top=5
Caption="1-е мая"
Data=Real(734258.72198397)
link(onClick,11259005:doWork2,[])
}
Add(Button,3960957,161,119)
{
Left=5
Top=35
Caption="0.0"
Data=Real(0)
link(onClick,11259005:doWork3,[(228,125)])
}
Add(HubEx,11259005,224,77)
{
link(onEvent,12373887:doWork1,[])
}

Леонид, ну не могу я смотреть на такие решения.
(Особенно когда в нике присутствует "master" и когда "кричали женщины Ура! и в воздух чепчики бросали" )
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 5
Рейтинг: 3
#7: 2011-05-20 23:39:21 ЛС | профиль | цитата
Спасибо за комменты, вообще это мой первый большой проект на HiAsm, не отличается изящными решениями, где то топорно, согласен.
2Tad: Мотив защиты был меркантильный, но времена изменились и было получено лишь моральное удовлетворение.
И действительно, надо было по другим ником заливать
------------ Дoбавленo в 23.36:
Tad писал(а):
В базе 147 колонок. Значит всю статистику можно организовать на 300-500 компонентах, а не на 1400

Компоненты в смысле контролы (поля ввода, кнопки)?
Можно всё и в Excel вести на макросах))
------------ Дoбавленo в 23.39:
Tad писал(а):
nesco, а ты не знал - оказывается MT_String можно тоже использовать вместо Memory.

Если вы про ввод ключа привязки, то такой пример использования где то был, может даже в стандартных.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#8: 2011-05-21 01:25:32 ЛС | профиль | цитата
imaster, да нет, всё нормально. Бывают проекты наааамноооого хуже.
Но половина компонент лишняя.

------------ Дoбавленo в 23.43:
imaster писал(а):
Можно всё и в Excel вести на макросах))
Можно и в Excel и даже без HiAsm-а.
А можно в HiAsm-е,... и намного проще.
Дело вкуса...
------------ Дoбавленo в 00.04:
А вот так выбирать судью, а добавлять нового прямо в поле ввода ComboBox
Add(ComboBox,15190816,385,133)
{
Left=15
Top=15
Width=125
Height=21
}
Add(SQLite_Query,16581055,301,133)
{
SQL="SELECT DISTINCT <судья> FROM <таблица>"
link(onQuery,15190816:doAdd,[])
}
------------ Дoбавленo в 01.25:
imaster, и обманывать нехорошо
imaster писал(а):
143 колонки
144
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 5
Рейтинг: 3
#9: 2011-05-21 14:23:44 ЛС | профиль | цитата
Tad писал(а):
Но половина компонент лишняя.

Опишите, хотя бы в общих чертах, что на ваш взгляд лишнее?
С выбором даты я понял, там всего на один элемент меньше стало)
А с остальным?
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#10: 2011-05-21 16:23:56 ЛС | профиль | цитата
imaster писал(а):
С выбором даты я понял, там всего на один элемент меньше стало
т.е. уже минус 61 элемент из схемы.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1321
Рейтинг: 37
#11: 2011-05-21 16:51:09 ЛС | профиль | цитата
[flood]А вот и схемка для соревнования [/flood]
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#12: 2011-05-21 18:23:27 ЛС | профиль | цитата
imaster, А вот и начало схемки :
code_24059.txt
------------ Дoбавленo в 18.23:
imaster,
1. Заставлять пользователя листать 1000 дел,каждый раз читая, чтобы найти нужное - верх издевательства.
Намного удобнее выбирать по номеру дела из отсортированного списка из ComboBox. ИМХО
Надеюсь, что номера дел не дублируются ?
2. Держать базу всё время "открытой" - иметь только одно рабочее место. Открывать только по надобности.
3. Я бы читал,писал и редактировал только нужные колонки для каждой странички документа. Заполнил ты все странички, кроме последней, и нужно прерваться или прервали.

и... много ещё чего.


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_24059.txt [7.9KB] [291]
Гость
Ответов: 17029
Рейтинг: 0
#13: 2011-05-21 19:04:29 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2017-06-14 20:25:00
карма: 0

0
Ответов: 5
Рейтинг: 3
#14: 2011-05-21 19:06:12 ЛС | профиль | цитата
Извините, предыдущее сообщение моё.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#15: 2011-05-22 08:58:03 ЛС | профиль | цитата
h178-129-190-174.dyn.bash писал(а):
Tad писал(а)
Заполнил ты все странички, кроме последней, и нужно прерваться или прервали.
Не проблема, нажал "Сохранить", всё сохранилось.
прервали электоэнергию, комп завис и т.п. Не дали нажать "Сохранить" Поэтому, для работы с многостраничными документами желательна, при листании страниц,
проверка на изменение данных, и вопрос "Данные были изменены. СохранитьОтказаться". Дело хозяйское...
imaster писал(а):
С выбором даты я понял, там всего на один элемент меньше стало)
Можно и на 2 меньше(т.ч. долой 122 компонента)
code_24065.txt
imaster писал(а):
Т.е. Открыли БД - Прочитали - Закрыли? Открыли - Обновили - Закрыли? Извиняюсь за нелепый вопрос, но что это может дать? Как я понимаю, снижена вероятность испортить базу при внезапной перезагрузке компа?
Чуть-чуть наоборот: Нужно обратиться к базе - подключился, сделал что нужно и закрыл. Возможность одновременной работы с нескольких рабочих мест, ну и долой проблемы с компом (сбой, зависание,да мало ли чего)

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_24065.txt [1.1KB] [236]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)