S
shanshan033
Unregistered / Unconfirmed
GUEST, unregistred user!
F_query_from窗口上面的按纽"查询"下的onclick中的事件内容:
string_adjust是F_query_from上的一个public变量,F_query_from_adjust给它赋值:
procedure TF_query_from.B_queryClick(Sender: TObject);
Var
old_select,new_select:String;
begin
F_query_from_adjust :=TF_query_from_adjust.create(Application);
F_query_from_adjust.showmodal;
if ADOQ_query_from.Active = true then ADOQ_query_from.Active := false;
old_select := ADOQ_query_from.SQL.Text;
new_select := old_select + string_adjust;
ADOQ_query_from.SQL.Text := new_select;
ADOQ_query_from.Active := true;
ShowMessage(new_select);
ADOQ_query_from.SQL.Text := old_select;
end;
上面的怎么检索不出来数据呢?我还用了一个DataSource和DBgrideh控件,没有数据出来,还需要哪些设置????本人比较菜,刚学没多长时间,不要见笑!
string_adjust是F_query_from上的一个public变量,F_query_from_adjust给它赋值:
procedure TF_query_from.B_queryClick(Sender: TObject);
Var
old_select,new_select:String;
begin
F_query_from_adjust :=TF_query_from_adjust.create(Application);
F_query_from_adjust.showmodal;
if ADOQ_query_from.Active = true then ADOQ_query_from.Active := false;
old_select := ADOQ_query_from.SQL.Text;
new_select := old_select + string_adjust;
ADOQ_query_from.SQL.Text := new_select;
ADOQ_query_from.Active := true;
ShowMessage(new_select);
ADOQ_query_from.SQL.Text := old_select;
end;
上面的怎么检索不出来数据呢?我还用了一个DataSource和DBgrideh控件,没有数据出来,还需要哪些设置????本人比较菜,刚学没多长时间,不要见笑!