Вверх ↑
Этот топик читают: Гость
Ответов: 75
Рейтинг: 2
#1: 2017-04-19 10:53:04 ЛС | профиль | цитата
Приветствую всех! Недавно смастерил программку для своих нужд. Выкладываю, может, пригодится кому. А то кризис в стране, деньги считать и экономить надо). Качество схемы прошу строго не судить, я не программист
screen1.jpg
карма: 2

2
файлы: 1Home_Calc.rar [809.7KB] [685]
Голосовали:Dad2016, sla8a
Ответов: 824
Рейтинг: 138
#2: 2017-04-19 11:52:36 ЛС | профиль | цитата
Не плохо! Толлько вот монитор у меня не такой крутой как у тебя.
Видать у моего монитора помельче разрешение...
Так что посмотреть твою программу целиком не представляется возможным, не влазит вся на екран...
карма: 1

0
Ответов: 75
Рейтинг: 2
#3: 2017-04-19 12:00:24 ЛС | профиль | цитата
Странно... У меня и на домашнем компе всё помещается. А там монитор, которому лет 15.
С этой программой есть одна проблемка. Когда её запускаю с флешки на виндовс ХР, диаграмму не строит, а выдаёт ошибку системы. На семёрке такой проблемы нет.
карма: 2

0
Ответов: 322
Рейтинг: 8
#4: 2017-04-19 12:18:49 ЛС | профиль | цитата
Очень хорошая программа.
Можно изменить вывод таблицы на принтер (это на любителя)
ссылка - http://file.sampo.ru/8vns2f/

Редактировалось 1 раз(а), последний 2017-04-19 12:21:21
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2017-04-19 12:42:49 ЛС | профиль | цитата
sashaoli писал(а):
Не плохо!
Идея нормальная. А вот схемка, с моей точки зрения, очень плохо. ИМХО.
Всё, выделенное красным, лишнее. В дочерних формах - тоже.
Что, вот так работать не будет?

Редактировалось 1 раз(а), последний 2017-04-19 12:44:49
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: 2
#6: 2017-04-19 14:58:32 ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2017-04-19 15:07:58
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#7: 2017-04-19 17:26:52 ЛС | профиль | цитата
Add(DSC_Query,8093148,259,124)
{
SQL="SELECT 'Сегодня '|| \r\n case W\r\n WHEN '0' THEN 'воскресенье,'\r\n WHEN '1' THEN 'понедельник,'\r\n WHEN '2' THEN 'Вторник,'\r\n WHEN '3' THEN 'среда,'\r\n WHEN '4' THEN 'четверг,'\r\n WHEN '5' THEN 'пятница,'\r\n WHEN '6' THEN 'суббота,' \r\n end\r\n || strftime(' %d ', "now")||\r\n case M\r\n WHEN "01" THEN "января"\r\n WHEN "02" THEN "февраля"\r\n WHEN "03" THEN "марта"\r\n WHEN "04" THEN "апреля"\r\n WHEN "05" THEN "мая"\r\n WHEN "06" THEN "июня"\r\n WHEN "07" THEN "июля"\r\n WHEN "08" THEN "августа"\r\n WHEN "09" THEN "сентября"\r\n WHEN "10" THEN "октября"\r\n WHEN "11" THEN "ноября"\r\n WHEN "12" THEN "декабря"\r\n end\r\n ||strftime(" %Y года.","now") \r\n From\r\n (SELECT strftime('%w',"now") AS W),\r\n (SELECT strftime('%m',"now") AS M)\r\n "
DSManager="db1"
}


Редактировалось 2 раз(а), последний 2017-04-19 17:42:43
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: 2
#8: 2017-04-19 17:42:08 ЛС | профиль | цитата
Что-то проблемы с сообщениями, или я глючу) Tad, твоё закончилось на иконке в Майнформ. Моё вообще пустое. Попробую ещё раз. У меня мало опыта в программировании. Если что - 1986 год, Бейсик, Паскаль, перфокарты) Сейчас решил немного поднять тот уровень. Спасибо человеку с ником 3042 за видеоуроки. Именно там рекомендация делать связку FString с данными для запроса в SQLite. Кстати, правильная, ибо наблюдал некорректную работу связки форматированной строки с запросом неоднократно. Лишние DoData и Memory - признаю. Но работает ведь
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#9: 2017-04-19 17:51:41 ЛС | профиль | цитата
Перезалил пример работы с SQLite (получение строки "Сегодня .......").
Ты работаешь с БД. Вот и работай.
Кстати у компонента DatePicker есть нижняя точка CurrentDate.
Насчет "Домашней бухгалтерии":
1. Программа должна содержать Приход, Расход, Остаток.

Add(MainForm,2953706,49,166)
{
Left=100
Top=100
Width=1010
Height=735
Caption="Домашний калькулятор"
Point(onClose)
link(onCreate,1846982:doOpen,[])
link(onClose,1846982:doClose,[])
}
Add(DatePicker,12687873,378,175)
{
Left=25
Top=30
Width=240
Height=24
Font=[MS Sans Serif,10,1,0,1]
Style=1
TitleBkColor=8421376
Point(DateTime)
Point(DateInt)
Point(CurrentDateTime)
link(onChange,10989412:doWork1,[(420,181)(420,168)(242,168)])
}
Add(DS_SQLite,1846982,98,180)
{
Name="db1"
FileName="expenses.db"
Point(onError)
link(onOpen,5253710:doExec,[])
}
Add(GlobalVar,13694103,308,189)
{
Name="mont"
}
Add(DateConvertor,9447187,259,189)
{
Mode=9
Format="Myy"
Point(Data)
link(onResult,13694103:doValue,[])
link(Data,12687873:CurrentDateTime,[(265,173)(209,173)(209,101)(441,101)(441,219)(398,219)])
}
Add(HubEx,10989412,238,189)
{
link(onEvent,9447187:doConvert,[])
}
Add(GetDataEx,6108526,378,224)
{
link(Data,12687873:DateTime,[])
}
Add(Label,6834147,315,124)
{
Left=330
Top=20
Width=46
Height=23
Font=[Times New Roman,10,1,32768,204]
}
Add(Hub,6059206,210,180)
{
OutCount=3
link(onEvent1,8093148:doQuery,[(234,186)(234,130)])
link(onEvent2,10989412:doWork2,[(232,193)(232,195)])
}
Add(DSC_Exec,5253710,147,180)
{
SQL="CREATE TABLE IF NOT EXISTS domcalc(\r\ndatr REAL, \r\nnameex TEXT, \r\nprice INTEGER, \r\narticle INTEGER, \r\ndatint INTEGER, \r\nmont INTEGER);"
DSManager="db1"
link(onExec,6059206:doEvent1,[])
}
Add(DSC_Query,8093148,259,124)
{
SQL="SELECT 'Сегодня '|| \r\n case W\r\n WHEN '0' THEN 'воскресенье,'\r\n WHEN '1' THEN 'понедельник,'\r\n WHEN '2' THEN 'Вторник,'\r\n WHEN '3' THEN 'среда,'\r\n WHEN '4' THEN 'четверг,'\r\n WHEN '5' THEN 'пятница,'\r\n WHEN '6' THEN 'суббота,' \r\n end\r\n || strftime(' %d ', "now")||\r\n case M\r\n WHEN "01" THEN "января"\r\n WHEN "02" THEN "февраля"\r\n WHEN "03" THEN "марта"\r\n WHEN "04" THEN "апреля"\r\n WHEN "05" THEN "мая"\r\n WHEN "06" THEN "июня"\r\n WHEN "07" THEN "июля"\r\n WHEN "08" THEN "августа"\r\n WHEN "09" THEN "сентября"\r\n WHEN "10" THEN "октября"\r\n WHEN "11" THEN "ноября"\r\n WHEN "12" THEN "декабря"\r\n end\r\n ||strftime(" %Y года.","now") \r\n From\r\n (SELECT strftime('%w',"now") AS W),\r\n (SELECT strftime('%m',"now") AS M)\r\n "
DSManager="db1"
link(onQuery,6834147:doText,[])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 2267
Рейтинг: 676
#10: 2017-04-19 17:54:55 ЛС | профиль | цитата
Tri-j, схема сделана аккуратно, видно что старались, но вот некоторые элементы лишние. Tad выше указал на некоторые. Вот еще и это по логике бред полный:
whatisthis.PNG
(Tad, слона то вы и не заметили ).
карма: 11

0
Ответов: 75
Рейтинг: 2
#11: 2017-04-19 17:56:38 ЛС | профиль | цитата
Tad, я программу для себя писал. Мне приход и остаток не нужен. Я просто хочу проанализировать свои расходы. А то худею на глазах. ( 9 кг за полгода)))
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#12: 2017-04-19 17:57:21 ЛС | профиль | цитата
sla8a писал(а):
это по логике бред полный
Приведи правильное решение.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 75
Рейтинг: 2
#13: 2017-04-19 17:58:55 ЛС | профиль | цитата
sla8a прав. Разводка этих линий производилась в лёгкой задумчивости под красное сухое)
карма: 2

0
Ответов: 16884
Рейтинг: 1239
#14: 2017-04-19 18:02:40 ЛС | профиль | цитата
Tri-j писал(а):
А то кризис в стране, деньги считать и экономить надо).
Поэтому и говорю
Tad писал(а):
Программа должна содержать Приход, Расход, Остаток.
Выбрал "Топливо", а что в остатке из денег не знаешь. И затык - заправлять 40 литров или 10 ?

Хотя, если "под красное сухое", то ещё не так страшен черт...

Редактировалось 2 раз(а), последний 2017-04-19 18:04:51
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 2267
Рейтинг: 676
#15: 2017-04-19 18:06:56 ЛС | профиль | цитата
Tri-j, в дочерней форме где таблица, заголовок формы: Диаграмма. Кстати почему не задействуете элементы слои, вроде как на разных компьютерах программу используете.
Tad писал(а):
Приведи правильное решение.
Удалить, вам ли не знать что эта связка лишена смысла. Так для красоты.

Редактировалось 1 раз(а), последний 2017-04-19 18:09:04
карма: 11

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)