Form上有多个查询,放到服务器都能正常工作;放到客户端后,有一个查询总是提示如下错误项:
'项目在所需的名称或序数中末被发现'
代码如下:(DataStart,DataEnd,TimeStart,TimeEnd 均为TDataTimePicker,前两个kind 设为 dtkData,后两个kind 设为dtkTime)
procedure TMainForm.Btn_UpDataOkClick(Sender: TObject);
var
q_start,q_end:string;
begin
if TADO_updata.Active=true then TADO_updata.Close;
TADO_updata.TableName:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
q_start:=DateToStr(DateStart.Date)+' '+TimeToStr(TimeStart.Time);//查询的起始时间
q_end:=DateToStr(DateEnd.Date)+' '+TimeToStr(TimeEnd.Time);//查询的终止时间
TADO_updata.Filter:='时间>='''+q_start+''' and 时间<='''+q_end+'''';
TADO_updata.Filtered:=true;
TADO_updata.Open;
if TADO_updata.RecordCount<1 then MessageDlg('没有查询到时间段内的数据.',mtInformation,[mbOk], 0);
{ 设置DBGRID2的相关属性}
DBGrid2.Columns[0].FieldName:='时间';
DBGrid2.Columns[0].Width:=120;
DBGrid2.Columns[1].FieldName:='上游水位';
DBGrid2.Columns[1].Width:=70;
DBGrid2.Columns[2].FieldName:='下游水位';
DBGrid2.Columns[2].Width:=70;
DBGrid2.Columns[3].FieldName:='计算流量';
DBGrid2.Columns[3].Width:=110;
DBGrid2.Columns[4].FieldName:='闸位';
DBGrid2.Columns[4].Width:=70;end;
后来我将TadoTable换成了TadoQuery 就可以了,欢迎大家来谈其中原因。
'项目在所需的名称或序数中末被发现'
代码如下:(DataStart,DataEnd,TimeStart,TimeEnd 均为TDataTimePicker,前两个kind 设为 dtkData,后两个kind 设为dtkTime)
procedure TMainForm.Btn_UpDataOkClick(Sender: TObject);
var
q_start,q_end:string;
begin
if TADO_updata.Active=true then TADO_updata.Close;
TADO_updata.TableName:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
q_start:=DateToStr(DateStart.Date)+' '+TimeToStr(TimeStart.Time);//查询的起始时间
q_end:=DateToStr(DateEnd.Date)+' '+TimeToStr(TimeEnd.Time);//查询的终止时间
TADO_updata.Filter:='时间>='''+q_start+''' and 时间<='''+q_end+'''';
TADO_updata.Filtered:=true;
TADO_updata.Open;
if TADO_updata.RecordCount<1 then MessageDlg('没有查询到时间段内的数据.',mtInformation,[mbOk], 0);
{ 设置DBGRID2的相关属性}
DBGrid2.Columns[0].FieldName:='时间';
DBGrid2.Columns[0].Width:=120;
DBGrid2.Columns[1].FieldName:='上游水位';
DBGrid2.Columns[1].Width:=70;
DBGrid2.Columns[2].FieldName:='下游水位';
DBGrid2.Columns[2].Width:=70;
DBGrid2.Columns[3].FieldName:='计算流量';
DBGrid2.Columns[3].Width:=110;
DBGrid2.Columns[4].FieldName:='闸位';
DBGrid2.Columns[4].Width:=70;end;
后来我将TadoTable换成了TadoQuery 就可以了,欢迎大家来谈其中原因。
AdoQuery :更具条件查询,并且格式化Sql语句,查询速度快