| | | | | |

2024年2月4日

摘要： 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 涂磊阅读(63) 评论(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 涂磊阅读(268) 评论(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 涂磊阅读(109) 评论(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 涂磊阅读(186) 评论(0) 推荐(0)

2024年1月21日

DBGrid显示图片(13)

摘要：对应的编辑控件为ComboBoxEx1 procedure TForm13.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawSta 阅读全文

posted @ 2024-01-21 14:02 涂磊阅读(147) 评论(0) 推荐(0)