Member
Статус: Не в сети Регистрация: 19.08.2004 Откуда: Sankt-Peterburg
Коллеги всем добра. (Я ни разу не программист) Постараюсь кратко и ясно. Надо написать прогу на Делфи 7 для управлением БД (на Access). Управление это значит, добавить запись, удалить запись. Сортировка этих записей (по дате). И вывод отчетов. На Access накидал базу из 3 таблиц. В делфи открыл новый проект, связал БД с проектом через АДО. На форму кинул Дбгрид, а даже что-то отображается из базы. Кинул кнопки добавить записи и кнопку отчеты. И застопорился. Понятно что при нажатии на Добавить записи, должно открываться новое окно с полями, куда ввожу данные. Потом эти данные должны попасть в соответствующие поля в БД Access.
Прогу хочу принципиально написать самостоятельно, т.к. потом надо рассказывать как делал. Если кто разжует - спасибо.
Коллеги всем добра. (Я ни разу не программист) Постараюсь кратко и ясно. Надо написать прогу на Делфи 7 для управлением БД (на Access). Управление это значит, добавить запись, удалить запись. Сортировка этих записей (по дате). И вывод отчетов. На Access накидал базу из 3 таблиц. В делфи открыл новый проект, связал БД с проектом через АДО. На форму кинул Дбгрид, а даже что-то отображается из базы. Кинул кнопки добавить записи и кнопку отчеты. И застопорился. Понятно что при нажатии на Добавить записи, должно открываться новое окно с полями, куда ввожу данные. Потом эти данные должны попасть в соответствующие поля в БД Access.
Прогу хочу принципиально написать самостоятельно, т.к. потом надо рассказывать как делал. Если кто разжует - спасибо.
да все просто там, советую не пользоваться готовыми компонентами а все вручную писать (мое ИМХО, если собираетесь дальше учиться программировать, получите хороший скилл), будет время - помогу
Member
Статус: Не в сети Регистрация: 19.08.2004 Откуда: Sankt-Peterburg
Спасибо хоть кто-то ответил. Программирование это точно не мое. Понял уже давно. Но делать нечего надо писать как-то. Немного начал ковырять. Затык в том, что добавил кнопки необходимые, компилю - пишет [Fatal Error] Unit1.pas(7): Circular unit reference to 'Unit1'
Спасибо хоть кто-то ответил. Программирование это точно не мое. Понял уже давно. Но делать нечего надо писать как-то. Немного начал ковырять. Затык в том, что добавил кнопки необходимые, компилю - пишет [Fatal Error] Unit1.pas(7): Circular unit reference to 'Unit1'
Возможно ты в модуле Unit1.pas написал Uses Form1, или что-то типо того, указано что ошибка в 7 строке Unit1.pas , пришли ее сюда
Member
Статус: Не в сети Регистрация: 19.08.2004 Откуда: Sankt-Peterburg
Villain88 писал(а):
короче давай сюды весь проект вместе с БД и примерным заданием, тебе срочно это все?
Срочности пока нет. Месяц есть. Приложил архив с проектом и БД. Только скорее всего там база не подключится. Надо менять будет путь.
Приложил фото- нарисовал проект.
Вносим дефект (заполняем поля) все это записывается в mdb, в нужные нам поля. Автоматически к новой записи Приписывается дата/время. (Что б вручную не вводить)
Смотрим отчеты. Все дефекты (записи) за определенный день, смену или по ФИО оператора.
Кнопка диаграммы. Диаграмма Фамилии. Видим кружок с секторами у кого больше/меньше дефектов. Собстно все.
У вас нет необходимых прав для просмотра вложений в этом сообщении.
Member
Статус: Не в сети Регистрация: 19.08.2004 Откуда: Sankt-Peterburg
Кое чего поднаписал, поэтому обновлю архив. Сейчас пытаюсь сделать что б при нажатии кнопки ОК (в форме добавить дефект в базу) все что я заполнил ушло в базу в нужные поля и еще приписалась дата/время.
У вас нет необходимых прав для просмотра вложений в этом сообщении.
Member
Статус: Не в сети Регистрация: 21.01.2010 Откуда: ... и куда ...
А можно тупо непринципиальный вопрос - зачем на Дельфи? Или именно в этом задача состоит? Просто по нынешним временам и требованиям я бы совсем другую среду и язык выбирал для "втыкания" в программирование...
_________________ Если на узкой лесной тропе вам повстречался медведь, не теряйтесь, сразу бейте его по морде обгаженными трусами.
Member
Статус: Не в сети Регистрация: 21.01.2010 Откуда: ... и куда ...
fandnb, по нынешним временам либо Java (в первую очередь), либо C#, а если хочется серьезно закопаться, то С++. Но никак не паскаль/дельфи, ибо они уже потеряли свою актуальность и используются сейчас только "поскольку-постольку", софт то надо поддерживать написанный и развивать, если нет возможности с нуля заказать.
_________________ Если на узкой лесной тропе вам повстречался медведь, не теряйтесь, сразу бейте его по морде обгаженными трусами.
Member
Статус: Не в сети Регистрация: 21.01.2010 Откуда: ... и куда ...
fandnb, глупо изучать отмирающий язык программирования, имхо. В дальнейшем практически не пригодится, а время будет зря потеряно. Но, как говорится, хозяин - барин
_________________ Если на узкой лесной тропе вам повстречался медведь, не теряйтесь, сразу бейте его по морде обгаженными трусами.
Member
Статус: Не в сети Регистрация: 19.08.2004 Откуда: Sankt-Peterburg
Коллеги, подскажите - сделал фильтр, что б фильтровать записи в базе по нескольким полям /условиям. Вот код
procedure TForm6.btn2Click(Sender: TObject); begin Form1.tbl1.Filtered:=false; Form1.tbl1.filter:='Оператор = '+QuotedStr(edit1.text)+' AND Дата = '+QuotedStr(edit2.text)+' AND Гайковерт = '+QuotedStr(edit3.text); // сложный фильтр Form1.tbl1.Filtered:=true;
end;
Фильтр не работает. Прога компилится, фильтр Фамилия+дата выдает пустую строку/запись Фильтр Фамилия +гайковерт выдает ошибку Несовпадение типов
Гайковерт и Фамилия это текстовый тип. Дата это Дата/Время Срабатывает только если я заполняю все 3 поля. Но меня это не устраивает.
Member
Статус: Не в сети Регистрация: 21.01.2010 Откуда: ... и куда ...
fandnb писал(а):
Срабатывает только если я заполняю все 3 поля. Но меня это не устраивает.
Само собой, при таком построении запроса оно и будет срабатывать, если только все 3 параметра указаны. Надо раздельно проверять каждое из условий, и только если оно не пустое, добавлять к строке фильтра. Накидаю примерно код, без паскальности или еще чего, просто для понимания:
Код:
string query = ""; if (formCondition1 != "") query = "Cond1 = " + formCondition1; if (formCondition2 != "") { if (query != "") query = query + " AND " query = query + " Cond2 = " + formCondition2; } if (formCondition3 != "") { if (query != "") query = query + " AND " query = query + " Cond3 = " + formCondition3; }
Как-то так...
_________________ Если на узкой лесной тропе вам повстречался медведь, не теряйтесь, сразу бейте его по морде обгаженными трусами.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения