Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

VBA => Delphi

Andrewtitoff © (2009-11-20 15:27:00)
Есть код 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;

andrewtitoff (2009-11-30 18:53:00) [1]
Удалено модератором
Примечание: Создание пустых сообщений

Andrewtitoff (2009-11-20 15:50:00) [2]
А посути это групповая замена, т.е. есть форма - где куча эдитов и комбовоксов где поля записи базы и кнопочка "групповая операция", перед открытием этой формы применяется некоторый фильтр и после изменения значения в комбобоксе или эдите при нажатии на эту кнопочку - во все отфильтрованные запись нужно вписать отредактированнное значение из комбобокса...

Andrewtitoff (2009-11-20 15:41:00) [3]
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

Cobalt (2009-11-20 15:37:00) [4]
Если ты скопируешь код в подобающей кодировке, будет более понятно.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »