1 (edited by rvn_rus 2024-10-06 16:42:51)

Topic: Помощь по проекту

Всем доброго дня!

Суть моего проекта следующая: у нас есть трикотажный цех, где вяжутся ролики. После этого данные заносятся в таблицу rolls.

После этого рулоны поступают на разбраковку в цех отделки, и далее по моей задумке происходит следующее:

Оператор вводит  ID рулона и автоматически информация, которая была в таблице Rolls переносится в на форму Otdelka, оператору останется добавить номер рулону, который он разбраковал, и метраж, выставить сорт, и если продукция 2-го сорта, то еще и вид дефекта + некоторую инфу, которую еще не добавил в проект.После этого он сохраняет данные о ролике. И дальше происходит все тоже самое.

У меня некорректно подставляются данные из таблицы Rolls на форму Otdelka.

Я новичок, очень хочется разобраться с проблемой. От помощи не откажусь!!!

Проект прикрепил!!!

Re: Помощь по проекту

Можете ли вы предоставить свой проект.
Удалите файл .exe, а затем прикрепите папку проекта как файл .zip.
Derek.

3 (edited by rvn_rus 2024-10-06 19:28:41)

Re: Помощь по проекту

Возможно я нашел решение проблемы..

Ранее я использовать скрипт:

procedure frmAddOtdelka_ComboBox1_OnChange (Sender: string);
begin
    frmAddOtdelka.Edit1.text := SQLExecute ('SELECT zakaz FROM rolls WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit2.text := SQLExecute ('SELECT client FROM clients WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit3.text := SQLExecute ('SELECT article FROM articles WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit4.text := SQLExecute ('SELECT kgroll FROM rolls WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit5.text := SQLExecute ('SELECT machine FROM rolls WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
end;

Сейчас я переделал код (не без помощи нейросети конечно же). Работает, НО!!! Хотелось бы понять, как избегать таких проблем в будущем.

Post's attachments

Attachment icon Stellini - копия.zip 375.38 kb, 43 downloads since 2024-10-06 

Re: Помощь по проекту

Хотелось бы понять, что вы будете дальше делать, когда нейросети тотально станут платными? smile

Визуальное программирование: блог и телеграм-канал.

Re: Помощь по проекту

this code mybe can help you

procedure frmAddOtdelka_ComboBox1_OnChange (Sender: string);
begin
    frmAddOtdelka.Edit1.text := SQLExecute ('SELECT zakaz FROM rolls WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit2.text := SQLExecute ('SELECT client FROM clients WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit3.text := SQLExecute ('SELECT article FROM articles WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit4.text := SQLExecute ('SELECT kgroll FROM rolls WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit5.text := SQLExecute ('SELECT machine FROM rolls WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
end;

Change with

procedure frmAddOtdelka_ComboBox1_OnChange (Sender: string);
begin
    frmAddOtdelka.Edit1.text := SQLExecute ('SELECT zakaz FROM rolls WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
    frmAddOtdelka.Edit2.text := SQLExecute ('SELECT client FROM clients WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
    frmAddOtdelka.Edit3.text := SQLExecute ('SELECT article FROM articles WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
    frmAddOtdelka.Edit4.text := SQLExecute ('SELECT kgroll FROM rolls WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
    frmAddOtdelka.Edit5.text := SQLExecute ('SELECT machine FROM rolls WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
end;

Re: Помощь по проекту

k245 wrote:

Хотелось бы понять, что вы будете дальше делать, когда нейросети тотально станут платными? smile

У Вас есть какое то предложение? Обучение или еще что то?

Re: Помощь по проекту

agusecc wrote:

this code mybe can help you

procedure frmAddOtdelka_ComboBox1_OnChange (Sender: string);
begin
    frmAddOtdelka.Edit1.text := SQLExecute ('SELECT zakaz FROM rolls WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit2.text := SQLExecute ('SELECT client FROM clients WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit3.text := SQLExecute ('SELECT article FROM articles WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit4.text := SQLExecute ('SELECT kgroll FROM rolls WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
    frmAddOtdelka.Edit5.text := SQLExecute ('SELECT machine FROM rolls WHERE id = ' + IntToStr(frmAddOtdelka.ComboBox1.dbItemID) );
end;

Change with

procedure frmAddOtdelka_ComboBox1_OnChange (Sender: string);
begin
    frmAddOtdelka.Edit1.text := SQLExecute ('SELECT zakaz FROM rolls WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
    frmAddOtdelka.Edit2.text := SQLExecute ('SELECT client FROM clients WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
    frmAddOtdelka.Edit3.text := SQLExecute ('SELECT article FROM articles WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
    frmAddOtdelka.Edit4.text := SQLExecute ('SELECT kgroll FROM rolls WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
    frmAddOtdelka.Edit5.text := SQLExecute ('SELECT machine FROM rolls WHERE id = ' + frmAddOtdelka.ComboBox1.sqlValue );
end;

Спасибо!

Re: Помощь по проекту

rvn_rus wrote:
k245 wrote:

Хотелось бы понять, что вы будете дальше делать, когда нейросети тотально станут платными? smile

У Вас есть какое то предложение? Обучение или еще что то?

К сожалению, из-за приостановки работы автора над данным проектом, я прекратил развитие курса обучения, но можно самостоятельно пройти пару разделов:

https://k245.ru/wp-content/uploads/2023/08/Raspute.jpg

Non-code приложения MVDB - https://k245.ru/mvdb/non-code-prilozheniya-mvdb.html
SQLite & MVDB - https://k245.ru/mvdb/sqlite-mvdb.html

Визуальное программирование: блог и телеграм-канал.

Re: Помощь по проекту

Спасибо! Очень качественный материал! Спасибо огромное!!!

Автору желаю возобновить проект! Очень полезно и увлекательно!!!!