Search options (Page 3 of 6)

procedureFormProduct_MonthCalendar_OnGetMonthBoldInfo (Sender: TObject; Month, Year: Cardinal; var MonthBoldInfo: Cardinal);
var
    AStr: array of string;
    AByte: Array of byte;
    sMonth,sIDProduct, s: string;
    i, c: integer;
begin
    sMonth := IntToStr(Month);
    sIDProduct := <FormProduct>.<TableGrid>.dbItemID;
s := SQLExecute('SELECT IFNULL(GROUP_CONCAT(DISTINCT DATE_FORMAT(`date`, "%e") ORDER BY `date` ASC), "") FROM tabledate WHERE MONTH(`date`) = '+sMonth+' AND YEAR(`date`)='+IntToStr(Year)+' AND id_product = '+sIDProduct ):

На вот этом моменте      sIDProduct := <FormProduct>.<TableGrid>.dbItemID;    выдает ошибку компиляции...

Ну я так и знал что id нужен но как правильно его вклеить в скрипт ?
s := SQLExecute('SELECT IFNULL(GROUP_CONCAT(DISTINCT DATE_FORMAT(`date`) ORDER BY `date` ASC), "") FROM bsm_date WHERE MONTH(`date`) = '+sMonth+' AND YEAR(`date`)='+IntToStr(Year) + 'tabledate.id_product=tabledate.id_date');
? помогите кто нибудь

Ну я так понимаю за эти 10-15сек идет просто подключение по сети к базам данных.... при успешном подключениии выпадает окно авторизациии пользователей

у меня Mysql просто на базе Navicat.
спасибо за подробное объяснение. Я думал что можно как то сделать после нажатия .exe быстрый запуск какой нибудь картинки чтоб дать пользователю понять что сейчас идет подключение к базам те самые 15-20 сек. Но я так понимаю из Вашего ответа это очень проблематично будет сделать..

А как выглядит этот скрипт? Пример для MySQL

Подскажите а как запомнить при входе Логин и пароль когда при этрм сам логин вводится в Text ? Тоесть на дее мы имеем 2 текстовых поля логина и пароля ставим галочку и при следующем запуске запоминаетcя

Поправь пожалуйста если я где то ошибся:

procedure frmStart_OnShow (Sender: TObject; Action: string);
var ok: boolean;
begin
ok:=false;
     {$MySQL disable_connectdialog}
     frmStart.MySQLConnection.Server := '192.168.1.1';
     frmStart.MySQLConnection.Port := 3306;
     frmStart.MySQLConnection.Username := 'mvb';
     frmStart.MySQLConnection.Password := '123';
     frmStart.MySQLConnection.Database := 'base';
       try
       // попытка 1...
    ok:=true;
    frmStart.MySQLConnection.Connect;
  except
  end;
  if not ok then
     frmStart.MySQLConnection.Server := '192.168.0.1';
     frmStart.MySQLConnection.Port := 3306;
     frmStart.MySQLConnection.Username := 'mvb';
     frmStart.MySQLConnection.Password := '123';
     frmStart.MySQLConnection.Database := 'base';
     ok:=true;
     except
  try
    frmWait.Close;
    ShowMessage('Проверте подключение к базе данных');
    frmStart.Close;
  end;
     if frmStart.MySQLConnection.Connected then
     begin
    UpdateDatabase(''); // to fill ComboBoxes

    // if you have TableGrid on first form with option
    // "Enable auto execution", you should call method
    // dbUpdate manually
  end;
  begin
     sUserName := '"'+GetUserName+'"';
     sComputerName := '"'+GetComputerName+'"';          ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  end;

Кто нибудь помогите пожалуйста

Да супер )

Подскажите как реализовать скриптом подключение к базе через 2 ip адреса
Например в локальной сети через есть 2 подсети и нужно чтобы использовалось 2 ip адреса при подключении к базе

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  if sqlexecute('select count(*) from label') = 0 then sqlexecute('insert into label (cap) values ("default")');
  form1.label3.Caption := sqlexecute('select cap from label');
end;

procedure frmLabel_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  sqlexecute('update label set cap = "'+frmlabel.edit1.text+'"');
  form1.label3.Caption := sqlexecute('select cap from label');
end;

Все разобрался

Да вроде окно с таблицей и поиском в базе 1000 человек. Специфического ничего не делал...Работает по сети изернет локальная 1 gb  сек
Вначале все ок после простоя программы какое то время быстро вообщем в поиске не наберешь начинает подтормаживать,,, даже не знаю уже что делать ...