| | | | | |

2024年2月4日

摘要： Sqlite3合计行(10) 阅读全文

posted @ 2024-02-04 15:34 涂磊阅读(25) 评论(0) 推荐(0)

摘要： select id,username ,password from userinfo UNION ALL select sum( id) ,'合计','合计' from userinfo -- GROUP BY username 主要是Union All联接两个Select，类似超市购物小票合计阅读全文

posted @ 2024-02-04 11:41 涂磊阅读(44) 评论(0) 推荐(0)

2024年2月2日

(12)Lazarus动态生成菜单及绑定自定义事件

摘要： var AddCollctMenus: Array Of TMenuItem; //动态菜单 procedure TForm1.Button5Click(Sender: TObject); Var i, AddCollctMenuCount: Integer; Begin AddCollctMenu 阅读全文

posted @ 2024-02-02 18:29 涂磊阅读(214) 评论(0) 推荐(0)

2024年1月28日

(11)lazarus带历史记忆，并模糊带出功能的Edit

摘要： (20) Lazarus学习之ListFilterEdit1过滤ListBox1数据CheckListBox1，ColorListBox1，FileListBox1 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift 阅读全文

posted @ 2024-01-28 20:53 涂磊阅读(75) 评论(0) 推荐(0)

(10)Lazarus下ListBox自画

摘要：参考：VCL下ListBox自画,Lazarus也一样 uses LCLType; ListBox的两个设置：自画事件：ListBox1DrawItem procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; 阅读全文

posted @ 2024-01-28 18:45 涂磊阅读(140) 评论(0) 推荐(0)