摘要：
转载自:WIn7 下使用 NetHttpClient 请求HTPPS 网站 - EEEEEEEEEEEEEEEEEEE - 博客园 (cnblogs.com) WIn7 下使用 NetHttpClient 请求HTPPS 网站 在WIN7 下使用 HttpClient 会报以下两种错 ;1 Serv 阅读全文
posted @ 2023-11-22 11:32
一曲轻扬
阅读(1181)
评论(0)
推荐(0)
摘要：
文本框一个,在属性面板中设置 "格式"为合适的日期格式 然后设置它的键按下事件 Private Sub d交货日期_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub 这样做的目的是防止用户输入不合法或者错误的日期,比如 阅读全文
posted @ 2023-11-11 13:55
一曲轻扬
阅读(176)
评论(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
一曲轻扬
阅读(78)
评论(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
一曲轻扬
阅读(123)
评论(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
一曲轻扬
阅读(61)
评论(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
一曲轻扬
阅读(241)
评论(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
一曲轻扬
阅读(90)
评论(0)
推荐(0)
摘要：
'在表单中添加新记录 DoCmd.RunCommand acCmdRecordsGoToNew ' 导航到上一条记录 DoCmd.RunCommand acCmdRecordsPrevious ' 导航到下一条记录 DoCmd.RunCommand acCmdRecordsNext ' 删除当前记录 阅读全文
posted @ 2023-10-15 19:41
一曲轻扬
阅读(388)
评论(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
一曲轻扬
阅读(335)
评论(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
一曲轻扬
阅读(249)
评论(0)
推荐(0)
摘要：
在报表中插入三个无关联的文本框控件,取名分别为Text,Text2,Text3,他们的宽/高,上/左边距按需求自定义,可见均设置为否,如果你需要显示序号的话,text3可设置为可见 text 控件来源: =1 text 2:控件来源: =IIf([Text]<[Text3]+1,[Text],IIf 阅读全文
posted @ 2023-10-06 14:30
一曲轻扬
阅读(389)
评论(0)
推荐(0)
摘要：
原SQL: UPDATE 刀具申购明细 SET 刀具申购明细.关闭 = -1 where 刀具申购明细.申购数量<=(SELECT Sum(Round(Nz([入库数量],0)*1,2)) AS 入库合计 FROM 采购入库temp LEFT JOIN 刀具入库明细 ON 采购入库temp.申购ID 阅读全文
posted @ 2023-10-04 16:30
一曲轻扬
阅读(463)
评论(0)
推荐(0)
摘要：
如上图,需求是当用户点中[申请数量]字段下的值时,自动选中里面的值,但要求每次获得焦点时,只触发一次. 我首先想到的是用GotFocus 事件,核心代码无非就是SelStart和SelLength,但是发现它根本不起作用.于是只能用click事件尝试,结果运行正常. 但有个小BUG,就是每次点击都会 阅读全文
posted @ 2023-10-01 14:38
一曲轻扬
阅读(110)
评论(0)
推荐(0)
摘要：
转载自: delphi读写INI文件_delphi写数据到ini_苏生米沿的博客-CSDN博客 Delphi提供了读写INI文件的方法，Delphi操作INI文件最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件。 一、INI文件的结构：;注释[小节名]关 阅读全文
posted @ 2023-09-20 08:54
一曲轻扬
阅读(1049)
评论(0)
推荐(0)
摘要：
有多少人是因为SetComputerName无效之后找到这里的?请在评论区报一下名. uses ShellAPI,windows; procedure TForm1.ChangeComputerName(const NewName: string); var Command: string; New 阅读全文
posted @ 2023-09-19 22:16
一曲轻扬
阅读(158)
评论(0)
推荐(0)
摘要：
一.TFDMemTable控件不依赖数据库,可以独立保存数据(运行期间)和使用. 这种情况下,我们只能通过 [新建字段] 来建立数据字段. 上面的 [添加字段] 和 [添加所有字段] 都是要与数据库连接之后才能用. 这里提示一下各位.字段要加好以后再往里面录数据,如果先录了数据,然后再添加或者删除字 阅读全文
posted @ 2023-09-17 22:24
一曲轻扬
阅读(791)
评论(0)
推荐(0)
摘要：
在Delphi中，有许多不同的数据类型可供选择，每个数据类型具有不同的特性和用途。以下是一些常见的Delphi数据类型： 1. 整数类型： - `Byte`：无符号8位整数。 - `Shortint`：带符号8位整数。 - `Word`：无符号16位整数。 - `Smallint`：带符号16位整数 阅读全文
posted @ 2023-09-17 00:45
一曲轻扬
阅读(2132)
评论(0)
推荐(0)
摘要：
首当其中的是shift键,能轻松的绕过用户设置的启动程序,直接把后台数据暴露出来.解决方案是:ACCESS 禁止用户使用SHIFT启动数据库 - 一曲轻扬 - 博客园 (cnblogs.com) 其次是万能的导入大法.下面分几中情形来进行总结: 先创建一个空白的数据库A. 假设目标数据库为B. 当B 阅读全文
posted @ 2023-09-08 10:23
一曲轻扬
阅读(176)
评论(0)
推荐(0)
摘要：
按WIN+R打开运行,输入 "powershell" 回车,打开powershell界面 然后输入 "irm massgrave.dev/get | iex" 回车, 稍等片刻,打开注册界面 以激活office为例.选择第三项(输入数字3) 再选择2 出现这个界面说明注册成功: 以上方法,WIN7 阅读全文
posted @ 2023-09-06 21:11
一曲轻扬
阅读(5112)
评论(0)
推荐(0)
摘要：
本例需要读取excel中的数据,然后动态的添加到TSCTreeView控件当中 . 最终效果如下图: 核心代码如下: procedure TForm1.FormCreate(Sender: TObject); var n: Integer; t: TTreeNode; I: Integer; beg 阅读全文
posted @ 2023-09-06 21:04
一曲轻扬
阅读(352)
评论(0)
推荐(0)
浙公网安备 33010602011771号