printinfounit.~pas

来自「公交行业的管理系统」· ~PAS 代码 · 共 50 行

unit PrintInfoUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons;

type
  TPrnInfoFrm = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    StatMainPerson:string;
    StatPerson:string;
    StatDate:TDate;
  end;

var
  PrnInfoFrm: TPrnInfoFrm;

implementation

{$R *.dfm}

procedure TPrnInfoFrm.FormShow(Sender: TObject);
begin
       DateTimePicker1.Date:=Now;
end;

procedure TPrnInfoFrm.BitBtn1Click(Sender: TObject);
begin
          StatMainPerson:=Edit1.Text;
          StatPerson:=Edit2.Text;
          StatDate:=DateTimePicker1.Date;
end;

end.