sjcx.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 57 行

unit sjcx;

interface

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

type
  TsjcxForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    Label2: TLabel;
    Label3: TLabel;
    startEdit: TEdit;
    endEdit: TEdit;
    startDate: TDateTimePicker;
    endDate: TDateTimePicker;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    procedure startDateCloseUp(Sender: TObject);
    procedure endDateCloseUp(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjcxForm: TsjcxForm;

implementation

uses sqbinput;

{$R *.DFM}

procedure TsjcxForm.startDateCloseUp(Sender: TObject);
begin
   startedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(startDate.Date));
end;

procedure TsjcxForm.endDateCloseUp(Sender: TObject);
begin
   endedit.Text:=sqinputForm.ShowMeDate(sqinputForm.DateTo709str(endDate.Date));
end;

procedure TsjcxForm.FormActivate(Sender: TObject);
begin
    startdate.DateTime:=date;
    enddate.DateTime:=date;
end;

end.