摘要：
第六章 SQL函数的使用 按函数种类可以分为聚合函数,数学函数,字符串函数,日期和时间函数,转换函数和元数据函数6种. >.聚合函数. 聚合函数对一组值执行计算,并返回单个值.除count外,聚合函数都会忽略空值. 通常与SELECT语句的GROUP BY 子句一起使用,为每一个分组返回一个单一值. 阅读全文
posted @ 2024-04-01 18:09
一曲轻扬
阅读(98)
评论(2)
推荐(0)
摘要：
第五章 SQL基础 P63. SQL概述 >.SQL的组成 >.数据定义语言(data definition language,DDL):用于在数据库系统中,对数据库,表,视图,索引等数据库对象进行创建和管理 >.数据控制语言(data control language,DCL):实现对数据库中数据 阅读全文
posted @ 2024-03-31 20:17
一曲轻扬
阅读(109)
评论(0)
推荐(0)
摘要：
以下是源码: Private Sub Command0_Click() ' 打开文件选择对话框 With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Filters.Clear .Filters 阅读全文
posted @ 2024-03-21 08:39
一曲轻扬
阅读(348)
评论(0)
推荐(0)
摘要：
TDictionary 是一个开放哈希表，支持泛型，并提供了以下常用属性和方法： 属性： Count：返回字典中元素的数量。Keys：返回字典中所有键所组成的动态数组。Values：返回字典中所有值所组成的动态数组。 方法： Add：向字典中添加一个键和其对应的值。Clear：清空字典中的所有元素。 阅读全文
posted @ 2024-03-12 20:07
一曲轻扬
阅读(1414)
评论(0)
推荐(0)
摘要：
我经常让GPT写一些简单的代码,它确实也能给出相对满意的结果,但是这单元的名称总是和我的不一样 我们在delphi中新建新项目名称一般都是Unit1,所以我们首先要先把Unit1修改成与GPT一样的名称才可以. 首先是保存我们的新项目,然后关闭.当然里面是空白的,什么代码和控件都没加.保存后这是新项 阅读全文
posted @ 2024-01-15 19:39
一曲轻扬
阅读(251)
评论(2)
推荐(0)
摘要：
有个客户表: 现在需要创建一个可以修改客户数据的窗体,我们一般的做法是: 1.选中数据表: 客户列表 2.在菜单中选择 "创建" --> "窗体". 3.调整一下格式,和添加一下按钮,就变成了这样,初始状态下,它会自动绑定字段值.此时如果用户对某个值做了修改,会直接修改数据表中的值,这不是我们想要的 阅读全文
posted @ 2024-01-13 09:22
一曲轻扬
阅读(269)
评论(0)
推荐(0)
摘要：
第一章 数据库基础 P3. 数据库的体系结构(纯理论,不重要) 三种模式：数据库系统的三级模式结构是指模式，外模式和内模式。 两种映射：外模式/模式映射，模式到内模式的映射 P5.数据模型 常见的数据模型有层次模型，网状模型和关系模型 P7.关系数据库的规范化，三条范式： 第一范式(1NF):在一个 阅读全文
posted @ 2023-12-02 08:40
一曲轻扬
阅读(260)
评论(0)
推荐(0)
摘要：
ACCESS报表真是一言难尽啊.看预览还挺正经的. 结果,放大之后 ,它裂开了,我也裂开了....打印出来,谁看谁尴尬... 调整了很久,还是解决不了,于是愤而改EXCEL.效果如下: Private Sub Command647_Click() '打印.点击后禁用此按钮,待操作完成后再恢复,如果你 阅读全文
posted @ 2023-11-30 15:43
一曲轻扬
阅读(189)
评论(0)
推荐(0)
摘要：
感谢我宅猫大哥的热心指导. 启动时等待验证码. 输入验证码后,等待处理数据 处理完成后,显示数据 实现原理:利用已有的账号和密码登录后产生的cookie,向服务器请求数据.返回的数据是JSON格式,后期需要自己整理. 注意,请在程序中使用同一个TnetHttpClient控件来完成.因为里面保存了c 阅读全文
posted @ 2023-11-27 18:12
一曲轻扬
阅读(656)
评论(0)
推荐(1)
摘要：
首先说明一下,这是我平生第一次接到 接口文档,认知有限,写得不对的地方,请大佬们多多指点. 下面是一个智能刀具柜关于库存查询的接口文档: 上面的参数中,appid 和 sign中的appsecret和macno是设备的常量值,要问设备服务商给. 上面的接口要分别设置header头和请求参数.而POS 阅读全文
posted @ 2023-11-22 15:14
一曲轻扬
阅读(421)
评论(6)
推荐(0)
摘要：
转载自:WIn7 下使用 NetHttpClient 请求HTPPS 网站 - EEEEEEEEEEEEEEEEEEE - 博客园 (cnblogs.com) WIn7 下使用 NetHttpClient 请求HTPPS 网站 在WIN7 下使用 HttpClient 会报以下两种错 ;1 Serv 阅读全文
posted @ 2023-11-22 11:32
一曲轻扬
阅读(1131)
评论(0)
推荐(0)
摘要：
文本框一个,在属性面板中设置 "格式"为合适的日期格式 然后设置它的键按下事件 Private Sub d交货日期_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub 这样做的目的是防止用户输入不合法或者错误的日期,比如 阅读全文
posted @ 2023-11-11 13:55
一曲轻扬
阅读(163)
评论(0)
推荐(0)
摘要：
如果是放在 窗体模块 中: Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer 如果是放在 模块 中: Public Declare Function GetKeyState Li 阅读全文
posted @ 2023-11-10 15:24
一曲轻扬
阅读(63)
评论(0)
推荐(0)
摘要：
请在[布局视图]下设置,效果如下 Option Compare Database Dim s As Integer Private Sub Form_Load() '初始化变量 Me.TimerInterval = 10 Command4.Width = 0End Sub Private Sub F 阅读全文
posted @ 2023-10-31 10:08
一曲轻扬
阅读(115)
评论(0)
推荐(0)
摘要：
一.ColumnHidden 隐藏字段 For Each TEMP In Me.FM刀具项夹表.Form.Controls If Not TypeOf TEMP Is Label Then If TEMP.Name <> "RecordID" And TEMP.Name <> "项目" And TE 阅读全文
posted @ 2023-10-27 15:52
一曲轻扬
阅读(53)
评论(0)
推荐(0)
摘要：
2024-08-25更新 ' 引用 Microsoft XML, v6.0 库 ' 在 VBA 编辑器中，选择 工具 -> 引用 -> 勾选 Microsoft XML, v6.0 ' 加密函数：将密码明文编码为 Base64 格式 Function EncodeBase64(plainText A 阅读全文
posted @ 2023-10-15 21:36
一曲轻扬
阅读(215)
评论(0)
推荐(0)
摘要：
Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Priva 阅读全文
posted @ 2023-10-15 20:22
一曲轻扬
阅读(82)
评论(0)
推荐(0)
摘要：
'在表单中添加新记录 DoCmd.RunCommand acCmdRecordsGoToNew ' 导航到上一条记录 DoCmd.RunCommand acCmdRecordsPrevious ' 导航到下一条记录 DoCmd.RunCommand acCmdRecordsNext ' 删除当前记录 阅读全文
posted @ 2023-10-15 19:41
一曲轻扬
阅读(364)
评论(0)
推荐(0)
摘要：
Function 隐藏与显示导航空格(ByVal f As Boolean) 'true 显示,false隐藏 If f Then DoCmd.SelectObject acForm, , True Else DoCmd.SelectObject acForm, , True DoCmd.RunCo 阅读全文
posted @ 2023-10-15 17:59
一曲轻扬
阅读(318)
评论(0)
推荐(0)
摘要：
Public Function Getpyszm(ByVal Chs As String, Optional bList As Boolean = True) As String Dim ardata(-20319 To -10247) As String ardata(-20319) = " a" 阅读全文
posted @ 2023-10-12 16:39
一曲轻扬
阅读(231)
评论(0)
推荐(0)
浙公网安备 33010602011771号