Re: Нужна помощь...
Нет, MVD не может знать, когда закрывается сторонняя программа, в данном случае блокнот.
My Visual Database → Russian → Нужна помощь...
Нет, MVD не может знать, когда закрывается сторонняя программа, в данном случае блокнот.
ок!!!
СПАСИБОЧКИ...!!!
Доброго времени суток!!!
Ребята подскажите....в МВД возможно ????
- подключаем свой мобильный телефон к ПК.
-Поступает звонок на мобильный телефон и мы номер сохраняем в своей программе МВД ???
Доброго времени суток!!!
Ребята подскажите....в МВД возможно ????
- подключаем свой мобильный телефон к ПК.
-Поступает звонок на мобильный телефон и мы номер сохраняем в своей программе МВД ???
А что конкретно требуется? Какая глобальная задача?
Конкретно требуется....когда нам звонят на мобильный телефон (андроид) мы видим номер звонящего клиента
-можно в ручную записать его в карточку клиента ...самый простой вариант
-!!!- А если вариант подключив мобильник к ПК получать номер атоматически ???
RZ-007 wrote:Доброго времени суток!!!
Ребята подскажите....в МВД возможно ????
- подключаем свой мобильный телефон к ПК.
-Поступает звонок на мобильный телефон и мы номер сохраняем в своей программе МВД ???А что конкретно требуется? Какая глобальная задача?
vovka3003, вот можешь ты интригу создать ))))
По моим представлениям без применения сторонних программ это невозможно. А с применением.... сложность применения превзойдет сложность MVDB на порядок
vovka3003, вот можешь ты интригу создать )))
Я просто увидел "проблему XY" в вопросе, посему уточняю...
Всем привет. Подскажите можно ли создать условие на TableGrid. К примеру если при нажатии кнопки Search в TableGrid1 ничего не найдено то Button1.Visible :=True; если в TableGrid1 при нажатии кнопки нашлись записи то Button1.Visible :=False; ?
Всем привет. Подскажите можно ли создать условие на TableGrid. К примеру если при нажатии кнопки Search в TableGrid1 ничего не найдено то Button1.Visible :=True; если в TableGrid1 при нажатии кнопки нашлись записи то Button1.Visible :=False; ?
Мне просто нужна проверка если пользователь уже проголосовал то кнопка не работает если еще не голосовал то работает. (В таблицу при голосовании записывается значение 1 или 2. Вот как это реализовать ? Я пробовал вот так но не выходит
procedure voting_TableGridgolos_OnChange (Sender: TObject);
var
i, cR : integer;
begin
cR := voting.TableGridgolos.RowCount-1;
for i := 0 to cR do
begin
If (voting.TableGridgolos.Cells[2,i] ='1') then voting.Button2.Enabled := False;
If (voting.TableGridgolos.Cells[2,i] ='2') then voting.Button2.Enabled := False;
If (voting.TableGridgolos.Cells[2,i] ='') then voting.Button2.Enabled := True;
end;
end;
senseyesenseye1983 wrote:Всем привет. Подскажите можно ли создать условие на TableGrid. К примеру если при нажатии кнопки Search в TableGrid1 ничего не найдено то Button1.Visible :=True; если в TableGrid1 при нажатии кнопки нашлись записи то Button1.Visible :=False; ?
Мне просто нужна проверка если пользователь уже проголосовал то кнопка не работает если еще не голосовал то работает. (В таблицу при голосовании записывается значение 1 или 2. Вот как это реализовать ? Я пробовал вот так но не выходит
procedure voting_TableGridgolos_OnChange (Sender: TObject);
var
i, cR : integer;
begin
cR := voting.TableGridgolos.RowCount-1;for i := 0 to cR do
begin
If (voting.TableGridgolos.Cells[2,i] ='1') then voting.Button2.Enabled := False;
If (voting.TableGridgolos.Cells[2,i] ='2') then voting.Button2.Enabled := False;
If (voting.TableGridgolos.Cells[2,i] ='') then voting.Button2.Enabled := True;
end;
end;
я думаю, что у Вас все работает, проблема в счетчике, он просто переберает все строки...
procedure voting_TableGridgolos_OnChange (Sender: TObject);
begin
If (voting.TableGridgolos.Cells[2,voting.TableGridgolos.SelectedRow ] ='1') then voting.Button2.Enabled := False;
If (voting.TableGridgolos.Cells[2,voting.TableGridgolos.SelectedRow ] ='2') then voting.Button2.Enabled := False;
If (voting.TableGridgolos.Cells[2,voting.TableGridgolos.SelectedRow ] ='') then voting.Button2.Enabled := True;
end;
и измените событие с OnChange на OnCellClick
senseyesenseye1983 wrote:senseyesenseye1983 wrote:Всем привет. Подскажите можно ли создать условие на TableGrid. К примеру если при нажатии кнопки Search в TableGrid1 ничего не найдено то Button1.Visible :=True; если в TableGrid1 при нажатии кнопки нашлись записи то Button1.Visible :=False; ?
Мне просто нужна проверка если пользователь уже проголосовал то кнопка не работает если еще не голосовал то работает. (В таблицу при голосовании записывается значение 1 или 2. Вот как это реализовать ? Я пробовал вот так но не выходит
procedure voting_TableGridgolos_OnChange (Sender: TObject);
var
i, cR : integer;
begin
cR := voting.TableGridgolos.RowCount-1;for i := 0 to cR do
begin
If (voting.TableGridgolos.Cells[2,i] ='1') then voting.Button2.Enabled := False;
If (voting.TableGridgolos.Cells[2,i] ='2') then voting.Button2.Enabled := False;
If (voting.TableGridgolos.Cells[2,i] ='') then voting.Button2.Enabled := True;
end;
end;я думаю, что у Вас все работает, проблема в счетчике, он просто переберает все строки...
procedure voting_TableGridgolos_OnChange (Sender: TObject); begin If (voting.TableGridgolos.Cells[2,voting.TableGridgolos.SelectedRow ] ='1') then voting.Button2.Enabled := False; If (voting.TableGridgolos.Cells[2,voting.TableGridgolos.SelectedRow ] ='2') then voting.Button2.Enabled := False; If (voting.TableGridgolos.Cells[2,voting.TableGridgolos.SelectedRow ] ='') then voting.Button2.Enabled := True; end;
и измените событие с OnChange на OnCellClick
Спасибо за совет. Попробовал ну работает все хорошо. Единственное заметил что когда при поиске выдает пустую таблицу ( если нет вообще записей) то когда срабатывает скрипт :
procedure voting_OnShow (Sender: TObject; Action: string);
begin
voting_TableGridgolos_OnCellClick(voting.TableGridgolos,0,0);
end;
procedure voting_TableGridgolos_OnChange (Sender: TObject);
begin
voting.TableGridgolos.SelectedRow:=0;
voting.TableGridgolos.SetFocus;
voting_TableGridgolos_OnCellClick(voting.TableGridgolos,0,0);
end;
Происходит ошибка так как таблица пустая и он не может кликнуть Есть решения?
end;
Спасибо за совет. Попробовал ну работает когда нажимаешь на таблицу, у которрой в поиске нашлось что-лио. Если не нашлось и таблица пустая то все равно кнопка недоступна....
а Вы колонки точно правильно посчитали? начинается с 0
senseyesenseye1983 wrote:Спасибо за совет. Попробовал ну работает когда нажимаешь на таблицу, у которрой в поиске нашлось что-лио. Если не нашлось и таблица пустая то все равно кнопка недоступна....
а Вы колонки точно правильно посчитали? начинается с 0
Да все ок извеняюсь. только что получилось все считает но выше описал единственную проблему
Дело в том что по этой таблице не будут нажимать надо как то програмно щелкнуть строчку я это сделал выше скриптом но когда пустую таблицу ищет он материться
но когда пустую таблицу ищет он материться
if (voting.TableGridgolos.RowCount >= 0 )
Владимир спасибо буду пробовать. Это в услувие таблицы вклеить?
Владимир спасибо буду пробовать. Это в услувие таблицы вклеить?
ок, будут проблемы крепите проект, так будет проще
Вот посмотрите пожалуйста. Я хотел бы чтобы пользователи голосовали, но при этом у каждого была всего одна попытка. Не получаеться с кнопками бороться
Я пошел немного другим путем сделав запрос к таблице:
vote.Edit2.Text := sqlexecute('select id from terminal_films_golos where lastname ='+frmLogin.edUser.sqlvalue);
Вроде заработало... Но все же как то голосование получается каким то странным Вам так не кажется ?
А вообще шкалу % проголосовавших реально сюда прицепить ? Так то я не встречал тут проектов про голосование может кому полезно будет.
Вот посмотрите пожалуйста. Я хотел бы чтобы пользователи голосовали, но при этом у каждого была всего одна попытка. Не получаеться с кнопками бороться
Я пошел немного другим путем сделав запрос к таблице:
vote.Edit2.Text := sqlexecute('select id from terminal_films_golos where lastname ='+frmLogin.edUser.sqlvalue);
Вроде заработало... Но все же как то голосование получается каким то странным Вам так не кажется ?
А вообще шкалу % проголосовавших реально сюда прицепить ? Так то я не встречал тут проектов про голосование может кому полезно будет.
если у Вас идет голосование за фильмы, то их нужно поделить не два варианта и тогда не может быть, что бы пользователь голосовал сразу за два фильма..
и еще, не понятьно как у Вас программа понимает, что этот пользователь уже голосовал?
senseyesenseye1983 wrote:Вот посмотрите пожалуйста. Я хотел бы чтобы пользователи голосовали, но при этом у каждого была всего одна попытка. Не получаеться с кнопками бороться
Я пошел немного другим путем сделав запрос к таблице:
vote.Edit2.Text := sqlexecute('select id from terminal_films_golos where lastname ='+frmLogin.edUser.sqlvalue);
Вроде заработало... Но все же как то голосование получается каким то странным Вам так не кажется ?
А вообще шкалу % проголосовавших реально сюда прицепить ? Так то я не встречал тут проектов про голосование может кому полезно будет.если у Вас идет голосование за фильмы, то их нужно поделить не два варианта и тогда не может быть, что бы пользователь голосовал сразу за два фильма..
и еще, не понятьно как у Вас программа понимает, что этот пользователь уже голосовал?
Да все спасибо, благодоря Вашим советом разобрался и сделал привязку к пользователю.
Подскажи есть ли в MVD возможность сделать процентный результат о ходе голосования ?
Владимир не подскажешь как сделать условие на проверку Edit =
Есть Combobox куда запросом летит название фильма - из combobox я передаю в Edit5 название фильма и если в Edit 5 - есть какое то любое название (слово) то Label 3 =False; если Edit5 пустой - то Label5=True;
Пробовал в событии Edit такое пока без результатов
procedure voting_Edit5_OnChange (Sender: TObject);
begin
if voting.Edit5.Text = '' then voting.Label3.Visible :=False;
if voting.Edit5.Text = '*' then voting.Label7.Visible :=True;
end;
procedure voting_Edit5_OnChange (Sender: TObject);
begin
if voting.Edit5.Text = '' then voting.Label3.Visible :=False;
if voting.Edit5.Text = '*' then voting.Label7.Visible :=True;
end;
попробуйте так
procedure Form1_Edit1_OnChange (Sender: TObject);
begin
if (Form1.Edit1.Text <> '' ) then Form1.Label3.Visible := False else Form1.Label3.Visible := True;
end;
Все работает. Спасибо!!!
<> ' ' - это означает что в Edit - пусто ? Да?
а как указать что что либо есть ?
И вообще может сделать проверку по БД ? Я работаю в MySQL и может как то так:
if Table1.FieldValues['...'] <> null then
begin
...
end;
Все работает. Спасибо!!!
<> ' ' - это означает что в Edit - пусто ? Да?
а как указать что что либо есть ?
И вообще может сделать проверку по БД ? Я работаю в MySQL и может как то так:
if Table1.FieldValues['...'] <> null then
begin
...
end;
= ровно
<> не ровно
<> '' - не пусто
<> ' ' - нет пробела, если в Edit будет более чем пробел, или вообще ничего
= '' - пусто
Огонь Спасибо большое все получилось!
Я наверное уже всех так напрягаю, искренне извиняюсь за настырность, у меня есть небольшой вопрос по поводу эмуляции нажатия кнопки, а именно интересует как программно нажать на ПРОБЕЛ(SPACE)?
procedure SimulateKeyDown(Key: byte);
begin
keybd_event(Key, 0, 0, 0);
end;
Вот на ум что приходит но как тут это реализовать ? Может кто знает ?
My Visual Database → Russian → Нужна помощь...
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi