Вбиваем в поиск интересующий формат и получаем его полное описание - незаменимый справочник!
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 сперва хватает один лист бумаги, но ролик захвата бумаги делает следом второй круг и хватает второй листок.