unit u_cw_date; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, wwdbdatetimepicker, bsSkinCtrls, BusinessSkinForm; type Tfrm_cw_date = class(TForm) Label1: TLabel; wwDBDateTimePicker1: TwwDBDateTimePicker; bsSkinButton1: TbsSkinButton; bsSkinButton2: TbsSkinButton; bsBusinessSkinForm1: TbsBusinessSkinForm; procedure FormShow(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_cw_date: Tfrm_cw_date; implementation uses u_main; {$R *.dfm} procedure Tfrm_cw_date.FormShow(Sender: TObject); begin wwDBDateTimePicker1.Date:=date; end; procedure Tfrm_cw_date.bsSkinButton1Click(Sender: TObject); begin if wwDBDateTimePicker1.Text=''then begin showmessage('请输入会计期间!!'); exit; end; end; end.