Вбиваем в поиск интересующий формат и получаем его полное описание - незаменимый справочник!
http://www.wotsit.org/
пользуемся :)
http://www.wotsit.org/
пользуемся :)
http://g.zeos.in/?q=что_хотим_найтинапример:
with SQLQuery1 do begin Close; SQL.Clear; SQL.Add('select tDate,tRemark from Table1 where tDate BETWEEN '+QuotedStr(cbxYear.Text +'-01-01')+'AND '+QuotedStr(cbxYear.Text +'-12-31')+';'); //у меня в таблице формат даты ГГГГ-ММ-ДД! потому так и ищу! Open; end;
procedure TFmMain.Button1Click(Sender: TObject); var cnt: Integer; bmk: TBookmark; begin inherited; DbGrid1.DataSource.DataSet.DisableControls; // Это - датасет грида cnt := 0; bmk := DbGrid1.DataSource.DataSet.GetBookmark; // Запомнили позицию try // Считаем DbGrid1.DataSource.DataSet.First; while not FmMain.ListKvit.DataSource.DataSet.Eof do begin Inc(cnt); DbGrid1.DataSource.DataSet.Next; end; DbGrid1.DataSource.DataSet.GotoBookmark(bmk); // Вернулись finally DbGrid1.DataSource.DataSet.FreeBookmark(bmk); DbGrid1.DataSource.DataSet.EnableControls; end; ShowMessage('Всего записей = ' + IntToStr(cnt)); end;
IIF( expression, true-value1, false-value )Но тут же обнаружилось что для SQLite этот метод не подходит. Порывшись в документации обнаружил аналог данной функции:
case ПОЛЕ when ЗНАЧЕНИЕ1 then ''НА ЧТО ЗАМЕНИЛИ'' when ЗНАЧЕНИЕ2 then ''НА ЧТО ЗАМЕНИЛИ2'' endТут же приведу пример как использовать:
select Number,tDate,tChto,tSerial,tChtoInd,tSerialInd,tTelefon, case tSost when 0 then ''У Мастера'' when 1 then ''Готово'' when 2 then ''Выдано'' end as tSost,tSum,tOplat,tRemark from kvit;
"Замятие 1. Откройте/закройте крышку"При детальном рассмотрении проблемы мы обнаруживаем, что принтер Samsung SCX-4100 сперва хватает один лист бумаги, но ролик захвата бумаги делает следом второй круг и хватает второй листок.