здравствуйте помогите пожалуйста скрипт
procedure NEON_OnClose (Sender: string; Action: string);
begin
Form1.Close;
end;
мне не помог Form1 остается скрытым что у меня тут не правильно ?
var
sUser: string = '';
Timer: TTimer;
procedure NEON_OnClose (Sender: string; Action: string);
begin
Form1.Close;
end;
// показать/скрыть пароль
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
if Form1.CheckBox1.Checked then Form1.Edit2.PasswordChar := #0
else Form1.Edit2.PasswordChar := '*';
end;
procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
s: string;
begin
// SQL запрос логина и пароля пользователя
s := VarToStr( SQLExecute('SELECT count(id) FROM users WHERE (login = ''' + Form1.Edit1.Text + ''') AND (password = ''' + Form1.Edit2.Text + ''');') );
// если логин и пароль найдены
if (s <> '0') and (s<>'') then
begin
sUser := Form1.Edit1.Text; // запоминание имени пользователя
// проверка прав администратора
s := VarToStr( SQLExecute('SELECT administrator FROM users WHERE (login = ''' + sUser + ''');') );
if s='0' then NEON.Button1.Enabled := False; // если пользователь не обладает правами администратора, отключить кнопку
// проверка прав администратора
s := VarToStr( SQLExecute('SELECT read FROM users WHERE (login = ''' + sUser + ''');') );
if s='0' then NEON.Button7.Enabled := False; // если пользователь не обладает правами администратора, отключить кнопку
// проверка прав администратора
s := VarToStr( SQLExecute('SELECT remove FROM users WHERE (login = ''' + sUser + ''');') );
if s='0' then NEON.Button6.Enabled := False; // если пользователь не обладает правами администратора, отключить кнопку
// проверка прав администратора
s := VarToStr( SQLExecute('SELECT write FROM users WHERE (login = ''' + sUser + ''');') );
if s='0' then NEON.Button5.Enabled := False; // если пользователь не обладает правами администратора, отключить кнопку
Form1.Hide; // закрытие формы
NEON.Show;
NEON.bSQLSearch.Click;
end else MessageDlg('неправильный логин или пароль ', mtError, mbOk, 0); // сообщение, если пароль неверный
end;
begin
// Первоначальная проверка, является ли пользователь администратором базы данных
// если нет, то создается пользователь с логином и паролем администратора 'admin'
if VarToStr( SQLExecute('SELECT count(id) FROM users WHERE administrator=1;') ) = '0' then
begin
SQLExecute('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES ("admin", "admin", 1, 1, 1, 1, 1);');
Form1.Edit1.Text := 'admin';
Form1.Edit2.Text := 'admin';
end;
Form1.Edit2.PasswordChar := '*';
end.