[gisol]

Как сделать перебор, чтоб потом выводился в DBEdit'ы и сохранялся, и после этого можно было выбрать ответственное лицо за ремонт и время ремонта, ну и виды поломки, поломки записал в БД_Диагностику. Делал условием, не получилось. Видимо тут надо перебирать из БД и выводить в DBEdit'ы.
Вроде этого как сделать? Помогите!

if Form2.DBEdit1.Text='Двигатель' then
Form2.DBEdit1.Text:='Хорошо'
else
Form2.DBEdit1.Text:='Плохо';
if Form2.DBEdit2.Text='Сцепление' then
Form2.DBEdit2.Text:='Хорошо'
else
Form2.DBEdit2.Text:='Плохо';

Если нужны исходники. Вот. Скачать
Вот картинки, в rare, тут ограничение не могу закачать картинку.
Скачать
Помогите очень надо! По программе, вот этот перебор мне тока нужен пока что, все остальное вроде понятно как делать.

[Страдалецъ]

До исходников не добрался, а вот из картинок неочень понятно.
Как всегда сложность в правильной постановке задачи.
Если я правильно понял, то у вас есть транспортные средства (ТС) (Автобус,Самосвал и т.д.) Каждый из них имеет свой набор уникальных признаков (Марка,г/н и т.д.). Кроме того, каждое ТС имеет набор узлов (Двигатель,Сцепление,Колесо и т.д.)
И стоит задача проведения техосмотра любого ТС с внесением отметки в БД о состоянии каждого узла. Верно?
Я бы сделал так:
1. Завел бы таблицу ТехОсмотра (КодТО,ДатаТО,Ответственный)
2. Завел бы таблицу детализации ТО (КодТО,ТехСрество,Узел,Состояние)
Вот примерно таким образом
ПС: Если за осмотр/ремонт каждого из узлов отвечают разные люди, то в детализацию надо добавить поле Ответственный

[gisol]

Да, что-то вроде этого надо сделать, и также перебор этих поломок и потом записать их в БД, в отдельную таблицу.
П.С.: Детализацию ТС? А зачем? Там же надо просто перебор этих поломок и данные записать в таблицу, ну и потом при необходимости в файл.
П.С.: ТехОсмотр, он нужен, да могу и сделать так, ведь ещё в коде написать что-то надо, вот этот перебор поломок как делать, вот тут у меня проблема.

[Страдалецъ]

ТО и Поломки не суть важно.
У вас ведь это будет происходить не раз с одним и тем-же ТС. скажем в этом году вы ремонтировали двигатель у асфальтового катка и провели замену руля на гоночный вариант, а через полгода сделали тюнинг катков.
Т.е. у вас должно быть 2 записи от разных дат с разным набором состояния комплектующих для одного ТС. Или вы несколько не о том?

[gisol]

Даже не знаю как лучше. Там, например, у двигателя поломка, то занести это в поле DBEdit и так до конца, пока не конец перебора поломок. Потом надо выбрать мастера кто это будет делать и отвественное лицо тож самое делать, потом надо выбрать вид поломок и дату (начало и конец), срок ремонта, ну и конечно ввиде отчета эту Диагностику вывести, и в файл если нужно будет и распечать если тоже надо будет, и все вроде.

[gisol]

Ну че? Можно как-то подкоректировать или сделать.

[gisol]

Че по программе можешь сказать, а то уже 2 недели осталось до сдачи Диплома. Очень нужна помощь.

[gisol]

Я седня никого не дождался, не знаешь как через ADOConnection делать, там тоже есть какая-то связь с Парадокс. Также хотел преобразовать из Парадокса БД в Access, получилось все каряво, русский не хотел отображаться.

[gisol]

Страдалецъ, помоги с задачей про Диагностику, как легче сделать, через Paradox или Access, чтоб выбор механизмов и чтоб он их перебирал и потом выбрал и сравнил, есть в данном месте или нет, если нет - написать что все в порядке и пропустить. Если в Access все это делать, все заного придеться переписать, или можно перенести все таблицы?

[Страдалецъ]

Хотя принципиальной разницы нет, я бы предпочел Акцесс т.к. там все в одном флаконе, в отличии от Парадокса.
Перенести структуру и данные из Парадокса там тоже достаточно просто.
Но легче небудет ни в акцесе ни в парадоксе т.к. вы будете использовать их только для хранения данных и реализация всей визуальной части ложится на вас.

[gisol]

Да я наверно в Парадоксе сделаю, щаа пробую с разных сайтов, тоже что предлагают.

Table1.Last;
try
Table1.AppendRecord([
Table1.IndexFields['id'],
StrToDate(Edit1.Text),
StrToDate(Edit2.Text),
// StrToInt(Edit_Cost.Text),
// StrToInt(Edit_Amount.Text),
ComboBox1.Text:=Table1.GotoKey,
ComboBox2.Text,
ComboBox3.Text]);
except
MessageDlg('В поля формы введены недопустимые данные',
mtError,[mbOK],0);
Exit;

Вот так делал, выдает ошибку, хотел чтобы выбранная запись после диагностики заносилась в таблицу, не получается, щаа на других сайтах поищу.

[gisol]

Народ, есть ещё программисты среди Вас, чтоб помогли бы мне по Парадоксу.

[lmikle]

Программисты есть, но делать за тебя диплом никто не будет.
Начинать надо с чтения хотя бы одной книжки по проектированию БД.
Весь вопрос в том, как правильно спроектировать БД, что бы хранить нужную тебе информацию. Я бы сделал примерно так (таблицы):
1. Таблица TC
2. Таблица типов поломок (агрегатов)
3. Таблица мастеров
Это пока все, фактически, справочники. Далее:
4. Таблица наряда на ремонт. Если для всех поломок мастер один и тот-же, то можно ссылку на него сделать здесь. Также ссылается на ТС.
5. Таблица поломок. Если для каждой поломки нужен мастер, то ссылка здесь. Так же ссылается на таблицы 4 и 2.

Все. Ввод делается как форма с гридом.
В принципе, работы на 1 день.

[gisol]

А код не надо вводить, просто их правильно соединить и выведит добавления записи, каждый раз обновляясь.

[gisol]

А зачем делать Диплом, он уже готов, мне вот с программой осталось разобраться, как сделать выборку и все. Сам че-то понять не могу как должно работать, может к этим таблицам ещё и код нужен, я не знаю. Таблицы есть, как Страдатель сказал. При нажатие на Button, не только должен заносить данные в таблицу и время, но ещё и проверку - есть у этой машине поломка или нет.