• Registered: 2014-03-21
  • Posts: 193

Re: Подскажите с скриптом...

Может повесить на кнопку сохранения записи такую функцию как обновление грида?

например:       Form1.REZULTAT.dbUpdate; // Update TableGrid

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Может повесить на кнопку сохранения записи такую функцию как обновление грида?
например: Form1.REZULTAT.dbUpdate; // Update TableGrid

написал скрипт так:

      procedure Form6_OnClose (Sender: string; Action: string);
begin
    Form1.TableGrid1.dbUpdate;
end;

т.е.  после закрытия Form6 обновить значения в гриде...(обновить получилось)
кликаем два раза на строчку  в гриде показывает запись которую только что сделали....
А НАДО открыть  Form6 для новой записи!

может надо обновить саму форму?...как это сделать?

53 Reply by Роман (edited by Роман 2015-11-10 06:26:17)

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Доброго времени суток Дмитрий!   версия 2.1

Есть скрипт:
procedure Form3_TableGrid1_OnDoubleClick (Sender: string);
begin
    Form10.Show;
end;
т.е. при двойном клике на строчку в TableGrid1 он должен
открыть  Form10 для (НОВОЙ ЗАПИСИ) в  другую таблицу....
Проблема в том, что он делает это один раз, после повторного
клика на строчку он показывает , что было записано...
А НАДО сделать новую запись!
Подскажите ошибку?

Немного поколдовав получил:

   //при двойном нажатии по строчки в TableGrid1....
 procedure Form3_TableGrid1_OnDoubleClick (Sender: string);
begin

    Form10.Show;                                                                                          //открывает  Form10
    Form10.ComboBox1.dbItemID := Form3.TableGrid1.dbItemID;  //значения из TableGrid1 = значению в ComboBox1
    Form10.Button2.Click;                                                                          //кликает Button2 (очистить поля)
end;
   //нажав на Button2 (очистить поля) очищает их от предыдущих значений...
   procedure Form10_Button2_OnClick (Sender: string; var Cancel: boolean);
  begin
     Form10.Edit1.Text := '';
     Form10.Edit2.Text := '';
     Form10.DateTimePicker1.Checked := False;
   end;

Дмитрий...если правильно дайте знать?

                                                      С Уважением и Благодарностью Роман!!!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите с скриптом...

К сожалению я не смог понять вашего последнего вопроса.

Dmitry.
  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Доброго дня!
Подскажите добрые люди....
как в TableGrid заголовки колонок выровнять по центру?

             С Уважением и Благодарностью Роман!!!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите с скриптом...

Роман wrote:

Доброго дня!
Подскажите добрые люди....
как в TableGrid заголовки колонок выровнять по центру?

             С Уважением и Благодарностью Роман!!!

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
     Form1.TableGrid1.Columns[0].Alignment := taRightJustify; // first column
     Form1.TableGrid1.Columns[1].Alignment := taCenter; 
     Form1.TableGrid1.Columns[2].Alignment := taLeftJustify; 
end;
Dmitry.
  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Благодарю!

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Доброго времени суток Дмитрий!
Есть скрипт...взят из примера на форуме...

procedure Form2_OnShow (Sender: string; Action: string);
begin
          Form2_ComboBox1_OnChange ('');
end;

procedure Form2_ComboBox1_OnChange (Sender: string);
begin
      Form2.CheckBox5:= SQLExecute ('SELECT Real FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) );
      Form2.ComboBox11:= SQLExecute ('SELECT id_nik FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) );
      Form2.Edit1.Text := SQLExecute ('SELECT deposit FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) );

end;

Edit1-получилось работает!........с ComboBox11 и CheckBox5 не могу заставить работать...
Вопрос: Где ошибка?

                                                                                   С Уважением и Благодарностью Роман!!!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите с скриптом...

для ComboBox

      Form2.ComboBox11.dbItemID := SQLExecute ('SELECT IFNULL(id_nik, -1) FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) );

для CheckBox

if  SQLExecute ('SELECT Real FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) ) = '1' then
Form2.CheckBox5:= True else Form2.CheckBox5:= False;
Dmitry.
  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Скрипт:

procedure Form2_OnShow (Sender: string; ACol, ARow: Integer);
begin
          Form2_ComboBox1_OnChange ('');
end;

procedure Form2_ComboBox1_OnChange (Sender: string);
begin
Form2.Edit1.Text := SQLExecute ('SELECT deposit FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) );
Form2.ComboBox11.dbItemID := SQLExecute ('SELECT IFNULL(id_nik, -1)FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) );
//значение для CheckBox
if  SQLExecute ('SELECT Real FROM Centre WHERE id = ' + IntToStr(Form2.ComboBox1.dbItemID) ) = '1' then
Form2.CheckBox5:= True else Form2.CheckBox5:= False;
end;

Edit1 и ComboBox11 работает!........ CheckBox5 не могу заставить работать...
Выдаёт ошибочку:
Incompatible types:'TdbCheckBox',Boolean' at 12:23

Вопрос: как устранить ошибочку?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите с скриптом...

Form2.CheckBox5.Checked := True else Form2.CheckBox5.Checked:= False;
Dmitry.
  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

УРА! Заработало..........!!!

С Уважением и Благодарностью Роман!!!

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Это опять я ....
Вот....

procedure Form2_Edit3_OnChange (Sender: string);
var
   i,c: integer;
begin
     c := Form2.Edit3.Count - 1;
     for i := 0 to c do
     begin

         if Form2.Edit3.Cells[i] = 'Real' then Form3.TableGrid1.Cell[i].Color := clSilver
         else Form2.Edit3.Cell[i].Color := clYellow;

     end;
end;

методом научного тыка-не помогло

1)Подскажите пожайлуста.....
2)Возможно ли на форме делать GroupBox или Panel не видимыми используя CheckBox (если Да-то как?)

                                                                                             С Уважением и Благодарностью Роман!!!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите с скриптом...

1. Компонент Edit3 это текстовое поле или грид?
судя по названию это текстовое поле, но обращаетесь к нему в коде как к гриду.


2.

procedure Form1_CheckBox1_OnClick (Sender: string);
begin
   Form1.GroupBox1.Visible := Form1.CheckBox1.Checked;
end;
Dmitry.

65 Reply by Роман (edited by Роман 2015-11-13 07:44:57)

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Доброго дня!
Как из CheckBox превратить в TableGrid "Да" и "Нет" в другие слова - это "мы" могём...(через вычисл. поле)
Вопрос:
подскажите  как на форме из CheckBox извлечь в Edit  "Да" и "Нет" или "Не знаю" (БЕЗ вычисл. поле)?
рис. прилагается...

                                                                                                С Уважением и Благодарностью Роман!!!

Post's attachments

Attachment icon пример 1.png 12.06 kb, 334 downloads since 2015-11-13 

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

На выше стоящий пост... я имел ввиду для новой записи в грид...
(умысел такой ...обычно мы подписываем в верху над CheckBox  "ДА/НЕТ"...
а так мы в едите видим за что отвечает CheckBox...
если это возможно конечно?

                                             С Уважением и Благодарностью Роман!!!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите с скриптом...

Роман
К сожалению я не могу так часто отвечать на ваши вопросы.

Dmitry.

68 Reply by Роман (edited by Роман 2015-11-26 02:02:17)

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Доброго времени суток Дмитрий! 

procedure Form1_CheckBox1_OnClick(Sender: string);
begin
      if Form1.CheckBox1.Checked=True  or     Form1.CheckBox1.Checked= False
      then Form1.CheckBox1.Caption := 'sell'
      else  Form1.CheckBox1.Caption := 'buy'
end;

Подскажите как сюда добавить :

Form1.CheckBox1.Checked=Grayed  ;
 Form1.CheckBox1.Caption := 'пусто'

С Уважением и Благодарностью Роман!!!

  • Registered: 2015-04-04
  • Posts: 262

Re: Подскажите с скриптом...

прикрепите проект

70 Reply by Роман (edited by Роман 2015-11-26 04:40:45)

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Хорошего настроения...pha1984
прикрепил......

Post's attachments

Attachment icon CheckBox.zip 335.61 kb, 507 downloads since 2015-11-26 

71 Reply by pha1984 (edited by pha1984 2015-11-26 08:30:49)

  • Registered: 2015-04-04
  • Posts: 262

Re: Подскажите с скриптом...

Роман wrote:

Хорошего настроения...pha1984
прикрепил......

поправил проект, посмотрите

Post's attachments

Attachment icon checkbox_fixed.rar 293.66 kb, 512 downloads since 2015-11-26 

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

О..много Уважаемый pha1984!
Спасибочки Вам огромное....за отклик....именно этого я и хотел....

С Уважением и Благодарностью Роман!!!

  • Registered: 2015-10-19
  • Posts: 217

Re: Подскажите с скриптом...

Доброго дня!
Дмитрий не подскажите скриптиком:
1. клик на Button1 = клику на первую строчку в TableGrid1?
2. есть ли возможность скрыть в TableGrid1 Scroll с право и снизу?

                               С Уважением и Благодарностью Роман!!!

  • Registered: 2015-04-04
  • Posts: 262

Re: Подскажите с скриптом...

прикрепите проект

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите с скриптом...

Роман wrote:

Доброго дня!
Дмитрий не подскажите скриптиком:
1. клик на Button1 = клику на первую строчку в TableGrid1?
2. есть ли возможность скрыть в TableGrid1 Scroll с право и снизу?

                               С Уважением и Благодарностью Роман!!!

1. 

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.GridEmployees.RowCount > 0 then Form1.GridEmployees.SelectedRow := 0;
end;

2.
Нет.

Dmitry.