Форум: "Начинающим";
Текущий архив: 2010.01.17;
Скачать: [xml.tar.bz2];
ВнизVBA => Delphi Найти похожие ветки
← →
Andrewtitoff © (2009-11-20 15:27) [0]Есть код VBA:
Private Sub cmdGroup_Click()
fname = Screen.PreviousControl.NAME
Response = InputBox("Äëÿ ýòîé îïåðàöèè íåîáõîäèì îñîáûé ïàðîëü", "Äîïîëíèòåëüíà& #255; ïðîâåðêà ïðàâ ïîëüçîâàòåëÿ")
If (Left(Response, 3) <> Left(REGNUM, 3)) Or (CheckGroup(fname) = False) Then
MsgBox "Äëÿ ýòîãî ïîëÿ ãðóïïîâûå îïåðàöèè Âàì çàïðåùåíû.", vbCritical, "Ïðåäóïðåæäåíè& #229;!"
Exit Sub
End If
fvalue = Screen.PreviousControl.Value
If fvalue = "" Then
fvalue = "See!"
End If
Response = MsgBox(("Âû óâåðåíû, ÷òî õîòèòå âî âñåé âûáîðêå â ïîëå " + """" + fname + """" + " âïèñàòü íîâîå çíà÷åíèå ?"), vbYesNo, "Âíèìàíèå! Êðàéíå îïàñíàÿ îïåðàöèÿ!")
If Response = vbYes Then
DoCmd.SetWarnings False
a = "update Lift set " + fname + "=" + fourone(CStr(fvalue)) + " WHERE " + myfilter
DoCmd.RunSQL a
DoCmd.SetWarnings True
DoCmd.RepaintObject
End If
End Sub
как переделать его в дельфи?, а именно непонятно:
fname = Screen.PreviousControl.NAME
fvalue = Screen.PreviousControl.Value
запрос я так понимаю можно сделать так:
ADOQuery1.SQL.Text:=a;
← →
Cobalt © (2009-11-20 15:37) [1]Если ты скопируешь код в подобающей кодировке, будет более понятно.
← →
Andrewtitoff © (2009-11-20 15:41) [2]Private Sub cmdGroup_Click()
fname = Screen.PreviousControl.NAME
Response = InputBox("Для этой операции необходим особый пароль", "Дополнительная проверка прав пользователя")
If (Left(Response, 3) <> Left(REGNUM, 3)) Or (CheckGroup(fname) = False) Then
MsgBox "Для этого поля групповые операции Вам запрещены.", vbCritical, "Предупреждение!"
Exit Sub
End If
fvalue = Screen.PreviousControl.Value
If fvalue = "" Then
fvalue = "See!"
End If
Response = MsgBox(("Вы уверены, что хотите во всей выборке в поле " + """" + fname + """" + " вписать новое значение ?"), vbYesNo, "Внимание! Крайне опасная операция!")
If Response = vbYes Then
DoCmd.SetWarnings False
a = "update Lift set " + fname + "=" + fourone(CStr(fvalue)) + " WHERE " + myfilter
DoCmd.RunSQL a
DoCmd.SetWarnings True
DoCmd.RepaintObject
End If
End Sub
← →
Andrewtitoff © (2009-11-20 15:50) [3]А посути это групповая замена, т.е. есть форма - где куча эдитов и комбовоксов где поля записи базы и кнопочка "групповая операция", перед открытием этой формы применяется некоторый фильтр и после изменения значения в комбобоксе или эдите при нажатии на эту кнопочку - во все отфильтрованные запись нужно вписать отредактированнное значение из комбобокса...
← →
andrewtitoff © (2009-11-30 18:53) [4]Удалено модератором
Примечание: Создание пустых сообщений
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2010.01.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c