1 Reply by Ra*dmin

(3 replies, posted in Russian)

Спасибо за ответ
В любом случае удачи Вам и крепкого здоровья...

Go to forum: Russian

2 Topic by Ra*dmin

(3 replies, posted in Russian)

Здравствуйте.!
Давно не заходил, даже соскучился :-)
Вот почему то с первой версии и до сих пор не работает Font.Color
пример: Form1.Button1.Font.Color := clRed;
Или будет доступно только в платной версии?
СПАСИБО.

Go to forum: Russian

3 Reply by Ra*dmin

(13 replies, posted in Russian)

DriveSoft wrote:
var
   b1, b2: string;
begin
   if Form_redakt_idtv.CheckBox2.Checked then b1 := '1' else b1:= '0';
   if Form_redakt_idtv.CheckBox3.Checked then b2 := '1' else b2:= '0';

....
+ Form_redakt_idtv.Edit11.Text + '","'
+ Form_redakt_idtv.Edit10.Text + '","'
+ FormatDateTime('yyyy-MM-DD 00:00:00.000', Form_redakt_idtv.DateTimePicker1.DateTime) + '","'
+ FormatDateTime('yyyy-MM-DD 00:00:00.000', Form_redakt_idtv.DateTimePicker2.DateTime) + '",'
+ b2 + ','
+ b1 + ',"'
+ Form_redakt_idtv.id_TpodstModelTV.????!!!  + '","

только не ясно
Form_redakt_idtv.id_TpodstModelTV
какой это компонент? больше похоже на название внешнего ключа из таблицы БД )



чтобы понять, откуда ошибка, мне необходимо видеть весь запрос.

Уфф... нашел ошибки у себя, все исправил, все работает СПАСИБО ОГРОМНОЕ
Только у меня опять тупик, как вот их еще добавить в запрос, на скрине

Go to forum: Russian

4 Reply by Ra*dmin

(13 replies, posted in Russian)

DriveSoft wrote:

Используйте событие OnAfterClick от кнопки сохранения, в основную таблицу S сохраняйте информацию с помощью кнопки с действием Сохранить запись, а в таблицу D с помощью данного скрипта

procedure Form1_Button1_OnAfterClick (Sender: string);
begin
   SQLExecute( 'INSERT INTO D (X, Y, Z) VALUES ("' + Form2.Edit1.Text + '","' + Form2.Edit2.Text + '","' + Form2.Edit3.Text +'")' );
end;

Здравствуйте! Помогите! То что выше я понял, а как быть тут:

+ Form_redakt_idtv.Edit11.Text + '","'
+ Form_redakt_idtv.Edit10.Text + '","'
+ Form_redakt_idtv.DateTimePicker1.??????? + '","'
+ Form_redakt_idtv.DateTimePicker2.??????? + '","'
+ Form_redakt_idtv.CheckBox3.??????? + '","'
+ Form_redakt_idtv.CheckBox2.??????? + '","'
+ Form_redakt_idtv.id_TpodstModelTV.????!!!  + '","

??????? ----------- Тут не пойму какая аффинированность
????!!! -------------- А здесь совсем тяжело
Пробовал только Text выходит ошибка на скриншоте
Благодарю за оказанное внимание...

Go to forum: Russian

5 Reply by Ra*dmin

(6 replies, posted in Russian)

Да, да все прекрасно работает

Мдааааа, затупил я не по детски.

Спасибо

Go to forum: Russian

6 Reply by Ra*dmin

(6 replies, posted in Russian)

Да команда Что? Где? Когда? тут бы не помешала  big_smile

А я опять туплю, и все про тоже посмотрите

Go to forum: Russian

7 Reply by Ra*dmin

(13 replies, posted in Russian)

Вы как всегда на высоте мозгового штурма...
Спасибо огромное.

Go to forum: Russian

8 Topic by Ra*dmin

(13 replies, posted in Russian)

Здравствуйте, это пожалуй единственный оставшийся тупик в моем проекте,
хотелось бы вести историю во вторую таблицу, таблицы разные но имеют
одинаковые поля. Если Вам не сложно напишите код на примере:

Основная таблица "S"  поля "X", "Y", "Z"
Таблица получатель "D"  поля "X", "Y", "Z"

Находил примеры но толи не то, толи не так я их присабачиваю...

Спасибо...

Go to forum: Russian

9 Topic by Ra*dmin

(6 replies, posted in Russian)

Вопрос на скрине

Go to forum: Russian

10 Reply by Ra*dmin

(2 replies, posted in Russian)

Ну хоть какая то, небольшая польза smile от меня...

Go to forum: Russian

11 Topic by Ra*dmin

(2 replies, posted in Russian)

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

Go to forum: Russian

12 Reply by Ra*dmin

(32 replies, posted in Russian)

Цвет в Button не красится даже кодом !

Go to forum: Russian

13 Reply by Ra*dmin

(32 replies, posted in Russian)

Огромнейшее спасибо...

Go to forum: Russian

14 Reply by Ra*dmin

(32 replies, posted in Russian)

DriveSoft wrote:
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     frmOptionsdbCore.ShowModal;
end;

Подскажите пожалуйста код кнопки на дизайнер отчетов.
Спасибо

Go to forum: Russian

15 Reply by Ra*dmin

(32 replies, posted in Russian)

Благодарю Вас за ответ Вы гений, подскажите еще пожалуйста хочу сделать
отдельную кнопку на выбор пути до базы данных, как прописать код?

Go to forum: Russian

16 Reply by Ra*dmin

(32 replies, posted in Russian)

DriveSoft wrote:

Можно
Cell[x,y].TextColor - Определяет цвет текста в указанной ячейки


пример: 

 Form1.TableGrid1.Cell[3,4].TextColor := clRed;

Здравствуйте, извините наверно я не так написал то что хотел, имеется в виду:
допустим есть столбец с номерами HGJF45TY, HGYT78D, GJJ45F8D и тд. и если
в номере присутствует допустим буква Т то ячейка окрашивается, если в составе
номера нет такого знака то ничего не происходит, как то так.
(Ну и вообще фантастика если бы окрашивалась именно до этого знака, ну это уже...)
Спасибо огромное

Go to forum: Russian

17 Reply by Ra*dmin

(32 replies, posted in Russian)

Огромное спасибо за ответ,  а подскажите пожалуйста можно сделать тоже самое (выделение цветом) но по части текста?
Что в некоторых ситуациях во много раз упростило бы работу.

Go to forum: Russian

18 Topic by Ra*dmin

(32 replies, posted in Russian)

Здравствуйте DriveSoft
Подскажите пожалуйста, можно ли назначить кнопку на форме, при клике закрашивала строку в Grid
на которой находится фокус, и чтобы это все сохранялось.
Благодарю. С Уважением. Ra*dmin

Go to forum: Russian

19 Reply by Ra*dmin

(2 replies, posted in Russian)

Спасибо огромное
Крепкого Вам здоровья и удачи!

Go to forum: Russian

20 Topic by Ra*dmin

(2 replies, posted in Russian)

Здравствуйте, спасибо за чудесный продукт, к тому же бесплатный

Помогите пожалуйста с отчетом и элементом CheckBox чтобы в отчете выглядел как "да/нет" находил на форуме
примеры но так и не понял...

В моем случае...

SELECT

Tdtv.P_famil_io, Tdtv.P_adres_mkr,
Tdtv.P_adres_dom, Tdtv.P_adres_kv,
Tdtv.P_telefone, Tdtv.P_mobile,
Tdtv.P_inventarnyj, Tdtv.P_serijnyj,
Tdtv.P_mac, Tdtv.P_data_ustanovki,
Tdtv.P_set_upakovka, Tdtv.P_set_rukovodstvo,
Tdtv.P_set_pult_pdu, Tdtv.P_set_batarejki,
Tdtv.P_set_cabel_RCA, Tdtv.P_set_cabel_YPbPr,
Tdtv.P_set_blok_pitanija, Tdtv.P_set_cabel_HDMI,
TpodstModelTV.P_model_dtv,
Tdtv.id

FROM Tdtv

LEFT OUTER JOIN TpodstModelTV ON Tdtv.id_TpodstModelTV=TpodstModelTV.id

WHERE Tdtv.id=$id

P_set ----- это CheckBox
Огромное спасибо, с уважением Ra*dmin

Go to forum: Russian