2012年4月11日
使用PrintDBGridEh进行打印 (转)
摘要： if not ADOQuery1.Active then exit; if ADOQuery1.RecordCount<=0 then exit; PrintDBGridEh1.PageHeader.CenterText.Clear; PrintDBGridEh1.PageHeader.CenterText.Add(trim(edTiTle1.Text)); PrintDBGridEh1.PageHeader.CenterText.Add(''); PrintDBGridEh1.PageHeader.CenterText.Add(trim(edTiTle2.Text)); 阅读全文
posted @ 2012-04-11 23:21 Unique.Y 阅读(3648) 评论(0) 推荐(0) 编辑
获取星期几
摘要： type TForm1 = class(TForm) edt1: TEdit; btn1: TButton; procedure btn1Click(Sender: TObject); function getWeek:string; private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}function Tform1.getWeek:string;var date:SYSTEMTIME;begin GetLocalTime(da 阅读全文
posted @ 2012-04-11 22:50 Unique.Y 阅读(166) 评论(0) 推荐(0) 编辑