Yizero的专栏

说是数据库的备份，但实际只是用CopyFile把文件拷贝一遍而已，废话不多说了，直接看代码吧！ procedure TForm3.btn1Click(Sender: TObject);beginif CopyFile(pchar(yizero.mdb),pchar(DB Backup/+formatDateTime(yyyy-mm-dd_hh-mm,Now)+.mdb

1、设置DBGridEh的OptionsEh里的dbhautoSortMarking属性为true   2、双击DBGridEh,添加你要显示的字段,然后设置需要排序的字段的Titlebutton属性为true3、在DBGridEh的ontitleButtonClick事件添加如下代码：procedure Tfrmmain.dbgGridEh1TitleBtnClick(Sender:

DBGridEh设置固定列，用于统计记录数和平均数、总和等信息         DBGridEh1.FooterRowCount:=1;             //在DBGridEh底部用1行来显示信息        DBGridEh1.SumList.Active:=True;        DBGridEh1.Columns[0].Footer.ValueType := fvtSta

DBGridEH 详细参数 【定制网格数据单元】　　在数据单元中显示字段值为图形。　　TDBGridEh allows to show bitmaps from TImageList component depending on field values. To show bitmaps depending

unit zip;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,ComObj;type  TForm1 = class(TForm)    dlgOpen1: TOpenDialog;

以下是程序具体的代码： procedure TFrm_test.dbeh_1DrawColumnCell(Sender: TObject;  const Rect: TRect; DataCol: Integer; Column: TColumnEh;  State: TGridDrawState);var    strColor    :String;    BkCo

    最近在找工作，于是在齐鲁人才网上注册了，填写基本信息，然后生成个人简历，等着用人单位与我联系(呵呵，其实我应该主动与他们联系的)。前几天打开邮箱收到面试通知，挺兴奋的，接下来的几天老是会情不自禁的去刷新邮箱，看是否有新的面试通知，觉得这样挺麻烦的，于是就用Delphi写了个小的邮件监控程序。    程序实现功能：监视用户设定的邮箱，看是否有新的邮件，如果有新邮件，就给用户设定的手机上发