1.[Angular 组件库 NG-ZORRO 基础入门] - 源码初窥: core
2.数据库查询中LIKE和NOT LIKE的源码应用

[Angular 组件库 NG-ZORRO 基础入门] - 源码初窥: core

       在探索和了解了典型组件的源码之后，我们进一步深入 NG-ZORRO 组件库的源码核心结构，发现了一个关键的源码策略来解决组件间共用属性、功能导致的源码重复编写问题。NG-ZORRO 支持近 种组件，源码为避免每种组件都需要重复定义相同的源码微信域名管理源码属性或功能，开发团队采用了将公共方法和定义抽离至 `core` 文件夹的源码策略。

       当处理组件的源码通用属性时，我们发现像 `nzSize` 这样的源码属性在多个组件如 `Input` 和 `Button` 中被广泛使用。解决这一问题的源码方法在于引入 `types` 文件夹，这个文件夹记录了哪些组件支持特定属性，源码便于我们查询和重复利用。源码

       动画效果是源码 Angular 开发中常见的元素，Angular 官方文档提供了详尽的源码像素显示源码指南。NG-ZORRO 提供了多样化的源码动画，使页面元素呈现丰富的动态变化。例如在 `Collapse` 折叠面板组件中，通过 `nzActive` 属性操控动画状态，实现元素的展开与收起效果。这一功能在实际开发中非常实用，使用动画使页面交互更加直观。

       某些组件，如 `Tag`，在其动态删除操作中应用了淡入淡出动画，该动画机制相较于需要单独配置的状态传递更为简便，直接提升视觉效果和用户体验。NG-ZORRO 内含多种动画类型，bbs的源码如 `moveUpMotion` 和 `slideMotion`，通过探索源码可以轻易找到使用方式。

       对于不希望使用动画的场景，NG-ZORRO 提供了 `NzNoAnimationDirective`，允许开发者在模板层面对特定元素禁用动画效果。通过替换 `BrowserAnimationsModule` 为 `NoopAnimationsModule`，可实现全局禁用动画。

       总结这一系列核心文件夹——`core` 包含了如 `types` 和 `animations` 等内容，对于项目开发而言，应考虑抽离公共部分，实现跨组件复用，以减少代码冗余和提高开发效率。通过借鉴 NG-ZORRO 的文章提交源码实践，开发者可以优化代码结构，提升组件复用性，同时保持代码的简洁性和易维护性。

数据库查询中LIKE和NOT LIKE的应用

       没有人不会经历孤独，但要学会在孤独中成长，在平凡中脱颖而出。成长本身就是一段逐渐孤独无援的旅程，你要努力变得强大，然后独当一面。

       《VBA数据库解决方案》教程（）是我推出的第二套教程，目前已经进行了第一版修订。这套教程针对中级学习者，是js 特效源码在学习字典后的另一个专题讲解。数据库是数据处理的强大工具，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作。教程第一版的修订内容主要是完成所有程序文件的位和位OFFICE系统测试。

       这套教程共有两册，八十四讲，未来一段时间将陆续推出修订后的教程内容。今天的内容是：数据库查询中LIKE和NOT LIKE的应用。

       如果您已经对VBA有了一定的了解，可以根据自己的兴趣选择教程。经典组合3,2,9，第3套字典教程是数据处理必备的，第2套数据库是专业数据处理的工具，第9套教程是实用的典型案例讲解。对于数据处理而言，如果您数据量不是很大，字典可以优先选择。教程提供的程序源码文件就像一座大型的代码库，支持着大家的工作。同时，还有实用的资料送给学员。

       我推出的VBA工具系列分为两类：一类是较易的YZ系列，一类是较难的NZ系列。这些工具是大家学习VBA的好帮手，其中NZ系列工具还有专门版本资料提供给已按部就班学习完我所有教程的学员。

       第五十三讲 工作表数据查询时，LIKE和NOT LIKE的应用

       大家好，我们继续讲解VBA数据库解决方案，今天讲解第讲内容：工作表查询时，类似筛选功能的LIKE和NOT LIKE的应用。大家在工作中，利用EXCEL操作，筛选是必不可少的工具之一。例如，我们可以筛选以某个字符开头的数据，或者筛选不以某个字符开始的数据，那么这个功能如何在ADO连接EXCEL进行查询时实现呢？

       应用场景的具体分析

       实例讲解，我们看下面的数据：

       我们要筛选出以W开始的生产厂的数组和不是以W开始的数据。如何实现呢？

       ADO连接工作表中，LIKE和NOT LIKE的应用代码及代码解读

       下面看我给出的代码：

       Sub mynzRecords_() '第讲 工作表数据查询时，类似筛选功能LIKE和NOT LIKE的应用.

       Dim cnADO, rsADO As Object

       Dim strPath, strSQL1, strSQL2, strSQL3, strSQL4 As String

       Worksheets("").Select

       Cells.ClearContents

       Set cnADO = CreateObject("ADODB.Connection")

       Set rsADO = CreateObject("ADODB.Recordset")

       strPath = ThisWorkbook.FullName

       cnADO.Open "provider=Microsoft.ACE.OLEDB..0;extended properties='excel .0;hdr=yes;imex=1';data source=" & strPath

       strSQL1 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 Like 'W%'"

       arr = Array("型号", "生产厂", "供应商", "数量")

       [a1:d1] = arr

       [a].End(xlUp).Offset(1, 0).CopyFromRecordset cnADO.Execute(strSQL1)

       strSQL2 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 NOT Like 'W%'"

       [a].End(xlUp).Offset(2, 0).CopyFromRecordset cnADO.Execute(strSQL2)

       cnADO.Close

       Set cnADO = Nothing

       Set rsADO = Nothing

       End Sub

       代码截图：

       代码解释：

       1）strSQL1 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 Like 'W%'"

       这句的解释是要查出以W开始的生产厂的记录。大家要注意这种写法。需要注意的是，这种写法要特别注意。要记住代码尽可能不要录入，要以拷贝为主，然后再做必要的修正。

       2）strSQL2 = "select 型号,生产厂,供应商,数量 from [数据$] WHERE 生产厂 NOT Like 'W%'"

       这句的解释是要查出不是以W开始的生产厂的记录。这里用的是NOT LIKE 语句。也是一种SQL语句的固定用法。

       我最近在讲各种这样的连接啊，查询结构啊，大家要注意我的语句写法，如果语句不对是得不到正确结果的。我的系列文章在讲我的经验，甚至代码中也有工作实例的影子。要学写代码的经验，我们的工作要以实用为主，不是学术的研究。

       下面看代码的运行：

       今日内容回向：

       1 如何实现工作表的筛选功能？

       2 LIKE 和 NOT LIKE 的语法是怎么样的？

       本讲内容参考程序文件：VBA与数据库操作（第二册）.xlsm

       我多年的VBA实践经验，全部浓缩在下面的各个教程中：

       分享成果，随喜正能量人生于世，就得有点兴致，闲暇之时，或乐游山水、或尽享食味、或寄情岁时，它让我们的生活变得充盈。