Заставили делать БД и писать клиента к ней, а я почти НОЛЬ

@s2000 · Регистрация: 21.06.2016

Студворк — интернет-сервис помощи студентам

Меня зовут Серега. Все что я скажу, попрошу воспринять адекватно. Я не программист и не учился по этой специальности. Но судьба так сложилась, что пришлось работать системным администратором. Хотя это, как попутное занятия к моим основным обязанностям. Бог свидетель я не хотел этого, но есть - то, что есть. Раньше обходилось, но теперь поставили задачу сделать БД в которую человек будет вносить данные, а другие люди с сайта будут ее смотреть и пользоваться ней.Еще нужно -будет делать импорт из MS Office 2007-2010 в СУБД. Мне предложили сделать это в Acces но в нем не разбираюсь. Подумал и вспомнил, что на у уроках информатики я посещал секцию Turbo Pascal и был не самым худшим в группе. Я даже когда-то помог товарищу с Телекома и привел в божеский вид номера телефонов области, посредством Delphi+Sybase. Но было это 12 лет тому назад... И программа была мягко говоря не очень дружественная к пользователю, а про стиль программирования я вообще молчу...
Но как бы там ни было, благодаря плохим людям, мне не выйдет найти фрилансера, котрому контора заплатит - мне нужно будет делать самому. И от этого мне не по себе... Плюс еще нужно же подумать о коммерческой стороне вопроса - мне нужна бесплатная СУБД...

И вот мы подошли к сакральной и банальной фразе: "Люди - пожалуйста ПОМОГИТЕ!!!! "

Я в ВК обратился по группам со своими вопросами - аудитория 14 000 чел. - ответил только один! Все остальные продают себя! Как - так? Я помогаю людям в основном просто - так. И никогда не просил ничего в замен. А тут мне понадобилось - и такая ситуация...
В общем тот человек, который ответил - один из 14 000 чел. сказал, что мне нужно: "mysql + delphi 7 + zeos. И вперед!" Я прекрасно понял, что он имел ввиду. Так и делаю пока-что. Но все таки решил зайти на проф. форум и спросить еще у вас. В чем я сомневаюсь, так это в выборе среды - почему Delphi 7? - она надежная, но старая чуток. На работе все стало без проблем, но дома - почему-то не очень - висело пол часа потом, что-то установило и на Визи-брокер наругалось... Система чистая - ось - MSDN образ и. т.д. (не лох - знаю, что к чему)

И основная мысли моего долгого повествования - есть добровольцы, которые смогут без раздражения отвечать, на некоторые ключевые вопросы, которые у меня будут возникать в процессе работы? Обещаю не задавать глупые вопросы - я НЕ ПРОШУ СДЕЛАТЬ ПРОЕКТ ВМЕСТО МЕНЯ - просто мне нужно с кем, то советоваться - я никогда ничего такого не делал.

В моем понимании сначала нужно:

1. Создать БД, справочники (таблицы с константами - дынными, которые не будут меняться, или будут, но очень редко)
2. Разбить и сгруппировать всю инфу по таблицам
3. Написать хранимые процедуры (добавление, редактирование и т.д.)
4. Разработать систему отчетов на основе Rave report
5. Написать клиентское приложение, котрое облегчить работу с БД для конечного пользователя
6. Заполнить БД данными
7. Перенести БД на хостинг
8. Отладить работу клиента и СервераБД в боевых условиях
9. Отблагодарить всех, кто помогал.

С уважением Сергей. (опубликовал эту тему на еще одном форуме, но ответов - нет)

@Пытливый · 21.08.2016, 13:28

А на кой так длинно писать? Ведь контекст использования данных вы уже определили через from Sportmans, тогда по логике должна без проблем работать и сокращенная запись:

T-SQL
1
SELECT MAX(IDSport) AS MaxOfField FROM Sportmans

Насчет FD не уверен, но в ADO можно писать несколько компактнее:

Delphi
1
c:= Datamodule1.FDQuery['MaxOfField'];

@krapotkin · 22.08.2016, 07:38

Datamodule1.FDQuery['MaxOfField'];
это то же самое что
Datamodule1.FDQuery.FieldByName('MaxOfFi eld').asVariant
при этом каждый раз идет поиск по списку полей по имени поля
гораздо эффективнее в Field Editor сделать persistent поля и обращаться к ним типа
Datamodule1.Query1MaxOfField.asInteger

@s2000 · 16.09.2016, 09:33 **[ТС]**

Здравствуйте. Сделал 30 минутный видео-отчет, по тому, что на данный момент уже сделано: по созданию БД и написанию клиента к ней. Это конечно не так много, как хотелось бы, но что есть-то есть...

@s2000 · 18.09.2016, 13:41 **[ТС]**

Здравствуйте. У меня в запросе участвуют 3 таблицы. Запрос работает, но в результате почему, то возникают дубликаты значений. Пытался сделать через UNION - не получилось... В чем моя ошибка?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
DataModule1.DataSource2.DataSet:=Datamodule1.FDQuery2;
TehRezStart.DBGrid5.DataSource:=Datamodule1.DataSource2;
Datamodule1.FDQuery2.Close;
Datamodule1.FDQuery2.SQL.Clear;
Datamodule1.FDQuery2.SQL.Add('SELECT DISTINCT ProtokolStartTeh.NumRecID,ProtokolStartTeh.SportSoName,');
Datamodule1.FDQuery2.SQL.Add('SportHorses.HorseName,TehRezSupport.TehRezStartID');
Datamodule1.FDQuery2.SQL.Add('FROM ProtokolStartTeh,SportHorses,TehRezSupport');
Datamodule1.FDQuery2.SQL.Add('WHERE ProtokolStartTeh.HorseID=SportHorses.ID');
Datamodule1.FDQuery2.SQL.Add('AND   ProtokolStartTeh.DataProved=TehRezSupport.TehRezData');//+DateToStr(TehRezSTART.DateTimePicker1.Date)+  //"2016-09-14"
Datamodule1.FDQuery2.SQL.Add('AND   ProtokolStartTeh.NazvaZmag=:NazZMG');
Datamodule1.FDQuery2.SQL.Add('AND   ProtokolStartTeh.NumMarsh=TehRezSupport.TehRezMarshNum');
Datamodule1.FDQuery2.SQL.Add('ORDER BY TehRezSupport.TehRezStartID');
Datamodule1.FDQuery2.ParamByName('NazZMG').AsString:=TehRezStart.ComboBox2.Text;
Datamodule1.FDQuery2.Prepare;
Datamodule1.FDQuery2.Open;

Во вложении скрин с дубликатами.

@qwertehok · 18.09.2016, 15:12

Сообщение от s2000

В чем моя ошибка?

это типа гадать по запросу?

SQL
1
FROM ProtokolStartTeh,SportHorses,TehRezSupport

перепишите через JOIN

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@s2000 0 / 0 / 0 Регистрация: 21.06.2016 Сообщений: 10

	Заставили делать БД и писать клиента к ней, а я почти НОЛЬ 19.07.2016, 23:52. Показов 1966. Ответов 24 Метки нет (Все метки) Меня зовут Серега. Все что я скажу, попрошу воспринять адекватно. Я не программист и не учился по этой специальности. Но судьба так сложилась, что пришлось работать системным администратором. Хотя это, как попутное занятия к моим основным обязанностям. Бог свидетель я не хотел этого, но есть - то, что есть. Раньше обходилось, но теперь поставили задачу сделать БД в которую человек будет вносить данные, а другие люди с сайта будут ее смотреть и пользоваться ней.Еще нужно -будет делать импорт из MS Office 2007-2010 в СУБД. Мне предложили сделать это в Acces но в нем не разбираюсь. Подумал и вспомнил, что на у уроках информатики я посещал секцию Turbo Pascal и был не самым худшим в группе. Я даже когда-то помог товарищу с Телекома и привел в божеский вид номера телефонов области, посредством Delphi+Sybase. Но было это 12 лет тому назад... И программа была мягко говоря не очень дружественная к пользователю, а про стиль программирования я вообще молчу... Но как бы там ни было, благодаря плохим людям, мне не выйдет найти фрилансера, котрому контора заплатит - мне нужно будет делать самому. И от этого мне не по себе... Плюс еще нужно же подумать о коммерческой стороне вопроса - мне нужна бесплатная СУБД... И вот мы подошли к сакральной и банальной фразе: "Люди - пожалуйста ПОМОГИТЕ!!!! " Я в ВК обратился по группам со своими вопросами - аудитория 14 000 чел. - ответил только один! Все остальные продают себя! Как - так? Я помогаю людям в основном просто - так. И никогда не просил ничего в замен. А тут мне понадобилось - и такая ситуация... В общем тот человек, который ответил - один из 14 000 чел. сказал, что мне нужно: "mysql + delphi 7 + zeos. И вперед!" Я прекрасно понял, что он имел ввиду. Так и делаю пока-что. Но все таки решил зайти на проф. форум и спросить еще у вас. В чем я сомневаюсь, так это в выборе среды - почему Delphi 7? - она надежная, но старая чуток. На работе все стало без проблем, но дома - почему-то не очень - висело пол часа потом, что-то установило и на Визи-брокер наругалось... Система чистая - ось - MSDN образ и. т.д. (не лох - знаю, что к чему) И основная мысли моего долгого повествования - есть добровольцы, которые смогут без раздражения отвечать, на некоторые ключевые вопросы, которые у меня будут возникать в процессе работы? Обещаю не задавать глупые вопросы - я НЕ ПРОШУ СДЕЛАТЬ ПРОЕКТ ВМЕСТО МЕНЯ - просто мне нужно с кем, то советоваться - я никогда ничего такого не делал. В моем понимании сначала нужно: 1. Создать БД, справочники (таблицы с константами - дынными, которые не будут меняться, или будут, но очень редко) 2. Разбить и сгруппировать всю инфу по таблицам 3. Написать хранимые процедуры (добавление, редактирование и т.д.) 4. Разработать систему отчетов на основе Rave report 5. Написать клиентское приложение, котрое облегчить работу с БД для конечного пользователя 6. Заполнить БД данными 7. Перенести БД на хостинг 8. Отладить работу клиента и СервераБД в боевых условиях 9. Отблагодарить всех, кто помогал. С уважением Сергей. (опубликовал эту тему на еще одном форуме, но ответов - нет) 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	22.08.2016, 07:38
	Datamodule1.FDQuery['MaxOfField']; это то же самое что Datamodule1.FDQuery.FieldByName('MaxOfFi eld').asVariant при этом каждый раз идет поиск по списку полей по имени поля гораздо эффективнее в Field Editor сделать persistent поля и обращаться к ним типа Datamodule1.Query1MaxOfField.asInteger 0

@s2000 0 / 0 / 0 Регистрация: 21.06.2016 Сообщений: 10
	16.09.2016, 09:33 [ТС]
	Здравствуйте. Сделал 30 минутный видео-отчет, по тому, что на данный момент уже сделано: по созданию БД и написанию клиента к ней. Это конечно не так много, как хотелось бы, но что есть-то есть... 0