我该如何在button按扭的onclick事件中,调用如下的过程
procedure TForm_plate.DBGrid7TitleClick(Column: TColumn);
var
str: string;
begin
str:=query1.fields[Column.index].FieldName;
dbgrid7.DataSource:=ds1; with query1 do
begin
close;
sql.Clear;
sql.Add('select * from outplate where signdate between :startdate and :enddate order by '+str+' desc');
Params[0].AsDateTime:=dtp_outstart.DateTime;
params[1].AsDateTime:=dtp_outend.DateTime;
prepare;
open;
end;
end;
procedure TForm_plate.DBGrid7TitleClick(Column: TColumn);
var
str: string;
begin
str:=query1.fields[Column.index].FieldName;
dbgrid7.DataSource:=ds1; with query1 do
begin
close;
sql.Clear;
sql.Add('select * from outplate where signdate between :startdate and :enddate order by '+str+' desc');
Params[0].AsDateTime:=dtp_outstart.DateTime;
params[1].AsDateTime:=dtp_outend.DateTime;
prepare;
open;
end;
end;
解决方案 »
- Synchronize如何使用匿名方法
- 各位老师:我想做一个字符串移动程序,有一个timer1 ,一个 edit1 ...
- 请教一下DBChart组件的用法?
- 具体应用以下的类,应该怎么办?
- Either Eof or Bof is True,or the Current Record Has Been Delete(500分)
- 大虾进来看,不算复杂的问题。
- 关于《她说了一句有分量的话,我该不该继续争取呢?》帖子的最后说明。
- 菜鸟问题, 请大虾帮忙: 如何屏蔽DB控件输入错误时的错误系统信息?
- 初学DELPHI,请问如何去除MDI子窗体中的标题栏?
- TEdit失去焦点的事件是什么?
- 简单问题(先来先拿分,在线)
- 想做一个EMAIL收集器,请大家给点思路!
dbgrid7titleclick(button);
dbgrid7titleclick(dbgrid7.Columns[0]);