Хм... Странная вещь... Смена паролей. Не работает в программе тоже. Непонятно почему в изначально разработанной програме. Вся фома выглядит так (см. рисунок)
В программе так же есть команды. (вставлю наиболее важные сюда)
Команда2
SELECT tableparol
IF thisform.text1.Value = thisform.text2.Value
LOCA for parol=thisform.text1.value
IF FOUND()
MESSAGEBOX('Пароль введен правильно!')
thisform.text1.Value =''
thisform.text2.Value =''
thisform.label1.Caption = 'Введите новый пароль'
thisform.label2.Caption = 'Потвердите новый пароль'
thisform.command2.Visible = .F.
thisform.command3.Visible = .T.
thisform.text1.SetFocus
ELSE
MESSAGEBOX('Не правильно введен старый пароль! Попробуйте еще раз.')
ENDIF
ELSE
MESSAGEBOX('Не правильно введен старый пароль! Попробуйте еще раз.')
endif

Команда 3
USE "C:\Documents and Settings\Kseniya\Мои документы\АрхивПГСХА\helloform.scx"
IF thisform.text1.Value = thisform.text2.Value
DELETE ALL
pack
APPEND BLANK
replace parol WITH ALLTRIM(thisform.text1.Value)
MESSAGEBOX('Пароль изменен')
thisform.Visible = .F.
ELSE
MESSAGEBOX('Пароль потвержден не правильно')
Endif

Свойство Show самой формы
LPARAMETERS nStyle
thisform.label1.Caption = 'Введите старый пароль:'
thisform.label2.Caption = 'Потвердите старый пароль:'
thisform.text1.value = ''
thisform.text2.value = ''
thisform.Command2.Caption = 'Проверить пароль'
thisform.Text1.SetFocus
thisform.command2.Visible = .T.
thisform.command3.Visible = .F.

Когда выполняется всё это дело всё идёт нормально до тех пор пока не вводишь новый пароль. В табличке tableparol стоит значение самого пароля в поле parol. Это поле не индексированное. То есть считывается от оттуда нормально. Вводдишь пароль, заходишь в базу, кликаешь смена пароля, подтверждаешь пароль, подтверждение проходит, кликаешь новый пароль, подтверждаешь его и выскакивает "Variable 'PAROL' is not found" . Debugger ссылается на эту строчку команды 3 replace parol WITH ALLTRIM(thisform.text1.Value) . Что нужно сделать чтобы устранить эту ошибку? ;(

Гыг... Теперь прописалось "Alias 'TABLEPAROL' is not found...
Ну воть. А как создаются псевдонимы таблиц я не знаю. Как из этой ситуации выйти?

Не выходит. Одно и то же, *Alias 'TABLEPAROL' is not found*... (перепробовала то, что мне советовали)
Я сомневаюсь, может быть я не туда поставила

USE "C:\Documents and Settings\Kseniya\Мои документы\АрхивПГСХА\tableparol.dbf" in 0 (кстати, что такое in 0) ?

Я впервые с паролями работаю. И...кстати, это моя первая база...))

Куда нужно вписывать этот Use? В отдельную команду или в ту же? Или куда-то в др. место?

Всё! Получилось. я вписала USE под первым USEом. Теперь всё нормуль))))
ПАААСИИИБАААА всем огроное) ^________^

Подскажите плиз, что сделать чтобы этот пароль менялся и на другом компьютере. Там же пути к файлам другие будут. Работать смена пароля перестанет.

Тем более даже у меня пересатёт работать именно смена паролей когда перемещаю базу в др. катлог... Что сделать с этим?

Я просто...хм...такой ламер в командах и программах....((( Куда эту комманду нужно вставить, после чего и с какими параметрами?

С паролями я разобралась вроде бы. Если программку переместить в другй каталог то в приложении начинаются глюки и выдаётся "должна быть ссылка на переменную" и поиск не выполняется. Вохможно это из-за отсутствия путей в главной программе. То есть это наверное нужно вставлять именно туда. Но... я пыталась вставить - выдаются ошибки.

Главная программа проекта выглядит так.



DO FORM parol1.scx
SET PATH TO DATA;INCLUDE;FORMS;HELP;LIBS;MENUS;PROGS;REPORTS
*_screen.WindowState= 2
*_screen.BackColor=42525
*_Screen.LockScreen=.F.
_Screen.Visible =.f.
*_screen.caption = "Пермская Государственная Академия им.Прянишникова"
read events