join语句的两种算法，分别是：NLJ和BNL 测试数据： create table t1(id int primary key, a int, b int, index(a)); create table t2 like t1; drop procedure idata; delimiter ;; ...
分类：
其他好文 时间：
2019-11-12 00:24:03
阅读次数：
183
step1：在mysql cmd中新建存储过程： drop procedure if exists queryCountByGrade ; delimiter // -- 定义存储过程结束符号为// create procedure queryCountByGrade(IN gradenameinp ...
分类：
数据库 时间：
2019-11-10 15:56:55
阅读次数：
173
生成GUID procedure TForm1.Button1Click(Sender: TObject);var id : TGUID; sGUID : String;begin CreateGUID(id); sGUID := GUIDToString(id); //sGUID := Copy( ...
分类：
其他好文 时间：
2019-11-09 17:46:22
阅读次数：
71
type myGrid = class(TCustomGrid) end; type myInplaceEditList = class(TInplaceEditList) end; procedure TDemoForm.gdDemoGridCellClick(Column: TColumn); ... ...
分类：
数据库 时间：
2019-11-09 13:24:39
阅读次数：
94
上传文件到七牛， 支持分片分段上传， 适用于Delphi XE, 10等新版本 分两个函数： uploadToQiniu 和 directUploadToQiniu uploadToQiniu 这个函数使用分片， 分段的方式上传， 并有上传进度回调， 采用多线程同时进行, 该方法适用于上传较大文件。 ...
procedure TForm1.SaveLog(sFlag:string;MSG:string);var QF1:Textfile; 声明文本文件类型 Qfiletmp,sPath:string;begin try sPath :=ExtractFileDir(ParamStr(0))+'\Saj ...
先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体): {自定义方法: 在窗体上绘制...} procedure MyMethod; var i: Integer; begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form ...
分类：
编程语言 时间：
2019-11-06 15:02:30
阅读次数：
122
if exists (select * from sysobjects where id=object_id('GenerateData') and OBJECTPROPERTY(id, 'IsProcedure') =1 ) Drop Procedure GenerateData go CREAT ...
分类：
数据库 时间：
2019-11-06 13:41:22
阅读次数：
120
用 TFDSQLiteBackup 控件, 两三行代码即可完成 Sqlite 数据库的备份. procedure TForm1.Button1Click(Sender: TObject); begin {先初始化目标} FDConnection1.DriverName := 'SQLite'; FD ...
分类：
数据库 时间：
2019-11-06 13:02:42
阅读次数：
93
可把下面代码直接贴在空白窗体上, 以快速完成窗体设计: 代码: {建立} procedure TForm1.FormCreate(Sender: TObject); const strTable = 'CREATE TABLE MyTable(Id integer PRIMARY KEY AUTOI ...
分类：
数据库 时间：
2019-11-06 12:57:58
阅读次数：
124
