2022-11-14 109 0

在delphi中TApplicationEvents控件的用途与使用方法 使用ApplicationEvents来拦截窗体消息项目需要一些全屏展示的web页面，结果碰到一个问题，当窗体上的webbrowse控件打开了网页之后，窗体就不响应键盘消息了~~~~郁闷了会儿，过后才研究出来用ApplicationEvents这个控件就可以实现~~~要么的话，就只有HOOK窗口消息了~~以下是OnMessage事件,用来阻止WebBrowser的右键菜单:procedure TfrmSearch.Applicat

2022-11-14 62 0

一、FireDAC调用DataSnap远程方法查询数据示例1、服务端使用FDQUERY查询数据并返回TDATASET：function TServerMethods1.GetData(var sqlstr: string): TDataSet;var qry:TFDQurey;begin qry := TFDQuery.Create(nil); try qry.Connection := TServerContainer1.FDConnection1; qry.Open(sql);

2022-11-14 79 0

一、DataSet转JSON//1）数据集转换为JSON字符串：//需USES System.JSON;function DataSetToJson(ADataset: TDataSet): string;// [{"CityId":"18","CityName":"西安"},{"CityId":"53","CityName":"广州"}]var

2022-11-14 31 0

ACCESS存储过程是带参数的查询语句，如inser into t1 select * from t2 wher field1=[para1]这个查询名为stor1则将可adoquery1.sql.add("select * from stor1");adoquery1.Parameters[0].Value=str1;adoquery1.ExecSQL

2022-11-14 44 0

{导出 Excel 表格} procedure GenXlsFile(sPRG:TProgressBar;SDBGrid:TDBGrid;sDataSet:TADOQuery;Fn:String;Vis:Boolean); //uses ComObj; var ExcelApp: Variant; i,j:integer; begin try ExcelApp := CreateOleObject('Excel.Application'); except

2022-11-14 25 0

1.增加字段 alter table docdsp add dspcodechar(200)2.删除字段 ALTER TABLE table_NAME DROP COLUMNcolumn_NAME3.修改字段类型 ALTER TABLE table_name ALTER COLUMNcolumn_name new_data_type4.sp_rename 改名 EXEC sp_rename '[dbo].[Table_1].[filedName1]

2022-11-14 61 0

function UncrypKey(Src: AnsiString; Key: AnsiString): string;var idx: Integer; KeyLen: Integer; KeyPos: Integer; offset: Integer; dest: AnsiString; SrcPos: Integer; SrcAsc: Integer; TmpSrcAsc: Integer; Range: Integer;begin KeyLen := Length(Key)

2022-11-14 98 0

typeTCPUID = array[1..4] of Longint;function GetCPUID: TCPUID; assembler; register;asm PUSH EBX { Save affected register } PUSH EDI MOV EDI, EAX MOV EAX, 1 DW $A20F { CPUID Command } STOSD { CP