Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 3 of 8)
Доброго времени суток!!!
Возможно ли в процедуру вставить другую процедуру???
что то вроде этого...
if Action = 'NewRecord' then
procedure Form2_Edit26_OnChange (Sender: string);
begin
Form2.Edit25.Text :=Form2.Edit26.Text;
end;
else
Form2.Edit25.Text := SQLExecute ('SELECT risk FROM base WHERE id = ' + IntToStr(Form1.TableGrid1.dbItemID));
С Уважением и Благодарностью Роман!!!
Приветствую Raspr!!!
умысел такой....
на ComboBox1 очень много всего и так назначено....(поиск,дубликат,сохранения, расчёт...и т.д....)
в виду моего " проффесионализма " надо еще чуток кой-чего добавить....
от этого и возник этот вопрос....ЭТО ВОЗМОЖНО???
С Уважением и Благодарностью Роман!!!
Доброго времени суток!!!
Друзья помогите..."кто еще не празднует..." сделать запись из ComboBox2(при этом не трогая его!!!)
используя только ComboBox1 ..........вторые сутки колдую - всё безрезультатно........
тест-проект прилагается...
С Уважением и Благодарностью Роман!!!
С Вашего разрешения вышлю на почту???
Доброго времени суток!!!
Делаю SQL ЗАПРОС... на поиск и отображении пустых записей в гриде...
SELECT id_Centre,spreds FROM base WHERE spreds is NULL
Выдает ошибку ...о чем в ней речь???
Доброго времени суток!!!
пост №26...
как правильно записать скрипт:
Form2.Edit7.Text := SQLExecute ('SELECT spred FROM Spred WHERE Spred.id_Centre='+ IntToStr(Form2.ComboBox17.dbItemID)) AND ('SELECT spred FROM Spred WHERE Spred.id_Currency='+ IntToStr(Form2.ComboBox18.dbItemID));
С Уважением и Благодарностью Роман!!!
К сожалению не могу понять, что с чем нужно соединять?
Form2.Edit1.Text := SQLExecute ('SELECT spred FROM Spred WHERE id = ' + IntToStr(Form2.ComboBox17.dbItemID) );
+
Form2.Edit1.Text := SQLExecute ('SELECT spred FROM Spred WHERE id = ' + IntToStr(Form2.ComboBox18.dbItemID) );
Все очень простенько...объединить два скрипта в один......как????????????
исправьте строку
Form1_Edit2_OnChange();
на
Form1_Edit2_OnChange(");
иначе ваш проект выдает ошибку
ИСПРАВЛЯЮ ВСЕ СИНЕЕТ!!!???
Всем хорошего настроения...
Дмитрий помогите соединить:
Form2.Edit27.Text := SQLExecute ('SELECT spred FROM Spred WHERE id = ' + IntToStr(Form2.ComboBox17.dbItemID) );
+
Form2.Edit27.Text := SQLExecute ('SELECT spred FROM Spred WHERE id = ' + IntToStr(Form2.ComboBox18.dbItemID) );
P/S:в таблице было вычислительное поле(рабочее)
(SELECT (Spred.spred) FROM Spred WHERE Spred.id_Centre=base.id_Centre AND Spred.id_Currency=base.id_Currency)
нужно раздобыть значения в Edit27...
С Уважением Благодарностью Роман!!!
Спасибо Вам за отклик Жан.brezhonek
НО теперь я вообще ничего не понял...
С Уважением Благодарностью Роман!!!
Дмитрий прошу прощения...
не получается...взгляните пожалуйста???
код покажите этого события
вот
procedure Form2_Edit6_OnChange (Sender: string); //расчёт прибыли в пунктах
begin
CalculateTotal;
end;
или вот
procedure Form2_Edit2_OnChange (Sender: string);
var
i: integer;
begin
i := Pos(DecimalSeparator, Form2.Edit2.Text);
if i > 0 then i := Length(Form2.Edit2.Text) - i;
Form2.Edit21.Value := Form2.Edit2.Value;
while i > 0 do
begin
Form2.Edit21.Value := Form2.Edit21.Value*10;
Dec(i);
end;
end;
не совсем понял...
это куда вставить или куда дописать???
Да это РАБОТАЕТ....
НО...
Создав событие например Form1_Edit4_OnChange, зайдите на вкладку "События" для других подобных компонентов и вставьте название этого события напротив строки OnChange
Если у этих Edit уже есть свое событие,
как дописать к нему новое???
Спасибочки.....
Дмитрий вот мой скрипт он РАБОТАЕТ!!!
procedure Form1_OnShow (Sender: string; Action: string);
begin
Form1.Button5.Enabled := False;
end;
procedure Form1_Edit4_OnChange (Sender: string);
begin
if (Form1.Edit2.Text='') or
(Form1.Edit3.Text='') or
(Form1.Edit4.Text='') then
Form1.Button5.Enabled := False
else Form1.Button5.Enabled := True;
end;
procedure Form1_Edit3_OnChange (Sender: string);
begin
if (Form1.Edit2.Text='') or
(Form1.Edit3.Text='') or
(Form1.Edit4.Text='') then
Form1.Button5.Enabled := False
else Form1.Button5.Enabled := True;
end;
procedure Form1_Edit2_OnChange (Sender: string);
begin
if (Form1.Edit2.Text='') or
(Form1.Edit3.Text='') or
(Form1.Edit4.Text='') then
Form1.Button5.Enabled := False
else Form1.Button5.Enabled := True;
end;
ВОПРОС: С профессиональной точки...его можно как то проще или короче написать???
У меня этих .Edit всего ни чего.... 16-штук!!!
С Уважением Благодарностью Роман!!!
Друзья .....
как автоматически подставить в маску для Edit1(00.00.0000 00:00:00;0;_) дату и время на текущий момент
при открытии формы?????
Спасибо Вам распр!!!
РАБОТАЕТ!!!
Друзья подскажите....
как скриптом сделать:
если в Edit7 вели меньше или больше четырнадцати цифр,
тогда по выходу из него будет он будет пустой (( Form2.Edit7.Text:= ' '))
С Уважением Благодарностью Роман!!!
Прикольненько.....
Сутки мучился, а истина рядом!!!
С Уважением Благодарностью Роман!!!
Ok...
procedure Form2_Button8_OnClick (Sender: string; var Cancel: boolean);
......................проверка дубликата..........................................................................
if MessageDlg( 'дубликат есть... ', mtInformation, mbYes+mbNo, 0) = mrYes then
begin
// действия если Да (удаляем)
end else
begin
// действия если Нет (не удаляем)
end;
Вопрос: если дубликата НЕТ...ТОГДА НАДО СДЕЛАТЬ Form2.Button1.Click;
С Уважением Благодарностью Роман!!!
Доброго времени суток!
Есть скрипт...он РАБОЧИЙ...
procedure Form2_Button8_OnClick (Sender: string; var Cancel: boolean);
var
sFields, sValues: string;
begin
sFields := 'tickets;dateone;id_Centre';
sValues := Form2.Edit4.sqlValue+';'+Form2.DateTimePicker5.sqlDate+';'+Form2.ComboBox1.sqlValue;
if CheckDublicates(Form2.dbAction, 'base', sFields, sValues, Form2.Button8.dbGeneralTableId) then
begin
if MessageDlg('Мое сообщение', mtInformation, mbYes+mbNo, 0) = mrYes
then
begin
Form2.Button9.Click; //Button9=удалить запись
Form2.Button10.Click; //очищает данные в Editах...
Form2.CheckBox7.Checked := False; //.панель статистики НЕ ВИДИМА!
Cancel := True;
end else
begin
Form2.CheckBox7.Checked := True;
Cancel := True;
end;
end;
end;
Вопрос: куда вписать новое действие, если "Мое сообщение" С Да и Нет не появилось
К примеру: Form2.Button1.Click;
С Уважением Благодарностью Роман!!!
Доброго времени суток!!!
Подскажите как запретить ввод в едит более пяти значений...
т.е. пять значений вели, при попытки вести шестое системная музыка пик-пик...
С Уважением и Благодарностью Роман!!!
Друзья!!!!
подскажите как например при открытии формы (скриптом)...
курсор мигал в Edit1????
Posts found: 51 to 75 of 199