Скачать: CL | DM;

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 "&#196;&#235;&#255; &#253;&#242;&#238;&#227;&#238; &#239;&#238;&#235;&#255; &#227;&#240;&#243;&#239;&#239;&#238;&#226;&#251;&#229; &#238;&#239;&#229;&#240;&#224;&#246;&#232;&#232; &#194;&#224;&#236; &#231;&#224;&#239;&#240;&#229;&#249;&#229;&#237;&#251;.", vbCritical, "&#207;&#240;&#229;&#228;&#243;&#239;&#240;&#229;&#230;&#228;&#229;&#237;&#232;& #229;!"
Exit Sub
End If

fvalue = Screen.PreviousControl.Value
If fvalue = "" Then
fvalue = "See!"
End If
Response = MsgBox(("&#194;&#251; &#243;&#226;&#229;&#240;&#229;&#237;&#251;, &#247;&#242;&#238; &#245;&#238;&#242;&#232;&#242;&#229; &#226;&#238; &#226;&#241;&#229;&#233; &#226;&#251;&#225;&#238;&#240;&#234;&#229; &#226; &#239;&#238;&#235;&#229; " + """" + fname + """" + " &#226;&#239;&#232;&#241;&#224;&#242;&#252; &#237;&#238;&#226;&#238;&#229; &#231;&#237;&#224;&#247;&#229;&#237;&#232;&#229; ?"), vbYesNo, "&#194;&#237;&#232;&#236;&#224;&#237;&#232;&#229;! &#202;&#240;&#224;&#233;&#237;&#229; &#238;&#239;&#224;&#241;&#237;&#224;&#255; &#238;&#239;&#229;&#240;&#224;&#246;&#232;&#255;!")
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c