- 博客(111)
- 资源 (2)
- 收藏
- 关注
RSS订阅原创 mybatis 格式化时间
import com.fasterxml.jackson.annotation.JsonFormat;import org.springframework.format.annotation.DateTimeFormat;//使用注解 annotationJsonFormat@DateTimeFormat(pattern="yyyyy-MM-dd HH:mm:ss")//页面写入数据库时格式化//json 返回格式定义 中国的加8小时 格式严格大小写 @JsonFormat(pattern=".
2022-04-04 16:51:04
1639
原创 回叫信道Datasnap
使用DSClientCallbackChannelManager1组件DataSnap XE3新增回叫信道功能。技术关键点： （1）TDBXCallback机制； （2）TDServer.BroadcastMessage方法； （3）TDSClientCallbackChanneManager1.RegisterCallback方法； 一、回叫的方式 1、服务器端回叫所有（同一信道）客户端 2、客户端回叫（同一信道）的其它客户端 ...
2022-03-19 14:11:34
300
原创 ClientDataSet调用Oracle过程
--过程，但不适合使用临时表作结果返回，因表记录不会删除且存在同一个用户在不同客户端登录如果不删除结果，会造成结果不对CREATE OR REPLACE Procedure P_TempTable(EMPNo in varchar2,EName in varchar2, cur_arg out sys_refcursor) Authid Current_Useris--declare is后面直接 定义变量不用 declare 调用时才用这个 v_StrSql varchar2(2000);.
2022-03-16 09:44:00
233
原创 delphi 重启exe或者重新登录
看了网上好多的方案，有的是kill exe，有的使用另外一个exe去打开自己的应用，经过自己的测试，其实不用这么麻烦，只要两行代码就可以搞定，希望可能帮到大家use WinAPI.shellAPI;ShellExecute(Application.Handle,'open',PChar(Application.ExeName), nil, nil, SW_SHOWNORMAL); Application.Terminate;...
2022-03-04 22:02:12
383
原创 Delphi StringGrid常用属性和常用操作
StringGrid组件用于建立显示字符串的网格，与电子表格相似。它可使表格中的字符串和相关对象操作简单化。StringGrid组件提供了许多可控制网格外观念的属性，以及利用表格的结构响应用户操作的事件和方法。StringGrid具有关联对象与网格中的每个字符串的作用，这些对象为用户封装了字符串表示的信息或行为。一、Delphi StringGrid控件的属性及使用说明1、固定行及固定列： (没有固定行列的时候，不能在运行时调节各个单元格的宽度和高度) StringGrid.FixedC..
2021-12-26 13:19:19
1015
原创 Delphi Interface生成GUID
在鼠标光标处在Delphi的IDE中，按Ctrl+Shift+G键可以为一个接口生成一个新的GUID。
2021-12-03 09:17:46
434
原创 Mysql实现分页
limit分页公式Limit是从0开始为第一条记录的（1）limit分页公式：curPage是当前第几页；pageSize是一页多少条记录limit (curPage-1)*pageSize,pageSize（2）用的地方：sql语句中select * from sys_user limit(curPage-1)*pageSize,pageSize;...
2021-11-19 23:01:21
4221
原创 mysql 存储过程学习
-- 查看 mysql 版本8.0.18 以下内容Navicat Premium 中可正常执行 -- select version(); DROP PROCEDURE IF EXISTS `pro_Test`;DELIMITER $ -- 定义结束符号 也可以是 两个分号 ;; 后面的结束符号 要写这个CREATE DEFINER=`root`@`localhost` PROCEDURE `pro_Test`(IN `UserID` varchar(200),IN `Name` varchar(.
2021-11-19 22:35:21
723
原创 加载dll窗体所遇到问题记录
要在Exe main form中建立好数据库连接procedure TMain.FormCreate(Sender: TObject);var vPage:TRzTabSheet;begin //解决AlphaControls 皮肤 windowState :=wsMaximized 最大化时出现 标题栏出现 黑色块问题 脏读问题 //这个有可能是 AlphaControls 控件对窗体最大化没有渲染好的问题; ClientHeight :=Screen.Height; Cl...
2021-10-24 17:40:51
206
原创 SQL查询表的主建
Oracle:SELECT col.column_nameFROM user_constraints con,user_cons_columns colWHERE con.constraint_name=col.constraint_name and con.constraint_type='P' and col.table_name='EMP';SQLServer:SELECT TABLE_NAME,COLUMN_NAME FROM INFORMA.
2021-10-24 11:37:06
2320
原创 DELPHI 去字符串中所有空格
function trimblank(s: string): string;var i, j: integer;begin repeat i := pos(' ', s); j := length(s); if i > 0 then s := copy(s, 1, i - 1) + copy(s, i + 1, j - i); until i = 0; Result := s;end;转自：https://www.cnblogs.com...
2021-08-19 16:31:19
1448
原创 combobox 禁止输入
ComboBox 有4种输入风格（Style），csDropDownList是只能从列表中选择，不能输入；csDropDown是既可选择，也可手动输入。
2021-08-16 14:30:54
3712
原创 筛选框RzDBCheckBox1 邦定数据源字段值为整数设置方法
在界面上设置RzDBCheckBox1.ValueChecked :=1;RzDBCheckBox1.ValueUnChecked :=0；
2021-07-28 17:20:28
135
原创 FireDAC如何连接ORACLE数据库
FDPhysOracleDriverLink1加入这个驱动器 UniDac对Oracle的Direct连接，不需要安装Oracle客户端dll，deploy时真的是方便又快捷。 FireDac连接Oracle，在没有Oracle Client的情况下，是可以连接上的。前提是需要文件oci.dll、oraocci11.dll、oraociei11.dll、orasql11.dll，这4个dll文件，可以放在Exe同一个目录下，或者path里面能找到得到的地方。有了这4个文件，就可以连接o...
2021-07-13 13:46:28
601
原创 DBGrideh 中查看详情数据或者显示一个面板
DBGrideh1.RowDetailPanel.Active :=True;设计界面出现一个面板在这个面板中添加一个PageControl控件里面可以再添加一个Grid表格可以事件OnRowDetailPanelShow中添加如果代码控制procedure TForm1.DBGridEh1RowDetailPanelShow(Sender: TCustomDBGridEh; var CanShow: Boolean);begin if PageControl1.Activ...
2021-07-13 12:14:27
365
原创 StyleControl Button模板样式
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, cxButtons, scControls, scGPControls, Vcl.Buttons, System.ImageList, Vc.
2021-07-12 09:26:22
507
原创 Style Control TscGPPageControl 样式
--pas--unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, scGPControls, Vcl.ExtCtrls, Vcl.StdCtrls, scExtControls, scGPPagers, scContro.
2021-07-12 09:02:38
589
原创 Datasnap 获取客户端IP
uses Data.DBXTransport;//ServerContainerprocedure TServerContainer.DSServer1Connect(DSConnectEventObject: TDSConnectEventObject);var ci: TDBXClientInfo; ClientID: Integer;begin ci := DSConnectEventObject.ChannelInfo.ClientInfo; ClientID := DSC...
2021-07-11 18:21:06
260
原创 Dev 右键圆形菜单 dxRibbonRadialMenu控件使用
设计视图双击dxRibbonRadialMenu1增加项目增改显示文字增加图标列表代码很简单,从当前鼠标位置打开,屏蔽系统右键procedure TForm1.cxMemo1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);begin dxRibbonRadialMenu1.PopupFromCursorPos; Handled := True;end;点右键最
2021-07-11 18:11:00
441
原创 dxCameraControl控件(拍照)
Developer Express VCL Products 19.1.2主要属性设置Active:TrueDeviceIndex:设备号,默认为0其他方法procedure Capture; //捕获procedure Pause; //暂停procedure Play; //播放procedure Stop; //停止property State: TdxCameraControlState read FState; //设备状态//拍照并在cxImage中显示proc.
2021-07-11 17:46:02
396
原创 DBGrideh 行变色
在事件中判断去变色，10.0版本的偶数行变色，只需设置DBGridEh1.EvenRowColor :=clCream这个是变黄色procedure TForm1.DBGridEh1GetCellParams(Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor; State: TGridDrawState);begin// if MemTableEh1.FieldByName('Populati...
2021-07-11 17:08:37
414
原创 DBGridEh 显示正在截入数据
DBGridEh1查询数据后显示正载入的数据的 等待界面 正在载入数据DBGridEh1.StartLoadingStatus; try MemTableEh1.Close; MemTableEh1.Open; finally DBGridEh1.FinishLoadingStatus; end;
2021-07-10 11:04:03
244
原创 TDBGridEh 隐藏title，隐藏行线，竖线，搜索行的
dfm布局文件中的去掉dgtitles 设置为false dgindicator 为False 即可隐藏标题栏datasource中的Dataset 可以使用 TMemTableEH 控件 作为数据源，里面定义好字段与数据这种的就是写死在程序中不需要连接数据库列内容 居中显示 DBGridEh1.Columns[0].Layout :=tlCenter; 列显示行线的设置不显示设置为FalseDBGridEh1.GridLineParams.DataHorzLines :=Fal..
2021-07-10 10:52:24
539
原创 StyleControls的一些使用方法设置布局
1、首先在项目的options 中 Application中 Appearance 中选择应用的皮肤Default style 下拉选择Windows10 吧 这里主要是用于scStyledForm1 中添加的安扭能显示生效dpr 文件program StyleForm;uses Vcl.Forms, Unit3 in 'Unit3.pas' {Form3}, Vcl.Themes, Vcl.Styles;{$R *.res}begin Application.In.
2021-07-04 14:18:15
1677
原创 oracle中job运行时间比间隔时间还要长
--创建job运行时间记录表create table job_log (log_date date);--创建一个定义间隔为2秒的job，但是，job执行时先把执行时间insert到job_lob表中，接着会sleep 30秒declarejobno number;begindbms_job.submit(jobno, 'insert into job_log values(sysdate); dbms_lock.sleep(30);', sysdate, 'sysdate + 2/24/360
2021-07-01 09:17:39
378
原创 delphi10.3 设置设置自带主题
在项目的工程文件中勾选主题，设置缺省主题为Windows，选择后保存uses Vcl.Themes;procedure TfrmMain.Button1Click(Sender: TObject);begin TStyleManager.SetStyle(ComboBox1.Text);//Windows10主题end;procedure TfrmMain.FormCreate(Sender: TObject);VarStyleName : string;begi...
2021-06-26 16:49:54
816
原创 TDBGridEh表格 lookupParams 使用
客户的：cdsCustomer :TclientDataSet 的CommandText 为下的，中包含了DepartmentID 部门ID，这里不用关联Department 表的DepartmentID字段CommandText :='select top 10 CustomerID,Code,Customer,DepartmentID from Customer ';客户显示的表格如下设置Grideh1.columns[2].FieldName :='DepartmentID'; //部门.
2021-06-20 22:23:05
455
原创 Delphi实现窗体内嵌其他应用程序窗体
在实现细节上需要注意几点：为了美化程序的嵌入效果，需要隐藏其标题栏在外部窗体大小变化时，需要内嵌的窗体也随之变化大小外部程序退出时，内嵌的程序也要退出下面是例子程序。新建窗体，上面放置一个Panel控件，名为pnlApp，然后按下面代码编写unit frmTestEmbedApp; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs.
2021-06-19 11:09:01
1639
原创 Delphi窗体显示Echarts图表
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, DBAccess, Vcl.Menus, System.Actions, Vcl.ActnList, Vcl.StdCtrls, Vcl.OleCtrl.
2021-06-15 15:37:11
472
原创 delphi FastReport fr3使用注意点
MemoView:设置属性Linespceing为0Stretch或者Stretch to Max Height不选 ，好像fastreport4.0的有bug ,有边框时 ，会出现重叠的现象;可能其他版本没有这个版本，这个要根据具体情况来的ReportMinch Rm打印控件是没有这些问题的...
2021-05-28 16:45:21
957
原创 TRzToolbar 的使用与自带的 TToolbar的使用比较
TRzToolbar 的使用与自带的 TToolbar的使用比较特点介绍：TRzToolbar 在delphi 自带的设置中右键添加toolbutton不回ImageList图标控件显示设置TRzToolbar 中的ButtonHeight 为50,ButtonWidth为70,GradientColorStyle 选择gxcCustomer或者其他的设置TRzToolbar 的RowHeight为60，ShowButtonCations 为True，VisuaStyle为vsGradient设.
2020-10-26 15:51:54
737
原创 TMS 控件 制作类似标签页的竖排按扭
procedure TFrmMain.ClearControls(AParent: TWinControl);var i: Integer;begin for i := AParent.ControlCount - 1 downto 0 do begin if not AParent.Controls[i].InheritsFrom(TWinControl) then Continue; try if TWinControl(AParent.Controls[i...
2020-10-23 18:23:57
213
原创 TRzPageControl多页实现单页显示效果
1、子项的所有的TRzTabSheet设置属性TabVisible为False ，再在tabsheet中添加其他的控件如button按扭，panel等控件2、在Form中放在一个按扭实现TRzPageControl的切换功能RzPageControl1.ActivePage :=tabCommonControls当前活动的tabSheet，即可显示包含在它控件内的子控件，button,panel等...
2020-10-23 14:52:56
439
原创 dxNavBar使用问题
devExprss 中的dxNavBar 使用（设置后选中其中的一个）看看有没有这个属性AllowAllUP，如果有设为true没找到AllowAllUP属性，dxNavBar1.AllowSelectLinks :=True，我设ViewStyle=VistaExplorerBarView dxNavBar1.Items.Clear; dxNavBar1.Groups.Clear; //++++++++++++++++++++++++++++++++++++++++++++++..
2020-10-16 15:32:04
696
Raize Inspex 2.6.9 (Supports Delphi 10.3 Rio)
2020-10-23
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人