datechoice_unit.pas

货源代理管理系统 同样是DELPHI7下的

unit DateChoice_Unit;

interface

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

type
  TfrmDateChoice = class(TForm)
    MonthCalendar1: TMonthCalendar;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDateChoice: TfrmDateChoice;

implementation

uses PersonInfo_Unit, ClientDM_Unit, TrafficBookIn_Unit, FeeManage_Unit;

{$R *.dfm}

procedure TfrmDateChoice.btnOKClick(Sender: TObject);
begin
  if Flag=1 then
    frmPersonInfo.DBEdit2.Text := DateToStr(MonthCalendar1.Date);
  if Flag=2 then
    frmTrafficBookIn.DBEdit1.Text := DateToStr(MonthCalendar1.Date);
  if Flag=3 then
    frmTrafficBookIn.DBEdit2.Text := DateToStr(MonthCalendar1.Date);
  if Flag=4 then
    frmFeeManage.DBEdit2.Text := DateToStr(MonthCalendar1.Date);
  Close;
end;

procedure TfrmDateChoice.btnCancelClick(Sender: TObject);
begin
  Close;
end;

end.