Re: Подскажите с скриптом...
Может повесить на кнопку сохранения записи такую функцию как обновление грида?
например: Form1.REZULTAT.dbUpdate; // Update TableGrid
My Visual Database → Russian → Подскажите с скриптом...
Может повесить на кнопку сохранения записи такую функцию как обновление грида?
например: Form1.REZULTAT.dbUpdate; // Update TableGrid
Может повесить на кнопку сохранения записи такую функцию как обновление грида?
например: Form1.REZULTAT.dbUpdate; // Update TableGrid
написал скрипт так:
procedure Form6_OnClose (Sender: string; Action: string);
begin
Form1.TableGrid1.dbUpdate;
end;
т.е. после закрытия Form6 обновить значения в гриде...(обновить получилось)
кликаем два раза на строчку в гриде показывает запись которую только что сделали....
А НАДО открыть Form6 для новой записи!
может надо обновить саму форму?...как это сделать?
Доброго времени суток Дмитрий! версия 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;
Дмитрий...если правильно дайте знать?
С Уважением и Благодарностью Роман!!!
К сожалению я не смог понять вашего последнего вопроса.
Доброго дня!
Подскажите добрые люди....
как в TableGrid заголовки колонок выровнять по центру?
С Уважением и Благодарностью Роман!!!
Доброго дня!
Подскажите добрые люди....
как в 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;
Благодарю!
Доброго времени суток Дмитрий!
Есть скрипт...взят из примера на форуме...
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 не могу заставить работать...
Вопрос: Где ошибка?
С Уважением и Благодарностью Роман!!!
для 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;
Скрипт:
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
Вопрос: как устранить ошибочку?
Form2.CheckBox5.Checked := True else Form2.CheckBox5.Checked:= False;
УРА! Заработало..........!!!
С Уважением и Благодарностью Роман!!!
Это опять я ....
Вот....
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 (если Да-то как?)
С Уважением и Благодарностью Роман!!!
1. Компонент Edit3 это текстовое поле или грид?
судя по названию это текстовое поле, но обращаетесь к нему в коде как к гриду.
2.
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
Form1.GroupBox1.Visible := Form1.CheckBox1.Checked;
end;
Доброго дня!
Как из CheckBox превратить в TableGrid "Да" и "Нет" в другие слова - это "мы" могём...(через вычисл. поле)
Вопрос:
подскажите как на форме из CheckBox извлечь в Edit "Да" и "Нет" или "Не знаю" (БЕЗ вычисл. поле)?
рис. прилагается...
С Уважением и Благодарностью Роман!!!
На выше стоящий пост... я имел ввиду для новой записи в грид...
(умысел такой ...обычно мы подписываем в верху над CheckBox "ДА/НЕТ"...
а так мы в едите видим за что отвечает CheckBox...
если это возможно конечно?
С Уважением и Благодарностью Роман!!!
Роман
К сожалению я не могу так часто отвечать на ваши вопросы.
Доброго времени суток Дмитрий!
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 := 'пусто'
С Уважением и Благодарностью Роман!!!
прикрепите проект
Хорошего настроения...pha1984
прикрепил......
Хорошего настроения...pha1984
прикрепил......
поправил проект, посмотрите
О..много Уважаемый pha1984!
Спасибочки Вам огромное....за отклик....именно этого я и хотел....
С Уважением и Благодарностью Роман!!!
Доброго дня!
Дмитрий не подскажите скриптиком:
1. клик на Button1 = клику на первую строчку в TableGrid1?
2. есть ли возможность скрыть в TableGrid1 Scroll с право и снизу?
С Уважением и Благодарностью Роман!!!
прикрепите проект
Доброго дня!
Дмитрий не подскажите скриптиком:
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.
Нет.
My Visual Database → Russian → Подскажите с скриптом...
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi