📄 qrycust.js
字号:
//-------------------------------------------------------------------
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);
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -