摘要：
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
阅读(3670)
评论(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
阅读(170)
评论(0)
推荐(0)
浙公网安备 33010602011771号