Subject | IB_DateTimePicker question |
---|---|
Author | kristinnolan@hotmail.com |
Post date | 2001-09-05T20:45:03Z |
I have two date time picker controls. One for BegDate and one for
EndDate. I need to make sure both have a date in them and that only
the records between these two dates are selected. I keep getting an
error because I say dtpBegDate.Text. When I check code completion in
Delphi, Text is not an option and I don't see anything else similar
like AsString. Is there something else I can use or do I need to
change this control to an edit box or something?
If (dtpBegDate.Text <> '') and (dtpEndDate.Text = '') then
begin
MessageDlg('You must enter an End Date',mtInformation,
[mbOk], 0);
dtpEndDate.SetFocus;
end;
If (dtpEndDate.Text <> '') and (dtpBegDate.Text = '') then
begin
MessageDlg('You must enter a Begin Date',mtInformation,
[mbOk], 0);
dtpBegDate.SetFocus;
end;
If dtpBegDate.Text <> '' then
dmdGMS.ibqFRSummary.ParamByName('StartDate').AsDate :=
dtpBegDate;
If dtpEndDate.Text <> '' then
dmdGMS.ibqFRSummary.ParamByName('EndDate').AsDate :=
dtpEndDate.Date;
Any help would be appreciated. I searched the archives but didn't
see anythign on this. There is probably a simple solution but being
new I haven't found it.
Kristy
EndDate. I need to make sure both have a date in them and that only
the records between these two dates are selected. I keep getting an
error because I say dtpBegDate.Text. When I check code completion in
Delphi, Text is not an option and I don't see anything else similar
like AsString. Is there something else I can use or do I need to
change this control to an edit box or something?
If (dtpBegDate.Text <> '') and (dtpEndDate.Text = '') then
begin
MessageDlg('You must enter an End Date',mtInformation,
[mbOk], 0);
dtpEndDate.SetFocus;
end;
If (dtpEndDate.Text <> '') and (dtpBegDate.Text = '') then
begin
MessageDlg('You must enter a Begin Date',mtInformation,
[mbOk], 0);
dtpBegDate.SetFocus;
end;
If dtpBegDate.Text <> '' then
dmdGMS.ibqFRSummary.ParamByName('StartDate').AsDate :=
dtpBegDate;
If dtpEndDate.Text <> '' then
dmdGMS.ibqFRSummary.ParamByName('EndDate').AsDate :=
dtpEndDate.Date;
Any help would be appreciated. I searched the archives but didn't
see anythign on this. There is probably a simple solution but being
new I haven't found it.
Kristy