编程资料收集与共享交流

'Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' + Edt_ExcelFilePath.Text + ';' + 'Extended Properties=Excel 8.0;';

frxReport1.LoadFromFile('1.fr3');frxReport1.PrepareReport;frxReport1.LoadFromFile('2.fr3');frxReport1.PrepareReport(False);frxReport1.ShowPreparedReport;

图中的 905 * 0.815 正常的计算结果为 737.575 ，四舍五入保留两位小数就应该是：737.58但是呢，如：jjjjj2 所显示竟然是：737.57 。其实真实的计算结果如：jjjj1所示：737.574999999。四舍五入保留两位小数自然就是不是预期应该的数了；这个名字，就是 float 的精度差的问题。将其转换为精度较好的类型后果再取四舍五入就好了。...

SELECT 32-DAY(getdate()+32-DAY(getdate()))

DECLARE @str NVARCHAR(255) = 'YX807.起8款小折盒各入1个配件（其中7仔入3种），起大折盒，放8个小折盒入盒放板。'SELECT PATINDEX('%[0-9]%', @str) AS 第一个数字位置 , LEN(@str) - PATINDEX('%[0-9]%', REVERSE(@str)) + 1 AS 最后一个数字位置...

在 MSSQL2008R2 上测试，其它版本未知

procedure ShowErrorMsg(Amsg:string);begin Application.MessageBox(PChar(Amsg), 'error', MB_OK); abort;end;procedure TFrm_Main.Btn_1Click(Sender: TObject);var ss:array of string;begin SetLength(ss,3); if InputQuery('密码修改',[Chr(0)+'旧 密 码',Chr.

不能用 ShellExecute要用：unisession.addjs('window.open("http://www.163.com","newwindow")')

uses uniGUIServerFormprocedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);begin uniGUIServerForm.ServerForm.Caption :='测试一下效果，哈哈哈。';end;

procedure TDM_SYS.PubP_BatchSaveStdData(MastTbl: TFDQuery);var n:Integer;begin try if MastTbl.State in [dsedit,dsinsert] then MastTbl.Post; MastTbl.ApplyUpdates(0); //通过DEBUG，可以定位错在这里 except on e:Exception do begin ShowErrorMsg...

转载自：https://blog.csdn.net/tvmerp/article/details/107736457//验证码生成单元unit AuthenticodeGenerate;interfaceuses SysUtils, Windows, ExtCtrls, Graphics;function GenerateAuthenticode(const Img: TImage; const Len: Integer = 4): string;implementati.

在provider的option属性中将 opCascadeDeletes 与 opCascadeUpdates 设置为 True 即可。

TFDConnection:FetchOptions.Mode 设置为fmAll, 返回全部结果, 否则默认只返回前50条, 效果与open以后再执行FetchAll一样ResourceOptions.SilentMode 设置为True, 就不需要FDGUIxWaitCursor之类的东西了, 同样也不再会自动改变鼠标样式, 默认是需要的TFDQuery:Resour...

一个插件系统需要什么?一个最小的插件系统当然需要插件本身,调用插件的容器,最后需要契约.契约是什么呢?契约就是两个对象相互沟通的一个标准,这个标准应该统一,这样容器才能和不同的插件通讯.我们可以使用接口来表述这个契约.例如type IPlugin =interface['{48BF4000-B028-4B57-9955-B1A8305DA39...

This is the difference between a "procedure" and a "procedure of object"TheOnClickis defined as aTNotifyEvent:type TNotifyEvent = procedure(Sender: TObject) of object;You cannot assign a pro...