摘要：
生成单据编号的存储过程 USE [crm2] GO /****** Object: StoredProcedure [dbo].[GetBillsID] Script Date: 09/22/2018 15:13:35 ******/ SET ANSI_NULLS ON GO SET QUOTED_ 阅读全文
2021年10月19日
摘要：
cxgrid中回车键光标移到下列 OptionsBehavior.GoToNextCellOnEnter:=True; 更完善的回车 可以在焦点到了最后一列再回车时有下一行则移到下一行的第一列,没有下一行则新增记录并移到第一列 procedure TK_XSD_Form.cxGrid1DBTable 阅读全文
摘要：
cxVerticalGrid赋值是实时更新 procedure TForm1.cxVerticalGrid1Edited(Sender: TObject;ARowProperties: TcxCustomEditorRowProperties);beginif Assigned(cxVertical 阅读全文
摘要：
1、对TcxGrid创建多个Level 2、对TcxGrid的TcxGridLevelOptions的TabsForEmptyDetail设置为True 3、再设置DetailTabsPosition的方向为：dtpTop或则dtpLeft 4、cxGrid的rootleveloptions属性下的 阅读全文
摘要：
cxgrid属性说明，每次用的时候费时费力查找。 由层得到数据表名： procedure TFB_PatientWaiting.cxgrdbtblvwGrid1DBTableView_MyPatienWaitingDblClick( Sender: TObject); var tmp_ifGHD : 阅读全文
摘要：
做一个平均数，合计数的sql查询 select score as '成绩' ,name as '姓名' from studentsUNION ALLselect AVG(score) from students; 在最后一行显示平均数； select score as '成绩' ,name as ' 阅读全文
摘要：
FDMemTable 提示操作速度尤其是循环 with FDMemTable1 do begin DisableControls; //切断数据感知控件 try Open; //打开 //定义Field fld_Id := TIntegerField(FieldByName('Id')); fld_ 阅读全文
摘要：
手机号码验证 if (not TRegEx.IsMatch(Edit1.Text, '^[0-9]{11}')) or (length(Edit1.Text) <> 11) then // 11位数字，否则不合格 begin ShowMessage('请输入正确的11位手机号码'); exit; e 阅读全文
摘要：
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 常规的用法大家都知道，现在来讨论它的一些高级的用法。 1、CommaText 2、Delimiter &DelimitedText 3、Names &Values &ValueFromIndex 先看第一个：CommaTe 阅读全文
摘要：
取字符串长度 //取字符串长度 function Len(const value: string): integer; begin if Value='' then result:= 0 else result:= PInteger(Integer(Value)-4)^; end; 阅读全文
摘要：
1、USER ：DateUtils 2、使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可； procedure TForm1.btn1Click(Sender: TObject); begin mmo1.Lines.Add(FormatDateTime('yyyy- 阅读全文
摘要：
SQL Server 断开某个数据库所有连接（还原的时候需要）转自用保留 问题描述： SQL Server数据库备份还原后，在数据库名称后会出现“受限制访问”字样 解决办法： 右键点击数据库 -> 属性 -> 选项 -> 状态 -> 限制访问 -> 选择Multiple -> 确定。 问题描述： 在 阅读全文