Počítačová hra Tetris slaví 40 let. Alexej Pažitnov dokončil první hratelnou verzi 6. června 1984. Mezitím vznikla celá řada variant. Například Peklo nebo Nebe. Loni měl premiéru film Tetris.
MicroPython (Wikipedie), tj. implementace Pythonu 3 optimalizovaná pro jednočipové počítače, byl vydán ve verzi 1.23.0. V přehledu novinek je vypíchnuta podpora dynamických USB zařízení nebo nové moduly openamp, tls a vfs.
Canonical vydal Ubuntu Core 24. Představení na YouTube. Nová verze Ubuntu Core vychází z Ubuntu 24.04 LTS a podporována bude 12 let. Ubuntu Core je určeno pro IoT (internet věcí) a vestavěné systémy.
Databáze DuckDB (Wikipedie) dospěla po 6 letech do verze 1.0.0.
Intel na veletrhu Computex 2024 představil (YouTube) mimo jiné procesory Lunar Lake a Xeon 6.
Na blogu Raspberry Pi byl představen Raspberry Pi AI Kit určený vlastníkům Raspberry Pi 5, kteří na něm chtějí experimentovat se světem neuronových sítí, umělé inteligence a strojového učení. Jedná se o spolupráci se společností Hailo. Cena AI Kitu je 70 dolarů.
Byla vydána nová verze 14.1 svobodného unixového operačního systému FreeBSD. Podrobný přehled novinek v poznámkách k vydání.
Společnost Kaspersky vydala svůj bezplatný Virus Removal Tool (KVRT) také pro Linux.
Grafický editor dokumentů LyX, založený na TeXu, byl vydán ve verzi 2.4.0 shrnující změny za šest let vývoje. Novinky zahrnují podporu Unicode jako výchozí, export do ePub či DocBook 5 a velké množství vylepšení uživatelského rozhraní a prvků editoru samotného (např. rovnic, tabulek, citací).
Byla vydána (𝕏) nová verze 7.0 LTS open source monitorovacího systému Zabbix (Wikipedie). Přehled novinek v oznámení na webu, v poznámkách k vydání a v aktualizované dokumentaci.
mám aplikaci, která pracuje s daty v MySQL. Jedna tabulka má kolem 100k záznamů a já bych rád tyto záznamy zobrazil postupně uživateli.
Mé řešení:
Po spuštění aplikace zobrazím prvních 500 záznamů. Když uživatel začne rolovat v gridu a dostane se na konec, načtu následujících 500 záznamů. Pokud se vrací zpět, načtu předchozí záznamy atd. Funguje to velice pěkně a rychle. Používám na to LIMIT a OFFSET. Je tu ale problém.
Tabulka je nějak setříděná. Uživatel chce editovat záznam. Pokud opraví položku, podle které se tabulka třídí, položka se posune na jinou pozici, takže se dostane mimo hranice stanovené LIMIT a OFFSET. Jak se mám na tento záznam po ukončení editace vrátit? Jak mám zjistit, kterou stránku mu mám pomocí LIMIT a OFFSET zobrazit (kurzor na záznam už pak přesunu pomocí sekvenčního vyhledání pod ID)? Máte, prosím, nějaký nápad?
Díky moc!Řešení dotazu:
select count(*) from table where sort_key < changed_keya mas pozici.
Díky za radu, pomohlo to. Bohužel pokud je uživatel někde na u konce tabulky, ten select dlouho trvá. Nakonec jsem to vyřešil jinak.
Mé řešení:
procedure TfrmMain.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var id : Integer; f1 : TDateTime; f2 : String; f3 : Integer; begin if (key = VK_END) and (Shift = [ssCtrl]) then begin if cDB_LIMIT > DbRecCount then DbOffset := 0 else DbOffset := DbRecCount - cDB_LIMIT; try Q.DisableControls; trQ.Rollback; Q.SQL.Text := 'select * from cqrlog_main order by qsodate DESC, time_on DESC LIMIT '+IntToStr(cDB_LIMIT)+' OFFSET '+IntToStr(DbOffset); trQ.StartTransaction; Q.Open; Q.First finally Q.EnableControls end end; if (key = VK_HOME) and (Shift = [ssCtrl]) then begin try Q.DisableControls; trQ.Rollback; Q.SQL.Text := 'select * from cqrlog_main order by qsodate DESC, time_on DESC LIMIT '+IntToStr(cDB_LIMIT); trQ.StartTransaction; Q.Open finally Q.EnableControls end end; if ((key = VK_UP) or (key = 33)) and Q.BOF then begin try Q.DisableControls; id := Q.Fields[0].AsInteger; f2 := Q.Fields[2].AsString; f1 := Q.Fields[1].AsDateTime; Q1.SQL.Text := 'select id_cqrlog_main from cqrlog_main order by qsodate DESC, time_on DESC LIMIT 1'; trQ1.StartTransaction; Q1.Open; f3 := Q1.Fields[0].AsInteger; trQ1.Rollback; Q1.Close; if f3=id then //we are on the begining of dataset exit; Q.Close; Q.SQL.Text := 'select * from (select * from cqrlog_main where (qsodate = '+QuotedStr(DateToStr(f1))+ 'and time_on >= '+QuotedStr(f2)+') or qsodate > '+QuotedStr(DateToStr(f1))+ ' order by qsodate, time_on LIMIT '+IntToStr(cDB_LIMIT)+') as foo order by qsodate DESC,time_on DESC'; trQ.Rollback; trQ.StartTransaction; Q.Open; Q.Last finally Q.EnableControls end end; if ((key = VK_DOWN) or (key = 34)) and Q.EOF then begin try Q.DisableControls; id := Q.Fields[0].AsInteger; f2 := Q.Fields[2].AsString; f1 := Q.Fields[1].AsDateTime; Q1.SQL.Text := 'select id_cqrlog_main from cqrlog_main order by qsodate,time_on LIMIT 1 OFFSET 0'; trQ1.StartTransaction; Q1.Open; f3 := Q1.Fields[0].AsInteger; Q1.Close; trQ1.Rollback; if f3=id then //we are on the end of dataset exit; Q.Close; Q.SQL.Text := 'select count(*) from cqrlog_main where (qsodate = '+QuotedStr(DateToStr(f1))+ 'and time_on <= '+QuotedStr(f2)+') or qsodate < '+QuotedStr(DateToStr(f1))+ ' order by qsodate DESC, time_on DESC LIMIT '+IntToStr(cDB_LIMIT); Q.Open; if Q.Fields[0].AsInteger < cDB_LIMIT then begin Q.Close; Q.SQL.Text := 'select * from (select * from cqrlog_main order by qsodate, time_on LIMIT '+ IntToStr(cDB_LIMIT)+') as foo order by qsodate DESC,time_on DESC'; Q.Open; Q.Locate('id_cqrlog_main',id,[]) end else begin Q.Close; Q.SQL.Text := 'select * from cqrlog_main where (qsodate = '+QuotedStr(DateToStr(f1))+ 'and time_on <= '+QuotedStr(f2)+') or qsodate < '+QuotedStr(DateToStr(f1))+ ' order by qsodate DESC, time_on DESC LIMIT '+IntToStr(cDB_LIMIT); Q.Open; Q.Locate('id_cqrlog_main',id,[]) end finally Q.EnableControls end end
Tiskni Sdílej: