Search options (Page 1 of 2)

procedure frmAdministrator_tblGeneralWork_OnChange (Sender: TObject);
begin

end;

procedure frmAdministrator_OnShow (Sender: TObject; Action: string);
var
 time:TTimer;
begin
  begin
    time:=TTimer.Create(frmAdministrator);
    time.Interval:=20000;
    time.Enabled:=True;
    time.OnTimer:=@updateGrid;
  end;

end;
procedure updateGrid ; 
  begin
    frmAdministrator.tblGeneralWork.dbUpdate;
  end;


procedure frmAutch_OnShow (Sender: TObject; Action: string);
  var
  sUSN: string = '1';

begin
  begin
    {$MySQL disable_connectdialog}
     Application.ProcessMessages;


     frmAutch.MySQLConnection.Server := 'IP';
     frmAutch.MySQLConnection.Port := 3306;
     frmAutch.MySQLConnection.Username := 'user_user';
     frmAutch.MySQLConnection.Password := 'Password';
     frmAutch.MySQLConnection.Database := 'db_user';

     try
         frmAutch.MySQLConnection.Connect;
       except
             //frmWait.Close;
             ShowMessage('Не могу подключиться к базе данных. Проверьте пожалйста интернет соединение!!!');
             frmAutch.Close;
     end;

     if frmAutch.MySQLConnection.Connected then
         begin
             UpdateDatabase(''); // to fill ComboBoxes
             //frmAutch.TableGrid1.dbUpdate; // if you have TableGrid on first form with option "Enable auto execution", you should call method dbUpdate manually
         end;
         //frmWait.Close;

end;
                                                       
    frmAutch.mniAbout.OnClick := @MenuClickAbout;


// ---------------------------- Первичные записи в базу данных  ------------------------------------


   // проверка наличия прав пользователей
  // если нет, то создать права пользователей
     //if SQLExecute('SELECT count(id) FROM userStatus;') = '0' then
     //begin
      //   SQLExecute('INSERT INTO userStatus (userStatusName) VALUES ("Директор");');
       //  SQLExecute('INSERT INTO userStatus (userStatusName) VALUES ("Офис1");');
      //   SQLExecute('INSERT INTO userStatus (userStatusName) VALUES ("Офис2");');
       //  SQLExecute('INSERT INTO userStatus (userStatusName) VALUES ("Офис3");');
     //end;
     //UpdateDatabase('userStatus');

  // проверка наличия администратора базы данных
  // если нет, то создать первичного пользователя логин demo пароль demo
    //if SQLExecute('SELECT count(id) FROM users;') = '0' then
    //begin
      //  SQLExecute('INSERT INTO users (id_userStatus, login, password) VALUES ("'+sUSN+'", "demo", "demo");');
     //end;
     //UpdateDatabase('users');


end;


procedure frmAutch_btnAutch_OnClick (Sender: TObject; var Cancel: boolean);
 var
  s,t,r: string;
  sStatus: string;
begin

    // Запрос SQL для проверки пользователя и пароля
     s := VarToStr(SQLExecute('SELECT count(id) FROM users WHERE (id = ' + IntToStr(frmAutch.cmbLogin.dbItemID) + ') AND (password = ''' + frmAutch.edPassword.Text + ''');'));
          // если SQL-запрос нашел логин и пароль
        if (s<>'0') AND (s<>'') then
          begin                                                          
             //скрыть форму авторизации
             frmAutch.Hide;
             // SQL-запрос прав пользователя
             sStatus := SQLExecute('SELECT id_userStatus FROM users WHERE id='+IntToStr(frmAutch.cmbLogin.dbItemID));
             // если права пользователя * то открыть *
             if sStatus = '1' then frmAdministrator.Show else  //администратор
             if sStatus = '2' then frmOffice1.Show else
             if sStatus = '3' then frmOffice2.Show else
             if sStatus = '4' then frmOffice3.Show ;
     end else MessageBox('Пароль неверен','Ошибка подключения ', MB_OK+MB_ICONSTOP);
end;


procedure MenuClickAbout (Sender: string); // click in About menu item
begin
     frmAbout.ShowModal;
end;

begin
     frmAutch.mniFile.Visible := True;
     frmAutch.mniOptions.Visible := False;
     frmAutch.mniSettings.Visible := False;
     frmAutch.mniReport.Visible := False;
     frmAutch.mniAbout.Visible := True;
end.

procedure frmAbout_lblSite_OnClick (Sender: TObject);
begin
   OpenUrl('https://');
end;

begin

end.

procedure frmAdministrator_OnShow (Sender: TObject; Action: string);
var
 time:TTimer;
begin
  begin
    time:=TTimer.Create(frmAdministrator);
    time.Interval:=20000;
    time.Enabled:=True;
    time.OnTimer:=@updateGrid;
  end;

end;
procedure updateGrid ;
  begin
    frmAdministrator.tblGeneralWork.Refresh;
  end;