DBGrid.DataSource.DataSet.DisEnbleControls;
DBGrid.DataSource.DataSet.EnbleControls;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
DBGrid.DataSource.DataSet.EnbleControls;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
解决方案 »
- 关于TCombobox的问题
- 问大家一个问题
- 如何能判断打印机是否处于就绪状态?
- 关于快捷键,菜鸟问题!!!
- delphi开发的数据库程序问题(急,请赐教)
- 查到一个文件夹以及子文件夹下一共有多少个不同的后缀名,并列出来
- 我用ADODataSet进行存储数据的时候在它的afterpost事件中查询刚填进去的记录差不到,为什么,如何解决?
- 求D3 企业版,急需!!!
- ACDSee 看图软件日期过期的设置问题?
- IE5、Outlook Express 5插件问题?真正的高手快快来!急!
- stringgrid控件的使用
- Delphi访问access数据库特殊错误,请帮忙,谢谢!在线等待(asp部分还有100分送出)
之后 dbgrid1.dataset.enablecontrols
begin
ADOQuery1.Open;
ADOQuery2.Open;
end;procedure TCustomerData.ADOQuery1AfterScroll(DataSet: TDataSet);
var
i: integer;
begin
i := MainFm.DBGrid1.Fields[0].AsInteger;
ADOQuery2.Close;
ADOQuery2.Parameters.ParamByName('idMain').Value := i;
ADOQuery2.Open;
end;procedure TCustomerData.ADOQuery1BeforePost(DataSet: TDataSet);
begin
MainFm.DBGrid1.DataSource.DataSet.DisableControls;
if MainFm.DBGrid1.Fields[0].AsString = '' then begin
Application.MessageBox('对不起,不能插入空行', '错误信息', MB_OK);
MainFm.DBGrid1.DataSource.DataSet.EnableControls;
Abort();
end
end;还是不行