sn:='MATERIAL_SN=:sn'; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('SELECT * FROM SFISM4.R_MATERIAL_EXC_T where '+sn); Query1.ParamByName('sn').AsS
转载
2016-08-06 15:26:00
24阅读
2评论
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then //如果是一个Enter键盘 begin if not (ActiveControl is TDBGrid) then //如果
转载
2020-10-04 15:54:00
103阅读
2评论
I'm a newbie when it comes to creating new events to components... and I noticed that TDBGrid has a OnCellClick, but sadly it doesnt have an OnCellDbl
转载
2020-02-26 00:16:00
120阅读
2评论
由于一些数据感知组件如TDBGrid等是需要用到数据缓存的，这和dbExpress组件的存取机制是矛盾的。所以当打开数据集时会出现如下内容的警告框：“Operation not allowed on a unidirectional dataset”！ 对dbExpress操作中用TDBGrid显示
转载
2019-03-24 06:28:00
39阅读
2评论
一、先在form 中添加TDGrid 二、添加以下3个数据库控件到form中 TADOConnection主要作用是连接数据库(或说连接数据源) TADOQuery组件连接数据源，并在SQL属性中输入SQL语句。（初始数据源Datasou
原创
2013-06-10 14:51:32
2357阅读
一、先在form 中添加TDGrid 二、添加以下3个数据库控件到form中 TADOConnection主要作用是连接数据库(或说连接数据源) TADOQuery组件连接数据源，并在SQL属性中输入SQL语句。（初始数据源Datasource） TDataSource建立与TADODataSet（或
转载
精选
2014-12-09 10:31:20
598阅读
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then //如果是一个Enter键盘 begin if not (ActiveControl is TDBGrid) then //如
转载
2020-09-12 19:19:00
113阅读
2评论
Ctrls;typeTDBGrid=class(DBGrids.TDBGrid) public function DoMou
转载
2010-08-22 11:37:00
60阅读
2评论
//--------------------------------------------------------------------------------
// 功能：返回表字段在 DBGrid 列中的序号，首序号为0
// 参数： pDbGrid:TDbGrid; DBGrid
// pcFieldName : string 数据表字段名
转载
2006-12-15 16:03:00
76阅读
2评论
一.首先令对应的DataSet.BeforeInsert:=InsertData;二.在InsertData中写入procedure TTbfrmMain.InsertData(Dataset:TDataset);begin if (ActiveControl is TDBGrid) then abort; end;
转载
2008-09-23 22:11:00
74阅读
2评论
procedure Tfrm_rk.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then { 判断是按执行键} if not (ActiveControl is TDbgrid) Then Begin { 不是在
转载
2020-11-15 19:54:00
108阅读
2评论
unitDBGridEx;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,Grids,DBGrids;typeTMyInplaceEdit=class(TInplaceEdit)publishedpropertyColor;end;TMyDBGrid=class(TDBGrid)protectedfunctionCreateEditor:TInplaceEdit;override;end;procedureRegister;implementationprocedureRegister
转载
2013-08-21 21:05:00
66阅读
2评论
uses ComObj; //DBGrid:指定的DBGrid;SaveFileName:要保存的文件名 function ExportDBGrid(DBGrid: TDBGrid; SaveFileName: string): boolean; var c,r,i,j: integer; app:
转载
2017-08-18 19:40:00
192阅读
2评论
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then //回車後跳到下一格 begin with TDBGrid(ActiveControl) do if SelectedI
转载
2020-11-15 23:45:00
111阅读
2评论
// uses FireDAC.VCLUI.Wait 之后, 可不用添加 TFDGUIxWaitCursor TFDConnection // 数据连接 TFDQuery // 数据查询 TDataSource // 数据源 TDBGrid // 数据显示 // uses FireDAC.Phys.
原创
2021-05-30 12:55:02
404阅读
这份文档来自国外，粗略看了一下，很有用，推荐给大家学习使用。【Question】： How to do multi-selecting records in TDBGrid? When you add [dgMultiSelect] to the Options property of a DBGr
转载
2020-02-26 00:42:00
53阅读
2评论
//使dbGrid的内容自动适应他的宽度
procedure TForm1.MakeDBGridColumnsAutoFixItsWidth(objDBGrid:TDBGrid);
var
cc:integer;
i,tmpLength:integer;
objDataSet:TDataSet;
aDgCLength:array of integer;
begin
cc:=objD
转载
2015-09-01 00:41:00
252阅读
2评论
https://www.packtpub.com/en-us/product/delphi-cookbook-second-edition-9781785287428/chapter/delphi-basics-1/section/customizing-tdbgrid-ch01lvl1sec11
FireDAC 下的 Sqlite [5] - 数据的插入、更新、删除
先在空白窗体上添加: TFDConnection、TFDPhysSQLiteDriverLink、TFDGUIxWaitCursor、TFDQuery、TDataSource、TDBGrid(并在设计时关联好).
你也可以复制下面
原创
2021-04-30 11:23:58
290阅读
这份文档来自国外，粗略看了一下，很有用，推荐给大家学习使用。【Question】： How to do multi-selecting records in TDBGrid? When you add [dgMultiSelect] to the Options property of a DBGr
转载
2018-12-17 01:18:00
58阅读
2评论
