delphi
lao_yunger
这个作者很懒,什么都没留下…
展开
-
delphi 批理插入
var iIndex: Integer;begin FDQuery1.Params.ArraySize := iRecord;//一次性插入条数 for iIndex := 0 to iRecord - 1 do begin//读入数据// FDQuery1.insert// FDQuery1.fieldbyname('XXX').value:=''yyyy'' end;// for iIndex := 0 to iRecord - 1 do fdqryI...原创 2020-11-12 17:35:48 · 467 阅读 · 0 评论 -
调用TListView事件
procedure TfrmMainform.FormActivate(Sender: TObject); -//-fmx窗口begin DisplayAllSeminars; //显示所有记录 if ListView1.Items.Count>=0 then begin ListView1.ItemIndex:=0; //TListViewItem = class(TListItem) 设置默认选择第一个 ListV...原创 2020-11-12 15:46:34 · 115 阅读 · 0 评论 -
TcxDBPivotGrid 初步使用
运行 结果设计步骤简单说明把TcxDBPivotGriD拖到窗口,设置DataSource,在TcxDBPivotGriD右击选择Designer,出现如下图有几个字段就按几次ADD选择FieldS下的cxDBPivotGrid1FieldX ,在对象 窗口设置好属性,常见的属性有Area; Caption,FieldName,DataVisibility ;...原创 2020-01-09 15:19:36 · 807 阅读 · 0 评论 -
delphi 调用带有返回值的sql SERver 2008 存储过程
存储过程内容如下:SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGO-- =============================================-- Author: Author,,Name-- Create date: Create Date,,-- Description: Descriptio...原创 2020-01-03 19:20:33 · 588 阅读 · 0 评论 -
cxDBLookupComboBox 使用入门
部门表结构如下'SELECT [fID] ,[fParentID] ,[fParentCode] ,[fCode] ,[fName] ,[fDeptManager] ,[fAddress] ,[fTel] ,[fFax] ,[fEmail] ,[fStatus] ...原创 2019-12-30 17:09:13 · 939 阅读 · 0 评论 -
delphi 另类输入TABLE默认值
有一sql server TABLE fStatus如图在DELPHI 中输入默认值的方法是(某个字段插入相同的值);再继续在DefaultExpressionr后面输入自己想要的表达式,我 这里输入1=1 ,因为要输入Fstatu的值为TURE,所以只要能产生TURE的表达式都行,也可 用A=A ,B=B之类表达式,如下图这样操作之后, 插入记录时...原创 2019-12-05 19:30:25 · 162 阅读 · 0 评论 -
自定义数据导航 、增删改
自定义数据导航 、增删改:效果如下图,仅当做笔记本,老鸟勿喷:代码如下:type TForm1 = class(TForm) DBGrid1: TDBGrid; nbFirst: TButton; nbPrior: TButton; nbNext: TButton; nbLast: TButton; nbDelete: TButto...原创 2019-12-05 10:36:01 · 331 阅读 · 0 评论 -
冒泡排序,快速排序
unit Unit3;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm3 = c...原创 2019-11-03 15:06:42 · 116 阅读 · 0 评论 -
用线程 计算 水仙花数
unit NarcissisticnumberU;interface uses Classes, System.SysUtils,math ; type TNarcissisticnumbeThread=class;//定义一个水仙花数类 TOnRuned =procedure(sender:TNarcissisticnumbeThread ) of ob...原创 2019-11-02 21:07:23 · 449 阅读 · 0 评论 -
DELPHI XE 10.3 三层数据库应用 尝鲜 之三 关闭连接等 成品了
继续上一节//服务端unit uServerdm;interfaceuses System.SysUtils, System.Classes, System.Win.ScktComp;type TdmServer = class(TDataModule) private { Private declarations } public { Publ...原创 2019-07-22 11:23:13 · 881 阅读 · 0 评论 -
DELPHI XE 10.3 三层数据库应用 尝鲜 之二 取得客户端信息
继续上一节服务端://------>在ClientRead中可取得客户端活动ID,IP,PORT,以及其它信息procedure TForm2.SSKServerClientRead(Sender: TObject; Socket: TCustomWinSocket);varsmsg,sRemoteaddress,sRemotePort,sRemoteHost:string...原创 2019-07-20 20:18:27 · 637 阅读 · 0 评论 -
DELPHI XE 10.3 三层数据库应用 尝鲜 之一
按照https://blog.csdn.net/qq_25439957/article/details/90293387安装好TServerSocket和TCLIENTSocket;在DELPHI XE10.3中新建一个 VCL应用。取名为Pserver,配置如下object SSKServer: TServerSocket Active = True Port = 201...原创 2019-07-20 19:13:12 · 2412 阅读 · 0 评论 -
对数字字符串进行排序
未排序前字符串Fcode列表如下:在sql server 2008用以下命令排序SELECT [fID] ,[fParentID] ,[fParentCode] ,[fCode] ,[fName] ,[fNotes] FROM [ClothingTem].[dbo].[tProductType] where fPa...原创 2019-07-05 21:03:28 · 5138 阅读 · 0 评论 -
TFDMemTable 更新到数据库
设计界面codeobject Form2: TForm2 Left = 0 Top = 0 Caption = 'Form2' ClientHeight = 569 ClientWidth = 812 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowT...原创 2019-06-27 13:43:23 · 1145 阅读 · 0 评论 -
动手生成 Delphi xe DBTreeview 三级行政图树 省市县
表结构及记录object tarea: TFDQuery Connection = FDConnection1 SQL.Strings = ( 'select *' 'from tArea order by fParentCode') Left = 160 Top = 240 endobject tv: TTreeView...原创 2019-06-22 21:37:52 · 603 阅读 · 0 评论 -
动手生成 Delphi xe DBTreeview
tProductType表结构如下object FDConnection1: TFDConnection Params.Strings = ( 'Database=ClothingTem' 'User_Name=sa' 'Password=123' 'Server=(local)' 'DriverID=MSSQL')...原创 2019-06-21 22:10:49 · 615 阅读 · 0 评论 -
日期时间 字符转换串 万能法则
需要的函数或过程有DecodeDateTime EncodeDateTime 从其所有部分编码DateTime值 EncodeDateMonthWeek 将年,月,星期和星期几编码为DateTime值 EncodeDateWeek ...原创 2019-05-31 13:06:13 · 143 阅读 · 0 评论 -
delphi xe 10.3 firemonkey stringdrig 插入,删除,添加
delphi xe 10.3 firemonkey stringdrig 插入,删除,添加原创 2019-03-08 13:44:19 · 1415 阅读 · 0 评论 -
delphi TObjectDictionary使用范例
delphi TObjectDictionary使用范例运行时界面:原创 2019-03-17 19:36:42 · 2332 阅读 · 0 评论 -
FireDAC 运行时动态创建连接文件
FireDAC 运行时动态创建连接文件原创 2019-03-13 17:29:23 · 1204 阅读 · 0 评论 -
使用RAD Studio 10 Seattle创建自定义按钮样式
delphi xe 10.3 动感按钮 ,FIREMONKEY转载 2019-03-31 18:37:10 · 703 阅读 · 1 评论 -
delphi xe QQ式分类按钮 CategoryPanelGroup1
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 595 ClientWidth = 945 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Heigh...原创 2019-03-27 21:48:49 · 760 阅读 · 0 评论 -
delphi xe 10分组按钮CategoryButtons 折叠按钮
设计时界面:代码如下:object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 230 ClientWidth = 261 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowT...原创 2019-03-28 12:05:25 · 1196 阅读 · 0 评论 -
delphi xe 并行 多线程 队列 TCriticalSection TMutex TSpinlock TMonitor
直接上图:运行结果如下:如代码如下:unit Unit5;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialog...翻译 2019-04-21 13:03:17 · 1762 阅读 · 0 评论 -
firedac datasnap 统计记录数里需加把回记录指针移动最后。
function TServerMethods1.getSalesPersonID(CONST vid :integer):integer;begin try FDQSalesPersonID.Active:=false; FDQSalesPersonID.Params[0].Value:=vid ; FDQSalesPersonID...原创 2019-04-14 20:19:24 · 168 阅读 · 0 评论 -
动态输入指定数量的空格
win7 64 +delphixe 10.3运行效果如下:代码如下procedure TForm5.Button1Click(Sender: TObject);vari,j:integer;begin for I := 0 to 9 do memo1.Lines .add(string.Create(chr(i+48),i)); memo1.L...原创 2019-04-18 11:29:35 · 614 阅读 · 0 评论 -
Delphi 助手Helpers的用法
Delphi 助手Helpers的用法原创 2019-04-23 11:18:49 · 1109 阅读 · 0 评论 -
delphi 助手helper应用之二 线程助手
测试平台 win7 64+ delphixe 10.3功能:多线程访问同一个文档界面:主界面代码:unit MainFormU;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Vcl.Graphics, Vcl.Controls, Vcl.Forms, ...翻译 2019-04-23 13:15:19 · 424 阅读 · 0 评论 -
delphi xe 遍历指定文件夹下所有的文本文件内容
遇到 的小问题:想把所有PAS文件中包含‘c_AppEdition’内容的文件筛选出来用DELPHI XE10.3处理代码如下,当作笔记本unit Unit12;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics...原创 2019-05-24 14:17:32 · 1681 阅读 · 0 评论 -
delphi xe 遍历指定数据库,清空各表记录
要咱清空一个有接近100张表的数据库,手工一张一张的清空,烦!尝试以下代码可实现 。记得备份数据var Form10: TForm10;implementation{$R *.dfm}procedure TForm10.Button1Click(Sender: TObject);var i :integer;begin for i:=0 to ListB...原创 2019-05-22 11:20:59 · 619 阅读 · 0 评论 -
程序运行时更改程序外观
新建自己的VCL程序,在PROJECT>OPTIONS>Application>Appearance 下选择好自己喜欢的几个样式如下图 然后按OK。在窗口中放置PANNEL,顶部对齐;LISTBOX控件居中对齐;底部放置一个BUTTON按钮,结果如下图代码如下unit Unit1;interfaceuses Winapi.Windows, ...原创 2018-10-24 16:01:47 · 228 阅读 · 0 评论