06 2019 档案

ListView中用鼠标拖动各项上下移动的问题。(100分)
摘要:在OnDragDrop事件中處理:以下是delphi的例子procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);beginAc 阅读全文

posted @ 2019-06-29 12:01 癫狂编程 阅读(409) 评论(0) 推荐(0) 编辑

Delphi中实现文件拷贝的三种方法
摘要:1.调用API函数procedure CopyFile(FromFileName,ToFileName:string);varf1,f2:file;BeginAssignFile(f1,FromFileName); file://指定源文件名AssignFile(f2,ToFileName); fi 阅读全文

posted @ 2019-06-25 15:46 癫狂编程 阅读(4571) 评论(0) 推荐(0) 编辑

Delphi GetDir 获取指定驱动器的当前路径名
摘要://获取指定驱动器的当前路径名 GetDirvardir: string;b: Byte;beginb := 0;GetDir(b,dir);ShowMessage(dir); // //第一个参数: 1、2、3、4...分别对应: A、B、C、D...//0 是缺省驱动器end; 阅读全文

posted @ 2019-06-24 21:03 癫狂编程 阅读(445) 评论(0) 推荐(0) 编辑

Delphi ClientDataSet复制记录
摘要:数据源记录集:ClientDataSetSource;目标记录集:ClientDataSetCopy 1)复制一条记录。 ClientDataSetCopy.Close; ClientDataSetCopy.Fields.Clear; ClientDataSetCopy.FieldDefs.Clea 阅读全文

posted @ 2019-06-24 18:13 癫狂编程 阅读(549) 评论(0) 推荐(0) 编辑

DELPHI 通用的数据记录复制过程
摘要://表名,关键字段名,单条内容的SQL语句,产生新记录的值 function Tfrmdmmain.CopyTbale(const tablename, fileldname, swhere, newfileldstring: string): integer; var sql,sqlstring,sqlvalue,newsqlvalue:string; i:integer; ... 阅读全文

posted @ 2019-06-24 18:11 癫狂编程 阅读(757) 评论(0) 推荐(0) 编辑

如何禁止在DBGRID末位自动添加一行记录
摘要:procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); begin if TDataSource(Sender).DataSet.Eof then TDataSource(Sender).DataSet.Cancel; end; 用DBGridEh吧,只要设置属性alopAppendEh为false即... 阅读全文

posted @ 2019-06-22 20:57 癫狂编程 阅读(444) 评论(0) 推荐(0) 编辑

DELPHI加密字串(异或运算加密)
摘要:首先有两个自定的转换函数: function myStrToHex(s:string):string; //字串转16进制 var TmpStr:string; i:integer; begin TmpStr:=''; for i:=1 to Length(s)do TmpStr:=TmpStr+IntToHex(ord(s[i]),2)... 阅读全文

posted @ 2019-06-18 22:50 癫狂编程 阅读(760) 评论(0) 推荐(0) 编辑

SQL SERVER 正则替换
摘要:RegExp对象提供简单的正则表达式支持功能: 1.Global属性设置或返回一个 Boolean 值,该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。 语法: object.Global [= True | False ] object 参数总是 RegExp 对象。如果搜索应用于整个字 阅读全文

posted @ 2019-06-13 17:54 癫狂编程 阅读(6906) 评论(0) 推荐(0) 编辑

sql里的正则表达式
摘要:SQL语句还可以搭配正则表达式作为查询条件,很是有用。 REGEXP_LIKE(匹配)REGEXP_INSTR (包含)REGEXP_REPLACE(替换)REGEXP_SUBSTR(提取) 表 1:定位元字符 表 2:量词或重复操作符 表 3:预定义的 POSIX 字符类 表 4:表达式的替换匹配 阅读全文

posted @ 2019-06-13 17:34 癫狂编程 阅读(16432) 评论(0) 推荐(1) 编辑

UFIDA
摘要:充分匹配了‘用友’的中文品牌的含义,即‘与用户真诚合作,做用户可靠朋友’。其中‘U’代表‘User’,即用户;‘FID’表示忠诚、信任,来源于 Fidelity(诚实)等英文词的词根;助音词‘A’放在结尾则使得‘UFIDA’更易于朗读和记忆。 缩写的含义 缩写的含义 同时,新名称很好地反映了用友‘诚 阅读全文

posted @ 2019-06-13 10:20 癫狂编程 阅读(513) 评论(0) 推荐(0) 编辑

delphi raise 语句: 抛出异常
摘要://例1:begin raise Exception.Create('抛出异常');end;//例2:begin raise Exception.CreateFmt('%s %d', ['错误代码:', 999]);end;//例3:var exc: Exception;begin exc := E 阅读全文

posted @ 2019-06-12 16:12 癫狂编程 阅读(4028) 评论(0) 推荐(0) 编辑

delphi怎么一次性动态删除(释放)数个动态创建的组件?
摘要:比如procedure TForm1.Button1Click(Sender: TObject);vari:Integer;lbl: TLabel;beginfor i:=1 to 3 dobeginlbl:= TLabel.Create(Application);lbl.Parent := Sel 阅读全文

posted @ 2019-06-12 13:18 癫狂编程 阅读(1094) 评论(0) 推荐(0) 编辑

Delphi动态创建组件,并释放内存
摘要:开发所用delphi版本是xe2,效果图如下: 代码如下: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 阅读全文

posted @ 2019-06-12 13:15 癫狂编程 阅读(779) 评论(0) 推荐(0) 编辑

DELPHI 动态 创建和释放 多个 EDIT 控件
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) pnl1: TPanel; btn1: T... 阅读全文

posted @ 2019-06-12 13:13 癫狂编程 阅读(588) 评论(0) 推荐(0) 编辑

禁止在DBGrid中按delete删除记录
摘要:procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (ssctrl in shift) and (key=vk_delete) then key:=0;end; 阅读全文

posted @ 2019-06-12 11:00 癫狂编程 阅读(258) 评论(0) 推荐(0) 编辑

想让领导放权,就先让领导放心(深度好文)
摘要:有人的地方,就是江湖。在职场的江湖上,有能力的你是桀骜不驯还是顺应潮流,取决于你对规则的理解和敬意。 我之前在某公司做业务,到公司没多长时间就新来了一名同事。当时部门经理手把手的教他业务内容,他还一副我什么都懂的样子。 一次经理分配给他一个任务,晚上回来时发现他一天什么都没有做,忙一些无关紧要的事情 阅读全文

posted @ 2019-06-10 18:39 癫狂编程 阅读(346) 评论(0) 推荐(0) 编辑

教师表(TEACHER.DBF)
摘要:20~27题使用的数据如表1和表2所示。 表1 教师表(TEACHER.DBF) 教师号 姓名 性别 籍贯 职称 年龄 工资/元 0001 王吉兵 男 江苏 讲师 27 2003.50 0002 张晓春 女 安徽 副教授 28 2800.50 0003 左燕 女 江苏 讲师 25 2040.00 0 阅读全文

posted @ 2019-06-09 12:21 癫狂编程 阅读(742) 评论(0) 推荐(0) 编辑

Delphi中基本控件之SaveDialog控件的使用总结
摘要:首先向Form窗体拖一个SaveDialog控件,Name属性改为:dlgSave,然后添加一个按钮,Caption属性改为:浏览,Name属性改为:btnBrowse。 然后双击浏览按钮添加如下代码: 注:dlgSave.DefaultExt := '.dbf'; 一行实现的是我们只填写文件名默认 阅读全文

posted @ 2019-06-09 11:20 癫狂编程 阅读(2291) 评论(0) 推荐(0) 编辑

Delphi实现类的持久化保存(DFM格式)
摘要:读取,反过来就是了,不多说。 阅读全文

posted @ 2019-06-08 22:45 癫狂编程 阅读(518) 评论(0) 推荐(0) 编辑

人事中的BP是什么意思?
摘要:BP= business partner,指业务伙伴 HR=human resources,指人力资源 HRBP就是人力资源服务经理。主要工作内容是负责公司的人力资源管理政策体系、制度规范在各业务单元的推行落实,协助业务单元完善人力资源管理工作,并发展业务单元各级干部的人力资源管理能力。 阅读全文

posted @ 2019-06-08 17:48 癫狂编程 阅读(12924) 评论(0) 推荐(0) 编辑

从HR 到SBP其实还有很长的一段路要走
摘要:关于这本书,一般是因为好奇,从HR到BP的角色,再到这个SBP,其实是一段没有走过的很虚的过程,不过总归是需要灯塔,即使偶尔只是海市蜃楼。不过提到STRATEGE,不得不说到波特他老人家,整本书的感觉就是做SBP不能够单单做HR,从业务出发,从关系的建立,信任的取得和维护出发,更多的是提供一个通用的 阅读全文

posted @ 2019-06-08 17:46 癫狂编程 阅读(331) 评论(0) 推荐(0) 编辑

在DBGrid中,按ctrl+Delete不让删除,怎么实现
摘要:DBGrid的Options中的dgConfirmDelete改为:False;在DBGrid所连接的DataSet的BeforeDelete事件中写:Abort; ^_^ 阅读全文

posted @ 2019-06-08 12:52 癫狂编程 阅读(316) 评论(0) 推荐(0) 编辑

delphi adoquery的post和UpdateBatch
摘要:delphi adoquery的post和UpdateBatch Post是确认当前的修改,而UpdateBatch是把已经确认但是没有存盘的数据写入数据库当ADOQuery的CursorType是ctKeySet或者ctStatic,并且LockType是ltBatchOptimistic的时候, 阅读全文

posted @ 2019-06-08 11:57 癫狂编程 阅读(270) 评论(0) 推荐(0) 编辑

delphi 导出excel
摘要:Var FExcel:OleVariant; //excel应用程序 FWorkBook :OleVariant; //工作表 Temsheet:OleVariant; //工作薄 FPicture:OleVariant;//图片 tmpstr:String; range:variant;//范围 i,j,TemInt:integer; TemFileName:S... 阅读全文

posted @ 2019-06-07 11:38 癫狂编程 阅读(427) 评论(0) 推荐(0) 编辑

Delphi导出Excel的设置操作
摘要:procedure CreatRepSheet(SheetName:String;PageSize,PageLay:Integer); {新建Excel工作簿、进行页面设置} begin {新建Excel工作簿} if ExlApp.WorkBooks.Count < 1 then begin ExlBook := ExlApp.Workbooks.Add; //... 阅读全文

posted @ 2019-06-07 11:32 癫狂编程 阅读(877) 评论(0) 推荐(0) 编辑

Delphi实现带有格式的Excel导出功能
摘要:运行预览 模板样式 存储返参 导出的Excel 2. 代码实现 阅读全文

posted @ 2019-06-07 11:27 癫狂编程 阅读(937) 评论(0) 推荐(0) 编辑

delphi dbgrid数据导出为excel
摘要:uses Excel2000,ComObj; procedure F_Form.Button1Click(Sender: TObject);var myExcel:TExcel; Int_i,Int_j,rowCount,columnCount:Integer; ExcelId:Variant;be 阅读全文

posted @ 2019-06-07 11:19 癫狂编程 阅读(633) 评论(0) 推荐(0) 编辑

如何隐藏Win7登录界面的administrator用户名恢复
摘要:很多朋友一直在用着第三方的Windows7系统盘来装机,例如下载了Ghost格式的一些装机盘。在这些第三方系统中,很多家都是默认使用administrator 帐户自动登陆的。 从安全的角度来讲,这样做肯定是大忌,因为把Vista或者Windows 7中的UAC功能避开不用真的是件很愚蠢的事情。真正 阅读全文

posted @ 2019-06-06 19:11 癫狂编程 阅读(423) 评论(0) 推荐(0) 编辑

Delphi DBGridEh导出Excel
摘要:调用: 阅读全文

posted @ 2019-06-06 18:52 癫狂编程 阅读(815) 评论(0) 推荐(0) 编辑

SynEdit(Delphi XE7)的安装和基本使用
摘要:一、花絮 delphi自带的memo显示sql语句看的太累人了,今天决定美化一下。最起码要有“语法着色”、“显示行号”这2个功能。 意外发现了 SynEdit 控件。 下载地址: http://sourceforge.net/projects/synedit/ 打开下载的文件后,发现最后更新时间是2 阅读全文

posted @ 2019-06-04 13:29 癫狂编程 阅读(768) 评论(0) 推荐(0) 编辑

Word2007—如何快速取消自动编号
摘要:有时候自动编号很麻烦,有没有好的办法可以快速取消呢。 1.禁止自动编号。在Word为其自动加上编号时,只要按下Ctrl+Z键撤销操作,此时自动编号会消失,而且每次键入数字时,该功能就会被禁止了。 2.暂时取消自动编号。可以在换行时按“Shift+Enter”键,Word就不会自动编号,等你需要下个段 阅读全文

posted @ 2019-06-04 10:29 癫狂编程 阅读(1566) 评论(0) 推荐(0) 编辑

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
好的代码像粥一样,都是用时间熬出来的
点击右上角即可分享
微信分享提示