清风古韵-CSDN博客

原创墨鱼部落格-大量ECMS，开发笔记值得学习

https://www.moyublog.com/

2018-12-29 19:18:56 614

原创帝国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 1039

原创帝国cms 7.5 动态页面模板管理编辑区总是高度不足的处理方法:

修改文件：e\admin\openpage\adminpage.php中93行 iframe 的高度为2000px即可

2018-12-29 15:03:19 427

转载 vscode编辑器在php文件中的html/js格式化解决方案

本人使用laravel框架，因为页面很多都是用php文件渲染的，所以很多html和js都是在php文件中，用prettier插件不能识别php文件中的html内容，导致无法执行自动格式化代码，如果要我手动去一个个调整的话，想想就可怕本想问问度娘结果，结果没人有类似的，然后直接看settings.json文件去了，发现了files.associations:{}，可以设置识别php文件里面的ht...

2018-12-26 14:24:42 1927

转载帝国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 2472

原创 [原创]企业会员空间新风格比官方默认的漂亮N多

http://bbs.phome.net/showthread-31-174876-0.html

2018-12-23 16:40:14 226

转载帝国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 2632

转载帝国cms模板辅助编辑插件lsk_ecms.crx使用说明

2018-12-23 16:15:22 471

原创蓝屏000001A，这是CPU问题，一般是CPU太热造成的，需要检查风扇和散热器

这种蓝屏出现多次，经检查确实为CPU风扇太老，散热器非常烫手，鲁大师显示40-50度。风扇转速1200转（其实是假的，可以用眼直观看到，风扇非常慢）。换新风扇后，竟然热度不减，鲁大师显示转速1200转，按说转速正常，这就奇怪了，再拆机检查，感觉风扇转速不太快，换了一个电源口，风扇立即转速提升，CPU温度很降到30度左右，问题就些解决。本例说明鲁大师显示风扇转速非常不准，不要看这个转速，容易...

2018-12-07 09:23:06 4299

原创 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 398

转载 linux查看系统的日志的一些实用操作

last-a 把从何处登入系统的主机名称或ip地址，显示在最后一行。-d 指定记录文件。指定记录文件。将IP地址转换成主机名称。-f <记录文件> 　指定记录文件。-n <显示列数>或-<显示列数> 　设置列出名单的显示列数。-R 不显示登入系统的主机名称或IP地址。-x 显示系统关机，重新开机，以及执行等级的改变等信息以下看所有的重启、关机记...

2018-12-01 09:47:09 253

原创一个强大的ico，图片资源网站，http://findicons.com

http://findicons.hhttp://findicons.comttp://findicons.com

2013-07-02 15:51:50 2845

原创 dxSkinsUserSkin皮肤的动态使用方法

dxSkinsUserSkinLoadFromFile(filelistbox1.FileName);//设置皮肤生效FileListBox1.Directory:='C:\Users\Administrator\Desktop\dxskin\skinfile';设置皮肤文件读取出来devexpres中设置的自带菜单无法自动换肤，需要设置一下style=lookandfeel才可以。

2013-07-01 14:07:44 1323

原创完美实现tabsheet中融合窗体，不重复创建，并自动切换到已经创建的sheet

procedure TForm1.btn1Click(Sender: TObject); //功能说明点击时，创建窗口并显示到sheet中，再并点击时如果已经有则不再创建； //如果已经有打开的则要切换成当前活动的。项目设置中取消指定窗体的自动创建 var i:Integer; begin if Application.

2013-06-28 10:26:14 1900

转载 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 1564

原创【转载】[转]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 1392

原创【转载】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 581

原创 DBGridEh设置固定列，用于统计记录数和平均数、总和

DBGridEh1.FooterRowCount:=1; DBGridEh1.SumList.Active:=True; DBGridEh1.FootColor:=clInfoBk; DBGridEh1.Columns[0].Footer.ValueType := fvtStaticText; DBGr

2013-06-24 13:56:52 4097

原创 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 3775 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 5896

原创 delphi 中进度条控件常用到的属性

ProgressBar1.Max:=5000;//最大值progressbar1.Step:=1;//步长progressbar1.Position:=i;//当前进度位置。smooth=true;//光滑进度样式。

2013-06-24 13:56:45 1392

原创 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 1387

原创判断窗体是否创建，没有则创建后显示

//form1.Show; if form1=nil then Form1 := TForm1.Create(nil);// Application.CreateForm(TForm2, Form2); form1.show;

2013-06-24 13:56:40 1230

原创 delphi DBgrid 数据随着鼠标滚动而滚动！

首先要在窗体放一个ApplicationEvents控件，在onApplicationEvents 事件中加入以下代码（第一法：只对指定名的控制起作用，第二个对类起作用）begin if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then begin

2013-06-24 13:56:38 1096

原创 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 1993

原创 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 793

原创 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 1448

原创只允许运行一个实例的三种方法

一、创建互斥对象在工程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 1824

原创最精简的小写金额转大写的函数

function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';cCha:array[0..1, 0..12]of string =(( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','

2013-06-24 13:56:27 665

原创释放资源文件中的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 1674

原创 delphi网络时间校对

网络时间校对procedure setLocalDateTime(Value: TDateTime);var lSystemDateTime: TSystemTime;begin DateTimeToSystemTime(Value, lSystemDateTime); SetLocalTime(lSystemDateTime);end;

2013-06-24 13:56:23 1679

原创输入数字并且只能输入一个小数点

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 1036

原创自带的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 784

原创 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 664

原创 Edit控件的外观只有一条下划线

实现部分：无须编写代码，只要设置一下控件属性需要修改这些属性： BorderStyle改为bsNone BevelKind改为bkSoft BevelEdges下的项目中只将beBottom设为True，其余设为False 为了美观，最好再将Ctl3D设置为False。

2013-06-24 13:56:14 685

原创 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 755

原创 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 703

原创 StyleBook皮肤控件的使用

StyleBook 介绍及VICEN对皮肤控件的一些看法可以说StyleBook的出现，简直是皮肤控件厂商的噩梦，因为用户可以通过StyleBook快速切换控件样式，而不需要在去购买第三方换肤控件，对于免费并且是官方集成的StyleBook来说，优势不言而喻。因此，以后的皮肤控件除非有自己的特色，例如Raize，提供了很多系统没有的控件，并且有自己的独特的外形风格，否则很难在发展下去。我们很期待有

2013-06-24 13:56:07 1277

原创 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 908

原创 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 4542