C
callxuelin
Unregistered / Unconfirmed
GUEST, unregistred user!
case ComboBox2.ItemIndex of
0..3: with DataModule1.ADOTable4 do
begin
Filter:='DateTimeNum='+''''+S_DateTime+'''';
Filtered:=True;
Open;
First;
repeat
with Series1 do
begin
case ComboBox2.ItemIndex of
0:
begin
//共享初始化
DBChart1.LeftAxis.Maximum := 350;
DBChart1.LeftAxis.Minimum := 150;
DBChart1.LeftAxis.Increment := 10;
DBChart1.LeftAxis.EndPosition := 57;
//用DBChart实现字段显示
DataSource:=DataModule1.ADOTable4;
Series1.YValues.ValueSource:='VA';
Series1.XValues.ValueSource:='Time';
Series1.XValues.DateTime :=True;
end;
... ... ... ...
4..5: with DataModule1.ADOTable5 do
begin
Filter:='DateTimeNum='+''''+S_DateTime+'''';
Filtered:=True;
Open;
First;
repeat
with Series1 do
begin
case ComboBox2.ItemIndex of
4:
begin
//共享初始化
DBChart1.LeftAxis.Maximum := 350;
DBChart1.LeftAxis.Minimum := 150;
DBChart1.LeftAxis.Increment := 10;
DBChart1.LeftAxis.EndPosition := 57;
//用DBChart实现字段显示
DataSource:=DataModule1.ADOTable5;
//改变Series1 的DataSource
Series1.YValues.ValueSource:='VA';
Series1.XValues.ValueSource:='Time';
Series1.XValues.DateTime :=True;
end;
end;
end;
Next;
until DataModule1.ADOTable5.Eof
end
else
MessageBox(self.handle,'抱歉,没有您想要的数据曲线','曲线信息',MB_OK+MB_ICONEXCLAMATION);
end
当ComboBox的ItemIndex为4或5时,实现另外一个表(DataModule1.ADOTable5)
的数据曲线显示,运行的结果提示找不到DataModule1.ADOTable4中的字段,而我想实现的是DataModule1.ADOTable5,
是不是不能修改DataSource属性,还是什么别的??
0..3: with DataModule1.ADOTable4 do
begin
Filter:='DateTimeNum='+''''+S_DateTime+'''';
Filtered:=True;
Open;
First;
repeat
with Series1 do
begin
case ComboBox2.ItemIndex of
0:
begin
//共享初始化
DBChart1.LeftAxis.Maximum := 350;
DBChart1.LeftAxis.Minimum := 150;
DBChart1.LeftAxis.Increment := 10;
DBChart1.LeftAxis.EndPosition := 57;
//用DBChart实现字段显示
DataSource:=DataModule1.ADOTable4;
Series1.YValues.ValueSource:='VA';
Series1.XValues.ValueSource:='Time';
Series1.XValues.DateTime :=True;
end;
... ... ... ...
4..5: with DataModule1.ADOTable5 do
begin
Filter:='DateTimeNum='+''''+S_DateTime+'''';
Filtered:=True;
Open;
First;
repeat
with Series1 do
begin
case ComboBox2.ItemIndex of
4:
begin
//共享初始化
DBChart1.LeftAxis.Maximum := 350;
DBChart1.LeftAxis.Minimum := 150;
DBChart1.LeftAxis.Increment := 10;
DBChart1.LeftAxis.EndPosition := 57;
//用DBChart实现字段显示
DataSource:=DataModule1.ADOTable5;
//改变Series1 的DataSource
Series1.YValues.ValueSource:='VA';
Series1.XValues.ValueSource:='Time';
Series1.XValues.DateTime :=True;
end;
end;
end;
Next;
until DataModule1.ADOTable5.Eof
end
else
MessageBox(self.handle,'抱歉,没有您想要的数据曲线','曲线信息',MB_OK+MB_ICONEXCLAMATION);
end
当ComboBox的ItemIndex为4或5时,实现另外一个表(DataModule1.ADOTable5)
的数据曲线显示,运行的结果提示找不到DataModule1.ADOTable4中的字段,而我想实现的是DataModule1.ADOTable5,
是不是不能修改DataSource属性,还是什么别的??