You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

48 lines
924 B
Plaintext

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.