1 Reply by spectre

(21 replies, posted in Russian)

Новых версий и обновлений больше не будет???
проект заброшен?

Go to forum: Russian

2 Reply by spectre

(3 replies, posted in Russian)

Спасибо! Буду пробовать!

а primary id должен называться именно ID или он может иметь имя например ID_order?

Go to forum: Russian

3 Topic by spectre

(3 replies, posted in Russian)

Очень интересует вопрос:
Будет ли реализована возможность подключаться и работать к уже организованной и заполненной базе данных?
как например в этих программах phprunner или phpmaker
Уж очень не хватает данной функции

Go to forum: Russian

4 Reply by spectre

(6 replies, posted in Russian)

DriveSoft wrote:

spectre
К сожалению не могу открыть ваш архив, пишет что файл поврежден.


Как правильно из этого

Вы можете использовать одно событие для всех кнопок, просто задайте им одно и тоже имя события  на вкладке "Свойства компонента > События", т.е. на против OnAfterClick напишите order_Button3_OnAfterClick для всех трех кнопок.


за второе решение спасибо! все отлично работает

а файл проекта перепаковал и перезалил (может проблема в том что мой проект на RTL языке)

Go to forum: Russian

5 Reply by spectre

(6 replies, posted in Russian)

Как правильно из этого

procedure order_Button3_OnAfterClick (Sender: string);
begin
    LastPriceDisc;
    LastPriceDiscPer;
    CalculatePaid;
end;

procedure order_Button9_OnAfterClick (Sender: string);
begin
    LastPriceDisc;
    LastPriceDiscPer;
    CalculatePaid;
end;

procedure order_Button5_OnAfterClick (Sender: string);
begin
    LastPriceDisc;
    LastPriceDiscPer;
    CalculatePaid;
end;

Сделать примерно это

procedure order_Button3_OnAfterClick (Sender: string);
procedure order_Button9_OnAfterClick (Sender: string);
procedure order_Button5_OnAfterClick (Sender: string);
begin
    LastPriceDisc;
    LastPriceDiscPer;
    CalculatePaid;
end;

Go to forum: Russian

6 Reply by spectre

(6 replies, posted in Russian)

DriveSoft wrote:

должно работать, приложите пожалуйста ваш проект.

Go to forum: Russian

7 Topic by spectre

(6 replies, posted in Russian)

procedure courses_akad_OnChange (Sender: string; var Cancel: boolean);
begin
courses.astr.Value := courses.akad.Value / 60 * 45
end;

procedure courses_astr_OnChange (Sender: string; var Cancel: boolean);
begin
courses.astr.Value := courses.astr.Value / 45 * 60
end;

Есть 2 текстовых поля (академические часы) (астрономические часы)

Хотелось бы при вводе в текстовое поле академических часов автоматически прописывались астрономические и наоборот

Go to forum: Russian

8 Topic by spectre

(1 replies, posted in General)

Can i put two or three buttons in increm.search to get data of two details tablegrid?
thanks

Go to forum: General

9 Reply by spectre

(30 replies, posted in Russian)

DriveSoft wrote:

у компонента students.orderslist есть свойство Increm.Search, где выбирается кнопка, которая будет автоматически нажиматься. Видимо вы забыли ее указать.

Можно ли указать  2 или 3 кнопки в поле Increm.Search настроек Грида?
Спасибо

Go to forum: Russian

10 Reply by spectre

(399 replies, posted in Russian)

Как можно редактировать данные напрямую в tablegrid?

Go to forum: Russian

11 Reply by spectre

(7 replies, posted in Russian)

Форма WebGrid слишком большая
на резолюции 1366х768 не видно шапки окна поэтому не возможно закрыть окно
Пожалуйста сделайте по компактнее и сам размер окна динамический (резиновый)

Кроме того нет кнопки снизу "Save" в этом же окне

Спасибо

Go to forum: Russian

12 Reply by spectre

(43 replies, posted in Russian)

Эта версия программы является продолжением версии с SQLite или её надо будет покупать отдельно после финального релиза? Например если имеется пожизненная лицензия на программу c SQLite

Go to forum: Russian

13 Reply by spectre

(43 replies, posted in Russian)

DriveSoft wrote:

spectre
Нет, т.к. структура таблиц должна соответствовать некоторым внутренним правилам программы.

Понятно Спасибо

Go to forum: Russian

14 Reply by spectre

(43 replies, posted in Russian)

а существующие таблицы из MySQL программа не вытягивает для последующей работы???

Go to forum: Russian

15 Reply by spectre

(30 replies, posted in Russian)

Все супер все сработало
Извеняюсь за назойливость но учусь программировать только на ваших примерах.

из этого возникает вопрос:
если мне надо менять значение одного и того же поля
но по разным событиям то я должен создать процедуру на каждое событие или же это можно как то объеденить?

на данный момент использую скрипт так:

procedure order_checklist_OnChange (Sender: string);
begin
    order.paid.Value := SQLExecute('SELECT TOTAL(cashpay.amount) FROM cashpay WHERE cashpay.id_orders='+students.orderslist.sqlValue) +
                        SQLExecute('SELECT TOTAL(checkspay.amount) FROM checkspay WHERE checkspay.id_orders='+students.orderslist.sqlValue) +
                        SQLExecute('SELECT TOTAL(creditcardpay.amount) FROM creditcardpay WHERE creditcardpay.id_orders='+students.orderslist.sqlValue);
end;

procedure order_cclist_OnChange (Sender: string);
begin
    order.paid.Value := SQLExecute('SELECT TOTAL(cashpay.amount) FROM cashpay WHERE cashpay.id_orders='+students.orderslist.sqlValue) +
                        SQLExecute('SELECT TOTAL(checkspay.amount) FROM checkspay WHERE checkspay.id_orders='+students.orderslist.sqlValue) +
                        SQLExecute('SELECT TOTAL(creditcardpay.amount) FROM creditcardpay WHERE creditcardpay.id_orders='+students.orderslist.sqlValue);
end;

procedure order_cashlist_OnChange (Sender: string);
begin
    order.paid.Value := SQLExecute('SELECT TOTAL(cashpay.amount) FROM cashpay WHERE cashpay.id_orders='+students.orderslist.sqlValue) +
                        SQLExecute('SELECT TOTAL(checkspay.amount) FROM checkspay WHERE checkspay.id_orders='+students.orderslist.sqlValue) +
                        SQLExecute('SELECT TOTAL(creditcardpay.amount) FROM creditcardpay WHERE creditcardpay.id_orders='+students.orderslist.sqlValue);
end;

меняется только условие

Go to forum: Russian

16 Reply by spectre

(30 replies, posted in Russian)

DriveSoft wrote:

Приложите пожалуйста ваш проект.

готово

Go to forum: Russian

17 Reply by spectre

(30 replies, posted in Russian)

DriveSoft wrote:

попробуйте так

procedure order_discount_OnChange (Sender: string);
begin
    order.endprice.Value := SQLExecute('SELECT startprice FROM orders WHERE id='+students.orderslist.sqlValue) -
                                     SQLExecute('SELECT discount FROM orders WHERE id='+students.orderslist.sqlValue);
end;

Результат тот же
1.ставлю скидку 20руб. > ничего не меняется
2. сохраняю выхожу
3. захожу обратно (ничего не поменялось)
4. меняю скидку на 40руб - программа отнимает 20руб

она работает с предыдущим значением

Go to forum: Russian

18 Reply by spectre

(30 replies, posted in Russian)

Спасибо подогнал код под себя.

А если 2 или 3 зависимости для вывода данных в TextBox?
Например:
конечная цена зависит от 2 TextBox-ов
1. скидка в рублях
2. скидка в процентах
и надо сделать onChange TextBox(cкидка в рублях) и onChange TextBox(скидка в процентах)
сделать запись в (конечная сумма)
???

procedure order_discount_OnChange (Sender: string);
begin
    order.endprice.Value := SQLExecute('SELECT startprice FROM orders') -
                                                SQLExecute('SELECT discount FROM orders');
end;

и после такого кода он меняет мне значение endprice только один раз
если я ошибся со скидкой и ввожу повторно другое значение программа уже не делает пересчет

Go to forum: Russian

19 Reply by spectre

(30 replies, posted in Russian)

DriveSoft wrote:

spectre
Приложите пожалуйста последнюю версию вашего проекта, и укажите имена компонентов и формы, где это необходимо.

Форма students> tab orders
все действие происхотит тут
там 3 grida и 1 textbox + кнопка SQLquery.
я пытался разными способами вывести общую сумму уже оплаченную (любым видом оплаты) ну и конечно же остаток долга
не могу понять через что выводить эти данные каким способом это удобнее сделать?

Go to forum: Russian

20 Reply by spectre

(30 replies, posted in Russian)

Еще вопросик
Grid "методы оплаты" генерируется SQL запросом при клике на строчку в "заказах"
Пытаюсь вывести данные сколько оплачено (сумма всех видов оплаты) и сколько осталось оплатить
чтобы показывало автоматом
Пытался вывести сам и через TextBox и через Grid
и с помощью SQL и через script
но автомат отказывается работать
Помогите пожалуйста

Go to forum: Russian

21 Reply by spectre

(30 replies, posted in Russian)

Leonid wrote:

После End  не хватает  ;  ( end;)

не помогло
замкнутый круг
(картинка)

Go to forum: Russian

22 Reply by spectre

(30 replies, posted in Russian)

DriveSoft wrote:

Можно, примерно так

procedure Form1_ComboBox1_OnCloseUp (Sender: string);
begin
    Form1.Edit1.Text := SQLExecute('SELECT price FROM tablename WHERE id='+Form1.ComboBox1.sqlValue);
end;

а без скрипта это возможно?

просто так хорошо идет через запросы SQL
я не программист поэтому пока пытаюсь обходить скрипты

и собственно поэтому получаю ошибку см.картинку

Go to forum: Russian

23 Reply by spectre

(30 replies, posted in Russian)

А можно ли таким же способом при выборе из ComboBox автоматом заполнялся Textbox(ReadOnly) в той же форме???

например: я выбераю продукт из таблицы продуктов на форме заказа и его цена автоматически переносится в эту же форму в поле TextBox???

Go to forum: Russian

24 Reply by spectre

(30 replies, posted in Russian)

Nilaus wrote:

spectre
Странно, у меня все работает, выставил только increm.search на 13 кнопку в свойствах таблицы orderslist.

Моя тупость.  Вы правы. Я поставил increm. Search в orderdetails когда надо было в orderlist
Спасибо.
Иногда полезно пообщаться.  А то  весь день тупил искал проблему

Go to forum: Russian

25 Reply by spectre

(30 replies, posted in Russian)

при выборе строки в форме students.orderlist он не выполняет автоматический sql запрос(increm.search) соответственно не показывает результат в student.orderdetails

Спасибо

Go to forum: Russian