Query1AfterScroll 与 DataSource1DataChange 区别

标签：检查   als   内存   特定   object   ble   show   区别   query   

这个事件 对每个字段都处理，在窗体退出时，因关闭了数据集，所以这个事件也要执行一次。这样就会造成，内存地址错误。

procedure TFrmYaoKYPCKBL.DataSource1DataChange(Sender: TObject; Field: TField);
begin
inherited;
ShowMessage(‘ds‘);

if Query1YiJSZ.Value = 1 then
begin
TB_Save.Enabled := False;
TB_ShangZ.Enabled := False;
TB_Delete.Enabled := False;
btnSave.Enabled := False;
btnShangZ.Enabled := False;

DBComboBox2.Enabled := False;
DBEdit3.Enabled := False;

DBGrideh1.readonly := True;
btnErase.Enabled := False;
end
else
begin
TB_Save.Enabled := True;
TB_ShangZ.Enabled := True;
TB_Delete.Enabled := True;
btnSave.Enabled := True;
if not _ChuKMXModified then
begin
btnShangZ.Enabled := True;
end
else
begin
btnShangZ.Enabled := False;
end;

end;

而表的滚动事件，则不会在窗体关闭时执行。只是有数据时才执行。  所处程序除非必要检查特定字段，不要在datasource事件内写东西。

procedure TFrmYaoKYPCKBL.Query1AfterScroll(DataSet: TDataSet);
begin
inherited;

if Query1YiJSZ.Value = 1 then
begin
TB_Save.Enabled := False;
TB_ShangZ.Enabled := False;
TB_Delete.Enabled := False;
btnSave.Enabled := False;
btnShangZ.Enabled := False;

DBComboBox2.Enabled := False;
DBEdit3.Enabled := False;

DBGrideh1.readonly := True;
btnErase.Enabled := False;
end
else
begin
TB_Save.Enabled := True;
TB_ShangZ.Enabled := True;
TB_Delete.Enabled := True;
btnSave.Enabled := True;
if not _ChuKMXModified then
begin
btnShangZ.Enabled := True;
end
else
begin
btnShangZ.Enabled := False;
end;

DBComboBox2.Enabled := False;
DBEdit3.Enabled := True;

DBGrideh1.readonly := False;
btnErase.Enabled := True;
end;
end;

Query1AfterScroll 与 DataSource1DataChange 区别

标签：检查   als   内存   特定   object   ble   show   区别   query   

原文地址：http://www.cnblogs.com/maweiwei/p/7473786.html