一曲轻扬

摘要： 原代码如下: Private Sub ComSave_Click() '保存按钮 If ComSave.Caption = "编辑(自动保存)" Then Me.Text160.Locked = False Me.Text138.Locked = False Me.FM入库单.Form.数量.Loc 阅读全文

摘要： 看一下下面这个表 FM出库单 我要设置字段[数量]与[备注]的locked属性,其中 [数量]字段设置成功了,而在运行到 [备注] 的设置代码时,却报错了: 搞得我百思不得骑姐,花了一个多小时排查这个问题,结果才发现: 总结:当把最有可能的原因排除了之后,那真相就是那个最不可能的原因. 阅读全文

摘要： Round是用来处理浮点计算的,如果不处理,原本一个29.9,它能给你算成29.899500000012345. 如果字段属性是文本格式,你再怎么round都没用,所以在这之前,你得把文本类型的字段,转成数字类型的字段.方法也很简单,比如 [字段]*1.但是这里又会产生一个新的问题,比如字段下面有n 阅读全文

摘要： 官方文档:DoCmd.OutputTo 方法 (Access) | Microsoft Learn 看上去挺复杂的,其实主要看第一和第三个参数.不想去研究的朋友,下面这几行代码,应该够用了 '将报表导出为PDF代码 DoCmd.OutputTo acOutputReport, "报表名称", acF 阅读全文

摘要： Dim a, b, c As String 不用讲,大家都这么玩过.实际上,它只将 c 声明为 String 类型，而 a 和 b 实际上是未声明的 Variant 类型。然后，当你尝试将未声明类型的变量 a 作为参数传递给 ByRef 参数的函数时，会导致类型不匹配的错误。 Sub MySub(B 阅读全文

摘要： 先声明一下,我本人的SQL的水平也是非常粗浅的,本文就实际开发过程中遇到的问题做一个简单的笔记,不对的地方,请大家指正. 经验一: 合理利SQL语句,不是什么语句都得在视图下完成的.你可以尝试在SQL视图下手打. 一个简单常见的例子: 求库存 .以我这里的数据库为例,有三张表关系到了库存的数量,分别 阅读全文

摘要： 下面是错误的语句: SELECT 查询1.产品ID, Sum(查询1.数量之合计) AS 数量之合计之合计, 查询1.仓库 FROM ( (SELECT 入库单.产品ID, Sum(入库单.数量) AS 数量之合计, 入库单.仓库 FROM 入库单 GROUP BY 入库单.产品ID, 入库单.仓库 阅读全文

摘要： 如上图所示,下拉框明显宽度不够,右边的数据都没展现出来.窗口模式下是不能设置宽度值的. 解决的方案是在设计模式下,给"产品编码"这个字段设置一个合理的宽度值,便数据全部展现出来 然后回到数据视图下,发现数据已经能正常显示了.注意,此时,当字段的宽度小于下拉菜单的宽度时,下拉菜单的宽度不会改变,但是当 阅读全文

摘要： Private Sub Form_Load() For Each temp In Me.Controls If Not TypeOf temp Is Label Then temp.OnClick = "=GetVal()" Next If Me.产品编码.FormatConditions.Coun 阅读全文

摘要： '在A窗体中设置B窗体中组合框的值 Private Sub Command9_Click() OpenFormAneCloseMe ("订单管理") '注意这里是先打开窗体,等窗体打开后再设置值 Forms("订单管理").Controls("Combo53").Value = "全部" Forms 阅读全文

摘要： Private Sub Form_Load() Me.Move -3000, -2500, Me.Width, 15000 For Each temp In Me.Controls If TypeOf temp Is TextBox Then temp.OnChange = "=FilterTabl 阅读全文

摘要： Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next If Me.SelHeight > 1 Then '判断用户是否多选 Dim i 阅读全文

摘要： TcxGridPopupMenu控件用来给cxgrid设置右键菜单的.它长这样 属性面板长这样: 默认的系统菜单长这样: 这菜单上面有好几个选项我不想要,怎么办?隐藏它呗! private { Private declarations } procedure StdHeaderMenuPopup(S 阅读全文

摘要： 效果图: 实现的原理: 1.在数据库建一个表,然后绑定到cxgrid上面.数据表各字段的数据类型,按你的业务需求来设置,同时要允许空值,因为我们必须让它们保持空值,这样在绑定到cxgrid时,才会是空白的,然后再弄个自增的主键ID.下面这张图是我研究时截的图,不想改了,凑合着用吧 2.绑定过程略. 阅读全文

摘要： 效果图: 点击GetImage,会在程序目录下生成一个表格截图的图片文件,打开后如下图: 以下是代码: procedure TForm4.SpeedButton1Click(Sender: TObject); var gridView: TcxGridDBTableView; focusedItem 阅读全文

摘要： 在delphi中,什么情况下使用QuotedStr?什么情况下使用QuotedString? QuotedStr: SQL语句拼接,加单引 QuotedString:JSON,加双引 DeQuotedString:去引号 阅读全文

摘要： 这两天听大佬说"可视化绑定"的效率很低,再加对下拉菜单,单选,复选框等控件绑定操作的未知,于是我决定把普通组件,改为DB组件. 正常来讲,基本上所有DB组件只要设置好了数据源和字段绑定,就能显示数据来, 但是我这边就出现了一点意外,源于对sqlite数据库认知度不够的原因 如上图所示,DB控件设置好 阅读全文

摘要： 所谓"流", 就是一段数据或是一块内存;在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: Size、Position.对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.在很多控件的使用中, 读取主要用 阅读全文

摘要： 抛出问题: 排除过程: 1.在TFrmChangePW窗口的create事件里打断点,结果发现,根本没停顿,所以判断问题不在TFrmChangePW窗体里,而是showmodal这语句里出了问题,点中断,跳到抛出错误的地方: 2.if 里的四个条件,检查了第一个,第二个和第四个都是没问题的,第三个( 阅读全文

摘要： 效果图: 代码超简单的: procedure TFrmLogin.FormCreate(Sender: TObject);var Fmutex: THandle; begin//创建一个命名的互斥量，确保同一时间只有一个实例在运行 //第三个参数是自定义的,随便取的,但一定要是唯一的标识 FMute 阅读全文