2021 年 10月 19 日随笔档案 - westsoft

生成单据编号的存储过程

摘要：生成单据编号的存储过程 USE [crm2] GO /****** Object: StoredProcedure [dbo].[GetBillsID] Script Date: 09/22/2018 15:13:35 ******/ SET ANSI_NULLS ON GO SET QUOTED_ 阅读全文

posted @ 2021-10-19 22:12 westsoft 阅读(123) 评论(0) 推荐(0)

cxgrid中回车键光标移到下列

摘要： cxgrid中回车键光标移到下列 OptionsBehavior.GoToNextCellOnEnter:=True; 更完善的回车可以在焦点到了最后一列再回车时有下一行则移到下一行的第一列,没有下一行则新增记录并移到第一列 procedure TK_XSD_Form.cxGrid1DBTable 阅读全文

posted @ 2021-10-19 22:11 westsoft 阅读(94) 评论(0) 推荐(0)

cxVerticalGrid赋值是实时更新

摘要： cxVerticalGrid赋值是实时更新 procedure TForm1.cxVerticalGrid1Edited(Sender: TObject;ARowProperties: TcxCustomEditorRowProperties);beginif Assigned(cxVertical 阅读全文

posted @ 2021-10-19 22:07 westsoft 阅读(124) 评论(0) 推荐(0)

cxGrid类似pagecontrol的效果

摘要： 1、对TcxGrid创建多个Level 2、对TcxGrid的TcxGridLevelOptions的TabsForEmptyDetail设置为True 3、再设置DetailTabsPosition的方向为：dtpTop或则dtpLeft 4、cxGrid的rootleveloptions属性下的阅读全文

posted @ 2021-10-19 22:06 westsoft 阅读(53) 评论(0) 推荐(0)

cxgrid属性说明，每次用的时候费时费力查找。

摘要： cxgrid属性说明，每次用的时候费时费力查找。由层得到数据表名： procedure TFB_PatientWaiting.cxgrdbtblvwGrid1DBTableView_MyPatienWaitingDblClick( Sender: TObject); var tmp_ifGHD : 阅读全文

posted @ 2021-10-19 22:04 westsoft 阅读(308) 评论(0) 推荐(0)

做一个平均数，合计数的sql查询

摘要：做一个平均数，合计数的sql查询 select score as '成绩' ,name as '姓名' from studentsUNION ALLselect AVG(score) from students; 在最后一行显示平均数； select score as '成绩' ,name as ' 阅读全文

posted @ 2021-10-19 22:03 westsoft 阅读(179) 评论(0) 推荐(0)

FDMemTable 提示操作速度尤其是循环

摘要： FDMemTable 提示操作速度尤其是循环 with FDMemTable1 do begin DisableControls; //切断数据感知控件 try Open; //打开 //定义Field fld_Id := TIntegerField(FieldByName('Id')); fld_ 阅读全文

posted @ 2021-10-19 21:56 westsoft 阅读(148) 评论(0) 推荐(0)

手机号码验证

摘要：手机号码验证 if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字，否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; e 阅读全文

posted @ 2021-10-19 21:55 westsoft 阅读(89) 评论(0) 推荐(0)

delphi中Tstringlist分割字符串的用法

摘要： TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。常规的用法大家都知道，现在来讨论它的一些高级的用法。 1、CommaText 2、Delimiter &DelimitedText 3、Names &Values &ValueFromIndex 先看第一个：CommaTe 阅读全文

posted @ 2021-10-19 21:54 westsoft 阅读(377) 评论(0) 推荐(0)

取字符串长度

摘要：取字符串长度 //取字符串长度 function Len(const value: string): integer; begin if Value='' then result:= 0 else result:= PInteger(Integer(Value)-4)^; end; 阅读全文

posted @ 2021-10-19 21:49 westsoft 阅读(45) 评论(0) 推荐(0)

FASTREPORT自动换行及行高自适应

该文被密码保护。阅读全文

posted @ 2021-10-19 21:49 westsoft 阅读(0) 评论(0) 推荐(0)

DELPHI 获取本月的第一天和最后一天

摘要： 1、USER ：DateUtils 2、使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可； procedure TForm1.btn1Click(Sender: TObject); begin mmo1.Lines.Add(FormatDateTime('yyyy- 阅读全文

posted @ 2021-10-19 21:48 westsoft 阅读(635) 评论(0) 推荐(0)

SQL Server 断开某个数据库所有连接（还原的时候需要）转自用保留

摘要： SQL Server 断开某个数据库所有连接（还原的时候需要）转自用保留问题描述： SQL Server数据库备份还原后，在数据库名称后会出现“受限制访问”字样解决办法：右键点击数据库 -> 属性 -> 选项 -> 状态 -> 限制访问 -> 选择Multiple -> 确定。问题描述：在阅读全文

posted @ 2021-10-19 21:44 westsoft 阅读(236) 评论(0) 推荐(0)

导航

2021年10月19日