qrycust.js

来自「Dream Scripter v3.5 Full Source Code」· JavaScript 代码 · 共 59 行

//-------------------------------------------------------------------

function SetFromDate(NewDate)
{
  FromEdit.Text = DateToStr(NewDate);
}

//-------------------------------------------------------------------

function SetToDate(NewDate)
{
  ToEdit.Text = DateToStr(NewDate);
}

//-------------------------------------------------------------------

function GetFromDate()
{
  if (FromEdit.Text == "" )
    return 0;
  else
    return StrToDate(FromEdit.Text);
}

//-------------------------------------------------------------------

function GetToDate()
{
  if (ToEdit.Text == "")
    return 0 ;
  else
    return StrToDate(ToEdit.Text);
}

//-------------------------------------------------------------------

function OkBtnClick(Sender)
{
  if ((GetToDate() != 0) && (GetToDate() < GetFromDate()))
    {
      ShowMessage("'TO' date cannot be less than 'FROM' date");
      ModalResult = mrNone;
    }
  else
    ModalResult = mrOk;
}

//-------------------------------------------------------------------

function FormCreate(Sender)
{
  MsgLab.Caption = "Customers with LastInvoiceDate ranging:";
  SetFromDate(EncodeDate(1995, 01, 01));
  SetToDate(Now);

}