08 2008 档案

摘要：XML文件内容; 火影忍者 100 死神 100 天牢 200 天牢 200 //////////// delphi内容; unit Unit1; interface uses W... 阅读全文

摘要：Delphi的属性是一个很有特色的功能，这一特性在C#里得到了很好的继承。 对于一个类来说，属性是对类中的数据进行有效修改和访问的特殊接口。在VCL中，被published 的属性还有一个特性，就是可以在界面设计过程中对属性进行设置. 属性的类型 数字、字符、布尔、枚举、TStrings、集合，类对象或者接口类型等 阅读全文

摘要：如何写出象TTable, TAdoTable ,Tquery,TAdoQuery 等控件一样的自动下拉显示Field属性 Delphi VCL在Delphi 中有很多源码，但是有些关键的属性编辑器却找不到，下面我将举几个例子来说明一下 我们可以研究一下TDBEdit的两个关键属性一个Datasource,DataField. 阅读全文

摘要：//在长时间的开发工作中,慢慢做了一些类库,下面这个是一个数据库操作类,欢迎大家交流 //联系方式 QQ:413133880 Email: QQ413133880@gmail.com unit MyADO; 阅读全文

摘要：DELPHI的开源控件集一套开源的数据库控件，可以支持多数据库，相当不错： MSSQL、Interbase、FireBird、ProgreSQL、DB2、SYBASE、ORACLE、MySQL 阅读全文

摘要：MySQL数据库操作类unit MySQLData; interface uses SysUtils, Classes,DB,Variants,StdCtrls,Dialogs,myaccess; type TMySQL = class(TComponent) private Connection: TMyConnection; Query: TMyQuery; Table: TMyTable; FConnectionString:string; procedure InitQuery(InputQuery: TMyQuery; QueryString: String); function CheckParaEqual(QueryString: String; ParameterList: TStringList):Boolean; procedure InitParameter(InputQuery:TMyQuery;QueryString:string;ParameterList: 阅读全文

摘要：{ No.1 判断逻辑类型 } var B: Boolean; begin B := Boolean(2); //这样只是为了调试//B := True; if B = True then ShowMessage('B = True'); //不建议//不安全 /////// if B then ShowMessage('B'); //建议//简短 end; var B: Boolean; begin if Edit1.Text = '是' then //不建议//烦琐 B := True else B := False; /////// B := Edit1.Text = '是'; //建议//简短 end; 阅读全文

摘要：一、Owner和Parent的区别： 　　Parent属性是指构件的包容器，构件只能在此范围内显示和移动。举例子如下： 　　(1)在Form1的窗体上，放一个Panel1,并将Panel1拉大， 阅读全文

摘要：使用方法, uses 本单元——>使用如:Pub.MsgBox('你好，欢迎使用本公用函数！'); ShowMessage(Pub.PathExeDir); 阅读全文

摘要：一、打印dbgrid数据： //============================================================================== //打印DBGrid中的所有数据******************************************************** //============================================================================== procedure DBGridPrint(DBGrid: TDBGrid; Title: string); var PrintDialog: TPrintDialog; RowHeight, Temp_X, Temp_Y, PageEdgeX, PageEdgeY, PixelsPerInchX, PixelsPerInchY: integer; TempStr: string; Scale: Double; Rect: TRect; 阅读全文