- 博客(253)
- 资源 (7)
- 收藏
- 关注
原创 帝国cms搜索模板支持灵动标签和万能标签(支持到7.2-7.5)
1,打开 /e/search/result/index.php 文件 查找 require("../../class/connect.php"); require("../../class/db_sql.php"); require("../../data/dbcache/class.php"); require("../../class/q_fun...
2018-12-29 17:01:10 1049
原创 帝国cms 7.5 动态页面模板管理 编辑区 总是高度不足的 处理方法:
修改文件:e\admin\openpage\adminpage.php中93行 iframe 的高度为2000px即可
2018-12-29 15:03:19 434
转载 vscode编辑器在php文件中的html/js格式化解决方案
本人使用laravel框架,因为页面很多都是用php文件渲染的,所以很多html和js都是在php文件中,用prettier插件不能识别php文件中的html内容,导致无法执行自动格式化代码,如果要我手动去一个个调整的话,想想就可怕本想问问度娘结果,结果没人有类似的,然后直接看settings.json文件去了,发现了files.associations:{},可以设置识别php文件里面的ht...
2018-12-26 14:24:42 1942
转载 帝国cms结合项如何实现多条件查询
帝国cms结合项如何实现多条件查询https://www.yangqq.com/jstt/web/885.html杨青青2018-07-06【网站建设教程】1611人已围观简介实现多条件的筛选,下载帝国官方给出的插件,然后再在数据库表新建字段1、下载插件https://pan.baidu.com/s/1KldzKOYFXwm9VysUTn8NrQ2、打开“fieldand.txt...
2018-12-24 10:13:50 2488
转载 帝国ECMS7.5 批量添加栏目插件
http://bbs.phome.net/showthread-42-359403-0.html批量添加栏目,适合栏目众多的站点建站安装方法:上传到e/extend/登录后台,访问e/extend/addtree/install.php?ehash_xhKYY=IOZqFoy10bVfofMj7sgz回到后台插件管理即可使用插件更新请关注http://www.bnxf.net/yua...
2018-12-23 16:25:01 2644
转载 帝国cms模板辅助编辑插件lsk_ecms.crx使用说明
通过浏览器插件,效果不错2018年02月11日 17:06:41 小和尚敲代码代码 阅读数:268 版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/ktucms/article/details/79311936话不多说,看图使用方法:激活:在编辑区按alt+win取消激活:按ctrl+win输入可使用emmet的...
2018-12-23 16:15:22 479
原创 蓝屏000001A,这是CPU问题,一般是CPU太热造成的,需要检查风扇和散热器
这种蓝屏出现多次,经检查确实为CPU风扇太老,散热器非常烫手,鲁大师显示40-50度。风扇转速1200转(其实是假的,可以用眼直观看到,风扇非常慢)。换新风扇后,竟然热度不减,鲁大师显示转速1200转,按说转速正常,这就奇怪了,再拆机检查,感觉风扇转速不太快,换了一个电源口,风扇立即转速提升,CPU温度很降到30度左右,问题就些解决。本例说明鲁大师显示风扇转速非常不准,不要看这个转速,容易...
2018-12-07 09:23:06 4327
原创 cmf模板中直接使用php,并且可以按thinkphp的控制器中的功能直接写
在前台模板中,我们直接用thinkphp的写法 查询数据库如下:/index.html 模板首页查询并输出所有导航栏目的名子 <php> $re=db('nav_menu')->select();//查询一条数据 //dump($re); foreach($re as $key=>$link){ ...
2018-12-01 14:19:49 409
转载 linux查看系统的日志的一些实用操作
last-a 把从何处登入系统的主机名称或ip地址,显示在最后一行。-d 指定记录文件。指定记录文件。将IP地址转换成主机名称。-f <记录文件> 指定记录文件。-n <显示列数>或-<显示列数> 设置列出名单的显示列数。-R 不显示登入系统的主机名称或IP地址。-x 显示系统关机,重新开机,以及执行等级的改变等信息以下看所有的重启、关机记...
2018-12-01 09:47:09 261
原创 一个强大的ico,图片资源网站,http://findicons.com
http://findicons.hhttp://findicons.comttp://findicons.com
2013-07-02 15:51:50 2859
原创 dxSkinsUserSkin皮肤的动态使用方法
dxSkinsUserSkinLoadFromFile(filelistbox1.FileName);//设置皮肤生效FileListBox1.Directory:='C:\Users\Administrator\Desktop\dxskin\skinfile';设置皮肤文件读取出来devexpres中设置的自带菜单无法自动换肤,需要设置一下style=lookandfeel才可以。
2013-07-01 14:07:44 1332
原创 完美实现tabsheet中融合窗体,不重复创建,并自动切换到已经创建的sheet
procedure TForm1.btn1Click(Sender: TObject); //功能说明 点击时,创建窗口并显示到sheet中,再并点击时如果已经有则不再创建; //如果已经有打开的则要切换成当前活动的。项目设置中取消指定窗体的自动创建 var i:Integer; begin if Application.
2013-06-28 10:26:14 1905
转载 Application.CreateForm中参数的问题
procedure CreateMyForm(const FormClassName, FormName : string);begin if Application.FindComponent(FormName)=nil then begin if GetClass(FormClassName) with TForm(TComponentClass(Fi
2013-06-28 10:24:08 1571
原创 【转载】[转]DBGridEh 的使用
1 序言 2 DBGridEh(增强型表格组件)功能详解 3 应用实例 3.1 定制标题行 3.1.1 制作复杂标题行 3.1.2 标题行显示图片 3.1.3 自动显示标题行的升降排序标志符(▽降序△升序)并做相应排序 3.2 定制表格底部(footer)区域的汇总统计行 3.3 定制表格数据单元外观 3.3.1 根据不同字段值显示相应的小图片 3.3.2 显示检查框(checkbox)外观 3.
2013-06-24 13:56:56 1402
原创 【转载】DELPHI操作excel(转)
DELPHI操作excel(转) (一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( ''Excel.Application'' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '
2013-06-24 13:56:54 583
原创 DBGridEh设置固定列,用于统计记录数和平均数、总和
DBGridEh1.FooterRowCount:=1; DBGridEh1.SumList.Active:=True; DBGridEh1.FootColor:=clInfoBk; DBGridEh1.Columns[0].Footer.ValueType := fvtStaticText; DBGr
2013-06-24 13:56:52 4110
原创 Ehlib 在 Delphi 7 中的安装(dbgrideh)
Delphi 7中的安装方法 1. 把 EhLib 中的 common 和 DataService 文件拷贝到 Delphi7 目录中. 2.在 TOOLS->Environment Options->Library->Library Path 中添入EHLIB路径。 3.打开新建文件夹中的 EHLIB70.DPK ,编译一下,但不要安装。 4.打开Ehlib中的DclEhLib70.DP
2013-06-24 13:56:49 3778 1
原创 用sql进行表的插入数据行,空白行,删除行,修改行
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ComObj;type TForm1 = class(TForm) ADOConnection1
2013-06-24 13:56:47 5905
原创 delphi 中进度条控件常用到的属性
ProgressBar1.Max:=5000;//最大值progressbar1.Step:=1;//步长progressbar1.Position:=i;//当前进度位置。smooth=true;//光滑进度样式。
2013-06-24 13:56:45 1403
原创 VB中的DoEvents命令,在Delphi中与其对应命令
Application.ProcessMessages作用防止进程阻塞,使程序能够响应消息队列中的其他事件。 实例:var i:integer;beginfor i:=0 to 500000 dobeginlabel3.Caption:=inttostr(i+1);Application.ProcessMessages;//注意这里噢,如果没有这条,系统将假死,加上这句后label3将即时显
2013-06-24 13:56:43 1397
原创 判断窗体是否创建,没有则创建后显示
//form1.Show; if form1=nil then Form1 := TForm1.Create(nil);// Application.CreateForm(TForm2, Form2); form1.show;
2013-06-24 13:56:40 1239
原创 delphi DBgrid 数据随着鼠标滚动而滚动!
首先要在窗体放一个ApplicationEvents控件,在onApplicationEvents 事件中加入以下代码(第一法:只对指定名的控制起作用,第二个对类起作用)begin if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then begin
2013-06-24 13:56:38 1099
原创 delphi 把窗体上的所有EDIT清空
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to self.ComponentCount-1 do begin if (self.Components[i] is Tedit) then begin Tedit(Components[i]).Clear;; end; end; end;
2013-06-24 13:56:36 2005
原创 Delphi Excel 操作大全
(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microsoft Ex
2013-06-24 13:56:34 799
原创 Delphi 去掉MDI窗口的滚动条
在MDI主窗体中如下代码:Function ClientWindowProc( wnd: HWND; msg: Cardinal; wparam, lparam: Integer ): Integer; stdcall; Var pUserdata: Pointer; Begin pUserdata:= Pointer( GetWindowLong( wnd, GWL_USERDATA )); C
2013-06-24 13:56:32 1458
原创 只允许运行一个实例的三种方法
一、创建互斥对象在工程project1.dpr中创建互斥对象Program project1UsesWindows,Form,FrmMain in 'FrmMain.pas' {MainForm};{$R *.res}varhAppMutex: THandle; //声明互斥变量begin hAppMutex := CreateMutex(nil, false,’projectname’)
2013-06-24 13:56:29 1828
原创 最精简的小写金额转大写的函数
function NumToChar(const n: Real): string; //可以到万亿,并且可以随便扩大范围const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';cCha:array[0..1, 0..12]of string =(( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','
2013-06-24 13:56:27 674
原创 释放资源文件中的exe文件并运行
delphi 释放资源文件中的exe文件并运行制作资源文件我就不用说了吧,下面是怎样释放并运行文件Res := TResourceStream.Create(Hinstance, 'aaa.exe', 'aaa');Res.SavetoFile('aaa.exe');winexec('aaa.exe',sw_Normal);
2013-06-24 13:56:25 1682
原创 delphi网络时间校对
网络时间校对procedure setLocalDateTime(Value: TDateTime);var lSystemDateTime: TSystemTime;begin DateTimeToSystemTime(Value, lSystemDateTime); SetLocalTime(lSystemDateTime);end;
2013-06-24 13:56:23 1691
原创 输入数字并且只能输入一个小数点
edit中只能输入数字并且只能输入一个小数点在edit的keypress事件加入如下代码即可if not (key in ['0'..'9','.']) then //只能输入数字及小数点,还想控制只让输入什么,自己在[]中自己填加key:=#0;if (key=’.') and (Pos(‘.’,Edit1.Text)>0) then //如果输入的是小数点,并且前面已有小数点就不让输入了key
2013-06-24 13:56:20 1041
原创 自带的Indy控件实现MD5加密
在Delphi里实现MD5加密其实很容易!方法如下:在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码即可以达到MD5的实现。 示例代码 procedure TForm1.Button1Click(Sender: TObject); var MyMD5: TIdHashMessageDigest5; Digest: T4x4LongW
2013-06-24 13:56:18 791
原创 dbgird中导出到excel函数
函数procedure CopyDbDataToExcel(Args: array of const);variCount, jCount: Integer;XLApp: Variant;Sheet: Variant;I: Integer;beginScreen.Cursor := crHourGlass;if not VarIsEmpty(XLApp) thenbeginXLApp.Displa
2013-06-24 13:56:16 671
原创 Edit控件的外观只有一条下划线
实现部分: 无须编写代码,只要设置一下控件属性 需要修改这些属性: BorderStyle改为bsNone BevelKind改为bkSoft BevelEdges下的项目中只将beBottom设为True,其余设为False 为了美观,最好再将Ctl3D设置为False。
2013-06-24 13:56:14 693
原创 delphi 限制文本框中只接受数字
在窗体上,放一个TEXTBOX 和BUTTON,当在TEXTBOX中输入非数字时,如果点击BUTTON,则进行人机对话框作出提示:procedure TForm1.Button1Click(Sender: TObject);vari:integer;beginfor i:= 1 to length(edit1.text) doif not(edit1.text[i] in ['0'..'9'])
2013-06-24 13:56:11 762
原创 DBGRIDEH 组件,速达2000中应用了该组件
DBGRIDEH 是Enlib 3.0组件包中的组件之一。Enlib 3.0组件包是一位俄国人为增强Borland系列开发工具功能而开发的第三方组件,它具有界面友好、功能强大、开发效率高、、快速制作预览/打印简单中国式报表等特点。因此,一推出即受到广大Borland程序员的青睐。目前这个版本支持Borland Delphi versions 4,5,6&7 和 Borland C++ Builde
2013-06-24 13:56:09 710
原创 StyleBook皮肤控件的使用
StyleBook 介绍及VICEN对皮肤控件的一些看法可以说StyleBook的出现,简直是皮肤控件厂商的噩梦,因为用户可以通过StyleBook快速切换控件样式,而不需要在去购买第三方换肤控件,对于免费并且是官方集成的StyleBook来说,优势不言而喻。因此,以后的皮肤控件除非有自己的特色,例如Raize,提供了很多系统没有的控件,并且有自己的独特的外形风格,否则很难在发展下去。我们很期待有
2013-06-24 13:56:07 1282
原创 Delphi 7 中DBGrid的排序
procedure TfrmTraceReport.DBGrid1TitleClick(Column: TColumn);var SortField, FieldTitle: string;begin SortField := Column.Field.FieldName; FieldTitle := Column.Title.Caption; ShowMessage(SortField
2013-06-24 13:56:05 914
原创 IsNumeric 判断字符串是否为数字
IsNumeric 判断字符串是否为数字,如果是数字返回true,如果包含有汉字或字符的话返回false. 由于Delphi本身没有IsNumeric这个函数,不像其它语言,这个函数相当于Java的IsNaN函数。delphi代码function IsNumeric(AStr: string): Boolean; var Value: Double; Code: Integer; begin Va
2013-06-24 13:56:02 4545
帝国ECMS7.5 批量添加栏目插件
2018-12-23
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人