ADOConnection 打开EXCEL 'Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' + Edt_ExcelFilePath.Text + ';' + 'Extended Properties=Excel 8.0;';
FastReport 合并2份报表一同打印 frxReport1.LoadFromFile('1.fr3');frxReport1.PrepareReport;frxReport1.LoadFromFile('2.fr3');frxReport1.PrepareReport(False);frxReport1.ShowPreparedReport;
MSSQL FLOAT 的问题挺郁闷的 图中的 905 * 0.815 正常的计算结果为 737.575 ,四舍五入保留两位小数就应该是:737.58但是呢,如:jjjjj2 所显示竟然是:737.57 。其实真实的计算结果如:jjjj1所示:737.574999999。四舍五入保留两位小数自然就是不是预期应该的数了;这个名字,就是 float 的精度差的问题。将其转换为精度较好的类型后果再取四舍五入就好了。...
取字符串中第一个数字 与 最后一个数字的位置 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 最后一个数字位置...
InpubQuery的高级用法 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.
unigui 通过点击按钮打开一个新的网页 不能用 ShellExecute要用:unisession.addjs('window.open("http://www.163.com","newwindow")')
去掉 unigui 服务器端的 UniGUI Server 字样 uses uniGUIServerFormprocedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);begin uniGUIServerForm.ServerForm.Caption :='测试一下效果,哈哈哈。';end;
FDQuery 不能通过TRY...except 捕获错误的解决方法 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...
unigui 验证码生成 转载自: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.
使用CleintDataset 蜂巢式主从结构,修改主表KEY字段出现 Cascaded updates not enabled 在provider的option属性中将 opCascadeDeletes 与 opCascadeUpdates 设置为 True 即可。
FireDAC 连接SQL Server需要注意的 TFDConnection:FetchOptions.Mode 设置为fmAll, 返回全部结果, 否则默认只返回前50条, 效果与open以后再执行FetchAll一样ResourceOptions.SilentMode 设置为True, 就不需要FDGUIxWaitCursor之类的东西了, 同样也不再会自动改变鼠标样式, 默认是需要的TFDQuery:Resour...
delphi bpl插件系统开发 一个插件系统需要什么?一个最小的插件系统当然需要插件本身,调用插件的容器,最后需要契约.契约是什么呢?契约就是两个对象相互沟通的一个标准,这个标准应该统一,这样容器才能和不同的插件通讯.我们可以使用接口来表述这个契约.例如type IPlugin =interface['{48BF4000-B028-4B57-9955-B1A8305DA39...
Method pointer and regular procedure 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...