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

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

摘要：比如procedure TForm1.Button1Click(Sender: TObject);vari:Integer;lbl: TLabel;beginfor i:=1 to 3 dobeginlbl:= TLabel.Create(Application);lbl.Parent := Sel 阅读全文

摘要：开发所用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 阅读全文

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) pnl1: TPanel; btn1: T... 阅读全文

摘要：procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (ssctrl in shift) and (key=vk_delete) then key:=0;end; 阅读全文

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

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

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

摘要：读取，反过来就是了，不多说。 阅读全文

摘要：DBGrid的Options中的dgConfirmDelete改为:False;在DBGrid所连接的DataSet的BeforeDelete事件中写:Abort; ^_^ 阅读全文

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

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

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

摘要：运行预览 模板样式 存储返参 导出的Excel 2. 代码实现 阅读全文

摘要：uses Excel2000,ComObj; procedure F_Form.Button1Click(Sender: TObject);var myExcel:TExcel; Int_i,Int_j,rowCount,columnCount:Integer; ExcelId:Variant;be 阅读全文

摘要：调用: 阅读全文

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

摘要：Help里的解释 function Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean; KeyFields: is a string containing a sem 阅读全文

摘要：Delphi中的Free和Nil 在Delphi中释放对象资源时一般用Obj.Free(Obj为一个实例名),不过程Delphi中还有一个FreeAndNil(对象名)函数，那么用哪个好呢？Free和Nil的本质又都是什么呢？ 在Delphi中一个对象名只是一个指向该对象的指针，可以有多个指针指向同 阅读全文