sgzl1.pas

来自「delphi开发的委托加工管理系统源代码」· PAS 代码 · 共 46 行

unit sgzl1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, ComCtrls, ExtCtrls, RzPanel;

type
  Tsgzl = class(TForm)
    RzGroupBox1: TRzGroupBox;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    RzGroupBox2: TRzGroupBox;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sgzl: Tsgzl;

implementation

{$R *.dfm}

procedure Tsgzl.RzBitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tsgzl.FormCreate(Sender: TObject);
begin
datetimepicker1.DateTime:=now;
datetimepicker2.DateTime:=now;
end;

end.