当前位置:学Delphi网文档资料技术资料数据库

ADOQuery 的BeforePost事件和AfterScroll事件

减小字体 增大字体 作者:不详  来源:不详  发布时间:2010-12-02 10:21:16

procedure ADOQuery1_BeforePost ( DataSet : TDataSet);
begin
end;
是在ADOQuery1或者相关联的DataSource的数据集改动后,在将改动保存到内存之前激发的事件,上次使用这个事件是用来判断修改之后的数据是否规范,如果不规范,就给出提示
示例如下: 要修改的列关联的Column 是Score
procedure ADOQuery1_BeforePost ( DataSet : TDataSet);】
var
  score:string;
begin
  score:=DataSet.FieldByName(‘score’).AsString; // 提取修改之后的数据
  if (‘score不符合规则’) then
    self.msgWarning(‘’输入的数据有错);
end;
procedure ADOQuery1_AfterScroll (DataSet: TDataSet);
begin

end;

是在点击与ADOQuery1相关联的DBGridEh1中的记录后激发的事件,可以用来做两个DBGridEh控件的关联事件。
如:点击DBGridEh1 中的记录1,在DBGridEh2中就显示记录1的详细信息(DBGridEh2与ADOQuery2相关联),(示例如下:
procedure ADOQuery1_AfterScroll(DataSet: TDataSet);
var
  sql: string;
begin
  sql := ’ select * from tableneme where key = ’ ” + ADOQuery1.fieldbyname
    (‘ key ’).AsString + ” ’ ’ ADOQuery2.sql.Close;
  ADOQuery2.sql.Clear;
  ADOQuery2.sql.Add(sql);
  ADOQuery2.sql.Open;
end;

Tags:

作者:不详
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论